feat[core]: Function Property: Argument modification

This commit is contained in:
vegowotenks 2025-08-17 18:19:00 +02:00
parent a38a20a546
commit c78ed4ac90
12 changed files with 138 additions and 3 deletions

11
test/Test/Tasty/TH.hs Normal file
View 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