diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-15 01:39:24 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-15 01:39:24 +0000 |
| commit | 010dcfd8daa87a14b19ceebac83b6a84285d632f (patch) | |
| tree | 95acb0dfc24f1d92ddabb77f1d75a72ad4ed58c7 | |
| parent | ca9d7f5b760cb3d56d7785b357590f54ede5b469 (diff) | |
| download | thermoprint-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.hs | 2 |
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 |