glualint-1.29.0: src/GLuaFixer/AG/LexLint.hs
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# LANGUAGE CPP #-}
-- UUAGC 0.9.56 (src/GLuaFixer/AG/LexLint.ag)
module GLuaFixer.AG.LexLint(
lintWarnings,
fixedLexPositions
) where
{-# LINE 8 "src/GLuaFixer/AG/../../GLua/AG/Token.ag" #-}
import GLua.Position
{-# LINE 17 "src/GLuaFixer/AG/LexLint.hs" #-}
{-# LINE 15 "src/GLuaFixer/AG/LexLint.ag" #-}
import Control.Applicative ((<|>))
import Data.List
import GLua.TokenTypes
import GLua.AG.Token
import GLua.Position
import GLuaFixer.LintMessage
import GLuaFixer.LintSettings
{-# LINE 28 "src/GLuaFixer/AG/LexLint.hs" #-}
{-# LINE 27 "src/GLuaFixer/AG/LexLint.ag" #-}
----------------------------------------
-- C-style / Lua-style syntax inconsistencies
----------------------------------------
-- For detecting the usage of Lua/C syntax inconsistently. 'Nothing' means no evidence of the style,
-- and 'Just Region' represents the last place where the style was found to be used.
data SyntaxUsed = SyntaxUsed
{ lastLuaExample :: Maybe Region
, lastCExample :: Maybe Region
}
deriving (Show)
instance Semigroup SyntaxUsed where
-- Later uses have preference over earlier uses
(SyntaxUsed l1 c1) <> (SyntaxUsed l2 c2) = SyntaxUsed (l2 <|> l1) (c2 <|> c1)
-- Monoid instance
instance Monoid SyntaxUsed where
mempty = SyntaxUsed Nothing Nothing
previousSyntaxUsedRegion :: SyntaxUsed -> Maybe Region
previousSyntaxUsedRegion syntaxUsed = case syntaxUsed of
SyntaxUsed (Just l) (Just c) -> Just $ min l c
-- There is no previous region if there is no syntax inconsistency
SyntaxUsed {} -> Nothing
-- | Whether there is evidence of Lua style code
luaUsed :: SyntaxUsed -> Bool
luaUsed (SyntaxUsed (Just _) _) = True
luaUsed _ = False
-- | Whether there is evidence of C style code
cUsed :: SyntaxUsed -> Bool
cUsed (SyntaxUsed _ (Just _)) = True
cUsed _ = False
-- | Quick helper to turn a bool and region into a member for 'SyntaxUsed'
mkSyntax :: Bool -> Region -> Maybe Region
mkSyntax b region = if b then Just region else Nothing
-- | Whether the syntax is consistent
consistent :: SyntaxUsed -> Bool
consistent syntaxUsed = case syntaxUsed of
SyntaxUsed (Just _) (Just _) -> False
_ -> True
mTokenWarning :: Region -> Issue -> FilePath -> LintMessage
mTokenWarning pos issue = LintMessage LintWarning pos issue
-- | Shorthand for throwing _two_ warnings when an inconsistency occurs: one at the original place
-- and one at the new place.
warnInconsistency :: SyntaxUsed -> Issue -> [FilePath -> LintMessage] -> [FilePath -> LintMessage]
warnInconsistency syntaxUsed issue messages = case syntaxUsed of
SyntaxUsed (Just luaRegion) (Just cRegion) ->
LintMessage LintWarning luaRegion issue :
LintMessage LintWarning cRegion issue :
messages
_ -> messages
-- | Handy function to reset the built up knowledge of 'SyntaxUsed' when it is found to be
-- inconsistent.
resetIfInconsistent :: SyntaxUsed -> SyntaxUsed
resetIfInconsistent syntaxUsed = case syntaxUsed of
SyntaxUsed (Just {}) (Just {}) -> SyntaxUsed Nothing Nothing
_ -> syntaxUsed
isSingleChar :: String -> Bool
isSingleChar [] = True
isSingleChar ('\\' : xs) = length xs == 1
isSingleChar (_ : []) = True
isSingleChar _ = False
-- Locate the exact position of trailing whitespace
locateTrailingWhitespace :: LineColPos -> String -> (LineColPos, String)
locateTrailingWhitespace pos (' ' : xs) = (pos, xs)
locateTrailingWhitespace pos ('\t' : xs) = (pos, xs)
locateTrailingWhitespace pos (x : xs) = locateTrailingWhitespace (customAdvanceChr pos x) xs
locateTrailingWhitespace pos [] = (pos, "")
-- Locate the start of a line's indentation in a string of whitespace
indentationStart :: LineColPos -> String -> LineColPos
indentationStart pos = go pos pos
where
go :: LineColPos -> LineColPos -> String -> LineColPos
go _ cur ('\n' : xs) = let next = customAdvanceChr cur '\n' in go next next xs
go found cur (x : xs) = go found (customAdvanceChr cur x) xs
go found _ [] = found
endOfTrailingWhitespace :: (LineColPos, String) -> LineColPos
endOfTrailingWhitespace (pos, ('\n' : _)) = pos
endOfTrailingWhitespace (pos, (x : xs)) = endOfTrailingWhitespace (customAdvanceChr pos x, xs)
endOfTrailingWhitespace (pos, []) = pos
{-# LINE 125 "src/GLuaFixer/AG/LexLint.hs" #-}
{-# LINE 296 "src/GLuaFixer/AG/LexLint.ag" #-}
inh_MTokenList :: LintSettings -> Inh_MTokenList
inh_MTokenList conf =
Inh_MTokenList {
config_Inh_MTokenList = conf,
andSyntax_Inh_MTokenList = mempty,
indentation_Inh_MTokenList = mempty,
lineCommentSyntax_Inh_MTokenList = mempty,
multilineCommentSyntax_Inh_MTokenList = mempty,
neqSyntax_Inh_MTokenList = mempty,
notSyntax_Inh_MTokenList = mempty,
orSyntax_Inh_MTokenList = mempty,
strSyntax_Inh_MTokenList = mempty,
nextTokenPos_Inh_MTokenList = LineColPos 0 0 0
}
lintWarnings :: LintSettings -> [MToken] -> [String -> LintMessage]
lintWarnings conf p = warnings_Syn_MTokenList (wrap_MTokenList (sem_MTokenList p) (inh_MTokenList conf))
-- Necessary because the parser walks over tabs as though they are 8 spaces.
fixedLexPositions :: [MToken] -> [MToken]
fixedLexPositions p = copy_Syn_MTokenList (wrap_MTokenList (sem_MTokenList p) (inh_MTokenList defaultLintSettings))
{-# LINE 152 "src/GLuaFixer/AG/LexLint.hs" #-}
-- MToken ------------------------------------------------------
-- cata
sem_MToken :: MToken ->
T_MToken
sem_MToken (MToken _mpos _mtok) =
(sem_MToken_MToken _mpos (sem_Token _mtok))
-- semantic domain
type T_MToken = SyntaxUsed ->
LintSettings ->
SyntaxUsed ->
SyntaxUsed ->
SyntaxUsed ->
SyntaxUsed ->
LineColPos ->
SyntaxUsed ->
SyntaxUsed ->
SyntaxUsed ->
( SyntaxUsed,MToken,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,LineColPos,SyntaxUsed,SyntaxUsed,SyntaxUsed,([FilePath -> LintMessage]))
data Inh_MToken = Inh_MToken {andSyntax_Inh_MToken :: SyntaxUsed,config_Inh_MToken :: LintSettings,indentation_Inh_MToken :: SyntaxUsed,lineCommentSyntax_Inh_MToken :: SyntaxUsed,multilineCommentSyntax_Inh_MToken :: SyntaxUsed,neqSyntax_Inh_MToken :: SyntaxUsed,nextTokenPos_Inh_MToken :: LineColPos,notSyntax_Inh_MToken :: SyntaxUsed,orSyntax_Inh_MToken :: SyntaxUsed,strSyntax_Inh_MToken :: SyntaxUsed}
data Syn_MToken = Syn_MToken {andSyntax_Syn_MToken :: SyntaxUsed,copy_Syn_MToken :: MToken,indentation_Syn_MToken :: SyntaxUsed,lineCommentSyntax_Syn_MToken :: SyntaxUsed,multilineCommentSyntax_Syn_MToken :: SyntaxUsed,neqSyntax_Syn_MToken :: SyntaxUsed,nextTokenPos_Syn_MToken :: LineColPos,notSyntax_Syn_MToken :: SyntaxUsed,orSyntax_Syn_MToken :: SyntaxUsed,strSyntax_Syn_MToken :: SyntaxUsed,warnings_Syn_MToken :: ([FilePath -> LintMessage])}
wrap_MToken :: T_MToken ->
Inh_MToken ->
Syn_MToken
wrap_MToken sem (Inh_MToken _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax) =
(let ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) = sem _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax
in (Syn_MToken _lhsOandSyntax _lhsOcopy _lhsOindentation _lhsOlineCommentSyntax _lhsOmultilineCommentSyntax _lhsOneqSyntax _lhsOnextTokenPos _lhsOnotSyntax _lhsOorSyntax _lhsOstrSyntax _lhsOwarnings))
sem_MToken_MToken :: Region ->
T_Token ->
T_MToken
sem_MToken_MToken mpos_ mtok_ =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInextTokenPos
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInextTokenPos
{-# LINE 195 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _mtokOnextTokenPos ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 200 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _mtokOandSyntax ->
(case (mtok_ _mtokOnextTokenPos) of
{ ( _mtokInextTokenPos,mtok_1) ->
(case (({-# LINE 156 "src/GLuaFixer/AG/LexLint.ag" #-}
Region _lhsInextTokenPos _mtokInextTokenPos
{-# LINE 207 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _mpos ->
(case (({-# LINE 157 "src/GLuaFixer/AG/LexLint.ag" #-}
_mpos
{-# LINE 212 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _mtokOmpos ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 217 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _mtokOstrSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 222 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _mtokOorSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 227 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _mtokOnotSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 232 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _mtokOneqSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 237 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _mtokOmultilineCommentSyntax ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 242 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _mtokOlineCommentSyntax ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 247 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _mtokOindentation ->
(case (({-# LINE 128 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIconfig
{-# LINE 252 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _mtokOconfig ->
(case (mtok_1 _mtokOandSyntax _mtokOconfig _mtokOindentation _mtokOlineCommentSyntax _mtokOmpos _mtokOmultilineCommentSyntax _mtokOneqSyntax _mtokOnotSyntax _mtokOorSyntax _mtokOstrSyntax) of
{ ( _mtokIandSyntax,_mtokIcopy,_mtokIindentation,_mtokIlineCommentSyntax,_mtokImultilineCommentSyntax,_mtokIneqSyntax,_mtokInotSyntax,_mtokIorSyntax,_mtokIstrSyntax,_mtokIwarnings) ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_mtokIandSyntax
{-# LINE 259 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 160 "src/GLuaFixer/AG/LexLint.ag" #-}
MToken (const _mpos mpos_) _mtokIcopy
{-# LINE 264 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 269 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_mtokIindentation
{-# LINE 274 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_mtokIlineCommentSyntax
{-# LINE 279 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_mtokImultilineCommentSyntax
{-# LINE 284 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_mtokIneqSyntax
{-# LINE 289 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}
_mtokInextTokenPos
{-# LINE 294 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_mtokInotSyntax
{-# LINE 299 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_mtokIorSyntax
{-# LINE 304 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_mtokIstrSyntax
{-# LINE 309 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
_mtokIwarnings
{-# LINE 314 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
-- MTokenList --------------------------------------------------
-- cata
sem_MTokenList :: MTokenList ->
T_MTokenList
sem_MTokenList list =
(Prelude.foldr sem_MTokenList_Cons sem_MTokenList_Nil (Prelude.map sem_MToken list))
-- semantic domain
type T_MTokenList = SyntaxUsed ->
LintSettings ->
SyntaxUsed ->
SyntaxUsed ->
SyntaxUsed ->
SyntaxUsed ->
LineColPos ->
SyntaxUsed ->
SyntaxUsed ->
SyntaxUsed ->
( SyntaxUsed,MTokenList,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,LineColPos,SyntaxUsed,SyntaxUsed,SyntaxUsed,([FilePath -> LintMessage]))
data Inh_MTokenList = Inh_MTokenList {andSyntax_Inh_MTokenList :: SyntaxUsed,config_Inh_MTokenList :: LintSettings,indentation_Inh_MTokenList :: SyntaxUsed,lineCommentSyntax_Inh_MTokenList :: SyntaxUsed,multilineCommentSyntax_Inh_MTokenList :: SyntaxUsed,neqSyntax_Inh_MTokenList :: SyntaxUsed,nextTokenPos_Inh_MTokenList :: LineColPos,notSyntax_Inh_MTokenList :: SyntaxUsed,orSyntax_Inh_MTokenList :: SyntaxUsed,strSyntax_Inh_MTokenList :: SyntaxUsed}
data Syn_MTokenList = Syn_MTokenList {andSyntax_Syn_MTokenList :: SyntaxUsed,copy_Syn_MTokenList :: MTokenList,indentation_Syn_MTokenList :: SyntaxUsed,lineCommentSyntax_Syn_MTokenList :: SyntaxUsed,multilineCommentSyntax_Syn_MTokenList :: SyntaxUsed,neqSyntax_Syn_MTokenList :: SyntaxUsed,nextTokenPos_Syn_MTokenList :: LineColPos,notSyntax_Syn_MTokenList :: SyntaxUsed,orSyntax_Syn_MTokenList :: SyntaxUsed,strSyntax_Syn_MTokenList :: SyntaxUsed,warnings_Syn_MTokenList :: ([FilePath -> LintMessage])}
wrap_MTokenList :: T_MTokenList ->
Inh_MTokenList ->
Syn_MTokenList
wrap_MTokenList sem (Inh_MTokenList _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax) =
(let ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) = sem _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax
in (Syn_MTokenList _lhsOandSyntax _lhsOcopy _lhsOindentation _lhsOlineCommentSyntax _lhsOmultilineCommentSyntax _lhsOneqSyntax _lhsOnextTokenPos _lhsOnotSyntax _lhsOorSyntax _lhsOstrSyntax _lhsOwarnings))
sem_MTokenList_Cons :: T_MToken ->
T_MTokenList ->
T_MTokenList
sem_MTokenList_Cons hd_ tl_ =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInextTokenPos
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInextTokenPos
{-# LINE 360 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _hdOnextTokenPos ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 365 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _hdOstrSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 370 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _hdOorSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 375 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _hdOnotSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 380 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _hdOneqSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 385 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _hdOmultilineCommentSyntax ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 390 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _hdOlineCommentSyntax ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 395 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _hdOindentation ->
(case (({-# LINE 128 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIconfig
{-# LINE 400 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _hdOconfig ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 405 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _hdOandSyntax ->
(case (hd_ _hdOandSyntax _hdOconfig _hdOindentation _hdOlineCommentSyntax _hdOmultilineCommentSyntax _hdOneqSyntax _hdOnextTokenPos _hdOnotSyntax _hdOorSyntax _hdOstrSyntax) of
{ ( _hdIandSyntax,_hdIcopy,_hdIindentation,_hdIlineCommentSyntax,_hdImultilineCommentSyntax,_hdIneqSyntax,_hdInextTokenPos,_hdInotSyntax,_hdIorSyntax,_hdIstrSyntax,_hdIwarnings) ->
(case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}
_hdInextTokenPos
{-# LINE 412 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _tlOnextTokenPos ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_hdIandSyntax
{-# LINE 417 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _tlOandSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_hdIstrSyntax
{-# LINE 422 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _tlOstrSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_hdIorSyntax
{-# LINE 427 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _tlOorSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_hdInotSyntax
{-# LINE 432 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _tlOnotSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_hdIneqSyntax
{-# LINE 437 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _tlOneqSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_hdImultilineCommentSyntax
{-# LINE 442 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _tlOmultilineCommentSyntax ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_hdIlineCommentSyntax
{-# LINE 447 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _tlOlineCommentSyntax ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_hdIindentation
{-# LINE 452 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _tlOindentation ->
(case (({-# LINE 128 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIconfig
{-# LINE 457 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _tlOconfig ->
(case (tl_ _tlOandSyntax _tlOconfig _tlOindentation _tlOlineCommentSyntax _tlOmultilineCommentSyntax _tlOneqSyntax _tlOnextTokenPos _tlOnotSyntax _tlOorSyntax _tlOstrSyntax) of
{ ( _tlIandSyntax,_tlIcopy,_tlIindentation,_tlIlineCommentSyntax,_tlImultilineCommentSyntax,_tlIneqSyntax,_tlInextTokenPos,_tlInotSyntax,_tlIorSyntax,_tlIstrSyntax,_tlIwarnings) ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_tlIandSyntax
{-# LINE 464 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
(:) _hdIcopy _tlIcopy
{-# LINE 469 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 474 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_tlIindentation
{-# LINE 479 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_tlIlineCommentSyntax
{-# LINE 484 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_tlImultilineCommentSyntax
{-# LINE 489 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_tlIneqSyntax
{-# LINE 494 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}
_tlInextTokenPos
{-# LINE 499 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_tlInotSyntax
{-# LINE 504 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_tlIorSyntax
{-# LINE 509 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_tlIstrSyntax
{-# LINE 514 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
_hdIwarnings ++ _tlIwarnings
{-# LINE 519 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
sem_MTokenList_Nil :: T_MTokenList
sem_MTokenList_Nil =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInextTokenPos
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 537 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 542 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 547 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 552 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 557 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 562 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 567 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInextTokenPos
{-# LINE 572 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 577 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 582 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 587 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 592 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }))
-- Token -------------------------------------------------------
-- cata
sem_Token :: Token ->
T_Token
sem_Token (Whitespace _space) =
(sem_Token_Whitespace _space)
sem_Token (DashComment _comment) =
(sem_Token_DashComment _comment)
sem_Token (DashBlockComment _depth _comment) =
(sem_Token_DashBlockComment _depth _comment)
sem_Token (SlashComment _comment) =
(sem_Token_SlashComment _comment)
sem_Token (SlashBlockComment _comment) =
(sem_Token_SlashBlockComment _comment)
sem_Token (Semicolon) =
(sem_Token_Semicolon)
sem_Token (TNumber _num) =
(sem_Token_TNumber _num)
sem_Token (DQString _str) =
(sem_Token_DQString _str)
sem_Token (SQString _str) =
(sem_Token_SQString _str)
sem_Token (MLString _str) =
(sem_Token_MLString _str)
sem_Token (TTrue) =
(sem_Token_TTrue)
sem_Token (TFalse) =
(sem_Token_TFalse)
sem_Token (Nil) =
(sem_Token_Nil)
sem_Token (VarArg) =
(sem_Token_VarArg)
sem_Token (Plus) =
(sem_Token_Plus)
sem_Token (Minus) =
(sem_Token_Minus)
sem_Token (Multiply) =
(sem_Token_Multiply)
sem_Token (Divide) =
(sem_Token_Divide)
sem_Token (Modulus) =
(sem_Token_Modulus)
sem_Token (Power) =
(sem_Token_Power)
sem_Token (TEq) =
(sem_Token_TEq)
sem_Token (TNEq) =
(sem_Token_TNEq)
sem_Token (TCNEq) =
(sem_Token_TCNEq)
sem_Token (TLEQ) =
(sem_Token_TLEQ)
sem_Token (TGEQ) =
(sem_Token_TGEQ)
sem_Token (TLT) =
(sem_Token_TLT)
sem_Token (TGT) =
(sem_Token_TGT)
sem_Token (Equals) =
(sem_Token_Equals)
sem_Token (Concatenate) =
(sem_Token_Concatenate)
sem_Token (Colon) =
(sem_Token_Colon)
sem_Token (Dot) =
(sem_Token_Dot)
sem_Token (Comma) =
(sem_Token_Comma)
sem_Token (Hash) =
(sem_Token_Hash)
sem_Token (Not) =
(sem_Token_Not)
sem_Token (CNot) =
(sem_Token_CNot)
sem_Token (And) =
(sem_Token_And)
sem_Token (CAnd) =
(sem_Token_CAnd)
sem_Token (Or) =
(sem_Token_Or)
sem_Token (COr) =
(sem_Token_COr)
sem_Token (Function) =
(sem_Token_Function)
sem_Token (Local) =
(sem_Token_Local)
sem_Token (If) =
(sem_Token_If)
sem_Token (Then) =
(sem_Token_Then)
sem_Token (Elseif) =
(sem_Token_Elseif)
sem_Token (Else) =
(sem_Token_Else)
sem_Token (For) =
(sem_Token_For)
sem_Token (In) =
(sem_Token_In)
sem_Token (Do) =
(sem_Token_Do)
sem_Token (While) =
(sem_Token_While)
sem_Token (Until) =
(sem_Token_Until)
sem_Token (Repeat) =
(sem_Token_Repeat)
sem_Token (Continue) =
(sem_Token_Continue)
sem_Token (Break) =
(sem_Token_Break)
sem_Token (Return) =
(sem_Token_Return)
sem_Token (End) =
(sem_Token_End)
sem_Token (LRound) =
(sem_Token_LRound)
sem_Token (RRound) =
(sem_Token_RRound)
sem_Token (LCurly) =
(sem_Token_LCurly)
sem_Token (RCurly) =
(sem_Token_RCurly)
sem_Token (LSquare) =
(sem_Token_LSquare)
sem_Token (RSquare) =
(sem_Token_RSquare)
sem_Token (Label _whitespaceBefore _lbl _whitespaceAfter) =
(sem_Token_Label _whitespaceBefore _lbl _whitespaceAfter)
sem_Token (Identifier _ident) =
(sem_Token_Identifier _ident)
-- semantic domain
type T_Token = LineColPos ->
( LineColPos,T_Token_1)
type T_Token_1 = SyntaxUsed ->
LintSettings ->
SyntaxUsed ->
SyntaxUsed ->
Region ->
SyntaxUsed ->
SyntaxUsed ->
SyntaxUsed ->
SyntaxUsed ->
SyntaxUsed ->
( SyntaxUsed,Token,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,([FilePath -> LintMessage]))
data Inh_Token = Inh_Token {andSyntax_Inh_Token :: SyntaxUsed,config_Inh_Token :: LintSettings,indentation_Inh_Token :: SyntaxUsed,lineCommentSyntax_Inh_Token :: SyntaxUsed,mpos_Inh_Token :: Region,multilineCommentSyntax_Inh_Token :: SyntaxUsed,neqSyntax_Inh_Token :: SyntaxUsed,nextTokenPos_Inh_Token :: LineColPos,notSyntax_Inh_Token :: SyntaxUsed,orSyntax_Inh_Token :: SyntaxUsed,strSyntax_Inh_Token :: SyntaxUsed}
data Syn_Token = Syn_Token {andSyntax_Syn_Token :: SyntaxUsed,copy_Syn_Token :: Token,indentation_Syn_Token :: SyntaxUsed,lineCommentSyntax_Syn_Token :: SyntaxUsed,multilineCommentSyntax_Syn_Token :: SyntaxUsed,neqSyntax_Syn_Token :: SyntaxUsed,nextTokenPos_Syn_Token :: LineColPos,notSyntax_Syn_Token :: SyntaxUsed,orSyntax_Syn_Token :: SyntaxUsed,strSyntax_Syn_Token :: SyntaxUsed,warnings_Syn_Token :: ([FilePath -> LintMessage])}
wrap_Token :: T_Token ->
Inh_Token ->
Syn_Token
wrap_Token sem (Inh_Token _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImpos _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax) =
(let ( _lhsOnextTokenPos,sem_1) = sem _lhsInextTokenPos
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) = sem_1 _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImpos _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax
in (Syn_Token _lhsOandSyntax _lhsOcopy _lhsOindentation _lhsOlineCommentSyntax _lhsOmultilineCommentSyntax _lhsOneqSyntax _lhsOnextTokenPos _lhsOnotSyntax _lhsOorSyntax _lhsOstrSyntax _lhsOwarnings))
sem_Token_Whitespace :: String ->
T_Token
sem_Token_Whitespace space_ =
(\ _lhsInextTokenPos ->
(case (({-# LINE 164 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInextTokenPos
{-# LINE 755 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _curTokenPos ->
(case (({-# LINE 165 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceStr _curTokenPos space_
{-# LINE 760 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _nextTokenPos ->
(case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}
_nextTokenPos
{-# LINE 765 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Whitespace_1 :: T_Token_1
sem_Token_Whitespace_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 782 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Whitespace space_
{-# LINE 787 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 792 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 177 "src/GLuaFixer/AG/LexLint.ag" #-}
Region (indentationStart _curTokenPos space_) _nextTokenPos
{-# LINE 797 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _indentationRg ->
(case (({-# LINE 168 "src/GLuaFixer/AG/LexLint.ag" #-}
mkSyntax (isInfixOf "\n\t" space_) _indentationRg
{-# LINE 802 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _usesTabs ->
(case (({-# LINE 167 "src/GLuaFixer/AG/LexLint.ag" #-}
mkSyntax (isInfixOf "\n " space_) _indentationRg
{-# LINE 807 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _usesSpaces ->
(case (({-# LINE 169 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation <> SyntaxUsed _usesSpaces _usesTabs
{-# LINE 812 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _combinedSyntaxUsed ->
(case (({-# LINE 170 "src/GLuaFixer/AG/LexLint.ag" #-}
resetIfInconsistent _combinedSyntaxUsed
{-# LINE 817 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _indentation ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_indentation
{-# LINE 822 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 827 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 832 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 837 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 842 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 847 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 852 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 857 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 173 "src/GLuaFixer/AG/LexLint.ag" #-}
locateTrailingWhitespace _curTokenPos space_
{-# LINE 862 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _whitespaceStart ->
(case (({-# LINE 174 "src/GLuaFixer/AG/LexLint.ag" #-}
endOfTrailingWhitespace _whitespaceStart
{-# LINE 867 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _whitespaceEnd ->
(case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-}
if not (lint_trailingWhitespace _lhsIconfig) || (not (isInfixOf " \n" space_) && not (isInfixOf "\t\n" space_)) then id else (:) $ mTokenWarning (Region (fst _whitespaceStart ) _whitespaceEnd ) TrailingWhitespace
{-# LINE 872 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_f2 ->
(case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-}
if not (lint_whitespaceStyle _lhsIconfig) then id else
warnInconsistency _combinedSyntaxUsed InconsistentTabsSpaces
{-# LINE 878 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2]
{-# LINE 883 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Whitespace_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }) }))
sem_Token_DashComment :: String ->
T_Token
sem_Token_DashComment comment_ =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
DashComment comment_
{-# LINE 896 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 185 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 901 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _nextTokenPos ->
(case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}
_nextTokenPos
{-# LINE 906 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_DashComment_1 :: T_Token_1
sem_Token_DashComment_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 923 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 928 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 933 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 187 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax <> SyntaxUsed (Just _lhsImpos) Nothing
{-# LINE 938 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _combinedSyntaxUsed ->
(case (({-# LINE 188 "src/GLuaFixer/AG/LexLint.ag" #-}
resetIfInconsistent _combinedSyntaxUsed
{-# LINE 943 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lineCommentSyntax ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lineCommentSyntax
{-# LINE 948 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 953 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 958 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 963 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 968 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 973 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 189 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 978 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 189 "src/GLuaFixer/AG/LexLint.ag" #-}
if not (lint_syntaxInconsistencies _lhsIconfig) then id else
warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "--" "//"
{-# LINE 984 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 189 "src/GLuaFixer/AG/LexLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 989 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Token_DashComment_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }) }))
sem_Token_DashBlockComment :: Int ->
String ->
T_Token
sem_Token_DashBlockComment depth_ comment_ =
(\ _lhsInextTokenPos ->
(case (({-# LINE 202 "src/GLuaFixer/AG/LexLint.ag" #-}
showString "--[" . showString (replicate depth_ '-') . showChar '[' . showString comment_ . showChar ']' . showString (replicate depth_ '-') . showChar ']' $ ""
{-# LINE 1003 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _str ->
(case (({-# LINE 203 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceStr _lhsInextTokenPos _str
{-# LINE 1008 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_DashBlockComment_1 :: T_Token_1
sem_Token_DashBlockComment_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 1025 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
DashBlockComment depth_ comment_
{-# LINE 1030 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 1035 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 1040 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 1045 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 205 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax <> SyntaxUsed (Just _lhsImpos) Nothing
{-# LINE 1050 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _combinedSyntaxUsed ->
(case (({-# LINE 206 "src/GLuaFixer/AG/LexLint.ag" #-}
resetIfInconsistent _combinedSyntaxUsed
{-# LINE 1055 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _multilineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_multilineCommentSyntax
{-# LINE 1060 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 1065 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 1070 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 1075 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 1080 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 207 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 1085 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 207 "src/GLuaFixer/AG/LexLint.ag" #-}
if not (lint_syntaxInconsistencies _lhsIconfig) then id else
warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "--[[ ]]" "/* */"
{-# LINE 1091 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 207 "src/GLuaFixer/AG/LexLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 1096 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Token_DashBlockComment_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_SlashComment :: String ->
T_Token
sem_Token_SlashComment comment_ =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
SlashComment comment_
{-# LINE 1109 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 193 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 1114 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _nextTokenPos ->
(case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}
_nextTokenPos
{-# LINE 1119 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_SlashComment_1 :: T_Token_1
sem_Token_SlashComment_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 1136 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 1141 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 1146 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 195 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax <> SyntaxUsed Nothing (Just _lhsImpos)
{-# LINE 1151 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _combinedSyntaxUsed ->
(case (({-# LINE 196 "src/GLuaFixer/AG/LexLint.ag" #-}
resetIfInconsistent _combinedSyntaxUsed
{-# LINE 1156 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lineCommentSyntax ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lineCommentSyntax
{-# LINE 1161 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 1166 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 1171 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 1176 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 1181 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 1186 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 197 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 1191 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 197 "src/GLuaFixer/AG/LexLint.ag" #-}
if not (lint_syntaxInconsistencies _lhsIconfig) then id else
warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "//" "--"
{-# LINE 1197 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 197 "src/GLuaFixer/AG/LexLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 1202 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Token_SlashComment_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }) }))
sem_Token_SlashBlockComment :: String ->
T_Token
sem_Token_SlashBlockComment comment_ =
(\ _lhsInextTokenPos ->
(case (({-# LINE 211 "src/GLuaFixer/AG/LexLint.ag" #-}
showString "/*" . showString comment_ . showString "*/" $ ""
{-# LINE 1215 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _str ->
(case (({-# LINE 212 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceStr _lhsInextTokenPos _str
{-# LINE 1220 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_SlashBlockComment_1 :: T_Token_1
sem_Token_SlashBlockComment_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 1237 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
SlashBlockComment comment_
{-# LINE 1242 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 1247 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 1252 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 1257 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 214 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax <> SyntaxUsed Nothing (Just _lhsImpos)
{-# LINE 1262 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _combinedSyntaxUsed ->
(case (({-# LINE 215 "src/GLuaFixer/AG/LexLint.ag" #-}
resetIfInconsistent _combinedSyntaxUsed
{-# LINE 1267 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _multilineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_multilineCommentSyntax
{-# LINE 1272 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 1277 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 1282 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 1287 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 1292 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 216 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 1297 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 216 "src/GLuaFixer/AG/LexLint.ag" #-}
if not (lint_syntaxInconsistencies _lhsIconfig) then id else
warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "/* */" "--[[ ]]"
{-# LINE 1303 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 216 "src/GLuaFixer/AG/LexLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 1308 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Token_SlashBlockComment_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Semicolon :: T_Token
sem_Token_Semicolon =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Semicolon
{-# LINE 1320 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 1325 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Semicolon_1 :: T_Token_1
sem_Token_Semicolon_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 1342 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 1347 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 1352 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 1357 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 1362 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 1367 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 1372 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 1377 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 1382 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 1387 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Semicolon_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_TNumber :: String ->
T_Token
sem_Token_TNumber num_ =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
TNumber num_
{-# LINE 1400 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 1405 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_TNumber_1 :: T_Token_1
sem_Token_TNumber_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 1422 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 1427 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 1432 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 1437 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 1442 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 1447 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 1452 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 1457 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 1462 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 1467 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_TNumber_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_DQString :: String ->
T_Token
sem_Token_DQString str_ =
(\ _lhsInextTokenPos ->
(case (({-# LINE 224 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceStr _lhsInextTokenPos $ "\"" <> str_ <> "\""
{-# LINE 1480 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_DQString_1 :: T_Token_1
sem_Token_DQString_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 1497 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
DQString str_
{-# LINE 1502 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 1507 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 1512 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 1517 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 1522 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 1527 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 1532 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 1537 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 226 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax <> SyntaxUsed (Just _lhsImpos) Nothing
{-# LINE 1542 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _combinedSyntaxUsed ->
(case (({-# LINE 227 "src/GLuaFixer/AG/LexLint.ag" #-}
resetIfInconsistent _combinedSyntaxUsed
{-# LINE 1547 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _strSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_strSyntax
{-# LINE 1552 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 228 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 1557 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 228 "src/GLuaFixer/AG/LexLint.ag" #-}
if not (lint_syntaxInconsistencies _lhsIconfig) then id else
warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "double quoted strings" "single quoted strings"
{-# LINE 1563 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 228 "src/GLuaFixer/AG/LexLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 1568 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Token_DQString_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }))
sem_Token_SQString :: String ->
T_Token
sem_Token_SQString str_ =
(\ _lhsInextTokenPos ->
(case (({-# LINE 233 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceStr _lhsInextTokenPos $ "'" <> str_ <> "'"
{-# LINE 1581 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_SQString_1 :: T_Token_1
sem_Token_SQString_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 1598 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
SQString str_
{-# LINE 1603 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 1608 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 1613 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 1618 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 1623 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 1628 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 1633 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 1638 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 236 "src/GLuaFixer/AG/LexLint.ag" #-}
if isSingleChar str_ then Nothing else Just _lhsImpos
{-# LINE 1643 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _usesSingleQuotedSyntax ->
(case (({-# LINE 237 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax <> SyntaxUsed Nothing _usesSingleQuotedSyntax
{-# LINE 1648 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _combinedSyntaxUsed ->
(case (({-# LINE 238 "src/GLuaFixer/AG/LexLint.ag" #-}
resetIfInconsistent _combinedSyntaxUsed
{-# LINE 1653 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _strSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_strSyntax
{-# LINE 1658 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 239 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 1663 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 239 "src/GLuaFixer/AG/LexLint.ag" #-}
if not (lint_syntaxInconsistencies _lhsIconfig) then id else
warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "single quoted strings" "double quoted strings"
{-# LINE 1669 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 239 "src/GLuaFixer/AG/LexLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 1674 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Token_SQString_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }))
sem_Token_MLString :: String ->
T_Token
sem_Token_MLString str_ =
(\ _lhsInextTokenPos ->
(case (({-# LINE 243 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceStr _lhsInextTokenPos str_
{-# LINE 1687 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_MLString_1 :: T_Token_1
sem_Token_MLString_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 1704 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
MLString str_
{-# LINE 1709 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 1714 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 1719 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 1724 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 1729 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 1734 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 1739 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 1744 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 1749 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 1754 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }))
in sem_Token_MLString_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }))
sem_Token_TTrue :: T_Token
sem_Token_TTrue =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
TTrue
{-# LINE 1766 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 1771 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_TTrue_1 :: T_Token_1
sem_Token_TTrue_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 1788 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 1793 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 1798 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 1803 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 1808 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 1813 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 1818 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 1823 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 1828 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 1833 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_TTrue_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_TFalse :: T_Token
sem_Token_TFalse =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
TFalse
{-# LINE 1845 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 1850 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_TFalse_1 :: T_Token_1
sem_Token_TFalse_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 1867 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 1872 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 1877 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 1882 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 1887 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 1892 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 1897 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 1902 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 1907 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 1912 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_TFalse_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Nil :: T_Token
sem_Token_Nil =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Nil
{-# LINE 1924 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 1929 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Nil_1 :: T_Token_1
sem_Token_Nil_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 1946 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 1951 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 1956 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 1961 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 1966 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 1971 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 1976 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 1981 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 1986 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 1991 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Nil_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_VarArg :: T_Token
sem_Token_VarArg =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
VarArg
{-# LINE 2003 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 2008 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_VarArg_1 :: T_Token_1
sem_Token_VarArg_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 2025 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 2030 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 2035 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 2040 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 2045 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 2050 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 2055 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 2060 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 2065 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 2070 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_VarArg_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Plus :: T_Token
sem_Token_Plus =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Plus
{-# LINE 2082 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 2087 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Plus_1 :: T_Token_1
sem_Token_Plus_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 2104 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 2109 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 2114 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 2119 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 2124 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 2129 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 2134 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 2139 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 2144 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 2149 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Plus_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Minus :: T_Token
sem_Token_Minus =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Minus
{-# LINE 2161 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 2166 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Minus_1 :: T_Token_1
sem_Token_Minus_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 2183 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 2188 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 2193 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 2198 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 2203 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 2208 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 2213 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 2218 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 2223 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 2228 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Minus_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Multiply :: T_Token
sem_Token_Multiply =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Multiply
{-# LINE 2240 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 2245 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Multiply_1 :: T_Token_1
sem_Token_Multiply_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 2262 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 2267 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 2272 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 2277 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 2282 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 2287 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 2292 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 2297 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 2302 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 2307 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Multiply_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Divide :: T_Token
sem_Token_Divide =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Divide
{-# LINE 2319 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 2324 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Divide_1 :: T_Token_1
sem_Token_Divide_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 2341 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 2346 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 2351 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 2356 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 2361 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 2366 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 2371 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 2376 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 2381 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 2386 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Divide_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Modulus :: T_Token
sem_Token_Modulus =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Modulus
{-# LINE 2398 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 2403 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Modulus_1 :: T_Token_1
sem_Token_Modulus_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 2420 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 2425 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 2430 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 2435 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 2440 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 2445 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 2450 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 2455 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 2460 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 2465 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Modulus_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Power :: T_Token
sem_Token_Power =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Power
{-# LINE 2477 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 2482 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Power_1 :: T_Token_1
sem_Token_Power_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 2499 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 2504 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 2509 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 2514 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 2519 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 2524 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 2529 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 2534 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 2539 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 2544 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Power_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_TEq :: T_Token
sem_Token_TEq =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
TEq
{-# LINE 2556 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 2561 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_TEq_1 :: T_Token_1
sem_Token_TEq_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 2578 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 2583 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 2588 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 2593 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 2598 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 2603 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 2608 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 2613 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 2618 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 2623 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_TEq_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_TNEq :: T_Token
sem_Token_TNEq =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
TNEq
{-# LINE 2635 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 2640 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_TNEq_1 :: T_Token_1
sem_Token_TNEq_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 2657 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 2662 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 2667 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 2672 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 2677 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 282 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax <> SyntaxUsed (Just _lhsImpos) Nothing
{-# LINE 2682 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _combinedSyntaxUsed ->
(case (({-# LINE 283 "src/GLuaFixer/AG/LexLint.ag" #-}
resetIfInconsistent _combinedSyntaxUsed
{-# LINE 2687 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _neqSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_neqSyntax
{-# LINE 2692 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 2697 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 2702 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 2707 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 284 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 2712 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 284 "src/GLuaFixer/AG/LexLint.ag" #-}
if not (lint_syntaxInconsistencies _lhsIconfig) then id else
warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "~=" "!="
{-# LINE 2718 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 284 "src/GLuaFixer/AG/LexLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 2723 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Token_TNEq_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_TCNEq :: T_Token
sem_Token_TCNEq =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
TCNEq
{-# LINE 2735 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 2740 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_TCNEq_1 :: T_Token_1
sem_Token_TCNEq_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 2757 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 2762 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 2767 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 2772 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 2777 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 288 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax <> SyntaxUsed Nothing (Just _lhsImpos)
{-# LINE 2782 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _combinedSyntaxUsed ->
(case (({-# LINE 289 "src/GLuaFixer/AG/LexLint.ag" #-}
resetIfInconsistent _combinedSyntaxUsed
{-# LINE 2787 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _neqSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_neqSyntax
{-# LINE 2792 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 2797 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 2802 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 2807 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 290 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 2812 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 290 "src/GLuaFixer/AG/LexLint.ag" #-}
if not (lint_syntaxInconsistencies _lhsIconfig) then id else
warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "!=" "~="
{-# LINE 2818 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 290 "src/GLuaFixer/AG/LexLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 2823 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Token_TCNEq_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_TLEQ :: T_Token
sem_Token_TLEQ =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
TLEQ
{-# LINE 2835 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 2840 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_TLEQ_1 :: T_Token_1
sem_Token_TLEQ_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 2857 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 2862 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 2867 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 2872 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 2877 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 2882 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 2887 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 2892 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 2897 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 2902 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_TLEQ_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_TGEQ :: T_Token
sem_Token_TGEQ =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
TGEQ
{-# LINE 2914 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 2919 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_TGEQ_1 :: T_Token_1
sem_Token_TGEQ_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 2936 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 2941 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 2946 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 2951 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 2956 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 2961 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 2966 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 2971 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 2976 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 2981 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_TGEQ_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_TLT :: T_Token
sem_Token_TLT =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
TLT
{-# LINE 2993 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 2998 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_TLT_1 :: T_Token_1
sem_Token_TLT_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 3015 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 3020 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 3025 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 3030 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 3035 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 3040 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 3045 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 3050 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 3055 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 3060 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_TLT_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_TGT :: T_Token
sem_Token_TGT =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
TGT
{-# LINE 3072 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 3077 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_TGT_1 :: T_Token_1
sem_Token_TGT_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 3094 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 3099 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 3104 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 3109 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 3114 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 3119 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 3124 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 3129 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 3134 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 3139 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_TGT_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Equals :: T_Token
sem_Token_Equals =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Equals
{-# LINE 3151 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 3156 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Equals_1 :: T_Token_1
sem_Token_Equals_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 3173 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 3178 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 3183 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 3188 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 3193 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 3198 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 3203 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 3208 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 3213 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 3218 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Equals_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Concatenate :: T_Token
sem_Token_Concatenate =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Concatenate
{-# LINE 3230 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 3235 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Concatenate_1 :: T_Token_1
sem_Token_Concatenate_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 3252 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 3257 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 3262 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 3267 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 3272 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 3277 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 3282 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 3287 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 3292 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 3297 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Concatenate_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Colon :: T_Token
sem_Token_Colon =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Colon
{-# LINE 3309 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 3314 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Colon_1 :: T_Token_1
sem_Token_Colon_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 3331 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 3336 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 3341 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 3346 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 3351 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 3356 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 3361 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 3366 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 3371 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 3376 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Colon_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Dot :: T_Token
sem_Token_Dot =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Dot
{-# LINE 3388 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 3393 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Dot_1 :: T_Token_1
sem_Token_Dot_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 3410 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 3415 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 3420 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 3425 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 3430 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 3435 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 3440 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 3445 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 3450 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 3455 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Dot_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Comma :: T_Token
sem_Token_Comma =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Comma
{-# LINE 3467 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 3472 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Comma_1 :: T_Token_1
sem_Token_Comma_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 3489 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 3494 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 3499 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 3504 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 3509 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 3514 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 3519 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 3524 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 3529 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 3534 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Comma_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Hash :: T_Token
sem_Token_Hash =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Hash
{-# LINE 3546 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 3551 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Hash_1 :: T_Token_1
sem_Token_Hash_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 3568 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 3573 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 3578 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 3583 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 3588 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 3593 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 3598 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 3603 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 3608 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 3613 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Hash_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Not :: T_Token
sem_Token_Not =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Not
{-# LINE 3625 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 3630 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Not_1 :: T_Token_1
sem_Token_Not_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 3647 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 3652 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 3657 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 3662 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 3667 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 3672 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 246 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax <> SyntaxUsed (Just _lhsImpos) Nothing
{-# LINE 3677 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _combinedSyntaxUsed ->
(case (({-# LINE 247 "src/GLuaFixer/AG/LexLint.ag" #-}
resetIfInconsistent _combinedSyntaxUsed
{-# LINE 3682 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _notSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_notSyntax
{-# LINE 3687 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 3692 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 3697 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 248 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 3702 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 248 "src/GLuaFixer/AG/LexLint.ag" #-}
if not (lint_syntaxInconsistencies _lhsIconfig) then id else
warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "not" "!"
{-# LINE 3708 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 248 "src/GLuaFixer/AG/LexLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 3713 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Not_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_CNot :: T_Token
sem_Token_CNot =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
CNot
{-# LINE 3725 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 3730 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_CNot_1 :: T_Token_1
sem_Token_CNot_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 3747 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 3752 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 3757 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 3762 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 3767 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 3772 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 252 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax <> SyntaxUsed Nothing (Just _lhsImpos)
{-# LINE 3777 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _combinedSyntaxUsed ->
(case (({-# LINE 253 "src/GLuaFixer/AG/LexLint.ag" #-}
resetIfInconsistent _combinedSyntaxUsed
{-# LINE 3782 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _notSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_notSyntax
{-# LINE 3787 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 3792 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 3797 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 254 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 3802 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 254 "src/GLuaFixer/AG/LexLint.ag" #-}
if not (lint_syntaxInconsistencies _lhsIconfig) then id else
warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "!" "not"
{-# LINE 3808 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 254 "src/GLuaFixer/AG/LexLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 3813 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Token_CNot_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_And :: T_Token
sem_Token_And =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
And
{-# LINE 3825 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 3830 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_And_1 :: T_Token_1
sem_Token_And_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 258 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax <> SyntaxUsed (Just _lhsImpos) Nothing
{-# LINE 3847 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _combinedSyntaxUsed ->
(case (({-# LINE 259 "src/GLuaFixer/AG/LexLint.ag" #-}
resetIfInconsistent _combinedSyntaxUsed
{-# LINE 3852 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _andSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_andSyntax
{-# LINE 3857 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 3862 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 3867 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 3872 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 3877 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 3882 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 3887 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 3892 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 3897 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 260 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 3902 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 260 "src/GLuaFixer/AG/LexLint.ag" #-}
if not (lint_syntaxInconsistencies _lhsIconfig) then id else
warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "and" "&&"
{-# LINE 3908 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 260 "src/GLuaFixer/AG/LexLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 3913 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Token_And_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_CAnd :: T_Token
sem_Token_CAnd =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
CAnd
{-# LINE 3925 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 3930 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_CAnd_1 :: T_Token_1
sem_Token_CAnd_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 264 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax <> SyntaxUsed Nothing (Just _lhsImpos)
{-# LINE 3947 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _combinedSyntaxUsed ->
(case (({-# LINE 265 "src/GLuaFixer/AG/LexLint.ag" #-}
resetIfInconsistent _combinedSyntaxUsed
{-# LINE 3952 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _andSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_andSyntax
{-# LINE 3957 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 3962 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 3967 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 3972 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 3977 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 3982 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 3987 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 3992 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 3997 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 266 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 4002 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 266 "src/GLuaFixer/AG/LexLint.ag" #-}
if not (lint_syntaxInconsistencies _lhsIconfig) then id else
warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "&&" "and"
{-# LINE 4008 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 266 "src/GLuaFixer/AG/LexLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 4013 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Token_CAnd_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Or :: T_Token
sem_Token_Or =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Or
{-# LINE 4025 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 4030 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Or_1 :: T_Token_1
sem_Token_Or_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 4047 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 4052 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 4057 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 4062 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 4067 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 4072 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 4077 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 270 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax <> SyntaxUsed (Just _lhsImpos) Nothing
{-# LINE 4082 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _combinedSyntaxUsed ->
(case (({-# LINE 271 "src/GLuaFixer/AG/LexLint.ag" #-}
resetIfInconsistent _combinedSyntaxUsed
{-# LINE 4087 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _orSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_orSyntax
{-# LINE 4092 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 4097 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 272 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 4102 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 272 "src/GLuaFixer/AG/LexLint.ag" #-}
if not (lint_syntaxInconsistencies _lhsIconfig) then id else
warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "or" "||"
{-# LINE 4108 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 272 "src/GLuaFixer/AG/LexLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 4113 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Or_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_COr :: T_Token
sem_Token_COr =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
COr
{-# LINE 4125 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 4130 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_COr_1 :: T_Token_1
sem_Token_COr_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 4147 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 4152 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 4157 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 4162 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 4167 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 4172 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 4177 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 276 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax <> SyntaxUsed Nothing (Just _lhsImpos)
{-# LINE 4182 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _combinedSyntaxUsed ->
(case (({-# LINE 277 "src/GLuaFixer/AG/LexLint.ag" #-}
resetIfInconsistent _combinedSyntaxUsed
{-# LINE 4187 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _orSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_orSyntax
{-# LINE 4192 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 4197 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 278 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 4202 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 278 "src/GLuaFixer/AG/LexLint.ag" #-}
if not (lint_syntaxInconsistencies _lhsIconfig) then id else
warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "||" "or"
{-# LINE 4208 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 278 "src/GLuaFixer/AG/LexLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 4213 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Token_COr_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Function :: T_Token
sem_Token_Function =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Function
{-# LINE 4225 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 4230 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Function_1 :: T_Token_1
sem_Token_Function_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 4247 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 4252 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 4257 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 4262 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 4267 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 4272 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 4277 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 4282 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 4287 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 4292 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Function_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Local :: T_Token
sem_Token_Local =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Local
{-# LINE 4304 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 4309 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Local_1 :: T_Token_1
sem_Token_Local_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 4326 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 4331 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 4336 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 4341 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 4346 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 4351 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 4356 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 4361 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 4366 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 4371 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Local_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_If :: T_Token
sem_Token_If =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
If
{-# LINE 4383 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 4388 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_If_1 :: T_Token_1
sem_Token_If_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 4405 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 4410 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 4415 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 4420 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 4425 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 4430 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 4435 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 4440 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 4445 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 4450 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_If_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Then :: T_Token
sem_Token_Then =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Then
{-# LINE 4462 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 4467 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Then_1 :: T_Token_1
sem_Token_Then_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 4484 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 4489 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 4494 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 4499 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 4504 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 4509 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 4514 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 4519 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 4524 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 4529 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Then_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Elseif :: T_Token
sem_Token_Elseif =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Elseif
{-# LINE 4541 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 4546 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Elseif_1 :: T_Token_1
sem_Token_Elseif_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 4563 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 4568 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 4573 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 4578 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 4583 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 4588 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 4593 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 4598 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 4603 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 4608 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Elseif_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Else :: T_Token
sem_Token_Else =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Else
{-# LINE 4620 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 4625 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Else_1 :: T_Token_1
sem_Token_Else_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 4642 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 4647 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 4652 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 4657 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 4662 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 4667 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 4672 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 4677 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 4682 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 4687 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Else_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_For :: T_Token
sem_Token_For =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
For
{-# LINE 4699 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 4704 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_For_1 :: T_Token_1
sem_Token_For_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 4721 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 4726 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 4731 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 4736 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 4741 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 4746 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 4751 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 4756 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 4761 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 4766 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_For_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_In :: T_Token
sem_Token_In =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
In
{-# LINE 4778 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 4783 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_In_1 :: T_Token_1
sem_Token_In_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 4800 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 4805 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 4810 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 4815 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 4820 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 4825 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 4830 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 4835 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 4840 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 4845 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_In_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Do :: T_Token
sem_Token_Do =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Do
{-# LINE 4857 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 4862 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Do_1 :: T_Token_1
sem_Token_Do_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 4879 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 4884 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 4889 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 4894 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 4899 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 4904 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 4909 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 4914 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 4919 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 4924 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Do_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_While :: T_Token
sem_Token_While =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
While
{-# LINE 4936 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 4941 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_While_1 :: T_Token_1
sem_Token_While_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 4958 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 4963 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 4968 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 4973 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 4978 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 4983 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 4988 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 4993 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 4998 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 5003 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_While_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Until :: T_Token
sem_Token_Until =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Until
{-# LINE 5015 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 5020 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Until_1 :: T_Token_1
sem_Token_Until_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 5037 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 5042 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 5047 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 5052 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 5057 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 5062 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 5067 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 5072 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 5077 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 5082 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Until_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Repeat :: T_Token
sem_Token_Repeat =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Repeat
{-# LINE 5094 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 5099 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Repeat_1 :: T_Token_1
sem_Token_Repeat_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 5116 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 5121 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 5126 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 5131 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 5136 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 5141 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 5146 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 5151 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 5156 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 5161 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Repeat_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Continue :: T_Token
sem_Token_Continue =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Continue
{-# LINE 5173 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 5178 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Continue_1 :: T_Token_1
sem_Token_Continue_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 5195 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 5200 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 5205 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 5210 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 5215 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 5220 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 5225 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 5230 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 5235 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 5240 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Continue_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Break :: T_Token
sem_Token_Break =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Break
{-# LINE 5252 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 5257 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Break_1 :: T_Token_1
sem_Token_Break_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 5274 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 5279 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 5284 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 5289 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 5294 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 5299 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 5304 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 5309 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 5314 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 5319 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Break_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Return :: T_Token
sem_Token_Return =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Return
{-# LINE 5331 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 5336 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Return_1 :: T_Token_1
sem_Token_Return_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 5353 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 5358 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 5363 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 5368 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 5373 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 5378 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 5383 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 5388 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 5393 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 5398 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Return_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_End :: T_Token
sem_Token_End =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
End
{-# LINE 5410 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 5415 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_End_1 :: T_Token_1
sem_Token_End_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 5432 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 5437 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 5442 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 5447 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 5452 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 5457 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 5462 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 5467 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 5472 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 5477 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_End_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_LRound :: T_Token
sem_Token_LRound =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
LRound
{-# LINE 5489 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 5494 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_LRound_1 :: T_Token_1
sem_Token_LRound_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 5511 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 5516 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 5521 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 5526 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 5531 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 5536 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 5541 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 5546 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 5551 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 5556 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_LRound_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_RRound :: T_Token
sem_Token_RRound =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
RRound
{-# LINE 5568 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 5573 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_RRound_1 :: T_Token_1
sem_Token_RRound_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 5590 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 5595 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 5600 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 5605 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 5610 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 5615 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 5620 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 5625 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 5630 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 5635 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_RRound_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_LCurly :: T_Token
sem_Token_LCurly =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
LCurly
{-# LINE 5647 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 5652 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_LCurly_1 :: T_Token_1
sem_Token_LCurly_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 5669 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 5674 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 5679 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 5684 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 5689 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 5694 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 5699 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 5704 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 5709 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 5714 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_LCurly_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_RCurly :: T_Token
sem_Token_RCurly =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
RCurly
{-# LINE 5726 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 5731 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_RCurly_1 :: T_Token_1
sem_Token_RCurly_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 5748 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 5753 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 5758 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 5763 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 5768 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 5773 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 5778 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 5783 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 5788 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 5793 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_RCurly_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_LSquare :: T_Token
sem_Token_LSquare =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
LSquare
{-# LINE 5805 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 5810 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_LSquare_1 :: T_Token_1
sem_Token_LSquare_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 5827 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 5832 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 5837 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 5842 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 5847 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 5852 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 5857 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 5862 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 5867 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 5872 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_LSquare_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_RSquare :: T_Token
sem_Token_RSquare =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
RSquare
{-# LINE 5884 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 5889 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_RSquare_1 :: T_Token_1
sem_Token_RSquare_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 5906 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 5911 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 5916 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 5921 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 5926 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 5931 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 5936 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 5941 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 5946 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 5951 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_RSquare_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Label :: String ->
String ->
String ->
T_Token
sem_Token_Label whitespaceBefore_ lbl_ whitespaceAfter_ =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Label whitespaceBefore_ lbl_ whitespaceAfter_
{-# LINE 5966 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 294 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceStr _lhsInextTokenPos (show _copy )
{-# LINE 5971 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Label_1 :: T_Token_1
sem_Token_Label_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 5988 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 5993 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 5998 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 6003 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 6008 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 6013 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 6018 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 6023 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 6028 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 6033 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Label_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))
sem_Token_Identifier :: String ->
T_Token
sem_Token_Identifier ident_ =
(\ _lhsInextTokenPos ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
Identifier ident_
{-# LINE 6046 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}
customAdvanceToken _lhsInextTokenPos _copy
{-# LINE 6051 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnextTokenPos ->
(case ((let sem_Token_Identifier_1 :: T_Token_1
sem_Token_Identifier_1 =
(\ _lhsIandSyntax
_lhsIconfig
_lhsIindentation
_lhsIlineCommentSyntax
_lhsImpos
_lhsImultilineCommentSyntax
_lhsIneqSyntax
_lhsInotSyntax
_lhsIorSyntax
_lhsIstrSyntax ->
(case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIandSyntax
{-# LINE 6068 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOandSyntax ->
(case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}
_copy
{-# LINE 6073 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIindentation
{-# LINE 6078 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOindentation ->
(case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIlineCommentSyntax
{-# LINE 6083 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOlineCommentSyntax ->
(case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsImultilineCommentSyntax
{-# LINE 6088 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOmultilineCommentSyntax ->
(case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIneqSyntax
{-# LINE 6093 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOneqSyntax ->
(case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsInotSyntax
{-# LINE 6098 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOnotSyntax ->
(case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIorSyntax
{-# LINE 6103 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOorSyntax ->
(case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}
_lhsIstrSyntax
{-# LINE 6108 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOstrSyntax ->
(case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}
[]
{-# LINE 6113 "src/GLuaFixer/AG/LexLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
in sem_Token_Identifier_1)) of
{ ( sem_Token_1) ->
( _lhsOnextTokenPos,sem_Token_1) }) }) }))