From ff0f73caa6d29095fec222119ea8af7ba6f9bc47 Mon Sep 17 00:00:00 2001 From: "Restyled.io" Date: Thu, 23 May 2024 15:53:03 +0000 Subject: [PATCH] Restyled by fourmolu --- src/Disco/Interpret/CESK.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Disco/Interpret/CESK.hs b/src/Disco/Interpret/CESK.hs index 70c14096..7ddc7a9b 100644 --- a/src/Disco/Interpret/CESK.hs +++ b/src/Disco/Interpret/CESK.hs @@ -269,9 +269,9 @@ appConst k = \case OExp -> numOp2' expOp >>> outWithErr where expOp :: Member (Error EvalError) r => Rational -> Rational -> Sem r Value - expOp m n - | m == 0 && n < 0 = throw DivByZero - | otherwise = return $ ratv (m ^^ numerator n) + expOp m n + | m == 0 && n < 0 = throw DivByZero + | otherwise = return $ ratv (m ^^ numerator n) OMod -> numOp2' modOp >>> outWithErr where modOp :: Member (Error EvalError) r => Rational -> Rational -> Sem r Value