diff options
Diffstat (limited to 'TypeRules.hs')
| -rw-r--r-- | TypeRules.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/TypeRules.hs b/TypeRules.hs index a3e7678..2bafe63 100644 --- a/TypeRules.hs +++ b/TypeRules.hs @@ -22,7 +22,7 @@ isIntegralType TChar = True isIntegralType _ = False isSimpleArithBO :: BinaryOp -> Bool -isSimpleArithBO = flip elem [BOAdd, BOSub, BOMul, BODiv, BOMod] +isSimpleArithBO = flip elem [BOAdd, BOSub, BOMul, BODiv, BOMod, BOBitAnd, BOBitOr, BOBitXor] isBoolBO :: BinaryOp -> Bool isBoolBO = flip elem [BOAnd, BOOr] |