templates/GenericTemplate.hs:175:9: Warning: Bindings containing unlifted types must use an outermost bang pattern: { i = (case x of { HappyErrorToken (Happy_GHC_Exts.I# (i)) -> i }) } *** This will be an error in GHC 6.14! Fix your code now! In the expression: let i = (case x of { HappyErrorToken (Happy_GHC_Exts.I# (i)) -> i }) in new_state i i tk (HappyState (new_state)) ((st) : (sts)) (stk) In the definition of `happyShift': happyShift new_state 1# tk st sts (stk@(x HappyStk _)) = let i = (case x of { HappyErrorToken (Happy_GHC_Exts.I# (i)) -> ... }) in new_state i i tk (HappyState (new_state)) ((st) : (sts)) (stk)