aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGregor Kleen <gkleen@yggdrasil.li>2016-01-15 01:39:24 +0000
committerGregor Kleen <gkleen@yggdrasil.li>2016-01-15 01:39:24 +0000
commit010dcfd8daa87a14b19ceebac83b6a84285d632f (patch)
tree95acb0dfc24f1d92ddabb77f1d75a72ad4ed58c7
parentca9d7f5b760cb3d56d7785b357590f54ede5b469 (diff)
downloadthermoprint-010dcfd8daa87a14b19ceebac83b6a84285d632f.tar
thermoprint-010dcfd8daa87a14b19ceebac83b6a84285d632f.tar.gz
thermoprint-010dcfd8daa87a14b19ceebac83b6a84285d632f.tar.bz2
thermoprint-010dcfd8daa87a14b19ceebac83b6a84285d632f.tar.xz
thermoprint-010dcfd8daa87a14b19ceebac83b6a84285d632f.zip
cleanup
-rw-r--r--bbcode/src/Text/BBCode.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/bbcode/src/Text/BBCode.hs b/bbcode/src/Text/BBCode.hs
index 0773124..2fdf3dc 100644
--- a/bbcode/src/Text/BBCode.hs
+++ b/bbcode/src/Text/BBCode.hs
@@ -102,7 +102,7 @@ rose = fmap Z.toForest . foldM (flip rose') (Z.fromForest [])
102 close tag pos = do 102 close tag pos = do
103 pos' <- maybe (Left $ ImbalancedTags tag) Right $ Z.parent pos >>= traversePars 103 pos' <- maybe (Left $ ImbalancedTags tag) Right $ Z.parent pos >>= traversePars
104 let 104 let
105 pTag = (\(BBTag t _) -> t) . Z.label $ pos' 105 pTag = (\(BBTag t _) -> t) $ Z.label pos'
106 unless (pTag `matches` tag) . Left $ MismatchedTags pTag tag -- The structure shows that this mode of failure is not logically required -- it's just nice to have 106 unless (pTag `matches` tag) . Left $ MismatchedTags pTag tag -- The structure shows that this mode of failure is not logically required -- it's just nice to have
107 return $ Z.nextSpace pos' 107 return $ Z.nextSpace pos'
108 where 108 where