diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-05-26 14:57:34 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-05-26 14:57:34 +0200 |
| commit | e80b2593edc3d216905279ebcfa797593a1efbfc (patch) | |
| tree | 5e5057e03f35369983f6600efc59c438c0cf2366 /src/Data/Array/Nested/Internal/Arith/Lists | |
| parent | 2ac16efe59051e0cdeb37422ab579c8d354d562a (diff) | |
Fast Fractional ops via C code
Diffstat (limited to 'src/Data/Array/Nested/Internal/Arith/Lists')
| -rw-r--r-- | src/Data/Array/Nested/Internal/Arith/Lists/TH.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Data/Array/Nested/Internal/Arith/Lists/TH.hs b/src/Data/Array/Nested/Internal/Arith/Lists/TH.hs index b748b97..b40a066 100644 --- a/src/Data/Array/Nested/Internal/Arith/Lists/TH.hs +++ b/src/Data/Array/Nested/Internal/Arith/Lists/TH.hs @@ -9,7 +9,7 @@ import Language.Haskell.TH import Text.Read -data OpKind = Binop | Unop | Redop +data OpKind = Binop | FBinop | Unop | FUnop | Redop deriving (Show, Eq) readArithLists :: OpKind @@ -46,7 +46,9 @@ readArithLists targetkind fop fcombine = do parseField s = break (`elem` ",)") (dropWhile (== ' ') s) parseKind "BINOP" = Just Binop + parseKind "FBINOP" = Just FBinop parseKind "UNOP" = Just Unop + parseKind "FUNOP" = Just FUnop parseKind "REDOP" = Just Redop parseKind _ = Nothing |