feat: strict parser
This commit is contained in:
parent
58b1bbb021
commit
e87cc5f16c
1 changed files with 1 additions and 1 deletions
|
@ -9,7 +9,7 @@ import Data.Functor (($>))
|
|||
newtype Parser a = Parser (Text -> Reply a)
|
||||
|
||||
data Reply a
|
||||
= Done Text a -- rest, result
|
||||
= Done !Text !a -- rest, result
|
||||
| Fail
|
||||
|
||||
instance Functor Reply where
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue