1 files changed, 4 insertions, 3 deletions

diff --git a/src/Sequence/Formula.hs b/src/Sequence/Formula.hs
index be5032a..a3675c6 100644
--- a/src/Sequence/Formula.hs
+++ b/src/Sequence/Formula.hs
@@ -103,9 +103,10 @@ quot' = liftM2 quot
 askQuestion :: (MonadIO m, sInput :<: lInput) => [String] -> (lInput, Maybe (Formula sInput)) -> Question sInput -> m (lInput, Maybe (Formula sInput))
 askQuestion promptPref input q@(Question{..}) = flip (if keepResult then set $ _1 . ctx' . answer else set _2 . Just) input . maybe (throwError q) return <$> askQ (wPromptPref $ promptPref ++ prompt) (join . fmap readMaybe)
   where
-    wPromptPref [] = " »"
-    wPromptPref [x] = x ++ " »"
-    wPromptPref (x:xs) = x ++ " » " ++ wPromptPref xs
+    wPromptPref [] = " " ++ sep
+    wPromptPref [x] = x ++ " " ++ sep
+    wPromptPref (x:xs) = x ++ " " ++ sep ++ " " ++ wPromptPref xs
+    sep = "»"
 
 evalFormula :: (MonadIO m, sInput :<: lInput) => [String] -> lInput -> FormulaM sInput a -> m (lInput, a)
 evalFormula promptPref input = evalFormula' [] promptPref (input, Nothing)