Fix inliner for integer bitwise operators

brandonhamilton · brandonhamilton · commit b2526f5e83ed · 2016-10-24T23:18:10.000+02:00
diff --git a/src/Language/PureScript/CodeGen/JS/Optimizer/Inliner.hs b/src/Language/PureScript/CodeGen/JS/Optimizer/Inliner.hs
@@ -150,9 +150,9 @@ inlineCommonOperators = applyAll $
   , binary heytingAlgebraBoolean opDisj Or
   , unary  heytingAlgebraBoolean opNot Not
 
-  , binary' C.dataIntBits (C..|.) BitwiseOr
-  , binary' C.dataIntBits (C..&.) BitwiseAnd
-  , binary' C.dataIntBits (C..^.) BitwiseXor
+  , binary' C.dataIntBits C.or BitwiseOr
+  , binary' C.dataIntBits C.and BitwiseAnd
+  , binary' C.dataIntBits C.xor BitwiseXor
   , binary' C.dataIntBits C.shl ShiftLeft
   , binary' C.dataIntBits C.shr ShiftRight
   , binary' C.dataIntBits C.zshr ZeroFillShiftRight
diff --git a/src/Language/PureScript/Constants.hs b/src/Language/PureScript/Constants.hs
@@ -118,14 +118,14 @@ disj = "disj"
 unsafeIndex :: String
 unsafeIndex = "unsafeIndex"
 
-(.|.) :: String
-(.|.) = ".|."
+or :: String
+or = "or"
 
-(.&.) :: String
-(.&.) = ".&."
+and :: String
+and = "and"
 
-(.^.) :: String
-(.^.) = ".^."
+xor :: String
+xor = "xor"
 
 (<<<) :: String
 (<<<) = "<<<"
