aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTom Smeding <tom@tomsmeding.com>2024-06-09 12:52:50 +0200
committerTom Smeding <tom@tomsmeding.com>2024-06-09 12:53:21 +0200
commit6e2c2594db3f32e98c66893943e02c9c0bde8c03 (patch)
tree89b50773d53f624b457422ab0bdb310ee0bf3f3c
parent9d31dca7288b0e5ff50dd9f44381b70b742755f2 (diff)
Clean up the codeHEADmaster
-rw-r--r--repro.cabal8
-rw-r--r--src/A.hs5
-rw-r--r--src/B.hs4
-rw-r--r--src/F.hs1
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
diff --git a/src/A.hs b/src/A.hs
index 3b994e1..629a6fd 100644
--- a/src/A.hs
+++ b/src/A.hs
@@ -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")
diff --git a/src/B.hs b/src/B.hs
index 1b88325..35f1127 100644
--- a/src/B.hs
+++ b/src/B.hs
@@ -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) |])
diff --git a/src/F.hs b/src/F.hs
index 911a3db..7268cfa 100644
--- a/src/F.hs
+++ b/src/F.hs
@@ -1,5 +1,4 @@
{-# LANGUAGE ForeignFunctionInterface #-}
module F where
-
foreign import ccall "some_c_function" c_some_c_function :: IO ()