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
 import Thermoprint.Printout
 
 cobbcode :: Printout -> Either UnicodeException Text
-cobbcode (toList -> ps) = mconcat . intersperse "\n\n" <$> mapM handlePar ps
+cobbcode (toList . getParagraphs -> ps) = mconcat . intersperse "\n\n" <$> mapM handlePar ps
 
-handlePar :: Seq Chunk -> Either UnicodeException Text
-handlePar (toList -> cs) = mconcat <$> mapM handleChunk cs
+handlePar :: Paragraph -> Either UnicodeException Text
+handlePar (toList . getChunks -> cs) = mconcat <$> mapM handleChunk cs
 
 handleChunk :: Chunk -> Either UnicodeException Text
 handleChunk (Cooked b) = Right $ handleBlock b