Update src/System/Hapistrano.hs

Co-authored-by: Cristhian Motoche <CristhianMotoche@users.noreply.github.com>
stackbuilders · Jul 19, 2024 · 5b56f2f · 5b56f2f
1 parent de1c423
commit 5b56f2f
Showing 1 changed file with 6 additions and 8 deletions.
diff --git a/src/System/Hapistrano.hs b/src/System/Hapistrano.hs
@@ -292,15 +292,13 @@ initConfig getLine' = do
     prompt :: Show a => String -> a -> MParser a -> IO a
     prompt parameterName def parser = do
       userInput <- prompt' (parameterName <> " (default: " <> show def <> ")")
-      if null userInput then
+      when (null userInput)
         pure def
-      else do
-        let parsed = M.parse (parser <* M.eof) "" userInput
-        case parsed of
-          Left err -> do
-            hPutStrLn stderr (M.errorBundlePretty  err)
-            prompt parameterName def parser
-          Right res -> pure res
+
+      either
+          (\err -> hPutStrLn stderr (M.errorBundlePretty err) >> prompt parameterName def parser)
+          pure
+          (M.parse (parser <* M.eof) "" userInput)
 
     promptYN = do
       userInput <- prompt "Include restart command? y/N" 'N' yNParser