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

---
 src/A.hs | 5 ++---
 src/B.hs | 4 +---
 src/F.hs | 1 -
 3 files changed, 3 insertions(+), 7 deletions(-)

(limited to 'src')

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