glualint-1.29.0: src/GLuaFixer/AG/ASTLint.hs
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# LANGUAGE LambdaCase #-}
-- UUAGC 0.9.56 (src/GLuaFixer/AG/ASTLint.ag)
module GLuaFixer.AG.ASTLint where
{-# LINE 8 "src/GLuaFixer/AG/../../GLua/AG/Token.ag" #-}
import GLua.Position
{-# LINE 16 "src/GLuaFixer/AG/ASTLint.hs" #-}
{-# LINE 9 "src/GLuaFixer/AG/../../GLua/AG/AST.ag" #-}
import GLua.AG.Token
import GLua.Position
import GLua.TokenTypes ()
import Data.Aeson
{-# LINE 24 "src/GLuaFixer/AG/ASTLint.hs" #-}
{-# LINE 10 "src/GLuaFixer/AG/ASTLint.ag" #-}
import GLua.AG.AST
import qualified GLua.AG.PrettyPrint as PP
import qualified GLua.AG.Token as T
import GLua.TokenTypes
import qualified Data.Set as S
import qualified Data.Map.Strict as M
import Data.Char (isLower, isUpper)
import Data.Maybe
import GLua.Position (LineColPos(..), Region(..))
import GLuaFixer.LintMessage
import GLuaFixer.LintSettings
{-# LINE 39 "src/GLuaFixer/AG/ASTLint.hs" #-}
{-# LINE 29 "src/GLuaFixer/AG/ASTLint.ag" #-}
warn :: Region -> Issue -> FilePath -> LintMessage
warn pos issue = LintMessage LintWarning pos issue
-- Used in detecting "not (a == b)" kind of things
oppositeBinOp :: BinOp -> Maybe String
oppositeBinOp ALT = Just ">="
oppositeBinOp AGT = Just "<="
oppositeBinOp ALEQ = Just ">"
oppositeBinOp AGEQ = Just "<"
oppositeBinOp ANEq = Just "=="
oppositeBinOp AEq = Just "~="
oppositeBinOp _ = Nothing
-- Checks whether a variable shadows existing variables
checkShadows :: [M.Map String (Bool, Region)] -> MToken -> Maybe (FilePath -> LintMessage)
checkShadows [] _ = Nothing
checkShadows _ (MToken _ (Identifier "_")) = Nothing -- Exception for vars named '_'
checkShadows (scope : scs) mtok' =
if M.member lbl scope then
Just $ warn (mpos mtok') $ VariableShadows lbl location
else
checkShadows scs mtok'
where
lbl = tokenLabel mtok'
location = snd $ fromMaybe (error "checkShadows fromMaybe") $ M.lookup lbl scope
-- Determines whether a variable is local
-- It is local if it does not exist in any but the topmost (global) scope
-- it may or may not exist in the topmost scope.
isVariableLocal :: [M.Map String (Bool, Region)] -> String -> Bool
isVariableLocal [] _ = False
isVariableLocal [_] _ = False
isVariableLocal (scope : scs) var =
case M.lookup var scope of
Just _ -> True
Nothing -> isVariableLocal scs var
-- Registers a variable as global variable when it hasn't been
-- introduced in any of the visible scopes
registerVariable :: [M.Map String (Bool, Region)] -> Region -> String -> Bool -> [M.Map String (Bool, Region)]
registerVariable [] _ _ _ = error "cannot register top level variable"
registerVariable (scope : []) pos var used =
[ case M.lookup var scope of
Just (used', pos') -> M.insert var (used || used', pos') scope
Nothing -> M.insert var (used, pos) scope
] -- global scope
registerVariable (scope : scs) pos var used = case M.lookup var scope of
Just (True, _) -> scope : scs
Just (False, pos') -> M.insert var (used, pos') scope : scs
Nothing -> scope : registerVariable scs pos var used
findSelf :: [MToken] -> Bool
findSelf ((MToken _ (Identifier "self")) : _) = True
findSelf _ = False
data VariableStyle
= StartsLowerCase
| StartsUpperCase
| VariableStyleNeither
deriving (Eq)
data DeterminedVariableStyle
= VarStyleNotDetermined
| VarStyleDetermined !VariableStyle
combineDeterminedVarStyle :: DeterminedVariableStyle -> VariableStyle -> DeterminedVariableStyle
combineDeterminedVarStyle old new = case old of
VarStyleNotDetermined -> VarStyleDetermined new
VarStyleDetermined VariableStyleNeither -> VarStyleDetermined new
_ -> old
determineVariableStyle :: String -> VariableStyle
determineVariableStyle = \case
[] -> VariableStyleNeither
(c : _)
| isLower c -> StartsLowerCase
| isUpper c -> StartsUpperCase
| otherwise -> VariableStyleNeither
variableStyleInconsistent :: DeterminedVariableStyle -> VariableStyle -> Bool
variableStyleInconsistent determinedStyle varStyle = case determinedStyle of
VarStyleNotDetermined -> False
VarStyleDetermined VariableStyleNeither -> False
VarStyleDetermined existing -> case varStyle of
VariableStyleNeither -> False
_ -> existing /= varStyle
unknownIdentifier :: String
unknownIdentifier = "Unknown identifier"
{-# LINE 133 "src/GLuaFixer/AG/ASTLint.hs" #-}
{-# LINE 661 "src/GLuaFixer/AG/ASTLint.ag" #-}
inh_AST :: LintSettings -> Inh_AST
inh_AST conf = Inh_AST {
config_Inh_AST = conf,
isMeta_Inh_AST = False,
loopLevel_Inh_AST = 0,
globalDefinitions_Inh_AST = M.empty,
mtokenPos_Inh_AST = emptyRg,
scopeLevel_Inh_AST = 0,
scopes_Inh_AST = [M.empty],
funcName_Inh_AST = "",
isInModule_Inh_AST = False,
variableStyle_Inh_AST = VarStyleNotDetermined
}
allAttributes :: LintSettings -> AST -> Syn_AST
allAttributes conf p = wrap_AST (sem_AST p) (inh_AST conf)
astWarnings :: LintSettings -> AST -> [String -> LintMessage]
astWarnings conf p = warnings_Syn_AST $ allAttributes conf p
globalDefinitions :: LintSettings -> AST -> M.Map String [Region]
globalDefinitions conf p = globalDefinitions_Syn_AST $ allAttributes conf p
{-# LINE 159 "src/GLuaFixer/AG/ASTLint.hs" #-}
-- AReturn -----------------------------------------------------
-- cata
sem_AReturn :: AReturn ->
T_AReturn
sem_AReturn (AReturn _pos _values) =
(sem_AReturn_AReturn _pos (sem_MExprList _values))
sem_AReturn (NoReturn) =
(sem_AReturn_NoReturn)
-- semantic domain
type T_AReturn = ( AReturn,T_AReturn_1)
type T_AReturn_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),Int,DeterminedVariableStyle,([String -> LintMessage]))
data Inh_AReturn = Inh_AReturn {config_Inh_AReturn :: LintSettings,funcName_Inh_AReturn :: String,globalDefinitions_Inh_AReturn :: (M.Map String [Region]),isInModule_Inh_AReturn :: Bool,isMeta_Inh_AReturn :: Bool,loopLevel_Inh_AReturn :: Int,mtokenPos_Inh_AReturn :: Region,scopeLevel_Inh_AReturn :: Int,scopes_Inh_AReturn :: ([M.Map String (Bool, Region)]),variableStyle_Inh_AReturn :: DeterminedVariableStyle}
data Syn_AReturn = Syn_AReturn {copy_Syn_AReturn :: AReturn,globalDefinitions_Syn_AReturn :: (M.Map String [Region]),identifier_Syn_AReturn :: String,isInModule_Syn_AReturn :: Bool,mtokenPos_Syn_AReturn :: Region,scopes_Syn_AReturn :: ([M.Map String (Bool, Region)]),statementCount_Syn_AReturn :: Int,variableStyle_Syn_AReturn :: DeterminedVariableStyle,warnings_Syn_AReturn :: ([String -> LintMessage])}
wrap_AReturn :: T_AReturn ->
Inh_AReturn ->
Syn_AReturn
wrap_AReturn sem (Inh_AReturn _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_AReturn _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOstatementCount _lhsOvariableStyle _lhsOwarnings))
sem_AReturn_AReturn :: Region ->
T_MExprList ->
T_AReturn
sem_AReturn_AReturn pos_ values_ =
(case (values_) of
{ ( _valuesIcopy,values_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AReturn pos_ _valuesIcopy
{-# LINE 198 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 203 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_AReturn_AReturn_1 :: T_AReturn_1
sem_AReturn_AReturn_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 220 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valuesOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 225 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valuesOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 230 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valuesOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 235 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valuesOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 240 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valuesOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 245 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valuesOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 250 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valuesOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 255 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valuesOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 260 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valuesOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 265 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valuesOfuncName ->
(case (({-# LINE 505 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 270 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valuesOtopLevel ->
(case (({-# LINE 504 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 275 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valuesOinParentheses ->
(case (values_1 _valuesOconfig _valuesOfuncName _valuesOglobalDefinitions _valuesOinParentheses _valuesOisInModule _valuesOisMeta _valuesOloopLevel _valuesOmtokenPos _valuesOscopeLevel _valuesOscopes _valuesOtopLevel _valuesOvariableStyle) of
{ ( _valuesIglobalDefinitions,_valuesIidentifier,_valuesIisInModule,_valuesImtokenPos,_valuesIscopes,_valuesIvariableStyle,_valuesIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valuesIglobalDefinitions
{-# LINE 282 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valuesIidentifier
{-# LINE 287 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valuesIisInModule
{-# LINE 292 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 506 "src/GLuaFixer/AG/ASTLint.ag" #-}
pos_
{-# LINE 297 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valuesIscopes
{-# LINE 302 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-}
1
{-# LINE 307 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOstatementCount ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valuesIvariableStyle
{-# LINE 312 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valuesIwarnings
{-# LINE 317 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_AReturn_AReturn_1)) of
{ ( sem_AReturn_1) ->
( _lhsOcopy,sem_AReturn_1) }) }) }) })
sem_AReturn_NoReturn :: T_AReturn
sem_AReturn_NoReturn =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
NoReturn
{-# LINE 328 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 333 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_AReturn_NoReturn_1 :: T_AReturn_1
sem_AReturn_NoReturn_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 350 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 355 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 360 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 365 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 370 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 508 "src/GLuaFixer/AG/ASTLint.ag" #-}
0
{-# LINE 375 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOstatementCount ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 380 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 385 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }))
in sem_AReturn_NoReturn_1)) of
{ ( sem_AReturn_1) ->
( _lhsOcopy,sem_AReturn_1) }) }) })
-- AST ---------------------------------------------------------
-- cata
sem_AST :: AST ->
T_AST
sem_AST (AST _comments _chunk) =
(sem_AST_AST _comments (sem_Block _chunk))
-- semantic domain
type T_AST = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( AST,(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_AST = Inh_AST {config_Inh_AST :: LintSettings,funcName_Inh_AST :: String,globalDefinitions_Inh_AST :: (M.Map String [Region]),isInModule_Inh_AST :: Bool,isMeta_Inh_AST :: Bool,loopLevel_Inh_AST :: Int,mtokenPos_Inh_AST :: Region,scopeLevel_Inh_AST :: Int,scopes_Inh_AST :: ([M.Map String (Bool, Region)]),variableStyle_Inh_AST :: DeterminedVariableStyle}
data Syn_AST = Syn_AST {copy_Syn_AST :: AST,globalDefinitions_Syn_AST :: (M.Map String [Region]),identifier_Syn_AST :: String,isInModule_Syn_AST :: Bool,mtokenPos_Syn_AST :: Region,scopes_Syn_AST :: ([M.Map String (Bool, Region)]),variableStyle_Syn_AST :: DeterminedVariableStyle,warnings_Syn_AST :: ([String -> LintMessage])}
wrap_AST :: T_AST ->
Inh_AST ->
Syn_AST
wrap_AST sem (Inh_AST _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_AST _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_AST_AST :: ([MToken]) ->
T_Block ->
T_AST
sem_AST_AST comments_ chunk_ =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (chunk_) of
{ ( _chunkIcopy,chunk_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AST comments_ _chunkIcopy
{-# LINE 436 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 441 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 446 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _chunkOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 451 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _chunkOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 456 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _chunkOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 461 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _chunkOconfig ->
(case (({-# LINE 293 "src/GLuaFixer/AG/ASTLint.ag" #-}
M.empty : _lhsIscopes
{-# LINE 466 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _chunkOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 471 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _chunkOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 476 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _chunkOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 481 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _chunkOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 486 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _chunkOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 491 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _chunkOfuncName ->
(case (({-# LINE 294 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 496 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _chunkOisRepeat ->
(case (chunk_1 _chunkOconfig _chunkOfuncName _chunkOglobalDefinitions _chunkOisInModule _chunkOisMeta _chunkOisRepeat _chunkOloopLevel _chunkOmtokenPos _chunkOscopeLevel _chunkOscopes _chunkOvariableStyle) of
{ ( _chunkIglobalDefinitions,_chunkIidentifier,_chunkIisIfStatement,_chunkIisInModule,_chunkImtokenPos,_chunkIscopes,_chunkIstatementCount,_chunkIvariableStyle,_chunkIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_chunkIglobalDefinitions
{-# LINE 503 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_chunkIidentifier
{-# LINE 508 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_chunkIisInModule
{-# LINE 513 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_chunkImtokenPos
{-# LINE 518 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_chunkIscopes
{-# LINE 523 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_chunkIvariableStyle
{-# LINE 528 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_chunkIwarnings
{-# LINE 533 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
-- Args --------------------------------------------------------
-- cata
sem_Args :: Args ->
T_Args
sem_Args (ListArgs _args) =
(sem_Args_ListArgs (sem_MExprList _args))
sem_Args (TableArg _arg) =
(sem_Args_TableArg (sem_FieldList _arg))
sem_Args (StringArg _arg) =
(sem_Args_StringArg (sem_MToken _arg))
-- semantic domain
type T_Args = ( Args,T_Args_1)
type T_Args_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_Args = Inh_Args {config_Inh_Args :: LintSettings,funcName_Inh_Args :: String,globalDefinitions_Inh_Args :: (M.Map String [Region]),isInModule_Inh_Args :: Bool,isMeta_Inh_Args :: Bool,loopLevel_Inh_Args :: Int,mtokenPos_Inh_Args :: Region,scopeLevel_Inh_Args :: Int,scopes_Inh_Args :: ([M.Map String (Bool, Region)]),variableStyle_Inh_Args :: DeterminedVariableStyle}
data Syn_Args = Syn_Args {copy_Syn_Args :: Args,globalDefinitions_Syn_Args :: (M.Map String [Region]),identifier_Syn_Args :: String,isInModule_Syn_Args :: Bool,mtokenPos_Syn_Args :: Region,scopes_Syn_Args :: ([M.Map String (Bool, Region)]),variableStyle_Syn_Args :: DeterminedVariableStyle,warnings_Syn_Args :: ([String -> LintMessage])}
wrap_Args :: T_Args ->
Inh_Args ->
Syn_Args
wrap_Args sem (Inh_Args _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_Args _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_Args_ListArgs :: T_MExprList ->
T_Args
sem_Args_ListArgs args_ =
(case (args_) of
{ ( _argsIcopy,args_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
ListArgs _argsIcopy
{-# LINE 576 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 581 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Args_ListArgs_1 :: T_Args_1
sem_Args_ListArgs_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 598 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 603 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 608 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 613 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 618 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 623 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 628 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 633 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 638 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 643 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOfuncName ->
(case (({-# LINE 620 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 648 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOtopLevel ->
(case (({-# LINE 619 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 653 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOinParentheses ->
(case (args_1 _argsOconfig _argsOfuncName _argsOglobalDefinitions _argsOinParentheses _argsOisInModule _argsOisMeta _argsOloopLevel _argsOmtokenPos _argsOscopeLevel _argsOscopes _argsOtopLevel _argsOvariableStyle) of
{ ( _argsIglobalDefinitions,_argsIidentifier,_argsIisInModule,_argsImtokenPos,_argsIscopes,_argsIvariableStyle,_argsIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argsIglobalDefinitions
{-# LINE 660 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argsIidentifier
{-# LINE 665 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argsIisInModule
{-# LINE 670 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argsImtokenPos
{-# LINE 675 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argsIscopes
{-# LINE 680 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argsIvariableStyle
{-# LINE 685 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argsIwarnings
{-# LINE 690 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Args_ListArgs_1)) of
{ ( sem_Args_1) ->
( _lhsOcopy,sem_Args_1) }) }) }) })
sem_Args_TableArg :: T_FieldList ->
T_Args
sem_Args_TableArg arg_ =
(case (arg_) of
{ ( _argIcopy,arg_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
TableArg _argIcopy
{-# LINE 704 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 709 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Args_TableArg_1 :: T_Args_1
sem_Args_TableArg_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 726 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 731 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 736 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 741 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 746 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 751 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 756 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 761 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 766 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 771 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argOfuncName ->
(case (({-# LINE 622 "src/GLuaFixer/AG/ASTLint.ag" #-}
S.empty
{-# LINE 776 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argOfieldNames ->
(case (arg_1 _argOconfig _argOfieldNames _argOfuncName _argOglobalDefinitions _argOisInModule _argOisMeta _argOloopLevel _argOmtokenPos _argOscopeLevel _argOscopes _argOvariableStyle) of
{ ( _argIfieldNames,_argIglobalDefinitions,_argIidentifier,_argIisInModule,_argImtokenPos,_argIscopes,_argIvariableStyle,_argIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argIglobalDefinitions
{-# LINE 783 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argIidentifier
{-# LINE 788 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argIisInModule
{-# LINE 793 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argImtokenPos
{-# LINE 798 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argIscopes
{-# LINE 803 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argIvariableStyle
{-# LINE 808 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argIwarnings
{-# LINE 813 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Args_TableArg_1)) of
{ ( sem_Args_1) ->
( _lhsOcopy,sem_Args_1) }) }) }) })
sem_Args_StringArg :: T_MToken ->
T_Args
sem_Args_StringArg arg_ =
(case (arg_) of
{ ( _argIcopy,_argImtok,_argImtokenPos,arg_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
StringArg _argIcopy
{-# LINE 827 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 832 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Args_StringArg_1 :: T_Args_1
sem_Args_StringArg_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 849 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argOglobalDefinitions ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 854 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argOscopes ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 859 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argOmtokenPos ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 864 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 869 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argOisInModule ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 874 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 879 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argOconfig ->
(case (arg_1 _argOconfig _argOfuncName _argOglobalDefinitions _argOisInModule _argOisMeta _argOmtokenPos _argOscopes) of
{ ( _argIglobalDefinitions,_argIidentifier,_argIisInModule,_argIscopes,_argIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argIglobalDefinitions
{-# LINE 886 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argIidentifier
{-# LINE 891 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argIisInModule
{-# LINE 896 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argImtokenPos
{-# LINE 901 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argIscopes
{-# LINE 906 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 911 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argIwarnings
{-# LINE 916 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Args_StringArg_1)) of
{ ( sem_Args_1) ->
( _lhsOcopy,sem_Args_1) }) }) }) })
-- BinOp -------------------------------------------------------
-- cata
sem_BinOp :: BinOp ->
T_BinOp
sem_BinOp (AOr) =
(sem_BinOp_AOr)
sem_BinOp (AAnd) =
(sem_BinOp_AAnd)
sem_BinOp (ALT) =
(sem_BinOp_ALT)
sem_BinOp (AGT) =
(sem_BinOp_AGT)
sem_BinOp (ALEQ) =
(sem_BinOp_ALEQ)
sem_BinOp (AGEQ) =
(sem_BinOp_AGEQ)
sem_BinOp (ANEq) =
(sem_BinOp_ANEq)
sem_BinOp (AEq) =
(sem_BinOp_AEq)
sem_BinOp (AConcatenate) =
(sem_BinOp_AConcatenate)
sem_BinOp (APlus) =
(sem_BinOp_APlus)
sem_BinOp (BinMinus) =
(sem_BinOp_BinMinus)
sem_BinOp (AMultiply) =
(sem_BinOp_AMultiply)
sem_BinOp (ADivide) =
(sem_BinOp_ADivide)
sem_BinOp (AModulus) =
(sem_BinOp_AModulus)
sem_BinOp (APower) =
(sem_BinOp_APower)
-- semantic domain
type T_BinOp = ( BinOp,T_BinOp_1)
type T_BinOp_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_BinOp = Inh_BinOp {config_Inh_BinOp :: LintSettings,funcName_Inh_BinOp :: String,globalDefinitions_Inh_BinOp :: (M.Map String [Region]),isInModule_Inh_BinOp :: Bool,isMeta_Inh_BinOp :: Bool,loopLevel_Inh_BinOp :: Int,mtokenPos_Inh_BinOp :: Region,scopeLevel_Inh_BinOp :: Int,scopes_Inh_BinOp :: ([M.Map String (Bool, Region)]),variableStyle_Inh_BinOp :: DeterminedVariableStyle}
data Syn_BinOp = Syn_BinOp {copy_Syn_BinOp :: BinOp,globalDefinitions_Syn_BinOp :: (M.Map String [Region]),identifier_Syn_BinOp :: String,isInModule_Syn_BinOp :: Bool,mtokenPos_Syn_BinOp :: Region,scopes_Syn_BinOp :: ([M.Map String (Bool, Region)]),variableStyle_Syn_BinOp :: DeterminedVariableStyle,warnings_Syn_BinOp :: ([String -> LintMessage])}
wrap_BinOp :: T_BinOp ->
Inh_BinOp ->
Syn_BinOp
wrap_BinOp sem (Inh_BinOp _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_BinOp _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_BinOp_AOr :: T_BinOp
sem_BinOp_AOr =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AOr
{-# LINE 983 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 988 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_BinOp_AOr_1 :: T_BinOp_1
sem_BinOp_AOr_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 1005 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 1010 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 1015 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 1020 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 1025 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 1030 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 1035 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_BinOp_AOr_1)) of
{ ( sem_BinOp_1) ->
( _lhsOcopy,sem_BinOp_1) }) }) })
sem_BinOp_AAnd :: T_BinOp
sem_BinOp_AAnd =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AAnd
{-# LINE 1046 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 1051 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_BinOp_AAnd_1 :: T_BinOp_1
sem_BinOp_AAnd_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 1068 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 1073 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 1078 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 1083 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 1088 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 1093 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 1098 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_BinOp_AAnd_1)) of
{ ( sem_BinOp_1) ->
( _lhsOcopy,sem_BinOp_1) }) }) })
sem_BinOp_ALT :: T_BinOp
sem_BinOp_ALT =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
ALT
{-# LINE 1109 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 1114 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_BinOp_ALT_1 :: T_BinOp_1
sem_BinOp_ALT_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 1131 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 1136 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 1141 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 1146 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 1151 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 1156 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 1161 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_BinOp_ALT_1)) of
{ ( sem_BinOp_1) ->
( _lhsOcopy,sem_BinOp_1) }) }) })
sem_BinOp_AGT :: T_BinOp
sem_BinOp_AGT =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AGT
{-# LINE 1172 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 1177 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_BinOp_AGT_1 :: T_BinOp_1
sem_BinOp_AGT_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 1194 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 1199 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 1204 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 1209 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 1214 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 1219 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 1224 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_BinOp_AGT_1)) of
{ ( sem_BinOp_1) ->
( _lhsOcopy,sem_BinOp_1) }) }) })
sem_BinOp_ALEQ :: T_BinOp
sem_BinOp_ALEQ =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
ALEQ
{-# LINE 1235 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 1240 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_BinOp_ALEQ_1 :: T_BinOp_1
sem_BinOp_ALEQ_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 1257 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 1262 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 1267 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 1272 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 1277 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 1282 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 1287 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_BinOp_ALEQ_1)) of
{ ( sem_BinOp_1) ->
( _lhsOcopy,sem_BinOp_1) }) }) })
sem_BinOp_AGEQ :: T_BinOp
sem_BinOp_AGEQ =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AGEQ
{-# LINE 1298 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 1303 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_BinOp_AGEQ_1 :: T_BinOp_1
sem_BinOp_AGEQ_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 1320 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 1325 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 1330 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 1335 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 1340 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 1345 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 1350 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_BinOp_AGEQ_1)) of
{ ( sem_BinOp_1) ->
( _lhsOcopy,sem_BinOp_1) }) }) })
sem_BinOp_ANEq :: T_BinOp
sem_BinOp_ANEq =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
ANEq
{-# LINE 1361 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 1366 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_BinOp_ANEq_1 :: T_BinOp_1
sem_BinOp_ANEq_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 1383 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 1388 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 1393 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 1398 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 1403 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 1408 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 1413 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_BinOp_ANEq_1)) of
{ ( sem_BinOp_1) ->
( _lhsOcopy,sem_BinOp_1) }) }) })
sem_BinOp_AEq :: T_BinOp
sem_BinOp_AEq =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AEq
{-# LINE 1424 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 1429 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_BinOp_AEq_1 :: T_BinOp_1
sem_BinOp_AEq_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 1446 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 1451 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 1456 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 1461 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 1466 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 1471 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 1476 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_BinOp_AEq_1)) of
{ ( sem_BinOp_1) ->
( _lhsOcopy,sem_BinOp_1) }) }) })
sem_BinOp_AConcatenate :: T_BinOp
sem_BinOp_AConcatenate =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AConcatenate
{-# LINE 1487 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 1492 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_BinOp_AConcatenate_1 :: T_BinOp_1
sem_BinOp_AConcatenate_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 1509 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 1514 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 1519 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 1524 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 1529 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 1534 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 1539 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_BinOp_AConcatenate_1)) of
{ ( sem_BinOp_1) ->
( _lhsOcopy,sem_BinOp_1) }) }) })
sem_BinOp_APlus :: T_BinOp
sem_BinOp_APlus =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
APlus
{-# LINE 1550 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 1555 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_BinOp_APlus_1 :: T_BinOp_1
sem_BinOp_APlus_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 1572 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 1577 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 1582 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 1587 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 1592 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 1597 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 1602 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_BinOp_APlus_1)) of
{ ( sem_BinOp_1) ->
( _lhsOcopy,sem_BinOp_1) }) }) })
sem_BinOp_BinMinus :: T_BinOp
sem_BinOp_BinMinus =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
BinMinus
{-# LINE 1613 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 1618 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_BinOp_BinMinus_1 :: T_BinOp_1
sem_BinOp_BinMinus_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 1635 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 1640 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 1645 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 1650 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 1655 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 1660 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 1665 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_BinOp_BinMinus_1)) of
{ ( sem_BinOp_1) ->
( _lhsOcopy,sem_BinOp_1) }) }) })
sem_BinOp_AMultiply :: T_BinOp
sem_BinOp_AMultiply =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AMultiply
{-# LINE 1676 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 1681 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_BinOp_AMultiply_1 :: T_BinOp_1
sem_BinOp_AMultiply_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 1698 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 1703 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 1708 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 1713 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 1718 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 1723 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 1728 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_BinOp_AMultiply_1)) of
{ ( sem_BinOp_1) ->
( _lhsOcopy,sem_BinOp_1) }) }) })
sem_BinOp_ADivide :: T_BinOp
sem_BinOp_ADivide =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
ADivide
{-# LINE 1739 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 1744 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_BinOp_ADivide_1 :: T_BinOp_1
sem_BinOp_ADivide_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 1761 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 1766 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 1771 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 1776 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 1781 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 1786 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 1791 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_BinOp_ADivide_1)) of
{ ( sem_BinOp_1) ->
( _lhsOcopy,sem_BinOp_1) }) }) })
sem_BinOp_AModulus :: T_BinOp
sem_BinOp_AModulus =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AModulus
{-# LINE 1802 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 1807 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_BinOp_AModulus_1 :: T_BinOp_1
sem_BinOp_AModulus_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 1824 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 1829 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 1834 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 1839 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 1844 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 1849 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 1854 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_BinOp_AModulus_1)) of
{ ( sem_BinOp_1) ->
( _lhsOcopy,sem_BinOp_1) }) }) })
sem_BinOp_APower :: T_BinOp
sem_BinOp_APower =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
APower
{-# LINE 1865 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 1870 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_BinOp_APower_1 :: T_BinOp_1
sem_BinOp_APower_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 1887 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 1892 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 1897 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 1902 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 1907 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 1912 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 1917 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_BinOp_APower_1)) of
{ ( sem_BinOp_1) ->
( _lhsOcopy,sem_BinOp_1) }) }) })
-- Block -------------------------------------------------------
-- cata
sem_Block :: Block ->
T_Block
sem_Block (Block _pos _stats _ret) =
(sem_Block_Block _pos (sem_MStatList _stats) (sem_AReturn _ret))
-- semantic domain
type T_Block = ( Block,T_Block_1)
type T_Block_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),Int,DeterminedVariableStyle,([String -> LintMessage]))
data Inh_Block = Inh_Block {config_Inh_Block :: LintSettings,funcName_Inh_Block :: String,globalDefinitions_Inh_Block :: (M.Map String [Region]),isInModule_Inh_Block :: Bool,isMeta_Inh_Block :: Bool,isRepeat_Inh_Block :: Bool,loopLevel_Inh_Block :: Int,mtokenPos_Inh_Block :: Region,scopeLevel_Inh_Block :: Int,scopes_Inh_Block :: ([M.Map String (Bool, Region)]),variableStyle_Inh_Block :: DeterminedVariableStyle}
data Syn_Block = Syn_Block {copy_Syn_Block :: Block,globalDefinitions_Syn_Block :: (M.Map String [Region]),identifier_Syn_Block :: String,isIfStatement_Syn_Block :: Bool,isInModule_Syn_Block :: Bool,mtokenPos_Syn_Block :: Region,scopes_Syn_Block :: ([M.Map String (Bool, Region)]),statementCount_Syn_Block :: Int,variableStyle_Syn_Block :: DeterminedVariableStyle,warnings_Syn_Block :: ([String -> LintMessage])}
wrap_Block :: T_Block ->
Inh_Block ->
Syn_Block
wrap_Block sem (Inh_Block _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIisRepeat _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIisRepeat _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_Block _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisIfStatement _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOstatementCount _lhsOvariableStyle _lhsOwarnings))
sem_Block_Block :: Region ->
T_MStatList ->
T_AReturn ->
T_Block
sem_Block_Block pos_ stats_ ret_ =
(case (ret_) of
{ ( _retIcopy,ret_1) ->
(case (stats_) of
{ ( _statsIcopy,stats_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Block pos_ _statsIcopy _retIcopy
{-# LINE 1964 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 1969 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Block_Block_1 :: T_Block_1
sem_Block_Block_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIisRepeat
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 1987 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statsOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 1992 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statsOisMeta ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 1997 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statsOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 2002 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statsOvariableStyle ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 2007 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statsOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 2012 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statsOloopLevel ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 2017 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statsOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 2022 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statsOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 2027 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statsOfuncName ->
(case (({-# LINE 298 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel + 1
{-# LINE 2032 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statsOscopeLevel ->
(case (stats_1 _statsOconfig _statsOfuncName _statsOglobalDefinitions _statsOisInModule _statsOisMeta _statsOloopLevel _statsOmtokenPos _statsOscopeLevel _statsOscopes _statsOvariableStyle) of
{ ( _statsIglobalDefinitions,_statsIidentifier,_statsIisIfStatement,_statsIisInModule,_statsImtokenPos,_statsIscopes,_statsIstatementCount,_statsIvariableStyle,_statsIwarnings) ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_statsIscopes
{-# LINE 2039 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _retOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 2044 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _retOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_statsIisInModule
{-# LINE 2049 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _retOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_statsIglobalDefinitions
{-# LINE 2054 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _retOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 2059 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _retOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_statsIvariableStyle
{-# LINE 2064 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _retOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 2069 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _retOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_statsImtokenPos
{-# LINE 2074 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _retOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 2079 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _retOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 2084 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _retOfuncName ->
(case (ret_1 _retOconfig _retOfuncName _retOglobalDefinitions _retOisInModule _retOisMeta _retOloopLevel _retOmtokenPos _retOscopeLevel _retOscopes _retOvariableStyle) of
{ ( _retIglobalDefinitions,_retIidentifier,_retIisInModule,_retImtokenPos,_retIscopes,_retIstatementCount,_retIvariableStyle,_retIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_retIglobalDefinitions
{-# LINE 2091 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _statsIidentifier _retIidentifier)
{-# LINE 2096 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}
_statsIisIfStatement
{-# LINE 2101 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisIfStatement ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_retIisInModule
{-# LINE 2106 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_retImtokenPos
{-# LINE 2111 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 305 "src/GLuaFixer/AG/ASTLint.ag" #-}
if _lhsIisRepeat then _retIscopes else tail _retIscopes
{-# LINE 2116 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-}
_statsIstatementCount + _retIstatementCount
{-# LINE 2121 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOstatementCount ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_retIvariableStyle
{-# LINE 2126 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 303 "src/GLuaFixer/AG/ASTLint.ag" #-}
_statsIwarnings ++ _retIwarnings
{-# LINE 2131 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 302 "src/GLuaFixer/AG/ASTLint.ag" #-}
M.filterWithKey (\k (b, _) -> not (null k) && head k /= '_' && not b) (head _retIscopes)
{-# LINE 2136 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _deadVars ->
(case (({-# LINE 299 "src/GLuaFixer/AG/ASTLint.ag" #-}
lint_maxScopeDepth _lhsIconfig
{-# LINE 2141 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _maxScopeDepth ->
(case (({-# LINE 303 "src/GLuaFixer/AG/ASTLint.ag" #-}
if _maxScopeDepth == 0 || _lhsIscopeLevel /= _maxScopeDepth then id else
(:) $ warn _statsImtokenPos ScopePyramids
{-# LINE 2147 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f2 ->
(case (({-# LINE 303 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_unusedVars _lhsIconfig) || _lhsIisRepeat then id else
(++) $ M.foldrWithKey (\k (_, pos) ls -> warn pos (UnusedVariable k) : ls) [] _deadVars
{-# LINE 2153 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 303 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2]
{-# LINE 2158 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Block_Block_1)) of
{ ( sem_Block_1) ->
( _lhsOcopy,sem_Block_1) }) }) }) }) })
-- Declaration -------------------------------------------------
-- cata
sem_Declaration :: Declaration ->
T_Declaration
sem_Declaration ( x1,x2) =
(sem_Declaration_Tuple (sem_PrefixExp x1) (sem_MaybeMExpr x2))
-- semantic domain
type T_Declaration = ( Declaration,T_Declaration_1)
type T_Declaration_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_Declaration = Inh_Declaration {config_Inh_Declaration :: LintSettings,funcName_Inh_Declaration :: String,globalDefinitions_Inh_Declaration :: (M.Map String [Region]),isInModule_Inh_Declaration :: Bool,isMeta_Inh_Declaration :: Bool,localDefinition_Inh_Declaration :: Bool,loopLevel_Inh_Declaration :: Int,mtokenPos_Inh_Declaration :: Region,scopeLevel_Inh_Declaration :: Int,scopes_Inh_Declaration :: ([M.Map String (Bool, Region)]),variableStyle_Inh_Declaration :: DeterminedVariableStyle}
data Syn_Declaration = Syn_Declaration {copy_Syn_Declaration :: Declaration,globalDefinitions_Syn_Declaration :: (M.Map String [Region]),identifier_Syn_Declaration :: String,isInModule_Syn_Declaration :: Bool,mtokenPos_Syn_Declaration :: Region,scopes_Syn_Declaration :: ([M.Map String (Bool, Region)]),variableStyle_Syn_Declaration :: DeterminedVariableStyle,warnings_Syn_Declaration :: ([String -> LintMessage])}
wrap_Declaration :: T_Declaration ->
Inh_Declaration ->
Syn_Declaration
wrap_Declaration sem (Inh_Declaration _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIlocalDefinition _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIlocalDefinition _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_Declaration _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_Declaration_Tuple :: T_PrefixExp ->
T_MaybeMExpr ->
T_Declaration
sem_Declaration_Tuple x1_ x2_ =
(case (x2_) of
{ ( _x2Icopy,x2_1) ->
(case (x1_) of
{ ( _x1Icopy,_x1IhasSuffixes,_x1ImtokenPos,_x1IvarName,x1_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
(_x1Icopy,_x2Icopy)
{-# LINE 2204 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 2209 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Declaration_Tuple_1 :: T_Declaration_1
sem_Declaration_Tuple_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIlocalDefinition
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 2227 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OisMeta ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 2232 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1Oconfig ->
(case (({-# LINE 268 "src/GLuaFixer/AG/ASTLint.ag" #-}
tokenLabel . fromMaybe (error "fromMaybe sem Declaration loc.var") $ _x1IvarName
{-# LINE 2237 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _var ->
(case (({-# LINE 276 "src/GLuaFixer/AG/ASTLint.ag" #-}
if _lhsIlocalDefinition then
M.insert _var (False, _x1ImtokenPos) (head _lhsIscopes) : tail _lhsIscopes
else if isJust _x1IvarName then
registerVariable _lhsIscopes _x1ImtokenPos _var _x1IhasSuffixes
else
_lhsIscopes
{-# LINE 2247 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1Oscopes ->
(case (({-# LINE 264 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 2252 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OvarBeingDefined ->
(case (({-# LINE 260 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 2257 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OregisterVarUse ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 2262 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 2267 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 2272 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 2277 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OloopLevel ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 2282 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 2287 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 2292 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OfuncName ->
(case (({-# LINE 262 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 2297 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OtopLevel ->
(case (({-# LINE 261 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 2302 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OinParentheses ->
(case (({-# LINE 259 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 2307 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OisNegation ->
(case (x1_1 _x1Oconfig _x1OfuncName _x1OglobalDefinitions _x1OinParentheses _x1OisInModule _x1OisMeta _x1OisNegation _x1OloopLevel _x1OmtokenPos _x1OregisterVarUse _x1OscopeLevel _x1Oscopes _x1OtopLevel _x1OvarBeingDefined _x1OvariableStyle) of
{ ( _x1IglobalDefinitions,_x1Iidentifier,_x1IisInModule,_x1IisSimpleExpression,_x1IisSingleVar,_x1Iscopes,_x1IvariableStyle,_x1Iwarnings) ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x1Iscopes
{-# LINE 2314 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2Oscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 2319 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2OisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x1IisInModule
{-# LINE 2324 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2OisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x1IglobalDefinitions
{-# LINE 2329 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2OglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 2334 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2Oconfig ->
(case (({-# LINE 266 "src/GLuaFixer/AG/ASTLint.ag" #-}
if _x1IhasSuffixes || not _lhsIlocalDefinition then Nothing else _x1IvarName
{-# LINE 2339 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2OvarBeingDefined ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x1IvariableStyle
{-# LINE 2344 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2OvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 2349 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2OscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x1ImtokenPos
{-# LINE 2354 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2OmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 2359 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2OloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 2364 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2OfuncName ->
(case (({-# LINE 263 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 2369 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2OisNegation ->
(case (x2_1 _x2Oconfig _x2OfuncName _x2OglobalDefinitions _x2OisInModule _x2OisMeta _x2OisNegation _x2OloopLevel _x2OmtokenPos _x2OscopeLevel _x2Oscopes _x2OvarBeingDefined _x2OvariableStyle) of
{ ( _x2IglobalDefinitions,_x2Iidentifier,_x2IisInModule,_x2IisSingleVar,_x2ImtokenPos,_x2Iscopes,_x2IvariableStyle,_x2Iwarnings) ->
(case (({-# LINE 283 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x2IglobalDefinitions
{-# LINE 2376 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _globalDefinitions_augmented_syn ->
(case (({-# LINE 283 "src/GLuaFixer/AG/ASTLint.ag" #-}
if _lhsIisInModule || _lhsIlocalDefinition || isVariableLocal _lhsIscopes _var || _x1IhasSuffixes then id else
M.insertWith (++) _var [_x1ImtokenPos]
{-# LINE 2382 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _globalDefinitions_augmented_f1 ->
(case (({-# LINE 283 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _globalDefinitions_augmented_syn [_globalDefinitions_augmented_f1]
{-# LINE 2387 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _x1Iidentifier _x2Iidentifier)
{-# LINE 2392 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x2IisInModule
{-# LINE 2397 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 257 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x1ImtokenPos
{-# LINE 2402 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x2Iscopes
{-# LINE 2407 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 269 "src/GLuaFixer/AG/ASTLint.ag" #-}
determineVariableStyle _var
{-# LINE 2412 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varStyle ->
(case (({-# LINE 258 "src/GLuaFixer/AG/ASTLint.ag" #-}
if _lhsIlocalDefinition then combineDeterminedVarStyle _lhsIvariableStyle _varStyle else _lhsIvariableStyle
{-# LINE 2417 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 288 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x1Iwarnings ++ _x2Iwarnings
{-# LINE 2422 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 270 "src/GLuaFixer/AG/ASTLint.ag" #-}
do
var <- _x1IvarName
if (Just var /= _x2IisSingleVar) then
checkShadows _lhsIscopes var
else Nothing
{-# LINE 2431 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _shadowWarning ->
(case (({-# LINE 288 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_shadowing _lhsIconfig) || not _lhsIlocalDefinition || isNothing _shadowWarning then id else
(:) . fromMaybe (error "fromMaybe sem Declaration +warnings") $ _shadowWarning
{-# LINE 2437 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f2 ->
(case (({-# LINE 288 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_inconsistentVariableStyle _lhsIconfig) || not _lhsIlocalDefinition || not (variableStyleInconsistent _lhsIvariableStyle _varStyle ) then id else
(:) $ warn _x1ImtokenPos InconsistentVariableNaming
{-# LINE 2443 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 288 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2]
{-# LINE 2448 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Declaration_Tuple_1)) of
{ ( sem_Declaration_1) ->
( _lhsOcopy,sem_Declaration_1) }) }) }) }) })
-- Else --------------------------------------------------------
-- cata
sem_Else :: Else ->
T_Else
sem_Else (Prelude.Just x) =
(sem_Else_Just (sem_MElse x))
sem_Else Prelude.Nothing =
sem_Else_Nothing
-- semantic domain
type T_Else = ( Else,T_Else_1)
type T_Else_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( Bool,(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_Else = Inh_Else {config_Inh_Else :: LintSettings,funcName_Inh_Else :: String,globalDefinitions_Inh_Else :: (M.Map String [Region]),isInModule_Inh_Else :: Bool,isMeta_Inh_Else :: Bool,loopLevel_Inh_Else :: Int,mtokenPos_Inh_Else :: Region,scopeLevel_Inh_Else :: Int,scopes_Inh_Else :: ([M.Map String (Bool, Region)]),variableStyle_Inh_Else :: DeterminedVariableStyle}
data Syn_Else = Syn_Else {copy_Syn_Else :: Else,elseExists_Syn_Else :: Bool,globalDefinitions_Syn_Else :: (M.Map String [Region]),identifier_Syn_Else :: String,isInModule_Syn_Else :: Bool,mtokenPos_Syn_Else :: Region,scopes_Syn_Else :: ([M.Map String (Bool, Region)]),variableStyle_Syn_Else :: DeterminedVariableStyle,warnings_Syn_Else :: ([String -> LintMessage])}
wrap_Else :: T_Else ->
Inh_Else ->
Syn_Else
wrap_Else sem (Inh_Else _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_Else _lhsOcopy _lhsOelseExists _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_Else_Just :: T_MElse ->
T_Else
sem_Else_Just just_ =
(case (just_) of
{ ( _justIcopy,just_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Just _justIcopy
{-# LINE 2492 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 2497 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Else_Just_1 :: T_Else_1
sem_Else_Just_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 498 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 2514 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOelseExists ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 2519 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 2524 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 2529 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 2534 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOconfig ->
(case (({-# LINE 497 "src/GLuaFixer/AG/ASTLint.ag" #-}
M.empty : _lhsIscopes
{-# LINE 2539 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 2544 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 2549 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 2554 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 2559 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 2564 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOfuncName ->
(case (just_1 _justOconfig _justOfuncName _justOglobalDefinitions _justOisInModule _justOisMeta _justOloopLevel _justOmtokenPos _justOscopeLevel _justOscopes _justOvariableStyle) of
{ ( _justIelseExists,_justIglobalDefinitions,_justIidentifier,_justIisInModule,_justImtokenPos,_justIscopes,_justIstatementCount,_justIvariableStyle,_justIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_justIglobalDefinitions
{-# LINE 2571 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_justIidentifier
{-# LINE 2576 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_justIisInModule
{-# LINE 2581 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_justImtokenPos
{-# LINE 2586 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_justIscopes
{-# LINE 2591 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_justIvariableStyle
{-# LINE 2596 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 500 "src/GLuaFixer/AG/ASTLint.ag" #-}
_justIwarnings
{-# LINE 2601 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 499 "src/GLuaFixer/AG/ASTLint.ag" #-}
Region (rgStart _justImtokenPos) (rgEnd _lhsImtokenPos)
{-# LINE 2606 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elsePos ->
(case (({-# LINE 500 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_emptyBlocks _lhsIconfig) || _justIstatementCount > 0 then id else
(:) $ warn _elsePos EmptyElse
{-# LINE 2612 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 500 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 2617 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Else_Just_1)) of
{ ( sem_Else_1) ->
( _lhsOcopy,sem_Else_1) }) }) }) })
sem_Else_Nothing :: T_Else
sem_Else_Nothing =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 2628 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 2633 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Else_Nothing_1 :: T_Else_1
sem_Else_Nothing_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 203 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 2650 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOelseExists ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 2655 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 2660 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 2665 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 2670 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 2675 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 2680 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 2685 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }))
in sem_Else_Nothing_1)) of
{ ( sem_Else_1) ->
( _lhsOcopy,sem_Else_1) }) }) })
-- ElseIf ------------------------------------------------------
-- cata
sem_ElseIf :: ElseIf ->
T_ElseIf
sem_ElseIf ( x1,x2) =
(sem_ElseIf_Tuple (sem_MExpr x1) (sem_Block x2))
-- semantic domain
type T_ElseIf = ( ElseIf,T_ElseIf_1)
type T_ElseIf_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_ElseIf = Inh_ElseIf {config_Inh_ElseIf :: LintSettings,funcName_Inh_ElseIf :: String,globalDefinitions_Inh_ElseIf :: (M.Map String [Region]),isInModule_Inh_ElseIf :: Bool,isMeta_Inh_ElseIf :: Bool,loopLevel_Inh_ElseIf :: Int,mtokenPos_Inh_ElseIf :: Region,scopeLevel_Inh_ElseIf :: Int,scopes_Inh_ElseIf :: ([M.Map String (Bool, Region)]),variableStyle_Inh_ElseIf :: DeterminedVariableStyle}
data Syn_ElseIf = Syn_ElseIf {copy_Syn_ElseIf :: ElseIf,globalDefinitions_Syn_ElseIf :: (M.Map String [Region]),identifier_Syn_ElseIf :: String,isInModule_Syn_ElseIf :: Bool,mtokenPos_Syn_ElseIf :: Region,scopes_Syn_ElseIf :: ([M.Map String (Bool, Region)]),variableStyle_Syn_ElseIf :: DeterminedVariableStyle,warnings_Syn_ElseIf :: ([String -> LintMessage])}
wrap_ElseIf :: T_ElseIf ->
Inh_ElseIf ->
Syn_ElseIf
wrap_ElseIf sem (Inh_ElseIf _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_ElseIf _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_ElseIf_Tuple :: T_MExpr ->
T_Block ->
T_ElseIf
sem_ElseIf_Tuple x1_ x2_ =
(case (x2_) of
{ ( _x2Icopy,x2_1) ->
(case (x1_) of
{ ( _x1Icopy,_x1ImtokenPos,x1_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
(_x1Icopy,_x2Icopy)
{-# LINE 2730 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 2735 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_ElseIf_Tuple_1 :: T_ElseIf_1
sem_ElseIf_Tuple_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 2752 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2OisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 2757 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OisInModule ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 2762 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 2767 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1Oscopes ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 2772 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 2777 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 2782 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OloopLevel ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 2787 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OisMeta ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 2792 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 2797 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 2802 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1Oconfig ->
(case (({-# LINE 484 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 2807 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OvarBeingDefined ->
(case (({-# LINE 483 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 2812 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OtopLevel ->
(case (({-# LINE 482 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 2817 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OinParentheses ->
(case (({-# LINE 481 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 2822 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x1OisNegation ->
(case (x1_1 _x1Oconfig _x1OfuncName _x1OglobalDefinitions _x1OinParentheses _x1OisInModule _x1OisMeta _x1OisNegation _x1OloopLevel _x1OmtokenPos _x1OscopeLevel _x1Oscopes _x1OtopLevel _x1OvarBeingDefined _x1OvariableStyle) of
{ ( _x1IglobalDefinitions,_x1Iidentifier,_x1IisInModule,_x1IisSimpleExpression,_x1IisSingleVar,_x1Iscopes,_x1IvariableStyle,_x1Iwarnings) ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x1IisInModule
{-# LINE 2829 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2OisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x1IglobalDefinitions
{-# LINE 2834 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2OglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 2839 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2Oconfig ->
(case (({-# LINE 485 "src/GLuaFixer/AG/ASTLint.ag" #-}
M.empty : _x1Iscopes
{-# LINE 2844 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2Oscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x1IvariableStyle
{-# LINE 2849 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2OvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 2854 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2OscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x1ImtokenPos
{-# LINE 2859 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2OmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 2864 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2OloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 2869 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2OfuncName ->
(case (({-# LINE 486 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 2874 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _x2OisRepeat ->
(case (x2_1 _x2Oconfig _x2OfuncName _x2OglobalDefinitions _x2OisInModule _x2OisMeta _x2OisRepeat _x2OloopLevel _x2OmtokenPos _x2OscopeLevel _x2Oscopes _x2OvariableStyle) of
{ ( _x2IglobalDefinitions,_x2Iidentifier,_x2IisIfStatement,_x2IisInModule,_x2ImtokenPos,_x2Iscopes,_x2IstatementCount,_x2IvariableStyle,_x2Iwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x2IglobalDefinitions
{-# LINE 2881 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _x1Iidentifier _x2Iidentifier)
{-# LINE 2886 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x2IisInModule
{-# LINE 2891 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x2ImtokenPos
{-# LINE 2896 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x2Iscopes
{-# LINE 2901 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x2IvariableStyle
{-# LINE 2906 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 487 "src/GLuaFixer/AG/ASTLint.ag" #-}
_x1Iwarnings ++ _x2Iwarnings
{-# LINE 2911 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 487 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_emptyBlocks _lhsIconfig) || _x2IstatementCount > 0 then id else
(:) $ warn _lhsImtokenPos EmptyElseIf
{-# LINE 2917 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 487 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 2922 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_ElseIf_Tuple_1)) of
{ ( sem_ElseIf_1) ->
( _lhsOcopy,sem_ElseIf_1) }) }) }) }) })
-- ElseIfList --------------------------------------------------
-- cata
sem_ElseIfList :: ElseIfList ->
T_ElseIfList
sem_ElseIfList list =
(Prelude.foldr sem_ElseIfList_Cons sem_ElseIfList_Nil (Prelude.map sem_MElseIf list))
-- semantic domain
type T_ElseIfList = ( ElseIfList,T_ElseIfList_1)
type T_ElseIfList_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( Bool,(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_ElseIfList = Inh_ElseIfList {config_Inh_ElseIfList :: LintSettings,funcName_Inh_ElseIfList :: String,globalDefinitions_Inh_ElseIfList :: (M.Map String [Region]),isInModule_Inh_ElseIfList :: Bool,isMeta_Inh_ElseIfList :: Bool,loopLevel_Inh_ElseIfList :: Int,mtokenPos_Inh_ElseIfList :: Region,scopeLevel_Inh_ElseIfList :: Int,scopes_Inh_ElseIfList :: ([M.Map String (Bool, Region)]),variableStyle_Inh_ElseIfList :: DeterminedVariableStyle}
data Syn_ElseIfList = Syn_ElseIfList {copy_Syn_ElseIfList :: ElseIfList,elseExists_Syn_ElseIfList :: Bool,globalDefinitions_Syn_ElseIfList :: (M.Map String [Region]),identifier_Syn_ElseIfList :: String,isInModule_Syn_ElseIfList :: Bool,mtokenPos_Syn_ElseIfList :: Region,scopes_Syn_ElseIfList :: ([M.Map String (Bool, Region)]),variableStyle_Syn_ElseIfList :: DeterminedVariableStyle,warnings_Syn_ElseIfList :: ([String -> LintMessage])}
wrap_ElseIfList :: T_ElseIfList ->
Inh_ElseIfList ->
Syn_ElseIfList
wrap_ElseIfList sem (Inh_ElseIfList _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_ElseIfList _lhsOcopy _lhsOelseExists _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_ElseIfList_Cons :: T_MElseIf ->
T_ElseIfList ->
T_ElseIfList
sem_ElseIfList_Cons hd_ tl_ =
(case (tl_) of
{ ( _tlIcopy,tl_1) ->
(case (hd_) of
{ ( _hdIcopy,hd_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
(:) _hdIcopy _tlIcopy
{-# LINE 2967 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 2972 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_ElseIfList_Cons_1 :: T_ElseIfList_1
sem_ElseIfList_Cons_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 468 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 2989 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOelseExists ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 2994 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 2999 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOisMeta ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 3004 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 3009 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 3014 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 3019 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 3024 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOloopLevel ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 3029 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 3034 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 3039 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOfuncName ->
(case (hd_1 _hdOconfig _hdOfuncName _hdOglobalDefinitions _hdOisInModule _hdOisMeta _hdOloopLevel _hdOmtokenPos _hdOscopeLevel _hdOscopes _hdOvariableStyle) of
{ ( _hdIglobalDefinitions,_hdIidentifier,_hdIisInModule,_hdImtokenPos,_hdIscopes,_hdIvariableStyle,_hdIwarnings) ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIscopes
{-# LINE 3046 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 3051 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIisInModule
{-# LINE 3056 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIglobalDefinitions
{-# LINE 3061 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 3066 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIvariableStyle
{-# LINE 3071 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 3076 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdImtokenPos
{-# LINE 3081 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 3086 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 3091 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOfuncName ->
(case (tl_1 _tlOconfig _tlOfuncName _tlOglobalDefinitions _tlOisInModule _tlOisMeta _tlOloopLevel _tlOmtokenPos _tlOscopeLevel _tlOscopes _tlOvariableStyle) of
{ ( _tlIelseExists,_tlIglobalDefinitions,_tlIidentifier,_tlIisInModule,_tlImtokenPos,_tlIscopes,_tlIvariableStyle,_tlIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIglobalDefinitions
{-# LINE 3098 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _hdIidentifier _tlIidentifier)
{-# LINE 3103 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIisInModule
{-# LINE 3108 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 469 "src/GLuaFixer/AG/ASTLint.ag" #-}
Region
(rgStart _hdImtokenPos)
(rgEnd $ if _tlIelseExists then _tlImtokenPos else _hdImtokenPos)
{-# LINE 3115 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIscopes
{-# LINE 3120 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIvariableStyle
{-# LINE 3125 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIwarnings ++ _tlIwarnings
{-# LINE 3130 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_ElseIfList_Cons_1)) of
{ ( sem_ElseIfList_1) ->
( _lhsOcopy,sem_ElseIfList_1) }) }) }) }) })
sem_ElseIfList_Nil :: T_ElseIfList
sem_ElseIfList_Nil =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 3141 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 3146 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_ElseIfList_Nil_1 :: T_ElseIfList_1
sem_ElseIfList_Nil_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 203 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 3163 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOelseExists ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 3168 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 3173 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 3178 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 3183 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 3188 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 3193 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 3198 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }))
in sem_ElseIfList_Nil_1)) of
{ ( sem_ElseIfList_1) ->
( _lhsOcopy,sem_ElseIfList_1) }) }) })
-- Expr --------------------------------------------------------
-- cata
sem_Expr :: Expr ->
T_Expr
sem_Expr (ANil) =
(sem_Expr_ANil)
sem_Expr (AFalse) =
(sem_Expr_AFalse)
sem_Expr (ATrue) =
(sem_Expr_ATrue)
sem_Expr (ANumber _num) =
(sem_Expr_ANumber _num)
sem_Expr (AString _str) =
(sem_Expr_AString (sem_MToken _str))
sem_Expr (AVarArg) =
(sem_Expr_AVarArg)
sem_Expr (AnonymousFunc _pars _body) =
(sem_Expr_AnonymousFunc _pars (sem_Block _body))
sem_Expr (APrefixExpr _pexpr) =
(sem_Expr_APrefixExpr (sem_PrefixExp _pexpr))
sem_Expr (ATableConstructor _fields) =
(sem_Expr_ATableConstructor (sem_FieldList _fields))
sem_Expr (BinOpExpr _op _left _right) =
(sem_Expr_BinOpExpr (sem_BinOp _op) (sem_MExpr _left) (sem_MExpr _right))
sem_Expr (UnOpExpr _op _right) =
(sem_Expr_UnOpExpr (sem_UnOp _op) (sem_MExpr _right))
-- semantic domain
type T_Expr = ( Expr,T_Expr_1)
type T_Expr_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
Bool ->
(Maybe MToken) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,Bool,(Maybe MToken),Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_Expr = Inh_Expr {config_Inh_Expr :: LintSettings,funcName_Inh_Expr :: String,globalDefinitions_Inh_Expr :: (M.Map String [Region]),inParentheses_Inh_Expr :: Bool,isInModule_Inh_Expr :: Bool,isMeta_Inh_Expr :: Bool,isNegation_Inh_Expr :: Bool,loopLevel_Inh_Expr :: Int,mtokenPos_Inh_Expr :: Region,scopeLevel_Inh_Expr :: Int,scopes_Inh_Expr :: ([M.Map String (Bool, Region)]),topLevel_Inh_Expr :: Bool,varBeingDefined_Inh_Expr :: (Maybe MToken),variableStyle_Inh_Expr :: DeterminedVariableStyle}
data Syn_Expr = Syn_Expr {copy_Syn_Expr :: Expr,globalDefinitions_Syn_Expr :: (M.Map String [Region]),identifier_Syn_Expr :: String,isInModule_Syn_Expr :: Bool,isSimpleExpression_Syn_Expr :: Bool,isSingleVar_Syn_Expr :: (Maybe MToken),mtokenPos_Syn_Expr :: Region,scopes_Syn_Expr :: ([M.Map String (Bool, Region)]),variableStyle_Syn_Expr :: DeterminedVariableStyle,warnings_Syn_Expr :: ([String -> LintMessage])}
wrap_Expr :: T_Expr ->
Inh_Expr ->
Syn_Expr
wrap_Expr sem (Inh_Expr _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvarBeingDefined _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvarBeingDefined _lhsIvariableStyle
in (Syn_Expr _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOisSimpleExpression _lhsOisSingleVar _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_Expr_ANil :: T_Expr
sem_Expr_ANil =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
ANil
{-# LINE 3261 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 3266 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Expr_ANil_1 :: T_Expr_1
sem_Expr_ANil_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIinParentheses
_lhsIisInModule
_lhsIisMeta
_lhsIisNegation
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsItopLevel
_lhsIvarBeingDefined
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 3287 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 3292 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 3297 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 3302 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 3307 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSingleVar ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 3312 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 3317 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 3322 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 3327 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }))
in sem_Expr_ANil_1)) of
{ ( sem_Expr_1) ->
( _lhsOcopy,sem_Expr_1) }) }) })
sem_Expr_AFalse :: T_Expr
sem_Expr_AFalse =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AFalse
{-# LINE 3338 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 3343 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Expr_AFalse_1 :: T_Expr_1
sem_Expr_AFalse_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIinParentheses
_lhsIisInModule
_lhsIisMeta
_lhsIisNegation
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsItopLevel
_lhsIvarBeingDefined
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 3364 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 3369 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 3374 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 3379 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 3384 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSingleVar ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 3389 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 3394 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 3399 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 3404 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }))
in sem_Expr_AFalse_1)) of
{ ( sem_Expr_1) ->
( _lhsOcopy,sem_Expr_1) }) }) })
sem_Expr_ATrue :: T_Expr
sem_Expr_ATrue =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
ATrue
{-# LINE 3415 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 3420 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Expr_ATrue_1 :: T_Expr_1
sem_Expr_ATrue_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIinParentheses
_lhsIisInModule
_lhsIisMeta
_lhsIisNegation
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsItopLevel
_lhsIvarBeingDefined
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 3441 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 3446 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 3451 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 3456 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 3461 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSingleVar ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 3466 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 3471 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 3476 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 3481 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }))
in sem_Expr_ATrue_1)) of
{ ( sem_Expr_1) ->
( _lhsOcopy,sem_Expr_1) }) }) })
sem_Expr_ANumber :: String ->
T_Expr
sem_Expr_ANumber num_ =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
ANumber num_
{-# LINE 3493 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 3498 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Expr_ANumber_1 :: T_Expr_1
sem_Expr_ANumber_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIinParentheses
_lhsIisInModule
_lhsIisMeta
_lhsIisNegation
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsItopLevel
_lhsIvarBeingDefined
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 3519 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 3524 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 3529 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 3534 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 3539 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSingleVar ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 3544 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 3549 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 3554 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 3559 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }))
in sem_Expr_ANumber_1)) of
{ ( sem_Expr_1) ->
( _lhsOcopy,sem_Expr_1) }) }) })
sem_Expr_AString :: T_MToken ->
T_Expr
sem_Expr_AString str_ =
(case (str_) of
{ ( _strIcopy,_strImtok,_strImtokenPos,str_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AString _strIcopy
{-# LINE 3573 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 3578 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Expr_AString_1 :: T_Expr_1
sem_Expr_AString_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIinParentheses
_lhsIisInModule
_lhsIisMeta
_lhsIisNegation
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsItopLevel
_lhsIvarBeingDefined
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 3599 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _strOglobalDefinitions ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 3604 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _strOscopes ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 3609 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _strOmtokenPos ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 3614 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _strOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 3619 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _strOisInModule ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 3624 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _strOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 3629 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _strOconfig ->
(case (str_1 _strOconfig _strOfuncName _strOglobalDefinitions _strOisInModule _strOisMeta _strOmtokenPos _strOscopes) of
{ ( _strIglobalDefinitions,_strIidentifier,_strIisInModule,_strIscopes,_strIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_strIglobalDefinitions
{-# LINE 3636 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_strIidentifier
{-# LINE 3641 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_strIisInModule
{-# LINE 3646 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 3651 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 3656 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSingleVar ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_strImtokenPos
{-# LINE 3661 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_strIscopes
{-# LINE 3666 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 3671 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_strIwarnings
{-# LINE 3676 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Expr_AString_1)) of
{ ( sem_Expr_1) ->
( _lhsOcopy,sem_Expr_1) }) }) }) })
sem_Expr_AVarArg :: T_Expr
sem_Expr_AVarArg =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AVarArg
{-# LINE 3687 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 3692 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Expr_AVarArg_1 :: T_Expr_1
sem_Expr_AVarArg_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIinParentheses
_lhsIisInModule
_lhsIisMeta
_lhsIisNegation
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsItopLevel
_lhsIvarBeingDefined
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 3713 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 3718 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 3723 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 581 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 3728 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 3733 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSingleVar ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 3738 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 3743 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 3748 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 3753 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }))
in sem_Expr_AVarArg_1)) of
{ ( sem_Expr_1) ->
( _lhsOcopy,sem_Expr_1) }) }) })
sem_Expr_AnonymousFunc :: ([MToken]) ->
T_Block ->
T_Expr
sem_Expr_AnonymousFunc pars_ body_ =
(case (body_) of
{ ( _bodyIcopy,body_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AnonymousFunc pars_ _bodyIcopy
{-# LINE 3768 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 3773 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Expr_AnonymousFunc_1 :: T_Expr_1
sem_Expr_AnonymousFunc_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIinParentheses
_lhsIisInModule
_lhsIisMeta
_lhsIisNegation
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsItopLevel
_lhsIvarBeingDefined
_lhsIvariableStyle ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 3794 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 3799 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 3804 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOconfig ->
(case (({-# LINE 586 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta || findSelf pars_
{-# LINE 3809 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisMeta ->
(case (({-# LINE 583 "src/GLuaFixer/AG/ASTLint.ag" #-}
M.fromList $ map (\mt -> (tokenLabel mt, (not . lint_unusedParameters $ _lhsIconfig, mpos mt))) pars_
{-# LINE 3814 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _introduces ->
(case (({-# LINE 584 "src/GLuaFixer/AG/ASTLint.ag" #-}
_introduces : _lhsIscopes
{-# LINE 3819 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 3824 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 3829 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 3834 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 3839 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 3844 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOfuncName ->
(case (({-# LINE 585 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 3849 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisRepeat ->
(case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of
{ ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIglobalDefinitions
{-# LINE 3856 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIidentifier
{-# LINE 3861 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIisInModule
{-# LINE 3866 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 3871 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 3876 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSingleVar ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyImtokenPos
{-# LINE 3881 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIscopes
{-# LINE 3886 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIvariableStyle
{-# LINE 3891 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 589 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIwarnings
{-# LINE 3896 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 587 "src/GLuaFixer/AG/ASTLint.ag" #-}
filter (/= MToken emptyRg VarArg) $ pars_
{-# LINE 3901 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argIdentifiers ->
(case (({-# LINE 589 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_shadowing _lhsIconfig) then id else
(++) . catMaybes . map (checkShadows _lhsIscopes) $ _argIdentifiers
{-# LINE 3907 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 589 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 3912 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Expr_AnonymousFunc_1)) of
{ ( sem_Expr_1) ->
( _lhsOcopy,sem_Expr_1) }) }) }) })
sem_Expr_APrefixExpr :: T_PrefixExp ->
T_Expr
sem_Expr_APrefixExpr pexpr_ =
(case (pexpr_) of
{ ( _pexprIcopy,_pexprIhasSuffixes,_pexprImtokenPos,_pexprIvarName,pexpr_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
APrefixExpr _pexprIcopy
{-# LINE 3926 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 3931 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Expr_APrefixExpr_1 :: T_Expr_1
sem_Expr_APrefixExpr_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIinParentheses
_lhsIisInModule
_lhsIisMeta
_lhsIisNegation
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsItopLevel
_lhsIvarBeingDefined
_lhsIvariableStyle ->
(case (({-# LINE 179 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvarBeingDefined
{-# LINE 3952 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _pexprOvarBeingDefined ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 3957 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _pexprOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 3962 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _pexprOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 3967 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _pexprOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 3972 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _pexprOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 3977 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _pexprOconfig ->
(case (({-# LINE 592 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 3982 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _pexprOregisterVarUse ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 3987 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _pexprOvariableStyle ->
(case (({-# LINE 183 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsItopLevel
{-# LINE 3992 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _pexprOtopLevel ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 3997 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _pexprOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 4002 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _pexprOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 4007 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _pexprOloopLevel ->
(case (({-# LINE 170 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisNegation
{-# LINE 4012 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _pexprOisNegation ->
(case (({-# LINE 182 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIinParentheses
{-# LINE 4017 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _pexprOinParentheses ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 4022 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _pexprOfuncName ->
(case (pexpr_1 _pexprOconfig _pexprOfuncName _pexprOglobalDefinitions _pexprOinParentheses _pexprOisInModule _pexprOisMeta _pexprOisNegation _pexprOloopLevel _pexprOmtokenPos _pexprOregisterVarUse _pexprOscopeLevel _pexprOscopes _pexprOtopLevel _pexprOvarBeingDefined _pexprOvariableStyle) of
{ ( _pexprIglobalDefinitions,_pexprIidentifier,_pexprIisInModule,_pexprIisSimpleExpression,_pexprIisSingleVar,_pexprIscopes,_pexprIvariableStyle,_pexprIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_pexprIglobalDefinitions
{-# LINE 4029 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_pexprIidentifier
{-# LINE 4034 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_pexprIisInModule
{-# LINE 4039 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}
_pexprIisSimpleExpression
{-# LINE 4044 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}
_pexprIisSingleVar
{-# LINE 4049 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSingleVar ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_pexprImtokenPos
{-# LINE 4054 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_pexprIscopes
{-# LINE 4059 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_pexprIvariableStyle
{-# LINE 4064 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_pexprIwarnings
{-# LINE 4069 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Expr_APrefixExpr_1)) of
{ ( sem_Expr_1) ->
( _lhsOcopy,sem_Expr_1) }) }) }) })
sem_Expr_ATableConstructor :: T_FieldList ->
T_Expr
sem_Expr_ATableConstructor fields_ =
(case (fields_) of
{ ( _fieldsIcopy,fields_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
ATableConstructor _fieldsIcopy
{-# LINE 4083 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 4088 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Expr_ATableConstructor_1 :: T_Expr_1
sem_Expr_ATableConstructor_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIinParentheses
_lhsIisInModule
_lhsIisMeta
_lhsIisNegation
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsItopLevel
_lhsIvarBeingDefined
_lhsIvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 4109 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fieldsOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 4114 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fieldsOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 4119 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fieldsOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 4124 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fieldsOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 4129 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fieldsOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 4134 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fieldsOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 4139 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fieldsOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 4144 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fieldsOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 4149 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fieldsOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 4154 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fieldsOfuncName ->
(case (({-# LINE 594 "src/GLuaFixer/AG/ASTLint.ag" #-}
S.empty
{-# LINE 4159 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fieldsOfieldNames ->
(case (fields_1 _fieldsOconfig _fieldsOfieldNames _fieldsOfuncName _fieldsOglobalDefinitions _fieldsOisInModule _fieldsOisMeta _fieldsOloopLevel _fieldsOmtokenPos _fieldsOscopeLevel _fieldsOscopes _fieldsOvariableStyle) of
{ ( _fieldsIfieldNames,_fieldsIglobalDefinitions,_fieldsIidentifier,_fieldsIisInModule,_fieldsImtokenPos,_fieldsIscopes,_fieldsIvariableStyle,_fieldsIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_fieldsIglobalDefinitions
{-# LINE 4166 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_fieldsIidentifier
{-# LINE 4171 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_fieldsIisInModule
{-# LINE 4176 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 4181 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 4186 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSingleVar ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_fieldsImtokenPos
{-# LINE 4191 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_fieldsIscopes
{-# LINE 4196 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_fieldsIvariableStyle
{-# LINE 4201 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_fieldsIwarnings
{-# LINE 4206 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Expr_ATableConstructor_1)) of
{ ( sem_Expr_1) ->
( _lhsOcopy,sem_Expr_1) }) }) }) })
sem_Expr_BinOpExpr :: T_BinOp ->
T_MExpr ->
T_MExpr ->
T_Expr
sem_Expr_BinOpExpr op_ left_ right_ =
(case (right_) of
{ ( _rightIcopy,_rightImtokenPos,right_1) ->
(case (left_) of
{ ( _leftIcopy,_leftImtokenPos,left_1) ->
(case (op_) of
{ ( _opIcopy,op_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
BinOpExpr _opIcopy _leftIcopy _rightIcopy
{-# LINE 4226 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 4231 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Expr_BinOpExpr_1 :: T_Expr_1
sem_Expr_BinOpExpr_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIinParentheses
_lhsIisInModule
_lhsIisMeta
_lhsIisNegation
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsItopLevel
_lhsIvarBeingDefined
_lhsIvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 4252 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 4257 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 4262 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 4267 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 4272 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOloopLevel ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 4277 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 4282 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 4287 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 4292 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 4297 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOconfig ->
(case (op_1 _opOconfig _opOfuncName _opOglobalDefinitions _opOisInModule _opOisMeta _opOloopLevel _opOmtokenPos _opOscopeLevel _opOscopes _opOvariableStyle) of
{ ( _opIglobalDefinitions,_opIidentifier,_opIisInModule,_opImtokenPos,_opIscopes,_opIvariableStyle,_opIwarnings) ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_opIscopes
{-# LINE 4304 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _leftOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 4309 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _leftOisMeta ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 4314 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _leftOconfig ->
(case (({-# LINE 600 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 4319 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _leftOvarBeingDefined ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_opIvariableStyle
{-# LINE 4324 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _leftOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 4329 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _leftOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_opImtokenPos
{-# LINE 4334 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _leftOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 4339 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _leftOloopLevel ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_opIisInModule
{-# LINE 4344 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _leftOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_opIglobalDefinitions
{-# LINE 4349 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _leftOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 4354 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _leftOfuncName ->
(case (({-# LINE 599 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 4359 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _leftOtopLevel ->
(case (({-# LINE 598 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 4364 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _leftOinParentheses ->
(case (({-# LINE 597 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 4369 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _leftOisNegation ->
(case (left_1 _leftOconfig _leftOfuncName _leftOglobalDefinitions _leftOinParentheses _leftOisInModule _leftOisMeta _leftOisNegation _leftOloopLevel _leftOmtokenPos _leftOscopeLevel _leftOscopes _leftOtopLevel _leftOvarBeingDefined _leftOvariableStyle) of
{ ( _leftIglobalDefinitions,_leftIidentifier,_leftIisInModule,_leftIisSimpleExpression,_leftIisSingleVar,_leftIscopes,_leftIvariableStyle,_leftIwarnings) ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_leftIscopes
{-# LINE 4376 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 4381 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_leftIisInModule
{-# LINE 4386 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_leftIglobalDefinitions
{-# LINE 4391 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 4396 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOconfig ->
(case (({-# LINE 604 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 4401 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOvarBeingDefined ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_leftIvariableStyle
{-# LINE 4406 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 4411 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_leftImtokenPos
{-# LINE 4416 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 4421 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 4426 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOfuncName ->
(case (({-# LINE 603 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 4431 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOtopLevel ->
(case (({-# LINE 602 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 4436 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOinParentheses ->
(case (({-# LINE 601 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 4441 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOisNegation ->
(case (right_1 _rightOconfig _rightOfuncName _rightOglobalDefinitions _rightOinParentheses _rightOisInModule _rightOisMeta _rightOisNegation _rightOloopLevel _rightOmtokenPos _rightOscopeLevel _rightOscopes _rightOtopLevel _rightOvarBeingDefined _rightOvariableStyle) of
{ ( _rightIglobalDefinitions,_rightIidentifier,_rightIisInModule,_rightIisSimpleExpression,_rightIisSingleVar,_rightIscopes,_rightIvariableStyle,_rightIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_rightIglobalDefinitions
{-# LINE 4448 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _opIidentifier (const _leftIidentifier _rightIidentifier))
{-# LINE 4453 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_rightIisInModule
{-# LINE 4458 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 596 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 4463 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const (const Nothing) _leftIisSingleVar _rightIisSingleVar)
{-# LINE 4468 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSingleVar ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_rightImtokenPos
{-# LINE 4473 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_rightIscopes
{-# LINE 4478 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_rightIvariableStyle
{-# LINE 4483 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 608 "src/GLuaFixer/AG/ASTLint.ag" #-}
_opIwarnings ++ _leftIwarnings ++ _rightIwarnings
{-# LINE 4488 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 607 "src/GLuaFixer/AG/ASTLint.ag" #-}
oppositeBinOp _opIcopy
{-# LINE 4493 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _stupidNegation ->
(case (({-# LINE 608 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_doubleNegations _lhsIconfig) || not _lhsIisNegation || isNothing _stupidNegation then id else
(:) $ warn _lhsImtokenPos $ SillyNegation$ fromMaybe (error "fromMaybe sem Expr loc.stupidNegation") _stupidNegation
{-# LINE 4499 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 608 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 4504 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Expr_BinOpExpr_1)) of
{ ( sem_Expr_1) ->
( _lhsOcopy,sem_Expr_1) }) }) }) }) }) })
sem_Expr_UnOpExpr :: T_UnOp ->
T_MExpr ->
T_Expr
sem_Expr_UnOpExpr op_ right_ =
(case (right_) of
{ ( _rightIcopy,_rightImtokenPos,right_1) ->
(case (op_) of
{ ( _opIcopy,op_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
UnOpExpr _opIcopy _rightIcopy
{-# LINE 4521 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 4526 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Expr_UnOpExpr_1 :: T_Expr_1
sem_Expr_UnOpExpr_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIinParentheses
_lhsIisInModule
_lhsIisMeta
_lhsIisNegation
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsItopLevel
_lhsIvarBeingDefined
_lhsIvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 4547 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 4552 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 4557 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 4562 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 4567 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOloopLevel ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 4572 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 4577 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 4582 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 4587 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 4592 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _opOconfig ->
(case (op_1 _opOconfig _opOfuncName _opOglobalDefinitions _opOisInModule _opOisMeta _opOloopLevel _opOmtokenPos _opOscopeLevel _opOscopes _opOvariableStyle) of
{ ( _opIglobalDefinitions,_opIidentifier,_opIisInModule,_opIisNegation,_opImtokenPos,_opIscopes,_opIvariableStyle,_opIwarnings) ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_opIscopes
{-# LINE 4599 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 4604 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_opIisInModule
{-# LINE 4609 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_opIglobalDefinitions
{-# LINE 4614 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 4619 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOconfig ->
(case (({-# LINE 615 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 4624 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOvarBeingDefined ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_opIvariableStyle
{-# LINE 4629 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 4634 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_opImtokenPos
{-# LINE 4639 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 4644 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 4649 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOfuncName ->
(case (({-# LINE 614 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 4654 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOtopLevel ->
(case (({-# LINE 613 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 4659 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOinParentheses ->
(case (({-# LINE 612 "src/GLuaFixer/AG/ASTLint.ag" #-}
_opIisNegation
{-# LINE 4664 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _rightOisNegation ->
(case (right_1 _rightOconfig _rightOfuncName _rightOglobalDefinitions _rightOinParentheses _rightOisInModule _rightOisMeta _rightOisNegation _rightOloopLevel _rightOmtokenPos _rightOscopeLevel _rightOscopes _rightOtopLevel _rightOvarBeingDefined _rightOvariableStyle) of
{ ( _rightIglobalDefinitions,_rightIidentifier,_rightIisInModule,_rightIisSimpleExpression,_rightIisSingleVar,_rightIscopes,_rightIvariableStyle,_rightIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_rightIglobalDefinitions
{-# LINE 4671 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _opIidentifier _rightIidentifier)
{-# LINE 4676 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_rightIisInModule
{-# LINE 4681 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 611 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 4686 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}
_rightIisSingleVar
{-# LINE 4691 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSingleVar ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_rightImtokenPos
{-# LINE 4696 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_rightIscopes
{-# LINE 4701 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_rightIvariableStyle
{-# LINE 4706 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_opIwarnings ++ _rightIwarnings
{-# LINE 4711 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Expr_UnOpExpr_1)) of
{ ( sem_Expr_1) ->
( _lhsOcopy,sem_Expr_1) }) }) }) }) })
-- ExprSuffixList ----------------------------------------------
-- cata
sem_ExprSuffixList :: ExprSuffixList ->
T_ExprSuffixList
sem_ExprSuffixList list =
(Prelude.foldr sem_ExprSuffixList_Cons sem_ExprSuffixList_Nil (Prelude.map sem_PFExprSuffix list))
-- semantic domain
type T_ExprSuffixList = ( ExprSuffixList,T_ExprSuffixList_1)
type T_ExprSuffixList_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_ExprSuffixList = Inh_ExprSuffixList {config_Inh_ExprSuffixList :: LintSettings,funcName_Inh_ExprSuffixList :: String,globalDefinitions_Inh_ExprSuffixList :: (M.Map String [Region]),isInModule_Inh_ExprSuffixList :: Bool,isMeta_Inh_ExprSuffixList :: Bool,loopLevel_Inh_ExprSuffixList :: Int,mtokenPos_Inh_ExprSuffixList :: Region,scopeLevel_Inh_ExprSuffixList :: Int,scopes_Inh_ExprSuffixList :: ([M.Map String (Bool, Region)]),variableStyle_Inh_ExprSuffixList :: DeterminedVariableStyle}
data Syn_ExprSuffixList = Syn_ExprSuffixList {copy_Syn_ExprSuffixList :: ExprSuffixList,globalDefinitions_Syn_ExprSuffixList :: (M.Map String [Region]),identifier_Syn_ExprSuffixList :: String,isInModule_Syn_ExprSuffixList :: Bool,isSimpleExpression_Syn_ExprSuffixList :: Bool,mtokenPos_Syn_ExprSuffixList :: Region,scopes_Syn_ExprSuffixList :: ([M.Map String (Bool, Region)]),variableStyle_Syn_ExprSuffixList :: DeterminedVariableStyle,warnings_Syn_ExprSuffixList :: ([String -> LintMessage])}
wrap_ExprSuffixList :: T_ExprSuffixList ->
Inh_ExprSuffixList ->
Syn_ExprSuffixList
wrap_ExprSuffixList sem (Inh_ExprSuffixList _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_ExprSuffixList _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOisSimpleExpression _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_ExprSuffixList_Cons :: T_PFExprSuffix ->
T_ExprSuffixList ->
T_ExprSuffixList
sem_ExprSuffixList_Cons hd_ tl_ =
(case (tl_) of
{ ( _tlIcopy,tl_1) ->
(case (hd_) of
{ ( _hdIcopy,hd_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
(:) _hdIcopy _tlIcopy
{-# LINE 4756 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 4761 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_ExprSuffixList_Cons_1 :: T_ExprSuffixList_1
sem_ExprSuffixList_Cons_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 4778 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 4783 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOisMeta ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 4788 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 4793 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 4798 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 4803 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 4808 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOloopLevel ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 4813 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 4818 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 4823 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOfuncName ->
(case (hd_1 _hdOconfig _hdOfuncName _hdOglobalDefinitions _hdOisInModule _hdOisMeta _hdOloopLevel _hdOmtokenPos _hdOscopeLevel _hdOscopes _hdOvariableStyle) of
{ ( _hdIglobalDefinitions,_hdIidentifier,_hdIisInModule,_hdIisSimpleExpression,_hdImtokenPos,_hdIscopes,_hdIvariableStyle,_hdIwarnings) ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIscopes
{-# LINE 4830 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 4835 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIisInModule
{-# LINE 4840 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIglobalDefinitions
{-# LINE 4845 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 4850 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIvariableStyle
{-# LINE 4855 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 4860 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdImtokenPos
{-# LINE 4865 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 4870 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 4875 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOfuncName ->
(case (tl_1 _tlOconfig _tlOfuncName _tlOglobalDefinitions _tlOisInModule _tlOisMeta _tlOloopLevel _tlOmtokenPos _tlOscopeLevel _tlOscopes _tlOvariableStyle) of
{ ( _tlIglobalDefinitions,_tlIidentifier,_tlIisInModule,_tlIisSimpleExpression,_tlImtokenPos,_tlIscopes,_tlIvariableStyle,_tlIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIglobalDefinitions
{-# LINE 4882 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _hdIidentifier _tlIidentifier)
{-# LINE 4887 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIisInModule
{-# LINE 4892 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIisSimpleExpression && _tlIisSimpleExpression
{-# LINE 4897 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlImtokenPos
{-# LINE 4902 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIscopes
{-# LINE 4907 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIvariableStyle
{-# LINE 4912 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIwarnings ++ _tlIwarnings
{-# LINE 4917 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_ExprSuffixList_Cons_1)) of
{ ( sem_ExprSuffixList_1) ->
( _lhsOcopy,sem_ExprSuffixList_1) }) }) }) }) })
sem_ExprSuffixList_Nil :: T_ExprSuffixList
sem_ExprSuffixList_Nil =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 4928 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 4933 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_ExprSuffixList_Nil_1 :: T_ExprSuffixList_1
sem_ExprSuffixList_Nil_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 4950 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 4955 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 4960 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 4965 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 4970 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 4975 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 4980 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 4985 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }))
in sem_ExprSuffixList_Nil_1)) of
{ ( sem_ExprSuffixList_1) ->
( _lhsOcopy,sem_ExprSuffixList_1) }) }) })
-- Field -------------------------------------------------------
-- cata
sem_Field :: Field ->
T_Field
sem_Field (ExprField _key _value _sep) =
(sem_Field_ExprField (sem_MExpr _key) (sem_MExpr _value) (sem_FieldSep _sep))
sem_Field (NamedField _key _value _sep) =
(sem_Field_NamedField (sem_MToken _key) (sem_MExpr _value) (sem_FieldSep _sep))
sem_Field (UnnamedField _value _sep) =
(sem_Field_UnnamedField (sem_MExpr _value) (sem_FieldSep _sep))
-- semantic domain
type T_Field = ( Field,T_Field_1)
type T_Field_1 = LintSettings ->
(S.Set Token) ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( (S.Set Token),(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_Field = Inh_Field {config_Inh_Field :: LintSettings,fieldNames_Inh_Field :: (S.Set Token),funcName_Inh_Field :: String,globalDefinitions_Inh_Field :: (M.Map String [Region]),isInModule_Inh_Field :: Bool,isMeta_Inh_Field :: Bool,loopLevel_Inh_Field :: Int,mtokenPos_Inh_Field :: Region,scopeLevel_Inh_Field :: Int,scopes_Inh_Field :: ([M.Map String (Bool, Region)]),variableStyle_Inh_Field :: DeterminedVariableStyle}
data Syn_Field = Syn_Field {copy_Syn_Field :: Field,fieldNames_Syn_Field :: (S.Set Token),globalDefinitions_Syn_Field :: (M.Map String [Region]),identifier_Syn_Field :: String,isInModule_Syn_Field :: Bool,mtokenPos_Syn_Field :: Region,scopes_Syn_Field :: ([M.Map String (Bool, Region)]),variableStyle_Syn_Field :: DeterminedVariableStyle,warnings_Syn_Field :: ([String -> LintMessage])}
wrap_Field :: T_Field ->
Inh_Field ->
Syn_Field
wrap_Field sem (Inh_Field _lhsIconfig _lhsIfieldNames _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfieldNames _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_Field _lhsOcopy _lhsOfieldNames _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_Field_ExprField :: T_MExpr ->
T_MExpr ->
T_FieldSep ->
T_Field
sem_Field_ExprField key_ value_ sep_ =
(case (sep_) of
{ ( _sepIcopy,sep_1) ->
(case (value_) of
{ ( _valueIcopy,_valueImtokenPos,value_1) ->
(case (key_) of
{ ( _keyIcopy,_keyImtokenPos,key_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
ExprField _keyIcopy _valueIcopy _sepIcopy
{-# LINE 5038 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 5043 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Field_ExprField_1 :: T_Field_1
sem_Field_ExprField_1 =
(\ _lhsIconfig
_lhsIfieldNames
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 164 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfieldNames
{-# LINE 5061 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOfieldNames ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 5066 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 5071 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOisMeta ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 5076 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOconfig ->
(case (({-# LINE 631 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 5081 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOvarBeingDefined ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 5086 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 5091 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 5096 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 5101 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOloopLevel ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 5106 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 5111 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 5116 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOfuncName ->
(case (({-# LINE 630 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 5121 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOtopLevel ->
(case (({-# LINE 629 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 5126 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOinParentheses ->
(case (({-# LINE 628 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 5131 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOisNegation ->
(case (key_1 _keyOconfig _keyOfuncName _keyOglobalDefinitions _keyOinParentheses _keyOisInModule _keyOisMeta _keyOisNegation _keyOloopLevel _keyOmtokenPos _keyOscopeLevel _keyOscopes _keyOtopLevel _keyOvarBeingDefined _keyOvariableStyle) of
{ ( _keyIglobalDefinitions,_keyIidentifier,_keyIisInModule,_keyIisSimpleExpression,_keyIisSingleVar,_keyIscopes,_keyIvariableStyle,_keyIwarnings) ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_keyIscopes
{-# LINE 5138 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 5143 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_keyIisInModule
{-# LINE 5148 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_keyIglobalDefinitions
{-# LINE 5153 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 5158 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOconfig ->
(case (({-# LINE 635 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 5163 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOvarBeingDefined ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_keyIvariableStyle
{-# LINE 5168 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 5173 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_keyImtokenPos
{-# LINE 5178 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 5183 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 5188 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOfuncName ->
(case (({-# LINE 634 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 5193 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOtopLevel ->
(case (({-# LINE 633 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 5198 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOinParentheses ->
(case (({-# LINE 632 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 5203 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOisNegation ->
(case (value_1 _valueOconfig _valueOfuncName _valueOglobalDefinitions _valueOinParentheses _valueOisInModule _valueOisMeta _valueOisNegation _valueOloopLevel _valueOmtokenPos _valueOscopeLevel _valueOscopes _valueOtopLevel _valueOvarBeingDefined _valueOvariableStyle) of
{ ( _valueIglobalDefinitions,_valueIidentifier,_valueIisInModule,_valueIisSimpleExpression,_valueIisSingleVar,_valueIscopes,_valueIvariableStyle,_valueIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valueIglobalDefinitions
{-# LINE 5210 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOglobalDefinitions ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valueIvariableStyle
{-# LINE 5215 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valueIscopes
{-# LINE 5220 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOscopes ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 5225 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valueImtokenPos
{-# LINE 5230 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 5235 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOloopLevel ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 5240 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valueIisInModule
{-# LINE 5245 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOisInModule ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 5250 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 5255 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOconfig ->
(case (sep_1 _sepOconfig _sepOfuncName _sepOglobalDefinitions _sepOisInModule _sepOisMeta _sepOloopLevel _sepOmtokenPos _sepOscopeLevel _sepOscopes _sepOvariableStyle) of
{ ( _sepIglobalDefinitions,_sepIidentifier,_sepIisInModule,_sepImtokenPos,_sepIscopes,_sepIvariableStyle,_sepIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_sepIglobalDefinitions
{-# LINE 5262 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _keyIidentifier (const _valueIidentifier _sepIidentifier))
{-# LINE 5267 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_sepIisInModule
{-# LINE 5272 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 627 "src/GLuaFixer/AG/ASTLint.ag" #-}
_keyImtokenPos
{-# LINE 5277 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_sepIscopes
{-# LINE 5282 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_sepIvariableStyle
{-# LINE 5287 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_keyIwarnings ++ _valueIwarnings ++ _sepIwarnings
{-# LINE 5292 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Field_ExprField_1)) of
{ ( sem_Field_1) ->
( _lhsOcopy,sem_Field_1) }) }) }) }) }) })
sem_Field_NamedField :: T_MToken ->
T_MExpr ->
T_FieldSep ->
T_Field
sem_Field_NamedField key_ value_ sep_ =
(case (sep_) of
{ ( _sepIcopy,sep_1) ->
(case (value_) of
{ ( _valueIcopy,_valueImtokenPos,value_1) ->
(case (key_) of
{ ( _keyIcopy,_keyImtok,_keyImtokenPos,key_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
NamedField _keyIcopy _valueIcopy _sepIcopy
{-# LINE 5312 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 5317 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Field_NamedField_1 :: T_Field_1
sem_Field_NamedField_1 =
(\ _lhsIconfig
_lhsIfieldNames
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 638 "src/GLuaFixer/AG/ASTLint.ag" #-}
S.insert _keyImtok _lhsIfieldNames
{-# LINE 5335 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOfieldNames ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 5340 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOscopes ->
(case (({-# LINE 637 "src/GLuaFixer/AG/ASTLint.ag" #-}
_keyImtokenPos
{-# LINE 5345 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _mtokenPos ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_mtokenPos
{-# LINE 5350 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOmtokenPos ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 5355 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 5360 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 5365 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 5370 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 5375 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _keyOconfig ->
(case (key_1 _keyOconfig _keyOfuncName _keyOglobalDefinitions _keyOisInModule _keyOisMeta _keyOmtokenPos _keyOscopes) of
{ ( _keyIglobalDefinitions,_keyIidentifier,_keyIisInModule,_keyIscopes,_keyIwarnings) ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_keyIscopes
{-# LINE 5382 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 5387 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_keyIisInModule
{-# LINE 5392 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_keyIglobalDefinitions
{-# LINE 5397 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 5402 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOconfig ->
(case (({-# LINE 639 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 5407 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOvarBeingDefined ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 5412 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 5417 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_mtokenPos
{-# LINE 5422 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 5427 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 5432 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOfuncName ->
(case (({-# LINE 642 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 5437 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOtopLevel ->
(case (({-# LINE 641 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 5442 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOinParentheses ->
(case (({-# LINE 640 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 5447 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOisNegation ->
(case (value_1 _valueOconfig _valueOfuncName _valueOglobalDefinitions _valueOinParentheses _valueOisInModule _valueOisMeta _valueOisNegation _valueOloopLevel _valueOmtokenPos _valueOscopeLevel _valueOscopes _valueOtopLevel _valueOvarBeingDefined _valueOvariableStyle) of
{ ( _valueIglobalDefinitions,_valueIidentifier,_valueIisInModule,_valueIisSimpleExpression,_valueIisSingleVar,_valueIscopes,_valueIvariableStyle,_valueIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valueIglobalDefinitions
{-# LINE 5454 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOglobalDefinitions ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valueIvariableStyle
{-# LINE 5459 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valueIscopes
{-# LINE 5464 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOscopes ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 5469 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_mtokenPos
{-# LINE 5474 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 5479 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOloopLevel ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 5484 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valueIisInModule
{-# LINE 5489 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOisInModule ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 5494 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 5499 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOconfig ->
(case (sep_1 _sepOconfig _sepOfuncName _sepOglobalDefinitions _sepOisInModule _sepOisMeta _sepOloopLevel _sepOmtokenPos _sepOscopeLevel _sepOscopes _sepOvariableStyle) of
{ ( _sepIglobalDefinitions,_sepIidentifier,_sepIisInModule,_sepImtokenPos,_sepIscopes,_sepIvariableStyle,_sepIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_sepIglobalDefinitions
{-# LINE 5506 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _keyIidentifier (const _valueIidentifier _sepIidentifier))
{-# LINE 5511 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_sepIisInModule
{-# LINE 5516 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_mtokenPos
{-# LINE 5521 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_sepIscopes
{-# LINE 5526 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_sepIvariableStyle
{-# LINE 5531 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 643 "src/GLuaFixer/AG/ASTLint.ag" #-}
_keyIwarnings ++ _valueIwarnings ++ _sepIwarnings
{-# LINE 5536 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 643 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_duplicateTableKeys _lhsIconfig) || not (S.member _keyImtok _lhsIfieldNames) then id else
(:) $ warn _keyImtokenPos $ DuplicateKeyInTable _keyImtok
{-# LINE 5542 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 643 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 5547 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Field_NamedField_1)) of
{ ( sem_Field_1) ->
( _lhsOcopy,sem_Field_1) }) }) }) }) }) })
sem_Field_UnnamedField :: T_MExpr ->
T_FieldSep ->
T_Field
sem_Field_UnnamedField value_ sep_ =
(case (sep_) of
{ ( _sepIcopy,sep_1) ->
(case (value_) of
{ ( _valueIcopy,_valueImtokenPos,value_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
UnnamedField _valueIcopy _sepIcopy
{-# LINE 5564 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 5569 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Field_UnnamedField_1 :: T_Field_1
sem_Field_UnnamedField_1 =
(\ _lhsIconfig
_lhsIfieldNames
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 164 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfieldNames
{-# LINE 5587 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOfieldNames ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 5592 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 5597 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 5602 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 5607 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 5612 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOconfig ->
(case (({-# LINE 649 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 5617 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOvarBeingDefined ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 5622 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 5627 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 5632 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 5637 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 5642 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOfuncName ->
(case (({-# LINE 648 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 5647 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOtopLevel ->
(case (({-# LINE 647 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 5652 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOinParentheses ->
(case (({-# LINE 646 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 5657 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valueOisNegation ->
(case (value_1 _valueOconfig _valueOfuncName _valueOglobalDefinitions _valueOinParentheses _valueOisInModule _valueOisMeta _valueOisNegation _valueOloopLevel _valueOmtokenPos _valueOscopeLevel _valueOscopes _valueOtopLevel _valueOvarBeingDefined _valueOvariableStyle) of
{ ( _valueIglobalDefinitions,_valueIidentifier,_valueIisInModule,_valueIisSimpleExpression,_valueIisSingleVar,_valueIscopes,_valueIvariableStyle,_valueIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valueIglobalDefinitions
{-# LINE 5664 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOglobalDefinitions ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valueIvariableStyle
{-# LINE 5669 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valueIscopes
{-# LINE 5674 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOscopes ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 5679 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valueImtokenPos
{-# LINE 5684 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 5689 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOloopLevel ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 5694 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valueIisInModule
{-# LINE 5699 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOisInModule ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 5704 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 5709 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _sepOconfig ->
(case (sep_1 _sepOconfig _sepOfuncName _sepOglobalDefinitions _sepOisInModule _sepOisMeta _sepOloopLevel _sepOmtokenPos _sepOscopeLevel _sepOscopes _sepOvariableStyle) of
{ ( _sepIglobalDefinitions,_sepIidentifier,_sepIisInModule,_sepImtokenPos,_sepIscopes,_sepIvariableStyle,_sepIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_sepIglobalDefinitions
{-# LINE 5716 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _valueIidentifier _sepIidentifier)
{-# LINE 5721 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_sepIisInModule
{-# LINE 5726 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_sepImtokenPos
{-# LINE 5731 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_sepIscopes
{-# LINE 5736 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_sepIvariableStyle
{-# LINE 5741 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valueIwarnings ++ _sepIwarnings
{-# LINE 5746 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Field_UnnamedField_1)) of
{ ( sem_Field_1) ->
( _lhsOcopy,sem_Field_1) }) }) }) }) })
-- FieldList ---------------------------------------------------
-- cata
sem_FieldList :: FieldList ->
T_FieldList
sem_FieldList list =
(Prelude.foldr sem_FieldList_Cons sem_FieldList_Nil (Prelude.map sem_Field list))
-- semantic domain
type T_FieldList = ( FieldList,T_FieldList_1)
type T_FieldList_1 = LintSettings ->
(S.Set Token) ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( (S.Set Token),(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_FieldList = Inh_FieldList {config_Inh_FieldList :: LintSettings,fieldNames_Inh_FieldList :: (S.Set Token),funcName_Inh_FieldList :: String,globalDefinitions_Inh_FieldList :: (M.Map String [Region]),isInModule_Inh_FieldList :: Bool,isMeta_Inh_FieldList :: Bool,loopLevel_Inh_FieldList :: Int,mtokenPos_Inh_FieldList :: Region,scopeLevel_Inh_FieldList :: Int,scopes_Inh_FieldList :: ([M.Map String (Bool, Region)]),variableStyle_Inh_FieldList :: DeterminedVariableStyle}
data Syn_FieldList = Syn_FieldList {copy_Syn_FieldList :: FieldList,fieldNames_Syn_FieldList :: (S.Set Token),globalDefinitions_Syn_FieldList :: (M.Map String [Region]),identifier_Syn_FieldList :: String,isInModule_Syn_FieldList :: Bool,mtokenPos_Syn_FieldList :: Region,scopes_Syn_FieldList :: ([M.Map String (Bool, Region)]),variableStyle_Syn_FieldList :: DeterminedVariableStyle,warnings_Syn_FieldList :: ([String -> LintMessage])}
wrap_FieldList :: T_FieldList ->
Inh_FieldList ->
Syn_FieldList
wrap_FieldList sem (Inh_FieldList _lhsIconfig _lhsIfieldNames _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfieldNames _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_FieldList _lhsOcopy _lhsOfieldNames _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_FieldList_Cons :: T_Field ->
T_FieldList ->
T_FieldList
sem_FieldList_Cons hd_ tl_ =
(case (tl_) of
{ ( _tlIcopy,tl_1) ->
(case (hd_) of
{ ( _hdIcopy,hd_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
(:) _hdIcopy _tlIcopy
{-# LINE 5792 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 5797 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_FieldList_Cons_1 :: T_FieldList_1
sem_FieldList_Cons_1 =
(\ _lhsIconfig
_lhsIfieldNames
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 164 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfieldNames
{-# LINE 5815 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOfieldNames ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 5820 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 5825 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOscopes ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 5830 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 5835 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 5840 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOloopLevel ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 5845 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 5850 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 5855 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 5860 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 5865 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOconfig ->
(case (hd_1 _hdOconfig _hdOfieldNames _hdOfuncName _hdOglobalDefinitions _hdOisInModule _hdOisMeta _hdOloopLevel _hdOmtokenPos _hdOscopeLevel _hdOscopes _hdOvariableStyle) of
{ ( _hdIfieldNames,_hdIglobalDefinitions,_hdIidentifier,_hdIisInModule,_hdImtokenPos,_hdIscopes,_hdIvariableStyle,_hdIwarnings) ->
(case (({-# LINE 164 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIfieldNames
{-# LINE 5872 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOfieldNames ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIvariableStyle
{-# LINE 5877 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIscopes
{-# LINE 5882 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOscopes ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 5887 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdImtokenPos
{-# LINE 5892 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 5897 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOloopLevel ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 5902 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIisInModule
{-# LINE 5907 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIglobalDefinitions
{-# LINE 5912 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 5917 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 5922 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOconfig ->
(case (tl_1 _tlOconfig _tlOfieldNames _tlOfuncName _tlOglobalDefinitions _tlOisInModule _tlOisMeta _tlOloopLevel _tlOmtokenPos _tlOscopeLevel _tlOscopes _tlOvariableStyle) of
{ ( _tlIfieldNames,_tlIglobalDefinitions,_tlIidentifier,_tlIisInModule,_tlImtokenPos,_tlIscopes,_tlIvariableStyle,_tlIwarnings) ->
(case (({-# LINE 164 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIfieldNames
{-# LINE 5929 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOfieldNames ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIglobalDefinitions
{-# LINE 5934 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _hdIidentifier _tlIidentifier)
{-# LINE 5939 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIisInModule
{-# LINE 5944 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdImtokenPos
{-# LINE 5949 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIscopes
{-# LINE 5954 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIvariableStyle
{-# LINE 5959 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIwarnings ++ _tlIwarnings
{-# LINE 5964 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_FieldList_Cons_1)) of
{ ( sem_FieldList_1) ->
( _lhsOcopy,sem_FieldList_1) }) }) }) }) })
sem_FieldList_Nil :: T_FieldList
sem_FieldList_Nil =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 5975 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 5980 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_FieldList_Nil_1 :: T_FieldList_1
sem_FieldList_Nil_1 =
(\ _lhsIconfig
_lhsIfieldNames
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 164 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfieldNames
{-# LINE 5998 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOfieldNames ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 6003 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 6008 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 6013 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 6018 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 6023 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 6028 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 6033 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }))
in sem_FieldList_Nil_1)) of
{ ( sem_FieldList_1) ->
( _lhsOcopy,sem_FieldList_1) }) }) })
-- FieldSep ----------------------------------------------------
-- cata
sem_FieldSep :: FieldSep ->
T_FieldSep
sem_FieldSep (CommaSep) =
(sem_FieldSep_CommaSep)
sem_FieldSep (SemicolonSep) =
(sem_FieldSep_SemicolonSep)
sem_FieldSep (NoSep) =
(sem_FieldSep_NoSep)
-- semantic domain
type T_FieldSep = ( FieldSep,T_FieldSep_1)
type T_FieldSep_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_FieldSep = Inh_FieldSep {config_Inh_FieldSep :: LintSettings,funcName_Inh_FieldSep :: String,globalDefinitions_Inh_FieldSep :: (M.Map String [Region]),isInModule_Inh_FieldSep :: Bool,isMeta_Inh_FieldSep :: Bool,loopLevel_Inh_FieldSep :: Int,mtokenPos_Inh_FieldSep :: Region,scopeLevel_Inh_FieldSep :: Int,scopes_Inh_FieldSep :: ([M.Map String (Bool, Region)]),variableStyle_Inh_FieldSep :: DeterminedVariableStyle}
data Syn_FieldSep = Syn_FieldSep {copy_Syn_FieldSep :: FieldSep,globalDefinitions_Syn_FieldSep :: (M.Map String [Region]),identifier_Syn_FieldSep :: String,isInModule_Syn_FieldSep :: Bool,mtokenPos_Syn_FieldSep :: Region,scopes_Syn_FieldSep :: ([M.Map String (Bool, Region)]),variableStyle_Syn_FieldSep :: DeterminedVariableStyle,warnings_Syn_FieldSep :: ([String -> LintMessage])}
wrap_FieldSep :: T_FieldSep ->
Inh_FieldSep ->
Syn_FieldSep
wrap_FieldSep sem (Inh_FieldSep _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_FieldSep _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_FieldSep_CommaSep :: T_FieldSep
sem_FieldSep_CommaSep =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
CommaSep
{-# LINE 6076 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 6081 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_FieldSep_CommaSep_1 :: T_FieldSep_1
sem_FieldSep_CommaSep_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 6098 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 6103 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 6108 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 6113 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 6118 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 6123 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 6128 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_FieldSep_CommaSep_1)) of
{ ( sem_FieldSep_1) ->
( _lhsOcopy,sem_FieldSep_1) }) }) })
sem_FieldSep_SemicolonSep :: T_FieldSep
sem_FieldSep_SemicolonSep =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
SemicolonSep
{-# LINE 6139 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 6144 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_FieldSep_SemicolonSep_1 :: T_FieldSep_1
sem_FieldSep_SemicolonSep_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 6161 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 6166 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 6171 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 6176 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 6181 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 6186 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 6191 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_FieldSep_SemicolonSep_1)) of
{ ( sem_FieldSep_1) ->
( _lhsOcopy,sem_FieldSep_1) }) }) })
sem_FieldSep_NoSep :: T_FieldSep
sem_FieldSep_NoSep =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
NoSep
{-# LINE 6202 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 6207 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_FieldSep_NoSep_1 :: T_FieldSep_1
sem_FieldSep_NoSep_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 6224 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 6229 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 6234 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 6239 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 6244 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 6249 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 6254 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_FieldSep_NoSep_1)) of
{ ( sem_FieldSep_1) ->
( _lhsOcopy,sem_FieldSep_1) }) }) })
-- FuncName ----------------------------------------------------
-- cata
sem_FuncName :: FuncName ->
T_FuncName
sem_FuncName (FuncName _names _meta) =
(sem_FuncName_FuncName _names _meta)
-- semantic domain
type T_FuncName = ( FuncName,Bool,T_FuncName_1)
type T_FuncName_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),Bool,String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_FuncName = Inh_FuncName {config_Inh_FuncName :: LintSettings,funcName_Inh_FuncName :: String,globalDefinitions_Inh_FuncName :: (M.Map String [Region]),isInModule_Inh_FuncName :: Bool,isMeta_Inh_FuncName :: Bool,loopLevel_Inh_FuncName :: Int,mtokenPos_Inh_FuncName :: Region,scopeLevel_Inh_FuncName :: Int,scopes_Inh_FuncName :: ([M.Map String (Bool, Region)]),variableStyle_Inh_FuncName :: DeterminedVariableStyle}
data Syn_FuncName = Syn_FuncName {copy_Syn_FuncName :: FuncName,globalDefinitions_Syn_FuncName :: (M.Map String [Region]),hasSuffixes_Syn_FuncName :: Bool,identifier_Syn_FuncName :: String,isInModule_Syn_FuncName :: Bool,isMeta_Syn_FuncName :: Bool,mtokenPos_Syn_FuncName :: Region,scopes_Syn_FuncName :: ([M.Map String (Bool, Region)]),variableStyle_Syn_FuncName :: DeterminedVariableStyle,warnings_Syn_FuncName :: ([String -> LintMessage])}
wrap_FuncName :: T_FuncName ->
Inh_FuncName ->
Syn_FuncName
wrap_FuncName sem (Inh_FuncName _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,_lhsOisMeta,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOhasSuffixes,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_FuncName _lhsOcopy _lhsOglobalDefinitions _lhsOhasSuffixes _lhsOidentifier _lhsOisInModule _lhsOisMeta _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_FuncName_FuncName :: ([MToken]) ->
(Maybe MToken) ->
T_FuncName
sem_FuncName_FuncName names_ meta_ =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
FuncName names_ meta_
{-# LINE 6295 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 6300 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 514 "src/GLuaFixer/AG/ASTLint.ag" #-}
isJust meta_
{-# LINE 6305 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisMeta ->
(case ((let sem_FuncName_FuncName_1 :: T_FuncName_1
sem_FuncName_FuncName_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 6322 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 515 "src/GLuaFixer/AG/ASTLint.ag" #-}
length names_ > 1
{-# LINE 6327 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOhasSuffixes ->
(case (({-# LINE 513 "src/GLuaFixer/AG/ASTLint.ag" #-}
tokenLabel . head $ names_
{-# LINE 6332 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 6337 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 512 "src/GLuaFixer/AG/ASTLint.ag" #-}
mpos (head names_)
{-# LINE 6342 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 6347 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 6352 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 6357 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOhasSuffixes,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }))
in sem_FuncName_FuncName_1)) of
{ ( sem_FuncName_1) ->
( _lhsOcopy,_lhsOisMeta,sem_FuncName_1) }) }) }) })
-- MElse -------------------------------------------------------
-- cata
sem_MElse :: MElse ->
T_MElse
sem_MElse (MElse _pos _body) =
(sem_MElse_MElse _pos (sem_Block _body))
-- semantic domain
type T_MElse = ( MElse,T_MElse_1)
type T_MElse_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( Bool,(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),Int,DeterminedVariableStyle,([String -> LintMessage]))
data Inh_MElse = Inh_MElse {config_Inh_MElse :: LintSettings,funcName_Inh_MElse :: String,globalDefinitions_Inh_MElse :: (M.Map String [Region]),isInModule_Inh_MElse :: Bool,isMeta_Inh_MElse :: Bool,loopLevel_Inh_MElse :: Int,mtokenPos_Inh_MElse :: Region,scopeLevel_Inh_MElse :: Int,scopes_Inh_MElse :: ([M.Map String (Bool, Region)]),variableStyle_Inh_MElse :: DeterminedVariableStyle}
data Syn_MElse = Syn_MElse {copy_Syn_MElse :: MElse,elseExists_Syn_MElse :: Bool,globalDefinitions_Syn_MElse :: (M.Map String [Region]),identifier_Syn_MElse :: String,isInModule_Syn_MElse :: Bool,mtokenPos_Syn_MElse :: Region,scopes_Syn_MElse :: ([M.Map String (Bool, Region)]),statementCount_Syn_MElse :: Int,variableStyle_Syn_MElse :: DeterminedVariableStyle,warnings_Syn_MElse :: ([String -> LintMessage])}
wrap_MElse :: T_MElse ->
Inh_MElse ->
Syn_MElse
wrap_MElse sem (Inh_MElse _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_MElse _lhsOcopy _lhsOelseExists _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOstatementCount _lhsOvariableStyle _lhsOwarnings))
sem_MElse_MElse :: Region ->
T_Block ->
T_MElse
sem_MElse_MElse pos_ body_ =
(case (body_) of
{ ( _bodyIcopy,body_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
MElse pos_ _bodyIcopy
{-# LINE 6400 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 6405 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_MElse_MElse_1 :: T_MElse_1
sem_MElse_MElse_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 203 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 6422 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOelseExists ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 6427 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 6432 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 6437 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 6442 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 6447 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 6452 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 6457 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 6462 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 6467 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 6472 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOfuncName ->
(case (({-# LINE 492 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 6477 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisRepeat ->
(case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of
{ ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIglobalDefinitions
{-# LINE 6484 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIidentifier
{-# LINE 6489 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIisInModule
{-# LINE 6494 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 493 "src/GLuaFixer/AG/ASTLint.ag" #-}
pos_
{-# LINE 6499 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIscopes
{-# LINE 6504 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIstatementCount
{-# LINE 6509 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOstatementCount ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIvariableStyle
{-# LINE 6514 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIwarnings
{-# LINE 6519 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_MElse_MElse_1)) of
{ ( sem_MElse_1) ->
( _lhsOcopy,sem_MElse_1) }) }) }) })
-- MElseIf -----------------------------------------------------
-- cata
sem_MElseIf :: MElseIf ->
T_MElseIf
sem_MElseIf (MElseIf _pos _elif) =
(sem_MElseIf_MElseIf _pos (sem_ElseIf _elif))
-- semantic domain
type T_MElseIf = ( MElseIf,T_MElseIf_1)
type T_MElseIf_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_MElseIf = Inh_MElseIf {config_Inh_MElseIf :: LintSettings,funcName_Inh_MElseIf :: String,globalDefinitions_Inh_MElseIf :: (M.Map String [Region]),isInModule_Inh_MElseIf :: Bool,isMeta_Inh_MElseIf :: Bool,loopLevel_Inh_MElseIf :: Int,mtokenPos_Inh_MElseIf :: Region,scopeLevel_Inh_MElseIf :: Int,scopes_Inh_MElseIf :: ([M.Map String (Bool, Region)]),variableStyle_Inh_MElseIf :: DeterminedVariableStyle}
data Syn_MElseIf = Syn_MElseIf {copy_Syn_MElseIf :: MElseIf,globalDefinitions_Syn_MElseIf :: (M.Map String [Region]),identifier_Syn_MElseIf :: String,isInModule_Syn_MElseIf :: Bool,mtokenPos_Syn_MElseIf :: Region,scopes_Syn_MElseIf :: ([M.Map String (Bool, Region)]),variableStyle_Syn_MElseIf :: DeterminedVariableStyle,warnings_Syn_MElseIf :: ([String -> LintMessage])}
wrap_MElseIf :: T_MElseIf ->
Inh_MElseIf ->
Syn_MElseIf
wrap_MElseIf sem (Inh_MElseIf _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_MElseIf _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_MElseIf_MElseIf :: Region ->
T_ElseIf ->
T_MElseIf
sem_MElseIf_MElseIf pos_ elif_ =
(case (elif_) of
{ ( _elifIcopy,elif_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
MElseIf pos_ _elifIcopy
{-# LINE 6562 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 6567 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_MElseIf_MElseIf_1 :: T_MElseIf_1
sem_MElseIf_MElseIf_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 6584 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 6589 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 6594 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 6599 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 6604 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 6609 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 6614 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifOscopeLevel ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 6619 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 6624 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifOfuncName ->
(case (({-# LINE 476 "src/GLuaFixer/AG/ASTLint.ag" #-}
pos_
{-# LINE 6629 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifOmtokenPos ->
(case (elif_1 _elifOconfig _elifOfuncName _elifOglobalDefinitions _elifOisInModule _elifOisMeta _elifOloopLevel _elifOmtokenPos _elifOscopeLevel _elifOscopes _elifOvariableStyle) of
{ ( _elifIglobalDefinitions,_elifIidentifier,_elifIisInModule,_elifImtokenPos,_elifIscopes,_elifIvariableStyle,_elifIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_elifIglobalDefinitions
{-# LINE 6636 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_elifIidentifier
{-# LINE 6641 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_elifIisInModule
{-# LINE 6646 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 477 "src/GLuaFixer/AG/ASTLint.ag" #-}
pos_
{-# LINE 6651 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_elifIscopes
{-# LINE 6656 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_elifIvariableStyle
{-# LINE 6661 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_elifIwarnings
{-# LINE 6666 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_MElseIf_MElseIf_1)) of
{ ( sem_MElseIf_1) ->
( _lhsOcopy,sem_MElseIf_1) }) }) }) })
-- MExpr -------------------------------------------------------
-- cata
sem_MExpr :: MExpr ->
T_MExpr
sem_MExpr (MExpr _pos _expr) =
(sem_MExpr_MExpr _pos (sem_Expr _expr))
-- semantic domain
type T_MExpr = ( MExpr,Region,T_MExpr_1)
type T_MExpr_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
Bool ->
(Maybe MToken) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,Bool,(Maybe MToken),([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_MExpr = Inh_MExpr {config_Inh_MExpr :: LintSettings,funcName_Inh_MExpr :: String,globalDefinitions_Inh_MExpr :: (M.Map String [Region]),inParentheses_Inh_MExpr :: Bool,isInModule_Inh_MExpr :: Bool,isMeta_Inh_MExpr :: Bool,isNegation_Inh_MExpr :: Bool,loopLevel_Inh_MExpr :: Int,mtokenPos_Inh_MExpr :: Region,scopeLevel_Inh_MExpr :: Int,scopes_Inh_MExpr :: ([M.Map String (Bool, Region)]),topLevel_Inh_MExpr :: Bool,varBeingDefined_Inh_MExpr :: (Maybe MToken),variableStyle_Inh_MExpr :: DeterminedVariableStyle}
data Syn_MExpr = Syn_MExpr {copy_Syn_MExpr :: MExpr,globalDefinitions_Syn_MExpr :: (M.Map String [Region]),identifier_Syn_MExpr :: String,isInModule_Syn_MExpr :: Bool,isSimpleExpression_Syn_MExpr :: Bool,isSingleVar_Syn_MExpr :: (Maybe MToken),mtokenPos_Syn_MExpr :: Region,scopes_Syn_MExpr :: ([M.Map String (Bool, Region)]),variableStyle_Syn_MExpr :: DeterminedVariableStyle,warnings_Syn_MExpr :: ([String -> LintMessage])}
wrap_MExpr :: T_MExpr ->
Inh_MExpr ->
Syn_MExpr
wrap_MExpr sem (Inh_MExpr _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvarBeingDefined _lhsIvariableStyle) =
(let ( _lhsOcopy,_lhsOmtokenPos,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvarBeingDefined _lhsIvariableStyle
in (Syn_MExpr _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOisSimpleExpression _lhsOisSingleVar _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_MExpr_MExpr :: Region ->
T_Expr ->
T_MExpr
sem_MExpr_MExpr pos_ expr_ =
(case (expr_) of
{ ( _exprIcopy,expr_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
MExpr pos_ _exprIcopy
{-# LINE 6713 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 6718 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 571 "src/GLuaFixer/AG/ASTLint.ag" #-}
pos_
{-# LINE 6723 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case ((let sem_MExpr_MExpr_1 :: T_MExpr_1
sem_MExpr_MExpr_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIinParentheses
_lhsIisInModule
_lhsIisMeta
_lhsIisNegation
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsItopLevel
_lhsIvarBeingDefined
_lhsIvariableStyle ->
(case (({-# LINE 179 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvarBeingDefined
{-# LINE 6744 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOvarBeingDefined ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 6749 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 6754 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 6759 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 6764 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 6769 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 6774 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOvariableStyle ->
(case (({-# LINE 183 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsItopLevel
{-# LINE 6779 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOtopLevel ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 6784 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOscopeLevel ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 6789 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOloopLevel ->
(case (({-# LINE 170 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisNegation
{-# LINE 6794 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOisNegation ->
(case (({-# LINE 182 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIinParentheses
{-# LINE 6799 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOinParentheses ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 6804 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOfuncName ->
(case (({-# LINE 572 "src/GLuaFixer/AG/ASTLint.ag" #-}
pos_
{-# LINE 6809 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOmtokenPos ->
(case (expr_1 _exprOconfig _exprOfuncName _exprOglobalDefinitions _exprOinParentheses _exprOisInModule _exprOisMeta _exprOisNegation _exprOloopLevel _exprOmtokenPos _exprOscopeLevel _exprOscopes _exprOtopLevel _exprOvarBeingDefined _exprOvariableStyle) of
{ ( _exprIglobalDefinitions,_exprIidentifier,_exprIisInModule,_exprIisSimpleExpression,_exprIisSingleVar,_exprImtokenPos,_exprIscopes,_exprIvariableStyle,_exprIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_exprIglobalDefinitions
{-# LINE 6816 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_exprIidentifier
{-# LINE 6821 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_exprIisInModule
{-# LINE 6826 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}
_exprIisSimpleExpression
{-# LINE 6831 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}
_exprIisSingleVar
{-# LINE 6836 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSingleVar ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_exprIscopes
{-# LINE 6841 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_exprIvariableStyle
{-# LINE 6846 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_exprIwarnings
{-# LINE 6851 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_MExpr_MExpr_1)) of
{ ( sem_MExpr_1) ->
( _lhsOcopy,_lhsOmtokenPos,sem_MExpr_1) }) }) }) }) })
-- MExprList ---------------------------------------------------
-- cata
sem_MExprList :: MExprList ->
T_MExprList
sem_MExprList list =
(Prelude.foldr sem_MExprList_Cons sem_MExprList_Nil (Prelude.map sem_MExpr list))
-- semantic domain
type T_MExprList = ( MExprList,T_MExprList_1)
type T_MExprList_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
Bool ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_MExprList = Inh_MExprList {config_Inh_MExprList :: LintSettings,funcName_Inh_MExprList :: String,globalDefinitions_Inh_MExprList :: (M.Map String [Region]),inParentheses_Inh_MExprList :: Bool,isInModule_Inh_MExprList :: Bool,isMeta_Inh_MExprList :: Bool,loopLevel_Inh_MExprList :: Int,mtokenPos_Inh_MExprList :: Region,scopeLevel_Inh_MExprList :: Int,scopes_Inh_MExprList :: ([M.Map String (Bool, Region)]),topLevel_Inh_MExprList :: Bool,variableStyle_Inh_MExprList :: DeterminedVariableStyle}
data Syn_MExprList = Syn_MExprList {copy_Syn_MExprList :: MExprList,globalDefinitions_Syn_MExprList :: (M.Map String [Region]),identifier_Syn_MExprList :: String,isInModule_Syn_MExprList :: Bool,mtokenPos_Syn_MExprList :: Region,scopes_Syn_MExprList :: ([M.Map String (Bool, Region)]),variableStyle_Syn_MExprList :: DeterminedVariableStyle,warnings_Syn_MExprList :: ([String -> LintMessage])}
wrap_MExprList :: T_MExprList ->
Inh_MExprList ->
Syn_MExprList
wrap_MExprList sem (Inh_MExprList _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvariableStyle
in (Syn_MExprList _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_MExprList_Cons :: T_MExpr ->
T_MExprList ->
T_MExprList
sem_MExprList_Cons hd_ tl_ =
(case (tl_) of
{ ( _tlIcopy,tl_1) ->
(case (hd_) of
{ ( _hdIcopy,_hdImtokenPos,hd_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
(:) _hdIcopy _tlIcopy
{-# LINE 6898 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 6903 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_MExprList_Cons_1 :: T_MExprList_1
sem_MExprList_Cons_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIinParentheses
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsItopLevel
_lhsIvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 6922 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 6927 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOisMeta ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 6932 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOconfig ->
(case (({-# LINE 246 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 6937 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOvarBeingDefined ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 6942 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOvariableStyle ->
(case (({-# LINE 183 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsItopLevel
{-# LINE 6947 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOtopLevel ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 6952 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 6957 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 6962 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOloopLevel ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 6967 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOisInModule ->
(case (({-# LINE 182 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIinParentheses
{-# LINE 6972 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOinParentheses ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 6977 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 6982 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOfuncName ->
(case (({-# LINE 245 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 6987 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOisNegation ->
(case (hd_1 _hdOconfig _hdOfuncName _hdOglobalDefinitions _hdOinParentheses _hdOisInModule _hdOisMeta _hdOisNegation _hdOloopLevel _hdOmtokenPos _hdOscopeLevel _hdOscopes _hdOtopLevel _hdOvarBeingDefined _hdOvariableStyle) of
{ ( _hdIglobalDefinitions,_hdIidentifier,_hdIisInModule,_hdIisSimpleExpression,_hdIisSingleVar,_hdIscopes,_hdIvariableStyle,_hdIwarnings) ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIscopes
{-# LINE 6994 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 6999 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIisInModule
{-# LINE 7004 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIglobalDefinitions
{-# LINE 7009 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 7014 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIvariableStyle
{-# LINE 7019 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOvariableStyle ->
(case (({-# LINE 183 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsItopLevel
{-# LINE 7024 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOtopLevel ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 7029 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdImtokenPos
{-# LINE 7034 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 7039 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOloopLevel ->
(case (({-# LINE 182 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIinParentheses
{-# LINE 7044 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOinParentheses ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 7049 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOfuncName ->
(case (tl_1 _tlOconfig _tlOfuncName _tlOglobalDefinitions _tlOinParentheses _tlOisInModule _tlOisMeta _tlOloopLevel _tlOmtokenPos _tlOscopeLevel _tlOscopes _tlOtopLevel _tlOvariableStyle) of
{ ( _tlIglobalDefinitions,_tlIidentifier,_tlIisInModule,_tlImtokenPos,_tlIscopes,_tlIvariableStyle,_tlIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIglobalDefinitions
{-# LINE 7056 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _hdIidentifier _tlIidentifier)
{-# LINE 7061 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIisInModule
{-# LINE 7066 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdImtokenPos
{-# LINE 7071 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIscopes
{-# LINE 7076 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIvariableStyle
{-# LINE 7081 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIwarnings ++ _tlIwarnings
{-# LINE 7086 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_MExprList_Cons_1)) of
{ ( sem_MExprList_1) ->
( _lhsOcopy,sem_MExprList_1) }) }) }) }) })
sem_MExprList_Nil :: T_MExprList
sem_MExprList_Nil =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 7097 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 7102 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_MExprList_Nil_1 :: T_MExprList_1
sem_MExprList_Nil_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIinParentheses
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsItopLevel
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 7121 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 7126 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 7131 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 7136 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 7141 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 7146 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 7151 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_MExprList_Nil_1)) of
{ ( sem_MExprList_1) ->
( _lhsOcopy,sem_MExprList_1) }) }) })
-- MStat -------------------------------------------------------
-- cata
sem_MStat :: MStat ->
T_MStat
sem_MStat (MStat _pos _stat) =
(sem_MStat_MStat _pos (sem_Stat _stat))
-- semantic domain
type T_MStat = ( MStat,T_MStat_1)
type T_MStat_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),Int,DeterminedVariableStyle,([String -> LintMessage]))
data Inh_MStat = Inh_MStat {config_Inh_MStat :: LintSettings,funcName_Inh_MStat :: String,globalDefinitions_Inh_MStat :: (M.Map String [Region]),isInModule_Inh_MStat :: Bool,isMeta_Inh_MStat :: Bool,loopLevel_Inh_MStat :: Int,mtokenPos_Inh_MStat :: Region,scopeLevel_Inh_MStat :: Int,scopes_Inh_MStat :: ([M.Map String (Bool, Region)]),variableStyle_Inh_MStat :: DeterminedVariableStyle}
data Syn_MStat = Syn_MStat {copy_Syn_MStat :: MStat,globalDefinitions_Syn_MStat :: (M.Map String [Region]),identifier_Syn_MStat :: String,isIfStatement_Syn_MStat :: Bool,isInModule_Syn_MStat :: Bool,mtokenPos_Syn_MStat :: Region,scopes_Syn_MStat :: ([M.Map String (Bool, Region)]),statementCount_Syn_MStat :: Int,variableStyle_Syn_MStat :: DeterminedVariableStyle,warnings_Syn_MStat :: ([String -> LintMessage])}
wrap_MStat :: T_MStat ->
Inh_MStat ->
Syn_MStat
wrap_MStat sem (Inh_MStat _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_MStat _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisIfStatement _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOstatementCount _lhsOvariableStyle _lhsOwarnings))
sem_MStat_MStat :: Region ->
T_Stat ->
T_MStat
sem_MStat_MStat pos_ stat_ =
(case (stat_) of
{ ( _statIcopy,stat_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
MStat pos_ _statIcopy
{-# LINE 7194 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 7199 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_MStat_MStat_1 :: T_MStat_1
sem_MStat_MStat_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 7216 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 7221 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 7226 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 7231 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 7236 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 7241 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 7246 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statOscopeLevel ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 7251 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 7256 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statOfuncName ->
(case (({-# LINE 310 "src/GLuaFixer/AG/ASTLint.ag" #-}
pos_
{-# LINE 7261 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _statOmtokenPos ->
(case (stat_1 _statOconfig _statOfuncName _statOglobalDefinitions _statOisInModule _statOisMeta _statOloopLevel _statOmtokenPos _statOscopeLevel _statOscopes _statOvariableStyle) of
{ ( _statIglobalDefinitions,_statIidentifier,_statIisIfStatement,_statIisInModule,_statImtokenPos,_statIscopes,_statIvariableStyle,_statIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_statIglobalDefinitions
{-# LINE 7268 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_statIidentifier
{-# LINE 7273 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}
_statIisIfStatement
{-# LINE 7278 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisIfStatement ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_statIisInModule
{-# LINE 7283 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 309 "src/GLuaFixer/AG/ASTLint.ag" #-}
pos_
{-# LINE 7288 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_statIscopes
{-# LINE 7293 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-}
1
{-# LINE 7298 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOstatementCount ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_statIvariableStyle
{-# LINE 7303 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_statIwarnings
{-# LINE 7308 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_MStat_MStat_1)) of
{ ( sem_MStat_1) ->
( _lhsOcopy,sem_MStat_1) }) }) }) })
-- MStatList ---------------------------------------------------
-- cata
sem_MStatList :: MStatList ->
T_MStatList
sem_MStatList list =
(Prelude.foldr sem_MStatList_Cons sem_MStatList_Nil (Prelude.map sem_MStat list))
-- semantic domain
type T_MStatList = ( MStatList,T_MStatList_1)
type T_MStatList_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),Int,DeterminedVariableStyle,([String -> LintMessage]))
data Inh_MStatList = Inh_MStatList {config_Inh_MStatList :: LintSettings,funcName_Inh_MStatList :: String,globalDefinitions_Inh_MStatList :: (M.Map String [Region]),isInModule_Inh_MStatList :: Bool,isMeta_Inh_MStatList :: Bool,loopLevel_Inh_MStatList :: Int,mtokenPos_Inh_MStatList :: Region,scopeLevel_Inh_MStatList :: Int,scopes_Inh_MStatList :: ([M.Map String (Bool, Region)]),variableStyle_Inh_MStatList :: DeterminedVariableStyle}
data Syn_MStatList = Syn_MStatList {copy_Syn_MStatList :: MStatList,globalDefinitions_Syn_MStatList :: (M.Map String [Region]),identifier_Syn_MStatList :: String,isIfStatement_Syn_MStatList :: Bool,isInModule_Syn_MStatList :: Bool,mtokenPos_Syn_MStatList :: Region,scopes_Syn_MStatList :: ([M.Map String (Bool, Region)]),statementCount_Syn_MStatList :: Int,variableStyle_Syn_MStatList :: DeterminedVariableStyle,warnings_Syn_MStatList :: ([String -> LintMessage])}
wrap_MStatList :: T_MStatList ->
Inh_MStatList ->
Syn_MStatList
wrap_MStatList sem (Inh_MStatList _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_MStatList _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisIfStatement _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOstatementCount _lhsOvariableStyle _lhsOwarnings))
sem_MStatList_Cons :: T_MStat ->
T_MStatList ->
T_MStatList
sem_MStatList_Cons hd_ tl_ =
(case (tl_) of
{ ( _tlIcopy,tl_1) ->
(case (hd_) of
{ ( _hdIcopy,hd_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
(:) _hdIcopy _tlIcopy
{-# LINE 7353 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 7358 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_MStatList_Cons_1 :: T_MStatList_1
sem_MStatList_Cons_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 7375 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 7380 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOisMeta ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 7385 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 7390 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 7395 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 7400 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 7405 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOloopLevel ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 7410 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 7415 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 7420 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOfuncName ->
(case (hd_1 _hdOconfig _hdOfuncName _hdOglobalDefinitions _hdOisInModule _hdOisMeta _hdOloopLevel _hdOmtokenPos _hdOscopeLevel _hdOscopes _hdOvariableStyle) of
{ ( _hdIglobalDefinitions,_hdIidentifier,_hdIisIfStatement,_hdIisInModule,_hdImtokenPos,_hdIscopes,_hdIstatementCount,_hdIvariableStyle,_hdIwarnings) ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIscopes
{-# LINE 7427 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 7432 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIisInModule
{-# LINE 7437 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIglobalDefinitions
{-# LINE 7442 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 7447 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIvariableStyle
{-# LINE 7452 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 7457 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdImtokenPos
{-# LINE 7462 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 7467 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 7472 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOfuncName ->
(case (tl_1 _tlOconfig _tlOfuncName _tlOglobalDefinitions _tlOisInModule _tlOisMeta _tlOloopLevel _tlOmtokenPos _tlOscopeLevel _tlOscopes _tlOvariableStyle) of
{ ( _tlIglobalDefinitions,_tlIidentifier,_tlIisIfStatement,_tlIisInModule,_tlImtokenPos,_tlIscopes,_tlIstatementCount,_tlIvariableStyle,_tlIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIglobalDefinitions
{-# LINE 7479 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _hdIidentifier _tlIidentifier)
{-# LINE 7484 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIisIfStatement || _tlIisIfStatement
{-# LINE 7489 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisIfStatement ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIisInModule
{-# LINE 7494 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdImtokenPos
{-# LINE 7499 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIscopes
{-# LINE 7504 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIstatementCount + _tlIstatementCount
{-# LINE 7509 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOstatementCount ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIvariableStyle
{-# LINE 7514 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIwarnings ++ _tlIwarnings
{-# LINE 7519 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_MStatList_Cons_1)) of
{ ( sem_MStatList_1) ->
( _lhsOcopy,sem_MStatList_1) }) }) }) }) })
sem_MStatList_Nil :: T_MStatList
sem_MStatList_Nil =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 7530 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 7535 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_MStatList_Nil_1 :: T_MStatList_1
sem_MStatList_Nil_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 7552 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 7557 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 7562 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisIfStatement ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 7567 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 7572 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 7577 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 241 "src/GLuaFixer/AG/ASTLint.ag" #-}
0
{-# LINE 7582 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOstatementCount ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 7587 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 7592 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }))
in sem_MStatList_Nil_1)) of
{ ( sem_MStatList_1) ->
( _lhsOcopy,sem_MStatList_1) }) }) })
-- MToken ------------------------------------------------------
-- cata
sem_MToken :: MToken ->
T_MToken
sem_MToken (MToken _mpos _mtok) =
(sem_MToken_MToken _mpos (sem_Token _mtok))
-- semantic domain
type T_MToken = ( MToken,Token,Region,T_MToken_1)
type T_MToken_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Region ->
([M.Map String (Bool, Region)]) ->
( (M.Map String [Region]),String,Bool,([M.Map String (Bool, Region)]),([String -> LintMessage]))
data Inh_MToken = Inh_MToken {config_Inh_MToken :: LintSettings,funcName_Inh_MToken :: String,globalDefinitions_Inh_MToken :: (M.Map String [Region]),isInModule_Inh_MToken :: Bool,isMeta_Inh_MToken :: Bool,mtokenPos_Inh_MToken :: Region,scopes_Inh_MToken :: ([M.Map String (Bool, Region)])}
data Syn_MToken = Syn_MToken {copy_Syn_MToken :: MToken,globalDefinitions_Syn_MToken :: (M.Map String [Region]),identifier_Syn_MToken :: String,isInModule_Syn_MToken :: Bool,mtok_Syn_MToken :: Token,mtokenPos_Syn_MToken :: Region,scopes_Syn_MToken :: ([M.Map String (Bool, Region)]),warnings_Syn_MToken :: ([String -> LintMessage])}
wrap_MToken :: T_MToken ->
Inh_MToken ->
Syn_MToken
wrap_MToken sem (Inh_MToken _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsImtokenPos _lhsIscopes) =
(let ( _lhsOcopy,_lhsOmtok,_lhsOmtokenPos,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOscopes,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsImtokenPos _lhsIscopes
in (Syn_MToken _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtok _lhsOmtokenPos _lhsOscopes _lhsOwarnings))
sem_MToken_MToken :: Region ->
T_Token ->
T_MToken
sem_MToken_MToken mpos_ mtok_ =
(case (mtok_) of
{ ( _mtokIcopy,_mtokIidentifier,_mtokIwarnings) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
MToken mpos_ _mtokIcopy
{-# LINE 7632 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 7637 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 228 "src/GLuaFixer/AG/ASTLint.ag" #-}
_mtokIcopy
{-# LINE 7642 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtok ->
(case (({-# LINE 227 "src/GLuaFixer/AG/ASTLint.ag" #-}
mpos_
{-# LINE 7647 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case ((let sem_MToken_MToken_1 :: T_MToken_1
sem_MToken_MToken_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsImtokenPos
_lhsIscopes ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 7661 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 229 "src/GLuaFixer/AG/ASTLint.ag" #-}
_mtokIidentifier
{-# LINE 7666 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 7671 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 7676 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 230 "src/GLuaFixer/AG/ASTLint.ag" #-}
_mtokIwarnings
{-# LINE 7681 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 230 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_goto_identifier _lhsIconfig) || _mtokIidentifier /= "goto" then id else
(:) $ warn mpos_ GotoAsIdentifier
{-# LINE 7687 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 230 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 7692 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOscopes,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_MToken_MToken_1)) of
{ ( sem_MToken_1) ->
( _lhsOcopy,_lhsOmtok,_lhsOmtokenPos,sem_MToken_1) }) }) }) }) }) })
-- 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 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Region ->
([M.Map String (Bool, Region)]) ->
( MTokenList,(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),([String -> LintMessage]))
data Inh_MTokenList = Inh_MTokenList {config_Inh_MTokenList :: LintSettings,funcName_Inh_MTokenList :: String,globalDefinitions_Inh_MTokenList :: (M.Map String [Region]),isInModule_Inh_MTokenList :: Bool,isMeta_Inh_MTokenList :: Bool,mtokenPos_Inh_MTokenList :: Region,scopes_Inh_MTokenList :: ([M.Map String (Bool, Region)])}
data Syn_MTokenList = Syn_MTokenList {copy_Syn_MTokenList :: MTokenList,globalDefinitions_Syn_MTokenList :: (M.Map String [Region]),identifier_Syn_MTokenList :: String,isInModule_Syn_MTokenList :: Bool,mtokenPos_Syn_MTokenList :: Region,scopes_Syn_MTokenList :: ([M.Map String (Bool, Region)]),warnings_Syn_MTokenList :: ([String -> LintMessage])}
wrap_MTokenList :: T_MTokenList ->
Inh_MTokenList ->
Syn_MTokenList
wrap_MTokenList sem (Inh_MTokenList _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsImtokenPos _lhsIscopes) =
(let ( _lhsOcopy,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOwarnings) = sem _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsImtokenPos _lhsIscopes
in (Syn_MTokenList _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOwarnings))
sem_MTokenList_Cons :: T_MToken ->
T_MTokenList ->
T_MTokenList
sem_MTokenList_Cons hd_ tl_ =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsImtokenPos
_lhsIscopes ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 7735 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOscopes ->
(case (hd_) of
{ ( _hdIcopy,_hdImtok,_hdImtokenPos,hd_1) ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 7742 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOmtokenPos ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 7747 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 7752 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 7757 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 7762 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 7767 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOconfig ->
(case (hd_1 _hdOconfig _hdOfuncName _hdOglobalDefinitions _hdOisInModule _hdOisMeta _hdOmtokenPos _hdOscopes) of
{ ( _hdIglobalDefinitions,_hdIidentifier,_hdIisInModule,_hdIscopes,_hdIwarnings) ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIscopes
{-# LINE 7774 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOscopes ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdImtokenPos
{-# LINE 7779 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOmtokenPos ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 7784 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIisInModule
{-# LINE 7789 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIglobalDefinitions
{-# LINE 7794 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 7799 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 7804 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOconfig ->
(case (tl_ _tlOconfig _tlOfuncName _tlOglobalDefinitions _tlOisInModule _tlOisMeta _tlOmtokenPos _tlOscopes) of
{ ( _tlIcopy,_tlIglobalDefinitions,_tlIidentifier,_tlIisInModule,_tlImtokenPos,_tlIscopes,_tlIwarnings) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
(:) _hdIcopy _tlIcopy
{-# LINE 7811 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 7816 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIglobalDefinitions
{-# LINE 7821 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _hdIidentifier _tlIidentifier)
{-# LINE 7826 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIisInModule
{-# LINE 7831 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdImtokenPos
{-# LINE 7836 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIscopes
{-# LINE 7841 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIwarnings ++ _tlIwarnings
{-# LINE 7846 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
sem_MTokenList_Nil :: T_MTokenList
sem_MTokenList_Nil =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsImtokenPos
_lhsIscopes ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 7861 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 7866 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 7871 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 7876 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 7881 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 7886 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 7891 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 7896 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOwarnings) }) }) }) }) }) }) }) }))
-- MaybeMExpr --------------------------------------------------
-- cata
sem_MaybeMExpr :: MaybeMExpr ->
T_MaybeMExpr
sem_MaybeMExpr (Prelude.Just x) =
(sem_MaybeMExpr_Just (sem_MExpr x))
sem_MaybeMExpr Prelude.Nothing =
sem_MaybeMExpr_Nothing
-- semantic domain
type T_MaybeMExpr = ( MaybeMExpr,T_MaybeMExpr_1)
type T_MaybeMExpr_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
(Maybe MToken) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,(Maybe MToken),Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_MaybeMExpr = Inh_MaybeMExpr {config_Inh_MaybeMExpr :: LintSettings,funcName_Inh_MaybeMExpr :: String,globalDefinitions_Inh_MaybeMExpr :: (M.Map String [Region]),isInModule_Inh_MaybeMExpr :: Bool,isMeta_Inh_MaybeMExpr :: Bool,isNegation_Inh_MaybeMExpr :: Bool,loopLevel_Inh_MaybeMExpr :: Int,mtokenPos_Inh_MaybeMExpr :: Region,scopeLevel_Inh_MaybeMExpr :: Int,scopes_Inh_MaybeMExpr :: ([M.Map String (Bool, Region)]),varBeingDefined_Inh_MaybeMExpr :: (Maybe MToken),variableStyle_Inh_MaybeMExpr :: DeterminedVariableStyle}
data Syn_MaybeMExpr = Syn_MaybeMExpr {copy_Syn_MaybeMExpr :: MaybeMExpr,globalDefinitions_Syn_MaybeMExpr :: (M.Map String [Region]),identifier_Syn_MaybeMExpr :: String,isInModule_Syn_MaybeMExpr :: Bool,isSingleVar_Syn_MaybeMExpr :: (Maybe MToken),mtokenPos_Syn_MaybeMExpr :: Region,scopes_Syn_MaybeMExpr :: ([M.Map String (Bool, Region)]),variableStyle_Syn_MaybeMExpr :: DeterminedVariableStyle,warnings_Syn_MaybeMExpr :: ([String -> LintMessage])}
wrap_MaybeMExpr :: T_MaybeMExpr ->
Inh_MaybeMExpr ->
Syn_MaybeMExpr
wrap_MaybeMExpr sem (Inh_MaybeMExpr _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvarBeingDefined _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvarBeingDefined _lhsIvariableStyle
in (Syn_MaybeMExpr _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOisSingleVar _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_MaybeMExpr_Just :: T_MExpr ->
T_MaybeMExpr
sem_MaybeMExpr_Just just_ =
(case (just_) of
{ ( _justIcopy,_justImtokenPos,just_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Just _justIcopy
{-# LINE 7939 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 7944 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_MaybeMExpr_Just_1 :: T_MaybeMExpr_1
sem_MaybeMExpr_Just_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIisNegation
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvarBeingDefined
_lhsIvariableStyle ->
(case (({-# LINE 179 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvarBeingDefined
{-# LINE 7963 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOvarBeingDefined ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 7968 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 7973 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 7978 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 7983 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 7988 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 7993 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 7998 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 8003 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 8008 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOloopLevel ->
(case (({-# LINE 170 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisNegation
{-# LINE 8013 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOisNegation ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 8018 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOfuncName ->
(case (({-# LINE 252 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 8023 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOtopLevel ->
(case (({-# LINE 251 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 8028 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _justOinParentheses ->
(case (just_1 _justOconfig _justOfuncName _justOglobalDefinitions _justOinParentheses _justOisInModule _justOisMeta _justOisNegation _justOloopLevel _justOmtokenPos _justOscopeLevel _justOscopes _justOtopLevel _justOvarBeingDefined _justOvariableStyle) of
{ ( _justIglobalDefinitions,_justIidentifier,_justIisInModule,_justIisSimpleExpression,_justIisSingleVar,_justIscopes,_justIvariableStyle,_justIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_justIglobalDefinitions
{-# LINE 8035 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_justIidentifier
{-# LINE 8040 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_justIisInModule
{-# LINE 8045 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}
_justIisSingleVar
{-# LINE 8050 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSingleVar ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_justImtokenPos
{-# LINE 8055 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_justIscopes
{-# LINE 8060 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_justIvariableStyle
{-# LINE 8065 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_justIwarnings
{-# LINE 8070 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_MaybeMExpr_Just_1)) of
{ ( sem_MaybeMExpr_1) ->
( _lhsOcopy,sem_MaybeMExpr_1) }) }) }) })
sem_MaybeMExpr_Nothing :: T_MaybeMExpr
sem_MaybeMExpr_Nothing =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 8081 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 8086 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_MaybeMExpr_Nothing_1 :: T_MaybeMExpr_1
sem_MaybeMExpr_Nothing_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIisNegation
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvarBeingDefined
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 8105 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 8110 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 8115 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 8120 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSingleVar ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 8125 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 8130 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 8135 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 8140 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }))
in sem_MaybeMExpr_Nothing_1)) of
{ ( sem_MaybeMExpr_1) ->
( _lhsOcopy,sem_MaybeMExpr_1) }) }) })
-- PFExprSuffix ------------------------------------------------
-- cata
sem_PFExprSuffix :: PFExprSuffix ->
T_PFExprSuffix
sem_PFExprSuffix (Call _args) =
(sem_PFExprSuffix_Call (sem_Args _args))
sem_PFExprSuffix (MetaCall _fn _args) =
(sem_PFExprSuffix_MetaCall (sem_MToken _fn) (sem_Args _args))
sem_PFExprSuffix (ExprIndex _index) =
(sem_PFExprSuffix_ExprIndex (sem_MExpr _index))
sem_PFExprSuffix (DotIndex _index) =
(sem_PFExprSuffix_DotIndex (sem_MToken _index))
-- semantic domain
type T_PFExprSuffix = ( PFExprSuffix,T_PFExprSuffix_1)
type T_PFExprSuffix_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_PFExprSuffix = Inh_PFExprSuffix {config_Inh_PFExprSuffix :: LintSettings,funcName_Inh_PFExprSuffix :: String,globalDefinitions_Inh_PFExprSuffix :: (M.Map String [Region]),isInModule_Inh_PFExprSuffix :: Bool,isMeta_Inh_PFExprSuffix :: Bool,loopLevel_Inh_PFExprSuffix :: Int,mtokenPos_Inh_PFExprSuffix :: Region,scopeLevel_Inh_PFExprSuffix :: Int,scopes_Inh_PFExprSuffix :: ([M.Map String (Bool, Region)]),variableStyle_Inh_PFExprSuffix :: DeterminedVariableStyle}
data Syn_PFExprSuffix = Syn_PFExprSuffix {copy_Syn_PFExprSuffix :: PFExprSuffix,globalDefinitions_Syn_PFExprSuffix :: (M.Map String [Region]),identifier_Syn_PFExprSuffix :: String,isInModule_Syn_PFExprSuffix :: Bool,isSimpleExpression_Syn_PFExprSuffix :: Bool,mtokenPos_Syn_PFExprSuffix :: Region,scopes_Syn_PFExprSuffix :: ([M.Map String (Bool, Region)]),variableStyle_Syn_PFExprSuffix :: DeterminedVariableStyle,warnings_Syn_PFExprSuffix :: ([String -> LintMessage])}
wrap_PFExprSuffix :: T_PFExprSuffix ->
Inh_PFExprSuffix ->
Syn_PFExprSuffix
wrap_PFExprSuffix sem (Inh_PFExprSuffix _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_PFExprSuffix _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOisSimpleExpression _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_PFExprSuffix_Call :: T_Args ->
T_PFExprSuffix
sem_PFExprSuffix_Call args_ =
(case (args_) of
{ ( _argsIcopy,args_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Call _argsIcopy
{-# LINE 8188 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 8193 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_PFExprSuffix_Call_1 :: T_PFExprSuffix_1
sem_PFExprSuffix_Call_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 8210 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 8215 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 8220 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 8225 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 8230 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 8235 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 8240 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 8245 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 8250 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 8255 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOfuncName ->
(case (args_1 _argsOconfig _argsOfuncName _argsOglobalDefinitions _argsOisInModule _argsOisMeta _argsOloopLevel _argsOmtokenPos _argsOscopeLevel _argsOscopes _argsOvariableStyle) of
{ ( _argsIglobalDefinitions,_argsIidentifier,_argsIisInModule,_argsImtokenPos,_argsIscopes,_argsIvariableStyle,_argsIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argsIglobalDefinitions
{-# LINE 8262 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argsIidentifier
{-# LINE 8267 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argsIisInModule
{-# LINE 8272 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 559 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 8277 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argsImtokenPos
{-# LINE 8282 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argsIscopes
{-# LINE 8287 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argsIvariableStyle
{-# LINE 8292 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argsIwarnings
{-# LINE 8297 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_PFExprSuffix_Call_1)) of
{ ( sem_PFExprSuffix_1) ->
( _lhsOcopy,sem_PFExprSuffix_1) }) }) }) })
sem_PFExprSuffix_MetaCall :: T_MToken ->
T_Args ->
T_PFExprSuffix
sem_PFExprSuffix_MetaCall fn_ args_ =
(case (args_) of
{ ( _argsIcopy,args_1) ->
(case (fn_) of
{ ( _fnIcopy,_fnImtok,_fnImtokenPos,fn_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
MetaCall _fnIcopy _argsIcopy
{-# LINE 8314 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 8319 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_PFExprSuffix_MetaCall_1 :: T_PFExprSuffix_1
sem_PFExprSuffix_MetaCall_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 8336 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOscopes ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 8341 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOmtokenPos ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 8346 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 8351 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 8356 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 8361 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 8366 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOconfig ->
(case (fn_1 _fnOconfig _fnOfuncName _fnOglobalDefinitions _fnOisInModule _fnOisMeta _fnOmtokenPos _fnOscopes) of
{ ( _fnIglobalDefinitions,_fnIidentifier,_fnIisInModule,_fnIscopes,_fnIwarnings) ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_fnIscopes
{-# LINE 8373 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 8378 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_fnIisInModule
{-# LINE 8383 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_fnIglobalDefinitions
{-# LINE 8388 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 8393 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 8398 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 8403 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_fnImtokenPos
{-# LINE 8408 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 8413 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 8418 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argsOfuncName ->
(case (args_1 _argsOconfig _argsOfuncName _argsOglobalDefinitions _argsOisInModule _argsOisMeta _argsOloopLevel _argsOmtokenPos _argsOscopeLevel _argsOscopes _argsOvariableStyle) of
{ ( _argsIglobalDefinitions,_argsIidentifier,_argsIisInModule,_argsImtokenPos,_argsIscopes,_argsIvariableStyle,_argsIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argsIglobalDefinitions
{-# LINE 8425 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _fnIidentifier _argsIidentifier)
{-# LINE 8430 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argsIisInModule
{-# LINE 8435 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 561 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 8440 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argsImtokenPos
{-# LINE 8445 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argsIscopes
{-# LINE 8450 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_argsIvariableStyle
{-# LINE 8455 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_fnIwarnings ++ _argsIwarnings
{-# LINE 8460 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_PFExprSuffix_MetaCall_1)) of
{ ( sem_PFExprSuffix_1) ->
( _lhsOcopy,sem_PFExprSuffix_1) }) }) }) }) })
sem_PFExprSuffix_ExprIndex :: T_MExpr ->
T_PFExprSuffix
sem_PFExprSuffix_ExprIndex index_ =
(case (index_) of
{ ( _indexIcopy,_indexImtokenPos,index_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
ExprIndex _indexIcopy
{-# LINE 8474 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 8479 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_PFExprSuffix_ExprIndex_1 :: T_PFExprSuffix_1
sem_PFExprSuffix_ExprIndex_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 8496 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 8501 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 8506 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 8511 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 8516 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOconfig ->
(case (({-# LINE 566 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 8521 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOvarBeingDefined ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 8526 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 8531 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 8536 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 8541 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 8546 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOfuncName ->
(case (({-# LINE 565 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 8551 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOtopLevel ->
(case (({-# LINE 564 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 8556 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOinParentheses ->
(case (({-# LINE 563 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 8561 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOisNegation ->
(case (index_1 _indexOconfig _indexOfuncName _indexOglobalDefinitions _indexOinParentheses _indexOisInModule _indexOisMeta _indexOisNegation _indexOloopLevel _indexOmtokenPos _indexOscopeLevel _indexOscopes _indexOtopLevel _indexOvarBeingDefined _indexOvariableStyle) of
{ ( _indexIglobalDefinitions,_indexIidentifier,_indexIisInModule,_indexIisSimpleExpression,_indexIisSingleVar,_indexIscopes,_indexIvariableStyle,_indexIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_indexIglobalDefinitions
{-# LINE 8568 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_indexIidentifier
{-# LINE 8573 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_indexIisInModule
{-# LINE 8578 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}
_indexIisSimpleExpression
{-# LINE 8583 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_indexImtokenPos
{-# LINE 8588 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_indexIscopes
{-# LINE 8593 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_indexIvariableStyle
{-# LINE 8598 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_indexIwarnings
{-# LINE 8603 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_PFExprSuffix_ExprIndex_1)) of
{ ( sem_PFExprSuffix_1) ->
( _lhsOcopy,sem_PFExprSuffix_1) }) }) }) })
sem_PFExprSuffix_DotIndex :: T_MToken ->
T_PFExprSuffix
sem_PFExprSuffix_DotIndex index_ =
(case (index_) of
{ ( _indexIcopy,_indexImtok,_indexImtokenPos,index_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
DotIndex _indexIcopy
{-# LINE 8617 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 8622 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_PFExprSuffix_DotIndex_1 :: T_PFExprSuffix_1
sem_PFExprSuffix_DotIndex_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 8639 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOglobalDefinitions ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 8644 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOscopes ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 8649 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOmtokenPos ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 8654 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 8659 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOisInModule ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 8664 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 8669 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _indexOconfig ->
(case (index_1 _indexOconfig _indexOfuncName _indexOglobalDefinitions _indexOisInModule _indexOisMeta _indexOmtokenPos _indexOscopes) of
{ ( _indexIglobalDefinitions,_indexIidentifier,_indexIisInModule,_indexIscopes,_indexIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_indexIglobalDefinitions
{-# LINE 8676 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_indexIidentifier
{-# LINE 8681 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_indexIisInModule
{-# LINE 8686 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 8691 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_indexImtokenPos
{-# LINE 8696 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_indexIscopes
{-# LINE 8701 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 8706 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_indexIwarnings
{-# LINE 8711 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_PFExprSuffix_DotIndex_1)) of
{ ( sem_PFExprSuffix_1) ->
( _lhsOcopy,sem_PFExprSuffix_1) }) }) }) })
-- PrefixExp ---------------------------------------------------
-- cata
sem_PrefixExp :: PrefixExp ->
T_PrefixExp
sem_PrefixExp (PFVar _name _suffixes) =
(sem_PrefixExp_PFVar (sem_MToken _name) (sem_ExprSuffixList _suffixes))
sem_PrefixExp (ExprVar _expr _suffixes) =
(sem_PrefixExp_ExprVar (sem_MExpr _expr) (sem_ExprSuffixList _suffixes))
-- semantic domain
type T_PrefixExp = ( PrefixExp,Bool,Region,(Maybe MToken),T_PrefixExp_1)
type T_PrefixExp_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Bool ->
Bool ->
Int ->
Region ->
Bool ->
Int ->
([M.Map String (Bool, Region)]) ->
Bool ->
(Maybe MToken) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,Bool,(Maybe MToken),([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_PrefixExp = Inh_PrefixExp {config_Inh_PrefixExp :: LintSettings,funcName_Inh_PrefixExp :: String,globalDefinitions_Inh_PrefixExp :: (M.Map String [Region]),inParentheses_Inh_PrefixExp :: Bool,isInModule_Inh_PrefixExp :: Bool,isMeta_Inh_PrefixExp :: Bool,isNegation_Inh_PrefixExp :: Bool,loopLevel_Inh_PrefixExp :: Int,mtokenPos_Inh_PrefixExp :: Region,registerVarUse_Inh_PrefixExp :: Bool,scopeLevel_Inh_PrefixExp :: Int,scopes_Inh_PrefixExp :: ([M.Map String (Bool, Region)]),topLevel_Inh_PrefixExp :: Bool,varBeingDefined_Inh_PrefixExp :: (Maybe MToken),variableStyle_Inh_PrefixExp :: DeterminedVariableStyle}
data Syn_PrefixExp = Syn_PrefixExp {copy_Syn_PrefixExp :: PrefixExp,globalDefinitions_Syn_PrefixExp :: (M.Map String [Region]),hasSuffixes_Syn_PrefixExp :: Bool,identifier_Syn_PrefixExp :: String,isInModule_Syn_PrefixExp :: Bool,isSimpleExpression_Syn_PrefixExp :: Bool,isSingleVar_Syn_PrefixExp :: (Maybe MToken),mtokenPos_Syn_PrefixExp :: Region,scopes_Syn_PrefixExp :: ([M.Map String (Bool, Region)]),varName_Syn_PrefixExp :: (Maybe MToken),variableStyle_Syn_PrefixExp :: DeterminedVariableStyle,warnings_Syn_PrefixExp :: ([String -> LintMessage])}
wrap_PrefixExp :: T_PrefixExp ->
Inh_PrefixExp ->
Syn_PrefixExp
wrap_PrefixExp sem (Inh_PrefixExp _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIregisterVarUse _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvarBeingDefined _lhsIvariableStyle) =
(let ( _lhsOcopy,_lhsOhasSuffixes,_lhsOmtokenPos,_lhsOvarName,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIregisterVarUse _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvarBeingDefined _lhsIvariableStyle
in (Syn_PrefixExp _lhsOcopy _lhsOglobalDefinitions _lhsOhasSuffixes _lhsOidentifier _lhsOisInModule _lhsOisSimpleExpression _lhsOisSingleVar _lhsOmtokenPos _lhsOscopes _lhsOvarName _lhsOvariableStyle _lhsOwarnings))
sem_PrefixExp_PFVar :: T_MToken ->
T_ExprSuffixList ->
T_PrefixExp
sem_PrefixExp_PFVar name_ suffixes_ =
(case (suffixes_) of
{ ( _suffixesIcopy,suffixes_1) ->
(case (name_) of
{ ( _nameIcopy,_nameImtok,_nameImtokenPos,name_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
PFVar _nameIcopy _suffixesIcopy
{-# LINE 8763 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 8768 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 520 "src/GLuaFixer/AG/ASTLint.ag" #-}
not . null $ _suffixesIcopy
{-# LINE 8773 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOhasSuffixes ->
(case (({-# LINE 519 "src/GLuaFixer/AG/ASTLint.ag" #-}
_nameImtokenPos
{-# LINE 8778 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 522 "src/GLuaFixer/AG/ASTLint.ag" #-}
Just _nameIcopy
{-# LINE 8783 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varName ->
(case (({-# LINE 193 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varName
{-# LINE 8788 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvarName ->
(case ((let sem_PrefixExp_PFVar_1 :: T_PrefixExp_1
sem_PrefixExp_PFVar_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIinParentheses
_lhsIisInModule
_lhsIisMeta
_lhsIisNegation
_lhsIloopLevel
_lhsImtokenPos
_lhsIregisterVarUse
_lhsIscopeLevel
_lhsIscopes
_lhsItopLevel
_lhsIvarBeingDefined
_lhsIvariableStyle ->
(case (({-# LINE 526 "src/GLuaFixer/AG/ASTLint.ag" #-}
if isJust _lhsIvarBeingDefined && _lhsIvarBeingDefined == _varName then
case _lhsIscopes of
deepestScope : otherScopes -> deepestScope : registerVariable otherScopes _nameImtokenPos (show _nameImtok) _lhsIregisterVarUse
noScopes -> noScopes
else
registerVariable _lhsIscopes _nameImtokenPos (show _nameImtok) _lhsIregisterVarUse
{-# LINE 8815 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _foundVars ->
(case (({-# LINE 536 "src/GLuaFixer/AG/ASTLint.ag" #-}
_foundVars
{-# LINE 8820 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOscopes ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 8825 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOmtokenPos ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 8830 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 8835 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 8840 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 8845 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 8850 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOconfig ->
(case (name_1 _nameOconfig _nameOfuncName _nameOglobalDefinitions _nameOisInModule _nameOisMeta _nameOmtokenPos _nameOscopes) of
{ ( _nameIglobalDefinitions,_nameIidentifier,_nameIisInModule,_nameIscopes,_nameIwarnings) ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_nameIscopes
{-# LINE 8857 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 8862 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_nameIisInModule
{-# LINE 8867 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_nameIglobalDefinitions
{-# LINE 8872 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 8877 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 8882 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 8887 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_nameImtokenPos
{-# LINE 8892 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 8897 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 8902 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOfuncName ->
(case (suffixes_1 _suffixesOconfig _suffixesOfuncName _suffixesOglobalDefinitions _suffixesOisInModule _suffixesOisMeta _suffixesOloopLevel _suffixesOmtokenPos _suffixesOscopeLevel _suffixesOscopes _suffixesOvariableStyle) of
{ ( _suffixesIglobalDefinitions,_suffixesIidentifier,_suffixesIisInModule,_suffixesIisSimpleExpression,_suffixesImtokenPos,_suffixesIscopes,_suffixesIvariableStyle,_suffixesIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_suffixesIglobalDefinitions
{-# LINE 8909 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _nameIidentifier _suffixesIidentifier)
{-# LINE 8914 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_suffixesIisInModule
{-# LINE 8919 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}
_suffixesIisSimpleExpression
{-# LINE 8924 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 521 "src/GLuaFixer/AG/ASTLint.ag" #-}
if null _suffixesIcopy then _varName else Nothing
{-# LINE 8929 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSingleVar ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_suffixesIscopes
{-# LINE 8934 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_suffixesIvariableStyle
{-# LINE 8939 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 542 "src/GLuaFixer/AG/ASTLint.ag" #-}
_nameIwarnings ++ _suffixesIwarnings
{-# LINE 8944 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 535 "src/GLuaFixer/AG/ASTLint.ag" #-}
tokenLabel _nameIcopy
{-# LINE 8949 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _name ->
(case (({-# LINE 542 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_beginnerMistakes _lhsIconfig) || _lhsIisMeta || _name /= "self" then id else
(:) $ warn _nameImtokenPos SelfInNonMeta
{-# LINE 8955 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f3 ->
(case (({-# LINE 542 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_beginnerMistakes _lhsIconfig) || not _lhsIisMeta || _name /= "self" ||
_lhsIfuncName /= "ENT" || _suffixesIidentifier /= "Entity" then id else
(:) $ warn _nameImtokenPos SelfEntity
{-# LINE 8962 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f2 ->
(case (({-# LINE 542 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_beginnerMistakes _lhsIconfig) || not _lhsIisMeta || _name /= "self" ||
_lhsIfuncName /= "SWEP" || _suffixesIidentifier /= "Weapon" then id else
(:) $ warn _nameImtokenPos SelfWeapon
{-# LINE 8969 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 542 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2, _warnings_augmented_f3]
{-# LINE 8974 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_PrefixExp_PFVar_1)) of
{ ( sem_PrefixExp_1) ->
( _lhsOcopy,_lhsOhasSuffixes,_lhsOmtokenPos,_lhsOvarName,sem_PrefixExp_1) }) }) }) }) }) }) }) }) })
sem_PrefixExp_ExprVar :: T_MExpr ->
T_ExprSuffixList ->
T_PrefixExp
sem_PrefixExp_ExprVar expr_ suffixes_ =
(case (suffixes_) of
{ ( _suffixesIcopy,suffixes_1) ->
(case (expr_) of
{ ( _exprIcopy,_exprImtokenPos,expr_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
ExprVar _exprIcopy _suffixesIcopy
{-# LINE 8991 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 8996 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 549 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 9001 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOhasSuffixes ->
(case (({-# LINE 546 "src/GLuaFixer/AG/ASTLint.ag" #-}
_exprImtokenPos
{-# LINE 9006 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 548 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 9011 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvarName ->
(case ((let sem_PrefixExp_ExprVar_1 :: T_PrefixExp_1
sem_PrefixExp_ExprVar_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIinParentheses
_lhsIisInModule
_lhsIisMeta
_lhsIisNegation
_lhsIloopLevel
_lhsImtokenPos
_lhsIregisterVarUse
_lhsIscopeLevel
_lhsIscopes
_lhsItopLevel
_lhsIvarBeingDefined
_lhsIvariableStyle ->
(case (({-# LINE 179 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvarBeingDefined
{-# LINE 9033 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOvarBeingDefined ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 9038 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 9043 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOisMeta ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 9048 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 9053 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 9058 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 9063 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 9068 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOloopLevel ->
(case (({-# LINE 170 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisNegation
{-# LINE 9073 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOisNegation ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 9078 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 9083 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 9088 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOfuncName ->
(case (({-# LINE 551 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 9093 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOtopLevel ->
(case (({-# LINE 550 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 9098 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _exprOinParentheses ->
(case (expr_1 _exprOconfig _exprOfuncName _exprOglobalDefinitions _exprOinParentheses _exprOisInModule _exprOisMeta _exprOisNegation _exprOloopLevel _exprOmtokenPos _exprOscopeLevel _exprOscopes _exprOtopLevel _exprOvarBeingDefined _exprOvariableStyle) of
{ ( _exprIglobalDefinitions,_exprIidentifier,_exprIisInModule,_exprIisSimpleExpression,_exprIisSingleVar,_exprIscopes,_exprIvariableStyle,_exprIwarnings) ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_exprIscopes
{-# LINE 9105 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 9110 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_exprIisInModule
{-# LINE 9115 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_exprIglobalDefinitions
{-# LINE 9120 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 9125 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_exprIvariableStyle
{-# LINE 9130 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 9135 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_exprImtokenPos
{-# LINE 9140 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 9145 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 9150 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _suffixesOfuncName ->
(case (suffixes_1 _suffixesOconfig _suffixesOfuncName _suffixesOglobalDefinitions _suffixesOisInModule _suffixesOisMeta _suffixesOloopLevel _suffixesOmtokenPos _suffixesOscopeLevel _suffixesOscopes _suffixesOvariableStyle) of
{ ( _suffixesIglobalDefinitions,_suffixesIidentifier,_suffixesIisInModule,_suffixesIisSimpleExpression,_suffixesImtokenPos,_suffixesIscopes,_suffixesIvariableStyle,_suffixesIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_suffixesIglobalDefinitions
{-# LINE 9157 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _exprIidentifier _suffixesIidentifier)
{-# LINE 9162 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_suffixesIisInModule
{-# LINE 9167 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}
_exprIisSimpleExpression && _suffixesIisSimpleExpression
{-# LINE 9172 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSimpleExpression ->
(case (({-# LINE 547 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 9177 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisSingleVar ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_suffixesIscopes
{-# LINE 9182 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_suffixesIvariableStyle
{-# LINE 9187 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 552 "src/GLuaFixer/AG/ASTLint.ag" #-}
_exprIwarnings ++ _suffixesIwarnings
{-# LINE 9192 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 552 "src/GLuaFixer/AG/ASTLint.ag" #-}
if lint_redundantParentheses _lhsIconfig && null _suffixesIcopy &&
( _lhsIinParentheses || (not _lhsItopLevel && _exprIisSimpleExpression))
then (:) $ warn _lhsImtokenPos UnnecessaryParentheses
else id
{-# LINE 9200 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 552 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 9205 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_PrefixExp_ExprVar_1)) of
{ ( sem_PrefixExp_1) ->
( _lhsOcopy,_lhsOhasSuffixes,_lhsOmtokenPos,_lhsOvarName,sem_PrefixExp_1) }) }) }) }) }) }) }) })
-- Stat --------------------------------------------------------
-- cata
sem_Stat :: Stat ->
T_Stat
sem_Stat (Def _vars) =
(sem_Stat_Def (sem_VarsList _vars))
sem_Stat (LocDef _vars) =
(sem_Stat_LocDef (sem_VarsList _vars))
sem_Stat (AFuncCall _fn) =
(sem_Stat_AFuncCall (sem_PrefixExp _fn))
sem_Stat (ALabel _lbl) =
(sem_Stat_ALabel (sem_MToken _lbl))
sem_Stat (ABreak) =
(sem_Stat_ABreak)
sem_Stat (AContinue) =
(sem_Stat_AContinue)
sem_Stat (AGoto _lbl) =
(sem_Stat_AGoto (sem_MToken _lbl))
sem_Stat (ADo _body) =
(sem_Stat_ADo (sem_Block _body))
sem_Stat (AWhile _cond _body) =
(sem_Stat_AWhile (sem_MExpr _cond) (sem_Block _body))
sem_Stat (ARepeat _body _cond) =
(sem_Stat_ARepeat (sem_Block _body) (sem_MExpr _cond))
sem_Stat (AIf _cond _body _elifs _els) =
(sem_Stat_AIf (sem_MExpr _cond) (sem_Block _body) (sem_ElseIfList _elifs) (sem_Else _els))
sem_Stat (ANFor _var _val _to _step _body) =
(sem_Stat_ANFor (sem_MToken _var) (sem_MExpr _val) (sem_MExpr _to) (sem_MExpr _step) (sem_Block _body))
sem_Stat (AGFor _vars _vals _body) =
(sem_Stat_AGFor _vars (sem_MExprList _vals) (sem_Block _body))
sem_Stat (AFunc _name _args _body) =
(sem_Stat_AFunc (sem_FuncName _name) _args (sem_Block _body))
sem_Stat (ALocFunc _name _args _body) =
(sem_Stat_ALocFunc (sem_FuncName _name) _args (sem_Block _body))
-- semantic domain
type T_Stat = ( Stat,T_Stat_1)
type T_Stat_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_Stat = Inh_Stat {config_Inh_Stat :: LintSettings,funcName_Inh_Stat :: String,globalDefinitions_Inh_Stat :: (M.Map String [Region]),isInModule_Inh_Stat :: Bool,isMeta_Inh_Stat :: Bool,loopLevel_Inh_Stat :: Int,mtokenPos_Inh_Stat :: Region,scopeLevel_Inh_Stat :: Int,scopes_Inh_Stat :: ([M.Map String (Bool, Region)]),variableStyle_Inh_Stat :: DeterminedVariableStyle}
data Syn_Stat = Syn_Stat {copy_Syn_Stat :: Stat,globalDefinitions_Syn_Stat :: (M.Map String [Region]),identifier_Syn_Stat :: String,isIfStatement_Syn_Stat :: Bool,isInModule_Syn_Stat :: Bool,mtokenPos_Syn_Stat :: Region,scopes_Syn_Stat :: ([M.Map String (Bool, Region)]),variableStyle_Syn_Stat :: DeterminedVariableStyle,warnings_Syn_Stat :: ([String -> LintMessage])}
wrap_Stat :: T_Stat ->
Inh_Stat ->
Syn_Stat
wrap_Stat sem (Inh_Stat _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_Stat _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisIfStatement _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_Stat_Def :: T_VarsList ->
T_Stat
sem_Stat_Def vars_ =
(case (vars_) of
{ ( _varsIcopy,vars_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Def _varsIcopy
{-# LINE 9275 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 9280 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Stat_Def_1 :: T_Stat_1
sem_Stat_Def_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 9297 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 9302 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 9307 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 9312 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 9317 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOconfig ->
(case (({-# LINE 315 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 9322 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOlocalDefinition ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 9327 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 9332 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 9337 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 9342 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 9347 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOfuncName ->
(case (vars_1 _varsOconfig _varsOfuncName _varsOglobalDefinitions _varsOisInModule _varsOisMeta _varsOlocalDefinition _varsOloopLevel _varsOmtokenPos _varsOscopeLevel _varsOscopes _varsOvariableStyle) of
{ ( _varsIglobalDefinitions,_varsIidentifier,_varsIisInModule,_varsImtokenPos,_varsIscopes,_varsIvariableStyle,_varsIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varsIglobalDefinitions
{-# LINE 9354 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varsIidentifier
{-# LINE 9359 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 9364 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisIfStatement ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varsIisInModule
{-# LINE 9369 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varsImtokenPos
{-# LINE 9374 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varsIscopes
{-# LINE 9379 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varsIvariableStyle
{-# LINE 9384 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varsIwarnings
{-# LINE 9389 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Stat_Def_1)) of
{ ( sem_Stat_1) ->
( _lhsOcopy,sem_Stat_1) }) }) }) })
sem_Stat_LocDef :: T_VarsList ->
T_Stat
sem_Stat_LocDef vars_ =
(case (vars_) of
{ ( _varsIcopy,vars_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
LocDef _varsIcopy
{-# LINE 9403 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 9408 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Stat_LocDef_1 :: T_Stat_1
sem_Stat_LocDef_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 9425 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 9430 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 9435 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 9440 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 9445 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOconfig ->
(case (({-# LINE 318 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 9450 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOlocalDefinition ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 9455 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 9460 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 9465 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 9470 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 9475 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varsOfuncName ->
(case (vars_1 _varsOconfig _varsOfuncName _varsOglobalDefinitions _varsOisInModule _varsOisMeta _varsOlocalDefinition _varsOloopLevel _varsOmtokenPos _varsOscopeLevel _varsOscopes _varsOvariableStyle) of
{ ( _varsIglobalDefinitions,_varsIidentifier,_varsIisInModule,_varsImtokenPos,_varsIscopes,_varsIvariableStyle,_varsIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varsIglobalDefinitions
{-# LINE 9482 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varsIidentifier
{-# LINE 9487 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 9492 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisIfStatement ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varsIisInModule
{-# LINE 9497 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varsImtokenPos
{-# LINE 9502 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varsIscopes
{-# LINE 9507 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varsIvariableStyle
{-# LINE 9512 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varsIwarnings
{-# LINE 9517 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Stat_LocDef_1)) of
{ ( sem_Stat_1) ->
( _lhsOcopy,sem_Stat_1) }) }) }) })
sem_Stat_AFuncCall :: T_PrefixExp ->
T_Stat
sem_Stat_AFuncCall fn_ =
(case (fn_) of
{ ( _fnIcopy,_fnIhasSuffixes,_fnImtokenPos,_fnIvarName,fn_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AFuncCall _fnIcopy
{-# LINE 9531 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 9536 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Stat_AFuncCall_1 :: T_Stat_1
sem_Stat_AFuncCall_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 9553 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 9558 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 9563 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 9568 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 9573 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOconfig ->
(case (({-# LINE 324 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 9578 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOvarBeingDefined ->
(case (({-# LINE 321 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 9583 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOregisterVarUse ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 9588 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 9593 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 9598 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 9603 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 9608 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOfuncName ->
(case (({-# LINE 323 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 9613 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOtopLevel ->
(case (({-# LINE 322 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 9618 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOinParentheses ->
(case (({-# LINE 320 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 9623 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _fnOisNegation ->
(case (fn_1 _fnOconfig _fnOfuncName _fnOglobalDefinitions _fnOinParentheses _fnOisInModule _fnOisMeta _fnOisNegation _fnOloopLevel _fnOmtokenPos _fnOregisterVarUse _fnOscopeLevel _fnOscopes _fnOtopLevel _fnOvarBeingDefined _fnOvariableStyle) of
{ ( _fnIglobalDefinitions,_fnIidentifier,_fnIisInModule,_fnIisSimpleExpression,_fnIisSingleVar,_fnIscopes,_fnIvariableStyle,_fnIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_fnIglobalDefinitions
{-# LINE 9630 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_fnIidentifier
{-# LINE 9635 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 9640 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisIfStatement ->
(case (({-# LINE 325 "src/GLuaFixer/AG/ASTLint.ag" #-}
(tokenLabel <$> _fnIvarName) == Just "module"
{-# LINE 9645 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _isModuleCall ->
(case (({-# LINE 326 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule || _isModuleCall
{-# LINE 9650 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_fnImtokenPos
{-# LINE 9655 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_fnIscopes
{-# LINE 9660 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_fnIvariableStyle
{-# LINE 9665 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_fnIwarnings
{-# LINE 9670 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Stat_AFuncCall_1)) of
{ ( sem_Stat_1) ->
( _lhsOcopy,sem_Stat_1) }) }) }) })
sem_Stat_ALabel :: T_MToken ->
T_Stat
sem_Stat_ALabel lbl_ =
(case (lbl_) of
{ ( _lblIcopy,_lblImtok,_lblImtokenPos,lbl_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
ALabel _lblIcopy
{-# LINE 9684 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 9689 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Stat_ALabel_1 :: T_Stat_1
sem_Stat_ALabel_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 9706 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lblOglobalDefinitions ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 9711 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lblOscopes ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 9716 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lblOmtokenPos ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 9721 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lblOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 9726 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lblOisInModule ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 9731 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lblOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 9736 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lblOconfig ->
(case (lbl_1 _lblOconfig _lblOfuncName _lblOglobalDefinitions _lblOisInModule _lblOisMeta _lblOmtokenPos _lblOscopes) of
{ ( _lblIglobalDefinitions,_lblIidentifier,_lblIisInModule,_lblIscopes,_lblIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lblIglobalDefinitions
{-# LINE 9743 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lblIidentifier
{-# LINE 9748 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 9753 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisIfStatement ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lblIisInModule
{-# LINE 9758 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lblImtokenPos
{-# LINE 9763 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lblIscopes
{-# LINE 9768 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 9773 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lblIwarnings
{-# LINE 9778 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Stat_ALabel_1)) of
{ ( sem_Stat_1) ->
( _lhsOcopy,sem_Stat_1) }) }) }) })
sem_Stat_ABreak :: T_Stat
sem_Stat_ABreak =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
ABreak
{-# LINE 9789 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 9794 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Stat_ABreak_1 :: T_Stat_1
sem_Stat_ABreak_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 9811 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 9816 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 9821 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisIfStatement ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 9826 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 9831 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 9836 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 9841 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 9846 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }))
in sem_Stat_ABreak_1)) of
{ ( sem_Stat_1) ->
( _lhsOcopy,sem_Stat_1) }) }) })
sem_Stat_AContinue :: T_Stat
sem_Stat_AContinue =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AContinue
{-# LINE 9857 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 9862 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Stat_AContinue_1 :: T_Stat_1
sem_Stat_AContinue_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 9879 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 9884 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 9889 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisIfStatement ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 9894 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 9899 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 9904 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 9909 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 9914 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }))
in sem_Stat_AContinue_1)) of
{ ( sem_Stat_1) ->
( _lhsOcopy,sem_Stat_1) }) }) })
sem_Stat_AGoto :: T_MToken ->
T_Stat
sem_Stat_AGoto lbl_ =
(case (lbl_) of
{ ( _lblIcopy,_lblImtok,_lblImtokenPos,lbl_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AGoto _lblIcopy
{-# LINE 9928 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 9933 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Stat_AGoto_1 :: T_Stat_1
sem_Stat_AGoto_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 9950 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lblOglobalDefinitions ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 9955 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lblOscopes ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 9960 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lblOmtokenPos ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 9965 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lblOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 9970 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lblOisInModule ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 9975 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lblOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 9980 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lblOconfig ->
(case (lbl_1 _lblOconfig _lblOfuncName _lblOglobalDefinitions _lblOisInModule _lblOisMeta _lblOmtokenPos _lblOscopes) of
{ ( _lblIglobalDefinitions,_lblIidentifier,_lblIisInModule,_lblIscopes,_lblIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lblIglobalDefinitions
{-# LINE 9987 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lblIidentifier
{-# LINE 9992 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 9997 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisIfStatement ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lblIisInModule
{-# LINE 10002 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lblImtokenPos
{-# LINE 10007 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lblIscopes
{-# LINE 10012 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 10017 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 331 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lblIwarnings
{-# LINE 10022 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 331 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_gotos _lhsIconfig) || _lhsIloopLevel >= 2 then id else
(:) $ warn _lblImtokenPos AvoidGoto
{-# LINE 10028 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 331 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 10033 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Stat_AGoto_1)) of
{ ( sem_Stat_1) ->
( _lhsOcopy,sem_Stat_1) }) }) }) })
sem_Stat_ADo :: T_Block ->
T_Stat
sem_Stat_ADo body_ =
(case (body_) of
{ ( _bodyIcopy,body_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
ADo _bodyIcopy
{-# LINE 10047 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 10052 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Stat_ADo_1 :: T_Stat_1
sem_Stat_ADo_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 10069 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 10074 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 10079 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 10084 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOconfig ->
(case (({-# LINE 335 "src/GLuaFixer/AG/ASTLint.ag" #-}
M.empty : _lhsIscopes
{-# LINE 10089 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 10094 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 10099 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 10104 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 10109 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 10114 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOfuncName ->
(case (({-# LINE 336 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 10119 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisRepeat ->
(case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of
{ ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIglobalDefinitions
{-# LINE 10126 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIidentifier
{-# LINE 10131 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 334 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 10136 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisIfStatement ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIisInModule
{-# LINE 10141 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyImtokenPos
{-# LINE 10146 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIscopes
{-# LINE 10151 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIvariableStyle
{-# LINE 10156 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 337 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIwarnings
{-# LINE 10161 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 337 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_emptyBlocks _lhsIconfig) || _bodyIstatementCount > 0 then id else
(:) $ warn _lhsImtokenPos EmptyDoBlock
{-# LINE 10167 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 337 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 10172 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Stat_ADo_1)) of
{ ( sem_Stat_1) ->
( _lhsOcopy,sem_Stat_1) }) }) }) })
sem_Stat_AWhile :: T_MExpr ->
T_Block ->
T_Stat
sem_Stat_AWhile cond_ body_ =
(case (body_) of
{ ( _bodyIcopy,body_1) ->
(case (cond_) of
{ ( _condIcopy,_condImtokenPos,cond_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AWhile _condIcopy _bodyIcopy
{-# LINE 10189 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 10194 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Stat_AWhile_1 :: T_Stat_1
sem_Stat_AWhile_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 10211 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 10216 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOisInModule ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 10221 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 10226 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOscopes ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 10231 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 10236 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 10241 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOloopLevel ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 10246 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOisMeta ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 10251 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 10256 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 10261 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOconfig ->
(case (({-# LINE 345 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 10266 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOvarBeingDefined ->
(case (({-# LINE 344 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 10271 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOtopLevel ->
(case (({-# LINE 343 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 10276 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOinParentheses ->
(case (({-# LINE 342 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 10281 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOisNegation ->
(case (cond_1 _condOconfig _condOfuncName _condOglobalDefinitions _condOinParentheses _condOisInModule _condOisMeta _condOisNegation _condOloopLevel _condOmtokenPos _condOscopeLevel _condOscopes _condOtopLevel _condOvarBeingDefined _condOvariableStyle) of
{ ( _condIglobalDefinitions,_condIidentifier,_condIisInModule,_condIisSimpleExpression,_condIisSingleVar,_condIscopes,_condIvariableStyle,_condIwarnings) ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_condIisInModule
{-# LINE 10288 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_condIglobalDefinitions
{-# LINE 10293 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 10298 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOconfig ->
(case (({-# LINE 347 "src/GLuaFixer/AG/ASTLint.ag" #-}
M.empty : _condIscopes
{-# LINE 10303 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_condIvariableStyle
{-# LINE 10308 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 10313 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_condImtokenPos
{-# LINE 10318 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOmtokenPos ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 10323 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOfuncName ->
(case (({-# LINE 346 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 10328 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisRepeat ->
(case (({-# LINE 341 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel + 1
{-# LINE 10333 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOloopLevel ->
(case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of
{ ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIglobalDefinitions
{-# LINE 10340 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _condIidentifier _bodyIidentifier)
{-# LINE 10345 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 340 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 10350 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisIfStatement ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIisInModule
{-# LINE 10355 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyImtokenPos
{-# LINE 10360 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIscopes
{-# LINE 10365 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIvariableStyle
{-# LINE 10370 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 348 "src/GLuaFixer/AG/ASTLint.ag" #-}
_condIwarnings ++ _bodyIwarnings
{-# LINE 10375 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 348 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_emptyBlocks _lhsIconfig) || _bodyIstatementCount > 0 then id else
(:) $ warn _lhsImtokenPos EmptyWhileLoop
{-# LINE 10381 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 348 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 10386 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Stat_AWhile_1)) of
{ ( sem_Stat_1) ->
( _lhsOcopy,sem_Stat_1) }) }) }) }) })
sem_Stat_ARepeat :: T_Block ->
T_MExpr ->
T_Stat
sem_Stat_ARepeat body_ cond_ =
(case (cond_) of
{ ( _condIcopy,_condImtokenPos,cond_1) ->
(case (body_) of
{ ( _bodyIcopy,body_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
ARepeat _bodyIcopy _condIcopy
{-# LINE 10403 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 10408 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Stat_ARepeat_1 :: T_Stat_1
sem_Stat_ARepeat_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 10425 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisMeta ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 10430 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOconfig ->
(case (({-# LINE 359 "src/GLuaFixer/AG/ASTLint.ag" #-}
M.empty : _lhsIscopes
{-# LINE 10435 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopes ->
(case (({-# LINE 358 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 10440 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisRepeat ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 10445 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 10450 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 10455 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOmtokenPos ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 10460 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 10465 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 10470 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOfuncName ->
(case (({-# LINE 353 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel + 1
{-# LINE 10475 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOloopLevel ->
(case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of
{ ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIscopes
{-# LINE 10482 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 10487 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIisInModule
{-# LINE 10492 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIglobalDefinitions
{-# LINE 10497 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 10502 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOconfig ->
(case (({-# LINE 357 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 10507 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOvarBeingDefined ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIvariableStyle
{-# LINE 10512 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 10517 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyImtokenPos
{-# LINE 10522 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 10527 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 10532 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOfuncName ->
(case (({-# LINE 356 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 10537 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOtopLevel ->
(case (({-# LINE 355 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 10542 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOinParentheses ->
(case (({-# LINE 354 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 10547 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOisNegation ->
(case (cond_1 _condOconfig _condOfuncName _condOglobalDefinitions _condOinParentheses _condOisInModule _condOisMeta _condOisNegation _condOloopLevel _condOmtokenPos _condOscopeLevel _condOscopes _condOtopLevel _condOvarBeingDefined _condOvariableStyle) of
{ ( _condIglobalDefinitions,_condIidentifier,_condIisInModule,_condIisSimpleExpression,_condIisSingleVar,_condIscopes,_condIvariableStyle,_condIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_condIglobalDefinitions
{-# LINE 10554 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _bodyIidentifier _condIidentifier)
{-# LINE 10559 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 352 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 10564 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisIfStatement ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_condIisInModule
{-# LINE 10569 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_condImtokenPos
{-# LINE 10574 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 360 "src/GLuaFixer/AG/ASTLint.ag" #-}
tail _condIscopes
{-# LINE 10579 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_condIvariableStyle
{-# LINE 10584 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 361 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIwarnings ++ _condIwarnings
{-# LINE 10589 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 361 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_emptyBlocks _lhsIconfig) || _bodyIstatementCount > 0 then id else
(:) $ warn _lhsImtokenPos EmptyRepeat
{-# LINE 10595 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 361 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 10600 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Stat_ARepeat_1)) of
{ ( sem_Stat_1) ->
( _lhsOcopy,sem_Stat_1) }) }) }) }) })
sem_Stat_AIf :: T_MExpr ->
T_Block ->
T_ElseIfList ->
T_Else ->
T_Stat
sem_Stat_AIf cond_ body_ elifs_ els_ =
(case (els_) of
{ ( _elsIcopy,els_1) ->
(case (elifs_) of
{ ( _elifsIcopy,elifs_1) ->
(case (body_) of
{ ( _bodyIcopy,body_1) ->
(case (cond_) of
{ ( _condIcopy,_condImtokenPos,cond_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AIf _condIcopy _bodyIcopy _elifsIcopy _elsIcopy
{-# LINE 10623 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 10628 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Stat_AIf_1 :: T_Stat_1
sem_Stat_AIf_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 10645 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisMeta ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 10650 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOconfig ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 10655 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 10660 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOisMeta ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 10665 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOconfig ->
(case (({-# LINE 374 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 10670 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisRepeat ->
(case (({-# LINE 372 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 10675 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOvarBeingDefined ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 10680 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 10685 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 10690 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 10695 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOloopLevel ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 10700 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 10705 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 10710 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOfuncName ->
(case (({-# LINE 371 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 10715 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOtopLevel ->
(case (({-# LINE 370 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 10720 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOinParentheses ->
(case (({-# LINE 369 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 10725 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _condOisNegation ->
(case (cond_1 _condOconfig _condOfuncName _condOglobalDefinitions _condOinParentheses _condOisInModule _condOisMeta _condOisNegation _condOloopLevel _condOmtokenPos _condOscopeLevel _condOscopes _condOtopLevel _condOvarBeingDefined _condOvariableStyle) of
{ ( _condIglobalDefinitions,_condIidentifier,_condIisInModule,_condIisSimpleExpression,_condIisSingleVar,_condIscopes,_condIvariableStyle,_condIwarnings) ->
(case (({-# LINE 373 "src/GLuaFixer/AG/ASTLint.ag" #-}
M.empty : _condIscopes
{-# LINE 10732 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_condIvariableStyle
{-# LINE 10737 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 10742 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_condImtokenPos
{-# LINE 10747 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 10752 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOloopLevel ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_condIisInModule
{-# LINE 10757 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_condIglobalDefinitions
{-# LINE 10762 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 10767 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOfuncName ->
(case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of
{ ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIscopes
{-# LINE 10774 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifsOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 10779 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifsOisMeta ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 10784 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifsOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIvariableStyle
{-# LINE 10789 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifsOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 10794 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifsOscopeLevel ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 10799 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifsOloopLevel ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIisInModule
{-# LINE 10804 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifsOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIglobalDefinitions
{-# LINE 10809 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifsOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 10814 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifsOfuncName ->
(case (({-# LINE 375 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 10819 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elifsOmtokenPos ->
(case (elifs_1 _elifsOconfig _elifsOfuncName _elifsOglobalDefinitions _elifsOisInModule _elifsOisMeta _elifsOloopLevel _elifsOmtokenPos _elifsOscopeLevel _elifsOscopes _elifsOvariableStyle) of
{ ( _elifsIelseExists,_elifsIglobalDefinitions,_elifsIidentifier,_elifsIisInModule,_elifsImtokenPos,_elifsIscopes,_elifsIvariableStyle,_elifsIwarnings) ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_elifsIscopes
{-# LINE 10826 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elsOscopes ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 10831 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elsOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_elifsIisInModule
{-# LINE 10836 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elsOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_elifsIglobalDefinitions
{-# LINE 10841 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elsOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 10846 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elsOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_elifsIvariableStyle
{-# LINE 10851 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elsOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 10856 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elsOscopeLevel ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 10861 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elsOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 10866 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elsOfuncName ->
(case (({-# LINE 376 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 10871 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _elsOmtokenPos ->
(case (els_1 _elsOconfig _elsOfuncName _elsOglobalDefinitions _elsOisInModule _elsOisMeta _elsOloopLevel _elsOmtokenPos _elsOscopeLevel _elsOscopes _elsOvariableStyle) of
{ ( _elsIelseExists,_elsIglobalDefinitions,_elsIidentifier,_elsIisInModule,_elsImtokenPos,_elsIscopes,_elsIvariableStyle,_elsIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_elsIglobalDefinitions
{-# LINE 10878 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _condIidentifier (const _bodyIidentifier (const _elifsIidentifier _elsIidentifier)))
{-# LINE 10883 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 368 "src/GLuaFixer/AG/ASTLint.ag" #-}
not _elifsIelseExists && not _elsIelseExists
{-# LINE 10888 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisIfStatement ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_elsIisInModule
{-# LINE 10893 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_elsImtokenPos
{-# LINE 10898 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_elsIscopes
{-# LINE 10903 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_elsIvariableStyle
{-# LINE 10908 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 392 "src/GLuaFixer/AG/ASTLint.ag" #-}
_condIwarnings ++ _bodyIwarnings ++ _elifsIwarnings ++ _elsIwarnings
{-# LINE 10913 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 377 "src/GLuaFixer/AG/ASTLint.ag" #-}
case (_elifsIelseExists, _elsIelseExists) of
(False, False) -> _lhsImtokenPos
(True, _) -> Region (rgStart _lhsImtokenPos) (rgStart _elifsImtokenPos)
(False, True) -> Region (rgStart _lhsImtokenPos) (rgStart _elsImtokenPos)
{-# LINE 10921 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _ifBlockPos ->
(case (({-# LINE 392 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_emptyBlocks _lhsIconfig) || _bodyIstatementCount > 0 then id else
(:) $ warn _ifBlockPos EmptyIf
{-# LINE 10927 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f2 ->
(case (({-# LINE 392 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_redundantIfStatements _lhsIconfig) || _bodyIstatementCount /= 1 || not _bodyIisIfStatement || _elifsIelseExists || _elsIelseExists then id else
(:) $ warn _bodyImtokenPos DoubleIf
{-# LINE 10933 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 392 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2]
{-# LINE 10938 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Stat_AIf_1)) of
{ ( sem_Stat_1) ->
( _lhsOcopy,sem_Stat_1) }) }) }) }) }) }) })
sem_Stat_ANFor :: T_MToken ->
T_MExpr ->
T_MExpr ->
T_MExpr ->
T_Block ->
T_Stat
sem_Stat_ANFor var_ val_ to_ step_ body_ =
(case (body_) of
{ ( _bodyIcopy,body_1) ->
(case (step_) of
{ ( _stepIcopy,_stepImtokenPos,step_1) ->
(case (to_) of
{ ( _toIcopy,_toImtokenPos,to_1) ->
(case (val_) of
{ ( _valIcopy,_valImtokenPos,val_1) ->
(case (var_) of
{ ( _varIcopy,_varImtok,_varImtokenPos,var_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
ANFor _varIcopy _valIcopy _toIcopy _stepIcopy _bodyIcopy
{-# LINE 10964 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 10969 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Stat_ANFor_1 :: T_Stat_1
sem_Stat_ANFor_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 10986 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 10991 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varOisInModule ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 10996 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varOscopes ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 11001 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varOmtokenPos ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 11006 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varOisMeta ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 11011 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 11016 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 11021 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _varOconfig ->
(case (var_1 _varOconfig _varOfuncName _varOglobalDefinitions _varOisInModule _varOisMeta _varOmtokenPos _varOscopes) of
{ ( _varIglobalDefinitions,_varIidentifier,_varIisInModule,_varIscopes,_varIwarnings) ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varIisInModule
{-# LINE 11028 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valOisInModule ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 11033 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valOvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varIscopes
{-# LINE 11038 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valOscopes ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 11043 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varImtokenPos
{-# LINE 11048 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 11053 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valOloopLevel ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 11058 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valOisMeta ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varIglobalDefinitions
{-# LINE 11063 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 11068 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 11073 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valOconfig ->
(case (({-# LINE 400 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 11078 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valOvarBeingDefined ->
(case (({-# LINE 399 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 11083 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valOtopLevel ->
(case (({-# LINE 398 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 11088 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valOinParentheses ->
(case (({-# LINE 397 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 11093 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valOisNegation ->
(case (val_1 _valOconfig _valOfuncName _valOglobalDefinitions _valOinParentheses _valOisInModule _valOisMeta _valOisNegation _valOloopLevel _valOmtokenPos _valOscopeLevel _valOscopes _valOtopLevel _valOvarBeingDefined _valOvariableStyle) of
{ ( _valIglobalDefinitions,_valIidentifier,_valIisInModule,_valIisSimpleExpression,_valIisSingleVar,_valIscopes,_valIvariableStyle,_valIwarnings) ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valIisInModule
{-# LINE 11100 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _toOisInModule ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valIvariableStyle
{-# LINE 11105 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _toOvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valIscopes
{-# LINE 11110 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _toOscopes ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 11115 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _toOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valImtokenPos
{-# LINE 11120 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _toOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 11125 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _toOloopLevel ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 11130 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _toOisMeta ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valIglobalDefinitions
{-# LINE 11135 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _toOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 11140 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _toOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 11145 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _toOconfig ->
(case (({-# LINE 404 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 11150 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _toOvarBeingDefined ->
(case (({-# LINE 403 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 11155 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _toOtopLevel ->
(case (({-# LINE 402 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 11160 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _toOinParentheses ->
(case (({-# LINE 401 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 11165 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _toOisNegation ->
(case (to_1 _toOconfig _toOfuncName _toOglobalDefinitions _toOinParentheses _toOisInModule _toOisMeta _toOisNegation _toOloopLevel _toOmtokenPos _toOscopeLevel _toOscopes _toOtopLevel _toOvarBeingDefined _toOvariableStyle) of
{ ( _toIglobalDefinitions,_toIidentifier,_toIisInModule,_toIisSimpleExpression,_toIisSingleVar,_toIscopes,_toIvariableStyle,_toIwarnings) ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_toIisInModule
{-# LINE 11172 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _stepOisInModule ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_toIvariableStyle
{-# LINE 11177 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _stepOvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_toIscopes
{-# LINE 11182 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _stepOscopes ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 11187 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _stepOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_toImtokenPos
{-# LINE 11192 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _stepOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 11197 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _stepOloopLevel ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 11202 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _stepOisMeta ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_toIglobalDefinitions
{-# LINE 11207 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _stepOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 11212 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _stepOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 11217 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _stepOconfig ->
(case (({-# LINE 409 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nothing
{-# LINE 11222 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _stepOvarBeingDefined ->
(case (({-# LINE 408 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 11227 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _stepOtopLevel ->
(case (({-# LINE 407 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 11232 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _stepOinParentheses ->
(case (({-# LINE 406 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 11237 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _stepOisNegation ->
(case (step_1 _stepOconfig _stepOfuncName _stepOglobalDefinitions _stepOinParentheses _stepOisInModule _stepOisMeta _stepOisNegation _stepOloopLevel _stepOmtokenPos _stepOscopeLevel _stepOscopes _stepOtopLevel _stepOvarBeingDefined _stepOvariableStyle) of
{ ( _stepIglobalDefinitions,_stepIidentifier,_stepIisInModule,_stepIisSimpleExpression,_stepIisSingleVar,_stepIscopes,_stepIvariableStyle,_stepIwarnings) ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_stepIisInModule
{-# LINE 11244 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_stepIglobalDefinitions
{-# LINE 11249 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 11254 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOconfig ->
(case (({-# LINE 410 "src/GLuaFixer/AG/ASTLint.ag" #-}
M.singleton _varIidentifier (not (lint_unusedLoopVars _lhsIconfig), _varImtokenPos) : _stepIscopes
{-# LINE 11259 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_stepIvariableStyle
{-# LINE 11264 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 11269 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_stepImtokenPos
{-# LINE 11274 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOmtokenPos ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 11279 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOfuncName ->
(case (({-# LINE 405 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 11284 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisRepeat ->
(case (({-# LINE 396 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel + 1
{-# LINE 11289 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOloopLevel ->
(case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of
{ ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIglobalDefinitions
{-# LINE 11296 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _varIidentifier (const _valIidentifier (const _toIidentifier (const _stepIidentifier _bodyIidentifier))))
{-# LINE 11301 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 395 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 11306 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisIfStatement ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIisInModule
{-# LINE 11311 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyImtokenPos
{-# LINE 11316 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIscopes
{-# LINE 11321 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIvariableStyle
{-# LINE 11326 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 414 "src/GLuaFixer/AG/ASTLint.ag" #-}
_varIwarnings ++ _valIwarnings ++ _toIwarnings ++ _stepIwarnings ++ _bodyIwarnings
{-# LINE 11331 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 411 "src/GLuaFixer/AG/ASTLint.ag" #-}
checkShadows _lhsIscopes _varIcopy
{-# LINE 11336 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _shadowWarning ->
(case (({-# LINE 414 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_shadowing _lhsIconfig) || isNothing _shadowWarning then id else
(:) . fromMaybe (error "fromMaybe ANFor +warnings") $ _shadowWarning
{-# LINE 11342 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f2 ->
(case (({-# LINE 414 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_emptyBlocks _lhsIconfig) || _bodyIstatementCount > 0 then id else
(:) $ warn _lhsImtokenPos EmptyFor
{-# LINE 11348 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 414 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2]
{-# LINE 11353 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Stat_ANFor_1)) of
{ ( sem_Stat_1) ->
( _lhsOcopy,sem_Stat_1) }) }) }) }) }) }) }) })
sem_Stat_AGFor :: ([MToken]) ->
T_MExprList ->
T_Block ->
T_Stat
sem_Stat_AGFor vars_ vals_ body_ =
(case (body_) of
{ ( _bodyIcopy,body_1) ->
(case (vals_) of
{ ( _valsIcopy,vals_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AGFor vars_ _valsIcopy _bodyIcopy
{-# LINE 11371 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 11376 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Stat_AGFor_1 :: T_Stat_1
sem_Stat_AGFor_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 11393 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 11398 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valsOisInModule ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 11403 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valsOvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 11408 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valsOscopes ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 11413 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valsOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 11418 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valsOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 11423 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valsOloopLevel ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 11428 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valsOisMeta ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 11433 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valsOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 11438 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valsOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 11443 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valsOconfig ->
(case (({-# LINE 419 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 11448 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valsOtopLevel ->
(case (({-# LINE 418 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 11453 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _valsOinParentheses ->
(case (vals_1 _valsOconfig _valsOfuncName _valsOglobalDefinitions _valsOinParentheses _valsOisInModule _valsOisMeta _valsOloopLevel _valsOmtokenPos _valsOscopeLevel _valsOscopes _valsOtopLevel _valsOvariableStyle) of
{ ( _valsIglobalDefinitions,_valsIidentifier,_valsIisInModule,_valsImtokenPos,_valsIscopes,_valsIvariableStyle,_valsIwarnings) ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valsIisInModule
{-# LINE 11460 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valsIglobalDefinitions
{-# LINE 11465 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 11470 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOconfig ->
(case (({-# LINE 423 "src/GLuaFixer/AG/ASTLint.ag" #-}
M.fromList $ map (\mt -> (tokenLabel mt, (not (lint_unusedLoopVars _lhsIconfig), mpos mt))) vars_
{-# LINE 11475 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _introduces ->
(case (({-# LINE 424 "src/GLuaFixer/AG/ASTLint.ag" #-}
_introduces : _valsIscopes
{-# LINE 11480 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valsIvariableStyle
{-# LINE 11485 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 11490 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valsImtokenPos
{-# LINE 11495 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOmtokenPos ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 11500 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOfuncName ->
(case (({-# LINE 421 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 11505 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisRepeat ->
(case (({-# LINE 420 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel + 1
{-# LINE 11510 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOloopLevel ->
(case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of
{ ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIglobalDefinitions
{-# LINE 11517 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _valsIidentifier _bodyIidentifier)
{-# LINE 11522 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 417 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 11527 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisIfStatement ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIisInModule
{-# LINE 11532 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyImtokenPos
{-# LINE 11537 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIscopes
{-# LINE 11542 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIvariableStyle
{-# LINE 11547 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 427 "src/GLuaFixer/AG/ASTLint.ag" #-}
_valsIwarnings ++ _bodyIwarnings
{-# LINE 11552 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 427 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_shadowing _lhsIconfig) then id else
(++) . catMaybes . map (checkShadows _lhsIscopes) $ vars_
{-# LINE 11558 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f2 ->
(case (({-# LINE 427 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_emptyBlocks _lhsIconfig) || _bodyIstatementCount > 0 then id else
(:) $ warn _lhsImtokenPos EmptyFor
{-# LINE 11564 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 427 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2]
{-# LINE 11569 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Stat_AGFor_1)) of
{ ( sem_Stat_1) ->
( _lhsOcopy,sem_Stat_1) }) }) }) }) })
sem_Stat_AFunc :: T_FuncName ->
([MToken]) ->
T_Block ->
T_Stat
sem_Stat_AFunc name_ args_ body_ =
(case (body_) of
{ ( _bodyIcopy,body_1) ->
(case (name_) of
{ ( _nameIcopy,_nameIisMeta,name_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AFunc _nameIcopy args_ _bodyIcopy
{-# LINE 11587 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 11592 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Stat_AFunc_1 :: T_Stat_1
sem_Stat_AFunc_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 11609 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOisInModule ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 11614 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 11619 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOscopes ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 11624 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 11629 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 11634 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOloopLevel ->
(case (({-# LINE 442 "src/GLuaFixer/AG/ASTLint.ag" #-}
_nameIisMeta || findSelf args_ || _lhsIisMeta
{-# LINE 11639 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _isMeta ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_isMeta
{-# LINE 11644 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOisMeta ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 11649 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 11654 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 11659 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOconfig ->
(case (name_1 _nameOconfig _nameOfuncName _nameOglobalDefinitions _nameOisInModule _nameOisMeta _nameOloopLevel _nameOmtokenPos _nameOscopeLevel _nameOscopes _nameOvariableStyle) of
{ ( _nameIglobalDefinitions,_nameIhasSuffixes,_nameIidentifier,_nameIisInModule,_nameImtokenPos,_nameIscopes,_nameIvariableStyle,_nameIwarnings) ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_nameIisInModule
{-# LINE 11666 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_nameIglobalDefinitions
{-# LINE 11671 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 11676 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOconfig ->
(case (({-# LINE 443 "src/GLuaFixer/AG/ASTLint.ag" #-}
_isMeta
{-# LINE 11681 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisMeta ->
(case (({-# LINE 431 "src/GLuaFixer/AG/ASTLint.ag" #-}
filter (/= MToken emptyRg VarArg) $ args_
{-# LINE 11686 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argIdentifiers ->
(case (({-# LINE 433 "src/GLuaFixer/AG/ASTLint.ag" #-}
(if _isMeta then M.insert "self" (True, _nameImtokenPos) else id) $
M.fromList . map (\mt -> (tokenLabel mt, (not . lint_unusedParameters $ _lhsIconfig, mpos mt))) $ _argIdentifiers
{-# LINE 11692 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _introduces ->
(case (({-# LINE 435 "src/GLuaFixer/AG/ASTLint.ag" #-}
_introduces : (registerVariable _nameIscopes _nameImtokenPos _nameIidentifier True)
{-# LINE 11697 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_nameIvariableStyle
{-# LINE 11702 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 11707 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_nameImtokenPos
{-# LINE 11712 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 11717 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOloopLevel ->
(case (({-# LINE 444 "src/GLuaFixer/AG/ASTLint.ag" #-}
_nameIidentifier
{-# LINE 11722 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOfuncName ->
(case (({-# LINE 432 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 11727 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisRepeat ->
(case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of
{ ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) ->
(case (({-# LINE 437 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIglobalDefinitions
{-# LINE 11734 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _globalDefinitions_augmented_syn ->
(case (({-# LINE 437 "src/GLuaFixer/AG/ASTLint.ag" #-}
if _lhsIisInModule || isVariableLocal _lhsIscopes _nameIidentifier || _nameIisMeta || _nameIhasSuffixes then id else
M.insertWith (++) _nameIidentifier [_nameImtokenPos]
{-# LINE 11740 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _globalDefinitions_augmented_f1 ->
(case (({-# LINE 437 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _globalDefinitions_augmented_syn [_globalDefinitions_augmented_f1]
{-# LINE 11745 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _nameIidentifier _bodyIidentifier)
{-# LINE 11750 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 430 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 11755 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisIfStatement ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIisInModule
{-# LINE 11760 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyImtokenPos
{-# LINE 11765 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIscopes
{-# LINE 11770 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIvariableStyle
{-# LINE 11775 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 440 "src/GLuaFixer/AG/ASTLint.ag" #-}
_nameIwarnings ++ _bodyIwarnings
{-# LINE 11780 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 440 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_shadowing _lhsIconfig) then id else
(++) . catMaybes . map (checkShadows _lhsIscopes) $ _argIdentifiers
{-# LINE 11786 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 440 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]
{-# LINE 11791 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Stat_AFunc_1)) of
{ ( sem_Stat_1) ->
( _lhsOcopy,sem_Stat_1) }) }) }) }) })
sem_Stat_ALocFunc :: T_FuncName ->
([MToken]) ->
T_Block ->
T_Stat
sem_Stat_ALocFunc name_ args_ body_ =
(case (body_) of
{ ( _bodyIcopy,body_1) ->
(case (name_) of
{ ( _nameIcopy,_nameIisMeta,name_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
ALocFunc _nameIcopy args_ _bodyIcopy
{-# LINE 11809 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 11814 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_Stat_ALocFunc_1 :: T_Stat_1
sem_Stat_ALocFunc_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 11831 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOisInModule ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 11836 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 11841 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOscopes ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 11846 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 11851 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 11856 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOloopLevel ->
(case (({-# LINE 455 "src/GLuaFixer/AG/ASTLint.ag" #-}
findSelf args_ || _lhsIisMeta
{-# LINE 11861 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _isMeta ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_isMeta
{-# LINE 11866 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOisMeta ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 11871 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 11876 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOfuncName ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 11881 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _nameOconfig ->
(case (name_1 _nameOconfig _nameOfuncName _nameOglobalDefinitions _nameOisInModule _nameOisMeta _nameOloopLevel _nameOmtokenPos _nameOscopeLevel _nameOscopes _nameOvariableStyle) of
{ ( _nameIglobalDefinitions,_nameIhasSuffixes,_nameIidentifier,_nameIisInModule,_nameImtokenPos,_nameIscopes,_nameIvariableStyle,_nameIwarnings) ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_nameIisInModule
{-# LINE 11888 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_nameIglobalDefinitions
{-# LINE 11893 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 11898 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOconfig ->
(case (({-# LINE 456 "src/GLuaFixer/AG/ASTLint.ag" #-}
_isMeta
{-# LINE 11903 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisMeta ->
(case (({-# LINE 453 "src/GLuaFixer/AG/ASTLint.ag" #-}
M.insert _nameIidentifier (False, _nameImtokenPos) (head _nameIscopes) : tail _nameIscopes
{-# LINE 11908 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _passedScopes ->
(case (({-# LINE 447 "src/GLuaFixer/AG/ASTLint.ag" #-}
filter (/= MToken emptyRg VarArg) $ args_
{-# LINE 11913 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _argIdentifiers ->
(case (({-# LINE 449 "src/GLuaFixer/AG/ASTLint.ag" #-}
(if _isMeta then M.insert "self" (True, _nameImtokenPos) else id) $
M.fromList . map (\mt -> (tokenLabel mt, (not . lint_unusedParameters $ _lhsIconfig, mpos mt))) $ _argIdentifiers
{-# LINE 11919 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _introduces ->
(case (({-# LINE 454 "src/GLuaFixer/AG/ASTLint.ag" #-}
_introduces : _passedScopes
{-# LINE 11924 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_nameIvariableStyle
{-# LINE 11929 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 11934 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_nameImtokenPos
{-# LINE 11939 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 11944 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOloopLevel ->
(case (({-# LINE 457 "src/GLuaFixer/AG/ASTLint.ag" #-}
_nameIidentifier
{-# LINE 11949 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOfuncName ->
(case (({-# LINE 448 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 11954 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _bodyOisRepeat ->
(case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of
{ ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIglobalDefinitions
{-# LINE 11961 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _nameIidentifier _bodyIidentifier)
{-# LINE 11966 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 446 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 11971 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisIfStatement ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIisInModule
{-# LINE 11976 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyImtokenPos
{-# LINE 11981 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIscopes
{-# LINE 11986 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_bodyIvariableStyle
{-# LINE 11991 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 463 "src/GLuaFixer/AG/ASTLint.ag" #-}
_nameIwarnings ++ _bodyIwarnings
{-# LINE 11996 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_syn ->
(case (({-# LINE 452 "src/GLuaFixer/AG/ASTLint.ag" #-}
MToken _nameImtokenPos (Identifier _nameIidentifier)
{-# LINE 12001 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _funcname ->
(case (({-# LINE 462 "src/GLuaFixer/AG/ASTLint.ag" #-}
checkShadows _lhsIscopes _funcname
{-# LINE 12006 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _funcNameShadows ->
(case (({-# LINE 463 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_shadowing _lhsIconfig) then id else
(++) . catMaybes . map (checkShadows _lhsIscopes) $ _argIdentifiers
{-# LINE 12012 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f2 ->
(case (({-# LINE 463 "src/GLuaFixer/AG/ASTLint.ag" #-}
if not (lint_shadowing _lhsIconfig) || isNothing _funcNameShadows then id else
(:) . fromMaybe (error "fromMaybe ALocFunc +warnings") $ _funcNameShadows
{-# LINE 12018 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _warnings_augmented_f1 ->
(case (({-# LINE 463 "src/GLuaFixer/AG/ASTLint.ag" #-}
foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2]
{-# LINE 12023 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_Stat_ALocFunc_1)) of
{ ( sem_Stat_1) ->
( _lhsOcopy,sem_Stat_1) }) }) }) }) })
-- 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 = ( Token,String,([String -> LintMessage]))
data Inh_Token = Inh_Token {}
data Syn_Token = Syn_Token {copy_Syn_Token :: Token,identifier_Syn_Token :: String,warnings_Syn_Token :: ([String -> LintMessage])}
wrap_Token :: T_Token ->
Inh_Token ->
Syn_Token
wrap_Token sem (Inh_Token) =
(let ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) = sem
in (Syn_Token _lhsOcopy _lhsOidentifier _lhsOwarnings))
sem_Token_Whitespace :: String ->
T_Token
sem_Token_Whitespace space_ =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Whitespace space_
{-# LINE 12175 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12180 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12185 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12190 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_DashComment :: String ->
T_Token
sem_Token_DashComment comment_ =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
DashComment comment_
{-# LINE 12199 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12204 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12209 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12214 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_DashBlockComment :: Int ->
String ->
T_Token
sem_Token_DashBlockComment depth_ comment_ =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
DashBlockComment depth_ comment_
{-# LINE 12224 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12229 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12234 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12239 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_SlashComment :: String ->
T_Token
sem_Token_SlashComment comment_ =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
SlashComment comment_
{-# LINE 12248 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12253 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12258 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12263 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_SlashBlockComment :: String ->
T_Token
sem_Token_SlashBlockComment comment_ =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
SlashBlockComment comment_
{-# LINE 12272 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12277 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12282 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12287 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Semicolon :: T_Token
sem_Token_Semicolon =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Semicolon
{-# LINE 12295 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12300 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12305 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12310 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_TNumber :: String ->
T_Token
sem_Token_TNumber num_ =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
TNumber num_
{-# LINE 12319 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12324 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12329 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12334 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_DQString :: String ->
T_Token
sem_Token_DQString str_ =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
DQString str_
{-# LINE 12343 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12348 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12353 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12358 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_SQString :: String ->
T_Token
sem_Token_SQString str_ =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
SQString str_
{-# LINE 12367 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12372 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12377 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12382 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_MLString :: String ->
T_Token
sem_Token_MLString str_ =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
MLString str_
{-# LINE 12391 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12396 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12401 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12406 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_TTrue :: T_Token
sem_Token_TTrue =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
TTrue
{-# LINE 12414 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12419 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12424 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12429 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_TFalse :: T_Token
sem_Token_TFalse =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
TFalse
{-# LINE 12437 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12442 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12447 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12452 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Nil :: T_Token
sem_Token_Nil =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Nil
{-# LINE 12460 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12465 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12470 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12475 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_VarArg :: T_Token
sem_Token_VarArg =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
VarArg
{-# LINE 12483 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12488 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12493 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12498 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Plus :: T_Token
sem_Token_Plus =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Plus
{-# LINE 12506 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12511 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12516 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12521 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Minus :: T_Token
sem_Token_Minus =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Minus
{-# LINE 12529 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12534 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12539 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12544 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Multiply :: T_Token
sem_Token_Multiply =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Multiply
{-# LINE 12552 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12557 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12562 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12567 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Divide :: T_Token
sem_Token_Divide =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Divide
{-# LINE 12575 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12580 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12585 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12590 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Modulus :: T_Token
sem_Token_Modulus =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Modulus
{-# LINE 12598 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12603 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12608 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12613 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Power :: T_Token
sem_Token_Power =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Power
{-# LINE 12621 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12626 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12631 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12636 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_TEq :: T_Token
sem_Token_TEq =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
TEq
{-# LINE 12644 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12649 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12654 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12659 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_TNEq :: T_Token
sem_Token_TNEq =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
TNEq
{-# LINE 12667 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12672 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12677 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12682 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_TCNEq :: T_Token
sem_Token_TCNEq =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
TCNEq
{-# LINE 12690 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12695 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12700 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12705 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_TLEQ :: T_Token
sem_Token_TLEQ =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
TLEQ
{-# LINE 12713 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12718 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12723 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12728 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_TGEQ :: T_Token
sem_Token_TGEQ =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
TGEQ
{-# LINE 12736 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12741 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12746 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12751 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_TLT :: T_Token
sem_Token_TLT =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
TLT
{-# LINE 12759 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12764 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12769 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12774 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_TGT :: T_Token
sem_Token_TGT =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
TGT
{-# LINE 12782 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12787 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12792 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12797 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Equals :: T_Token
sem_Token_Equals =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Equals
{-# LINE 12805 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12810 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12815 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12820 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Concatenate :: T_Token
sem_Token_Concatenate =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Concatenate
{-# LINE 12828 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12833 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12838 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12843 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Colon :: T_Token
sem_Token_Colon =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Colon
{-# LINE 12851 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12856 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12861 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12866 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Dot :: T_Token
sem_Token_Dot =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Dot
{-# LINE 12874 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12879 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12884 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12889 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Comma :: T_Token
sem_Token_Comma =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Comma
{-# LINE 12897 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12902 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12907 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12912 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Hash :: T_Token
sem_Token_Hash =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Hash
{-# LINE 12920 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12925 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12930 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12935 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Not :: T_Token
sem_Token_Not =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Not
{-# LINE 12943 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12948 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12953 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12958 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_CNot :: T_Token
sem_Token_CNot =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
CNot
{-# LINE 12966 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12971 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12976 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 12981 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_And :: T_Token
sem_Token_And =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
And
{-# LINE 12989 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 12994 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 12999 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13004 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_CAnd :: T_Token
sem_Token_CAnd =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
CAnd
{-# LINE 13012 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13017 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13022 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13027 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Or :: T_Token
sem_Token_Or =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Or
{-# LINE 13035 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13040 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13045 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13050 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_COr :: T_Token
sem_Token_COr =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
COr
{-# LINE 13058 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13063 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13068 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13073 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Function :: T_Token
sem_Token_Function =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Function
{-# LINE 13081 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13086 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13091 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13096 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Local :: T_Token
sem_Token_Local =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Local
{-# LINE 13104 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13109 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13114 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13119 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_If :: T_Token
sem_Token_If =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
If
{-# LINE 13127 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13132 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13137 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13142 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Then :: T_Token
sem_Token_Then =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Then
{-# LINE 13150 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13155 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13160 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13165 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Elseif :: T_Token
sem_Token_Elseif =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Elseif
{-# LINE 13173 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13178 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13183 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13188 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Else :: T_Token
sem_Token_Else =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Else
{-# LINE 13196 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13201 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13206 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13211 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_For :: T_Token
sem_Token_For =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
For
{-# LINE 13219 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13224 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13229 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13234 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_In :: T_Token
sem_Token_In =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
In
{-# LINE 13242 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13247 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13252 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13257 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Do :: T_Token
sem_Token_Do =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Do
{-# LINE 13265 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13270 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13275 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13280 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_While :: T_Token
sem_Token_While =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
While
{-# LINE 13288 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13293 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13298 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13303 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Until :: T_Token
sem_Token_Until =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Until
{-# LINE 13311 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13316 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13321 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13326 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Repeat :: T_Token
sem_Token_Repeat =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Repeat
{-# LINE 13334 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13339 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13344 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13349 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Continue :: T_Token
sem_Token_Continue =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Continue
{-# LINE 13357 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13362 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13367 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13372 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Break :: T_Token
sem_Token_Break =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Break
{-# LINE 13380 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13385 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13390 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13395 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Return :: T_Token
sem_Token_Return =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Return
{-# LINE 13403 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13408 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13413 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13418 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_End :: T_Token
sem_Token_End =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
End
{-# LINE 13426 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13431 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13436 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13441 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_LRound :: T_Token
sem_Token_LRound =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
LRound
{-# LINE 13449 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13454 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13459 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13464 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_RRound :: T_Token
sem_Token_RRound =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
RRound
{-# LINE 13472 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13477 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13482 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13487 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_LCurly :: T_Token
sem_Token_LCurly =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
LCurly
{-# LINE 13495 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13500 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13505 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13510 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_RCurly :: T_Token
sem_Token_RCurly =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
RCurly
{-# LINE 13518 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13523 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13528 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13533 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_LSquare :: T_Token
sem_Token_LSquare =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
LSquare
{-# LINE 13541 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13546 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13551 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13556 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_RSquare :: T_Token
sem_Token_RSquare =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
RSquare
{-# LINE 13564 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13569 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13574 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13579 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Label :: String ->
String ->
String ->
T_Token
sem_Token_Label whitespaceBefore_ lbl_ whitespaceAfter_ =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Label whitespaceBefore_ lbl_ whitespaceAfter_
{-# LINE 13590 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13595 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 221 "src/GLuaFixer/AG/ASTLint.ag" #-}
lbl_
{-# LINE 13600 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13605 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
sem_Token_Identifier :: String ->
T_Token
sem_Token_Identifier ident_ =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
Identifier ident_
{-# LINE 13614 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13619 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case (({-# LINE 223 "src/GLuaFixer/AG/ASTLint.ag" #-}
ident_
{-# LINE 13624 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13629 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) })
-- UnOp --------------------------------------------------------
-- cata
sem_UnOp :: UnOp ->
T_UnOp
sem_UnOp (UnMinus) =
(sem_UnOp_UnMinus)
sem_UnOp (ANot) =
(sem_UnOp_ANot)
sem_UnOp (AHash) =
(sem_UnOp_AHash)
-- semantic domain
type T_UnOp = ( UnOp,T_UnOp_1)
type T_UnOp_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_UnOp = Inh_UnOp {config_Inh_UnOp :: LintSettings,funcName_Inh_UnOp :: String,globalDefinitions_Inh_UnOp :: (M.Map String [Region]),isInModule_Inh_UnOp :: Bool,isMeta_Inh_UnOp :: Bool,loopLevel_Inh_UnOp :: Int,mtokenPos_Inh_UnOp :: Region,scopeLevel_Inh_UnOp :: Int,scopes_Inh_UnOp :: ([M.Map String (Bool, Region)]),variableStyle_Inh_UnOp :: DeterminedVariableStyle}
data Syn_UnOp = Syn_UnOp {copy_Syn_UnOp :: UnOp,globalDefinitions_Syn_UnOp :: (M.Map String [Region]),identifier_Syn_UnOp :: String,isInModule_Syn_UnOp :: Bool,isNegation_Syn_UnOp :: Bool,mtokenPos_Syn_UnOp :: Region,scopes_Syn_UnOp :: ([M.Map String (Bool, Region)]),variableStyle_Syn_UnOp :: DeterminedVariableStyle,warnings_Syn_UnOp :: ([String -> LintMessage])}
wrap_UnOp :: T_UnOp ->
Inh_UnOp ->
Syn_UnOp
wrap_UnOp sem (Inh_UnOp _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisNegation,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_UnOp _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOisNegation _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_UnOp_UnMinus :: T_UnOp
sem_UnOp_UnMinus =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
UnMinus
{-# LINE 13669 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13674 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_UnOp_UnMinus_1 :: T_UnOp_1
sem_UnOp_UnMinus_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 13691 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13696 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 13701 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 653 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 13706 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisNegation ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 13711 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 13716 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 13721 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13726 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisNegation,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }))
in sem_UnOp_UnMinus_1)) of
{ ( sem_UnOp_1) ->
( _lhsOcopy,sem_UnOp_1) }) }) })
sem_UnOp_ANot :: T_UnOp
sem_UnOp_ANot =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
ANot
{-# LINE 13737 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13742 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_UnOp_ANot_1 :: T_UnOp_1
sem_UnOp_ANot_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 13759 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13764 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 13769 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 655 "src/GLuaFixer/AG/ASTLint.ag" #-}
True
{-# LINE 13774 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisNegation ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 13779 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 13784 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 13789 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13794 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisNegation,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }))
in sem_UnOp_ANot_1)) of
{ ( sem_UnOp_1) ->
( _lhsOcopy,sem_UnOp_1) }) }) })
sem_UnOp_AHash :: T_UnOp
sem_UnOp_AHash =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
AHash
{-# LINE 13805 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13810 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_UnOp_AHash_1 :: T_UnOp_1
sem_UnOp_AHash_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 13827 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 13832 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 13837 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 657 "src/GLuaFixer/AG/ASTLint.ag" #-}
False
{-# LINE 13842 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisNegation ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 13847 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 13852 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 13857 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 13862 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisNegation,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }))
in sem_UnOp_AHash_1)) of
{ ( sem_UnOp_1) ->
( _lhsOcopy,sem_UnOp_1) }) }) })
-- VarsList ----------------------------------------------------
-- cata
sem_VarsList :: VarsList ->
T_VarsList
sem_VarsList list =
(Prelude.foldr sem_VarsList_Cons sem_VarsList_Nil (Prelude.map sem_Declaration list))
-- semantic domain
type T_VarsList = ( VarsList,T_VarsList_1)
type T_VarsList_1 = LintSettings ->
String ->
(M.Map String [Region]) ->
Bool ->
Bool ->
Bool ->
Int ->
Region ->
Int ->
([M.Map String (Bool, Region)]) ->
DeterminedVariableStyle ->
( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage]))
data Inh_VarsList = Inh_VarsList {config_Inh_VarsList :: LintSettings,funcName_Inh_VarsList :: String,globalDefinitions_Inh_VarsList :: (M.Map String [Region]),isInModule_Inh_VarsList :: Bool,isMeta_Inh_VarsList :: Bool,localDefinition_Inh_VarsList :: Bool,loopLevel_Inh_VarsList :: Int,mtokenPos_Inh_VarsList :: Region,scopeLevel_Inh_VarsList :: Int,scopes_Inh_VarsList :: ([M.Map String (Bool, Region)]),variableStyle_Inh_VarsList :: DeterminedVariableStyle}
data Syn_VarsList = Syn_VarsList {copy_Syn_VarsList :: VarsList,globalDefinitions_Syn_VarsList :: (M.Map String [Region]),identifier_Syn_VarsList :: String,isInModule_Syn_VarsList :: Bool,mtokenPos_Syn_VarsList :: Region,scopes_Syn_VarsList :: ([M.Map String (Bool, Region)]),variableStyle_Syn_VarsList :: DeterminedVariableStyle,warnings_Syn_VarsList :: ([String -> LintMessage])}
wrap_VarsList :: T_VarsList ->
Inh_VarsList ->
Syn_VarsList
wrap_VarsList sem (Inh_VarsList _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIlocalDefinition _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) =
(let ( _lhsOcopy,sem_1) = sem
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIlocalDefinition _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle
in (Syn_VarsList _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings))
sem_VarsList_Cons :: T_Declaration ->
T_VarsList ->
T_VarsList
sem_VarsList_Cons hd_ tl_ =
(case (tl_) of
{ ( _tlIcopy,tl_1) ->
(case (hd_) of
{ ( _hdIcopy,hd_1) ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
(:) _hdIcopy _tlIcopy
{-# LINE 13908 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 13913 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_VarsList_Cons_1 :: T_VarsList_1
sem_VarsList_Cons_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIlocalDefinition
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 13931 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOscopes ->
(case (({-# LINE 190 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIlocalDefinition
{-# LINE 13936 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOlocalDefinition ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 13941 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOisMeta ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 13946 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 13951 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 13956 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 13961 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 13966 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOloopLevel ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 13971 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 13976 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOglobalDefinitions ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 13981 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _hdOfuncName ->
(case (hd_1 _hdOconfig _hdOfuncName _hdOglobalDefinitions _hdOisInModule _hdOisMeta _hdOlocalDefinition _hdOloopLevel _hdOmtokenPos _hdOscopeLevel _hdOscopes _hdOvariableStyle) of
{ ( _hdIglobalDefinitions,_hdIidentifier,_hdIisInModule,_hdImtokenPos,_hdIscopes,_hdIvariableStyle,_hdIwarnings) ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIscopes
{-# LINE 13988 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOscopes ->
(case (({-# LINE 190 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIlocalDefinition
{-# LINE 13993 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOlocalDefinition ->
(case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisMeta
{-# LINE 13998 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOisMeta ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIisInModule
{-# LINE 14003 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOisInModule ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIglobalDefinitions
{-# LINE 14008 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOglobalDefinitions ->
(case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIconfig
{-# LINE 14013 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOconfig ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIvariableStyle
{-# LINE 14018 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOvariableStyle ->
(case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopeLevel
{-# LINE 14023 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOscopeLevel ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdImtokenPos
{-# LINE 14028 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOmtokenPos ->
(case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIloopLevel
{-# LINE 14033 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOloopLevel ->
(case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIfuncName
{-# LINE 14038 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _tlOfuncName ->
(case (tl_1 _tlOconfig _tlOfuncName _tlOglobalDefinitions _tlOisInModule _tlOisMeta _tlOlocalDefinition _tlOloopLevel _tlOmtokenPos _tlOscopeLevel _tlOscopes _tlOvariableStyle) of
{ ( _tlIglobalDefinitions,_tlIidentifier,_tlIisInModule,_tlImtokenPos,_tlIscopes,_tlIvariableStyle,_tlIwarnings) ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIglobalDefinitions
{-# LINE 14045 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
(const _hdIidentifier _tlIidentifier)
{-# LINE 14050 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIisInModule
{-# LINE 14055 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdImtokenPos
{-# LINE 14060 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIscopes
{-# LINE 14065 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_tlIvariableStyle
{-# LINE 14070 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
_hdIwarnings ++ _tlIwarnings
{-# LINE 14075 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
in sem_VarsList_Cons_1)) of
{ ( sem_VarsList_1) ->
( _lhsOcopy,sem_VarsList_1) }) }) }) }) })
sem_VarsList_Nil :: T_VarsList
sem_VarsList_Nil =
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 14086 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _copy ->
(case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}
_copy
{-# LINE 14091 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOcopy ->
(case ((let sem_VarsList_Nil_1 :: T_VarsList_1
sem_VarsList_Nil_1 =
(\ _lhsIconfig
_lhsIfuncName
_lhsIglobalDefinitions
_lhsIisInModule
_lhsIisMeta
_lhsIlocalDefinition
_lhsIloopLevel
_lhsImtokenPos
_lhsIscopeLevel
_lhsIscopes
_lhsIvariableStyle ->
(case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIglobalDefinitions
{-# LINE 14109 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOglobalDefinitions ->
(case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}
unknownIdentifier
{-# LINE 14114 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOidentifier ->
(case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIisInModule
{-# LINE 14119 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOisInModule ->
(case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsImtokenPos
{-# LINE 14124 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOmtokenPos ->
(case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIscopes
{-# LINE 14129 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOscopes ->
(case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}
_lhsIvariableStyle
{-# LINE 14134 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOvariableStyle ->
(case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}
[]
{-# LINE 14139 "src/GLuaFixer/AG/ASTLint.hs" #-}
)) of
{ _lhsOwarnings ->
( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }))
in sem_VarsList_Nil_1)) of
{ ( sem_VarsList_1) ->
( _lhsOcopy,sem_VarsList_1) }) }) })