rescue old GHCs.
This commit is contained in:
parent
248a999f99
commit
6a7955679a
@ -198,7 +198,7 @@ withContext :: Ghc a -> Ghc a
|
|||||||
withContext action = gbracket setup teardown body
|
withContext action = gbracket setup teardown body
|
||||||
where
|
where
|
||||||
setup = getContext
|
setup = getContext
|
||||||
teardown = setContext
|
teardown = setCtx
|
||||||
body _ = do
|
body _ = do
|
||||||
topImports >>= setCtx
|
topImports >>= setCtx
|
||||||
action
|
action
|
||||||
|
Loading…
Reference in New Issue
Block a user