diff options
| -rw-r--r-- | src/Ghci.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Ghci.hs b/src/Ghci.hs index e42ccbc..c0f5de9 100644 --- a/src/Ghci.hs +++ b/src/Ghci.hs @@ -92,7 +92,7 @@ runStmtClever ghci pset line = ('{':_) : _ -> return (ghci, Ignored) -- will break prompt setish : promptish : _ | ("set" `startsWith` setish || "unset" `startsWith` setish) - , ("prompt" `startsWith` promptish || "prompt-" `startsWith` promptish) + , promptish `startsWith` "prompt" -> return (ghci, Ignored) cmd : _ | "def" `startsWith` cmd -> return (ghci, Ignored) |