diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-05-27 19:15:07 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-05-27 19:15:07 +0200 |
| commit | d68d58192065c60be420a9d8cabd731e5cc7e105 (patch) | |
| tree | 01e7a79735a420c74ac7ce6abc7dc20a81077804 /src/Data/Array/Nested/Internal/Arith/Lists/TH.hs | |
| parent | 32163af81b09c3d5813fd44df0d5f8b7c0e2fba6 (diff) | |
Record the dependency on arith_lists.h for recompilation checking
Diffstat (limited to 'src/Data/Array/Nested/Internal/Arith/Lists/TH.hs')
| -rw-r--r-- | src/Data/Array/Nested/Internal/Arith/Lists/TH.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Data/Array/Nested/Internal/Arith/Lists/TH.hs b/src/Data/Array/Nested/Internal/Arith/Lists/TH.hs index b40a066..7142dfa 100644 --- a/src/Data/Array/Nested/Internal/Arith/Lists/TH.hs +++ b/src/Data/Array/Nested/Internal/Arith/Lists/TH.hs @@ -6,6 +6,7 @@ import Control.Monad.IO.Class import Data.Maybe import Foreign.C.Types import Language.Haskell.TH +import Language.Haskell.TH.Syntax import Text.Read @@ -17,6 +18,7 @@ readArithLists :: OpKind -> ([a] -> Q r) -> Q r readArithLists targetkind fop fcombine = do + addDependentFile "cbits/arith_lists.h" lns <- liftIO $ lines <$> readFile "cbits/arith_lists.h" mvals <- forM lns $ \line -> do |