aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/A.hs9
-rw-r--r--src/B.hs8
-rw-r--r--src/F.hs5
3 files changed, 22 insertions, 0 deletions
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 ()