aadit/tetris-cli
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

use maybe instead of fromMaybe

Browse source
This commit is contained in:
Willem Van Onsem 2021-03-16 00:09:36 +01:00
parent 55f87143b4
commit 1caafe0b35
No known key found for this signature in database
GPG key ID: 1D22C3A122D794F4
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
app/Main.hs
View file

@ -1,7 +1,6 @@
module Main where module Main where
import Control.Monad (when) import Control.Monad (when)
import Data.Maybe (fromMaybe)
import Data.Monoid ((<>)) import Data.Monoid ((<>))
import System.Exit (exitSuccess) import System.Exit (exitSuccess)
import System.IO (readFile, writeFile) import System.IO (readFile, writeFile)
@ -75,7 +74,7 @@ main :: IO ()
main = do main = do
(Opts hd ml hs) <- execParser fullopts -- get CLI opts/args (Opts hd ml hs) <- execParser fullopts -- get CLI opts/args
when hs (getHighScore >>= printM >> exitSuccess) -- show high score and exit when hs (getHighScore >>= printM >> exitSuccess) -- show high score and exit
l <- fromMaybe pickLevel (return <$> ml) -- pick level prompt if necessary l <- maybe pickLevel return ml -- pick level prompt if necessary
g <- playGame l (hdOptStr hd) -- play game g <- playGame l (hdOptStr hd) -- play game
handleEndGame (_score g) -- save & print score handleEndGame (_score g) -- save & print score