Fix unnecessary newline when learning

This commit is contained in:
Joscha 2018-01-06 11:15:44 +00:00
parent ac4228ac09
commit 8fc9740337

View file

@ -123,7 +123,7 @@ showSide side = do
promptContinue "--> Continue"
displaySide :: String -> InputT IO ()
displaySide side = lift (putStrLn side)
displaySide side = outputStr side
{-
- Display stats