parenthesis around #{const ..}.

wavewave · Aug 30, 2023 · bd733a2 · bd733a2
1 parent c5f7502
commit bd733a2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fficxx/src/FFICXX/Generate/Code/HsEnum.hs b/fficxx/src/FFICXX/Generate/Code/HsEnum.hs
@@ -57,7 +57,7 @@ genHsEnumDecl enum =
     mk1to1 (x, y) = ([mkPVar x], mkVar y, EmptyLocalBinds noExtField)
     mkFromIntegralCxx x =
       mkVar "fromIntegral"
-        `app` mkVarWithComment "" ("#{const " <> x <> "}")
+        `app` mkVarWithComment "" ("( #{const " <> x <> "} )")
     -- NOTE: toEnum should not be used.
     -- TODO: make this somewhat safer with error messages.
     mkToEnum = [([wildcard], mkVar "undefined", EmptyLocalBinds noExtField)]