diff --git a/fficxx/src/FFICXX/Generate/Code/HsEnum.hs b/fficxx/src/FFICXX/Generate/Code/HsEnum.hs index 3eaa690..13fb181 100644 --- 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)]