diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-05-20 01:41:53 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-05-20 01:41:53 +0000 |
| commit | 49849d7fe381bdf20e66e5255ee7d27a8dc300f9 (patch) | |
| tree | 2a37f1c5075952548bfd51540d0e8c0a94c90302 /src/Transfer/Core/Par.hs | |
| parent | 25bc367f4021b37da9eb25753264c1e9c1d5873e (diff) | |
Regenerated transfer bnfc stuff with latest bnfc, happy and alex, to be able to compile on GHC CVS.
Diffstat (limited to 'src/Transfer/Core/Par.hs')
| -rw-r--r-- | src/Transfer/Core/Par.hs | 22 |
1 files changed, 3 insertions, 19 deletions
diff --git a/src/Transfer/Core/Par.hs b/src/Transfer/Core/Par.hs index 3dfbb8b03..fec63662a 100644 --- a/src/Transfer/Core/Par.hs +++ b/src/Transfer/Core/Par.hs @@ -1,4 +1,5 @@ {-# OPTIONS -fglasgow-exts -cpp #-} +{-# OPTIONS -fno-warn-incomplete-patterns -fno-warn-overlapping-patterns #-} module Transfer.Core.Par where import Transfer.Core.Abs import Transfer.Core.Lex @@ -903,7 +904,6 @@ myLexer = tokens {-# LINE 1 "GenericTemplate.hs" #-} -- $Id$ - {-# LINE 28 "GenericTemplate.hs" #-} @@ -913,20 +913,11 @@ data Happy_IntList = HappyCons Int# Happy_IntList - {-# LINE 49 "GenericTemplate.hs" #-} - {-# LINE 59 "GenericTemplate.hs" #-} - - - - - - - - +{-# LINE 68 "GenericTemplate.hs" #-} infixr 9 `HappyStk` data HappyStk a = HappyStk a (HappyStk a) @@ -978,14 +969,7 @@ happyDoAction i tk st action | check = indexShortOffAddr happyTable off_i | otherwise = indexShortOffAddr happyDefActions st - - - - - - - - +{-# LINE 127 "GenericTemplate.hs" #-} indexShortOffAddr (HappyA# arr) off = |