module Text.Happy.HappyTemplate where happyTemplate :: [Char] happyTemplate = [Char] "{-# LINE 1 \"templates\\GenericTemplate.hs\" #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# LINE 1 \"templates\\\\GenericTemplate.hs\" #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# LINE 1 \"<built-in>\" #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# LINE 1 \"<command line>\" #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# LINE 1 \"templates\\\\GenericTemplate.hs\" #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- Id: GenericTemplate.hs,v 1.26 2005/01/14 14:47:22 simonmar Exp \n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# LINE 28 \"templates\\\\GenericTemplate.hs\" #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# LINE 49 \"templates\\\\GenericTemplate.hs\" #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# LINE 59 \"templates\\\\GenericTemplate.hs\" #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# LINE 68 \"templates\\\\GenericTemplate.hs\" #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "infixr 9 `HappyStk`\n" forall a. [a] -> [a] -> [a] ++ [Char] "data HappyStk a = HappyStk a (HappyStk a)\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "-----------------------------------------------------------------------------\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- starting the parse\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyParse start_state = happyNewToken start_state notHappyAtAll notHappyAtAll\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "-----------------------------------------------------------------------------\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- Accepting the parse\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- If the current token is (1), it means we've just accepted a partial\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- parse (a %partial parser). We must ignore the saved token on the top of\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- the stack in this case.\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyAccept (1) tk st sts (_ `HappyStk` ans `HappyStk` _) =\n" forall a. [a] -> [a] -> [a] ++ [Char] "\thappyReturn1 ans\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyAccept j tk st sts (HappyStk ans _) = \n" forall a. [a] -> [a] -> [a] ++ [Char] "\t (happyReturn1 ans)\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "-----------------------------------------------------------------------------\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- Arrays only: do the next action\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# LINE 155 \"templates\\\\GenericTemplate.hs\" #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "-----------------------------------------------------------------------------\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- HappyState data type (not arrays)\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "newtype HappyState b c = HappyState\n" forall a. [a] -> [a] -> [a] ++ [Char] " (Int -> -- token number\n" forall a. [a] -> [a] -> [a] ++ [Char] " Int -> -- token number (yes, again)\n" forall a. [a] -> [a] -> [a] ++ [Char] " b -> -- token semantic value\n" forall a. [a] -> [a] -> [a] ++ [Char] " HappyState b c -> -- current state\n" forall a. [a] -> [a] -> [a] ++ [Char] " [HappyState b c] -> -- state stack\n" forall a. [a] -> [a] -> [a] ++ [Char] " c)\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "-----------------------------------------------------------------------------\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- Shifting a token\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyShift new_state (1) tk st sts stk@(x `HappyStk` _) =\n" forall a. [a] -> [a] -> [a] ++ [Char] " let i = (case x of { HappyErrorToken (i) -> i }) in\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- trace \"shifting the error token\" $\n" forall a. [a] -> [a] -> [a] ++ [Char] " new_state i i tk (HappyState (new_state)) ((st):(sts)) (stk)\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyShift new_state i tk st sts stk =\n" forall a. [a] -> [a] -> [a] ++ [Char] " happyNewToken new_state ((st):(sts)) ((HappyTerminal (tk))`HappyStk`stk)\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- happyReduce is specialised for the common cases.\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "happySpecReduce_0 i fn (1) tk st sts stk\n" forall a. [a] -> [a] -> [a] ++ [Char] " = happyFail (1) tk st sts stk\n" forall a. [a] -> [a] -> [a] ++ [Char] "happySpecReduce_0 nt fn j tk st@((HappyState (action))) sts stk\n" forall a. [a] -> [a] -> [a] ++ [Char] " = action nt j tk st ((st):(sts)) (fn `HappyStk` stk)\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "happySpecReduce_1 i fn (1) tk st sts stk\n" forall a. [a] -> [a] -> [a] ++ [Char] " = happyFail (1) tk st sts stk\n" forall a. [a] -> [a] -> [a] ++ [Char] "happySpecReduce_1 nt fn j tk _ sts@(((st@(HappyState (action))):(_))) (v1`HappyStk`stk')\n" forall a. [a] -> [a] -> [a] ++ [Char] " = let r = fn v1 in\n" forall a. [a] -> [a] -> [a] ++ [Char] " happySeq r (action nt j tk st sts (r `HappyStk` stk'))\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "happySpecReduce_2 i fn (1) tk st sts stk\n" forall a. [a] -> [a] -> [a] ++ [Char] " = happyFail (1) tk st sts stk\n" forall a. [a] -> [a] -> [a] ++ [Char] "happySpecReduce_2 nt fn j tk _ ((_):(sts@(((st@(HappyState (action))):(_))))) (v1`HappyStk`v2`HappyStk`stk')\n" forall a. [a] -> [a] -> [a] ++ [Char] " = let r = fn v1 v2 in\n" forall a. [a] -> [a] -> [a] ++ [Char] " happySeq r (action nt j tk st sts (r `HappyStk` stk'))\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "happySpecReduce_3 i fn (1) tk st sts stk\n" forall a. [a] -> [a] -> [a] ++ [Char] " = happyFail (1) tk st sts stk\n" forall a. [a] -> [a] -> [a] ++ [Char] "happySpecReduce_3 nt fn j tk _ ((_):(((_):(sts@(((st@(HappyState (action))):(_))))))) (v1`HappyStk`v2`HappyStk`v3`HappyStk`stk')\n" forall a. [a] -> [a] -> [a] ++ [Char] " = let r = fn v1 v2 v3 in\n" forall a. [a] -> [a] -> [a] ++ [Char] " happySeq r (action nt j tk st sts (r `HappyStk` stk'))\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyReduce k i fn (1) tk st sts stk\n" forall a. [a] -> [a] -> [a] ++ [Char] " = happyFail (1) tk st sts stk\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyReduce k nt fn j tk st sts stk\n" forall a. [a] -> [a] -> [a] ++ [Char] " = case happyDrop (k - ((1) :: Int)) sts of\n" forall a. [a] -> [a] -> [a] ++ [Char] "\t sts1@(((st1@(HappyState (action))):(_))) ->\n" forall a. [a] -> [a] -> [a] ++ [Char] " \tlet r = fn stk in -- it doesn't hurt to always seq here...\n" forall a. [a] -> [a] -> [a] ++ [Char] " \t\thappyDoSeq r (action nt j tk st1 sts1 r)\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyMonadReduce k nt fn (1) tk st sts stk\n" forall a. [a] -> [a] -> [a] ++ [Char] " = happyFail (1) tk st sts stk\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyMonadReduce k nt fn j tk st sts stk =\n" forall a. [a] -> [a] -> [a] ++ [Char] " happyThen1 (fn stk tk) (\\r -> action nt j tk st1 sts1 (r `HappyStk` drop_stk))\n" forall a. [a] -> [a] -> [a] ++ [Char] " where sts1@(((st1@(HappyState (action))):(_))) = happyDrop k ((st):(sts))\n" forall a. [a] -> [a] -> [a] ++ [Char] " drop_stk = happyDropStk k stk\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyMonad2Reduce k nt fn (1) tk st sts stk\n" forall a. [a] -> [a] -> [a] ++ [Char] " = happyFail (1) tk st sts stk\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyMonad2Reduce k nt fn j tk st sts stk =\n" forall a. [a] -> [a] -> [a] ++ [Char] " happyThen1 (fn stk tk) (\\r -> happyNewToken new_state sts1 (r `HappyStk` drop_stk))\n" forall a. [a] -> [a] -> [a] ++ [Char] " where sts1@(((st1@(HappyState (action))):(_))) = happyDrop k ((st):(sts))\n" forall a. [a] -> [a] -> [a] ++ [Char] " drop_stk = happyDropStk k stk\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] " new_state = action\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyDrop (0) l = l\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyDrop n ((_):(t)) = happyDrop (n - ((1) :: Int)) t\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyDropStk (0) l = l\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyDropStk n (x `HappyStk` xs) = happyDropStk (n - ((1)::Int)) xs\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "-----------------------------------------------------------------------------\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- Moving to a new state after a reduction\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# LINE 253 \"templates\\\\GenericTemplate.hs\" #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyGoto action j tk st = action j j tk (HappyState action)\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "-----------------------------------------------------------------------------\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- Error recovery ((1) is the error token)\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- parse error if we are in recovery and we fail again\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyFail (1) tk old_st _ stk =\n" forall a. [a] -> [a] -> [a] ++ [Char] "--\ttrace \"failing\" $ \n" forall a. [a] -> [a] -> [a] ++ [Char] " \thappyError_ tk\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "{- We don't need state discarding for our restricted implementation of\n" forall a. [a] -> [a] -> [a] ++ [Char] " \"error\". In fact, it can cause some bogus parses, so I've disabled it\n" forall a. [a] -> [a] -> [a] ++ [Char] " for now --SDM\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- discard a state\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyFail (1) tk old_st (((HappyState (action))):(sts)) \n" forall a. [a] -> [a] -> [a] ++ [Char] "\t\t\t\t\t\t(saved_tok `HappyStk` _ `HappyStk` stk) =\n" forall a. [a] -> [a] -> [a] ++ [Char] "--\ttrace (\"discarding state, depth \" ++ show (length stk)) $\n" forall a. [a] -> [a] -> [a] ++ [Char] "\taction (1) (1) tk (HappyState (action)) sts ((saved_tok`HappyStk`stk))\n" forall a. [a] -> [a] -> [a] ++ [Char] "-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- Enter error recovery: generate an error token,\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- save the old token and carry on.\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyFail i tk (HappyState (action)) sts stk =\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- trace \"entering error recovery\" $\n" forall a. [a] -> [a] -> [a] ++ [Char] "\taction (1) (1) tk (HappyState (action)) sts ( (HappyErrorToken (i)) `HappyStk` stk)\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- Internal happy errors:\\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "notHappyAtAll = error \"Internal Happy error\\n\"" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "-----------------------------------------------------------------------------\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- Hack to get the typechecker to accept our action functions\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "-----------------------------------------------------------------------------\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- Seq-ing. If the --strict flag is given, then Happy emits \n" forall a. [a] -> [a] -> [a] ++ [Char] "--\thappySeq = happyDoSeq\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- otherwise it emits\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- \thappySeq = happyDontSeq\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyDoSeq, happyDontSeq :: a -> b -> b\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyDoSeq a b = a `seq` b\n" forall a. [a] -> [a] -> [a] ++ [Char] "happyDontSeq a b = b\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "-----------------------------------------------------------------------------\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- Don't inline any functions from the template. GHC has a nasty habit\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- of deciding to inline happyGoto everywhere, which increases the size of\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- the generated parser quite a bit.\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# LINE 317 \"templates\\\\GenericTemplate.hs\" #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# NOINLINE happyShift #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# NOINLINE happySpecReduce_0 #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# NOINLINE happySpecReduce_1 #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# NOINLINE happySpecReduce_2 #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# NOINLINE happySpecReduce_3 #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# NOINLINE happyReduce #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# NOINLINE happyMonadReduce #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# NOINLINE happyGoto #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "{-# NOINLINE happyFail #-}\n" forall a. [a] -> [a] -> [a] ++ [Char] "\n" forall a. [a] -> [a] -> [a] ++ [Char] "-- end of Happy Template."