From bc7855492d8bdb21437c6d6b94a9c1872da45f1f Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Fri, 14 Jun 2019 19:22:29 -0400 Subject: crayne parser: higher level interface. --- src/Wavefront/Lex.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Wavefront') diff --git a/src/Wavefront/Lex.hs b/src/Wavefront/Lex.hs index 7123184..78c6f1d 100644 --- a/src/Wavefront/Lex.hs +++ b/src/Wavefront/Lex.hs @@ -377,9 +377,9 @@ data ParamSpec = ParamU | ParamV deriving (Eq,Ord,Show,Enum) data RefTriple = RefTriple - { refV :: Int - , refT :: Maybe Int - , refN :: Maybe Int + { refV :: {-# UNPACK #-} !Int + , refT :: !(Maybe Int) + , refN :: !(Maybe Int) } -- data RefTriple = RefTriple Int (Maybe Int) (Maybe Int) deriving (Eq,Ord,Show) -- cgit v1.2.3