From f0ad3abb87d540c75a397a722ca5310d6d16cec9 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Mon, 18 Jan 2016 11:36:09 +0000 Subject: Made attributes more lenient yet --- spec/src/Thermoprint/Printout/BBCode.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'spec/src/Thermoprint/Printout/BBCode.hs') diff --git a/spec/src/Thermoprint/Printout/BBCode.hs b/spec/src/Thermoprint/Printout/BBCode.hs index 33101e5..8825732 100644 --- a/spec/src/Thermoprint/Printout/BBCode.hs +++ b/spec/src/Thermoprint/Printout/BBCode.hs @@ -119,9 +119,9 @@ parse :: Monoid a => Context a -> [DomTree] -> Either SemanticError a parse ctx = mergeResult ctx . map parseDom asBlock :: CI Text -> [DomTree] -> Map (CI Text) Text -> Either SemanticError Block -asBlock "VSpace" _ = Right . VSpace . lookupAttr "height" 1 +asBlock "VSpace" _ = Right . VSpace . lookupAttr "height" True 1 asBlock t _ = const $ Left . UnmappedBlockElement . CI.original $ t asLine :: CI Text -> [DomTree] -> Map (CI Text) Text -> Either SemanticError Line -asLine "HSpace" _ = Right . HSpace . lookupAttr "width" 1 +asLine "HSpace" _ = Right . HSpace . lookupAttr "width" True 1 asLine t _ = const $ Left . UnmappedLineElement . CI.original $ t -- cgit v1.2.3