From 3f009714170692ab596b59426c945c3c2705d8a0 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Tue, 18 Aug 2026 23:33:31 +0100 Subject: I cannot logic Thanks int-e --- src/Ghci.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') 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) -- cgit v1.3.1