diff options
| author | Egor Tensin <Egor.Tensin@gmail.com> | 2016-08-20 15:54:43 +0300 |
|---|---|---|
| committer | Egor Tensin <Egor.Tensin@gmail.com> | 2016-08-20 15:54:43 +0300 |
| commit | 87ae152b71317b99bcbeeab80145ae1f3cf22d83 (patch) | |
| tree | 0ba746abfb44730f07cf7681f90e6340cfaa0a9b /apps/Prompt.hs | |
| parent | list_path: no weird symbols in output (diff) | |
| download | windows-env-87ae152b71317b99bcbeeab80145ae1f3cf22d83.tar.gz windows-env-87ae152b71317b99bcbeeab80145ae1f3cf22d83.zip | |
fix HLint warnings
Diffstat (limited to 'apps/Prompt.hs')
| -rw-r--r-- | apps/Prompt.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/apps/Prompt.hs b/apps/Prompt.hs index 07c2299..0beecc2 100644 --- a/apps/Prompt.hs +++ b/apps/Prompt.hs @@ -9,7 +9,7 @@ module Prompt , withoutPrompt ) where -import Control.Monad (liftM, void, when) +import Control.Monad (void, when) import Data.Char (toLower) import System.IO (hFlush, stdout) @@ -21,7 +21,7 @@ prompt msg = do promptYesNo :: String -> IO Bool promptYesNo msg = do - response <- liftM (map toLower) $ prompt msg + response <- map toLower <$> prompt msg if response `elem` yeses then return True else if response `elem` noes |