feat[core]: Function Property: Argument modification
This commit is contained in:
parent
a38a20a546
commit
c78ed4ac90
12 changed files with 138 additions and 3 deletions
11
test/Test/Tasty/TH.hs
Normal file
11
test/Test/Tasty/TH.hs
Normal file
|
@ -0,0 +1,11 @@
|
|||
{-# LANGUAGE Safe #-} -- does template haskell, but no IO inside it
|
||||
module Test.Tasty.TH (moduleName) where
|
||||
|
||||
import Language.Haskell.TH.Lib (thisModule)
|
||||
import Language.Haskell.TH.Syntax (Q, Exp(LitE), ModName(ModName), Lit(StringL), Module (Module))
|
||||
|
||||
moduleName :: Q Exp
|
||||
moduleName = do
|
||||
Module _ (ModName name) <- thisModule
|
||||
pure . LitE . StringL $ name
|
||||
|
Loading…
Add table
Add a link
Reference in a new issue