From 1caafe0b352193a192f08a679e3925e55035b0c4 Mon Sep 17 00:00:00 2001 From: Willem Van Onsem Date: Tue, 16 Mar 2021 00:09:36 +0100 Subject: [PATCH] use maybe instead of fromMaybe --- app/Main.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/app/Main.hs b/app/Main.hs index ec611e7..2011352 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -1,7 +1,6 @@ module Main where import Control.Monad (when) -import Data.Maybe (fromMaybe) import Data.Monoid ((<>)) import System.Exit (exitSuccess) import System.IO (readFile, writeFile) @@ -75,7 +74,7 @@ main :: IO () main = do (Opts hd ml hs) <- execParser fullopts -- get CLI opts/args 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 handleEndGame (_score g) -- save & print score