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 | |
| 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')
| -rw-r--r-- | tp-bbcode/src/Thermoprint/Printout/BBCode/Inverse.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tp-bbcode/src/Thermoprint/Printout/BBCode/Inverse.hs b/tp-bbcode/src/Thermoprint/Printout/BBCode/Inverse.hs index edd4c5a..8e15417 100644 --- a/tp-bbcode/src/Thermoprint/Printout/BBCode/Inverse.hs +++ b/tp-bbcode/src/Thermoprint/Printout/BBCode/Inverse.hs | |||
| @@ -24,10 +24,10 @@ import Data.Monoid | |||
| 24 | import Thermoprint.Printout | 24 | import Thermoprint.Printout |
| 25 | 25 | ||
| 26 | cobbcode :: Printout -> Either UnicodeException Text | 26 | cobbcode :: Printout -> Either UnicodeException Text |
| 27 | cobbcode (toList -> ps) = mconcat . intersperse "\n\n" <$> mapM handlePar ps | 27 | cobbcode (toList . getParagraphs -> ps) = mconcat . intersperse "\n\n" <$> mapM handlePar ps |
| 28 | 28 | ||
| 29 | handlePar :: Seq Chunk -> Either UnicodeException Text | 29 | handlePar :: Paragraph -> Either UnicodeException Text |
| 30 | handlePar (toList -> cs) = mconcat <$> mapM handleChunk cs | 30 | handlePar (toList . getChunks -> cs) = mconcat <$> mapM handleChunk cs |
| 31 | 31 | ||
| 32 | handleChunk :: Chunk -> Either UnicodeException Text | 32 | handleChunk :: Chunk -> Either UnicodeException Text |
| 33 | handleChunk (Cooked b) = Right $ handleBlock b | 33 | handleChunk (Cooked b) = Right $ handleBlock b |