From 49849d7fe381bdf20e66e5255ee7d27a8dc300f9 Mon Sep 17 00:00:00 2001 From: bringert Date: Sat, 20 May 2006 01:41:53 +0000 Subject: Regenerated transfer bnfc stuff with latest bnfc, happy and alex, to be able to compile on GHC CVS. --- src/Transfer/Core/Par.hs | 22 +++------------------- 1 file changed, 3 insertions(+), 19 deletions(-) (limited to 'src/Transfer/Core/Par.hs') 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 = -- cgit v1.2.3