From 4cc2edbfb3c58941d19416c0f50e5c5a80c6357e Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 24 Apr 2018 14:14:20 -0400 Subject: [PATCH] Spacing. --- src/Semantic/Util.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Semantic/Util.hs b/src/Semantic/Util.hs index 932a24382..9f185a42e 100644 --- a/src/Semantic/Util.hs +++ b/src/Semantic/Util.hs @@ -46,6 +46,7 @@ newtype Erroring (exc :: * -> *) m (effects :: [* -> *]) a = Erroring (m effects deriving (Alternative, Applicative, Effectful, Functor, Monad) deriving instance MonadEvaluator location term value effects m => MonadEvaluator location term value effects (Erroring exc m) + instance MonadAnalysis location term value effects m => MonadAnalysis location term value effects (Erroring exc m) where type Effects location term value (Erroring exc m) = Resumable exc ': Effects location term value m