Improve code quality

iu-parfunc · Oct 4, 2023 · f335418 · f335418
1 parent 9aec7e6
commit f335418
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/gibbon-compiler/src/Gibbon/L1/GenSML.hs b/gibbon-compiler/src/Gibbon/L1/GenSML.hs
@@ -156,13 +156,12 @@ ppPrim pr pes = case pr of
   FMulP -> binary "*" pes
   FDivP -> binary "/" pes
   FExpP ->
-    let
-      (l, r) = extractBinary "pow" pes
-    in
     parens $ hsep
       [ "Math.pow"
       , parens $ hcat [l, comma, r]
       ]
+    where
+      (l, r) = extractBinary "pow" pes
   FRandP -> ppCurried "Random.randFloat" pes
   EqFloatP -> binary "=" pes
   EqCharP -> binary "=" pes