Garmelon/chards
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Transform files using stylish-haskell

Browse source
This commit is contained in:
Joscha 2018-01-05 03:00:24 +00:00
parent 5c60d90d82
commit 266acbe93d
2 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

18
app/Main.hs
View file

@ -2,14 +2,14 @@ module Main
( main
) where
import Cards
import Control.Monad
import Control.Monad.Trans.Class
import Control.Monad.Trans.Maybe
import Data.Char
import Data.Time
import System.Console.Haskeline
import System.Console.Haskeline.History
import Cards
import Control.Monad
import Control.Monad.Trans.Class
import Control.Monad.Trans.Maybe
import Data.Char
import Data.Time
import System.Console.Haskeline
import System.Console.Haskeline.History
type Input = InputT IO
@ -75,7 +75,7 @@ askElements time elms = do
-- TODO: Randomize order
newCards <- askCountdown time l
return $ updateElements elms (fromCards newCards)
askCountdown :: UTCTime -> [(Integer, Card)] -> Input [(Integer, Card)]
askCountdown _ [] = return []
askCountdown time l@((key, card):xs) = do