diff options
| author | Csaba Hruska <csaba.hruska@gmail.com> | 2017-07-30 15:35:11 +0200 |
|---|---|---|
| committer | Csaba Hruska <csaba.hruska@gmail.com> | 2017-07-30 15:35:22 +0200 |
| commit | f4071a0e6ff2b5af1c94da6046d2e566b420c587 (patch) | |
| tree | 45d679ce194c87cbdfe0e645bff9c795e887206c /src | |
| parent | 150997e7157f7157bc7a9f653cbc0f30bff23727 (diff) | |
update to stackage lts 9.0
Diffstat (limited to 'src')
| -rw-r--r-- | src/LambdaCube/Compiler/Utils.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/LambdaCube/Compiler/Utils.hs b/src/LambdaCube/Compiler/Utils.hs index 02a90ee7..2a86f80b 100644 --- a/src/LambdaCube/Compiler/Utils.hs +++ b/src/LambdaCube/Compiler/Utils.hs | |||
| @@ -121,7 +121,7 @@ readFileIfExists fname = do | |||
| 121 | instance MonadMask m => MonadMask (ExceptT e m) where | 121 | instance MonadMask m => MonadMask (ExceptT e m) where |
| 122 | mask f = ExceptT $ mask $ \u -> runExceptT $ f (mapExceptT u) | 122 | mask f = ExceptT $ mask $ \u -> runExceptT $ f (mapExceptT u) |
| 123 | uninterruptibleMask = error "not implemented: uninterruptibleMask for ExcpetT" | 123 | uninterruptibleMask = error "not implemented: uninterruptibleMask for ExcpetT" |
| 124 | -} | 124 | |
| 125 | 125 | ||
| 126 | instance (Monoid w, P.MonadParsec e s m) => P.MonadParsec e s (RWST r w st m) where | 126 | instance (Monoid w, P.MonadParsec e s m) => P.MonadParsec e s (RWST r w st m) where |
| 127 | failure a b = lift . P.failure a b | 127 | failure a b = lift . P.failure a b |
| @@ -136,3 +136,4 @@ instance (Monoid w, P.MonadParsec e s m) => P.MonadParsec e s (RWST r w st m) wh | |||
| 136 | getParserState = lift P.getParserState | 136 | getParserState = lift P.getParserState |
| 137 | updateParserState f = lift $ P.updateParserState f | 137 | updateParserState f = lift $ P.updateParserState f |
| 138 | 138 | ||
| 139 | -} \ No newline at end of file | ||