From e87cc5f16c1085c73394f9914f5a3a10b424136d Mon Sep 17 00:00:00 2001
From: VegOwOtenks <vegowotenks@jossco.de>
Date: Sat, 23 Aug 2025 18:18:09 +0200
Subject: [PATCH] feat: strict parser

---
 src/Language/Json/Parser.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Language/Json/Parser.hs b/src/Language/Json/Parser.hs
index d12769a..7e70472 100644
--- a/src/Language/Json/Parser.hs
+++ b/src/Language/Json/Parser.hs
@@ -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