diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-06-14 19:22:29 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-06-14 19:22:29 -0400 |
| commit | bc7855492d8bdb21437c6d6b94a9c1872da45f1f (patch) | |
| tree | 2577c9bbae84957bec410976bab6fa6021653837 /src/Wavefront | |
| parent | 95f7c67b576f4e1ae897ea010da90d406681f018 (diff) | |
crayne parser: higher level interface.
Diffstat (limited to 'src/Wavefront')
| -rw-r--r-- | src/Wavefront/Lex.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 | |||
| 377 | deriving (Eq,Ord,Show,Enum) | 377 | deriving (Eq,Ord,Show,Enum) |
| 378 | 378 | ||
| 379 | data RefTriple = RefTriple | 379 | data RefTriple = RefTriple |
| 380 | { refV :: Int | 380 | { refV :: {-# UNPACK #-} !Int |
| 381 | , refT :: Maybe Int | 381 | , refT :: !(Maybe Int) |
| 382 | , refN :: Maybe Int | 382 | , refN :: !(Maybe Int) |
| 383 | } | 383 | } |
| 384 | -- data RefTriple = RefTriple Int (Maybe Int) (Maybe Int) | 384 | -- data RefTriple = RefTriple Int (Maybe Int) (Maybe Int) |
| 385 | deriving (Eq,Ord,Show) | 385 | deriving (Eq,Ord,Show) |