From fb1806f3e9679373738496b090c72f2a6d4832b2 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Tue, 16 Oct 2018 17:18:59 -0400 Subject: [PATCH] whoops --- src/Semantic/Resource.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/Semantic/Resource.hs b/src/Semantic/Resource.hs index 55c69e9ae..2672115fa 100644 --- a/src/Semantic/Resource.hs +++ b/src/Semantic/Resource.hs @@ -30,6 +30,7 @@ runResource :: (Member (Lift IO) effects, PureEffects effects) -> Eff (Resource ': effects) a -> Eff effects a runResource handler = interpret (\(Resource fore aft go) - -> liftIO (Exc.bracket (handler (runResource handler fore)) - (handler . runResource handler . aft) - (handler . runResource handler . go) + -> liftIO (Exc.bracket + (handler (runResource handler fore)) + (handler . runResource handler . aft) + (handler . runResource handler . go)))