Restyled by fourmolu

disco-lang · May 23, 2024 · ff0f73c · ff0f73c
1 parent ab8be7e
commit ff0f73c
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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