diff options
| author | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-07-17 19:21:56 +0200 |
|---|---|---|
| committer | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-07-17 19:21:56 +0200 |
| commit | 2b9ceaead3f3cd80e973cccecb9a3eebc51154f7 (patch) | |
| tree | df2378943480647606b6a06f62c0f4b8b2ab406d /tp-bbcode/src/Thermoprint/Printout/BBCode.hs | |
| parent | ac4cf4a0a494eafe55364f816569c517684fdf32 (diff) | |
| download | thermoprint-2b9ceaead3f3cd80e973cccecb9a3eebc51154f7.tar thermoprint-2b9ceaead3f3cd80e973cccecb9a3eebc51154f7.tar.gz thermoprint-2b9ceaead3f3cd80e973cccecb9a3eebc51154f7.tar.bz2 thermoprint-2b9ceaead3f3cd80e973cccecb9a3eebc51154f7.tar.xz thermoprint-2b9ceaead3f3cd80e973cccecb9a3eebc51154f7.zip | |
Fixes for GHC 8.0.1
Diffstat (limited to 'tp-bbcode/src/Thermoprint/Printout/BBCode.hs')
| -rw-r--r-- | tp-bbcode/src/Thermoprint/Printout/BBCode.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tp-bbcode/src/Thermoprint/Printout/BBCode.hs b/tp-bbcode/src/Thermoprint/Printout/BBCode.hs index cbe2618..dd5edb0 100644 --- a/tp-bbcode/src/Thermoprint/Printout/BBCode.hs +++ b/tp-bbcode/src/Thermoprint/Printout/BBCode.hs | |||
| @@ -104,7 +104,7 @@ morph :: DomForest -> Either SemanticError Printout | |||
| 104 | -- ^ Parse a list of paragraphs | 104 | -- ^ Parse a list of paragraphs |
| 105 | -- | 105 | -- |
| 106 | -- Since we permit only cooked input via 'Raw' 'Paragraph' is identical to 'Block' | 106 | -- Since we permit only cooked input via 'Raw' 'Paragraph' is identical to 'Block' |
| 107 | morph = fmap Seq.fromList . mapM (\t -> Seq.singleton . Cooked <$> parse BlockCtx t) | 107 | morph = fmap (Printout . Seq.fromList) . mapM (\t -> Paragraph . Seq.singleton . Cooked <$> parse BlockCtx t) |
| 108 | 108 | ||
| 109 | parseDom :: DomTree -> ParseResult | 109 | parseDom :: DomTree -> ParseResult |
| 110 | -- ^ Invoke 'asLine' and 'asBlock' to parse a single 'DomTree' | 110 | -- ^ Invoke 'asLine' and 'asBlock' to parse a single 'DomTree' |