Commit 8252f064 authored by judah's avatar judah
Browse files

Fix build on ghc-6.12.3.

parent 6ee5fc8c
......@@ -194,7 +194,9 @@ runActionT m = do
return x
output :: TermAction -> ActionM ()
output = Writer.tell
output t = Writer.tell t -- NB: explicit argument enables build with ghc-6.12.3
-- (Probably related to the monomorphism restriction;
-- see GHC ticket #1749).
outputText :: String -> ActionM ()
outputText str = do
......
......@@ -11,8 +11,11 @@ import Control.Monad
runCommandLoop :: (CommandMonad m, MonadState Layout m, LineState s)
=> TermOps -> String -> KeyCommand m s a -> s -> m a
runCommandLoop tops@TermOps{evalTerm = EvalTerm eval liftE} prefix cmds initState
= eval $ withGetEvent tops
runCommandLoop tops@TermOps{evalTerm = e} prefix cmds initState
= case e of -- NB: Need to separate this case out from the above pattern
-- in order to build on ghc-6.12.3
EvalTerm eval liftE
-> eval $ withGetEvent tops
$ runCommandLoop' liftE tops (stringToGraphemes prefix) initState
cmds
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment