1 files changed, 2 insertions, 2 deletions

diff --git a/app/Data/Res.hs b/app/Data/Res.hs
index e8c4ca4..3806e5a 100644
--- a/app/Data/Res.hs
+++ b/app/Data/Res.hs
@@ -19,10 +19,10 @@ instance Monad (Res e) where
   (Ok v) >>= f = f v
   (Err e) >>= _ = Err e
 
-instance IsString e => MonadFail (Res e) where
+instance (IsString e) => MonadFail (Res e) where
   fail = Err . fromString
 
-instance IsString e => Alternative (Res e) where
+instance (IsString e) => Alternative (Res e) where
   empty = fail "mzero"
   m1@(Ok _) <|> _ = m1
   (Err _) <|> m2 = m2