Fixed ghci prompt

This commit is contained in:
hellerve
2015-03-10 09:18:30 +01:00
parent 0fb7af5e8f
commit 61808e10b3

2
ghci
View File

@@ -1,4 +1,4 @@
:set prompt "λ: " :set prompt "λ > "
{- :set -Wall -} {- :set -Wall -}
let ghciEscapeShellArg arg = "'" ++ concatMap (\c -> if c == '\'' then "'\"'\"'" else [c]) arg ++ "'" let ghciEscapeShellArg arg = "'" ++ concatMap (\c -> if c == '\'' then "'\"'\"'" else [c]) arg ++ "'"