From 6e2c2594db3f32e98c66893943e02c9c0bde8c03 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sun, 9 Jun 2024 12:52:50 +0200
Subject: Clean up the code

---
 repro.cabal | 8 ++------
 src/A.hs    | 5 ++---
 src/B.hs    | 4 +---
 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
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 ()
-- 
cgit v1.2.3-70-g09d2