More refactoring

[xyz.git] / src / Prompts.hs

diff --git a/src/Prompts.hs b/src/Prompts.hs
index e2fccf1..9a2ac5f 100644 (file)
--- a/src/Prompts.hs
+++ b/src/Prompts.hs
@@ -49,7 +49,7 @@ yornPrompt xs = do
   finally (prompt (xs +++ " (y/n): ") getOneText v) $ putStr "\n"
 
 listPrompt :: Text -> [Text] -> IO Text
-listPrompt xs options = finally (putCue >> choicePrompt) $ putStr "\n"
+listPrompt xs options = finally (putCue >> choicePrompt) $ putStr "\n\n"
   where
     cue = unlines $ map (\x -> (pack . show $ fst x) +++ ") " +++ snd x) themeList
     putCue = putStrLn $ xs +++ "\n\n" +++ cue