From 122f8fa9e5f8dc8a7bc431957b48363179853824 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sun, 9 Jun 2024 12:12:30 +0200
Subject: Initial

---
 src/A.hs | 9 +++++++++
 src/B.hs | 8 ++++++++
 src/F.hs | 5 +++++
 3 files changed, 22 insertions(+)
 create mode 100644 src/A.hs
 create mode 100644 src/B.hs
 create mode 100644 src/F.hs

(limited to 'src')

diff --git a/src/A.hs b/src/A.hs
new file mode 100644
index 0000000..3b994e1
--- /dev/null
+++ b/src/A.hs
@@ -0,0 +1,9 @@
+module A where
+
+import Language.Haskell.TH
+
+import F
+
+
+kaas :: Exp
+kaas = LitE (StringL "kaas")
diff --git a/src/B.hs b/src/B.hs
new file mode 100644
index 0000000..1b88325
--- /dev/null
+++ b/src/B.hs
@@ -0,0 +1,8 @@
+{-# LANGUAGE TemplateHaskell #-}
+module B where
+
+import A
+
+
+-- $([d| foo = $(LitE . StringL . show . isRelevant <$> [t| Ranked 4 Double |]) |])
+$([d| foo = $(return $ kaas) |])
diff --git a/src/F.hs b/src/F.hs
new file mode 100644
index 0000000..911a3db
--- /dev/null
+++ b/src/F.hs
@@ -0,0 +1,5 @@
+{-# LANGUAGE ForeignFunctionInterface #-}
+module F where
+
+
+foreign import ccall "some_c_function" c_some_c_function :: IO ()
-- 
cgit v1.2.3-70-g09d2