Fix <7.10

This commit is contained in:
Daniel Gröber 2015-09-01 10:45:15 +02:00
parent e32eaf1434
commit a0a7433212

View File

@ -66,7 +66,7 @@ toGmLines s = GmLines GmPartial s
outputFns :: (GmOut m, MonadIO m')
=> m (GmLines String -> m' (), GmLines String -> m' ())
outputFns =
outputFns' <$> gmoAsk
outputFns' `liftM` gmoAsk
pfxFns :: Maybe (String, String) -> (GmLines String -> GmLines String, GmLines String -> GmLines String)
pfxFns lpfx = case lpfx of