alex-meta 0.3.0.2 → 0.3.0.3

raw patch · 2 files changed

+9/−7 lines, 2 filesdep ~haskell-src-metadep ~template-haskell

Dependency ranges changed: haskell-src-meta, template-haskell

Files

• alex-meta.cabal +3/−3
• dist/build/Parser.hs +6/−4

@@ -1,5 +1,5 @@ Name:                alex-meta-Version:             0.3.0.2+Version:             0.3.0.3 Synopsis:            Quasi-quoter for Alex lexers -- Description:          License:             BSD3@@ -23,8 +23,8 @@      -- Packages needed in order to build this package.   Build-depends:-      template-haskell >=2.5&&<2.7-    , haskell-src-meta >=0.5&&<1.0+      template-haskell >=2.5&&<2.8+    , haskell-src-meta >=0.5.1.2&&<1.0     , base >= 4.2 && < 5     , array, containers     , QuickCheck >=2

@@ -21,7 +21,7 @@ import qualified Data.Array as Happy_Data_Array
 import qualified GHC.Exts as Happy_GHC_Exts
 
--- parser produced by Happy Version 1.18.6
+-- parser produced by Happy Version 1.18.9
 
 newtype HappyAbsSyn  = HappyAbsSyn HappyAny
 #if __GLASGOW_HASKELL__ >= 607
@@ -831,7 +831,8 @@ 	_ -> happyError' tk
 	})
 
-happyError_ tk = happyError' tk
+happyError_ 33# tk = happyError' tk
+happyError_ _ tk = happyError' tk
 
 happyThen :: () => P a -> (a -> P b) -> P b
 happyThen = ((>>=))
@@ -1053,9 +1054,10 @@ -- Error recovery (0# is the error token)
 
 -- parse error if we are in recovery and we fail again
-happyFail  0# tk old_st _ stk =
+happyFail 0# tk old_st _ stk@(x `HappyStk` _) =
+     let (i) = (case Happy_GHC_Exts.unsafeCoerce# x of { (Happy_GHC_Exts.I# (i)) -> i }) in
 --	trace "failing" $ 
-    	happyError_ tk
+        happyError_ i tk
 
 {-  We don't need state discarding for our restricted implementation of
     "error".  In fact, it can cause some bogus parses, so I've disabled it