Add failing test for template haskell splices #71

Closed
eborden wants to merge 1 commits from eborden/bug-top-level-template-haskell into dev
1 changed files with 18 additions and 1 deletions

View File

@ -590,6 +590,23 @@ func =
++ [ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc]
###############################################################################
###############################################################################
###############################################################################
#group template haskell
###############################################################################
###############################################################################
###############################################################################
#test top level splice
{-# LANGUAGE TemplateHaskell #-}
deriveFromJSON (unPrefix "assignPost") ''AssignmentPost
#test top level splice wrapped
{-# LANGUAGE TemplateHaskell #-}
$(deriveFromJSON (unPrefix "assignPost") ''AssignmentPost)
###############################################################################
###############################################################################
###############################################################################
@ -1057,7 +1074,7 @@ foo =
## from the input; i cannot really express this yet with the current
## test-suite.
## #test ayaz
##
##
## myManageHook =
## composeOne [isFullscreen -?> doFullFloat, isDialog -?> doFloat, transience]
## <+> composeAll