diff options
Diffstat (limited to 'spec/src')
| -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 8df70c0..1ca1e01 100644 --- a/spec/src/Thermoprint/Printout/BBCode.hs +++ b/spec/src/Thermoprint/Printout/BBCode.hs | |||
| @@ -71,8 +71,8 @@ data ParseResult = RBlock Block -- ^ Parses only as 'Block' | |||
| 71 | 71 | ||
| 72 | -- | Current parser context | 72 | -- | Current parser context |
| 73 | data Context a where | 73 | data Context a where |
| 74 | BlockCtx :: Context Block -- ^ Parsing 'Block's | 74 | BlockCtx :: Context Block |
| 75 | LineCtx :: Context Line -- ^ Parsing 'Line's | 75 | LineCtx :: Context Line |
| 76 | 76 | ||
| 77 | extract :: Context a -> ParseResult -> Either SemanticError a | 77 | extract :: Context a -> ParseResult -> Either SemanticError a |
| 78 | -- ^ Extract information from a 'ParseResult' given 'Context' | 78 | -- ^ Extract information from a 'ParseResult' given 'Context' |