Fix most build errors

2020-08-05 17:29:10 +02:00
parent b8812b54b2
commit 0581d6827e
10 changed files with 20 additions and 8 deletions
--- a/src/compiler/GF/Infra/CheckM.hs
+++ b/src/compiler/GF/Infra/CheckM.hs
@@ -53,6 +53,9 @@ instance Monad Check where
                 (ws,Success x) -> unCheck (g x) {-ctxt-} ws
                 (ws,Fail msg)  -> (ws,Fail msg)

+instance MonadFail Check where
+  fail = raise
+
 instance Applicative Check where
  pure = return
  (<*>) = ap