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