hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Add failing test for template haskell splices #71

Closed
eborden wants to merge 1 commits from eborden/bug-top-level-template-haskell into dev
pull from: eborden/bug-top-level-template-haskell
merge into: hexagoxel:dev
Conversation 3 Commits 1 Files Changed 1
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src-literatetests/tests.blt
View File

@ -590,6 +590,23 @@ func =
++ [ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc] ++ [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 ## from the input; i cannot really express this yet with the current
## test-suite. ## test-suite.
## #test ayaz ## #test ayaz
## ##
## myManageHook = ## myManageHook =
## composeOne [isFullscreen -?> doFullFloat, isDialog -?> doFloat, transience] ## composeOne [isFullscreen -?> doFullFloat, isDialog -?> doFloat, transience]
## <+> composeAll ## <+> composeAll