Make St SourcePos strict and UNPACKed

Fixes mrkkrp#486
tomjaguarpaw · Sep 1, 2022 · 0bda620 · 0bda620
1 parent cd6302d
commit 0bda620
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Text/Megaparsec/Stream.hs b/Text/Megaparsec/Stream.hs
@@ -355,7 +355,7 @@ instance TraversableStream TL.Text where
 
 -- | An internal helper state type combining a difference 'String' and an
 -- unboxed 'SourcePos'.
-data St = St SourcePos ShowS
+data St = St {-# UNPACK #-} !SourcePos ShowS
 
 -- | A helper definition to facilitate defining 'reachOffset' for various
 -- stream types.