diff options
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 fa9d892..33101e5 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" 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" 1 |
| 127 | asLine t _ = const $ Left . UnmappedLineElement . CI.original $ t | 127 | asLine t _ = const $ Left . UnmappedLineElement . CI.original $ t |