From 2b9ceaead3f3cd80e973cccecb9a3eebc51154f7 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 17 Jul 2016 19:21:56 +0200 Subject: Fixes for GHC 8.0.1 --- tp-bbcode/test/Thermoprint/Printout/BBCodeSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tp-bbcode/test') diff --git a/tp-bbcode/test/Thermoprint/Printout/BBCodeSpec.hs b/tp-bbcode/test/Thermoprint/Printout/BBCodeSpec.hs index 09b3147..7909360 100644 --- a/tp-bbcode/test/Thermoprint/Printout/BBCodeSpec.hs +++ b/tp-bbcode/test/Thermoprint/Printout/BBCodeSpec.hs @@ -53,7 +53,7 @@ normalize = (!! 3) . iterate normalize' . first (const ()) join' _ = Left () pOut :: Seq Block -> Printout -pOut = fmap (pure . Cooked) +pOut = Printout . fmap (Paragraph . pure . Cooked) examples :: [(Text, Either BBCodeError (Seq Block))] examples = [ ("Hello World!" -- cgit v1.2.3