diff options
author | Tom Smeding <tom@tomsmeding.com> | 2024-06-09 12:52:50 +0200 |
---|---|---|
committer | Tom Smeding <tom@tomsmeding.com> | 2024-06-09 12:53:21 +0200 |
commit | 6e2c2594db3f32e98c66893943e02c9c0bde8c03 (patch) | |
tree | 89b50773d53f624b457422ab0bdb310ee0bf3f3c | |
parent | 9d31dca7288b0e5ff50dd9f44381b70b742755f2 (diff) |
-rw-r--r-- | repro.cabal | 8 | ||||
-rw-r--r-- | src/A.hs | 5 | ||||
-rw-r--r-- | src/B.hs | 4 | ||||
-rw-r--r-- | src/F.hs | 1 |
4 files changed, 5 insertions, 13 deletions
diff --git a/repro.cabal b/repro.cabal index 3a22448..09313f3 100644 --- a/repro.cabal +++ b/repro.cabal @@ -1,18 +1,14 @@ cabal-version: 3.0 name: repro version: 0.1.0.0 -author: Tom Smeding -license: BSD-3-Clause +license: NONE build-type: Simple library exposed-modules: F A B - build-depends: base, template-haskell, + build-depends: base, template-haskell hs-source-dirs: src c-sources: cbits/arith.c - - cc-options: -O3 -Wall -Wextra -std=c99 - default-language: Haskell2010 ghc-options: -Wall other-extensions: TemplateHaskell @@ -1,9 +1,8 @@ module A where import Language.Haskell.TH - import F -kaas :: Exp -kaas = LitE (StringL "kaas") +foo :: Exp +foo = LitE (StringL "foo") @@ -3,6 +3,4 @@ module B where import A - --- $([d| foo = $(LitE . StringL . show . isRelevant <$> [t| Ranked 4 Double |]) |]) -$([d| foo = $(return $ kaas) |]) +$([d| bar = $(return foo) |]) @@ -1,5 +1,4 @@ {-# LANGUAGE ForeignFunctionInterface #-} module F where - foreign import ccall "some_c_function" c_some_c_function :: IO () |