Merge 910937985a into 37436e675a

src-literatetests/tests.blt

@@ -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