diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2025-03-12 23:20:13 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2025-03-13 09:27:51 +0100 |
| commit | ed6acbe5f409aba2fb222693da567ce04b7c4e01 (patch) | |
| tree | becbef3f3afeed63c248f057dae6fef0cb6c6147 /src/Data/Array/Mixed/Internal/Arith/Lists/TH.hs | |
| parent | bcda5b7eb20874f948fbdc23b6daa3ebb792ffe0 (diff) | |
Implement quot/rem
Diffstat (limited to 'src/Data/Array/Mixed/Internal/Arith/Lists/TH.hs')
| -rw-r--r-- | src/Data/Array/Mixed/Internal/Arith/Lists/TH.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Data/Array/Mixed/Internal/Arith/Lists/TH.hs b/src/Data/Array/Mixed/Internal/Arith/Lists/TH.hs index 8b7d05f..a156e29 100644 --- a/src/Data/Array/Mixed/Internal/Arith/Lists/TH.hs +++ b/src/Data/Array/Mixed/Internal/Arith/Lists/TH.hs @@ -10,7 +10,7 @@ import Language.Haskell.TH.Syntax import Text.Read -data OpKind = Binop | FBinop | Unop | FUnop | Redop +data OpKind = Binop | IBinop | FBinop | Unop | FUnop | Redop deriving (Show, Eq) readArithLists :: OpKind @@ -48,6 +48,7 @@ readArithLists targetkind fop fcombine = do parseField s = break (`elem` ",)") (dropWhile (== ' ') s) parseKind "BINOP" = Just Binop + parseKind "IBINOP" = Just IBinop parseKind "FBINOP" = Just FBinop parseKind "UNOP" = Just Unop parseKind "FUNOP" = Just FUnop |