diff options
| author | bringert <unknown> | 2004-12-02 16:13:16 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2004-12-02 16:13:16 +0000 |
| commit | 2e5bd1b547ea9910961cb3bd235a1b4688c629ad (patch) | |
| tree | 8d1ff9710b2a185be8ea2d03c2123a7f36f31914 /src/GF/Canon/ParGFC.hs | |
| parent | 78fa296cac2256fb50413d04a6629a8fd972e0de (diff) | |
Made GFC parser strict. Generated GFC lexer with alex -g. In total, this drops the memory residency after loading a large gfc file by about 40%.
Diffstat (limited to 'src/GF/Canon/ParGFC.hs')
| -rw-r--r-- | src/GF/Canon/ParGFC.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Canon/ParGFC.hs b/src/GF/Canon/ParGFC.hs index a88f17ed9..ed3bab271 100644 --- a/src/GF/Canon/ParGFC.hs +++ b/src/GF/Canon/ParGFC.hs @@ -1739,7 +1739,7 @@ happyReturn1 = \a tks -> (returnM) a pCanon tks = happyThen (happyParse 0# tks) (\x -> happyReturn (happyOut7 x)) -happySeq = happyDontSeq +happySeq = happyDoSeq -- H returnM :: a -> Err a returnM = return @@ -1753,7 +1753,7 @@ happyError ts = myLexer = tokens {-# LINE 1 "GenericTemplate.hs" #-} --- $Id: ParGFC.hs,v 1.4 2004/09/23 15:41:45 aarne Exp $ +-- $Id: ParGFC.hs,v 1.5 2004/12/02 17:13:17 bringert Exp $ |