diff options
Diffstat (limited to 'bbcode/src/Text/BBCode.hs')
| -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 |