diff options
author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-18 11:36:09 +0000 |
---|---|---|
committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-18 11:36:09 +0000 |
commit | f0ad3abb87d540c75a397a722ca5310d6d16cec9 (patch) | |
tree | 2a0459dc1d401ec7ed13372af7cce573760a5b3a /spec/src/Thermoprint/Printout/BBCode.hs | |
parent | c605c0b51011f794256df1b7b3ddeb305bb91902 (diff) | |
download | thermoprint-f0ad3abb87d540c75a397a722ca5310d6d16cec9.tar thermoprint-f0ad3abb87d540c75a397a722ca5310d6d16cec9.tar.gz thermoprint-f0ad3abb87d540c75a397a722ca5310d6d16cec9.tar.bz2 thermoprint-f0ad3abb87d540c75a397a722ca5310d6d16cec9.tar.xz thermoprint-f0ad3abb87d540c75a397a722ca5310d6d16cec9.zip |
Made attributes more lenient yet
Diffstat (limited to 'spec/src/Thermoprint/Printout/BBCode.hs')
-rw-r--r-- | spec/src/Thermoprint/Printout/BBCode.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 | |||
119 | parse ctx = mergeResult ctx . map parseDom | 119 | parse ctx = mergeResult ctx . map parseDom |
120 | 120 | ||
121 | asBlock :: CI Text -> [DomTree] -> Map (CI Text) Text -> Either SemanticError Block | 121 | asBlock :: CI Text -> [DomTree] -> Map (CI Text) Text -> Either SemanticError Block |
122 | asBlock "VSpace" _ = Right . VSpace . lookupAttr "height" 1 | 122 | asBlock "VSpace" _ = Right . VSpace . lookupAttr "height" True 1 |
123 | asBlock t _ = const $ Left . UnmappedBlockElement . CI.original $ t | 123 | asBlock t _ = const $ Left . UnmappedBlockElement . CI.original $ t |
124 | 124 | ||
125 | asLine :: CI Text -> [DomTree] -> Map (CI Text) Text -> Either SemanticError Line | 125 | asLine :: CI Text -> [DomTree] -> Map (CI Text) Text -> Either SemanticError Line |
126 | asLine "HSpace" _ = Right . HSpace . lookupAttr "width" 1 | 126 | asLine "HSpace" _ = Right . HSpace . lookupAttr "width" True 1 |
127 | asLine t _ = const $ Left . UnmappedLineElement . CI.original $ t | 127 | asLine t _ = const $ Left . UnmappedLineElement . CI.original $ t |