From 010dcfd8daa87a14b19ceebac83b6a84285d632f Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 15 Jan 2016 01:39:24 +0000 Subject: cleanup --- bbcode/src/Text/BBCode.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 []) close tag pos = do pos' <- maybe (Left $ ImbalancedTags tag) Right $ Z.parent pos >>= traversePars let - pTag = (\(BBTag t _) -> t) . Z.label $ pos' + pTag = (\(BBTag t _) -> t) $ Z.label pos' 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 return $ Z.nextSpace pos' where -- cgit v1.2.3