feat: strict parser

This commit is contained in:
vegowotenks 2025-08-23 18:18:09 +02:00
parent 58b1bbb021
commit e87cc5f16c

View file

@ -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