summaryrefslogtreecommitdiff
path: root/src/Transfer/Syntax/Par.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Transfer/Syntax/Par.hs')
-rw-r--r--src/Transfer/Syntax/Par.hs22
1 files changed, 3 insertions, 19 deletions
diff --git a/src/Transfer/Syntax/Par.hs b/src/Transfer/Syntax/Par.hs
index f5869c75d..bd83f0a87 100644
--- a/src/Transfer/Syntax/Par.hs
+++ b/src/Transfer/Syntax/Par.hs
@@ -1,4 +1,5 @@
{-# OPTIONS -fglasgow-exts -cpp #-}
+{-# OPTIONS -fno-warn-incomplete-patterns -fno-warn-overlapping-patterns #-}
module Transfer.Syntax.Par where
import Transfer.Syntax.Abs
import Transfer.Syntax.Lex
@@ -1576,7 +1577,6 @@ myLexer = tokens
{-# LINE 1 "GenericTemplate.hs" #-}
-- $Id$
-
{-# LINE 28 "GenericTemplate.hs" #-}
@@ -1586,20 +1586,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)
@@ -1651,14 +1642,7 @@ happyDoAction i tk st
action | check = indexShortOffAddr happyTable off_i
| otherwise = indexShortOffAddr happyDefActions st
-
-
-
-
-
-
-
-
+{-# LINE 127 "GenericTemplate.hs" #-}
indexShortOffAddr (HappyA# arr) off =