diff options
Diffstat (limited to 'src/AST')
| -rw-r--r-- | src/AST/Pretty.hs | 1 | ||||
| -rw-r--r-- | src/AST/Types.hs | 7 |
2 files changed, 8 insertions, 0 deletions
diff --git a/src/AST/Pretty.hs b/src/AST/Pretty.hs index 63742ad..51d89dc 100644 --- a/src/AST/Pretty.hs +++ b/src/AST/Pretty.hs @@ -278,6 +278,7 @@ operator OToFl64 = (Prefix, "toFl64") operator ORecip{} = (Prefix, "recip") operator OExp{} = (Prefix, "exp") operator OLog{} = (Prefix, "log") +operator OIDiv{} = (Infix, "`div`") ppTy :: Int -> STy t -> String ppTy d ty = ppTys d ty "" diff --git a/src/AST/Types.hs b/src/AST/Types.hs index 5688277..adcc760 100644 --- a/src/AST/Types.hs +++ b/src/AST/Types.hs @@ -100,3 +100,10 @@ type family ScalIsFloating t where ScalIsFloating TF32 = True ScalIsFloating TF64 = True ScalIsFloating TBool = False + +type family ScalIsIntegral t where + ScalIsIntegral TI32 = True + ScalIsIntegral TI64 = True + ScalIsIntegral TF32 = False + ScalIsIntegral TF64 = False + ScalIsIntegral TBool = False |