diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/A.hs | 9 | ||||
| -rw-r--r-- | src/B.hs | 8 | ||||
| -rw-r--r-- | src/F.hs | 5 |
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 () |