GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-18 23:52:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Fix most build errors

Browse Source
This commit is contained in:
Andreas Källberg
2020-08-05 17:29:10 +02:00
parent b8812b54b2
commit 0581d6827e
10 changed files with 20 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/compiler/GF/Infra/SIO.hs
View File

@@ -58,6 +58,9 @@ instance Monad SIO where
return x = SIO (const (return x))
SIO m1 >>= xm2 = SIO $ \ h -> m1 h >>= \ x -> unS (xm2 x) h
instance MonadFail SIO where
fail = liftSIO . fail
instance Output SIO where
ePutStr = lift0 . ePutStr
ePutStrLn = lift0 . ePutStrLn