glualint 1.28.0 → 1.29.0
raw patch · 14 files changed
+29216/−29204 lines, 14 filesdep ~uuagcdep ~uuagc-cabal
Dependency ranges changed: uuagc, uuagc-cabal
Files
- glualint.cabal +14/−12
- src/GLua/AG/AST.hs +20/−22
- src/GLua/AG/PrettyPrint.hs +8759/−8776
- src/GLua/AG/Token.hs +4/−6
- src/GLua/ASTInstances.hs +25/−50
- src/GLua/EncodingOptions.hs +12/−0
- src/GLua/Lexer.hs +17/−17
- src/GLua/ParseError.hs +58/−0
- src/GLua/Parser.hs +36/−43
- src/GLua/Position.hs +16/−14
- src/GLua/TokenTypes.hs +6/−11
- src/GLuaFixer/AG/ASTLint.hs +14136/−14139
- src/GLuaFixer/AG/LexLint.hs +6110/−6112
- src/GLuaFixer/LintMessage.hs +3/−2
glualint.cabal view
@@ -1,6 +1,6 @@ cabal-version: 3.0 name: glualint-version: 1.28.0+version: 1.29.0 synopsis: Attempts to fix your syntax erroring Lua files. description: Linter for Lua, specifically the variant used in Garry's mod.@@ -26,14 +26,14 @@ library default-language: Haskell2010 build-depends:- , aeson >=2 && <3- , base >=4.5 && <5- , bytestring >=0.11 && <1- , containers >=0.6 && <1- , parsec >=3 && <4- , pretty >=1.1 && <1.2- , uuagc >=0.9.40.3 && <0.10- , uuagc-cabal >=1.0.3.0 && <2+ , aeson >=2 && <3+ , base >=4.5 && <5+ , bytestring >=0.11 && <1+ , containers >=0.6 && <1+ , parsec >=3 && <4+ , pretty >=1.1 && <1.2+ , uuagc >=0.9.56 && <0.10+ , uuagc-cabal >=1.3.0.0 && <2 hs-source-dirs: src exposed-modules:@@ -41,8 +41,10 @@ GLua.AG.PrettyPrint GLua.AG.Token GLua.ASTInstances+ GLua.EncodingOptions GLua.Lexer GLua.LineLimitParser+ GLua.ParseError GLua.Parser GLua.Position GLua.TokenTypes@@ -55,11 +57,11 @@ ghc-options: -Wall -fno-warn-unused-do-bind other-extensions:- NoMonomorphismRestriction CPP FlexibleContexts FlexibleInstances MultiParamTypeClasses+ NoMonomorphismRestriction Rank2Types TypeSynonymInstances @@ -111,11 +113,11 @@ autogen-modules: Paths_glualint other-extensions:- NoMonomorphismRestriction CPP FlexibleContexts FlexibleInstances MultiParamTypeClasses+ NoMonomorphismRestriction Rank2Types TypeSynonymInstances @@ -134,5 +136,5 @@ , signal >=0.1 && <0.2 hs-source-dirs: app- ghc-options: -O3 -Wall+ ghc-options: -O2 -Wall default-language: Haskell2010
src/GLua/AG/AST.hs view
@@ -1,30 +1,28 @@ -{-# LANGUAGE DeriveGeneric #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-}--- UUAGC 0.9.53.1 (src/GLua/AG/AST.ag)+-- UUAGC 0.9.56 (src/GLua/AG/AST.ag) module GLua.AG.AST where -{-# LINE 10 "src/GLua/AG/AST.ag" #-}+{-# LINE 9 "src/GLua/AG/AST.ag" #-} import GLua.AG.Token import GLua.Position import GLua.TokenTypes ()-import GHC.Generics import Data.Aeson-{-# LINE 16 "src/GLua/AG/AST.hs" #-}+{-# LINE 14 "src/GLua/AG/AST.hs" #-} -- AReturn ----------------------------------------------------- data AReturn = AReturn (Region) (MExprList) | NoReturn- deriving ( Generic,Show)+ deriving ( Show) -- AST --------------------------------------------------------- data AST = AST (([MToken])) (Block)- deriving ( Generic,Show)+ deriving ( Show) -- Args -------------------------------------------------------- data Args = ListArgs (MExprList) | TableArg (FieldList) | StringArg (MToken)- deriving ( Generic,Show)+ deriving ( Show) -- BinOp ------------------------------------------------------- data BinOp = AOr | AAnd@@ -41,10 +39,10 @@ | ADivide | AModulus | APower- deriving ( Eq,Generic,Ord,Show)+ deriving ( Eq,Ord,Show) -- Block ------------------------------------------------------- data Block = Block (Region) (MStatList) (AReturn)- deriving ( Generic,Show)+ deriving ( Show) -- Declaration ------------------------------------------------- type Declaration = ( PrefixExp,MaybeMExpr) -- Else --------------------------------------------------------@@ -65,38 +63,38 @@ | ATableConstructor (FieldList) | BinOpExpr (BinOp) (MExpr) (MExpr) | UnOpExpr (UnOp) (MExpr)- deriving ( Generic,Show)+ deriving ( Show) -- ExprSuffixList ---------------------------------------------- type ExprSuffixList = [PFExprSuffix] -- Field ------------------------------------------------------- data Field = ExprField (MExpr) (MExpr) (FieldSep) | NamedField (MToken) (MExpr) (FieldSep) | UnnamedField (MExpr) (FieldSep)- deriving ( Generic,Show)+ deriving ( Show) -- FieldList --------------------------------------------------- type FieldList = [Field] -- FieldSep ---------------------------------------------------- data FieldSep = CommaSep | SemicolonSep | NoSep- deriving ( Eq,Generic,Show)+ deriving ( Eq,Show) -- FuncName ---------------------------------------------------- data FuncName = FuncName (([MToken])) ((Maybe MToken))- deriving ( Generic,Show)+ deriving ( Show) -- MElse ------------------------------------------------------- data MElse = MElse (Region) (Block)- deriving ( Generic,Show)+ deriving ( Show) -- MElseIf ----------------------------------------------------- data MElseIf = MElseIf (Region) (ElseIf)- deriving ( Generic,Show)+ deriving ( Show) -- MExpr ------------------------------------------------------- data MExpr = MExpr (Region) (Expr)- deriving ( Generic,Show)+ deriving ( Show) -- MExprList --------------------------------------------------- type MExprList = [MExpr] -- MStat ------------------------------------------------------- data MStat = MStat (Region) (Stat)- deriving ( Generic,Show)+ deriving ( Show) -- MStatList --------------------------------------------------- type MStatList = [MStat] -- MaybeMExpr --------------------------------------------------@@ -106,11 +104,11 @@ | MetaCall (MToken) (Args) | ExprIndex (MExpr) | DotIndex (MToken)- deriving ( Generic,Show)+ deriving ( Show) -- PrefixExp --------------------------------------------------- data PrefixExp = PFVar (MToken) (ExprSuffixList) | ExprVar (MExpr) (ExprSuffixList)- deriving ( Generic,Show)+ deriving ( Show) -- Stat -------------------------------------------------------- data Stat = Def (VarsList) | LocDef (VarsList)@@ -127,11 +125,11 @@ | AGFor (([MToken])) (MExprList) (Block) | AFunc (FuncName) (([MToken])) (Block) | ALocFunc (FuncName) (([MToken])) (Block)- deriving ( Generic,Show)+ deriving ( Show) -- UnOp -------------------------------------------------------- data UnOp = UnMinus | ANot | AHash- deriving ( Generic,Show)+ deriving ( Show) -- VarsList ---------------------------------------------------- type VarsList = [Declaration]
src/GLua/AG/PrettyPrint.hs view
@@ -1,8780 +1,8763 @@ -{-# LANGUAGE DeriveGeneric #-}-{-# OPTIONS_GHC -fno-warn-unused-imports #-}--- UUAGC 0.9.53.1 (src/GLua/AG/PrettyPrint.ag)-module GLua.AG.PrettyPrint where--{-# LINE 10 "src/GLua/AG/AST.ag" #-}--import GLua.AG.Token-import GLua.Position-import GLua.TokenTypes ()-import GHC.Generics-import Data.Aeson-{-# LINE 16 "src/GLua/AG/PrettyPrint.hs" #-}--{-# LINE 4 "src/GLua/AG/PrettyPrint.ag" #-}--import Prelude hiding ((<>))-import Data.List (foldl', isInfixOf)-import GLua.AG.AST-import GLua.Position-import Text.PrettyPrint hiding (parens, brackets, braces)-import GLua.TokenTypes-import Data.Maybe-import Text.Parsec-import Text.Parsec.Error-import Debug.Trace-{-# LINE 30 "src/GLua/AG/PrettyPrint.hs" #-}-{-# LINE 19 "src/GLua/AG/PrettyPrint.ag" #-}---tok :: MToken -> Doc-tok (MToken _ t) = zeroWidthText . show $ t--printList :: (a -> Doc) -> String -> [a] -> Doc-printList _ _ [] = empty-printList f sep' (e : es) = (f e) <> g es- where- g [] = empty- g (e' : es') = zeroWidthText sep' <> (f e') <> g es'--data IsEmpty = IsEmpty | NonEmpty--fromEmpty :: IsEmpty -> Bool-fromEmpty IsEmpty = True-fromEmpty NonEmpty = False--toEmpty :: Bool -> IsEmpty-toEmpty b = if b then IsEmpty else NonEmpty--data PrettyPrintConfig = PPConfig {- spaceAfterParens :: Bool,- spaceAfterBrackets :: Bool,- spaceAfterBraces :: Bool,- spaceEmptyParens :: Bool,- spaceEmptyBraces :: Bool,- spaceAfterLabel :: Bool,- spaceBeforeComma :: Bool,- spaceAfterComma :: Bool,- semicolons :: Bool,- cStyle :: Bool,- removeRedundantParens :: Bool,- minimizeParens :: Bool,- assumeOperatorAssociativity :: Bool,- indentation :: String-}--defaultPPConfig :: PrettyPrintConfig-defaultPPConfig = PPConfig {- spaceAfterParens = False,- spaceAfterBrackets = False,- spaceAfterBraces = False,- spaceEmptyParens = False,- spaceEmptyBraces = False,- spaceAfterLabel = False,- spaceBeforeComma = False,- spaceAfterComma = True,- semicolons = False,- cStyle = False,- removeRedundantParens = True,- assumeOperatorAssociativity = True,- minimizeParens = False,- indentation = " "-}--metaDoc :: Maybe MToken -> Doc-metaDoc (Just m) = zchr ':' <> tok m-metaDoc Nothing = empty--printVarList :: [(PrefixExp, Maybe MExpr)] -> Doc-printVarList vars =- printList pp_prefixexp ", " (map fst vars)- <-> zchr '='- <-> printList pp_mexpr ", " (catMaybes . map snd $ vars)--printStats :: [MStat] -> Int -> Doc-printStats [] _ = empty-printStats (x : xs) i = nest (i * 4) (pp_mstat x i) $+$ printStats xs i--printElIfs :: [(MExpr, Block)] -> Int -> Doc-printElIfs [] _ = empty-printElIfs ((e, b) : es) i =- zeroWidthText "elseif"- <-> pp_mexpr e- <-> zeroWidthText "then"- $+$ pp_block b i- $+$ printElIfs es i--printEls :: Maybe Block -> Int -> Doc-printEls Nothing _ = empty-printEls (Just b) i = zeroWidthText "else" $+$ pp_block b i---renderPos :: LineColPos -> String-renderPos (LineColPos l c _) = "line " ++ show (succ l) ++ ", column " ++ show (succ c)--renderRegion :: Region -> String-renderRegion (Region l r) = renderPos l ++ " - " ++ renderPos r--renderSourcePos :: SourcePos -> String-renderSourcePos sp =- "line "- ++ (show . succ . sourceLine $ sp)- ++ ", column "- ++ (show . succ . sourceColumn $ sp)--getMStatPos :: MStat -> String-getMStatPos (MStat p _) = renderRegion p--getAReturnPos :: AReturn -> String-getAReturnPos (AReturn p _) = renderRegion p-getAReturnPos NoReturn = "<unknown>"--getMExprPos :: MExpr -> String-getMExprPos (MExpr p _) = renderRegion p--renderPSError :: ParseError -> String-renderPSError ps =- map replNL- . showErrorMessages- "or"- "unknown parse error"- "expecting"- "unexpected"- "end of input"- . errorMessages- $ ps- where- replNL '\n' = ' '- replNL c = c---- | Render comments on multiple lines-renderMLComments :: PrettyPrintConfig -> Int -> [MToken] -> Doc-renderMLComments conf ind toks =- foldl' ($+$) empty . map (indent conf ind . tok . convertComment conf) $ toks---- | Render comments, and prefer having them on a single line. It may not print comments on the same--- line if that would cause a syntax error (e.g. a multiline comment after a single line comment)-renderSLComments :: PrettyPrintConfig -> Int -> [MToken] -> Doc-renderSLComments conf ind toks = foldl' combine empty . map (convertComment conf) $ toks- where- combine :: Doc -> MToken -> Doc- combine acc mt@(MToken _pos t) =- case t of- -- Block comments after single line comments cannot be printed on the same line, as that- -- would cause a syntax error, e.g. in this case:-- -- foo = { -- single line comment- -- --[[multiline- -- comment- -- ]]- -- }- -- Make sure in these cases the comment is printed on a new line, rather than on the- -- same line- DashBlockComment _depth comment | '\n' `elem` comment ->- acc $+$ (indent conf ind $ tok mt)- SlashBlockComment comment | '\n' `elem` comment ->- acc $+$ (indent conf ind $ tok mt)- _ -> acc <-> tok mt--convertComment :: PrettyPrintConfig -> MToken -> MToken-convertComment conf (MToken p t) = MToken p $ convert' t- where- convert' :: Token -> Token- convert' = if cStyle conf then cComment else luaComment-- luaComment :: Token -> Token- luaComment (SlashComment s) = DashComment s- luaComment (SlashBlockComment s) = DashBlockComment (lastBracket s) s- luaComment t' = t'-- -- converting /*]*/ would end up in --[[]]] when plainly converted- -- Deepen the block comment by 1 if that's the case- lastBracket :: String -> Int- lastBracket [] = 0- lastBracket s = if last s == ']' then 1 else 0-- cComment :: Token -> Token- cComment (DashComment s) = SlashComment s- cComment (DashBlockComment _ s) = SlashBlockComment s- cComment t' = t'--indent :: PrettyPrintConfig -> Int -> Doc -> Doc-indent conf n = (<>) $ zeroWidthText (concat . replicate n $ indentation conf)--parens :: PrettyPrintConfig -> IsEmpty -> Doc -> Doc-parens conf ie doc = zchr '(' `sep'` doc `sep'` zchr ')'- where- sep' :: Doc -> Doc -> Doc- sep' =- if spaceAfterParens conf && (not (fromEmpty ie) || spaceEmptyParens conf)- then (<->)- else (<>)--brackets :: PrettyPrintConfig -> Doc -> Doc-brackets conf doc = zchr '[' `sep'` doc `sep'` zchr ']'- where- sep' :: Doc -> Doc -> Doc- sep' = if spaceAfterBrackets conf then (<->) else (<>)--braces :: PrettyPrintConfig -> IsEmpty -> Doc -> Doc-braces conf ie doc = zchr '{' `sep'` doc `sep'` zchr '}'- where- sep' :: Doc -> Doc -> Doc- sep' =- if spaceAfterBraces conf && (not (fromEmpty ie) || spaceEmptyBraces conf)- then (<->)- else (<>)---- Zero width char-zchr :: Char -> Doc-zchr c = zeroWidthText [c]---- Zero width <+>-infixl 6 <->-(<->) :: Doc -> Doc -> Doc-a <-> b | a == empty = b- | b == empty = a- | otherwise = a <> zchr ' ' <> b---- Operator levels, where level 1 is the lowest level, and level 8 is the highest one--- See http://www.lua.org/manual/5.2/manual.html#3.4.7-data OperatorLevel- -- At the top level, there is no assigned operator level yet. This serves as a bottom value.- = TopLevelExpression- | OperatorLevel1- | OperatorLevel2- | OperatorLevel3- | OperatorLevel4- | OperatorLevel5- | OperatorLevel6- | OperatorLevel7- | OperatorLevel8- deriving (Eq, Ord)---- | Returns true when any of the comments contain the string "format: multiline"-commentsForceMultiline :: [MToken] -> Bool-commentsForceMultiline commentTokens = any containsFormatMultiline commentTokens- where- containsFormatMultiline :: MToken -> Bool- containsFormatMultiline (MToken _pos t) = case t of- DashComment comment -> stringForcesFormat comment- DashBlockComment _ comment -> stringForcesFormat comment- SlashComment comment -> stringForcesFormat comment- SlashBlockComment comment -> stringForcesFormat comment- _ -> False-- stringForcesFormat :: String -> Bool- stringForcesFormat s = "format: multiline" `isInfixOf` s--{-# LINE 273 "src/GLua/AG/PrettyPrint.hs" #-}--{-# LINE 1227 "src/GLua/AG/PrettyPrint.ag" #-}---pp_block :: Block -> Int -> Doc-pp_block p i = pretty_Syn_Block (wrap_Block (sem_Block p) (emptyInh_Block {indent_Inh_Block = i}))--pp_mstat :: MStat -> Int -> Doc-pp_mstat p i = pretty_Syn_MStat (wrap_MStat (sem_MStat p) emptyInh_MStat {indent_Inh_MStat = i})--pp_prefixexp :: PrefixExp -> Doc-pp_prefixexp p = pretty_Syn_PrefixExp (wrap_PrefixExp (sem_PrefixExp p) emptyInh_PrefixExp)--pp_pfexprsuffix :: PFExprSuffix -> Doc-pp_pfexprsuffix p =- pretty_Syn_PFExprSuffix (wrap_PFExprSuffix (sem_PFExprSuffix p) emptyInh_PFExprSuffix)--pp_field :: Field -> Doc-pp_field p = pretty_Syn_Field (wrap_Field (sem_Field p) emptyInh_Field)--pp_mexpr :: MExpr -> Doc-pp_mexpr p = pretty_Syn_MExpr (wrap_MExpr (sem_MExpr p) emptyInh_MExpr)--prettyprint :: AST -> String-prettyprint p = render $ pretty_Syn_AST (wrap_AST (sem_AST p) emptyInh_AST)--prettyprintConf :: PrettyPrintConfig -> AST -> String-prettyprintConf conf p =- render $ pretty_Syn_AST (wrap_AST (sem_AST p) emptyInh_AST {ppconf_Inh_AST = conf})--renderBlock :: Block -> String-renderBlock p = render $ pretty_Syn_Block (wrap_Block (sem_Block p) emptyInh_Block)--renderStat :: Stat -> String-renderStat p = render $ pretty_Syn_Stat (wrap_Stat (sem_Stat p) emptyInh_Stat)--renderMStat :: MStat -> String-renderMStat p = render $ pretty_Syn_MStat (wrap_MStat (sem_MStat p) emptyInh_MStat)--renderAReturn :: AReturn -> String-renderAReturn p = render $ pretty_Syn_AReturn (wrap_AReturn (sem_AReturn p) emptyInh_AReturn)--renderFuncName :: FuncName -> String-renderFuncName p = render $ pretty_Syn_FuncName (wrap_FuncName (sem_FuncName p) emptyInh_FuncName)--renderPrefixExp :: PrefixExp -> String-renderPrefixExp p =- render $ pretty_Syn_PrefixExp (wrap_PrefixExp (sem_PrefixExp p) emptyInh_PrefixExp)--renderExpr :: Expr -> String-renderExpr p = render $ pretty_Syn_Expr (wrap_Expr (sem_Expr p) emptyInh_Expr)--renderMExpr :: MExpr -> String-renderMExpr p = render $ pretty_Syn_MExpr (wrap_MExpr (sem_MExpr p) emptyInh_MExpr)--renderArgs :: Args -> String-renderArgs p = render $ pretty_Syn_Args (wrap_Args (sem_Args p) emptyInh_Args)--renderField :: Field -> String-renderField p = render $ pretty_Syn_Field (wrap_Field (sem_Field p) emptyInh_Field)--emptyInh_Field :: Inh_Field-emptyInh_Field =- Inh_Field- { comments_Inh_Field = []- , forceMultiline_Inh_Field = False- , indent_Inh_Field = 0- , ppconf_Inh_Field = defaultPPConfig- }--emptyInh_Args :: Inh_Args-emptyInh_Args =- Inh_Args- { comments_Inh_Args = []- , forceMultiline_Inh_Args = False- , indent_Inh_Args = 0- , ppconf_Inh_Args = defaultPPConfig- }--emptyInh_MExpr :: Inh_MExpr-emptyInh_MExpr =- Inh_MExpr- { comments_Inh_MExpr = []- , forceMultiline_Inh_MExpr = False- , indent_Inh_MExpr = 0- , parentOperatorAssociative_Inh_MExpr = True- , parentOperatorPrecedence_Inh_MExpr = TopLevelExpression- , ppconf_Inh_MExpr = defaultPPConfig- }--emptyInh_Expr :: Inh_Expr-emptyInh_Expr =- Inh_Expr- { comments_Inh_Expr = []- , forceMultiline_Inh_Expr = False- , indent_Inh_Expr = 0- , parentOperatorAssociative_Inh_Expr = True- , parentOperatorPrecedence_Inh_Expr = TopLevelExpression- , ppconf_Inh_Expr = defaultPPConfig- , statRegion_Inh_Expr = emptyRg- }--emptyInh_PrefixExp :: Inh_PrefixExp-emptyInh_PrefixExp =- Inh_PrefixExp- { comments_Inh_PrefixExp = []- , forceMultiline_Inh_PrefixExp = False- , indent_Inh_PrefixExp = 0- , parentOperatorAssociative_Inh_PrefixExp = True- , parentOperatorPrecedence_Inh_PrefixExp = TopLevelExpression- , ppconf_Inh_PrefixExp = defaultPPConfig- }--emptyInh_FuncName :: Inh_FuncName-emptyInh_FuncName =- Inh_FuncName- { comments_Inh_FuncName = []- , indent_Inh_FuncName = 0- , ppconf_Inh_FuncName = defaultPPConfig- }--emptyInh_AReturn :: Inh_AReturn-emptyInh_AReturn =- Inh_AReturn- { comments_Inh_AReturn = []- , forceMultiline_Inh_AReturn = False- , indent_Inh_AReturn = 0- , ppconf_Inh_AReturn = defaultPPConfig- }--emptyInh_MStat :: Inh_MStat-emptyInh_MStat =- Inh_MStat- { comments_Inh_MStat = []- , forceMultiline_Inh_MStat = False- , indent_Inh_MStat = 0- , isLastStatement_Inh_MStat = False- , ppconf_Inh_MStat = defaultPPConfig- , wouldBeAmbiguousWithoutSemicolon_Inh_MStat = False- }--emptyInh_Stat :: Inh_Stat-emptyInh_Stat =- Inh_Stat- { comments_Inh_Stat = []- , forceMultiline_Inh_Stat = False- , indent_Inh_Stat = 0- , isLastStatement_Inh_Stat = False- , ppconf_Inh_Stat = defaultPPConfig- , statRegion_Inh_Stat = emptyRg- , wouldBeAmbiguousWithoutSemicolon_Inh_Stat = False- }--emptyInh_Block :: Inh_Block-emptyInh_Block =- Inh_Block- { comments_Inh_Block = []- , forceMultiline_Inh_Block = False- , indent_Inh_Block = 0- , ppconf_Inh_Block = defaultPPConfig- , statRegion_Inh_Block = emptyRg- }--emptyInh_AST :: Inh_AST-emptyInh_AST =- Inh_AST- { indent_Inh_AST = 0- , ppconf_Inh_AST = defaultPPConfig- }--emptyInh_PFExprSuffix :: Inh_PFExprSuffix-emptyInh_PFExprSuffix =- Inh_PFExprSuffix- { comments_Inh_PFExprSuffix = []- , forceMultiline_Inh_PFExprSuffix = False- , indent_Inh_PFExprSuffix = 0- , ppconf_Inh_PFExprSuffix = defaultPPConfig- }--{-# LINE 453 "src/GLua/AG/PrettyPrint.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 = ([MToken]) ->- Bool ->- Int ->- PrettyPrintConfig ->- ( ([MToken]),AReturn,Bool,Doc,Int)-data Inh_AReturn = Inh_AReturn {comments_Inh_AReturn :: ([MToken]),forceMultiline_Inh_AReturn :: Bool,indent_Inh_AReturn :: Int,ppconf_Inh_AReturn :: PrettyPrintConfig}-data Syn_AReturn = Syn_AReturn {comments_Syn_AReturn :: ([MToken]),copy_Syn_AReturn :: AReturn,isMultiline_Syn_AReturn :: Bool,pretty_Syn_AReturn :: Doc,statementCount_Syn_AReturn :: Int}-wrap_AReturn :: T_AReturn ->- Inh_AReturn ->- Syn_AReturn-wrap_AReturn sem (Inh_AReturn _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf- in (Syn_AReturn _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty _lhsOstatementCount))-sem_AReturn_AReturn :: Region ->- T_MExprList ->- T_AReturn-sem_AReturn_AReturn pos_ values_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _valuesOcomments :: ([MToken])- _lhsOcomments :: ([MToken])- _valuesOforceMultiline :: Bool- _valuesOsomeElementsInListAreMultiline :: Bool- _lhsOstatementCount :: Int- _lhsOcopy :: AReturn- _valuesOindent :: Int- _valuesOppconf :: PrettyPrintConfig- _valuesIcomments :: ([MToken])- _valuesIcopy :: MExprList- _valuesIisAssociative :: Bool- _valuesIisLast :: Bool- _valuesIisMultiline :: Bool- _valuesIpos :: Region- _valuesIprecedence :: OperatorLevel- _valuesIpretty :: Doc- _valuesIstartsWithNewline :: Bool- _lhsOpretty =- ({-# LINE 884 "src/GLua/AG/PrettyPrint.ag" #-}- renderMLComments _lhsIppconf _lhsIindent (fst _commentsBefore )- $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "return")- `_sep ` _valuesIpretty- <> _semicolon- <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter )- {-# LINE 510 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 890 "src/GLua/AG/PrettyPrint.ag" #-}- _valuesIisMultiline- || not (null $ fst _commentsBefore )- || not (null $ fst _commentsAfter )- {-# LINE 517 "src/GLua/AG/PrettyPrint.hs" #-}- )- _sep =- ({-# LINE 894 "src/GLua/AG/PrettyPrint.ag" #-}- if _valuesIstartsWithNewline then (<>) else (<->)- {-# LINE 522 "src/GLua/AG/PrettyPrint.hs" #-}- )- _semicolon =- ({-# LINE 895 "src/GLua/AG/PrettyPrint.ag" #-}- if semicolons _lhsIppconf then zchr ';' else empty- {-# LINE 527 "src/GLua/AG/PrettyPrint.hs" #-}- )- _commentsBefore =- ({-# LINE 896 "src/GLua/AG/PrettyPrint.ag" #-}- span (\(MToken pos _) -> pos `before` pos_) _lhsIcomments- {-# LINE 532 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valuesOcomments =- ({-# LINE 897 "src/GLua/AG/PrettyPrint.ag" #-}- snd _commentsBefore- {-# LINE 537 "src/GLua/AG/PrettyPrint.hs" #-}- )- _commentsAfter =- ({-# LINE 898 "src/GLua/AG/PrettyPrint.ag" #-}- span (\(MToken pos _) -> pos `beforeOrOnLine` (rgOr _valuesIpos pos_)) _valuesIcomments- {-# LINE 542 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 900 "src/GLua/AG/PrettyPrint.ag" #-}- snd _commentsAfter- {-# LINE 547 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valuesOforceMultiline =- ({-# LINE 904 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 552 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valuesOsomeElementsInListAreMultiline =- ({-# LINE 905 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 557 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstatementCount =- ({-# LINE 906 "src/GLua/AG/PrettyPrint.ag" #-}- 1- {-# LINE 562 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AReturn pos_ _valuesIcopy- {-# LINE 567 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 572 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valuesOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 577 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valuesOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 582 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _valuesIcomments,_valuesIcopy,_valuesIisAssociative,_valuesIisLast,_valuesIisMultiline,_valuesIpos,_valuesIprecedence,_valuesIpretty,_valuesIstartsWithNewline) =- values_ _valuesOcomments _valuesOforceMultiline _valuesOindent _valuesOppconf _valuesOsomeElementsInListAreMultiline- in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty,_lhsOstatementCount)))-sem_AReturn_NoReturn :: T_AReturn-sem_AReturn_NoReturn =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOstatementCount :: Int- _lhsOisMultiline :: Bool- _lhsOcopy :: AReturn- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 908 "src/GLua/AG/PrettyPrint.ag" #-}- empty- {-# LINE 601 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstatementCount =- ({-# LINE 909 "src/GLua/AG/PrettyPrint.ag" #-}- 0- {-# LINE 606 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 910 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 611 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- NoReturn- {-# LINE 616 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 621 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 626 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty,_lhsOstatementCount)))--- AST ------------------------------------------------------------ cata-sem_AST :: AST ->- T_AST-sem_AST (AST _comments _chunk) =- (sem_AST_AST _comments (sem_Block _chunk))--- semantic domain-type T_AST = Int ->- PrettyPrintConfig ->- ( AST,Bool,Doc)-data Inh_AST = Inh_AST {indent_Inh_AST :: Int,ppconf_Inh_AST :: PrettyPrintConfig}-data Syn_AST = Syn_AST {copy_Syn_AST :: AST,isMultiline_Syn_AST :: Bool,pretty_Syn_AST :: Doc}-wrap_AST :: T_AST ->- Inh_AST ->- Syn_AST-wrap_AST sem (Inh_AST _lhsIindent _lhsIppconf) =- (let ( _lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIindent _lhsIppconf- in (Syn_AST _lhsOcopy _lhsOisMultiline _lhsOpretty))-sem_AST_AST :: ([MToken]) ->- T_Block ->- T_AST-sem_AST_AST comments_ chunk_ =- (\ _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _chunkOcomments :: ([MToken])- _chunkOstatRegion :: Region- _chunkOforceMultiline :: Bool- _lhsOcopy :: AST- _chunkOindent :: Int- _chunkOppconf :: PrettyPrintConfig- _chunkIcomments :: ([MToken])- _chunkIcopy :: Block- _chunkIisMultiline :: Bool- _chunkIpos :: Region- _chunkIpretty :: Doc- _chunkIstatementCount :: Int- _lhsOpretty =- ({-# LINE 639 "src/GLua/AG/PrettyPrint.ag" #-}- _chunkIpretty $+$ _prettyComments- {-# LINE 670 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 640 "src/GLua/AG/PrettyPrint.ag" #-}- _chunkIisMultiline- {-# LINE 675 "src/GLua/AG/PrettyPrint.hs" #-}- )- _prettyComments =- ({-# LINE 641 "src/GLua/AG/PrettyPrint.ag" #-}- renderMLComments _lhsIppconf _lhsIindent _chunkIcomments- {-# LINE 680 "src/GLua/AG/PrettyPrint.hs" #-}- )- _chunkOcomments =- ({-# LINE 642 "src/GLua/AG/PrettyPrint.ag" #-}- comments_- {-# LINE 685 "src/GLua/AG/PrettyPrint.hs" #-}- )- _chunkOstatRegion =- ({-# LINE 643 "src/GLua/AG/PrettyPrint.ag" #-}- emptyRg- {-# LINE 690 "src/GLua/AG/PrettyPrint.hs" #-}- )- _chunkOforceMultiline =- ({-# LINE 644 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 695 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AST comments_ _chunkIcopy- {-# LINE 700 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 705 "src/GLua/AG/PrettyPrint.hs" #-}- )- _chunkOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 710 "src/GLua/AG/PrettyPrint.hs" #-}- )- _chunkOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 715 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _chunkIcomments,_chunkIcopy,_chunkIisMultiline,_chunkIpos,_chunkIpretty,_chunkIstatementCount) =- chunk_ _chunkOcomments _chunkOforceMultiline _chunkOindent _chunkOppconf _chunkOstatRegion- in ( _lhsOcopy,_lhsOisMultiline,_lhsOpretty)))--- 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 _arg)--- semantic domain-type T_Args = ([MToken]) ->- Bool ->- Int ->- PrettyPrintConfig ->- ( ([MToken]),Args,Bool,Doc)-data Inh_Args = Inh_Args {comments_Inh_Args :: ([MToken]),forceMultiline_Inh_Args :: Bool,indent_Inh_Args :: Int,ppconf_Inh_Args :: PrettyPrintConfig}-data Syn_Args = Syn_Args {comments_Syn_Args :: ([MToken]),copy_Syn_Args :: Args,isMultiline_Syn_Args :: Bool,pretty_Syn_Args :: Doc}-wrap_Args :: T_Args ->- Inh_Args ->- Syn_Args-wrap_Args sem (Inh_Args _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf- in (Syn_Args _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty))-sem_Args_ListArgs :: T_MExprList ->- T_Args-sem_Args_ListArgs args_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _argsOindent :: Int- _argsOsomeElementsInListAreMultiline :: Bool- _lhsOcopy :: Args- _lhsOcomments :: ([MToken])- _argsOcomments :: ([MToken])- _argsOforceMultiline :: Bool- _argsOppconf :: PrettyPrintConfig- _argsIcomments :: ([MToken])- _argsIcopy :: MExprList- _argsIisAssociative :: Bool- _argsIisLast :: Bool- _argsIisMultiline :: Bool- _argsIpos :: Region- _argsIprecedence :: OperatorLevel- _argsIpretty :: Doc- _argsIstartsWithNewline :: Bool- _lhsOpretty =- ({-# LINE 1083 "src/GLua/AG/PrettyPrint.ag" #-}- if _lhsIforceMultiline then- zchr '(' $+$- _argsIpretty $+$- indent _lhsIppconf _lhsIindent (zchr ')')- else- parens _lhsIppconf _emptyParams _argsIpretty- {-# LINE 777 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1090 "src/GLua/AG/PrettyPrint.ag" #-}- _argsIisMultiline- {-# LINE 782 "src/GLua/AG/PrettyPrint.hs" #-}- )- _emptyParams =- ({-# LINE 1091 "src/GLua/AG/PrettyPrint.ag" #-}- toEmpty $ null _argsIcopy- {-# LINE 787 "src/GLua/AG/PrettyPrint.hs" #-}- )- _argsOindent =- ({-# LINE 1092 "src/GLua/AG/PrettyPrint.ag" #-}- if _lhsIforceMultiline then _lhsIindent + 1 else _lhsIindent- {-# LINE 792 "src/GLua/AG/PrettyPrint.hs" #-}- )- _argsOsomeElementsInListAreMultiline =- ({-# LINE 1093 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 797 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- ListArgs _argsIcopy- {-# LINE 802 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 807 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _argsIcomments- {-# LINE 812 "src/GLua/AG/PrettyPrint.hs" #-}- )- _argsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 817 "src/GLua/AG/PrettyPrint.hs" #-}- )- _argsOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 822 "src/GLua/AG/PrettyPrint.hs" #-}- )- _argsOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 827 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _argsIcomments,_argsIcopy,_argsIisAssociative,_argsIisLast,_argsIisMultiline,_argsIpos,_argsIprecedence,_argsIpretty,_argsIstartsWithNewline) =- args_ _argsOcomments _argsOforceMultiline _argsOindent _argsOppconf _argsOsomeElementsInListAreMultiline- in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))-sem_Args_TableArg :: T_FieldList ->- T_Args-sem_Args_TableArg arg_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _argOindent :: Int- _argOsomeElementsInListAreMultiline :: Bool- _lhsOcopy :: Args- _lhsOcomments :: ([MToken])- _argOcomments :: ([MToken])- _argOforceMultiline :: Bool- _argOppconf :: PrettyPrintConfig- _argIcomments :: ([MToken])- _argIcopy :: FieldList- _argIisMultiline :: Bool- _argIisNil :: Bool- _argIpretty :: Doc- _lhsOpretty =- ({-# LINE 1095 "src/GLua/AG/PrettyPrint.ag" #-}- if _argIisMultiline then _prettyMulti else _prettySingle- {-# LINE 856 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1096 "src/GLua/AG/PrettyPrint.ag" #-}- _argIisMultiline- {-# LINE 861 "src/GLua/AG/PrettyPrint.hs" #-}- )- _prettyMulti =- ({-# LINE 1097 "src/GLua/AG/PrettyPrint.ag" #-}- zchr '{' $+$ _argIpretty $+$ indent _lhsIppconf _lhsIindent (zchr '}')- {-# LINE 866 "src/GLua/AG/PrettyPrint.hs" #-}- )- _prettySingle =- ({-# LINE 1098 "src/GLua/AG/PrettyPrint.ag" #-}- braces _lhsIppconf _emptyContents _argIpretty- {-# LINE 871 "src/GLua/AG/PrettyPrint.hs" #-}- )- _emptyContents =- ({-# LINE 1099 "src/GLua/AG/PrettyPrint.ag" #-}- toEmpty $ null _argIcopy- {-# LINE 876 "src/GLua/AG/PrettyPrint.hs" #-}- )- _argOindent =- ({-# LINE 1100 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent + (if _argIisMultiline then 1 else 0)- {-# LINE 881 "src/GLua/AG/PrettyPrint.hs" #-}- )- _argOsomeElementsInListAreMultiline =- ({-# LINE 1101 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 886 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- TableArg _argIcopy- {-# LINE 891 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 896 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _argIcomments- {-# LINE 901 "src/GLua/AG/PrettyPrint.hs" #-}- )- _argOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 906 "src/GLua/AG/PrettyPrint.hs" #-}- )- _argOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 911 "src/GLua/AG/PrettyPrint.hs" #-}- )- _argOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 916 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _argIcomments,_argIcopy,_argIisMultiline,_argIisNil,_argIpretty) =- arg_ _argOcomments _argOforceMultiline _argOindent _argOppconf _argOsomeElementsInListAreMultiline- in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))-sem_Args_StringArg :: MToken ->- T_Args-sem_Args_StringArg arg_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOcopy :: Args- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1103 "src/GLua/AG/PrettyPrint.ag" #-}- tok arg_- {-# LINE 935 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1104 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 940 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- StringArg arg_- {-# LINE 945 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 950 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 955 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))--- 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 = ([MToken]) ->- Int ->- PrettyPrintConfig ->- ( ([MToken]),BinOp,Bool,Bool,OperatorLevel,Doc)-data Inh_BinOp = Inh_BinOp {comments_Inh_BinOp :: ([MToken]),indent_Inh_BinOp :: Int,ppconf_Inh_BinOp :: PrettyPrintConfig}-data Syn_BinOp = Syn_BinOp {comments_Syn_BinOp :: ([MToken]),copy_Syn_BinOp :: BinOp,isAssociative_Syn_BinOp :: Bool,isMultiline_Syn_BinOp :: Bool,precedence_Syn_BinOp :: OperatorLevel,pretty_Syn_BinOp :: Doc}-wrap_BinOp :: T_BinOp ->- Inh_BinOp ->- Syn_BinOp-wrap_BinOp sem (Inh_BinOp _lhsIcomments _lhsIindent _lhsIppconf) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIindent _lhsIppconf- in (Syn_BinOp _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisMultiline _lhsOprecedence _lhsOpretty))-sem_BinOp_AOr :: T_BinOp-sem_BinOp_AOr =- (\ _lhsIcomments- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOisAssociative :: Bool- _lhsOcopy :: BinOp- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1211 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText (if cStyle _lhsIppconf then "||" else "or")- {-# LINE 1019 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1212 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 1024 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 1213 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel1- {-# LINE 1029 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 1214 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 1034 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AOr- {-# LINE 1039 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 1044 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 1049 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_BinOp_AAnd :: T_BinOp-sem_BinOp_AAnd =- (\ _lhsIcomments- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOisAssociative :: Bool- _lhsOcopy :: BinOp- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1206 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText (if cStyle _lhsIppconf then "&&" else "and")- {-# LINE 1066 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1207 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 1071 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 1208 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel2- {-# LINE 1076 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 1209 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 1081 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AAnd- {-# LINE 1086 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 1091 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 1096 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_BinOp_ALT :: T_BinOp-sem_BinOp_ALT =- (\ _lhsIcomments- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOisAssociative :: Bool- _lhsOcopy :: BinOp- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1176 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "<"- {-# LINE 1113 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1177 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 1118 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 1178 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel3- {-# LINE 1123 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 1179 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 1128 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- ALT- {-# LINE 1133 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 1138 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 1143 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_BinOp_AGT :: T_BinOp-sem_BinOp_AGT =- (\ _lhsIcomments- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOisAssociative :: Bool- _lhsOcopy :: BinOp- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1186 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText ">"- {-# LINE 1160 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1187 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 1165 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 1188 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel3- {-# LINE 1170 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 1189 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 1175 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AGT- {-# LINE 1180 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 1185 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 1190 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_BinOp_ALEQ :: T_BinOp-sem_BinOp_ALEQ =- (\ _lhsIcomments- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOisAssociative :: Bool- _lhsOcopy :: BinOp- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1181 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "<="- {-# LINE 1207 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1182 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 1212 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 1183 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel3- {-# LINE 1217 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 1184 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 1222 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- ALEQ- {-# LINE 1227 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 1232 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 1237 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_BinOp_AGEQ :: T_BinOp-sem_BinOp_AGEQ =- (\ _lhsIcomments- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOisAssociative :: Bool- _lhsOcopy :: BinOp- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1191 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText ">="- {-# LINE 1254 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1192 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 1259 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 1193 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel3- {-# LINE 1264 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 1194 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 1269 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AGEQ- {-# LINE 1274 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 1279 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 1284 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_BinOp_ANEq :: T_BinOp-sem_BinOp_ANEq =- (\ _lhsIcomments- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOisAssociative :: Bool- _lhsOcopy :: BinOp- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1201 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText (if cStyle _lhsIppconf then "!=" else "~=")- {-# LINE 1301 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1202 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 1306 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 1203 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel3- {-# LINE 1311 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 1204 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 1316 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- ANEq- {-# LINE 1321 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 1326 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 1331 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_BinOp_AEq :: T_BinOp-sem_BinOp_AEq =- (\ _lhsIcomments- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOisAssociative :: Bool- _lhsOcopy :: BinOp- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1196 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "=="- {-# LINE 1348 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1197 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 1353 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 1198 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel3- {-# LINE 1358 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 1199 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 1363 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AEq- {-# LINE 1368 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 1373 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 1378 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_BinOp_AConcatenate :: T_BinOp-sem_BinOp_AConcatenate =- (\ _lhsIcomments- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOisAssociative :: Bool- _lhsOcopy :: BinOp- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1171 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText ".."- {-# LINE 1395 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1172 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 1400 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 1173 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel4- {-# LINE 1405 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 1174 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 1410 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AConcatenate- {-# LINE 1415 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 1420 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 1425 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_BinOp_APlus :: T_BinOp-sem_BinOp_APlus =- (\ _lhsIcomments- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOisAssociative :: Bool- _lhsOcopy :: BinOp- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1141 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "+"- {-# LINE 1442 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1142 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 1447 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 1143 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel5- {-# LINE 1452 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 1144 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 1457 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- APlus- {-# LINE 1462 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 1467 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 1472 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_BinOp_BinMinus :: T_BinOp-sem_BinOp_BinMinus =- (\ _lhsIcomments- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOisAssociative :: Bool- _lhsOcopy :: BinOp- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1146 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "-"- {-# LINE 1489 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1147 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 1494 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 1148 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel5- {-# LINE 1499 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 1149 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 1504 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- BinMinus- {-# LINE 1509 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 1514 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 1519 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_BinOp_AMultiply :: T_BinOp-sem_BinOp_AMultiply =- (\ _lhsIcomments- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOisAssociative :: Bool- _lhsOcopy :: BinOp- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1151 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "*"- {-# LINE 1536 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1152 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 1541 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 1153 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel6- {-# LINE 1546 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 1154 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 1551 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AMultiply- {-# LINE 1556 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 1561 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 1566 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_BinOp_ADivide :: T_BinOp-sem_BinOp_ADivide =- (\ _lhsIcomments- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOisAssociative :: Bool- _lhsOcopy :: BinOp- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1156 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "/"- {-# LINE 1583 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1157 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 1588 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 1158 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel6- {-# LINE 1593 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 1159 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 1598 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- ADivide- {-# LINE 1603 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 1608 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 1613 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_BinOp_AModulus :: T_BinOp-sem_BinOp_AModulus =- (\ _lhsIcomments- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOisAssociative :: Bool- _lhsOcopy :: BinOp- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1161 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "%"- {-# LINE 1630 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1162 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 1635 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 1163 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel6- {-# LINE 1640 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 1164 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 1645 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AModulus- {-# LINE 1650 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 1655 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 1660 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_BinOp_APower :: T_BinOp-sem_BinOp_APower =- (\ _lhsIcomments- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOisAssociative :: Bool- _lhsOcopy :: BinOp- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1166 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "^"- {-# LINE 1677 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1167 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 1682 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 1168 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel8- {-# LINE 1687 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 1169 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 1692 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- APower- {-# LINE 1697 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 1702 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 1707 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))--- 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 = ([MToken]) ->- Bool ->- Int ->- PrettyPrintConfig ->- Region ->- ( ([MToken]),Block,Bool,Region,Doc,Int)-data Inh_Block = Inh_Block {comments_Inh_Block :: ([MToken]),forceMultiline_Inh_Block :: Bool,indent_Inh_Block :: Int,ppconf_Inh_Block :: PrettyPrintConfig,statRegion_Inh_Block :: Region}-data Syn_Block = Syn_Block {comments_Syn_Block :: ([MToken]),copy_Syn_Block :: Block,isMultiline_Syn_Block :: Bool,pos_Syn_Block :: Region,pretty_Syn_Block :: Doc,statementCount_Syn_Block :: Int}-wrap_Block :: T_Block ->- Inh_Block ->- Syn_Block-wrap_Block sem (Inh_Block _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion- in (Syn_Block _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpos _lhsOpretty _lhsOstatementCount))-sem_Block_Block :: Region ->- T_MStatList ->- T_AReturn ->- T_Block-sem_Block_Block pos_ stats_ ret_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf- _lhsIstatRegion ->- (let _lhsOpretty :: Doc- _lhsOpos :: Region- _lhsOcomments :: ([MToken])- _lhsOstatementCount :: Int- _lhsOcopy :: Block- _lhsOisMultiline :: Bool- _statsOcomments :: ([MToken])- _statsOforceMultiline :: Bool- _statsOindent :: Int- _statsOppconf :: PrettyPrintConfig- _statsOstatRegion :: Region- _retOcomments :: ([MToken])- _retOforceMultiline :: Bool- _retOindent :: Int- _retOppconf :: PrettyPrintConfig- _statsIcomments :: ([MToken])- _statsIcopy :: MStatList- _statsIisLast :: Bool- _statsIisMultiline :: Bool- _statsIpretty :: Doc- _statsIstartsWithExprPrefixExpression :: Bool- _statsIstatementCount :: Int- _retIcomments :: ([MToken])- _retIcopy :: AReturn- _retIisMultiline :: Bool- _retIpretty :: Doc- _retIstatementCount :: Int- _lhsOpretty =- ({-# LINE 648 "src/GLua/AG/PrettyPrint.ag" #-}- if _isMultiline- then _statsIpretty $+$ _retIpretty $+$ _prettyCommentsAfter- else _statsIpretty <-> _retIpretty- {-# LINE 1773 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpos =- ({-# LINE 652 "src/GLua/AG/PrettyPrint.ag" #-}- pos_- {-# LINE 1778 "src/GLua/AG/PrettyPrint.hs" #-}- )- _statementCount =- ({-# LINE 653 "src/GLua/AG/PrettyPrint.ag" #-}- _statsIstatementCount + _retIstatementCount- {-# LINE 1783 "src/GLua/AG/PrettyPrint.hs" #-}- )- _isMultiline =- ({-# LINE 654 "src/GLua/AG/PrettyPrint.ag" #-}- _statsIisMultiline || _retIisMultiline || _statementCount > 1 || not (null $ fst $ _commentsAfter )- {-# LINE 1788 "src/GLua/AG/PrettyPrint.hs" #-}- )- _commentsAfter =- ({-# LINE 655 "src/GLua/AG/PrettyPrint.ag" #-}- span (\(MToken pos _) -> pos `beforeEnd` pos_) _retIcomments- {-# LINE 1793 "src/GLua/AG/PrettyPrint.hs" #-}- )- _prettyCommentsAfter =- ({-# LINE 656 "src/GLua/AG/PrettyPrint.ag" #-}- renderMLComments _lhsIppconf _lhsIindent $ fst _commentsAfter- {-# LINE 1798 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 657 "src/GLua/AG/PrettyPrint.ag" #-}- snd _commentsAfter- {-# LINE 1803 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstatementCount =- ({-# LINE 329 "src/GLua/AG/PrettyPrint.ag" #-}- _statementCount- {-# LINE 1808 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- Block pos_ _statsIcopy _retIcopy- {-# LINE 1813 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 1818 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-}- _isMultiline- {-# LINE 1823 "src/GLua/AG/PrettyPrint.hs" #-}- )- _statsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 1828 "src/GLua/AG/PrettyPrint.hs" #-}- )- _statsOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 1833 "src/GLua/AG/PrettyPrint.hs" #-}- )- _statsOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 1838 "src/GLua/AG/PrettyPrint.hs" #-}- )- _statsOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 1843 "src/GLua/AG/PrettyPrint.hs" #-}- )- _statsOstatRegion =- ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIstatRegion- {-# LINE 1848 "src/GLua/AG/PrettyPrint.hs" #-}- )- _retOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _statsIcomments- {-# LINE 1853 "src/GLua/AG/PrettyPrint.hs" #-}- )- _retOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 1858 "src/GLua/AG/PrettyPrint.hs" #-}- )- _retOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 1863 "src/GLua/AG/PrettyPrint.hs" #-}- )- _retOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 1868 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _statsIcomments,_statsIcopy,_statsIisLast,_statsIisMultiline,_statsIpretty,_statsIstartsWithExprPrefixExpression,_statsIstatementCount) =- stats_ _statsOcomments _statsOforceMultiline _statsOindent _statsOppconf _statsOstatRegion- ( _retIcomments,_retIcopy,_retIisMultiline,_retIpretty,_retIstatementCount) =- ret_ _retOcomments _retOforceMultiline _retOindent _retOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty,_lhsOstatementCount)))--- 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 = ([MToken]) ->- Bool ->- Int ->- PrettyPrintConfig ->- ( ([MToken]),Declaration,Bool,Doc,Bool,Bool,Doc,Bool,Doc)-data Inh_Declaration = Inh_Declaration {comments_Inh_Declaration :: ([MToken]),forceMultiline_Inh_Declaration :: Bool,indent_Inh_Declaration :: Int,ppconf_Inh_Declaration :: PrettyPrintConfig}-data Syn_Declaration = Syn_Declaration {comments_Syn_Declaration :: ([MToken]),copy_Syn_Declaration :: Declaration,endsWithPrefixExpression_Syn_Declaration :: Bool,exprPretty_Syn_Declaration :: Doc,isDefined_Syn_Declaration :: Bool,isMultiline_Syn_Declaration :: Bool,pretty_Syn_Declaration :: Doc,startsWithExprPrefixExpression_Syn_Declaration :: Bool,varPretty_Syn_Declaration :: Doc}-wrap_Declaration :: T_Declaration ->- Inh_Declaration ->- Syn_Declaration-wrap_Declaration sem (Inh_Declaration _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf- in (Syn_Declaration _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOexprPretty _lhsOisDefined _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOvarPretty))-sem_Declaration_Tuple :: T_PrefixExp ->- T_MaybeMExpr ->- T_Declaration-sem_Declaration_Tuple x1_ x2_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOvarPretty :: Doc- _lhsOexprPretty :: Doc- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _x1OparentOperatorPrecedence :: OperatorLevel- _x1OparentOperatorAssociative :: Bool- _lhsOisDefined :: Bool- _lhsOcopy :: Declaration- _lhsOcomments :: ([MToken])- _lhsOpretty :: Doc- _x1Ocomments :: ([MToken])- _x1OforceMultiline :: Bool- _x1Oindent :: Int- _x1Oppconf :: PrettyPrintConfig- _x2Ocomments :: ([MToken])- _x2OforceMultiline :: Bool- _x2Oindent :: Int- _x2Oppconf :: PrettyPrintConfig- _x1Icomments :: ([MToken])- _x1Icopy :: PrefixExp- _x1IisAssociative :: Bool- _x1IisLiteral :: Bool- _x1IisMultiline :: Bool- _x1Iprecedence :: OperatorLevel- _x1Ipretty :: Doc- _x1IstartsWithExprPrefixExpression :: Bool- _x2Icomments :: ([MToken])- _x2Icopy :: MaybeMExpr- _x2IendsWithPrefixExpression :: Bool- _x2IisAssociative :: Bool- _x2IisDefined :: Bool- _x2IisMultiline :: Bool- _x2Iprecedence :: OperatorLevel- _x2Ipretty :: Doc- _lhsOvarPretty =- ({-# LINE 540 "src/GLua/AG/PrettyPrint.ag" #-}- _x1Ipretty- {-# LINE 1941 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOexprPretty =- ({-# LINE 541 "src/GLua/AG/PrettyPrint.ag" #-}- _x2Ipretty- {-# LINE 1946 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 542 "src/GLua/AG/PrettyPrint.ag" #-}- _x1IstartsWithExprPrefixExpression- {-# LINE 1951 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 543 "src/GLua/AG/PrettyPrint.ag" #-}- _x2IendsWithPrefixExpression- {-# LINE 1956 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 544 "src/GLua/AG/PrettyPrint.ag" #-}- _x1IisMultiline || _x2IisMultiline- {-# LINE 1961 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x1OparentOperatorPrecedence =- ({-# LINE 545 "src/GLua/AG/PrettyPrint.ag" #-}- TopLevelExpression- {-# LINE 1966 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x1OparentOperatorAssociative =- ({-# LINE 546 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 1971 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisDefined =- ({-# LINE 291 "src/GLua/AG/PrettyPrint.ag" #-}- _x2IisDefined- {-# LINE 1976 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- (_x1Icopy,_x2Icopy)- {-# LINE 1981 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 1986 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _x2Icomments- {-# LINE 1991 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpretty =- ({-# LINE 264 "src/GLua/AG/PrettyPrint.ag" #-}- _x2Ipretty- {-# LINE 1996 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x1Ocomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 2001 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x1OforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 2006 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x1Oindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 2011 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x1Oppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 2016 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x2Ocomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _x1Icomments- {-# LINE 2021 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x2OforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 2026 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x2Oindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 2031 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x2Oppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 2036 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _x1Icomments,_x1Icopy,_x1IisAssociative,_x1IisLiteral,_x1IisMultiline,_x1Iprecedence,_x1Ipretty,_x1IstartsWithExprPrefixExpression) =- x1_ _x1Ocomments _x1OforceMultiline _x1Oindent _x1OparentOperatorAssociative _x1OparentOperatorPrecedence _x1Oppconf- ( _x2Icomments,_x2Icopy,_x2IendsWithPrefixExpression,_x2IisAssociative,_x2IisDefined,_x2IisMultiline,_x2Iprecedence,_x2Ipretty) =- x2_ _x2Ocomments _x2OforceMultiline _x2Oindent _x2Oppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty)))--- 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 = ([MToken]) ->- Bool ->- Int ->- PrettyPrintConfig ->- Region ->- ( ([MToken]),Else,Bool,Bool,Region,Doc)-data Inh_Else = Inh_Else {comments_Inh_Else :: ([MToken]),forceMultiline_Inh_Else :: Bool,indent_Inh_Else :: Int,ppconf_Inh_Else :: PrettyPrintConfig,statRegion_Inh_Else :: Region}-data Syn_Else = Syn_Else {comments_Syn_Else :: ([MToken]),copy_Syn_Else :: Else,elsesExist_Syn_Else :: Bool,isMultiline_Syn_Else :: Bool,pos_Syn_Else :: Region,pretty_Syn_Else :: Doc}-wrap_Else :: T_Else ->- Inh_Else ->- Syn_Else-wrap_Else sem (Inh_Else _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion- in (Syn_Else _lhsOcomments _lhsOcopy _lhsOelsesExist _lhsOisMultiline _lhsOpos _lhsOpretty))-sem_Else_Just :: T_MElse ->- T_Else-sem_Else_Just just_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf- _lhsIstatRegion ->- (let _lhsOelsesExist :: Bool- _lhsOisMultiline :: Bool- _lhsOcopy :: Else- _lhsOcomments :: ([MToken])- _lhsOpos :: Region- _lhsOpretty :: Doc- _justOcomments :: ([MToken])- _justOforceMultiline :: Bool- _justOindent :: Int- _justOppconf :: PrettyPrintConfig- _justOstatRegion :: Region- _justIcomments :: ([MToken])- _justIcopy :: MElse- _justIelsesExist :: Bool- _justIisMultiline :: Bool- _justIpos :: Region- _justIpretty :: Doc- _lhsOelsesExist =- ({-# LINE 610 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 2094 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 611 "src/GLua/AG/PrettyPrint.ag" #-}- _justIisMultiline- {-# LINE 2099 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- Just _justIcopy- {-# LINE 2104 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 2109 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _justIcomments- {-# LINE 2114 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpos =- ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}- _justIpos- {-# LINE 2119 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpretty =- ({-# LINE 264 "src/GLua/AG/PrettyPrint.ag" #-}- _justIpretty- {-# LINE 2124 "src/GLua/AG/PrettyPrint.hs" #-}- )- _justOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 2129 "src/GLua/AG/PrettyPrint.hs" #-}- )- _justOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 2134 "src/GLua/AG/PrettyPrint.hs" #-}- )- _justOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 2139 "src/GLua/AG/PrettyPrint.hs" #-}- )- _justOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 2144 "src/GLua/AG/PrettyPrint.hs" #-}- )- _justOstatRegion =- ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIstatRegion- {-# LINE 2149 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _justIcomments,_justIcopy,_justIelsesExist,_justIisMultiline,_justIpos,_justIpretty) =- just_ _justOcomments _justOforceMultiline _justOindent _justOppconf _justOstatRegion- in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))-sem_Else_Nothing :: T_Else-sem_Else_Nothing =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf- _lhsIstatRegion ->- (let _lhsOpretty :: Doc- _lhsOpos :: Region- _lhsOisMultiline :: Bool- _lhsOelsesExist :: Bool- _lhsOcopy :: Else- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 613 "src/GLua/AG/PrettyPrint.ag" #-}- empty- {-# LINE 2170 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpos =- ({-# LINE 614 "src/GLua/AG/PrettyPrint.ag" #-}- emptyRg- {-# LINE 2175 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 615 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2180 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOelsesExist =- ({-# LINE 332 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2185 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- Nothing- {-# LINE 2190 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 2195 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 2200 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))--- 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 = ([MToken]) ->- Bool ->- Int ->- PrettyPrintConfig ->- ( ([MToken]),ElseIf,Bool,Doc)-data Inh_ElseIf = Inh_ElseIf {comments_Inh_ElseIf :: ([MToken]),forceMultiline_Inh_ElseIf :: Bool,indent_Inh_ElseIf :: Int,ppconf_Inh_ElseIf :: PrettyPrintConfig}-data Syn_ElseIf = Syn_ElseIf {comments_Syn_ElseIf :: ([MToken]),copy_Syn_ElseIf :: ElseIf,isMultiline_Syn_ElseIf :: Bool,pretty_Syn_ElseIf :: Doc}-wrap_ElseIf :: T_ElseIf ->- Inh_ElseIf ->- Syn_ElseIf-wrap_ElseIf sem (Inh_ElseIf _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf- in (Syn_ElseIf _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty))-sem_ElseIf_Tuple :: T_MExpr ->- T_Block ->- T_ElseIf-sem_ElseIf_Tuple x1_ x2_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _x2Oindent :: Int- _x2OstatRegion :: Region- _x1OparentOperatorPrecedence :: OperatorLevel- _x1OparentOperatorAssociative :: Bool- _lhsOcopy :: ElseIf- _lhsOcomments :: ([MToken])- _x1Ocomments :: ([MToken])- _x1OforceMultiline :: Bool- _x1Oindent :: Int- _x1Oppconf :: PrettyPrintConfig- _x2Ocomments :: ([MToken])- _x2OforceMultiline :: Bool- _x2Oppconf :: PrettyPrintConfig- _x1Icomments :: ([MToken])- _x1Icopy :: MExpr- _x1IendsWithPrefixExpression :: Bool- _x1IisAssociative :: Bool- _x1IisLiteral :: Bool- _x1IisMultiline :: Bool- _x1Ipos :: Region- _x1Iprecedence :: OperatorLevel- _x1Ipretty :: Doc- _x2Icomments :: ([MToken])- _x2Icopy :: Block- _x2IisMultiline :: Bool- _x2Ipos :: Region- _x2Ipretty :: Doc- _x2IstatementCount :: Int- _lhsOpretty =- ({-# LINE 585 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "elseif" <-> _x1Ipretty <-> zeroWidthText "then" $+$ _x2Ipretty- {-# LINE 2264 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 586 "src/GLua/AG/PrettyPrint.ag" #-}- _x1IisMultiline || _x2IisMultiline- {-# LINE 2269 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x2Oindent =- ({-# LINE 587 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent + 1- {-# LINE 2274 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x2OstatRegion =- ({-# LINE 588 "src/GLua/AG/PrettyPrint.ag" #-}- emptyRg- {-# LINE 2279 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x1OparentOperatorPrecedence =- ({-# LINE 589 "src/GLua/AG/PrettyPrint.ag" #-}- TopLevelExpression- {-# LINE 2284 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x1OparentOperatorAssociative =- ({-# LINE 590 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 2289 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- (_x1Icopy,_x2Icopy)- {-# LINE 2294 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 2299 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _x2Icomments- {-# LINE 2304 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x1Ocomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 2309 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x1OforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 2314 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x1Oindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 2319 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x1Oppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 2324 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x2Ocomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _x1Icomments- {-# LINE 2329 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x2OforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 2334 "src/GLua/AG/PrettyPrint.hs" #-}- )- _x2Oppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 2339 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _x1Icomments,_x1Icopy,_x1IendsWithPrefixExpression,_x1IisAssociative,_x1IisLiteral,_x1IisMultiline,_x1Ipos,_x1Iprecedence,_x1Ipretty) =- x1_ _x1Ocomments _x1OforceMultiline _x1Oindent _x1OparentOperatorAssociative _x1OparentOperatorPrecedence _x1Oppconf- ( _x2Icomments,_x2Icopy,_x2IisMultiline,_x2Ipos,_x2Ipretty,_x2IstatementCount) =- x2_ _x2Ocomments _x2OforceMultiline _x2Oindent _x2Oppconf _x2OstatRegion- in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))--- 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 = ([MToken]) ->- Bool ->- Int ->- PrettyPrintConfig ->- ( ([MToken]),ElseIfList,Bool,Bool,Region,Doc)-data Inh_ElseIfList = Inh_ElseIfList {comments_Inh_ElseIfList :: ([MToken]),forceMultiline_Inh_ElseIfList :: Bool,indent_Inh_ElseIfList :: Int,ppconf_Inh_ElseIfList :: PrettyPrintConfig}-data Syn_ElseIfList = Syn_ElseIfList {comments_Syn_ElseIfList :: ([MToken]),copy_Syn_ElseIfList :: ElseIfList,elsesExist_Syn_ElseIfList :: Bool,isMultiline_Syn_ElseIfList :: Bool,pos_Syn_ElseIfList :: Region,pretty_Syn_ElseIfList :: Doc}-wrap_ElseIfList :: T_ElseIfList ->- Inh_ElseIfList ->- Syn_ElseIfList-wrap_ElseIfList sem (Inh_ElseIfList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf- in (Syn_ElseIfList _lhsOcomments _lhsOcopy _lhsOelsesExist _lhsOisMultiline _lhsOpos _lhsOpretty))-sem_ElseIfList_Cons :: T_MElseIf ->- T_ElseIfList ->- T_ElseIfList-sem_ElseIfList_Cons hd_ tl_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOelsesExist :: Bool- _lhsOpos :: Region- _lhsOisMultiline :: Bool- _lhsOcopy :: ElseIfList- _lhsOcomments :: ([MToken])- _hdOcomments :: ([MToken])- _hdOforceMultiline :: Bool- _hdOindent :: Int- _hdOppconf :: PrettyPrintConfig- _tlOcomments :: ([MToken])- _tlOforceMultiline :: Bool- _tlOindent :: Int- _tlOppconf :: PrettyPrintConfig- _hdIcomments :: ([MToken])- _hdIcopy :: MElseIf- _hdIisMultiline :: Bool- _hdIpos :: Region- _hdIpretty :: Doc- _tlIcomments :: ([MToken])- _tlIcopy :: ElseIfList- _tlIelsesExist :: Bool- _tlIisMultiline :: Bool- _tlIpos :: Region- _tlIpretty :: Doc- _lhsOpretty =- ({-# LINE 599 "src/GLua/AG/PrettyPrint.ag" #-}- indent _lhsIppconf _lhsIindent _hdIpretty $+$ _tlIpretty- {-# LINE 2402 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOelsesExist =- ({-# LINE 600 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 2407 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpos =- ({-# LINE 601 "src/GLua/AG/PrettyPrint.ag" #-}- _hdIpos- {-# LINE 2412 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 602 "src/GLua/AG/PrettyPrint.ag" #-}- _hdIisMultiline || _tlIisMultiline- {-# LINE 2417 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- (:) _hdIcopy _tlIcopy- {-# LINE 2422 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 2427 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _tlIcomments- {-# LINE 2432 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 2437 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 2442 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 2447 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 2452 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _hdIcomments- {-# LINE 2457 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 2462 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 2467 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 2472 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _hdIcomments,_hdIcopy,_hdIisMultiline,_hdIpos,_hdIpretty) =- hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf- ( _tlIcomments,_tlIcopy,_tlIelsesExist,_tlIisMultiline,_tlIpos,_tlIpretty) =- tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))-sem_ElseIfList_Nil :: T_ElseIfList-sem_ElseIfList_Nil =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOpos :: Region- _lhsOisMultiline :: Bool- _lhsOelsesExist :: Bool- _lhsOcopy :: ElseIfList- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 604 "src/GLua/AG/PrettyPrint.ag" #-}- empty- {-# LINE 2494 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpos =- ({-# LINE 605 "src/GLua/AG/PrettyPrint.ag" #-}- emptyRg- {-# LINE 2499 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 606 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2504 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOelsesExist =- ({-# LINE 332 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2509 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- []- {-# LINE 2514 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 2519 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 2524 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))--- 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 _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 = ([MToken]) ->- Bool ->- Int ->- Bool ->- OperatorLevel ->- PrettyPrintConfig ->- Region ->- ( ([MToken]),Expr,Bool,Bool,Bool,Bool,OperatorLevel,Doc)-data Inh_Expr = Inh_Expr {comments_Inh_Expr :: ([MToken]),forceMultiline_Inh_Expr :: Bool,indent_Inh_Expr :: Int,parentOperatorAssociative_Inh_Expr :: Bool,parentOperatorPrecedence_Inh_Expr :: OperatorLevel,ppconf_Inh_Expr :: PrettyPrintConfig,statRegion_Inh_Expr :: Region}-data Syn_Expr = Syn_Expr {comments_Syn_Expr :: ([MToken]),copy_Syn_Expr :: Expr,endsWithPrefixExpression_Syn_Expr :: Bool,isAssociative_Syn_Expr :: Bool,isLiteral_Syn_Expr :: Bool,isMultiline_Syn_Expr :: Bool,precedence_Syn_Expr :: OperatorLevel,pretty_Syn_Expr :: Doc}-wrap_Expr :: T_Expr ->- Inh_Expr ->- Syn_Expr-wrap_Expr sem (Inh_Expr _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf _lhsIstatRegion) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf _lhsIstatRegion- in (Syn_Expr _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisAssociative _lhsOisLiteral _lhsOisMultiline _lhsOprecedence _lhsOpretty))-sem_Expr_ANil :: T_Expr-sem_Expr_ANil =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIparentOperatorAssociative- _lhsIparentOperatorPrecedence- _lhsIppconf- _lhsIstatRegion ->- (let _lhsOpretty :: Doc- _lhsOisLiteral :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _lhsOisAssociative :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: Expr- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1000 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "nil"- {-# LINE 2590 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLiteral =- ({-# LINE 1001 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 2595 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 1002 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2600 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1003 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2605 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2610 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel8- {-# LINE 2615 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- ANil- {-# LINE 2620 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 2625 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 2630 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_Expr_AFalse :: T_Expr-sem_Expr_AFalse =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIparentOperatorAssociative- _lhsIparentOperatorPrecedence- _lhsIppconf- _lhsIstatRegion ->- (let _lhsOpretty :: Doc- _lhsOisLiteral :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _lhsOisAssociative :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: Expr- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1005 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "false"- {-# LINE 2653 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLiteral =- ({-# LINE 1006 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 2658 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 1007 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2663 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1008 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2668 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2673 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel8- {-# LINE 2678 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AFalse- {-# LINE 2683 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 2688 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 2693 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_Expr_ATrue :: T_Expr-sem_Expr_ATrue =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIparentOperatorAssociative- _lhsIparentOperatorPrecedence- _lhsIppconf- _lhsIstatRegion ->- (let _lhsOpretty :: Doc- _lhsOisLiteral :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _lhsOisAssociative :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: Expr- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1010 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "true"- {-# LINE 2716 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLiteral =- ({-# LINE 1011 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 2721 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 1012 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2726 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1013 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2731 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2736 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel8- {-# LINE 2741 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- ATrue- {-# LINE 2746 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 2751 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 2756 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_Expr_ANumber :: String ->- T_Expr-sem_Expr_ANumber num_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIparentOperatorAssociative- _lhsIparentOperatorPrecedence- _lhsIppconf- _lhsIstatRegion ->- (let _lhsOpretty :: Doc- _lhsOisLiteral :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _lhsOisAssociative :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: Expr- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1015 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText num_- {-# LINE 2780 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLiteral =- ({-# LINE 1016 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 2785 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 1017 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2790 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1018 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2795 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2800 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel8- {-# LINE 2805 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- ANumber num_- {-# LINE 2810 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 2815 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 2820 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_Expr_AString :: MToken ->- T_Expr-sem_Expr_AString str_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIparentOperatorAssociative- _lhsIparentOperatorPrecedence- _lhsIppconf- _lhsIstatRegion ->- (let _lhsOpretty :: Doc- _lhsOisLiteral :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _lhsOisAssociative :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: Expr- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1020 "src/GLua/AG/PrettyPrint.ag" #-}- tok str_- {-# LINE 2844 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLiteral =- ({-# LINE 1021 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 2849 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 1022 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2854 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1023 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2859 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2864 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel8- {-# LINE 2869 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AString str_- {-# LINE 2874 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 2879 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 2884 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_Expr_AVarArg :: T_Expr-sem_Expr_AVarArg =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIparentOperatorAssociative- _lhsIparentOperatorPrecedence- _lhsIppconf- _lhsIstatRegion ->- (let _lhsOpretty :: Doc- _lhsOisLiteral :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _lhsOisAssociative :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: Expr- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1025 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "..."- {-# LINE 2907 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLiteral =- ({-# LINE 1026 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 2912 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 1027 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2917 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1028 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2922 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2927 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel8- {-# LINE 2932 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AVarArg- {-# LINE 2937 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 2942 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 2947 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_Expr_AnonymousFunc :: ([MToken]) ->- T_Block ->- T_Expr-sem_Expr_AnonymousFunc pars_ body_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIparentOperatorAssociative- _lhsIparentOperatorPrecedence- _lhsIppconf- _lhsIstatRegion ->- (let _lhsOendsWithPrefixExpression :: Bool- _bodyOindent :: Int- _lhsOpretty :: Doc- _lhsOisAssociative :: Bool- _lhsOisLiteral :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: Expr- _lhsOcomments :: ([MToken])- _lhsOisMultiline :: Bool- _bodyOcomments :: ([MToken])- _bodyOforceMultiline :: Bool- _bodyOppconf :: PrettyPrintConfig- _bodyOstatRegion :: Region- _bodyIcomments :: ([MToken])- _bodyIcopy :: Block- _bodyIisMultiline :: Bool- _bodyIpos :: Region- _bodyIpretty :: Doc- _bodyIstatementCount :: Int- _isMultiline =- ({-# LINE 1030 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline || _bodyIisMultiline- {-# LINE 2983 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 1031 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 2988 "src/GLua/AG/PrettyPrint.hs" #-}- )- _singleLinePretty =- ({-# LINE 1032 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "function"- <> parens _lhsIppconf _emptyParams (printList tok (render _comma ) pars_)- <-> _bodyIpretty- <-> zeroWidthText "end"- {-# LINE 2996 "src/GLua/AG/PrettyPrint.hs" #-}- )- _multilinePretty =- ({-# LINE 1037 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "function"- <> parens _lhsIppconf _emptyParams (printList tok (render _comma ) pars_)- $+$ _bodyIpretty- $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")- {-# LINE 3004 "src/GLua/AG/PrettyPrint.hs" #-}- )- _comma =- ({-# LINE 1042 "src/GLua/AG/PrettyPrint.ag" #-}- (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)- <> zchr ','- <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)- {-# LINE 3011 "src/GLua/AG/PrettyPrint.hs" #-}- )- _emptyParams =- ({-# LINE 1046 "src/GLua/AG/PrettyPrint.ag" #-}- toEmpty $ null pars_- {-# LINE 3016 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOindent =- ({-# LINE 1047 "src/GLua/AG/PrettyPrint.ag" #-}- if _isMultiline then _lhsIindent + 1 else 0- {-# LINE 3021 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpretty =- ({-# LINE 1048 "src/GLua/AG/PrettyPrint.ag" #-}- if _isMultiline then _multilinePretty else _singleLinePretty- {-# LINE 3026 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 3031 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLiteral =- ({-# LINE 278 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 3036 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel8- {-# LINE 3041 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AnonymousFunc pars_ _bodyIcopy- {-# LINE 3046 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 3051 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _bodyIcomments- {-# LINE 3056 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-}- _isMultiline- {-# LINE 3061 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 3066 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 3071 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 3076 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOstatRegion =- ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIstatRegion- {-# LINE 3081 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =- body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_Expr_APrefixExpr :: T_PrefixExp ->- T_Expr-sem_Expr_APrefixExpr pexpr_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIparentOperatorAssociative- _lhsIparentOperatorPrecedence- _lhsIppconf- _lhsIstatRegion ->- (let _lhsOpretty :: Doc- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _lhsOisAssociative :: Bool- _lhsOisLiteral :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: Expr- _lhsOcomments :: ([MToken])- _pexprOcomments :: ([MToken])- _pexprOforceMultiline :: Bool- _pexprOindent :: Int- _pexprOparentOperatorAssociative :: Bool- _pexprOparentOperatorPrecedence :: OperatorLevel- _pexprOppconf :: PrettyPrintConfig- _pexprIcomments :: ([MToken])- _pexprIcopy :: PrefixExp- _pexprIisAssociative :: Bool- _pexprIisLiteral :: Bool- _pexprIisMultiline :: Bool- _pexprIprecedence :: OperatorLevel- _pexprIpretty :: Doc- _pexprIstartsWithExprPrefixExpression :: Bool- _lhsOpretty =- ({-# LINE 1050 "src/GLua/AG/PrettyPrint.ag" #-}- _pexprIpretty- {-# LINE 3121 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 1051 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 3126 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1052 "src/GLua/AG/PrettyPrint.ag" #-}- _pexprIisMultiline- {-# LINE 3131 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- _pexprIisAssociative- {-# LINE 3136 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLiteral =- ({-# LINE 278 "src/GLua/AG/PrettyPrint.ag" #-}- _pexprIisLiteral- {-# LINE 3141 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- _pexprIprecedence- {-# LINE 3146 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- APrefixExpr _pexprIcopy- {-# LINE 3151 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 3156 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _pexprIcomments- {-# LINE 3161 "src/GLua/AG/PrettyPrint.hs" #-}- )- _pexprOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 3166 "src/GLua/AG/PrettyPrint.hs" #-}- )- _pexprOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 3171 "src/GLua/AG/PrettyPrint.hs" #-}- )- _pexprOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 3176 "src/GLua/AG/PrettyPrint.hs" #-}- )- _pexprOparentOperatorAssociative =- ({-# LINE 275 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIparentOperatorAssociative- {-# LINE 3181 "src/GLua/AG/PrettyPrint.hs" #-}- )- _pexprOparentOperatorPrecedence =- ({-# LINE 274 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIparentOperatorPrecedence- {-# LINE 3186 "src/GLua/AG/PrettyPrint.hs" #-}- )- _pexprOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 3191 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _pexprIcomments,_pexprIcopy,_pexprIisAssociative,_pexprIisLiteral,_pexprIisMultiline,_pexprIprecedence,_pexprIpretty,_pexprIstartsWithExprPrefixExpression) =- pexpr_ _pexprOcomments _pexprOforceMultiline _pexprOindent _pexprOparentOperatorAssociative _pexprOparentOperatorPrecedence _pexprOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_Expr_ATableConstructor :: T_FieldList ->- T_Expr-sem_Expr_ATableConstructor fields_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIparentOperatorAssociative- _lhsIparentOperatorPrecedence- _lhsIppconf- _lhsIstatRegion ->- (let _lhsOpretty :: Doc- _lhsOisLiteral :: Bool- _lhsOendsWithPrefixExpression :: Bool- _fieldsOindent :: Int- _fieldsOsomeElementsInListAreMultiline :: Bool- _lhsOisAssociative :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: Expr- _lhsOcomments :: ([MToken])- _lhsOisMultiline :: Bool- _fieldsOcomments :: ([MToken])- _fieldsOforceMultiline :: Bool- _fieldsOppconf :: PrettyPrintConfig- _fieldsIcomments :: ([MToken])- _fieldsIcopy :: FieldList- _fieldsIisMultiline :: Bool- _fieldsIisNil :: Bool- _fieldsIpretty :: Doc- _lhsOpretty =- ({-# LINE 1054 "src/GLua/AG/PrettyPrint.ag" #-}- if _isMultiline then _prettyMulti else _prettySingle- {-# LINE 3227 "src/GLua/AG/PrettyPrint.hs" #-}- )- _isMultiline =- ({-# LINE 1055 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline || _fieldsIisMultiline- {-# LINE 3232 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLiteral =- ({-# LINE 1056 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 3237 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 1057 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 3242 "src/GLua/AG/PrettyPrint.hs" #-}- )- _prettyMulti =- ({-# LINE 1058 "src/GLua/AG/PrettyPrint.ag" #-}- zchr '{' $+$ _fieldsIpretty $+$ indent _lhsIppconf _lhsIindent (zchr '}')- {-# LINE 3247 "src/GLua/AG/PrettyPrint.hs" #-}- )- _prettySingle =- ({-# LINE 1059 "src/GLua/AG/PrettyPrint.ag" #-}- braces _lhsIppconf _emptyContents _fieldsIpretty- {-# LINE 3252 "src/GLua/AG/PrettyPrint.hs" #-}- )- _emptyContents =- ({-# LINE 1060 "src/GLua/AG/PrettyPrint.ag" #-}- toEmpty $ null _fieldsIcopy- {-# LINE 3257 "src/GLua/AG/PrettyPrint.hs" #-}- )- _fieldsOindent =- ({-# LINE 1061 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent + (if _fieldsIisMultiline then 1 else 0)- {-# LINE 3262 "src/GLua/AG/PrettyPrint.hs" #-}- )- _fieldsOsomeElementsInListAreMultiline =- ({-# LINE 1062 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 3267 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 3272 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel8- {-# LINE 3277 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- ATableConstructor _fieldsIcopy- {-# LINE 3282 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 3287 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _fieldsIcomments- {-# LINE 3292 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-}- _isMultiline- {-# LINE 3297 "src/GLua/AG/PrettyPrint.hs" #-}- )- _fieldsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 3302 "src/GLua/AG/PrettyPrint.hs" #-}- )- _fieldsOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 3307 "src/GLua/AG/PrettyPrint.hs" #-}- )- _fieldsOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 3312 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _fieldsIcomments,_fieldsIcopy,_fieldsIisMultiline,_fieldsIisNil,_fieldsIpretty) =- fields_ _fieldsOcomments _fieldsOforceMultiline _fieldsOindent _fieldsOppconf _fieldsOsomeElementsInListAreMultiline- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_Expr_BinOpExpr :: T_BinOp ->- T_MExpr ->- T_MExpr ->- T_Expr-sem_Expr_BinOpExpr op_ left_ right_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIparentOperatorAssociative- _lhsIparentOperatorPrecedence- _lhsIppconf- _lhsIstatRegion ->- (let _lhsOpretty :: Doc- _lhsOendsWithPrefixExpression :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOisMultiline :: Bool- _leftOparentOperatorPrecedence :: OperatorLevel- _rightOparentOperatorPrecedence :: OperatorLevel- _leftOparentOperatorAssociative :: Bool- _rightOparentOperatorAssociative :: Bool- _lhsOisAssociative :: Bool- _lhsOisLiteral :: Bool- _lhsOcopy :: Expr- _lhsOcomments :: ([MToken])- _opOcomments :: ([MToken])- _opOindent :: Int- _opOppconf :: PrettyPrintConfig- _leftOcomments :: ([MToken])- _leftOforceMultiline :: Bool- _leftOindent :: Int- _leftOppconf :: PrettyPrintConfig- _rightOcomments :: ([MToken])- _rightOforceMultiline :: Bool- _rightOindent :: Int- _rightOppconf :: PrettyPrintConfig- _opIcomments :: ([MToken])- _opIcopy :: BinOp- _opIisAssociative :: Bool- _opIisMultiline :: Bool- _opIprecedence :: OperatorLevel- _opIpretty :: Doc- _leftIcomments :: ([MToken])- _leftIcopy :: MExpr- _leftIendsWithPrefixExpression :: Bool- _leftIisAssociative :: Bool- _leftIisLiteral :: Bool- _leftIisMultiline :: Bool- _leftIpos :: Region- _leftIprecedence :: OperatorLevel- _leftIpretty :: Doc- _rightIcomments :: ([MToken])- _rightIcopy :: MExpr- _rightIendsWithPrefixExpression :: Bool- _rightIisAssociative :: Bool- _rightIisLiteral :: Bool- _rightIisMultiline :: Bool- _rightIpos :: Region- _rightIprecedence :: OperatorLevel- _rightIpretty :: Doc- _lhsOpretty =- ({-# LINE 1064 "src/GLua/AG/PrettyPrint.ag" #-}- _leftIpretty <-> _opIpretty <-> _rightIpretty- {-# LINE 3379 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 1065 "src/GLua/AG/PrettyPrint.ag" #-}- _rightIendsWithPrefixExpression- {-# LINE 3384 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 1068 "src/GLua/AG/PrettyPrint.ag" #-}- min _opIprecedence $ min _leftIprecedence _rightIprecedence- {-# LINE 3389 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1069 "src/GLua/AG/PrettyPrint.ag" #-}- _leftIisMultiline || _rightIisMultiline- {-# LINE 3394 "src/GLua/AG/PrettyPrint.hs" #-}- )- _leftOparentOperatorPrecedence =- ({-# LINE 1070 "src/GLua/AG/PrettyPrint.ag" #-}- _opIprecedence- {-# LINE 3399 "src/GLua/AG/PrettyPrint.hs" #-}- )- _rightOparentOperatorPrecedence =- ({-# LINE 1071 "src/GLua/AG/PrettyPrint.ag" #-}- _opIprecedence- {-# LINE 3404 "src/GLua/AG/PrettyPrint.hs" #-}- )- _leftOparentOperatorAssociative =- ({-# LINE 1072 "src/GLua/AG/PrettyPrint.ag" #-}- _opIisAssociative- {-# LINE 3409 "src/GLua/AG/PrettyPrint.hs" #-}- )- _rightOparentOperatorAssociative =- ({-# LINE 1073 "src/GLua/AG/PrettyPrint.ag" #-}- _opIisAssociative- {-# LINE 3414 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- _opIisAssociative && _leftIisAssociative && _rightIisAssociative- {-# LINE 3419 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLiteral =- ({-# LINE 278 "src/GLua/AG/PrettyPrint.ag" #-}- ((\_ _ -> False) _leftIisLiteral _rightIisLiteral)- {-# LINE 3424 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- BinOpExpr _opIcopy _leftIcopy _rightIcopy- {-# LINE 3429 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 3434 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _rightIcomments- {-# LINE 3439 "src/GLua/AG/PrettyPrint.hs" #-}- )- _opOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 3444 "src/GLua/AG/PrettyPrint.hs" #-}- )- _opOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 3449 "src/GLua/AG/PrettyPrint.hs" #-}- )- _opOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 3454 "src/GLua/AG/PrettyPrint.hs" #-}- )- _leftOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _opIcomments- {-# LINE 3459 "src/GLua/AG/PrettyPrint.hs" #-}- )- _leftOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 3464 "src/GLua/AG/PrettyPrint.hs" #-}- )- _leftOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 3469 "src/GLua/AG/PrettyPrint.hs" #-}- )- _leftOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 3474 "src/GLua/AG/PrettyPrint.hs" #-}- )- _rightOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _leftIcomments- {-# LINE 3479 "src/GLua/AG/PrettyPrint.hs" #-}- )- _rightOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 3484 "src/GLua/AG/PrettyPrint.hs" #-}- )- _rightOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 3489 "src/GLua/AG/PrettyPrint.hs" #-}- )- _rightOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 3494 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _opIcomments,_opIcopy,_opIisAssociative,_opIisMultiline,_opIprecedence,_opIpretty) =- op_ _opOcomments _opOindent _opOppconf- ( _leftIcomments,_leftIcopy,_leftIendsWithPrefixExpression,_leftIisAssociative,_leftIisLiteral,_leftIisMultiline,_leftIpos,_leftIprecedence,_leftIpretty) =- left_ _leftOcomments _leftOforceMultiline _leftOindent _leftOparentOperatorAssociative _leftOparentOperatorPrecedence _leftOppconf- ( _rightIcomments,_rightIcopy,_rightIendsWithPrefixExpression,_rightIisAssociative,_rightIisLiteral,_rightIisMultiline,_rightIpos,_rightIprecedence,_rightIpretty) =- right_ _rightOcomments _rightOforceMultiline _rightOindent _rightOparentOperatorAssociative _rightOparentOperatorPrecedence _rightOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_Expr_UnOpExpr :: T_UnOp ->- T_MExpr ->- T_Expr-sem_Expr_UnOpExpr op_ right_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIparentOperatorAssociative- _lhsIparentOperatorPrecedence- _lhsIppconf- _lhsIstatRegion ->- (let _lhsOpretty :: Doc- _lhsOprecedence :: OperatorLevel- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _rightOparentOperatorPrecedence :: OperatorLevel- _lhsOisAssociative :: Bool- _lhsOisLiteral :: Bool- _lhsOcopy :: Expr- _lhsOcomments :: ([MToken])- _opOcomments :: ([MToken])- _opOindent :: Int- _opOppconf :: PrettyPrintConfig- _rightOcomments :: ([MToken])- _rightOforceMultiline :: Bool- _rightOindent :: Int- _rightOparentOperatorAssociative :: Bool- _rightOppconf :: PrettyPrintConfig- _opIcomments :: ([MToken])- _opIcopy :: UnOp- _opIisMultiline :: Bool- _opIpretty :: Doc- _rightIcomments :: ([MToken])- _rightIcopy :: MExpr- _rightIendsWithPrefixExpression :: Bool- _rightIisAssociative :: Bool- _rightIisLiteral :: Bool- _rightIisMultiline :: Bool- _rightIpos :: Region- _rightIprecedence :: OperatorLevel- _rightIpretty :: Doc- _lhsOpretty =- ({-# LINE 1075 "src/GLua/AG/PrettyPrint.ag" #-}- _opIpretty <> _rightIpretty- {-# LINE 3547 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 1076 "src/GLua/AG/PrettyPrint.ag" #-}- min _rightIprecedence OperatorLevel7- {-# LINE 3552 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 1077 "src/GLua/AG/PrettyPrint.ag" #-}- _rightIendsWithPrefixExpression- {-# LINE 3557 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1078 "src/GLua/AG/PrettyPrint.ag" #-}- _opIisMultiline || _rightIisMultiline- {-# LINE 3562 "src/GLua/AG/PrettyPrint.hs" #-}- )- _rightOparentOperatorPrecedence =- ({-# LINE 1079 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel7- {-# LINE 3567 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- _rightIisAssociative- {-# LINE 3572 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLiteral =- ({-# LINE 278 "src/GLua/AG/PrettyPrint.ag" #-}- _rightIisLiteral- {-# LINE 3577 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- UnOpExpr _opIcopy _rightIcopy- {-# LINE 3582 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 3587 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _rightIcomments- {-# LINE 3592 "src/GLua/AG/PrettyPrint.hs" #-}- )- _opOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 3597 "src/GLua/AG/PrettyPrint.hs" #-}- )- _opOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 3602 "src/GLua/AG/PrettyPrint.hs" #-}- )- _opOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 3607 "src/GLua/AG/PrettyPrint.hs" #-}- )- _rightOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _opIcomments- {-# LINE 3612 "src/GLua/AG/PrettyPrint.hs" #-}- )- _rightOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 3617 "src/GLua/AG/PrettyPrint.hs" #-}- )- _rightOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 3622 "src/GLua/AG/PrettyPrint.hs" #-}- )- _rightOparentOperatorAssociative =- ({-# LINE 275 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIparentOperatorAssociative- {-# LINE 3627 "src/GLua/AG/PrettyPrint.hs" #-}- )- _rightOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 3632 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _opIcomments,_opIcopy,_opIisMultiline,_opIpretty) =- op_ _opOcomments _opOindent _opOppconf- ( _rightIcomments,_rightIcopy,_rightIendsWithPrefixExpression,_rightIisAssociative,_rightIisLiteral,_rightIisMultiline,_rightIpos,_rightIprecedence,_rightIpretty) =- right_ _rightOcomments _rightOforceMultiline _rightOindent _rightOparentOperatorAssociative _rightOparentOperatorPrecedence _rightOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))--- 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 = ([MToken]) ->- Bool ->- Int ->- PrettyPrintConfig ->- ( ([MToken]),ExprSuffixList,Bool,Bool,OperatorLevel,Doc)-data Inh_ExprSuffixList = Inh_ExprSuffixList {comments_Inh_ExprSuffixList :: ([MToken]),forceMultiline_Inh_ExprSuffixList :: Bool,indent_Inh_ExprSuffixList :: Int,ppconf_Inh_ExprSuffixList :: PrettyPrintConfig}-data Syn_ExprSuffixList = Syn_ExprSuffixList {comments_Syn_ExprSuffixList :: ([MToken]),copy_Syn_ExprSuffixList :: ExprSuffixList,isAssociative_Syn_ExprSuffixList :: Bool,isMultiline_Syn_ExprSuffixList :: Bool,precedence_Syn_ExprSuffixList :: OperatorLevel,pretty_Syn_ExprSuffixList :: Doc}-wrap_ExprSuffixList :: T_ExprSuffixList ->- Inh_ExprSuffixList ->- Syn_ExprSuffixList-wrap_ExprSuffixList sem (Inh_ExprSuffixList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf- in (Syn_ExprSuffixList _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisMultiline _lhsOprecedence _lhsOpretty))-sem_ExprSuffixList_Cons :: T_PFExprSuffix ->- T_ExprSuffixList ->- T_ExprSuffixList-sem_ExprSuffixList_Cons hd_ tl_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOisAssociative :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: ExprSuffixList- _lhsOcomments :: ([MToken])- _hdOcomments :: ([MToken])- _hdOforceMultiline :: Bool- _hdOindent :: Int- _hdOppconf :: PrettyPrintConfig- _tlOcomments :: ([MToken])- _tlOforceMultiline :: Bool- _tlOindent :: Int- _tlOppconf :: PrettyPrintConfig- _hdIcomments :: ([MToken])- _hdIcopy :: PFExprSuffix- _hdIisAssociative :: Bool- _hdIisMultiline :: Bool- _hdIprecedence :: OperatorLevel- _hdIpretty :: Doc- _tlIcomments :: ([MToken])- _tlIcopy :: ExprSuffixList- _tlIisAssociative :: Bool- _tlIisMultiline :: Bool- _tlIprecedence :: OperatorLevel- _tlIpretty :: Doc- _lhsOpretty =- ({-# LINE 632 "src/GLua/AG/PrettyPrint.ag" #-}- _hdIpretty <> _tlIpretty- {-# LINE 3696 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 633 "src/GLua/AG/PrettyPrint.ag" #-}- _hdIisMultiline || _tlIisMultiline- {-# LINE 3701 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- _hdIisAssociative && _tlIisAssociative- {-# LINE 3706 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- (min _hdIprecedence _tlIprecedence)- {-# LINE 3711 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- (:) _hdIcopy _tlIcopy- {-# LINE 3716 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 3721 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _tlIcomments- {-# LINE 3726 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 3731 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 3736 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 3741 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 3746 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _hdIcomments- {-# LINE 3751 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 3756 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 3761 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 3766 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _hdIcomments,_hdIcopy,_hdIisAssociative,_hdIisMultiline,_hdIprecedence,_hdIpretty) =- hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf- ( _tlIcomments,_tlIcopy,_tlIisAssociative,_tlIisMultiline,_tlIprecedence,_tlIpretty) =- tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_ExprSuffixList_Nil :: T_ExprSuffixList-sem_ExprSuffixList_Nil =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOisAssociative :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: ExprSuffixList- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 635 "src/GLua/AG/PrettyPrint.ag" #-}- empty- {-# LINE 3788 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 636 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 3793 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 3798 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel8- {-# LINE 3803 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- []- {-# LINE 3808 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 3813 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 3818 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))--- 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 _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 = ([MToken]) ->- Bool ->- Int ->- PrettyPrintConfig ->- ( ([MToken]),Field,Bool,Bool,Region,Doc)-data Inh_Field = Inh_Field {comments_Inh_Field :: ([MToken]),forceMultiline_Inh_Field :: Bool,indent_Inh_Field :: Int,ppconf_Inh_Field :: PrettyPrintConfig}-data Syn_Field = Syn_Field {comments_Syn_Field :: ([MToken]),copy_Syn_Field :: Field,isMultiline_Syn_Field :: Bool,isSemiColon_Syn_Field :: Bool,pos_Syn_Field :: Region,pretty_Syn_Field :: Doc}-wrap_Field :: T_Field ->- Inh_Field ->- Syn_Field-wrap_Field sem (Inh_Field _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf- in (Syn_Field _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOisSemiColon _lhsOpos _lhsOpretty))-sem_Field_ExprField :: T_MExpr ->- T_MExpr ->- T_FieldSep ->- T_Field-sem_Field_ExprField key_ value_ sep_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _keyOparentOperatorPrecedence :: OperatorLevel- _keyOparentOperatorAssociative :: Bool- _valueOparentOperatorPrecedence :: OperatorLevel- _valueOparentOperatorAssociative :: Bool- _lhsOisSemiColon :: Bool- _lhsOcopy :: Field- _lhsOcomments :: ([MToken])- _lhsOpos :: Region- _keyOcomments :: ([MToken])- _keyOforceMultiline :: Bool- _keyOindent :: Int- _keyOppconf :: PrettyPrintConfig- _valueOcomments :: ([MToken])- _valueOforceMultiline :: Bool- _valueOindent :: Int- _valueOppconf :: PrettyPrintConfig- _sepOindent :: Int- _sepOppconf :: PrettyPrintConfig- _keyIcomments :: ([MToken])- _keyIcopy :: MExpr- _keyIendsWithPrefixExpression :: Bool- _keyIisAssociative :: Bool- _keyIisLiteral :: Bool- _keyIisMultiline :: Bool- _keyIpos :: Region- _keyIprecedence :: OperatorLevel- _keyIpretty :: Doc- _valueIcomments :: ([MToken])- _valueIcopy :: MExpr- _valueIendsWithPrefixExpression :: Bool- _valueIisAssociative :: Bool- _valueIisLiteral :: Bool- _valueIisMultiline :: Bool- _valueIpos :: Region- _valueIprecedence :: OperatorLevel- _valueIpretty :: Doc- _sepIcopy :: FieldSep- _sepIisMultiline :: Bool- _sepIisSemiColon :: Bool- _sepIpretty :: Doc- _lhsOpretty =- ({-# LINE 1108 "src/GLua/AG/PrettyPrint.ag" #-}- brackets _lhsIppconf _keyIpretty <-> zchr '=' <-> _valueIpretty <> _sepIpretty- {-# LINE 3899 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1109 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 3904 "src/GLua/AG/PrettyPrint.hs" #-}- )- _keyOparentOperatorPrecedence =- ({-# LINE 1110 "src/GLua/AG/PrettyPrint.ag" #-}- TopLevelExpression- {-# LINE 3909 "src/GLua/AG/PrettyPrint.hs" #-}- )- _keyOparentOperatorAssociative =- ({-# LINE 1111 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 3914 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valueOparentOperatorPrecedence =- ({-# LINE 1112 "src/GLua/AG/PrettyPrint.ag" #-}- TopLevelExpression- {-# LINE 3919 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valueOparentOperatorAssociative =- ({-# LINE 1113 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 3924 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisSemiColon =- ({-# LINE 326 "src/GLua/AG/PrettyPrint.ag" #-}- _sepIisSemiColon- {-# LINE 3929 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- ExprField _keyIcopy _valueIcopy _sepIcopy- {-# LINE 3934 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 3939 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _valueIcomments- {-# LINE 3944 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpos =- ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}- _valueIpos- {-# LINE 3949 "src/GLua/AG/PrettyPrint.hs" #-}- )- _keyOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 3954 "src/GLua/AG/PrettyPrint.hs" #-}- )- _keyOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 3959 "src/GLua/AG/PrettyPrint.hs" #-}- )- _keyOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 3964 "src/GLua/AG/PrettyPrint.hs" #-}- )- _keyOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 3969 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valueOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _keyIcomments- {-# LINE 3974 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valueOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 3979 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valueOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 3984 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valueOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 3989 "src/GLua/AG/PrettyPrint.hs" #-}- )- _sepOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 3994 "src/GLua/AG/PrettyPrint.hs" #-}- )- _sepOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 3999 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _keyIcomments,_keyIcopy,_keyIendsWithPrefixExpression,_keyIisAssociative,_keyIisLiteral,_keyIisMultiline,_keyIpos,_keyIprecedence,_keyIpretty) =- key_ _keyOcomments _keyOforceMultiline _keyOindent _keyOparentOperatorAssociative _keyOparentOperatorPrecedence _keyOppconf- ( _valueIcomments,_valueIcopy,_valueIendsWithPrefixExpression,_valueIisAssociative,_valueIisLiteral,_valueIisMultiline,_valueIpos,_valueIprecedence,_valueIpretty) =- value_ _valueOcomments _valueOforceMultiline _valueOindent _valueOparentOperatorAssociative _valueOparentOperatorPrecedence _valueOppconf- ( _sepIcopy,_sepIisMultiline,_sepIisSemiColon,_sepIpretty) =- sep_ _sepOindent _sepOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty)))-sem_Field_NamedField :: MToken ->- T_MExpr ->- T_FieldSep ->- T_Field-sem_Field_NamedField key_ value_ sep_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _valueOparentOperatorPrecedence :: OperatorLevel- _valueOparentOperatorAssociative :: Bool- _lhsOisSemiColon :: Bool- _lhsOcopy :: Field- _lhsOcomments :: ([MToken])- _lhsOpos :: Region- _valueOcomments :: ([MToken])- _valueOforceMultiline :: Bool- _valueOindent :: Int- _valueOppconf :: PrettyPrintConfig- _sepOindent :: Int- _sepOppconf :: PrettyPrintConfig- _valueIcomments :: ([MToken])- _valueIcopy :: MExpr- _valueIendsWithPrefixExpression :: Bool- _valueIisAssociative :: Bool- _valueIisLiteral :: Bool- _valueIisMultiline :: Bool- _valueIpos :: Region- _valueIprecedence :: OperatorLevel- _valueIpretty :: Doc- _sepIcopy :: FieldSep- _sepIisMultiline :: Bool- _sepIisSemiColon :: Bool- _sepIpretty :: Doc- _lhsOpretty =- ({-# LINE 1115 "src/GLua/AG/PrettyPrint.ag" #-}- tok key_ <-> zchr '=' <-> _valueIpretty <> _sepIpretty- {-# LINE 4047 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1116 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 4052 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valueOparentOperatorPrecedence =- ({-# LINE 1117 "src/GLua/AG/PrettyPrint.ag" #-}- TopLevelExpression- {-# LINE 4057 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valueOparentOperatorAssociative =- ({-# LINE 1118 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 4062 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisSemiColon =- ({-# LINE 326 "src/GLua/AG/PrettyPrint.ag" #-}- _sepIisSemiColon- {-# LINE 4067 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- NamedField key_ _valueIcopy _sepIcopy- {-# LINE 4072 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 4077 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _valueIcomments- {-# LINE 4082 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpos =- ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}- _valueIpos- {-# LINE 4087 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valueOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 4092 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valueOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 4097 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valueOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 4102 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valueOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 4107 "src/GLua/AG/PrettyPrint.hs" #-}- )- _sepOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 4112 "src/GLua/AG/PrettyPrint.hs" #-}- )- _sepOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 4117 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _valueIcomments,_valueIcopy,_valueIendsWithPrefixExpression,_valueIisAssociative,_valueIisLiteral,_valueIisMultiline,_valueIpos,_valueIprecedence,_valueIpretty) =- value_ _valueOcomments _valueOforceMultiline _valueOindent _valueOparentOperatorAssociative _valueOparentOperatorPrecedence _valueOppconf- ( _sepIcopy,_sepIisMultiline,_sepIisSemiColon,_sepIpretty) =- sep_ _sepOindent _sepOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty)))-sem_Field_UnnamedField :: T_MExpr ->- T_FieldSep ->- T_Field-sem_Field_UnnamedField value_ sep_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _valueOparentOperatorPrecedence :: OperatorLevel- _valueOparentOperatorAssociative :: Bool- _lhsOisSemiColon :: Bool- _lhsOcopy :: Field- _lhsOcomments :: ([MToken])- _lhsOpos :: Region- _valueOcomments :: ([MToken])- _valueOforceMultiline :: Bool- _valueOindent :: Int- _valueOppconf :: PrettyPrintConfig- _sepOindent :: Int- _sepOppconf :: PrettyPrintConfig- _valueIcomments :: ([MToken])- _valueIcopy :: MExpr- _valueIendsWithPrefixExpression :: Bool- _valueIisAssociative :: Bool- _valueIisLiteral :: Bool- _valueIisMultiline :: Bool- _valueIpos :: Region- _valueIprecedence :: OperatorLevel- _valueIpretty :: Doc- _sepIcopy :: FieldSep- _sepIisMultiline :: Bool- _sepIisSemiColon :: Bool- _sepIpretty :: Doc- _lhsOpretty =- ({-# LINE 1120 "src/GLua/AG/PrettyPrint.ag" #-}- _valueIpretty <> _sepIpretty- {-# LINE 4162 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1121 "src/GLua/AG/PrettyPrint.ag" #-}- _valueIisMultiline || _sepIisMultiline- {-# LINE 4167 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valueOparentOperatorPrecedence =- ({-# LINE 1122 "src/GLua/AG/PrettyPrint.ag" #-}- TopLevelExpression- {-# LINE 4172 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valueOparentOperatorAssociative =- ({-# LINE 1123 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 4177 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisSemiColon =- ({-# LINE 326 "src/GLua/AG/PrettyPrint.ag" #-}- _sepIisSemiColon- {-# LINE 4182 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- UnnamedField _valueIcopy _sepIcopy- {-# LINE 4187 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 4192 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _valueIcomments- {-# LINE 4197 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpos =- ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}- _valueIpos- {-# LINE 4202 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valueOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 4207 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valueOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 4212 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valueOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 4217 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valueOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 4222 "src/GLua/AG/PrettyPrint.hs" #-}- )- _sepOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 4227 "src/GLua/AG/PrettyPrint.hs" #-}- )- _sepOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 4232 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _valueIcomments,_valueIcopy,_valueIendsWithPrefixExpression,_valueIisAssociative,_valueIisLiteral,_valueIisMultiline,_valueIpos,_valueIprecedence,_valueIpretty) =- value_ _valueOcomments _valueOforceMultiline _valueOindent _valueOparentOperatorAssociative _valueOparentOperatorPrecedence _valueOppconf- ( _sepIcopy,_sepIisMultiline,_sepIisSemiColon,_sepIpretty) =- sep_ _sepOindent _sepOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty)))--- 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 = ([MToken]) ->- Bool ->- Int ->- PrettyPrintConfig ->- Bool ->- ( ([MToken]),FieldList,Bool,Bool,Doc)-data Inh_FieldList = Inh_FieldList {comments_Inh_FieldList :: ([MToken]),forceMultiline_Inh_FieldList :: Bool,indent_Inh_FieldList :: Int,ppconf_Inh_FieldList :: PrettyPrintConfig,someElementsInListAreMultiline_Inh_FieldList :: Bool}-data Syn_FieldList = Syn_FieldList {comments_Syn_FieldList :: ([MToken]),copy_Syn_FieldList :: FieldList,isMultiline_Syn_FieldList :: Bool,isNil_Syn_FieldList :: Bool,pretty_Syn_FieldList :: Doc}-wrap_FieldList :: T_FieldList ->- Inh_FieldList ->- Syn_FieldList-wrap_FieldList sem (Inh_FieldList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisNil,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline- in (Syn_FieldList _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOisNil _lhsOpretty))-sem_FieldList_Cons :: T_Field ->- T_FieldList ->- T_FieldList-sem_FieldList_Cons hd_ tl_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf- _lhsIsomeElementsInListAreMultiline ->- (let _lhsOpretty :: Doc- _lhsOisNil :: Bool- _tlOsomeElementsInListAreMultiline :: Bool- _hdOcomments :: ([MToken])- _tlOcomments :: ([MToken])- _lhsOcomments :: ([MToken])- _lhsOcopy :: FieldList- _lhsOisMultiline :: Bool- _hdOforceMultiline :: Bool- _hdOindent :: Int- _hdOppconf :: PrettyPrintConfig- _tlOforceMultiline :: Bool- _tlOindent :: Int- _tlOppconf :: PrettyPrintConfig- _hdIcomments :: ([MToken])- _hdIcopy :: Field- _hdIisMultiline :: Bool- _hdIisSemiColon :: Bool- _hdIpos :: Region- _hdIpretty :: Doc- _tlIcomments :: ([MToken])- _tlIcopy :: FieldList- _tlIisMultiline :: Bool- _tlIisNil :: Bool- _tlIpretty :: Doc- _lhsOpretty =- ({-# LINE 486 "src/GLua/AG/PrettyPrint.ag" #-}- if _isMultiline- then renderMLComments _lhsIppconf _lhsIindent (fst _commentsBefore )- $+$ indent _lhsIppconf _lhsIindent _hdIpretty- <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter )- $+$ _tlIpretty- else _hdIpretty- `_optionalSpaceAfterSep ` _tlIpretty- {-# LINE 4303 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisNil =- ({-# LINE 494 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 4308 "src/GLua/AG/PrettyPrint.hs" #-}- )- _optionalSpaceAfterSep =- ({-# LINE 496 "src/GLua/AG/PrettyPrint.ag" #-}- if spaceAfterComma _lhsIppconf then (<->) else (<>)- {-# LINE 4313 "src/GLua/AG/PrettyPrint.hs" #-}- )- _isMultiline =- ({-# LINE 498 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- || _hdIisMultiline- || _tlIisMultiline- || _lhsIsomeElementsInListAreMultiline- || not (null $ fst _commentsBefore )- || not (null $ fst _commentsAfter )- {-# LINE 4323 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOsomeElementsInListAreMultiline =- ({-# LINE 506 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIsomeElementsInListAreMultiline- || _hdIisMultiline- || not (null $ fst _commentsBefore )- || not (null $ fst _commentsAfter )- {-# LINE 4331 "src/GLua/AG/PrettyPrint.hs" #-}- )- _commentsBefore =- ({-# LINE 512 "src/GLua/AG/PrettyPrint.ag" #-}- span (\(MToken pos _) -> pos `before` _hdIpos) _lhsIcomments- {-# LINE 4336 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOcomments =- ({-# LINE 513 "src/GLua/AG/PrettyPrint.ag" #-}- snd _commentsBefore- {-# LINE 4341 "src/GLua/AG/PrettyPrint.hs" #-}- )- _commentsAfter =- ({-# LINE 514 "src/GLua/AG/PrettyPrint.ag" #-}- span (\(MToken pos _) -> pos `beforeOrOnLine` _hdIpos) _hdIcomments- {-# LINE 4346 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOcomments =- ({-# LINE 516 "src/GLua/AG/PrettyPrint.ag" #-}- snd _commentsAfter- {-# LINE 4351 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 517 "src/GLua/AG/PrettyPrint.ag" #-}- _tlIcomments- {-# LINE 4356 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- (:) _hdIcopy _tlIcopy- {-# LINE 4361 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 4366 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-}- _isMultiline- {-# LINE 4371 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 4376 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 4381 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 4386 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 4391 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 4396 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 4401 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _hdIcomments,_hdIcopy,_hdIisMultiline,_hdIisSemiColon,_hdIpos,_hdIpretty) =- hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf- ( _tlIcomments,_tlIcopy,_tlIisMultiline,_tlIisNil,_tlIpretty) =- tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf _tlOsomeElementsInListAreMultiline- in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisNil,_lhsOpretty)))-sem_FieldList_Nil :: T_FieldList-sem_FieldList_Nil =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf- _lhsIsomeElementsInListAreMultiline ->- (let _lhsOpretty :: Doc- _lhsOisNil :: Bool- _lhsOisMultiline :: Bool- _lhsOcopy :: FieldList- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 520 "src/GLua/AG/PrettyPrint.ag" #-}- empty- {-# LINE 4423 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisNil =- ({-# LINE 521 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 4428 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 522 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 4433 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- []- {-# LINE 4438 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 4443 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 4448 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisNil,_lhsOpretty)))--- 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 = Int ->- PrettyPrintConfig ->- ( FieldSep,Bool,Bool,Doc)-data Inh_FieldSep = Inh_FieldSep {indent_Inh_FieldSep :: Int,ppconf_Inh_FieldSep :: PrettyPrintConfig}-data Syn_FieldSep = Syn_FieldSep {copy_Syn_FieldSep :: FieldSep,isMultiline_Syn_FieldSep :: Bool,isSemiColon_Syn_FieldSep :: Bool,pretty_Syn_FieldSep :: Doc}-wrap_FieldSep :: T_FieldSep ->- Inh_FieldSep ->- Syn_FieldSep-wrap_FieldSep sem (Inh_FieldSep _lhsIindent _lhsIppconf) =- (let ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty) = sem _lhsIindent _lhsIppconf- in (Syn_FieldSep _lhsOcopy _lhsOisMultiline _lhsOisSemiColon _lhsOpretty))-sem_FieldSep_CommaSep :: T_FieldSep-sem_FieldSep_CommaSep =- (\ _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOisSemiColon :: Bool- _lhsOcopy :: FieldSep- _lhsOpretty =- ({-# LINE 1127 "src/GLua/AG/PrettyPrint.ag" #-}- (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) <> zchr ','- {-# LINE 4484 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1128 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 4489 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisSemiColon =- ({-# LINE 326 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 4494 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- CommaSep- {-# LINE 4499 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 4504 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty)))-sem_FieldSep_SemicolonSep :: T_FieldSep-sem_FieldSep_SemicolonSep =- (\ _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisSemiColon :: Bool- _lhsOisMultiline :: Bool- _lhsOcopy :: FieldSep- _lhsOpretty =- ({-# LINE 1130 "src/GLua/AG/PrettyPrint.ag" #-}- (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) <> zchr ';'- {-# LINE 4518 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisSemiColon =- ({-# LINE 1131 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 4523 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1134 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 4528 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- SemicolonSep- {-# LINE 4533 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 4538 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty)))-sem_FieldSep_NoSep :: T_FieldSep-sem_FieldSep_NoSep =- (\ _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOisSemiColon :: Bool- _lhsOcopy :: FieldSep- _lhsOpretty =- ({-# LINE 1136 "src/GLua/AG/PrettyPrint.ag" #-}- empty- {-# LINE 4552 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1137 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 4557 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisSemiColon =- ({-# LINE 326 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 4562 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- NoSep- {-# LINE 4567 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 4572 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty)))--- FuncName ------------------------------------------------------- cata-sem_FuncName :: FuncName ->- T_FuncName-sem_FuncName (FuncName _names _meta) =- (sem_FuncName_FuncName _names _meta)--- semantic domain-type T_FuncName = ([MToken]) ->- Int ->- PrettyPrintConfig ->- ( ([MToken]),FuncName,Bool,Region,Doc)-data Inh_FuncName = Inh_FuncName {comments_Inh_FuncName :: ([MToken]),indent_Inh_FuncName :: Int,ppconf_Inh_FuncName :: PrettyPrintConfig}-data Syn_FuncName = Syn_FuncName {comments_Syn_FuncName :: ([MToken]),copy_Syn_FuncName :: FuncName,isMultiline_Syn_FuncName :: Bool,pos_Syn_FuncName :: Region,pretty_Syn_FuncName :: Doc}-wrap_FuncName :: T_FuncName ->- Inh_FuncName ->- Syn_FuncName-wrap_FuncName sem (Inh_FuncName _lhsIcomments _lhsIindent _lhsIppconf) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIindent _lhsIppconf- in (Syn_FuncName _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpos _lhsOpretty))-sem_FuncName_FuncName :: ([MToken]) ->- (Maybe MToken) ->- T_FuncName-sem_FuncName_FuncName names_ meta_ =- (\ _lhsIcomments- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOpos :: Region- _lhsOcopy :: FuncName- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 914 "src/GLua/AG/PrettyPrint.ag" #-}- printList tok "." names_ <> metaDoc meta_- {-# LINE 4609 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 915 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 4614 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpos =- ({-# LINE 916 "src/GLua/AG/PrettyPrint.ag" #-}- case meta_ of- Nothing -> _namesPos- Just name -> rgOr _namesPos (mpos name)- {-# LINE 4621 "src/GLua/AG/PrettyPrint.hs" #-}- )- _namesPos =- ({-# LINE 920 "src/GLua/AG/PrettyPrint.ag" #-}- foldl1 rgOr $ map mpos names_- {-# LINE 4626 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- FuncName names_ meta_- {-# LINE 4631 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 4636 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 4641 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))--- MElse ---------------------------------------------------------- cata-sem_MElse :: MElse ->- T_MElse-sem_MElse (MElse _pos _body) =- (sem_MElse_MElse _pos (sem_Block _body))--- semantic domain-type T_MElse = ([MToken]) ->- Bool ->- Int ->- PrettyPrintConfig ->- Region ->- ( ([MToken]),MElse,Bool,Bool,Region,Doc)-data Inh_MElse = Inh_MElse {comments_Inh_MElse :: ([MToken]),forceMultiline_Inh_MElse :: Bool,indent_Inh_MElse :: Int,ppconf_Inh_MElse :: PrettyPrintConfig,statRegion_Inh_MElse :: Region}-data Syn_MElse = Syn_MElse {comments_Syn_MElse :: ([MToken]),copy_Syn_MElse :: MElse,elsesExist_Syn_MElse :: Bool,isMultiline_Syn_MElse :: Bool,pos_Syn_MElse :: Region,pretty_Syn_MElse :: Doc}-wrap_MElse :: T_MElse ->- Inh_MElse ->- Syn_MElse-wrap_MElse sem (Inh_MElse _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion- in (Syn_MElse _lhsOcomments _lhsOcopy _lhsOelsesExist _lhsOisMultiline _lhsOpos _lhsOpretty))-sem_MElse_MElse :: Region ->- T_Block ->- T_MElse-sem_MElse_MElse pos_ body_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf- _lhsIstatRegion ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _bodyOindent :: Int- _lhsOpos :: Region- _bodyOcomments :: ([MToken])- _lhsOelsesExist :: Bool- _lhsOcopy :: MElse- _lhsOcomments :: ([MToken])- _bodyOforceMultiline :: Bool- _bodyOppconf :: PrettyPrintConfig- _bodyOstatRegion :: Region- _bodyIcomments :: ([MToken])- _bodyIcopy :: Block- _bodyIisMultiline :: Bool- _bodyIpos :: Region- _bodyIpretty :: Doc- _bodyIstatementCount :: Int- _lhsOpretty =- ({-# LINE 619 "src/GLua/AG/PrettyPrint.ag" #-}- indent _lhsIppconf _lhsIindent (zeroWidthText "else")- <-> _prettyCommentsAfter- $+$ _bodyIpretty- {-# LINE 4696 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 623 "src/GLua/AG/PrettyPrint.ag" #-}- _bodyIisMultiline- {-# LINE 4701 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOindent =- ({-# LINE 624 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent + 1- {-# LINE 4706 "src/GLua/AG/PrettyPrint.hs" #-}- )- _prettyCommentsAfter =- ({-# LINE 625 "src/GLua/AG/PrettyPrint.ag" #-}- renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter )- {-# LINE 4711 "src/GLua/AG/PrettyPrint.hs" #-}- )- _commentsAfter =- ({-# LINE 626 "src/GLua/AG/PrettyPrint.ag" #-}- span (\(MToken pos _) -> pos `beforeOrOnLine` pos_) _lhsIcomments- {-# LINE 4716 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpos =- ({-# LINE 627 "src/GLua/AG/PrettyPrint.ag" #-}- pos_- {-# LINE 4721 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOcomments =- ({-# LINE 628 "src/GLua/AG/PrettyPrint.ag" #-}- snd _commentsAfter- {-# LINE 4726 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOelsesExist =- ({-# LINE 332 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 4731 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- MElse pos_ _bodyIcopy- {-# LINE 4736 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 4741 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _bodyIcomments- {-# LINE 4746 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 4751 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 4756 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOstatRegion =- ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIstatRegion- {-# LINE 4761 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =- body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion- in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))--- MElseIf -------------------------------------------------------- cata-sem_MElseIf :: MElseIf ->- T_MElseIf-sem_MElseIf (MElseIf _pos _elif) =- (sem_MElseIf_MElseIf _pos (sem_ElseIf _elif))--- semantic domain-type T_MElseIf = ([MToken]) ->- Bool ->- Int ->- PrettyPrintConfig ->- ( ([MToken]),MElseIf,Bool,Region,Doc)-data Inh_MElseIf = Inh_MElseIf {comments_Inh_MElseIf :: ([MToken]),forceMultiline_Inh_MElseIf :: Bool,indent_Inh_MElseIf :: Int,ppconf_Inh_MElseIf :: PrettyPrintConfig}-data Syn_MElseIf = Syn_MElseIf {comments_Syn_MElseIf :: ([MToken]),copy_Syn_MElseIf :: MElseIf,isMultiline_Syn_MElseIf :: Bool,pos_Syn_MElseIf :: Region,pretty_Syn_MElseIf :: Doc}-wrap_MElseIf :: T_MElseIf ->- Inh_MElseIf ->- Syn_MElseIf-wrap_MElseIf sem (Inh_MElseIf _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf- in (Syn_MElseIf _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpos _lhsOpretty))-sem_MElseIf_MElseIf :: Region ->- T_ElseIf ->- T_MElseIf-sem_MElseIf_MElseIf pos_ elif_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpos :: Region- _lhsOisMultiline :: Bool- _lhsOcopy :: MElseIf- _lhsOcomments :: ([MToken])- _lhsOpretty :: Doc- _elifOcomments :: ([MToken])- _elifOforceMultiline :: Bool- _elifOindent :: Int- _elifOppconf :: PrettyPrintConfig- _elifIcomments :: ([MToken])- _elifIcopy :: ElseIf- _elifIisMultiline :: Bool- _elifIpretty :: Doc- _lhsOpos =- ({-# LINE 594 "src/GLua/AG/PrettyPrint.ag" #-}- pos_- {-# LINE 4810 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 595 "src/GLua/AG/PrettyPrint.ag" #-}- _elifIisMultiline- {-# LINE 4815 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- MElseIf pos_ _elifIcopy- {-# LINE 4820 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 4825 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _elifIcomments- {-# LINE 4830 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpretty =- ({-# LINE 264 "src/GLua/AG/PrettyPrint.ag" #-}- _elifIpretty- {-# LINE 4835 "src/GLua/AG/PrettyPrint.hs" #-}- )- _elifOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 4840 "src/GLua/AG/PrettyPrint.hs" #-}- )- _elifOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 4845 "src/GLua/AG/PrettyPrint.hs" #-}- )- _elifOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 4850 "src/GLua/AG/PrettyPrint.hs" #-}- )- _elifOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 4855 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _elifIcomments,_elifIcopy,_elifIisMultiline,_elifIpretty) =- elif_ _elifOcomments _elifOforceMultiline _elifOindent _elifOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))--- MExpr ---------------------------------------------------------- cata-sem_MExpr :: MExpr ->- T_MExpr-sem_MExpr (MExpr _pos _expr) =- (sem_MExpr_MExpr _pos (sem_Expr _expr))--- semantic domain-type T_MExpr = ([MToken]) ->- Bool ->- Int ->- Bool ->- OperatorLevel ->- PrettyPrintConfig ->- ( ([MToken]),MExpr,Bool,Bool,Bool,Bool,Region,OperatorLevel,Doc)-data Inh_MExpr = Inh_MExpr {comments_Inh_MExpr :: ([MToken]),forceMultiline_Inh_MExpr :: Bool,indent_Inh_MExpr :: Int,parentOperatorAssociative_Inh_MExpr :: Bool,parentOperatorPrecedence_Inh_MExpr :: OperatorLevel,ppconf_Inh_MExpr :: PrettyPrintConfig}-data Syn_MExpr = Syn_MExpr {comments_Syn_MExpr :: ([MToken]),copy_Syn_MExpr :: MExpr,endsWithPrefixExpression_Syn_MExpr :: Bool,isAssociative_Syn_MExpr :: Bool,isLiteral_Syn_MExpr :: Bool,isMultiline_Syn_MExpr :: Bool,pos_Syn_MExpr :: Region,precedence_Syn_MExpr :: OperatorLevel,pretty_Syn_MExpr :: Doc}-wrap_MExpr :: T_MExpr ->- Inh_MExpr ->- Syn_MExpr-wrap_MExpr sem (Inh_MExpr _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf- in (Syn_MExpr _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisAssociative _lhsOisLiteral _lhsOisMultiline _lhsOpos _lhsOprecedence _lhsOpretty))-sem_MExpr_MExpr :: Region ->- T_Expr ->- T_MExpr-sem_MExpr_MExpr pos_ expr_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIparentOperatorAssociative- _lhsIparentOperatorPrecedence- _lhsIppconf ->- (let _lhsOpos :: Region- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _exprOstatRegion :: Region- _lhsOisAssociative :: Bool- _lhsOisLiteral :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: MExpr- _lhsOcomments :: ([MToken])- _lhsOpretty :: Doc- _exprOcomments :: ([MToken])- _exprOforceMultiline :: Bool- _exprOindent :: Int- _exprOparentOperatorAssociative :: Bool- _exprOparentOperatorPrecedence :: OperatorLevel- _exprOppconf :: PrettyPrintConfig- _exprIcomments :: ([MToken])- _exprIcopy :: Expr- _exprIendsWithPrefixExpression :: Bool- _exprIisAssociative :: Bool- _exprIisLiteral :: Bool- _exprIisMultiline :: Bool- _exprIprecedence :: OperatorLevel- _exprIpretty :: Doc- _lhsOpos =- ({-# LINE 993 "src/GLua/AG/PrettyPrint.ag" #-}- pos_- {-# LINE 4919 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 994 "src/GLua/AG/PrettyPrint.ag" #-}- _exprIendsWithPrefixExpression- {-# LINE 4924 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 995 "src/GLua/AG/PrettyPrint.ag" #-}- _exprIisMultiline- {-# LINE 4929 "src/GLua/AG/PrettyPrint.hs" #-}- )- _exprOstatRegion =- ({-# LINE 996 "src/GLua/AG/PrettyPrint.ag" #-}- pos_- {-# LINE 4934 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- _exprIisAssociative- {-# LINE 4939 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLiteral =- ({-# LINE 278 "src/GLua/AG/PrettyPrint.ag" #-}- _exprIisLiteral- {-# LINE 4944 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- _exprIprecedence- {-# LINE 4949 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- MExpr pos_ _exprIcopy- {-# LINE 4954 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 4959 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _exprIcomments- {-# LINE 4964 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpretty =- ({-# LINE 264 "src/GLua/AG/PrettyPrint.ag" #-}- _exprIpretty- {-# LINE 4969 "src/GLua/AG/PrettyPrint.hs" #-}- )- _exprOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 4974 "src/GLua/AG/PrettyPrint.hs" #-}- )- _exprOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 4979 "src/GLua/AG/PrettyPrint.hs" #-}- )- _exprOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 4984 "src/GLua/AG/PrettyPrint.hs" #-}- )- _exprOparentOperatorAssociative =- ({-# LINE 275 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIparentOperatorAssociative- {-# LINE 4989 "src/GLua/AG/PrettyPrint.hs" #-}- )- _exprOparentOperatorPrecedence =- ({-# LINE 274 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIparentOperatorPrecedence- {-# LINE 4994 "src/GLua/AG/PrettyPrint.hs" #-}- )- _exprOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 4999 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _exprIcomments,_exprIcopy,_exprIendsWithPrefixExpression,_exprIisAssociative,_exprIisLiteral,_exprIisMultiline,_exprIprecedence,_exprIpretty) =- expr_ _exprOcomments _exprOforceMultiline _exprOindent _exprOparentOperatorAssociative _exprOparentOperatorPrecedence _exprOppconf _exprOstatRegion- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty)))--- 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 = ([MToken]) ->- Bool ->- Int ->- PrettyPrintConfig ->- Bool ->- ( ([MToken]),MExprList,Bool,Bool,Bool,Region,OperatorLevel,Doc,Bool)-data Inh_MExprList = Inh_MExprList {comments_Inh_MExprList :: ([MToken]),forceMultiline_Inh_MExprList :: Bool,indent_Inh_MExprList :: Int,ppconf_Inh_MExprList :: PrettyPrintConfig,someElementsInListAreMultiline_Inh_MExprList :: Bool}-data Syn_MExprList = Syn_MExprList {comments_Syn_MExprList :: ([MToken]),copy_Syn_MExprList :: MExprList,isAssociative_Syn_MExprList :: Bool,isLast_Syn_MExprList :: Bool,isMultiline_Syn_MExprList :: Bool,pos_Syn_MExprList :: Region,precedence_Syn_MExprList :: OperatorLevel,pretty_Syn_MExprList :: Doc,startsWithNewline_Syn_MExprList :: Bool}-wrap_MExprList :: T_MExprList ->- Inh_MExprList ->- Syn_MExprList-wrap_MExprList sem (Inh_MExprList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLast,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithNewline) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline- in (Syn_MExprList _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisLast _lhsOisMultiline _lhsOpos _lhsOprecedence _lhsOpretty _lhsOstartsWithNewline))-sem_MExprList_Cons :: T_MExpr ->- T_MExprList ->- T_MExprList-sem_MExprList_Cons hd_ tl_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf- _lhsIsomeElementsInListAreMultiline ->- (let _lhsOpretty :: Doc- _hdOcomments :: ([MToken])- _tlOcomments :: ([MToken])- _lhsOcomments :: ([MToken])- _lhsOpos :: Region- _lhsOisLast :: Bool- _hdOparentOperatorPrecedence :: OperatorLevel- _hdOparentOperatorAssociative :: Bool- _tlOsomeElementsInListAreMultiline :: Bool- _lhsOisAssociative :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: MExprList- _lhsOisMultiline :: Bool- _lhsOstartsWithNewline :: Bool- _hdOforceMultiline :: Bool- _hdOindent :: Int- _hdOppconf :: PrettyPrintConfig- _tlOforceMultiline :: Bool- _tlOindent :: Int- _tlOppconf :: PrettyPrintConfig- _hdIcomments :: ([MToken])- _hdIcopy :: MExpr- _hdIendsWithPrefixExpression :: Bool- _hdIisAssociative :: Bool- _hdIisLiteral :: Bool- _hdIisMultiline :: Bool- _hdIpos :: Region- _hdIprecedence :: OperatorLevel- _hdIpretty :: Doc- _tlIcomments :: ([MToken])- _tlIcopy :: MExprList- _tlIisAssociative :: Bool- _tlIisLast :: Bool- _tlIisMultiline :: Bool- _tlIpos :: Region- _tlIprecedence :: OperatorLevel- _tlIpretty :: Doc- _tlIstartsWithNewline :: Bool- _lhsOpretty =- ({-# LINE 422 "src/GLua/AG/PrettyPrint.ag" #-}- if _lhsIforceMultiline then _prettyForcedMultiline else _prettyNotForcedMultiline- {-# LINE 5075 "src/GLua/AG/PrettyPrint.hs" #-}- )- _prettyNotForcedMultiline =- ({-# LINE 423 "src/GLua/AG/PrettyPrint.ag" #-}- (if _startsWithNewline then- zchr '\n' <>- renderMLComments _lhsIppconf (_lhsIindent + 1) (fst _commentsBeforeLine ) $+$- indent _lhsIppconf (_lhsIindent + 1) _hdIpretty- else- _hdIpretty)- <> _comma- <> (if (not $ null $ fst _commentsAfter ) then- renderSLComments _lhsIppconf (_lhsIindent + 1) (fst _commentsAfter ) $+$- indent _lhsIppconf (_lhsIindent + 1) _tlIpretty- else- _tlIpretty)- {-# LINE 5091 "src/GLua/AG/PrettyPrint.hs" #-}- )- _prettyForcedMultiline =- ({-# LINE 438 "src/GLua/AG/PrettyPrint.ag" #-}- renderMLComments _lhsIppconf _lhsIindent (fst _commentsBeforeLine )- $+$ indent _lhsIppconf (_lhsIindent) _hdIpretty- <> _comma- <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter )- $+$ _tlIpretty- {-# LINE 5100 "src/GLua/AG/PrettyPrint.hs" #-}- )- _comma =- ({-# LINE 444 "src/GLua/AG/PrettyPrint.ag" #-}- if _tlIisLast then- empty- else- (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)- <> zchr ','- <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)- {-# LINE 5110 "src/GLua/AG/PrettyPrint.hs" #-}- )- _startsWithNewline =- ({-# LINE 452 "src/GLua/AG/PrettyPrint.ag" #-}- not $ null $ fst _commentsBeforeLine- {-# LINE 5115 "src/GLua/AG/PrettyPrint.hs" #-}- )- _commentsBeforeLine =- ({-# LINE 453 "src/GLua/AG/PrettyPrint.ag" #-}- span (\(MToken pos' _) -> pos' `before` _hdIpos) _lhsIcomments- {-# LINE 5120 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOcomments =- ({-# LINE 454 "src/GLua/AG/PrettyPrint.ag" #-}- snd _commentsBeforeLine- {-# LINE 5125 "src/GLua/AG/PrettyPrint.hs" #-}- )- _commentsAfter =- ({-# LINE 455 "src/GLua/AG/PrettyPrint.ag" #-}- span (\(MToken pos' _) -> pos' `before` _tlIpos) _hdIcomments- {-# LINE 5130 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOcomments =- ({-# LINE 456 "src/GLua/AG/PrettyPrint.ag" #-}- snd _commentsAfter- {-# LINE 5135 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 457 "src/GLua/AG/PrettyPrint.ag" #-}- _tlIcomments- {-# LINE 5140 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpos =- ({-# LINE 459 "src/GLua/AG/PrettyPrint.ag" #-}- _hdIpos- {-# LINE 5145 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLast =- ({-# LINE 460 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 5150 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOparentOperatorPrecedence =- ({-# LINE 461 "src/GLua/AG/PrettyPrint.ag" #-}- TopLevelExpression- {-# LINE 5155 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOparentOperatorAssociative =- ({-# LINE 462 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 5160 "src/GLua/AG/PrettyPrint.hs" #-}- )- _isMultiline =- ({-# LINE 463 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- || not (null $ fst _commentsBeforeLine )- || not (null $ fst _commentsAfter )- || _lhsIsomeElementsInListAreMultiline- || _hdIisMultiline- || _tlIisMultiline- {-# LINE 5170 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOsomeElementsInListAreMultiline =- ({-# LINE 471 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIsomeElementsInListAreMultiline- || _hdIisMultiline- || not (null $ fst _commentsBeforeLine )- || not (null $ fst _commentsAfter )- {-# LINE 5178 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- _hdIisAssociative && _tlIisAssociative- {-# LINE 5183 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- (min _hdIprecedence _tlIprecedence)- {-# LINE 5188 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- (:) _hdIcopy _tlIcopy- {-# LINE 5193 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 5198 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-}- _isMultiline- {-# LINE 5203 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithNewline =- ({-# LINE 299 "src/GLua/AG/PrettyPrint.ag" #-}- _startsWithNewline- {-# LINE 5208 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 5213 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 5218 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 5223 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 5228 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 5233 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 5238 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _hdIcomments,_hdIcopy,_hdIendsWithPrefixExpression,_hdIisAssociative,_hdIisLiteral,_hdIisMultiline,_hdIpos,_hdIprecedence,_hdIpretty) =- hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOparentOperatorAssociative _hdOparentOperatorPrecedence _hdOppconf- ( _tlIcomments,_tlIcopy,_tlIisAssociative,_tlIisLast,_tlIisMultiline,_tlIpos,_tlIprecedence,_tlIpretty,_tlIstartsWithNewline) =- tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf _tlOsomeElementsInListAreMultiline- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLast,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithNewline)))-sem_MExprList_Nil :: T_MExprList-sem_MExprList_Nil =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf- _lhsIsomeElementsInListAreMultiline ->- (let _lhsOpretty :: Doc- _lhsOpos :: Region- _lhsOisMultiline :: Bool- _lhsOisLast :: Bool- _lhsOstartsWithNewline :: Bool- _lhsOisAssociative :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: MExprList- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 478 "src/GLua/AG/PrettyPrint.ag" #-}- empty- {-# LINE 5264 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpos =- ({-# LINE 479 "src/GLua/AG/PrettyPrint.ag" #-}- emptyRg- {-# LINE 5269 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 480 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 5274 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLast =- ({-# LINE 481 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 5279 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithNewline =- ({-# LINE 482 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 5284 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 5289 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel8- {-# LINE 5294 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- []- {-# LINE 5299 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 5304 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 5309 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLast,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithNewline)))--- MStat ---------------------------------------------------------- cata-sem_MStat :: MStat ->- T_MStat-sem_MStat (MStat _pos _stat) =- (sem_MStat_MStat _pos (sem_Stat _stat))--- semantic domain-type T_MStat = ([MToken]) ->- Bool ->- Int ->- Bool ->- PrettyPrintConfig ->- Bool ->- ( ([MToken]),MStat,Bool,Bool,Region,Doc,Bool,Int)-data Inh_MStat = Inh_MStat {comments_Inh_MStat :: ([MToken]),forceMultiline_Inh_MStat :: Bool,indent_Inh_MStat :: Int,isLastStatement_Inh_MStat :: Bool,ppconf_Inh_MStat :: PrettyPrintConfig,wouldBeAmbiguousWithoutSemicolon_Inh_MStat :: Bool}-data Syn_MStat = Syn_MStat {comments_Syn_MStat :: ([MToken]),copy_Syn_MStat :: MStat,endsWithPrefixExpression_Syn_MStat :: Bool,isMultiline_Syn_MStat :: Bool,pos_Syn_MStat :: Region,pretty_Syn_MStat :: Doc,startsWithExprPrefixExpression_Syn_MStat :: Bool,statementCount_Syn_MStat :: Int}-wrap_MStat :: T_MStat ->- Inh_MStat ->- Syn_MStat-wrap_MStat sem (Inh_MStat _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIwouldBeAmbiguousWithoutSemicolon) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpos,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIwouldBeAmbiguousWithoutSemicolon- in (Syn_MStat _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisMultiline _lhsOpos _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOstatementCount))-sem_MStat_MStat :: Region ->- T_Stat ->- T_MStat-sem_MStat_MStat pos_ stat_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIisLastStatement- _lhsIppconf- _lhsIwouldBeAmbiguousWithoutSemicolon ->- (let _lhsOpos :: Region- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _statOstatRegion :: Region- _statOwouldBeAmbiguousWithoutSemicolon :: Bool- _lhsOstatementCount :: Int- _lhsOcopy :: MStat- _lhsOcomments :: ([MToken])- _lhsOpretty :: Doc- _statOcomments :: ([MToken])- _statOforceMultiline :: Bool- _statOindent :: Int- _statOisLastStatement :: Bool- _statOppconf :: PrettyPrintConfig- _statIcomments :: ([MToken])- _statIcopy :: Stat- _statIendsWithPrefixExpression :: Bool- _statIisMultiline :: Bool- _statIpretty :: Doc- _statIstartsWithExprPrefixExpression :: Bool- _lhsOpos =- ({-# LINE 413 "src/GLua/AG/PrettyPrint.ag" #-}- pos_- {-# LINE 5368 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 414 "src/GLua/AG/PrettyPrint.ag" #-}- _statIstartsWithExprPrefixExpression- {-# LINE 5373 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 415 "src/GLua/AG/PrettyPrint.ag" #-}- _statIendsWithPrefixExpression- {-# LINE 5378 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 416 "src/GLua/AG/PrettyPrint.ag" #-}- _statIisMultiline- {-# LINE 5383 "src/GLua/AG/PrettyPrint.hs" #-}- )- _statOstatRegion =- ({-# LINE 417 "src/GLua/AG/PrettyPrint.ag" #-}- pos_- {-# LINE 5388 "src/GLua/AG/PrettyPrint.hs" #-}- )- _statOwouldBeAmbiguousWithoutSemicolon =- ({-# LINE 418 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIwouldBeAmbiguousWithoutSemicolon- {-# LINE 5393 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstatementCount =- ({-# LINE 329 "src/GLua/AG/PrettyPrint.ag" #-}- 1- {-# LINE 5398 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- MStat pos_ _statIcopy- {-# LINE 5403 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 5408 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _statIcomments- {-# LINE 5413 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpretty =- ({-# LINE 264 "src/GLua/AG/PrettyPrint.ag" #-}- _statIpretty- {-# LINE 5418 "src/GLua/AG/PrettyPrint.hs" #-}- )- _statOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 5423 "src/GLua/AG/PrettyPrint.hs" #-}- )- _statOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 5428 "src/GLua/AG/PrettyPrint.hs" #-}- )- _statOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 5433 "src/GLua/AG/PrettyPrint.hs" #-}- )- _statOisLastStatement =- ({-# LINE 312 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIisLastStatement- {-# LINE 5438 "src/GLua/AG/PrettyPrint.hs" #-}- )- _statOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 5443 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _statIcomments,_statIcopy,_statIendsWithPrefixExpression,_statIisMultiline,_statIpretty,_statIstartsWithExprPrefixExpression) =- stat_ _statOcomments _statOforceMultiline _statOindent _statOisLastStatement _statOppconf _statOstatRegion _statOwouldBeAmbiguousWithoutSemicolon- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpos,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount)))--- 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 = ([MToken]) ->- Bool ->- Int ->- PrettyPrintConfig ->- Region ->- ( ([MToken]),MStatList,Bool,Bool,Doc,Bool,Int)-data Inh_MStatList = Inh_MStatList {comments_Inh_MStatList :: ([MToken]),forceMultiline_Inh_MStatList :: Bool,indent_Inh_MStatList :: Int,ppconf_Inh_MStatList :: PrettyPrintConfig,statRegion_Inh_MStatList :: Region}-data Syn_MStatList = Syn_MStatList {comments_Syn_MStatList :: ([MToken]),copy_Syn_MStatList :: MStatList,isLast_Syn_MStatList :: Bool,isMultiline_Syn_MStatList :: Bool,pretty_Syn_MStatList :: Doc,startsWithExprPrefixExpression_Syn_MStatList :: Bool,statementCount_Syn_MStatList :: Int}-wrap_MStatList :: T_MStatList ->- Inh_MStatList ->- Syn_MStatList-wrap_MStatList sem (Inh_MStatList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion- in (Syn_MStatList _lhsOcomments _lhsOcopy _lhsOisLast _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOstatementCount))-sem_MStatList_Cons :: T_MStat ->- T_MStatList ->- T_MStatList-sem_MStatList_Cons hd_ tl_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf- _lhsIstatRegion ->- (let _lhsOpretty :: Doc- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOisLast :: Bool- _hdOcomments :: ([MToken])- _tlOcomments :: ([MToken])- _lhsOcomments :: ([MToken])- _hdOisLastStatement :: Bool- _hdOwouldBeAmbiguousWithoutSemicolon :: Bool- _hdOforceMultiline :: Bool- _lhsOstatementCount :: Int- _lhsOcopy :: MStatList- _lhsOisMultiline :: Bool- _hdOindent :: Int- _hdOppconf :: PrettyPrintConfig- _tlOforceMultiline :: Bool- _tlOindent :: Int- _tlOppconf :: PrettyPrintConfig- _tlOstatRegion :: Region- _hdIcomments :: ([MToken])- _hdIcopy :: MStat- _hdIendsWithPrefixExpression :: Bool- _hdIisMultiline :: Bool- _hdIpos :: Region- _hdIpretty :: Doc- _hdIstartsWithExprPrefixExpression :: Bool- _hdIstatementCount :: Int- _tlIcomments :: ([MToken])- _tlIcopy :: MStatList- _tlIisLast :: Bool- _tlIisMultiline :: Bool- _tlIpretty :: Doc- _tlIstartsWithExprPrefixExpression :: Bool- _tlIstatementCount :: Int- _lhsOpretty =- ({-# LINE 372 "src/GLua/AG/PrettyPrint.ag" #-}- renderMLComments _lhsIppconf _lhsIindent (fst _commentsBeforeLine )- $+$ indent _lhsIppconf _lhsIindent _hdIpretty- <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter )- <> _addNewline- $+$ _tlIpretty- {-# LINE 5518 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 378 "src/GLua/AG/PrettyPrint.ag" #-}- _hdIstartsWithExprPrefixExpression- {-# LINE 5523 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLast =- ({-# LINE 379 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 5528 "src/GLua/AG/PrettyPrint.hs" #-}- )- _isMultiline =- ({-# LINE 381 "src/GLua/AG/PrettyPrint.ag" #-}- _hdIisMultiline- || _tlIisMultiline- || not (null $ fst _commentsBeforeLine )- || not (null $ fst _commentsAfter )- {-# LINE 5536 "src/GLua/AG/PrettyPrint.hs" #-}- )- _addNewline =- ({-# LINE 386 "src/GLua/AG/PrettyPrint.ag" #-}- if not _tlIisLast && _hdIisMultiline then zchr '\n' else empty- {-# LINE 5541 "src/GLua/AG/PrettyPrint.hs" #-}- )- _commentsBeforeLine =- ({-# LINE 389 "src/GLua/AG/PrettyPrint.ag" #-}- span (\(MToken pos' _) -> pos' `before` _hdIpos) _lhsIcomments- {-# LINE 5546 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOcomments =- ({-# LINE 390 "src/GLua/AG/PrettyPrint.ag" #-}- snd _commentsBeforeLine- {-# LINE 5551 "src/GLua/AG/PrettyPrint.hs" #-}- )- _commentsAfter =- ({-# LINE 391 "src/GLua/AG/PrettyPrint.ag" #-}- span (\(MToken pos' _) -> pos' `beforeOrOnLine` _hdIpos) _hdIcomments- {-# LINE 5556 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOcomments =- ({-# LINE 392 "src/GLua/AG/PrettyPrint.ag" #-}- snd _commentsAfter- {-# LINE 5561 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 393 "src/GLua/AG/PrettyPrint.ag" #-}- _tlIcomments- {-# LINE 5566 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOisLastStatement =- ({-# LINE 395 "src/GLua/AG/PrettyPrint.ag" #-}- _tlIisLast- {-# LINE 5571 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOwouldBeAmbiguousWithoutSemicolon =- ({-# LINE 401 "src/GLua/AG/PrettyPrint.ag" #-}- _hdIendsWithPrefixExpression && _tlIstartsWithExprPrefixExpression- {-# LINE 5576 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOforceMultiline =- ({-# LINE 403 "src/GLua/AG/PrettyPrint.ag" #-}- commentsForceMultiline $ fst _commentsBeforeLine- {-# LINE 5581 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstatementCount =- ({-# LINE 329 "src/GLua/AG/PrettyPrint.ag" #-}- _hdIstatementCount + _tlIstatementCount- {-# LINE 5586 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- (:) _hdIcopy _tlIcopy- {-# LINE 5591 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 5596 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-}- _isMultiline- {-# LINE 5601 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 5606 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 5611 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 5616 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 5621 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 5626 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOstatRegion =- ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIstatRegion- {-# LINE 5631 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _hdIcomments,_hdIcopy,_hdIendsWithPrefixExpression,_hdIisMultiline,_hdIpos,_hdIpretty,_hdIstartsWithExprPrefixExpression,_hdIstatementCount) =- hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOisLastStatement _hdOppconf _hdOwouldBeAmbiguousWithoutSemicolon- ( _tlIcomments,_tlIcopy,_tlIisLast,_tlIisMultiline,_tlIpretty,_tlIstartsWithExprPrefixExpression,_tlIstatementCount) =- tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf _tlOstatRegion- in ( _lhsOcomments,_lhsOcopy,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount)))-sem_MStatList_Nil :: T_MStatList-sem_MStatList_Nil =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf- _lhsIstatRegion ->- (let _lhsOpretty :: Doc- _lhsOstatementCount :: Int- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _lhsOisLast :: Bool- _lhsOcopy :: MStatList- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 405 "src/GLua/AG/PrettyPrint.ag" #-}- empty- {-# LINE 5655 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstatementCount =- ({-# LINE 406 "src/GLua/AG/PrettyPrint.ag" #-}- 0- {-# LINE 5660 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 407 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 5665 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 408 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 5670 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLast =- ({-# LINE 409 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 5675 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- []- {-# LINE 5680 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 5685 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 5690 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount)))--- 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 = ([MToken]) ->- Bool ->- Int ->- PrettyPrintConfig ->- ( ([MToken]),MaybeMExpr,Bool,Bool,Bool,Bool,OperatorLevel,Doc)-data Inh_MaybeMExpr = Inh_MaybeMExpr {comments_Inh_MaybeMExpr :: ([MToken]),forceMultiline_Inh_MaybeMExpr :: Bool,indent_Inh_MaybeMExpr :: Int,ppconf_Inh_MaybeMExpr :: PrettyPrintConfig}-data Syn_MaybeMExpr = Syn_MaybeMExpr {comments_Syn_MaybeMExpr :: ([MToken]),copy_Syn_MaybeMExpr :: MaybeMExpr,endsWithPrefixExpression_Syn_MaybeMExpr :: Bool,isAssociative_Syn_MaybeMExpr :: Bool,isDefined_Syn_MaybeMExpr :: Bool,isMultiline_Syn_MaybeMExpr :: Bool,precedence_Syn_MaybeMExpr :: OperatorLevel,pretty_Syn_MaybeMExpr :: Doc}-wrap_MaybeMExpr :: T_MaybeMExpr ->- Inh_MaybeMExpr ->- Syn_MaybeMExpr-wrap_MaybeMExpr sem (Inh_MaybeMExpr _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisDefined,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf- in (Syn_MaybeMExpr _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisAssociative _lhsOisDefined _lhsOisMultiline _lhsOprecedence _lhsOpretty))-sem_MaybeMExpr_Just :: T_MExpr ->- T_MaybeMExpr-sem_MaybeMExpr_Just just_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisDefined :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _justOparentOperatorPrecedence :: OperatorLevel- _justOparentOperatorAssociative :: Bool- _lhsOisAssociative :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: MaybeMExpr- _lhsOcomments :: ([MToken])- _justOcomments :: ([MToken])- _justOforceMultiline :: Bool- _justOindent :: Int- _justOppconf :: PrettyPrintConfig- _justIcomments :: ([MToken])- _justIcopy :: MExpr- _justIendsWithPrefixExpression :: Bool- _justIisAssociative :: Bool- _justIisLiteral :: Bool- _justIisMultiline :: Bool- _justIpos :: Region- _justIprecedence :: OperatorLevel- _justIpretty :: Doc- _lhsOpretty =- ({-# LINE 526 "src/GLua/AG/PrettyPrint.ag" #-}- _justIpretty- {-# LINE 5748 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisDefined =- ({-# LINE 527 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 5753 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 528 "src/GLua/AG/PrettyPrint.ag" #-}- _justIendsWithPrefixExpression- {-# LINE 5758 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 529 "src/GLua/AG/PrettyPrint.ag" #-}- _justIisMultiline- {-# LINE 5763 "src/GLua/AG/PrettyPrint.hs" #-}- )- _justOparentOperatorPrecedence =- ({-# LINE 530 "src/GLua/AG/PrettyPrint.ag" #-}- TopLevelExpression- {-# LINE 5768 "src/GLua/AG/PrettyPrint.hs" #-}- )- _justOparentOperatorAssociative =- ({-# LINE 531 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 5773 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- _justIisAssociative- {-# LINE 5778 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- _justIprecedence- {-# LINE 5783 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- Just _justIcopy- {-# LINE 5788 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 5793 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _justIcomments- {-# LINE 5798 "src/GLua/AG/PrettyPrint.hs" #-}- )- _justOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 5803 "src/GLua/AG/PrettyPrint.hs" #-}- )- _justOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 5808 "src/GLua/AG/PrettyPrint.hs" #-}- )- _justOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 5813 "src/GLua/AG/PrettyPrint.hs" #-}- )- _justOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 5818 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _justIcomments,_justIcopy,_justIendsWithPrefixExpression,_justIisAssociative,_justIisLiteral,_justIisMultiline,_justIpos,_justIprecedence,_justIpretty) =- just_ _justOcomments _justOforceMultiline _justOindent _justOparentOperatorAssociative _justOparentOperatorPrecedence _justOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisDefined,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_MaybeMExpr_Nothing :: T_MaybeMExpr-sem_MaybeMExpr_Nothing =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisDefined :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _lhsOisAssociative :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: MaybeMExpr- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 533 "src/GLua/AG/PrettyPrint.ag" #-}- empty- {-# LINE 5840 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisDefined =- ({-# LINE 534 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 5845 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 535 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 5850 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 536 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 5855 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 5860 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel8- {-# LINE 5865 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- Nothing- {-# LINE 5870 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 5875 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 5880 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisDefined,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))--- 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 _fn (sem_Args _args))-sem_PFExprSuffix (ExprIndex _index) =- (sem_PFExprSuffix_ExprIndex (sem_MExpr _index))-sem_PFExprSuffix (DotIndex _index) =- (sem_PFExprSuffix_DotIndex _index)--- semantic domain-type T_PFExprSuffix = ([MToken]) ->- Bool ->- Int ->- PrettyPrintConfig ->- ( ([MToken]),PFExprSuffix,Bool,Bool,OperatorLevel,Doc)-data Inh_PFExprSuffix = Inh_PFExprSuffix {comments_Inh_PFExprSuffix :: ([MToken]),forceMultiline_Inh_PFExprSuffix :: Bool,indent_Inh_PFExprSuffix :: Int,ppconf_Inh_PFExprSuffix :: PrettyPrintConfig}-data Syn_PFExprSuffix = Syn_PFExprSuffix {comments_Syn_PFExprSuffix :: ([MToken]),copy_Syn_PFExprSuffix :: PFExprSuffix,isAssociative_Syn_PFExprSuffix :: Bool,isMultiline_Syn_PFExprSuffix :: Bool,precedence_Syn_PFExprSuffix :: OperatorLevel,pretty_Syn_PFExprSuffix :: Doc}-wrap_PFExprSuffix :: T_PFExprSuffix ->- Inh_PFExprSuffix ->- Syn_PFExprSuffix-wrap_PFExprSuffix sem (Inh_PFExprSuffix _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf- in (Syn_PFExprSuffix _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisMultiline _lhsOprecedence _lhsOpretty))-sem_PFExprSuffix_Call :: T_Args ->- T_PFExprSuffix-sem_PFExprSuffix_Call args_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOisAssociative :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: PFExprSuffix- _lhsOcomments :: ([MToken])- _argsOcomments :: ([MToken])- _argsOforceMultiline :: Bool- _argsOindent :: Int- _argsOppconf :: PrettyPrintConfig- _argsIcomments :: ([MToken])- _argsIcopy :: Args- _argsIisMultiline :: Bool- _argsIpretty :: Doc- _lhsOpretty =- ({-# LINE 977 "src/GLua/AG/PrettyPrint.ag" #-}- _argsIpretty- {-# LINE 5933 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 978 "src/GLua/AG/PrettyPrint.ag" #-}- _argsIisMultiline- {-# LINE 5938 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 5943 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel8- {-# LINE 5948 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- Call _argsIcopy- {-# LINE 5953 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 5958 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _argsIcomments- {-# LINE 5963 "src/GLua/AG/PrettyPrint.hs" #-}- )- _argsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 5968 "src/GLua/AG/PrettyPrint.hs" #-}- )- _argsOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 5973 "src/GLua/AG/PrettyPrint.hs" #-}- )- _argsOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 5978 "src/GLua/AG/PrettyPrint.hs" #-}- )- _argsOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 5983 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _argsIcomments,_argsIcopy,_argsIisMultiline,_argsIpretty) =- args_ _argsOcomments _argsOforceMultiline _argsOindent _argsOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_PFExprSuffix_MetaCall :: MToken ->- T_Args ->- T_PFExprSuffix-sem_PFExprSuffix_MetaCall fn_ args_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOisAssociative :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: PFExprSuffix- _lhsOcomments :: ([MToken])- _argsOcomments :: ([MToken])- _argsOforceMultiline :: Bool- _argsOindent :: Int- _argsOppconf :: PrettyPrintConfig- _argsIcomments :: ([MToken])- _argsIcopy :: Args- _argsIisMultiline :: Bool- _argsIpretty :: Doc- _lhsOpretty =- ({-# LINE 980 "src/GLua/AG/PrettyPrint.ag" #-}- zchr ':' <> tok fn_ <> _argsIpretty- {-# LINE 6013 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 981 "src/GLua/AG/PrettyPrint.ag" #-}- _argsIisMultiline- {-# LINE 6018 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 6023 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel8- {-# LINE 6028 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- MetaCall fn_ _argsIcopy- {-# LINE 6033 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 6038 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _argsIcomments- {-# LINE 6043 "src/GLua/AG/PrettyPrint.hs" #-}- )- _argsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 6048 "src/GLua/AG/PrettyPrint.hs" #-}- )- _argsOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 6053 "src/GLua/AG/PrettyPrint.hs" #-}- )- _argsOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 6058 "src/GLua/AG/PrettyPrint.hs" #-}- )- _argsOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 6063 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _argsIcomments,_argsIcopy,_argsIisMultiline,_argsIpretty) =- args_ _argsOcomments _argsOforceMultiline _argsOindent _argsOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_PFExprSuffix_ExprIndex :: T_MExpr ->- T_PFExprSuffix-sem_PFExprSuffix_ExprIndex index_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _indexOparentOperatorPrecedence :: OperatorLevel- _indexOparentOperatorAssociative :: Bool- _lhsOisAssociative :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: PFExprSuffix- _lhsOcomments :: ([MToken])- _indexOcomments :: ([MToken])- _indexOforceMultiline :: Bool- _indexOindent :: Int- _indexOppconf :: PrettyPrintConfig- _indexIcomments :: ([MToken])- _indexIcopy :: MExpr- _indexIendsWithPrefixExpression :: Bool- _indexIisAssociative :: Bool- _indexIisLiteral :: Bool- _indexIisMultiline :: Bool- _indexIpos :: Region- _indexIprecedence :: OperatorLevel- _indexIpretty :: Doc- _lhsOpretty =- ({-# LINE 983 "src/GLua/AG/PrettyPrint.ag" #-}- brackets _lhsIppconf _indexIpretty- {-# LINE 6099 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 984 "src/GLua/AG/PrettyPrint.ag" #-}- _indexIisMultiline- {-# LINE 6104 "src/GLua/AG/PrettyPrint.hs" #-}- )- _indexOparentOperatorPrecedence =- ({-# LINE 985 "src/GLua/AG/PrettyPrint.ag" #-}- TopLevelExpression- {-# LINE 6109 "src/GLua/AG/PrettyPrint.hs" #-}- )- _indexOparentOperatorAssociative =- ({-# LINE 986 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 6114 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- _indexIisAssociative- {-# LINE 6119 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- _indexIprecedence- {-# LINE 6124 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- ExprIndex _indexIcopy- {-# LINE 6129 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 6134 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _indexIcomments- {-# LINE 6139 "src/GLua/AG/PrettyPrint.hs" #-}- )- _indexOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 6144 "src/GLua/AG/PrettyPrint.hs" #-}- )- _indexOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 6149 "src/GLua/AG/PrettyPrint.hs" #-}- )- _indexOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 6154 "src/GLua/AG/PrettyPrint.hs" #-}- )- _indexOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 6159 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _indexIcomments,_indexIcopy,_indexIendsWithPrefixExpression,_indexIisAssociative,_indexIisLiteral,_indexIisMultiline,_indexIpos,_indexIprecedence,_indexIpretty) =- index_ _indexOcomments _indexOforceMultiline _indexOindent _indexOparentOperatorAssociative _indexOparentOperatorPrecedence _indexOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))-sem_PFExprSuffix_DotIndex :: MToken ->- T_PFExprSuffix-sem_PFExprSuffix_DotIndex index_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOisAssociative :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: PFExprSuffix- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 988 "src/GLua/AG/PrettyPrint.ag" #-}- zchr '.' <> tok index_- {-# LINE 6180 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 989 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 6185 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 6190 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- OperatorLevel8- {-# LINE 6195 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- DotIndex index_- {-# LINE 6200 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 6205 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 6210 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))--- PrefixExp ------------------------------------------------------ cata-sem_PrefixExp :: PrefixExp ->- T_PrefixExp-sem_PrefixExp (PFVar _name _suffixes) =- (sem_PrefixExp_PFVar _name (sem_ExprSuffixList _suffixes))-sem_PrefixExp (ExprVar _expr _suffixes) =- (sem_PrefixExp_ExprVar (sem_MExpr _expr) (sem_ExprSuffixList _suffixes))--- semantic domain-type T_PrefixExp = ([MToken]) ->- Bool ->- Int ->- Bool ->- OperatorLevel ->- PrettyPrintConfig ->- ( ([MToken]),PrefixExp,Bool,Bool,Bool,OperatorLevel,Doc,Bool)-data Inh_PrefixExp = Inh_PrefixExp {comments_Inh_PrefixExp :: ([MToken]),forceMultiline_Inh_PrefixExp :: Bool,indent_Inh_PrefixExp :: Int,parentOperatorAssociative_Inh_PrefixExp :: Bool,parentOperatorPrecedence_Inh_PrefixExp :: OperatorLevel,ppconf_Inh_PrefixExp :: PrettyPrintConfig}-data Syn_PrefixExp = Syn_PrefixExp {comments_Syn_PrefixExp :: ([MToken]),copy_Syn_PrefixExp :: PrefixExp,isAssociative_Syn_PrefixExp :: Bool,isLiteral_Syn_PrefixExp :: Bool,isMultiline_Syn_PrefixExp :: Bool,precedence_Syn_PrefixExp :: OperatorLevel,pretty_Syn_PrefixExp :: Doc,startsWithExprPrefixExpression_Syn_PrefixExp :: Bool}-wrap_PrefixExp :: T_PrefixExp ->- Inh_PrefixExp ->- Syn_PrefixExp-wrap_PrefixExp sem (Inh_PrefixExp _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithExprPrefixExpression) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf- in (Syn_PrefixExp _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisLiteral _lhsOisMultiline _lhsOprecedence _lhsOpretty _lhsOstartsWithExprPrefixExpression))-sem_PrefixExp_PFVar :: MToken ->- T_ExprSuffixList ->- T_PrefixExp-sem_PrefixExp_PFVar name_ suffixes_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIparentOperatorAssociative- _lhsIparentOperatorPrecedence- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisLiteral :: Bool- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _lhsOisAssociative :: Bool- _lhsOprecedence :: OperatorLevel- _lhsOcopy :: PrefixExp- _lhsOcomments :: ([MToken])- _suffixesOcomments :: ([MToken])- _suffixesOforceMultiline :: Bool- _suffixesOindent :: Int- _suffixesOppconf :: PrettyPrintConfig- _suffixesIcomments :: ([MToken])- _suffixesIcopy :: ExprSuffixList- _suffixesIisAssociative :: Bool- _suffixesIisMultiline :: Bool- _suffixesIprecedence :: OperatorLevel- _suffixesIpretty :: Doc- _lhsOpretty =- ({-# LINE 924 "src/GLua/AG/PrettyPrint.ag" #-}- tok name_ <> _suffixesIpretty- {-# LINE 6268 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLiteral =- ({-# LINE 925 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 6273 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 926 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 6278 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 927 "src/GLua/AG/PrettyPrint.ag" #-}- _suffixesIisMultiline- {-# LINE 6283 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- _suffixesIisAssociative- {-# LINE 6288 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}- _suffixesIprecedence- {-# LINE 6293 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- PFVar name_ _suffixesIcopy- {-# LINE 6298 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 6303 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _suffixesIcomments- {-# LINE 6308 "src/GLua/AG/PrettyPrint.hs" #-}- )- _suffixesOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 6313 "src/GLua/AG/PrettyPrint.hs" #-}- )- _suffixesOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 6318 "src/GLua/AG/PrettyPrint.hs" #-}- )- _suffixesOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 6323 "src/GLua/AG/PrettyPrint.hs" #-}- )- _suffixesOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 6328 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _suffixesIcomments,_suffixesIcopy,_suffixesIisAssociative,_suffixesIisMultiline,_suffixesIprecedence,_suffixesIpretty) =- suffixes_ _suffixesOcomments _suffixesOforceMultiline _suffixesOindent _suffixesOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))-sem_PrefixExp_ExprVar :: T_MExpr ->- T_ExprSuffixList ->- T_PrefixExp-sem_PrefixExp_ExprVar expr_ suffixes_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIparentOperatorAssociative- _lhsIparentOperatorPrecedence- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOprecedence :: OperatorLevel- _lhsOisLiteral :: Bool- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _lhsOisAssociative :: Bool- _lhsOcopy :: PrefixExp- _lhsOcomments :: ([MToken])- _exprOcomments :: ([MToken])- _exprOforceMultiline :: Bool- _exprOindent :: Int- _exprOparentOperatorAssociative :: Bool- _exprOparentOperatorPrecedence :: OperatorLevel- _exprOppconf :: PrettyPrintConfig- _suffixesOcomments :: ([MToken])- _suffixesOforceMultiline :: Bool- _suffixesOindent :: Int- _suffixesOppconf :: PrettyPrintConfig- _exprIcomments :: ([MToken])- _exprIcopy :: MExpr- _exprIendsWithPrefixExpression :: Bool- _exprIisAssociative :: Bool- _exprIisLiteral :: Bool- _exprIisMultiline :: Bool- _exprIpos :: Region- _exprIprecedence :: OperatorLevel- _exprIpretty :: Doc- _suffixesIcomments :: ([MToken])- _suffixesIcopy :: ExprSuffixList- _suffixesIisAssociative :: Bool- _suffixesIisMultiline :: Bool- _suffixesIprecedence :: OperatorLevel- _suffixesIpretty :: Doc- _lhsOpretty =- ({-# LINE 929 "src/GLua/AG/PrettyPrint.ag" #-}- (if _noparens then _exprIpretty else parens _lhsIppconf NonEmpty _exprIpretty)- <> _suffixesIpretty- {-# LINE 6380 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOprecedence =- ({-# LINE 932 "src/GLua/AG/PrettyPrint.ag" #-}- if _noparens then _exprIprecedence else OperatorLevel8- {-# LINE 6385 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLiteral =- ({-# LINE 933 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 6390 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 934 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 6395 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 935 "src/GLua/AG/PrettyPrint.ag" #-}- _exprIisMultiline || _suffixesIisMultiline- {-# LINE 6400 "src/GLua/AG/PrettyPrint.hs" #-}- )- _containsParenthesizedExpr =- ({-# LINE 939 "src/GLua/AG/PrettyPrint.ag" #-}- case _exprIcopy of- MExpr _ (APrefixExpr (ExprVar (MExpr _ AVarArg) _)) -> False- MExpr _ (APrefixExpr _) -> True- _ -> False- {-# LINE 6408 "src/GLua/AG/PrettyPrint.hs" #-}- )- _noparens =- ({-# LINE 945 "src/GLua/AG/PrettyPrint.ag" #-}- (removeRedundantParens _lhsIppconf || minimizeParens _lhsIppconf)- && (_containsParenthesizedExpr- || (_lhsIparentOperatorPrecedence == TopLevelExpression || _exprIisLiteral)- && length _suffixesIcopy == 0- )- || (minimizeParens _lhsIppconf && length _suffixesIcopy == 0- && ( _lhsIparentOperatorPrecedence < _exprIprecedence- || assumeOperatorAssociativity _lhsIppconf- && _lhsIparentOperatorPrecedence == _exprIprecedence- && _lhsIparentOperatorAssociative- )- )- {-# LINE 6424 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisAssociative =- ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}- _exprIisAssociative && _suffixesIisAssociative- {-# LINE 6429 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- ExprVar _exprIcopy _suffixesIcopy- {-# LINE 6434 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 6439 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _suffixesIcomments- {-# LINE 6444 "src/GLua/AG/PrettyPrint.hs" #-}- )- _exprOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 6449 "src/GLua/AG/PrettyPrint.hs" #-}- )- _exprOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 6454 "src/GLua/AG/PrettyPrint.hs" #-}- )- _exprOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 6459 "src/GLua/AG/PrettyPrint.hs" #-}- )- _exprOparentOperatorAssociative =- ({-# LINE 275 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIparentOperatorAssociative- {-# LINE 6464 "src/GLua/AG/PrettyPrint.hs" #-}- )- _exprOparentOperatorPrecedence =- ({-# LINE 274 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIparentOperatorPrecedence- {-# LINE 6469 "src/GLua/AG/PrettyPrint.hs" #-}- )- _exprOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 6474 "src/GLua/AG/PrettyPrint.hs" #-}- )- _suffixesOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _exprIcomments- {-# LINE 6479 "src/GLua/AG/PrettyPrint.hs" #-}- )- _suffixesOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 6484 "src/GLua/AG/PrettyPrint.hs" #-}- )- _suffixesOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 6489 "src/GLua/AG/PrettyPrint.hs" #-}- )- _suffixesOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 6494 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _exprIcomments,_exprIcopy,_exprIendsWithPrefixExpression,_exprIisAssociative,_exprIisLiteral,_exprIisMultiline,_exprIpos,_exprIprecedence,_exprIpretty) =- expr_ _exprOcomments _exprOforceMultiline _exprOindent _exprOparentOperatorAssociative _exprOparentOperatorPrecedence _exprOppconf- ( _suffixesIcomments,_suffixesIcopy,_suffixesIisAssociative,_suffixesIisMultiline,_suffixesIprecedence,_suffixesIpretty) =- suffixes_ _suffixesOcomments _suffixesOforceMultiline _suffixesOindent _suffixesOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))--- 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 _lbl)-sem_Stat (ABreak) =- (sem_Stat_ABreak)-sem_Stat (AContinue) =- (sem_Stat_AContinue)-sem_Stat (AGoto _lbl) =- (sem_Stat_AGoto _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 _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 = ([MToken]) ->- Bool ->- Int ->- Bool ->- PrettyPrintConfig ->- Region ->- Bool ->- ( ([MToken]),Stat,Bool,Bool,Doc,Bool)-data Inh_Stat = Inh_Stat {comments_Inh_Stat :: ([MToken]),forceMultiline_Inh_Stat :: Bool,indent_Inh_Stat :: Int,isLastStatement_Inh_Stat :: Bool,ppconf_Inh_Stat :: PrettyPrintConfig,statRegion_Inh_Stat :: Region,wouldBeAmbiguousWithoutSemicolon_Inh_Stat :: Bool}-data Syn_Stat = Syn_Stat {comments_Syn_Stat :: ([MToken]),copy_Syn_Stat :: Stat,endsWithPrefixExpression_Syn_Stat :: Bool,isMultiline_Syn_Stat :: Bool,pretty_Syn_Stat :: Doc,startsWithExprPrefixExpression_Syn_Stat :: Bool}-wrap_Stat :: T_Stat ->- Inh_Stat ->- Syn_Stat-wrap_Stat sem (Inh_Stat _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIstatRegion _lhsIwouldBeAmbiguousWithoutSemicolon) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIstatRegion _lhsIwouldBeAmbiguousWithoutSemicolon- in (Syn_Stat _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression))-sem_Stat_Def :: T_VarsList ->- T_Stat-sem_Stat_Def vars_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIisLastStatement- _lhsIppconf- _lhsIstatRegion- _lhsIwouldBeAmbiguousWithoutSemicolon ->- (let _lhsOpretty :: Doc- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _lhsOcopy :: Stat- _lhsOcomments :: ([MToken])- _varsOcomments :: ([MToken])- _varsOforceMultiline :: Bool- _varsOindent :: Int- _varsOppconf :: PrettyPrintConfig- _varsIcomments :: ([MToken])- _varsIcopy :: VarsList- _varsIendsWithPrefixExpression :: Bool- _varsIexprPretty :: Doc- _varsIisDefined :: Bool- _varsIisLast :: Bool- _varsIisMultiline :: Bool- _varsIpretty :: Doc- _varsIstartsWithExprPrefixExpression :: Bool- _varsIvarPretty :: Doc- _lhsOpretty =- ({-# LINE 661 "src/GLua/AG/PrettyPrint.ag" #-}- _varsIpretty <> _semicolon- {-# LINE 6585 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 662 "src/GLua/AG/PrettyPrint.ag" #-}- _varsIstartsWithExprPrefixExpression- {-# LINE 6590 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 663 "src/GLua/AG/PrettyPrint.ag" #-}- _varsIendsWithPrefixExpression- {-# LINE 6595 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 664 "src/GLua/AG/PrettyPrint.ag" #-}- _varsIisMultiline- {-# LINE 6600 "src/GLua/AG/PrettyPrint.hs" #-}- )- _semicolon =- ({-# LINE 665 "src/GLua/AG/PrettyPrint.ag" #-}- if semicolons _lhsIppconf || _lhsIwouldBeAmbiguousWithoutSemicolon- then zchr ';'- else empty- {-# LINE 6607 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- Def _varsIcopy- {-# LINE 6612 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 6617 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _varsIcomments- {-# LINE 6622 "src/GLua/AG/PrettyPrint.hs" #-}- )- _varsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 6627 "src/GLua/AG/PrettyPrint.hs" #-}- )- _varsOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 6632 "src/GLua/AG/PrettyPrint.hs" #-}- )- _varsOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 6637 "src/GLua/AG/PrettyPrint.hs" #-}- )- _varsOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 6642 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _varsIcomments,_varsIcopy,_varsIendsWithPrefixExpression,_varsIexprPretty,_varsIisDefined,_varsIisLast,_varsIisMultiline,_varsIpretty,_varsIstartsWithExprPrefixExpression,_varsIvarPretty) =- vars_ _varsOcomments _varsOforceMultiline _varsOindent _varsOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))-sem_Stat_LocDef :: T_VarsList ->- T_Stat-sem_Stat_LocDef vars_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIisLastStatement- _lhsIppconf- _lhsIstatRegion- _lhsIwouldBeAmbiguousWithoutSemicolon ->- (let _lhsOpretty :: Doc- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _lhsOcopy :: Stat- _lhsOcomments :: ([MToken])- _varsOcomments :: ([MToken])- _varsOforceMultiline :: Bool- _varsOindent :: Int- _varsOppconf :: PrettyPrintConfig- _varsIcomments :: ([MToken])- _varsIcopy :: VarsList- _varsIendsWithPrefixExpression :: Bool- _varsIexprPretty :: Doc- _varsIisDefined :: Bool- _varsIisLast :: Bool- _varsIisMultiline :: Bool- _varsIpretty :: Doc- _varsIstartsWithExprPrefixExpression :: Bool- _varsIvarPretty :: Doc- _lhsOpretty =- ({-# LINE 670 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "local" <-> _varsIpretty <> _semicolon- {-# LINE 6680 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 671 "src/GLua/AG/PrettyPrint.ag" #-}- _varsIstartsWithExprPrefixExpression- {-# LINE 6685 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 672 "src/GLua/AG/PrettyPrint.ag" #-}- _varsIendsWithPrefixExpression- {-# LINE 6690 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 673 "src/GLua/AG/PrettyPrint.ag" #-}- _varsIisMultiline- {-# LINE 6695 "src/GLua/AG/PrettyPrint.hs" #-}- )- _semicolon =- ({-# LINE 674 "src/GLua/AG/PrettyPrint.ag" #-}- if semicolons _lhsIppconf || _lhsIwouldBeAmbiguousWithoutSemicolon- then zchr ';'- else empty- {-# LINE 6702 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- LocDef _varsIcopy- {-# LINE 6707 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 6712 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _varsIcomments- {-# LINE 6717 "src/GLua/AG/PrettyPrint.hs" #-}- )- _varsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 6722 "src/GLua/AG/PrettyPrint.hs" #-}- )- _varsOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 6727 "src/GLua/AG/PrettyPrint.hs" #-}- )- _varsOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 6732 "src/GLua/AG/PrettyPrint.hs" #-}- )- _varsOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 6737 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _varsIcomments,_varsIcopy,_varsIendsWithPrefixExpression,_varsIexprPretty,_varsIisDefined,_varsIisLast,_varsIisMultiline,_varsIpretty,_varsIstartsWithExprPrefixExpression,_varsIvarPretty) =- vars_ _varsOcomments _varsOforceMultiline _varsOindent _varsOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))-sem_Stat_AFuncCall :: T_PrefixExp ->- T_Stat-sem_Stat_AFuncCall fn_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIisLastStatement- _lhsIppconf- _lhsIstatRegion- _lhsIwouldBeAmbiguousWithoutSemicolon ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOendsWithPrefixExpression :: Bool- _fnOparentOperatorPrecedence :: OperatorLevel- _fnOparentOperatorAssociative :: Bool- _lhsOcopy :: Stat- _lhsOcomments :: ([MToken])- _fnOcomments :: ([MToken])- _fnOforceMultiline :: Bool- _fnOindent :: Int- _fnOppconf :: PrettyPrintConfig- _fnIcomments :: ([MToken])- _fnIcopy :: PrefixExp- _fnIisAssociative :: Bool- _fnIisLiteral :: Bool- _fnIisMultiline :: Bool- _fnIprecedence :: OperatorLevel- _fnIpretty :: Doc- _fnIstartsWithExprPrefixExpression :: Bool- _lhsOpretty =- ({-# LINE 679 "src/GLua/AG/PrettyPrint.ag" #-}- _fnIpretty <> _semicolon- {-# LINE 6775 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 680 "src/GLua/AG/PrettyPrint.ag" #-}- _fnIisMultiline- {-# LINE 6780 "src/GLua/AG/PrettyPrint.hs" #-}- )- _semicolon =- ({-# LINE 681 "src/GLua/AG/PrettyPrint.ag" #-}- if semicolons _lhsIppconf then zchr ';' else empty- {-# LINE 6785 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 682 "src/GLua/AG/PrettyPrint.ag" #-}- _fnIstartsWithExprPrefixExpression- {-# LINE 6790 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 683 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 6795 "src/GLua/AG/PrettyPrint.hs" #-}- )- _fnOparentOperatorPrecedence =- ({-# LINE 684 "src/GLua/AG/PrettyPrint.ag" #-}- TopLevelExpression- {-# LINE 6800 "src/GLua/AG/PrettyPrint.hs" #-}- )- _fnOparentOperatorAssociative =- ({-# LINE 685 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 6805 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AFuncCall _fnIcopy- {-# LINE 6810 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 6815 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _fnIcomments- {-# LINE 6820 "src/GLua/AG/PrettyPrint.hs" #-}- )- _fnOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 6825 "src/GLua/AG/PrettyPrint.hs" #-}- )- _fnOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 6830 "src/GLua/AG/PrettyPrint.hs" #-}- )- _fnOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 6835 "src/GLua/AG/PrettyPrint.hs" #-}- )- _fnOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 6840 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _fnIcomments,_fnIcopy,_fnIisAssociative,_fnIisLiteral,_fnIisMultiline,_fnIprecedence,_fnIpretty,_fnIstartsWithExprPrefixExpression) =- fn_ _fnOcomments _fnOforceMultiline _fnOindent _fnOparentOperatorAssociative _fnOparentOperatorPrecedence _fnOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))-sem_Stat_ALabel :: MToken ->- T_Stat-sem_Stat_ALabel lbl_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIisLastStatement- _lhsIppconf- _lhsIstatRegion- _lhsIwouldBeAmbiguousWithoutSemicolon ->- (let _lhsOpretty :: Doc- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _lhsOcopy :: Stat- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 687 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "::"- <> _whitespace- <> tok lbl_- <> _whitespace- <> zeroWidthText "::"- {-# LINE 6868 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 693 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 6873 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 694 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 6878 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 695 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 6883 "src/GLua/AG/PrettyPrint.hs" #-}- )- _whitespace =- ({-# LINE 696 "src/GLua/AG/PrettyPrint.ag" #-}- if spaceAfterLabel _lhsIppconf then zeroWidthText " " else empty- {-# LINE 6888 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- ALabel lbl_- {-# LINE 6893 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 6898 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 6903 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))-sem_Stat_ABreak :: T_Stat-sem_Stat_ABreak =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIisLastStatement- _lhsIppconf- _lhsIstatRegion- _lhsIwouldBeAmbiguousWithoutSemicolon ->- (let _lhsOpretty :: Doc- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _lhsOcopy :: Stat- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 698 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "break" <> _semicolon- {-# LINE 6924 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 699 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 6929 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 700 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 6934 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 701 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 6939 "src/GLua/AG/PrettyPrint.hs" #-}- )- _semicolon =- ({-# LINE 702 "src/GLua/AG/PrettyPrint.ag" #-}- if semicolons _lhsIppconf then zchr ';' else empty- {-# LINE 6944 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- ABreak- {-# LINE 6949 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 6954 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 6959 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))-sem_Stat_AContinue :: T_Stat-sem_Stat_AContinue =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIisLastStatement- _lhsIppconf- _lhsIstatRegion- _lhsIwouldBeAmbiguousWithoutSemicolon ->- (let _lhsOpretty :: Doc- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _lhsOcopy :: Stat- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 704 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "continue" <> _semicolon- {-# LINE 6980 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 705 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 6985 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 706 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 6990 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 707 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 6995 "src/GLua/AG/PrettyPrint.hs" #-}- )- _semicolon =- ({-# LINE 708 "src/GLua/AG/PrettyPrint.ag" #-}- if semicolons _lhsIppconf then zchr ';' else empty- {-# LINE 7000 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AContinue- {-# LINE 7005 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 7010 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 7015 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))-sem_Stat_AGoto :: MToken ->- T_Stat-sem_Stat_AGoto lbl_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIisLastStatement- _lhsIppconf- _lhsIstatRegion- _lhsIwouldBeAmbiguousWithoutSemicolon ->- (let _lhsOpretty :: Doc- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _lhsOcopy :: Stat- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 710 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "goto" <-> tok lbl_ <> _semicolon- {-# LINE 7037 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 711 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 7042 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 712 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 7047 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 713 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 7052 "src/GLua/AG/PrettyPrint.hs" #-}- )- _semicolon =- ({-# LINE 714 "src/GLua/AG/PrettyPrint.ag" #-}- if semicolons _lhsIppconf then zchr ';' else empty- {-# LINE 7057 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AGoto lbl_- {-# LINE 7062 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 7067 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 7072 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))-sem_Stat_ADo :: T_Block ->- T_Stat-sem_Stat_ADo body_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIisLastStatement- _lhsIppconf- _lhsIstatRegion- _lhsIwouldBeAmbiguousWithoutSemicolon ->- (let _lhsOisMultiline :: Bool- _lhsOpretty :: Doc- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOendsWithPrefixExpression :: Bool- _bodyOindent :: Int- _lhsOcopy :: Stat- _lhsOcomments :: ([MToken])- _bodyOcomments :: ([MToken])- _bodyOforceMultiline :: Bool- _bodyOppconf :: PrettyPrintConfig- _bodyOstatRegion :: Region- _bodyIcomments :: ([MToken])- _bodyIcopy :: Block- _bodyIisMultiline :: Bool- _bodyIpos :: Region- _bodyIpretty :: Doc- _bodyIstatementCount :: Int- _lhsOisMultiline =- ({-# LINE 716 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 7105 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpretty =- ({-# LINE 717 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "do"- $+$ _bodyIpretty- $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")- {-# LINE 7112 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 721 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 7117 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 722 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 7122 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOindent =- ({-# LINE 723 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent + 1- {-# LINE 7127 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- ADo _bodyIcopy- {-# LINE 7132 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 7137 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _bodyIcomments- {-# LINE 7142 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 7147 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 7152 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 7157 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOstatRegion =- ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIstatRegion- {-# LINE 7162 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =- body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))-sem_Stat_AWhile :: T_MExpr ->- T_Block ->- T_Stat-sem_Stat_AWhile cond_ body_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIisLastStatement- _lhsIppconf- _lhsIstatRegion- _lhsIwouldBeAmbiguousWithoutSemicolon ->- (let _lhsOisMultiline :: Bool- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOendsWithPrefixExpression :: Bool- _condOparentOperatorPrecedence :: OperatorLevel- _condOparentOperatorAssociative :: Bool- _lhsOpretty :: Doc- _bodyOindent :: Int- _lhsOcopy :: Stat- _lhsOcomments :: ([MToken])- _condOcomments :: ([MToken])- _condOforceMultiline :: Bool- _condOindent :: Int- _condOppconf :: PrettyPrintConfig- _bodyOcomments :: ([MToken])- _bodyOforceMultiline :: Bool- _bodyOppconf :: PrettyPrintConfig- _bodyOstatRegion :: Region- _condIcomments :: ([MToken])- _condIcopy :: MExpr- _condIendsWithPrefixExpression :: Bool- _condIisAssociative :: Bool- _condIisLiteral :: Bool- _condIisMultiline :: Bool- _condIpos :: Region- _condIprecedence :: OperatorLevel- _condIpretty :: Doc- _bodyIcomments :: ([MToken])- _bodyIcopy :: Block- _bodyIisMultiline :: Bool- _bodyIpos :: Region- _bodyIpretty :: Doc- _bodyIstatementCount :: Int- _lhsOisMultiline =- ({-# LINE 725 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 7213 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 726 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 7218 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 727 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 7223 "src/GLua/AG/PrettyPrint.hs" #-}- )- _condOparentOperatorPrecedence =- ({-# LINE 728 "src/GLua/AG/PrettyPrint.ag" #-}- TopLevelExpression- {-# LINE 7228 "src/GLua/AG/PrettyPrint.hs" #-}- )- _condOparentOperatorAssociative =- ({-# LINE 729 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 7233 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpretty =- ({-# LINE 730 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "while"- <-> _condIpretty- <-> zeroWidthText "do"- $+$ _bodyIpretty- $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")- {-# LINE 7242 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOindent =- ({-# LINE 736 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent + 1- {-# LINE 7247 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AWhile _condIcopy _bodyIcopy- {-# LINE 7252 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 7257 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _bodyIcomments- {-# LINE 7262 "src/GLua/AG/PrettyPrint.hs" #-}- )- _condOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 7267 "src/GLua/AG/PrettyPrint.hs" #-}- )- _condOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 7272 "src/GLua/AG/PrettyPrint.hs" #-}- )- _condOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 7277 "src/GLua/AG/PrettyPrint.hs" #-}- )- _condOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 7282 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _condIcomments- {-# LINE 7287 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 7292 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 7297 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOstatRegion =- ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIstatRegion- {-# LINE 7302 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _condIcomments,_condIcopy,_condIendsWithPrefixExpression,_condIisAssociative,_condIisLiteral,_condIisMultiline,_condIpos,_condIprecedence,_condIpretty) =- cond_ _condOcomments _condOforceMultiline _condOindent _condOparentOperatorAssociative _condOparentOperatorPrecedence _condOppconf- ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =- body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))-sem_Stat_ARepeat :: T_Block ->- T_MExpr ->- T_Stat-sem_Stat_ARepeat body_ cond_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIisLastStatement- _lhsIppconf- _lhsIstatRegion- _lhsIwouldBeAmbiguousWithoutSemicolon ->- (let _lhsOpretty :: Doc- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _bodyOindent :: Int- _condOparentOperatorPrecedence :: OperatorLevel- _condOparentOperatorAssociative :: Bool- _lhsOcopy :: Stat- _lhsOcomments :: ([MToken])- _bodyOcomments :: ([MToken])- _bodyOforceMultiline :: Bool- _bodyOppconf :: PrettyPrintConfig- _bodyOstatRegion :: Region- _condOcomments :: ([MToken])- _condOforceMultiline :: Bool- _condOindent :: Int- _condOppconf :: PrettyPrintConfig- _bodyIcomments :: ([MToken])- _bodyIcopy :: Block- _bodyIisMultiline :: Bool- _bodyIpos :: Region- _bodyIpretty :: Doc- _bodyIstatementCount :: Int- _condIcomments :: ([MToken])- _condIcopy :: MExpr- _condIendsWithPrefixExpression :: Bool- _condIisAssociative :: Bool- _condIisLiteral :: Bool- _condIisMultiline :: Bool- _condIpos :: Region- _condIprecedence :: OperatorLevel- _condIpretty :: Doc- _lhsOpretty =- ({-# LINE 738 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "repeat"- $+$ _bodyIpretty- $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "until" <-> _condIpretty)- {-# LINE 7357 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 742 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 7362 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 743 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 7367 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 744 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 7372 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOindent =- ({-# LINE 745 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent + 1- {-# LINE 7377 "src/GLua/AG/PrettyPrint.hs" #-}- )- _condOparentOperatorPrecedence =- ({-# LINE 746 "src/GLua/AG/PrettyPrint.ag" #-}- TopLevelExpression- {-# LINE 7382 "src/GLua/AG/PrettyPrint.hs" #-}- )- _condOparentOperatorAssociative =- ({-# LINE 747 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 7387 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- ARepeat _bodyIcopy _condIcopy- {-# LINE 7392 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 7397 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _condIcomments- {-# LINE 7402 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 7407 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 7412 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 7417 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOstatRegion =- ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIstatRegion- {-# LINE 7422 "src/GLua/AG/PrettyPrint.hs" #-}- )- _condOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _bodyIcomments- {-# LINE 7427 "src/GLua/AG/PrettyPrint.hs" #-}- )- _condOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 7432 "src/GLua/AG/PrettyPrint.hs" #-}- )- _condOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 7437 "src/GLua/AG/PrettyPrint.hs" #-}- )- _condOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 7442 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =- body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion- ( _condIcomments,_condIcopy,_condIendsWithPrefixExpression,_condIisAssociative,_condIisLiteral,_condIisMultiline,_condIpos,_condIprecedence,_condIpretty) =- cond_ _condOcomments _condOforceMultiline _condOindent _condOparentOperatorAssociative _condOparentOperatorPrecedence _condOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))-sem_Stat_AIf :: T_MExpr ->- T_Block ->- T_ElseIfList ->- T_Else ->- T_Stat-sem_Stat_AIf cond_ body_ elifs_ els_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIisLastStatement- _lhsIppconf- _lhsIstatRegion- _lhsIwouldBeAmbiguousWithoutSemicolon ->- (let _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOendsWithPrefixExpression :: Bool- _condOcomments :: ([MToken])- _condOparentOperatorPrecedence :: OperatorLevel- _condOparentOperatorAssociative :: Bool- _bodyOindent :: Int- _bodyOstatRegion :: Region- _lhsOpretty :: Doc- _lhsOcopy :: Stat- _lhsOcomments :: ([MToken])- _lhsOisMultiline :: Bool- _condOforceMultiline :: Bool- _condOindent :: Int- _condOppconf :: PrettyPrintConfig- _bodyOcomments :: ([MToken])- _bodyOforceMultiline :: Bool- _bodyOppconf :: PrettyPrintConfig- _elifsOcomments :: ([MToken])- _elifsOforceMultiline :: Bool- _elifsOindent :: Int- _elifsOppconf :: PrettyPrintConfig- _elsOcomments :: ([MToken])- _elsOforceMultiline :: Bool- _elsOindent :: Int- _elsOppconf :: PrettyPrintConfig- _elsOstatRegion :: Region- _condIcomments :: ([MToken])- _condIcopy :: MExpr- _condIendsWithPrefixExpression :: Bool- _condIisAssociative :: Bool- _condIisLiteral :: Bool- _condIisMultiline :: Bool- _condIpos :: Region- _condIprecedence :: OperatorLevel- _condIpretty :: Doc- _bodyIcomments :: ([MToken])- _bodyIcopy :: Block- _bodyIisMultiline :: Bool- _bodyIpos :: Region- _bodyIpretty :: Doc- _bodyIstatementCount :: Int- _elifsIcomments :: ([MToken])- _elifsIcopy :: ElseIfList- _elifsIelsesExist :: Bool- _elifsIisMultiline :: Bool- _elifsIpos :: Region- _elifsIpretty :: Doc- _elsIcomments :: ([MToken])- _elsIcopy :: Else- _elsIelsesExist :: Bool- _elsIisMultiline :: Bool- _elsIpos :: Region- _elsIpretty :: Doc- _isMultiline =- ({-# LINE 749 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- || _condIisMultiline- || _bodyIisMultiline- || _elifsIelsesExist- || _elsIelsesExist- || not (null $ fst _commentsAfterThen )- {-# LINE 7523 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 756 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 7528 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 757 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 7533 "src/GLua/AG/PrettyPrint.hs" #-}- )- _singleLinePretty =- ({-# LINE 758 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "if"- <-> _condIpretty- <-> zeroWidthText "then"- <-> _bodyIpretty- <-> zeroWidthText "end"- <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterThen )- {-# LINE 7543 "src/GLua/AG/PrettyPrint.hs" #-}- )- _multilinePretty =- ({-# LINE 765 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "if"- <-> _condIpretty- <-> zeroWidthText "then"- <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterThen )- $+$ _bodyIpretty- $+$ _elifsIpretty- $+$ _elsIpretty- $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")- {-# LINE 7555 "src/GLua/AG/PrettyPrint.hs" #-}- )- _commentsAfterThen =- ({-# LINE 775 "src/GLua/AG/PrettyPrint.ag" #-}- span (\(MToken pos _) -> pos `beforeOrOnLine` _bodyIpos) _lhsIcomments- {-# LINE 7560 "src/GLua/AG/PrettyPrint.hs" #-}- )- _condOcomments =- ({-# LINE 777 "src/GLua/AG/PrettyPrint.ag" #-}- snd _commentsAfterThen- {-# LINE 7565 "src/GLua/AG/PrettyPrint.hs" #-}- )- _condOparentOperatorPrecedence =- ({-# LINE 779 "src/GLua/AG/PrettyPrint.ag" #-}- TopLevelExpression- {-# LINE 7570 "src/GLua/AG/PrettyPrint.hs" #-}- )- _condOparentOperatorAssociative =- ({-# LINE 780 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 7575 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOindent =- ({-# LINE 781 "src/GLua/AG/PrettyPrint.ag" #-}- if _isMultiline then _lhsIindent + 1 else 0- {-# LINE 7580 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOstatRegion =- ({-# LINE 782 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIstatRegion `upto` _elifsIpos `upto` _elsIpos- {-# LINE 7585 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpretty =- ({-# LINE 783 "src/GLua/AG/PrettyPrint.ag" #-}- if _isMultiline then _multilinePretty else _singleLinePretty- {-# LINE 7590 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AIf _condIcopy _bodyIcopy _elifsIcopy _elsIcopy- {-# LINE 7595 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 7600 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _elsIcomments- {-# LINE 7605 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-}- _isMultiline- {-# LINE 7610 "src/GLua/AG/PrettyPrint.hs" #-}- )- _condOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 7615 "src/GLua/AG/PrettyPrint.hs" #-}- )- _condOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 7620 "src/GLua/AG/PrettyPrint.hs" #-}- )- _condOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 7625 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _condIcomments- {-# LINE 7630 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 7635 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 7640 "src/GLua/AG/PrettyPrint.hs" #-}- )- _elifsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _bodyIcomments- {-# LINE 7645 "src/GLua/AG/PrettyPrint.hs" #-}- )- _elifsOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 7650 "src/GLua/AG/PrettyPrint.hs" #-}- )- _elifsOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 7655 "src/GLua/AG/PrettyPrint.hs" #-}- )- _elifsOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 7660 "src/GLua/AG/PrettyPrint.hs" #-}- )- _elsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _elifsIcomments- {-# LINE 7665 "src/GLua/AG/PrettyPrint.hs" #-}- )- _elsOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 7670 "src/GLua/AG/PrettyPrint.hs" #-}- )- _elsOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 7675 "src/GLua/AG/PrettyPrint.hs" #-}- )- _elsOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 7680 "src/GLua/AG/PrettyPrint.hs" #-}- )- _elsOstatRegion =- ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIstatRegion- {-# LINE 7685 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _condIcomments,_condIcopy,_condIendsWithPrefixExpression,_condIisAssociative,_condIisLiteral,_condIisMultiline,_condIpos,_condIprecedence,_condIpretty) =- cond_ _condOcomments _condOforceMultiline _condOindent _condOparentOperatorAssociative _condOparentOperatorPrecedence _condOppconf- ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =- body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion- ( _elifsIcomments,_elifsIcopy,_elifsIelsesExist,_elifsIisMultiline,_elifsIpos,_elifsIpretty) =- elifs_ _elifsOcomments _elifsOforceMultiline _elifsOindent _elifsOppconf- ( _elsIcomments,_elsIcopy,_elsIelsesExist,_elsIisMultiline,_elsIpos,_elsIpretty) =- els_ _elsOcomments _elsOforceMultiline _elsOindent _elsOppconf _elsOstatRegion- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))-sem_Stat_ANFor :: MToken ->- T_MExpr ->- T_MExpr ->- T_MExpr ->- T_Block ->- T_Stat-sem_Stat_ANFor var_ val_ to_ step_ body_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIisLastStatement- _lhsIppconf- _lhsIstatRegion- _lhsIwouldBeAmbiguousWithoutSemicolon ->- (let _lhsOisMultiline :: Bool- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOpretty :: Doc- _valOcomments :: ([MToken])- _valOparentOperatorPrecedence :: OperatorLevel- _valOparentOperatorAssociative :: Bool- _toOparentOperatorPrecedence :: OperatorLevel- _toOparentOperatorAssociative :: Bool- _stepOparentOperatorPrecedence :: OperatorLevel- _stepOparentOperatorAssociative :: Bool- _bodyOindent :: Int- _lhsOcopy :: Stat- _lhsOcomments :: ([MToken])- _valOforceMultiline :: Bool- _valOindent :: Int- _valOppconf :: PrettyPrintConfig- _toOcomments :: ([MToken])- _toOforceMultiline :: Bool- _toOindent :: Int- _toOppconf :: PrettyPrintConfig- _stepOcomments :: ([MToken])- _stepOforceMultiline :: Bool- _stepOindent :: Int- _stepOppconf :: PrettyPrintConfig- _bodyOcomments :: ([MToken])- _bodyOforceMultiline :: Bool- _bodyOppconf :: PrettyPrintConfig- _bodyOstatRegion :: Region- _valIcomments :: ([MToken])- _valIcopy :: MExpr- _valIendsWithPrefixExpression :: Bool- _valIisAssociative :: Bool- _valIisLiteral :: Bool- _valIisMultiline :: Bool- _valIpos :: Region- _valIprecedence :: OperatorLevel- _valIpretty :: Doc- _toIcomments :: ([MToken])- _toIcopy :: MExpr- _toIendsWithPrefixExpression :: Bool- _toIisAssociative :: Bool- _toIisLiteral :: Bool- _toIisMultiline :: Bool- _toIpos :: Region- _toIprecedence :: OperatorLevel- _toIpretty :: Doc- _stepIcomments :: ([MToken])- _stepIcopy :: MExpr- _stepIendsWithPrefixExpression :: Bool- _stepIisAssociative :: Bool- _stepIisLiteral :: Bool- _stepIisMultiline :: Bool- _stepIpos :: Region- _stepIprecedence :: OperatorLevel- _stepIpretty :: Doc- _bodyIcomments :: ([MToken])- _bodyIcopy :: Block- _bodyIisMultiline :: Bool- _bodyIpos :: Region- _bodyIpretty :: Doc- _bodyIstatementCount :: Int- _lhsOisMultiline =- ({-# LINE 785 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 7775 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 786 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 7780 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 787 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 7785 "src/GLua/AG/PrettyPrint.hs" #-}- )- _step =- ({-# LINE 788 "src/GLua/AG/PrettyPrint.ag" #-}- case _stepIcopy of- MExpr _ (ANumber "1") -> empty- _ -> _comma <> _stepIpretty- {-# LINE 7792 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpretty =- ({-# LINE 791 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "for"- <-> tok var_- <-> zchr '='- <-> _valIpretty- <> _comma- <> _toIpretty- <> _step- <-> zeroWidthText "do"- <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFor )- $+$ _bodyIpretty- $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")- {-# LINE 7807 "src/GLua/AG/PrettyPrint.hs" #-}- )- _comma =- ({-# LINE 803 "src/GLua/AG/PrettyPrint.ag" #-}- (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)- <> zchr ','- <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)- {-# LINE 7814 "src/GLua/AG/PrettyPrint.hs" #-}- )- _commentsAfterFor =- ({-# LINE 807 "src/GLua/AG/PrettyPrint.ag" #-}- span (\(MToken pos _) -> pos `beforeOrOnLine` mpos var_) _lhsIcomments- {-# LINE 7819 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valOcomments =- ({-# LINE 809 "src/GLua/AG/PrettyPrint.ag" #-}- snd _commentsAfterFor- {-# LINE 7824 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valOparentOperatorPrecedence =- ({-# LINE 810 "src/GLua/AG/PrettyPrint.ag" #-}- TopLevelExpression- {-# LINE 7829 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valOparentOperatorAssociative =- ({-# LINE 811 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 7834 "src/GLua/AG/PrettyPrint.hs" #-}- )- _toOparentOperatorPrecedence =- ({-# LINE 812 "src/GLua/AG/PrettyPrint.ag" #-}- TopLevelExpression- {-# LINE 7839 "src/GLua/AG/PrettyPrint.hs" #-}- )- _toOparentOperatorAssociative =- ({-# LINE 813 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 7844 "src/GLua/AG/PrettyPrint.hs" #-}- )- _stepOparentOperatorPrecedence =- ({-# LINE 814 "src/GLua/AG/PrettyPrint.ag" #-}- TopLevelExpression- {-# LINE 7849 "src/GLua/AG/PrettyPrint.hs" #-}- )- _stepOparentOperatorAssociative =- ({-# LINE 815 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 7854 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOindent =- ({-# LINE 816 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent + 1- {-# LINE 7859 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- ANFor var_ _valIcopy _toIcopy _stepIcopy _bodyIcopy- {-# LINE 7864 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 7869 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _bodyIcomments- {-# LINE 7874 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 7879 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 7884 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 7889 "src/GLua/AG/PrettyPrint.hs" #-}- )- _toOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _valIcomments- {-# LINE 7894 "src/GLua/AG/PrettyPrint.hs" #-}- )- _toOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 7899 "src/GLua/AG/PrettyPrint.hs" #-}- )- _toOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 7904 "src/GLua/AG/PrettyPrint.hs" #-}- )- _toOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 7909 "src/GLua/AG/PrettyPrint.hs" #-}- )- _stepOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _toIcomments- {-# LINE 7914 "src/GLua/AG/PrettyPrint.hs" #-}- )- _stepOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 7919 "src/GLua/AG/PrettyPrint.hs" #-}- )- _stepOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 7924 "src/GLua/AG/PrettyPrint.hs" #-}- )- _stepOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 7929 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _stepIcomments- {-# LINE 7934 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 7939 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 7944 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOstatRegion =- ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIstatRegion- {-# LINE 7949 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _valIcomments,_valIcopy,_valIendsWithPrefixExpression,_valIisAssociative,_valIisLiteral,_valIisMultiline,_valIpos,_valIprecedence,_valIpretty) =- val_ _valOcomments _valOforceMultiline _valOindent _valOparentOperatorAssociative _valOparentOperatorPrecedence _valOppconf- ( _toIcomments,_toIcopy,_toIendsWithPrefixExpression,_toIisAssociative,_toIisLiteral,_toIisMultiline,_toIpos,_toIprecedence,_toIpretty) =- to_ _toOcomments _toOforceMultiline _toOindent _toOparentOperatorAssociative _toOparentOperatorPrecedence _toOppconf- ( _stepIcomments,_stepIcopy,_stepIendsWithPrefixExpression,_stepIisAssociative,_stepIisLiteral,_stepIisMultiline,_stepIpos,_stepIprecedence,_stepIpretty) =- step_ _stepOcomments _stepOforceMultiline _stepOindent _stepOparentOperatorAssociative _stepOparentOperatorPrecedence _stepOppconf- ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =- body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))-sem_Stat_AGFor :: ([MToken]) ->- T_MExprList ->- T_Block ->- T_Stat-sem_Stat_AGFor vars_ vals_ body_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIisLastStatement- _lhsIppconf- _lhsIstatRegion- _lhsIwouldBeAmbiguousWithoutSemicolon ->- (let _lhsOisMultiline :: Bool- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOpretty :: Doc- _bodyOindent :: Int- _valsOcomments :: ([MToken])- _valsOforceMultiline :: Bool- _valsOsomeElementsInListAreMultiline :: Bool- _lhsOcopy :: Stat- _lhsOcomments :: ([MToken])- _valsOindent :: Int- _valsOppconf :: PrettyPrintConfig- _bodyOcomments :: ([MToken])- _bodyOforceMultiline :: Bool- _bodyOppconf :: PrettyPrintConfig- _bodyOstatRegion :: Region- _valsIcomments :: ([MToken])- _valsIcopy :: MExprList- _valsIisAssociative :: Bool- _valsIisLast :: Bool- _valsIisMultiline :: Bool- _valsIpos :: Region- _valsIprecedence :: OperatorLevel- _valsIpretty :: Doc- _valsIstartsWithNewline :: Bool- _bodyIcomments :: ([MToken])- _bodyIcopy :: Block- _bodyIisMultiline :: Bool- _bodyIpos :: Region- _bodyIpretty :: Doc- _bodyIstatementCount :: Int- _lhsOisMultiline =- ({-# LINE 818 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 8006 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 819 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 8011 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 820 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 8016 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpretty =- ({-# LINE 821 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "for"- <-> printList tok (render _comma ) vars_- <-> zeroWidthText "in"- <-> _valsIpretty- <-> zeroWidthText "do"- <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFor )- $+$ _bodyIpretty- $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")- {-# LINE 8028 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOindent =- ({-# LINE 830 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent + 1- {-# LINE 8033 "src/GLua/AG/PrettyPrint.hs" #-}- )- _comma =- ({-# LINE 831 "src/GLua/AG/PrettyPrint.ag" #-}- (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)- <> zchr ','- <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)- {-# LINE 8040 "src/GLua/AG/PrettyPrint.hs" #-}- )- _commentsAfterFor =- ({-# LINE 835 "src/GLua/AG/PrettyPrint.ag" #-}- span (\(MToken pos _) -> pos `beforeOrOnLine` mpos (head vars_)) _lhsIcomments- {-# LINE 8045 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valsOcomments =- ({-# LINE 837 "src/GLua/AG/PrettyPrint.ag" #-}- snd _commentsAfterFor- {-# LINE 8050 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valsOforceMultiline =- ({-# LINE 839 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 8055 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valsOsomeElementsInListAreMultiline =- ({-# LINE 840 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 8060 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AGFor vars_ _valsIcopy _bodyIcopy- {-# LINE 8065 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 8070 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _bodyIcomments- {-# LINE 8075 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valsOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 8080 "src/GLua/AG/PrettyPrint.hs" #-}- )- _valsOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 8085 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _valsIcomments- {-# LINE 8090 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 8095 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 8100 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOstatRegion =- ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIstatRegion- {-# LINE 8105 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _valsIcomments,_valsIcopy,_valsIisAssociative,_valsIisLast,_valsIisMultiline,_valsIpos,_valsIprecedence,_valsIpretty,_valsIstartsWithNewline) =- vals_ _valsOcomments _valsOforceMultiline _valsOindent _valsOppconf _valsOsomeElementsInListAreMultiline- ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =- body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))-sem_Stat_AFunc :: T_FuncName ->- ([MToken]) ->- T_Block ->- T_Stat-sem_Stat_AFunc name_ args_ body_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIisLastStatement- _lhsIppconf- _lhsIstatRegion- _lhsIwouldBeAmbiguousWithoutSemicolon ->- (let _lhsOisMultiline :: Bool- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOpretty :: Doc- _nameOcomments :: ([MToken])- _bodyOindent :: Int- _lhsOcopy :: Stat- _lhsOcomments :: ([MToken])- _nameOindent :: Int- _nameOppconf :: PrettyPrintConfig- _bodyOcomments :: ([MToken])- _bodyOforceMultiline :: Bool- _bodyOppconf :: PrettyPrintConfig- _bodyOstatRegion :: Region- _nameIcomments :: ([MToken])- _nameIcopy :: FuncName- _nameIisMultiline :: Bool- _nameIpos :: Region- _nameIpretty :: Doc- _bodyIcomments :: ([MToken])- _bodyIcopy :: Block- _bodyIisMultiline :: Bool- _bodyIpos :: Region- _bodyIpretty :: Doc- _bodyIstatementCount :: Int- _lhsOisMultiline =- ({-# LINE 842 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 8152 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 843 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 8157 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 844 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 8162 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpretty =- ({-# LINE 845 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "function"- <-> _nameIpretty- <> parens _lhsIppconf _emptyParams (printList tok (render _comma ) args_)- <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFunc )- $+$ _bodyIpretty- $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")- {-# LINE 8172 "src/GLua/AG/PrettyPrint.hs" #-}- )- _commentsAfterFunc =- ({-# LINE 852 "src/GLua/AG/PrettyPrint.ag" #-}- span (\(MToken pos _) -> pos `beforeOrOnLine` _nameIpos) _lhsIcomments- {-# LINE 8177 "src/GLua/AG/PrettyPrint.hs" #-}- )- _nameOcomments =- ({-# LINE 854 "src/GLua/AG/PrettyPrint.ag" #-}- snd _commentsAfterFunc- {-# LINE 8182 "src/GLua/AG/PrettyPrint.hs" #-}- )- _emptyParams =- ({-# LINE 855 "src/GLua/AG/PrettyPrint.ag" #-}- toEmpty $ null args_- {-# LINE 8187 "src/GLua/AG/PrettyPrint.hs" #-}- )- _comma =- ({-# LINE 856 "src/GLua/AG/PrettyPrint.ag" #-}- (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)- <> zchr ','- <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)- {-# LINE 8194 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOindent =- ({-# LINE 860 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent + 1- {-# LINE 8199 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AFunc _nameIcopy args_ _bodyIcopy- {-# LINE 8204 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 8209 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _bodyIcomments- {-# LINE 8214 "src/GLua/AG/PrettyPrint.hs" #-}- )- _nameOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 8219 "src/GLua/AG/PrettyPrint.hs" #-}- )- _nameOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 8224 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _nameIcomments- {-# LINE 8229 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 8234 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 8239 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOstatRegion =- ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIstatRegion- {-# LINE 8244 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _nameIcomments,_nameIcopy,_nameIisMultiline,_nameIpos,_nameIpretty) =- name_ _nameOcomments _nameOindent _nameOppconf- ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =- body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))-sem_Stat_ALocFunc :: T_FuncName ->- ([MToken]) ->- T_Block ->- T_Stat-sem_Stat_ALocFunc name_ args_ body_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIisLastStatement- _lhsIppconf- _lhsIstatRegion- _lhsIwouldBeAmbiguousWithoutSemicolon ->- (let _lhsOisMultiline :: Bool- _lhsOpretty :: Doc- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOendsWithPrefixExpression :: Bool- _nameOcomments :: ([MToken])- _bodyOindent :: Int- _lhsOcopy :: Stat- _lhsOcomments :: ([MToken])- _nameOindent :: Int- _nameOppconf :: PrettyPrintConfig- _bodyOcomments :: ([MToken])- _bodyOforceMultiline :: Bool- _bodyOppconf :: PrettyPrintConfig- _bodyOstatRegion :: Region- _nameIcomments :: ([MToken])- _nameIcopy :: FuncName- _nameIisMultiline :: Bool- _nameIpos :: Region- _nameIpretty :: Doc- _bodyIcomments :: ([MToken])- _bodyIcopy :: Block- _bodyIisMultiline :: Bool- _bodyIpos :: Region- _bodyIpretty :: Doc- _bodyIstatementCount :: Int- _lhsOisMultiline =- ({-# LINE 862 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 8291 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOpretty =- ({-# LINE 863 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "local function"- <-> _nameIpretty- <> parens _lhsIppconf _emptyParams (printList tok (render _comma ) args_)- <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFunc )- $+$ _bodyIpretty- $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")- {-# LINE 8301 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 870 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 8306 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 871 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 8311 "src/GLua/AG/PrettyPrint.hs" #-}- )- _commentsAfterFunc =- ({-# LINE 872 "src/GLua/AG/PrettyPrint.ag" #-}- span (\(MToken pos _) -> pos `beforeOrOnLine` _nameIpos) _lhsIcomments- {-# LINE 8316 "src/GLua/AG/PrettyPrint.hs" #-}- )- _nameOcomments =- ({-# LINE 874 "src/GLua/AG/PrettyPrint.ag" #-}- snd _commentsAfterFunc- {-# LINE 8321 "src/GLua/AG/PrettyPrint.hs" #-}- )- _emptyParams =- ({-# LINE 875 "src/GLua/AG/PrettyPrint.ag" #-}- toEmpty $ null args_- {-# LINE 8326 "src/GLua/AG/PrettyPrint.hs" #-}- )- _comma =- ({-# LINE 876 "src/GLua/AG/PrettyPrint.ag" #-}- (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)- <> zchr ','- <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)- {-# LINE 8333 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOindent =- ({-# LINE 880 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent + 1- {-# LINE 8338 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- ALocFunc _nameIcopy args_ _bodyIcopy- {-# LINE 8343 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 8348 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _bodyIcomments- {-# LINE 8353 "src/GLua/AG/PrettyPrint.hs" #-}- )- _nameOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 8358 "src/GLua/AG/PrettyPrint.hs" #-}- )- _nameOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 8363 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _nameIcomments- {-# LINE 8368 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 8373 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 8378 "src/GLua/AG/PrettyPrint.hs" #-}- )- _bodyOstatRegion =- ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIstatRegion- {-# LINE 8383 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _nameIcomments,_nameIcopy,_nameIisMultiline,_nameIpos,_nameIpretty) =- name_ _nameOcomments _nameOindent _nameOppconf- ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =- body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))--- 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 = ([MToken]) ->- Int ->- PrettyPrintConfig ->- ( ([MToken]),UnOp,Bool,Doc)-data Inh_UnOp = Inh_UnOp {comments_Inh_UnOp :: ([MToken]),indent_Inh_UnOp :: Int,ppconf_Inh_UnOp :: PrettyPrintConfig}-data Syn_UnOp = Syn_UnOp {comments_Syn_UnOp :: ([MToken]),copy_Syn_UnOp :: UnOp,isMultiline_Syn_UnOp :: Bool,pretty_Syn_UnOp :: Doc}-wrap_UnOp :: T_UnOp ->- Inh_UnOp ->- Syn_UnOp-wrap_UnOp sem (Inh_UnOp _lhsIcomments _lhsIindent _lhsIppconf) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIcomments _lhsIindent _lhsIppconf- in (Syn_UnOp _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty))-sem_UnOp_UnMinus :: T_UnOp-sem_UnOp_UnMinus =- (\ _lhsIcomments- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOcopy :: UnOp- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1218 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "-"- {-# LINE 8425 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1219 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 8430 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- UnMinus- {-# LINE 8435 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 8440 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 8445 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))-sem_UnOp_ANot :: T_UnOp-sem_UnOp_ANot =- (\ _lhsIcomments- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOcopy :: UnOp- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1221 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText (if cStyle _lhsIppconf then "!" else "not ")- {-# LINE 8460 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1222 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 8465 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- ANot- {-# LINE 8470 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 8475 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 8480 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))-sem_UnOp_AHash :: T_UnOp-sem_UnOp_AHash =- (\ _lhsIcomments- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOisMultiline :: Bool- _lhsOcopy :: UnOp- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 1224 "src/GLua/AG/PrettyPrint.ag" #-}- zeroWidthText "#"- {-# LINE 8495 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 1225 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 8500 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- AHash- {-# LINE 8505 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 8510 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 8515 "src/GLua/AG/PrettyPrint.hs" #-}- )- in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))--- 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 = ([MToken]) ->- Bool ->- Int ->- PrettyPrintConfig ->- ( ([MToken]),VarsList,Bool,Doc,Bool,Bool,Bool,Doc,Bool,Doc)-data Inh_VarsList = Inh_VarsList {comments_Inh_VarsList :: ([MToken]),forceMultiline_Inh_VarsList :: Bool,indent_Inh_VarsList :: Int,ppconf_Inh_VarsList :: PrettyPrintConfig}-data Syn_VarsList = Syn_VarsList {comments_Syn_VarsList :: ([MToken]),copy_Syn_VarsList :: VarsList,endsWithPrefixExpression_Syn_VarsList :: Bool,exprPretty_Syn_VarsList :: Doc,isDefined_Syn_VarsList :: Bool,isLast_Syn_VarsList :: Bool,isMultiline_Syn_VarsList :: Bool,pretty_Syn_VarsList :: Doc,startsWithExprPrefixExpression_Syn_VarsList :: Bool,varPretty_Syn_VarsList :: Doc}-wrap_VarsList :: T_VarsList ->- Inh_VarsList ->- Syn_VarsList-wrap_VarsList sem (Inh_VarsList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =- (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf- in (Syn_VarsList _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOexprPretty _lhsOisDefined _lhsOisLast _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOvarPretty))-sem_VarsList_Cons :: T_Declaration ->- T_VarsList ->- T_VarsList-sem_VarsList_Cons hd_ tl_ =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _lhsOisLast :: Bool- _lhsOexprPretty :: Doc- _lhsOisDefined :: Bool- _lhsOvarPretty :: Doc- _lhsOcopy :: VarsList- _lhsOcomments :: ([MToken])- _hdOcomments :: ([MToken])- _hdOforceMultiline :: Bool- _hdOindent :: Int- _hdOppconf :: PrettyPrintConfig- _tlOcomments :: ([MToken])- _tlOforceMultiline :: Bool- _tlOindent :: Int- _tlOppconf :: PrettyPrintConfig- _hdIcomments :: ([MToken])- _hdIcopy :: Declaration- _hdIendsWithPrefixExpression :: Bool- _hdIexprPretty :: Doc- _hdIisDefined :: Bool- _hdIisMultiline :: Bool- _hdIpretty :: Doc- _hdIstartsWithExprPrefixExpression :: Bool- _hdIvarPretty :: Doc- _tlIcomments :: ([MToken])- _tlIcopy :: VarsList- _tlIendsWithPrefixExpression :: Bool- _tlIexprPretty :: Doc- _tlIisDefined :: Bool- _tlIisLast :: Bool- _tlIisMultiline :: Bool- _tlIpretty :: Doc- _tlIstartsWithExprPrefixExpression :: Bool- _tlIvarPretty :: Doc- _lhsOpretty =- ({-# LINE 550 "src/GLua/AG/PrettyPrint.ag" #-}- _varPretty- <-> if _isDefined then zchr '=' <-> _exprPretty else empty- {-# LINE 8587 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 553 "src/GLua/AG/PrettyPrint.ag" #-}- _hdIstartsWithExprPrefixExpression- {-# LINE 8592 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 554 "src/GLua/AG/PrettyPrint.ag" #-}- if _tlIisDefined then _tlIendsWithPrefixExpression else _hdIendsWithPrefixExpression- {-# LINE 8597 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 561 "src/GLua/AG/PrettyPrint.ag" #-}- _hdIisMultiline || _tlIisMultiline- {-# LINE 8602 "src/GLua/AG/PrettyPrint.hs" #-}- )- _isDefined =- ({-# LINE 562 "src/GLua/AG/PrettyPrint.ag" #-}- _hdIisDefined || _tlIisDefined- {-# LINE 8607 "src/GLua/AG/PrettyPrint.hs" #-}- )- _varPretty =- ({-# LINE 563 "src/GLua/AG/PrettyPrint.ag" #-}- _hdIvarPretty- <> (if _tlIisLast then empty else _comma )- <> _tlIvarPretty- {-# LINE 8614 "src/GLua/AG/PrettyPrint.hs" #-}- )- _exprPretty =- ({-# LINE 567 "src/GLua/AG/PrettyPrint.ag" #-}- _hdIexprPretty- <> (if not _tlIisLast && _tlIisDefined then _comma else empty)- <> _tlIexprPretty- {-# LINE 8621 "src/GLua/AG/PrettyPrint.hs" #-}- )- _comma =- ({-# LINE 571 "src/GLua/AG/PrettyPrint.ag" #-}- (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)- <> zchr ','- <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)- {-# LINE 8628 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLast =- ({-# LINE 575 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 8633 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOexprPretty =- ({-# LINE 288 "src/GLua/AG/PrettyPrint.ag" #-}- _exprPretty- {-# LINE 8638 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisDefined =- ({-# LINE 291 "src/GLua/AG/PrettyPrint.ag" #-}- _isDefined- {-# LINE 8643 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOvarPretty =- ({-# LINE 287 "src/GLua/AG/PrettyPrint.ag" #-}- _varPretty- {-# LINE 8648 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- (:) _hdIcopy _tlIcopy- {-# LINE 8653 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 8658 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _tlIcomments- {-# LINE 8663 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 8668 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 8673 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 8678 "src/GLua/AG/PrettyPrint.hs" #-}- )- _hdOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 8683 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _hdIcomments- {-# LINE 8688 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOforceMultiline =- ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIforceMultiline- {-# LINE 8693 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOindent =- ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIindent- {-# LINE 8698 "src/GLua/AG/PrettyPrint.hs" #-}- )- _tlOppconf =- ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIppconf- {-# LINE 8703 "src/GLua/AG/PrettyPrint.hs" #-}- )- ( _hdIcomments,_hdIcopy,_hdIendsWithPrefixExpression,_hdIexprPretty,_hdIisDefined,_hdIisMultiline,_hdIpretty,_hdIstartsWithExprPrefixExpression,_hdIvarPretty) =- hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf- ( _tlIcomments,_tlIcopy,_tlIendsWithPrefixExpression,_tlIexprPretty,_tlIisDefined,_tlIisLast,_tlIisMultiline,_tlIpretty,_tlIstartsWithExprPrefixExpression,_tlIvarPretty) =- tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf- in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty)))-sem_VarsList_Nil :: T_VarsList-sem_VarsList_Nil =- (\ _lhsIcomments- _lhsIforceMultiline- _lhsIindent- _lhsIppconf ->- (let _lhsOpretty :: Doc- _lhsOstartsWithExprPrefixExpression :: Bool- _lhsOendsWithPrefixExpression :: Bool- _lhsOisMultiline :: Bool- _lhsOisLast :: Bool- _lhsOexprPretty :: Doc- _lhsOisDefined :: Bool- _lhsOvarPretty :: Doc- _lhsOcopy :: VarsList- _lhsOcomments :: ([MToken])- _lhsOpretty =- ({-# LINE 577 "src/GLua/AG/PrettyPrint.ag" #-}- empty- {-# LINE 8729 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOstartsWithExprPrefixExpression =- ({-# LINE 578 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 8734 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOendsWithPrefixExpression =- ({-# LINE 579 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 8739 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisMultiline =- ({-# LINE 580 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 8744 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisLast =- ({-# LINE 581 "src/GLua/AG/PrettyPrint.ag" #-}- True- {-# LINE 8749 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOexprPretty =- ({-# LINE 288 "src/GLua/AG/PrettyPrint.ag" #-}- empty- {-# LINE 8754 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOisDefined =- ({-# LINE 291 "src/GLua/AG/PrettyPrint.ag" #-}- False- {-# LINE 8759 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOvarPretty =- ({-# LINE 287 "src/GLua/AG/PrettyPrint.ag" #-}- empty- {-# LINE 8764 "src/GLua/AG/PrettyPrint.hs" #-}- )- _copy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- []- {-# LINE 8769 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcopy =- ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}- _copy- {-# LINE 8774 "src/GLua/AG/PrettyPrint.hs" #-}- )- _lhsOcomments =- ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}- _lhsIcomments- {-# LINE 8779 "src/GLua/AG/PrettyPrint.hs" #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- UUAGC 0.9.56 (src/GLua/AG/PrettyPrint.ag)+module GLua.AG.PrettyPrint where++{-# LINE 9 "src/GLua/AG/AST.ag" #-}++import GLua.AG.Token+import GLua.Position+import GLua.TokenTypes ()+import Data.Aeson+{-# LINE 14 "src/GLua/AG/PrettyPrint.hs" #-}++{-# LINE 4 "src/GLua/AG/PrettyPrint.ag" #-}++import Prelude hiding ((<>))+import Data.List (foldl', isInfixOf)+import GLua.AG.AST+import GLua.Position+import Text.PrettyPrint hiding (parens, brackets, braces)+import GLua.TokenTypes+import Data.Maybe+import Text.Parsec+import Text.Parsec.Error+import Debug.Trace+{-# LINE 28 "src/GLua/AG/PrettyPrint.hs" #-}+{-# LINE 19 "src/GLua/AG/PrettyPrint.ag" #-}+++tok :: MToken -> Doc+tok (MToken _ t) = zeroWidthText . show $ t++printList :: (a -> Doc) -> String -> [a] -> Doc+printList _ _ [] = empty+printList f sep' (e : es) = (f e) <> g es+ where+ g [] = empty+ g (e' : es') = zeroWidthText sep' <> (f e') <> g es'++data IsEmpty = IsEmpty | NonEmpty++fromEmpty :: IsEmpty -> Bool+fromEmpty IsEmpty = True+fromEmpty NonEmpty = False++toEmpty :: Bool -> IsEmpty+toEmpty b = if b then IsEmpty else NonEmpty++data PrettyPrintConfig = PPConfig {+ spaceAfterParens :: Bool,+ spaceAfterBrackets :: Bool,+ spaceAfterBraces :: Bool,+ spaceEmptyParens :: Bool,+ spaceEmptyBraces :: Bool,+ spaceAfterLabel :: Bool,+ spaceBeforeComma :: Bool,+ spaceAfterComma :: Bool,+ semicolons :: Bool,+ cStyle :: Bool,+ removeRedundantParens :: Bool,+ minimizeParens :: Bool,+ assumeOperatorAssociativity :: Bool,+ indentation :: String+}++defaultPPConfig :: PrettyPrintConfig+defaultPPConfig = PPConfig {+ spaceAfterParens = False,+ spaceAfterBrackets = False,+ spaceAfterBraces = False,+ spaceEmptyParens = False,+ spaceEmptyBraces = False,+ spaceAfterLabel = False,+ spaceBeforeComma = False,+ spaceAfterComma = True,+ semicolons = False,+ cStyle = False,+ removeRedundantParens = True,+ assumeOperatorAssociativity = True,+ minimizeParens = False,+ indentation = " "+}++metaDoc :: Maybe MToken -> Doc+metaDoc (Just m) = zchr ':' <> tok m+metaDoc Nothing = empty++printVarList :: [(PrefixExp, Maybe MExpr)] -> Doc+printVarList vars =+ printList pp_prefixexp ", " (map fst vars)+ <-> zchr '='+ <-> printList pp_mexpr ", " (catMaybes . map snd $ vars)++printStats :: [MStat] -> Int -> Doc+printStats [] _ = empty+printStats (x : xs) i = nest (i * 4) (pp_mstat x i) $+$ printStats xs i++printElIfs :: [(MExpr, Block)] -> Int -> Doc+printElIfs [] _ = empty+printElIfs ((e, b) : es) i =+ zeroWidthText "elseif"+ <-> pp_mexpr e+ <-> zeroWidthText "then"+ $+$ pp_block b i+ $+$ printElIfs es i++printEls :: Maybe Block -> Int -> Doc+printEls Nothing _ = empty+printEls (Just b) i = zeroWidthText "else" $+$ pp_block b i+++renderPos :: LineColPos -> String+renderPos (LineColPos l c _) = "line " ++ show (succ l) ++ ", column " ++ show (succ c)++renderRegion :: Region -> String+renderRegion (Region l r) = renderPos l ++ " - " ++ renderPos r++renderSourcePos :: SourcePos -> String+renderSourcePos sp =+ "line "+ ++ (show . succ . sourceLine $ sp)+ ++ ", column "+ ++ (show . succ . sourceColumn $ sp)++getMStatPos :: MStat -> String+getMStatPos (MStat p _) = renderRegion p++getAReturnPos :: AReturn -> String+getAReturnPos (AReturn p _) = renderRegion p+getAReturnPos NoReturn = "<unknown>"++getMExprPos :: MExpr -> String+getMExprPos (MExpr p _) = renderRegion p++-- | Render comments on multiple lines+renderMLComments :: PrettyPrintConfig -> Int -> [MToken] -> Doc+renderMLComments conf ind toks =+ foldl' ($+$) empty . map (indent conf ind . tok . convertComment conf) $ toks++-- | Render comments, and prefer having them on a single line. It may not print comments on the same+-- line if that would cause a syntax error (e.g. a multiline comment after a single line comment)+renderSLComments :: PrettyPrintConfig -> Int -> [MToken] -> Doc+renderSLComments conf ind toks = foldl' combine empty . map (convertComment conf) $ toks+ where+ combine :: Doc -> MToken -> Doc+ combine acc mt@(MToken _pos t) =+ case t of+ -- Block comments after single line comments cannot be printed on the same line, as that+ -- would cause a syntax error, e.g. in this case:++ -- foo = { -- single line comment+ -- --[[multiline+ -- comment+ -- ]]+ -- }+ -- Make sure in these cases the comment is printed on a new line, rather than on the+ -- same line+ DashBlockComment _depth comment | '\n' `elem` comment ->+ acc $+$ (indent conf ind $ tok mt)+ SlashBlockComment comment | '\n' `elem` comment ->+ acc $+$ (indent conf ind $ tok mt)+ _ -> acc <-> tok mt++convertComment :: PrettyPrintConfig -> MToken -> MToken+convertComment conf (MToken p t) = MToken p $ convert' t+ where+ convert' :: Token -> Token+ convert' = if cStyle conf then cComment else luaComment++ luaComment :: Token -> Token+ luaComment (SlashComment s) = DashComment s+ luaComment (SlashBlockComment s) = DashBlockComment (lastBracket s) s+ luaComment t' = t'++ -- converting /*]*/ would end up in --[[]]] when plainly converted+ -- Deepen the block comment by 1 if that's the case+ lastBracket :: String -> Int+ lastBracket [] = 0+ lastBracket s = if last s == ']' then 1 else 0++ cComment :: Token -> Token+ cComment (DashComment s) = SlashComment s+ cComment (DashBlockComment _ s) = SlashBlockComment s+ cComment t' = t'++indent :: PrettyPrintConfig -> Int -> Doc -> Doc+indent conf n = (<>) $ zeroWidthText (concat . replicate n $ indentation conf)++parens :: PrettyPrintConfig -> IsEmpty -> Doc -> Doc+parens conf ie doc = zchr '(' `sep'` doc `sep'` zchr ')'+ where+ sep' :: Doc -> Doc -> Doc+ sep' =+ if spaceAfterParens conf && (not (fromEmpty ie) || spaceEmptyParens conf)+ then (<->)+ else (<>)++brackets :: PrettyPrintConfig -> Doc -> Doc+brackets conf doc = zchr '[' `sep'` doc `sep'` zchr ']'+ where+ sep' :: Doc -> Doc -> Doc+ sep' = if spaceAfterBrackets conf then (<->) else (<>)++braces :: PrettyPrintConfig -> IsEmpty -> Doc -> Doc+braces conf ie doc = zchr '{' `sep'` doc `sep'` zchr '}'+ where+ sep' :: Doc -> Doc -> Doc+ sep' =+ if spaceAfterBraces conf && (not (fromEmpty ie) || spaceEmptyBraces conf)+ then (<->)+ else (<>)++-- Zero width char+zchr :: Char -> Doc+zchr c = zeroWidthText [c]++-- Zero width <+>+infixl 6 <->+(<->) :: Doc -> Doc -> Doc+a <-> b | a == empty = b+ | b == empty = a+ | otherwise = a <> zchr ' ' <> b++-- Operator levels, where level 1 is the lowest level, and level 8 is the highest one+-- See http://www.lua.org/manual/5.2/manual.html#3.4.7+data OperatorLevel+ -- At the top level, there is no assigned operator level yet. This serves as a bottom value.+ = TopLevelExpression+ | OperatorLevel1+ | OperatorLevel2+ | OperatorLevel3+ | OperatorLevel4+ | OperatorLevel5+ | OperatorLevel6+ | OperatorLevel7+ | OperatorLevel8+ deriving (Eq, Ord)++-- | Returns true when any of the comments contain the string "format: multiline"+commentsForceMultiline :: [MToken] -> Bool+commentsForceMultiline commentTokens = any containsFormatMultiline commentTokens+ where+ containsFormatMultiline :: MToken -> Bool+ containsFormatMultiline (MToken _pos t) = case t of+ DashComment comment -> stringForcesFormat comment+ DashBlockComment _ comment -> stringForcesFormat comment+ SlashComment comment -> stringForcesFormat comment+ SlashBlockComment comment -> stringForcesFormat comment+ _ -> False++ stringForcesFormat :: String -> Bool+ stringForcesFormat s = "format: multiline" `isInfixOf` s++{-# LINE 256 "src/GLua/AG/PrettyPrint.hs" #-}++{-# LINE 1212 "src/GLua/AG/PrettyPrint.ag" #-}+++pp_block :: Block -> Int -> Doc+pp_block p i = pretty_Syn_Block (wrap_Block (sem_Block p) (emptyInh_Block {indent_Inh_Block = i}))++pp_mstat :: MStat -> Int -> Doc+pp_mstat p i = pretty_Syn_MStat (wrap_MStat (sem_MStat p) emptyInh_MStat {indent_Inh_MStat = i})++pp_prefixexp :: PrefixExp -> Doc+pp_prefixexp p = pretty_Syn_PrefixExp (wrap_PrefixExp (sem_PrefixExp p) emptyInh_PrefixExp)++pp_pfexprsuffix :: PFExprSuffix -> Doc+pp_pfexprsuffix p =+ pretty_Syn_PFExprSuffix (wrap_PFExprSuffix (sem_PFExprSuffix p) emptyInh_PFExprSuffix)++pp_field :: Field -> Doc+pp_field p = pretty_Syn_Field (wrap_Field (sem_Field p) emptyInh_Field)++pp_mexpr :: MExpr -> Doc+pp_mexpr p = pretty_Syn_MExpr (wrap_MExpr (sem_MExpr p) emptyInh_MExpr)++prettyprint :: AST -> String+prettyprint p = render $ pretty_Syn_AST (wrap_AST (sem_AST p) emptyInh_AST)++prettyprintConf :: PrettyPrintConfig -> AST -> String+prettyprintConf conf p =+ render $ pretty_Syn_AST (wrap_AST (sem_AST p) emptyInh_AST {ppconf_Inh_AST = conf})++renderBlock :: Block -> String+renderBlock p = render $ pretty_Syn_Block (wrap_Block (sem_Block p) emptyInh_Block)++renderStat :: Stat -> String+renderStat p = render $ pretty_Syn_Stat (wrap_Stat (sem_Stat p) emptyInh_Stat)++renderMStat :: MStat -> String+renderMStat p = render $ pretty_Syn_MStat (wrap_MStat (sem_MStat p) emptyInh_MStat)++renderAReturn :: AReturn -> String+renderAReturn p = render $ pretty_Syn_AReturn (wrap_AReturn (sem_AReturn p) emptyInh_AReturn)++renderFuncName :: FuncName -> String+renderFuncName p = render $ pretty_Syn_FuncName (wrap_FuncName (sem_FuncName p) emptyInh_FuncName)++renderPrefixExp :: PrefixExp -> String+renderPrefixExp p =+ render $ pretty_Syn_PrefixExp (wrap_PrefixExp (sem_PrefixExp p) emptyInh_PrefixExp)++renderExpr :: Expr -> String+renderExpr p = render $ pretty_Syn_Expr (wrap_Expr (sem_Expr p) emptyInh_Expr)++renderMExpr :: MExpr -> String+renderMExpr p = render $ pretty_Syn_MExpr (wrap_MExpr (sem_MExpr p) emptyInh_MExpr)++renderArgs :: Args -> String+renderArgs p = render $ pretty_Syn_Args (wrap_Args (sem_Args p) emptyInh_Args)++renderField :: Field -> String+renderField p = render $ pretty_Syn_Field (wrap_Field (sem_Field p) emptyInh_Field)++emptyInh_Field :: Inh_Field+emptyInh_Field =+ Inh_Field+ { comments_Inh_Field = []+ , forceMultiline_Inh_Field = False+ , indent_Inh_Field = 0+ , ppconf_Inh_Field = defaultPPConfig+ }++emptyInh_Args :: Inh_Args+emptyInh_Args =+ Inh_Args+ { comments_Inh_Args = []+ , forceMultiline_Inh_Args = False+ , indent_Inh_Args = 0+ , ppconf_Inh_Args = defaultPPConfig+ }++emptyInh_MExpr :: Inh_MExpr+emptyInh_MExpr =+ Inh_MExpr+ { comments_Inh_MExpr = []+ , forceMultiline_Inh_MExpr = False+ , indent_Inh_MExpr = 0+ , parentOperatorAssociative_Inh_MExpr = True+ , parentOperatorPrecedence_Inh_MExpr = TopLevelExpression+ , ppconf_Inh_MExpr = defaultPPConfig+ }++emptyInh_Expr :: Inh_Expr+emptyInh_Expr =+ Inh_Expr+ { comments_Inh_Expr = []+ , forceMultiline_Inh_Expr = False+ , indent_Inh_Expr = 0+ , parentOperatorAssociative_Inh_Expr = True+ , parentOperatorPrecedence_Inh_Expr = TopLevelExpression+ , ppconf_Inh_Expr = defaultPPConfig+ , statRegion_Inh_Expr = emptyRg+ }++emptyInh_PrefixExp :: Inh_PrefixExp+emptyInh_PrefixExp =+ Inh_PrefixExp+ { comments_Inh_PrefixExp = []+ , forceMultiline_Inh_PrefixExp = False+ , indent_Inh_PrefixExp = 0+ , parentOperatorAssociative_Inh_PrefixExp = True+ , parentOperatorPrecedence_Inh_PrefixExp = TopLevelExpression+ , ppconf_Inh_PrefixExp = defaultPPConfig+ }++emptyInh_FuncName :: Inh_FuncName+emptyInh_FuncName =+ Inh_FuncName+ { comments_Inh_FuncName = []+ , indent_Inh_FuncName = 0+ , ppconf_Inh_FuncName = defaultPPConfig+ }++emptyInh_AReturn :: Inh_AReturn+emptyInh_AReturn =+ Inh_AReturn+ { comments_Inh_AReturn = []+ , forceMultiline_Inh_AReturn = False+ , indent_Inh_AReturn = 0+ , ppconf_Inh_AReturn = defaultPPConfig+ }++emptyInh_MStat :: Inh_MStat+emptyInh_MStat =+ Inh_MStat+ { comments_Inh_MStat = []+ , forceMultiline_Inh_MStat = False+ , indent_Inh_MStat = 0+ , isLastStatement_Inh_MStat = False+ , ppconf_Inh_MStat = defaultPPConfig+ , wouldBeAmbiguousWithoutSemicolon_Inh_MStat = False+ }++emptyInh_Stat :: Inh_Stat+emptyInh_Stat =+ Inh_Stat+ { comments_Inh_Stat = []+ , forceMultiline_Inh_Stat = False+ , indent_Inh_Stat = 0+ , isLastStatement_Inh_Stat = False+ , ppconf_Inh_Stat = defaultPPConfig+ , statRegion_Inh_Stat = emptyRg+ , wouldBeAmbiguousWithoutSemicolon_Inh_Stat = False+ }++emptyInh_Block :: Inh_Block+emptyInh_Block =+ Inh_Block+ { comments_Inh_Block = []+ , forceMultiline_Inh_Block = False+ , indent_Inh_Block = 0+ , ppconf_Inh_Block = defaultPPConfig+ , statRegion_Inh_Block = emptyRg+ }++emptyInh_AST :: Inh_AST+emptyInh_AST =+ Inh_AST+ { indent_Inh_AST = 0+ , ppconf_Inh_AST = defaultPPConfig+ }++emptyInh_PFExprSuffix :: Inh_PFExprSuffix+emptyInh_PFExprSuffix =+ Inh_PFExprSuffix+ { comments_Inh_PFExprSuffix = []+ , forceMultiline_Inh_PFExprSuffix = False+ , indent_Inh_PFExprSuffix = 0+ , ppconf_Inh_PFExprSuffix = defaultPPConfig+ }++{-# LINE 436 "src/GLua/AG/PrettyPrint.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 = ([MToken]) ->+ Bool ->+ Int ->+ PrettyPrintConfig ->+ ( ([MToken]),AReturn,Bool,Doc,Int)+data Inh_AReturn = Inh_AReturn {comments_Inh_AReturn :: ([MToken]),forceMultiline_Inh_AReturn :: Bool,indent_Inh_AReturn :: Int,ppconf_Inh_AReturn :: PrettyPrintConfig}+data Syn_AReturn = Syn_AReturn {comments_Syn_AReturn :: ([MToken]),copy_Syn_AReturn :: AReturn,isMultiline_Syn_AReturn :: Bool,pretty_Syn_AReturn :: Doc,statementCount_Syn_AReturn :: Int}+wrap_AReturn :: T_AReturn ->+ Inh_AReturn ->+ Syn_AReturn+wrap_AReturn sem (Inh_AReturn _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+ in (Syn_AReturn _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty _lhsOstatementCount))+sem_AReturn_AReturn :: Region ->+ T_MExprList ->+ T_AReturn+sem_AReturn_AReturn pos_ values_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _valuesOcomments :: ([MToken])+ _lhsOcomments :: ([MToken])+ _valuesOforceMultiline :: Bool+ _valuesOsomeElementsInListAreMultiline :: Bool+ _lhsOstatementCount :: Int+ _lhsOcopy :: AReturn+ _valuesOindent :: Int+ _valuesOppconf :: PrettyPrintConfig+ _valuesIcomments :: ([MToken])+ _valuesIcopy :: MExprList+ _valuesIisAssociative :: Bool+ _valuesIisLast :: Bool+ _valuesIisMultiline :: Bool+ _valuesIpos :: Region+ _valuesIprecedence :: OperatorLevel+ _valuesIpretty :: Doc+ _valuesIstartsWithNewline :: Bool+ _lhsOpretty =+ ({-# LINE 869 "src/GLua/AG/PrettyPrint.ag" #-}+ renderMLComments _lhsIppconf _lhsIindent (fst _commentsBefore )+ $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "return")+ `_sep ` _valuesIpretty+ <> _semicolon+ <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter )+ {-# LINE 493 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 875 "src/GLua/AG/PrettyPrint.ag" #-}+ _valuesIisMultiline+ || not (null $ fst _commentsBefore )+ || not (null $ fst _commentsAfter )+ {-# LINE 500 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _sep =+ ({-# LINE 879 "src/GLua/AG/PrettyPrint.ag" #-}+ if _valuesIstartsWithNewline then (<>) else (<->)+ {-# LINE 505 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _semicolon =+ ({-# LINE 880 "src/GLua/AG/PrettyPrint.ag" #-}+ if semicolons _lhsIppconf then zchr ';' else empty+ {-# LINE 510 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _commentsBefore =+ ({-# LINE 881 "src/GLua/AG/PrettyPrint.ag" #-}+ span (\(MToken pos _) -> pos `before` pos_) _lhsIcomments+ {-# LINE 515 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valuesOcomments =+ ({-# LINE 882 "src/GLua/AG/PrettyPrint.ag" #-}+ snd _commentsBefore+ {-# LINE 520 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _commentsAfter =+ ({-# LINE 883 "src/GLua/AG/PrettyPrint.ag" #-}+ span (\(MToken pos _) -> pos `beforeOrOnLine` (rgOr _valuesIpos pos_)) _valuesIcomments+ {-# LINE 525 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 885 "src/GLua/AG/PrettyPrint.ag" #-}+ snd _commentsAfter+ {-# LINE 530 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valuesOforceMultiline =+ ({-# LINE 889 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 535 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valuesOsomeElementsInListAreMultiline =+ ({-# LINE 890 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 540 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstatementCount =+ ({-# LINE 891 "src/GLua/AG/PrettyPrint.ag" #-}+ 1+ {-# LINE 545 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AReturn pos_ _valuesIcopy+ {-# LINE 550 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 555 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valuesOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 560 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valuesOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 565 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _valuesIcomments,_valuesIcopy,_valuesIisAssociative,_valuesIisLast,_valuesIisMultiline,_valuesIpos,_valuesIprecedence,_valuesIpretty,_valuesIstartsWithNewline) =+ values_ _valuesOcomments _valuesOforceMultiline _valuesOindent _valuesOppconf _valuesOsomeElementsInListAreMultiline+ in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty,_lhsOstatementCount)))+sem_AReturn_NoReturn :: T_AReturn+sem_AReturn_NoReturn =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOstatementCount :: Int+ _lhsOisMultiline :: Bool+ _lhsOcopy :: AReturn+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 893 "src/GLua/AG/PrettyPrint.ag" #-}+ empty+ {-# LINE 584 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstatementCount =+ ({-# LINE 894 "src/GLua/AG/PrettyPrint.ag" #-}+ 0+ {-# LINE 589 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 895 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 594 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ NoReturn+ {-# LINE 599 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 604 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 609 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty,_lhsOstatementCount)))+-- AST ---------------------------------------------------------+-- cata+sem_AST :: AST ->+ T_AST+sem_AST (AST _comments _chunk) =+ (sem_AST_AST _comments (sem_Block _chunk))+-- semantic domain+type T_AST = Int ->+ PrettyPrintConfig ->+ ( AST,Bool,Doc)+data Inh_AST = Inh_AST {indent_Inh_AST :: Int,ppconf_Inh_AST :: PrettyPrintConfig}+data Syn_AST = Syn_AST {copy_Syn_AST :: AST,isMultiline_Syn_AST :: Bool,pretty_Syn_AST :: Doc}+wrap_AST :: T_AST ->+ Inh_AST ->+ Syn_AST+wrap_AST sem (Inh_AST _lhsIindent _lhsIppconf) =+ (let ( _lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIindent _lhsIppconf+ in (Syn_AST _lhsOcopy _lhsOisMultiline _lhsOpretty))+sem_AST_AST :: ([MToken]) ->+ T_Block ->+ T_AST+sem_AST_AST comments_ chunk_ =+ (\ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _chunkOcomments :: ([MToken])+ _chunkOstatRegion :: Region+ _chunkOforceMultiline :: Bool+ _lhsOcopy :: AST+ _chunkOindent :: Int+ _chunkOppconf :: PrettyPrintConfig+ _chunkIcomments :: ([MToken])+ _chunkIcopy :: Block+ _chunkIisMultiline :: Bool+ _chunkIpos :: Region+ _chunkIpretty :: Doc+ _chunkIstatementCount :: Int+ _lhsOpretty =+ ({-# LINE 624 "src/GLua/AG/PrettyPrint.ag" #-}+ _chunkIpretty $+$ _prettyComments+ {-# LINE 653 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 625 "src/GLua/AG/PrettyPrint.ag" #-}+ _chunkIisMultiline+ {-# LINE 658 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _prettyComments =+ ({-# LINE 626 "src/GLua/AG/PrettyPrint.ag" #-}+ renderMLComments _lhsIppconf _lhsIindent _chunkIcomments+ {-# LINE 663 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _chunkOcomments =+ ({-# LINE 627 "src/GLua/AG/PrettyPrint.ag" #-}+ comments_+ {-# LINE 668 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _chunkOstatRegion =+ ({-# LINE 628 "src/GLua/AG/PrettyPrint.ag" #-}+ emptyRg+ {-# LINE 673 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _chunkOforceMultiline =+ ({-# LINE 629 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 678 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AST comments_ _chunkIcopy+ {-# LINE 683 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 688 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _chunkOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 693 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _chunkOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 698 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _chunkIcomments,_chunkIcopy,_chunkIisMultiline,_chunkIpos,_chunkIpretty,_chunkIstatementCount) =+ chunk_ _chunkOcomments _chunkOforceMultiline _chunkOindent _chunkOppconf _chunkOstatRegion+ in ( _lhsOcopy,_lhsOisMultiline,_lhsOpretty)))+-- 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 _arg)+-- semantic domain+type T_Args = ([MToken]) ->+ Bool ->+ Int ->+ PrettyPrintConfig ->+ ( ([MToken]),Args,Bool,Doc)+data Inh_Args = Inh_Args {comments_Inh_Args :: ([MToken]),forceMultiline_Inh_Args :: Bool,indent_Inh_Args :: Int,ppconf_Inh_Args :: PrettyPrintConfig}+data Syn_Args = Syn_Args {comments_Syn_Args :: ([MToken]),copy_Syn_Args :: Args,isMultiline_Syn_Args :: Bool,pretty_Syn_Args :: Doc}+wrap_Args :: T_Args ->+ Inh_Args ->+ Syn_Args+wrap_Args sem (Inh_Args _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+ in (Syn_Args _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty))+sem_Args_ListArgs :: T_MExprList ->+ T_Args+sem_Args_ListArgs args_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _argsOindent :: Int+ _argsOsomeElementsInListAreMultiline :: Bool+ _lhsOcopy :: Args+ _lhsOcomments :: ([MToken])+ _argsOcomments :: ([MToken])+ _argsOforceMultiline :: Bool+ _argsOppconf :: PrettyPrintConfig+ _argsIcomments :: ([MToken])+ _argsIcopy :: MExprList+ _argsIisAssociative :: Bool+ _argsIisLast :: Bool+ _argsIisMultiline :: Bool+ _argsIpos :: Region+ _argsIprecedence :: OperatorLevel+ _argsIpretty :: Doc+ _argsIstartsWithNewline :: Bool+ _lhsOpretty =+ ({-# LINE 1068 "src/GLua/AG/PrettyPrint.ag" #-}+ if _lhsIforceMultiline then+ zchr '(' $+$+ _argsIpretty $+$+ indent _lhsIppconf _lhsIindent (zchr ')')+ else+ parens _lhsIppconf _emptyParams _argsIpretty+ {-# LINE 760 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1075 "src/GLua/AG/PrettyPrint.ag" #-}+ _argsIisMultiline+ {-# LINE 765 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _emptyParams =+ ({-# LINE 1076 "src/GLua/AG/PrettyPrint.ag" #-}+ toEmpty $ null _argsIcopy+ {-# LINE 770 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _argsOindent =+ ({-# LINE 1077 "src/GLua/AG/PrettyPrint.ag" #-}+ if _lhsIforceMultiline then _lhsIindent + 1 else _lhsIindent+ {-# LINE 775 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _argsOsomeElementsInListAreMultiline =+ ({-# LINE 1078 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 780 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ ListArgs _argsIcopy+ {-# LINE 785 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 790 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _argsIcomments+ {-# LINE 795 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _argsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 800 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _argsOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 805 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _argsOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 810 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _argsIcomments,_argsIcopy,_argsIisAssociative,_argsIisLast,_argsIisMultiline,_argsIpos,_argsIprecedence,_argsIpretty,_argsIstartsWithNewline) =+ args_ _argsOcomments _argsOforceMultiline _argsOindent _argsOppconf _argsOsomeElementsInListAreMultiline+ in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))+sem_Args_TableArg :: T_FieldList ->+ T_Args+sem_Args_TableArg arg_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _argOindent :: Int+ _argOsomeElementsInListAreMultiline :: Bool+ _lhsOcopy :: Args+ _lhsOcomments :: ([MToken])+ _argOcomments :: ([MToken])+ _argOforceMultiline :: Bool+ _argOppconf :: PrettyPrintConfig+ _argIcomments :: ([MToken])+ _argIcopy :: FieldList+ _argIisMultiline :: Bool+ _argIisNil :: Bool+ _argIpretty :: Doc+ _lhsOpretty =+ ({-# LINE 1080 "src/GLua/AG/PrettyPrint.ag" #-}+ if _argIisMultiline then _prettyMulti else _prettySingle+ {-# LINE 839 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1081 "src/GLua/AG/PrettyPrint.ag" #-}+ _argIisMultiline+ {-# LINE 844 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _prettyMulti =+ ({-# LINE 1082 "src/GLua/AG/PrettyPrint.ag" #-}+ zchr '{' $+$ _argIpretty $+$ indent _lhsIppconf _lhsIindent (zchr '}')+ {-# LINE 849 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _prettySingle =+ ({-# LINE 1083 "src/GLua/AG/PrettyPrint.ag" #-}+ braces _lhsIppconf _emptyContents _argIpretty+ {-# LINE 854 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _emptyContents =+ ({-# LINE 1084 "src/GLua/AG/PrettyPrint.ag" #-}+ toEmpty $ null _argIcopy+ {-# LINE 859 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _argOindent =+ ({-# LINE 1085 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent + (if _argIisMultiline then 1 else 0)+ {-# LINE 864 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _argOsomeElementsInListAreMultiline =+ ({-# LINE 1086 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 869 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ TableArg _argIcopy+ {-# LINE 874 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 879 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _argIcomments+ {-# LINE 884 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _argOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 889 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _argOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 894 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _argOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 899 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _argIcomments,_argIcopy,_argIisMultiline,_argIisNil,_argIpretty) =+ arg_ _argOcomments _argOforceMultiline _argOindent _argOppconf _argOsomeElementsInListAreMultiline+ in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))+sem_Args_StringArg :: MToken ->+ T_Args+sem_Args_StringArg arg_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOcopy :: Args+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1088 "src/GLua/AG/PrettyPrint.ag" #-}+ tok arg_+ {-# LINE 918 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1089 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 923 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ StringArg arg_+ {-# LINE 928 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 933 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 938 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))+-- 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 = ([MToken]) ->+ Int ->+ PrettyPrintConfig ->+ ( ([MToken]),BinOp,Bool,Bool,OperatorLevel,Doc)+data Inh_BinOp = Inh_BinOp {comments_Inh_BinOp :: ([MToken]),indent_Inh_BinOp :: Int,ppconf_Inh_BinOp :: PrettyPrintConfig}+data Syn_BinOp = Syn_BinOp {comments_Syn_BinOp :: ([MToken]),copy_Syn_BinOp :: BinOp,isAssociative_Syn_BinOp :: Bool,isMultiline_Syn_BinOp :: Bool,precedence_Syn_BinOp :: OperatorLevel,pretty_Syn_BinOp :: Doc}+wrap_BinOp :: T_BinOp ->+ Inh_BinOp ->+ Syn_BinOp+wrap_BinOp sem (Inh_BinOp _lhsIcomments _lhsIindent _lhsIppconf) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIindent _lhsIppconf+ in (Syn_BinOp _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisMultiline _lhsOprecedence _lhsOpretty))+sem_BinOp_AOr :: T_BinOp+sem_BinOp_AOr =+ (\ _lhsIcomments+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOisAssociative :: Bool+ _lhsOcopy :: BinOp+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1196 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText (if cStyle _lhsIppconf then "||" else "or")+ {-# LINE 1002 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1197 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 1007 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 1198 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel1+ {-# LINE 1012 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 1199 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 1017 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AOr+ {-# LINE 1022 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 1027 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 1032 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_AAnd :: T_BinOp+sem_BinOp_AAnd =+ (\ _lhsIcomments+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOisAssociative :: Bool+ _lhsOcopy :: BinOp+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1191 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText (if cStyle _lhsIppconf then "&&" else "and")+ {-# LINE 1049 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1192 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 1054 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 1193 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel2+ {-# LINE 1059 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 1194 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 1064 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AAnd+ {-# LINE 1069 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 1074 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 1079 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_ALT :: T_BinOp+sem_BinOp_ALT =+ (\ _lhsIcomments+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOisAssociative :: Bool+ _lhsOcopy :: BinOp+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1161 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "<"+ {-# LINE 1096 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1162 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 1101 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 1163 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel3+ {-# LINE 1106 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 1164 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 1111 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ ALT+ {-# LINE 1116 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 1121 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 1126 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_AGT :: T_BinOp+sem_BinOp_AGT =+ (\ _lhsIcomments+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOisAssociative :: Bool+ _lhsOcopy :: BinOp+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1171 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText ">"+ {-# LINE 1143 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1172 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 1148 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 1173 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel3+ {-# LINE 1153 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 1174 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 1158 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AGT+ {-# LINE 1163 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 1168 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 1173 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_ALEQ :: T_BinOp+sem_BinOp_ALEQ =+ (\ _lhsIcomments+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOisAssociative :: Bool+ _lhsOcopy :: BinOp+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1166 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "<="+ {-# LINE 1190 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1167 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 1195 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 1168 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel3+ {-# LINE 1200 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 1169 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 1205 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ ALEQ+ {-# LINE 1210 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 1215 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 1220 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_AGEQ :: T_BinOp+sem_BinOp_AGEQ =+ (\ _lhsIcomments+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOisAssociative :: Bool+ _lhsOcopy :: BinOp+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1176 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText ">="+ {-# LINE 1237 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1177 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 1242 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 1178 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel3+ {-# LINE 1247 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 1179 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 1252 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AGEQ+ {-# LINE 1257 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 1262 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 1267 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_ANEq :: T_BinOp+sem_BinOp_ANEq =+ (\ _lhsIcomments+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOisAssociative :: Bool+ _lhsOcopy :: BinOp+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1186 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText (if cStyle _lhsIppconf then "!=" else "~=")+ {-# LINE 1284 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1187 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 1289 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 1188 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel3+ {-# LINE 1294 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 1189 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 1299 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ ANEq+ {-# LINE 1304 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 1309 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 1314 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_AEq :: T_BinOp+sem_BinOp_AEq =+ (\ _lhsIcomments+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOisAssociative :: Bool+ _lhsOcopy :: BinOp+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1181 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "=="+ {-# LINE 1331 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1182 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 1336 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 1183 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel3+ {-# LINE 1341 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 1184 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 1346 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AEq+ {-# LINE 1351 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 1356 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 1361 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_AConcatenate :: T_BinOp+sem_BinOp_AConcatenate =+ (\ _lhsIcomments+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOisAssociative :: Bool+ _lhsOcopy :: BinOp+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1156 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText ".."+ {-# LINE 1378 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1157 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 1383 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 1158 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel4+ {-# LINE 1388 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 1159 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 1393 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AConcatenate+ {-# LINE 1398 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 1403 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 1408 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_APlus :: T_BinOp+sem_BinOp_APlus =+ (\ _lhsIcomments+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOisAssociative :: Bool+ _lhsOcopy :: BinOp+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1126 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "+"+ {-# LINE 1425 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1127 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 1430 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 1128 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel5+ {-# LINE 1435 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 1129 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 1440 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ APlus+ {-# LINE 1445 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 1450 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 1455 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_BinMinus :: T_BinOp+sem_BinOp_BinMinus =+ (\ _lhsIcomments+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOisAssociative :: Bool+ _lhsOcopy :: BinOp+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1131 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "-"+ {-# LINE 1472 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1132 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 1477 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 1133 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel5+ {-# LINE 1482 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 1134 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 1487 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ BinMinus+ {-# LINE 1492 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 1497 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 1502 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_AMultiply :: T_BinOp+sem_BinOp_AMultiply =+ (\ _lhsIcomments+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOisAssociative :: Bool+ _lhsOcopy :: BinOp+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1136 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "*"+ {-# LINE 1519 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1137 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 1524 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 1138 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel6+ {-# LINE 1529 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 1139 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 1534 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AMultiply+ {-# LINE 1539 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 1544 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 1549 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_ADivide :: T_BinOp+sem_BinOp_ADivide =+ (\ _lhsIcomments+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOisAssociative :: Bool+ _lhsOcopy :: BinOp+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1141 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "/"+ {-# LINE 1566 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1142 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 1571 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 1143 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel6+ {-# LINE 1576 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 1144 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 1581 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ ADivide+ {-# LINE 1586 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 1591 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 1596 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_AModulus :: T_BinOp+sem_BinOp_AModulus =+ (\ _lhsIcomments+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOisAssociative :: Bool+ _lhsOcopy :: BinOp+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1146 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "%"+ {-# LINE 1613 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1147 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 1618 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 1148 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel6+ {-# LINE 1623 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 1149 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 1628 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AModulus+ {-# LINE 1633 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 1638 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 1643 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_APower :: T_BinOp+sem_BinOp_APower =+ (\ _lhsIcomments+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOisAssociative :: Bool+ _lhsOcopy :: BinOp+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1151 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "^"+ {-# LINE 1660 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1152 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 1665 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 1153 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel8+ {-# LINE 1670 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 1154 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 1675 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ APower+ {-# LINE 1680 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 1685 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 1690 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+-- 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 = ([MToken]) ->+ Bool ->+ Int ->+ PrettyPrintConfig ->+ Region ->+ ( ([MToken]),Block,Bool,Region,Doc,Int)+data Inh_Block = Inh_Block {comments_Inh_Block :: ([MToken]),forceMultiline_Inh_Block :: Bool,indent_Inh_Block :: Int,ppconf_Inh_Block :: PrettyPrintConfig,statRegion_Inh_Block :: Region}+data Syn_Block = Syn_Block {comments_Syn_Block :: ([MToken]),copy_Syn_Block :: Block,isMultiline_Syn_Block :: Bool,pos_Syn_Block :: Region,pretty_Syn_Block :: Doc,statementCount_Syn_Block :: Int}+wrap_Block :: T_Block ->+ Inh_Block ->+ Syn_Block+wrap_Block sem (Inh_Block _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion+ in (Syn_Block _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpos _lhsOpretty _lhsOstatementCount))+sem_Block_Block :: Region ->+ T_MStatList ->+ T_AReturn ->+ T_Block+sem_Block_Block pos_ stats_ ret_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf+ _lhsIstatRegion ->+ (let _lhsOpretty :: Doc+ _lhsOpos :: Region+ _lhsOcomments :: ([MToken])+ _lhsOstatementCount :: Int+ _lhsOcopy :: Block+ _lhsOisMultiline :: Bool+ _statsOcomments :: ([MToken])+ _statsOforceMultiline :: Bool+ _statsOindent :: Int+ _statsOppconf :: PrettyPrintConfig+ _statsOstatRegion :: Region+ _retOcomments :: ([MToken])+ _retOforceMultiline :: Bool+ _retOindent :: Int+ _retOppconf :: PrettyPrintConfig+ _statsIcomments :: ([MToken])+ _statsIcopy :: MStatList+ _statsIisLast :: Bool+ _statsIisMultiline :: Bool+ _statsIpretty :: Doc+ _statsIstartsWithExprPrefixExpression :: Bool+ _statsIstatementCount :: Int+ _retIcomments :: ([MToken])+ _retIcopy :: AReturn+ _retIisMultiline :: Bool+ _retIpretty :: Doc+ _retIstatementCount :: Int+ _lhsOpretty =+ ({-# LINE 633 "src/GLua/AG/PrettyPrint.ag" #-}+ if _isMultiline+ then _statsIpretty $+$ _retIpretty $+$ _prettyCommentsAfter+ else _statsIpretty <-> _retIpretty+ {-# LINE 1756 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpos =+ ({-# LINE 637 "src/GLua/AG/PrettyPrint.ag" #-}+ pos_+ {-# LINE 1761 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _statementCount =+ ({-# LINE 638 "src/GLua/AG/PrettyPrint.ag" #-}+ _statsIstatementCount + _retIstatementCount+ {-# LINE 1766 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _isMultiline =+ ({-# LINE 639 "src/GLua/AG/PrettyPrint.ag" #-}+ _statsIisMultiline || _retIisMultiline || _statementCount > 1 || not (null $ fst $ _commentsAfter )+ {-# LINE 1771 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _commentsAfter =+ ({-# LINE 640 "src/GLua/AG/PrettyPrint.ag" #-}+ span (\(MToken pos _) -> pos `beforeEnd` pos_) _retIcomments+ {-# LINE 1776 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _prettyCommentsAfter =+ ({-# LINE 641 "src/GLua/AG/PrettyPrint.ag" #-}+ renderMLComments _lhsIppconf _lhsIindent $ fst _commentsAfter+ {-# LINE 1781 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 642 "src/GLua/AG/PrettyPrint.ag" #-}+ snd _commentsAfter+ {-# LINE 1786 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstatementCount =+ ({-# LINE 314 "src/GLua/AG/PrettyPrint.ag" #-}+ _statementCount+ {-# LINE 1791 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ Block pos_ _statsIcopy _retIcopy+ {-# LINE 1796 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 1801 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 251 "src/GLua/AG/PrettyPrint.ag" #-}+ _isMultiline+ {-# LINE 1806 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _statsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 1811 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _statsOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 1816 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _statsOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 1821 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _statsOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 1826 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _statsOstatRegion =+ ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIstatRegion+ {-# LINE 1831 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _retOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _statsIcomments+ {-# LINE 1836 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _retOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 1841 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _retOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 1846 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _retOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 1851 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _statsIcomments,_statsIcopy,_statsIisLast,_statsIisMultiline,_statsIpretty,_statsIstartsWithExprPrefixExpression,_statsIstatementCount) =+ stats_ _statsOcomments _statsOforceMultiline _statsOindent _statsOppconf _statsOstatRegion+ ( _retIcomments,_retIcopy,_retIisMultiline,_retIpretty,_retIstatementCount) =+ ret_ _retOcomments _retOforceMultiline _retOindent _retOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty,_lhsOstatementCount)))+-- 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 = ([MToken]) ->+ Bool ->+ Int ->+ PrettyPrintConfig ->+ ( ([MToken]),Declaration,Bool,Doc,Bool,Bool,Doc,Bool,Doc)+data Inh_Declaration = Inh_Declaration {comments_Inh_Declaration :: ([MToken]),forceMultiline_Inh_Declaration :: Bool,indent_Inh_Declaration :: Int,ppconf_Inh_Declaration :: PrettyPrintConfig}+data Syn_Declaration = Syn_Declaration {comments_Syn_Declaration :: ([MToken]),copy_Syn_Declaration :: Declaration,endsWithPrefixExpression_Syn_Declaration :: Bool,exprPretty_Syn_Declaration :: Doc,isDefined_Syn_Declaration :: Bool,isMultiline_Syn_Declaration :: Bool,pretty_Syn_Declaration :: Doc,startsWithExprPrefixExpression_Syn_Declaration :: Bool,varPretty_Syn_Declaration :: Doc}+wrap_Declaration :: T_Declaration ->+ Inh_Declaration ->+ Syn_Declaration+wrap_Declaration sem (Inh_Declaration _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+ in (Syn_Declaration _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOexprPretty _lhsOisDefined _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOvarPretty))+sem_Declaration_Tuple :: T_PrefixExp ->+ T_MaybeMExpr ->+ T_Declaration+sem_Declaration_Tuple x1_ x2_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOvarPretty :: Doc+ _lhsOexprPretty :: Doc+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _x1OparentOperatorPrecedence :: OperatorLevel+ _x1OparentOperatorAssociative :: Bool+ _lhsOisDefined :: Bool+ _lhsOcopy :: Declaration+ _lhsOcomments :: ([MToken])+ _lhsOpretty :: Doc+ _x1Ocomments :: ([MToken])+ _x1OforceMultiline :: Bool+ _x1Oindent :: Int+ _x1Oppconf :: PrettyPrintConfig+ _x2Ocomments :: ([MToken])+ _x2OforceMultiline :: Bool+ _x2Oindent :: Int+ _x2Oppconf :: PrettyPrintConfig+ _x1Icomments :: ([MToken])+ _x1Icopy :: PrefixExp+ _x1IisAssociative :: Bool+ _x1IisLiteral :: Bool+ _x1IisMultiline :: Bool+ _x1Iprecedence :: OperatorLevel+ _x1Ipretty :: Doc+ _x1IstartsWithExprPrefixExpression :: Bool+ _x2Icomments :: ([MToken])+ _x2Icopy :: MaybeMExpr+ _x2IendsWithPrefixExpression :: Bool+ _x2IisAssociative :: Bool+ _x2IisDefined :: Bool+ _x2IisMultiline :: Bool+ _x2Iprecedence :: OperatorLevel+ _x2Ipretty :: Doc+ _lhsOvarPretty =+ ({-# LINE 525 "src/GLua/AG/PrettyPrint.ag" #-}+ _x1Ipretty+ {-# LINE 1924 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOexprPretty =+ ({-# LINE 526 "src/GLua/AG/PrettyPrint.ag" #-}+ _x2Ipretty+ {-# LINE 1929 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 527 "src/GLua/AG/PrettyPrint.ag" #-}+ _x1IstartsWithExprPrefixExpression+ {-# LINE 1934 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 528 "src/GLua/AG/PrettyPrint.ag" #-}+ _x2IendsWithPrefixExpression+ {-# LINE 1939 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 529 "src/GLua/AG/PrettyPrint.ag" #-}+ _x1IisMultiline || _x2IisMultiline+ {-# LINE 1944 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x1OparentOperatorPrecedence =+ ({-# LINE 530 "src/GLua/AG/PrettyPrint.ag" #-}+ TopLevelExpression+ {-# LINE 1949 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x1OparentOperatorAssociative =+ ({-# LINE 531 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 1954 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisDefined =+ ({-# LINE 276 "src/GLua/AG/PrettyPrint.ag" #-}+ _x2IisDefined+ {-# LINE 1959 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ (_x1Icopy,_x2Icopy)+ {-# LINE 1964 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 1969 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _x2Icomments+ {-# LINE 1974 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpretty =+ ({-# LINE 249 "src/GLua/AG/PrettyPrint.ag" #-}+ _x2Ipretty+ {-# LINE 1979 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x1Ocomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 1984 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x1OforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 1989 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x1Oindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 1994 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x1Oppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 1999 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x2Ocomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _x1Icomments+ {-# LINE 2004 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x2OforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 2009 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x2Oindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 2014 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x2Oppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 2019 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _x1Icomments,_x1Icopy,_x1IisAssociative,_x1IisLiteral,_x1IisMultiline,_x1Iprecedence,_x1Ipretty,_x1IstartsWithExprPrefixExpression) =+ x1_ _x1Ocomments _x1OforceMultiline _x1Oindent _x1OparentOperatorAssociative _x1OparentOperatorPrecedence _x1Oppconf+ ( _x2Icomments,_x2Icopy,_x2IendsWithPrefixExpression,_x2IisAssociative,_x2IisDefined,_x2IisMultiline,_x2Iprecedence,_x2Ipretty) =+ x2_ _x2Ocomments _x2OforceMultiline _x2Oindent _x2Oppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty)))+-- 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 = ([MToken]) ->+ Bool ->+ Int ->+ PrettyPrintConfig ->+ Region ->+ ( ([MToken]),Else,Bool,Bool,Region,Doc)+data Inh_Else = Inh_Else {comments_Inh_Else :: ([MToken]),forceMultiline_Inh_Else :: Bool,indent_Inh_Else :: Int,ppconf_Inh_Else :: PrettyPrintConfig,statRegion_Inh_Else :: Region}+data Syn_Else = Syn_Else {comments_Syn_Else :: ([MToken]),copy_Syn_Else :: Else,elsesExist_Syn_Else :: Bool,isMultiline_Syn_Else :: Bool,pos_Syn_Else :: Region,pretty_Syn_Else :: Doc}+wrap_Else :: T_Else ->+ Inh_Else ->+ Syn_Else+wrap_Else sem (Inh_Else _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion+ in (Syn_Else _lhsOcomments _lhsOcopy _lhsOelsesExist _lhsOisMultiline _lhsOpos _lhsOpretty))+sem_Else_Just :: T_MElse ->+ T_Else+sem_Else_Just just_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf+ _lhsIstatRegion ->+ (let _lhsOelsesExist :: Bool+ _lhsOisMultiline :: Bool+ _lhsOcopy :: Else+ _lhsOcomments :: ([MToken])+ _lhsOpos :: Region+ _lhsOpretty :: Doc+ _justOcomments :: ([MToken])+ _justOforceMultiline :: Bool+ _justOindent :: Int+ _justOppconf :: PrettyPrintConfig+ _justOstatRegion :: Region+ _justIcomments :: ([MToken])+ _justIcopy :: MElse+ _justIelsesExist :: Bool+ _justIisMultiline :: Bool+ _justIpos :: Region+ _justIpretty :: Doc+ _lhsOelsesExist =+ ({-# LINE 595 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 2077 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 596 "src/GLua/AG/PrettyPrint.ag" #-}+ _justIisMultiline+ {-# LINE 2082 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ Just _justIcopy+ {-# LINE 2087 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 2092 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _justIcomments+ {-# LINE 2097 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpos =+ ({-# LINE 300 "src/GLua/AG/PrettyPrint.ag" #-}+ _justIpos+ {-# LINE 2102 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpretty =+ ({-# LINE 249 "src/GLua/AG/PrettyPrint.ag" #-}+ _justIpretty+ {-# LINE 2107 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _justOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 2112 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _justOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 2117 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _justOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 2122 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _justOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 2127 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _justOstatRegion =+ ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIstatRegion+ {-# LINE 2132 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _justIcomments,_justIcopy,_justIelsesExist,_justIisMultiline,_justIpos,_justIpretty) =+ just_ _justOcomments _justOforceMultiline _justOindent _justOppconf _justOstatRegion+ in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))+sem_Else_Nothing :: T_Else+sem_Else_Nothing =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf+ _lhsIstatRegion ->+ (let _lhsOpretty :: Doc+ _lhsOpos :: Region+ _lhsOisMultiline :: Bool+ _lhsOelsesExist :: Bool+ _lhsOcopy :: Else+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 598 "src/GLua/AG/PrettyPrint.ag" #-}+ empty+ {-# LINE 2153 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpos =+ ({-# LINE 599 "src/GLua/AG/PrettyPrint.ag" #-}+ emptyRg+ {-# LINE 2158 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 600 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2163 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOelsesExist =+ ({-# LINE 317 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2168 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ Nothing+ {-# LINE 2173 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 2178 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 2183 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))+-- 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 = ([MToken]) ->+ Bool ->+ Int ->+ PrettyPrintConfig ->+ ( ([MToken]),ElseIf,Bool,Doc)+data Inh_ElseIf = Inh_ElseIf {comments_Inh_ElseIf :: ([MToken]),forceMultiline_Inh_ElseIf :: Bool,indent_Inh_ElseIf :: Int,ppconf_Inh_ElseIf :: PrettyPrintConfig}+data Syn_ElseIf = Syn_ElseIf {comments_Syn_ElseIf :: ([MToken]),copy_Syn_ElseIf :: ElseIf,isMultiline_Syn_ElseIf :: Bool,pretty_Syn_ElseIf :: Doc}+wrap_ElseIf :: T_ElseIf ->+ Inh_ElseIf ->+ Syn_ElseIf+wrap_ElseIf sem (Inh_ElseIf _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+ in (Syn_ElseIf _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty))+sem_ElseIf_Tuple :: T_MExpr ->+ T_Block ->+ T_ElseIf+sem_ElseIf_Tuple x1_ x2_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _x2Oindent :: Int+ _x2OstatRegion :: Region+ _x1OparentOperatorPrecedence :: OperatorLevel+ _x1OparentOperatorAssociative :: Bool+ _lhsOcopy :: ElseIf+ _lhsOcomments :: ([MToken])+ _x1Ocomments :: ([MToken])+ _x1OforceMultiline :: Bool+ _x1Oindent :: Int+ _x1Oppconf :: PrettyPrintConfig+ _x2Ocomments :: ([MToken])+ _x2OforceMultiline :: Bool+ _x2Oppconf :: PrettyPrintConfig+ _x1Icomments :: ([MToken])+ _x1Icopy :: MExpr+ _x1IendsWithPrefixExpression :: Bool+ _x1IisAssociative :: Bool+ _x1IisLiteral :: Bool+ _x1IisMultiline :: Bool+ _x1Ipos :: Region+ _x1Iprecedence :: OperatorLevel+ _x1Ipretty :: Doc+ _x2Icomments :: ([MToken])+ _x2Icopy :: Block+ _x2IisMultiline :: Bool+ _x2Ipos :: Region+ _x2Ipretty :: Doc+ _x2IstatementCount :: Int+ _lhsOpretty =+ ({-# LINE 570 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "elseif" <-> _x1Ipretty <-> zeroWidthText "then" $+$ _x2Ipretty+ {-# LINE 2247 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 571 "src/GLua/AG/PrettyPrint.ag" #-}+ _x1IisMultiline || _x2IisMultiline+ {-# LINE 2252 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x2Oindent =+ ({-# LINE 572 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent + 1+ {-# LINE 2257 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x2OstatRegion =+ ({-# LINE 573 "src/GLua/AG/PrettyPrint.ag" #-}+ emptyRg+ {-# LINE 2262 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x1OparentOperatorPrecedence =+ ({-# LINE 574 "src/GLua/AG/PrettyPrint.ag" #-}+ TopLevelExpression+ {-# LINE 2267 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x1OparentOperatorAssociative =+ ({-# LINE 575 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 2272 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ (_x1Icopy,_x2Icopy)+ {-# LINE 2277 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 2282 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _x2Icomments+ {-# LINE 2287 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x1Ocomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 2292 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x1OforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 2297 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x1Oindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 2302 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x1Oppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 2307 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x2Ocomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _x1Icomments+ {-# LINE 2312 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x2OforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 2317 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _x2Oppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 2322 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _x1Icomments,_x1Icopy,_x1IendsWithPrefixExpression,_x1IisAssociative,_x1IisLiteral,_x1IisMultiline,_x1Ipos,_x1Iprecedence,_x1Ipretty) =+ x1_ _x1Ocomments _x1OforceMultiline _x1Oindent _x1OparentOperatorAssociative _x1OparentOperatorPrecedence _x1Oppconf+ ( _x2Icomments,_x2Icopy,_x2IisMultiline,_x2Ipos,_x2Ipretty,_x2IstatementCount) =+ x2_ _x2Ocomments _x2OforceMultiline _x2Oindent _x2Oppconf _x2OstatRegion+ in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))+-- 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 = ([MToken]) ->+ Bool ->+ Int ->+ PrettyPrintConfig ->+ ( ([MToken]),ElseIfList,Bool,Bool,Region,Doc)+data Inh_ElseIfList = Inh_ElseIfList {comments_Inh_ElseIfList :: ([MToken]),forceMultiline_Inh_ElseIfList :: Bool,indent_Inh_ElseIfList :: Int,ppconf_Inh_ElseIfList :: PrettyPrintConfig}+data Syn_ElseIfList = Syn_ElseIfList {comments_Syn_ElseIfList :: ([MToken]),copy_Syn_ElseIfList :: ElseIfList,elsesExist_Syn_ElseIfList :: Bool,isMultiline_Syn_ElseIfList :: Bool,pos_Syn_ElseIfList :: Region,pretty_Syn_ElseIfList :: Doc}+wrap_ElseIfList :: T_ElseIfList ->+ Inh_ElseIfList ->+ Syn_ElseIfList+wrap_ElseIfList sem (Inh_ElseIfList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+ in (Syn_ElseIfList _lhsOcomments _lhsOcopy _lhsOelsesExist _lhsOisMultiline _lhsOpos _lhsOpretty))+sem_ElseIfList_Cons :: T_MElseIf ->+ T_ElseIfList ->+ T_ElseIfList+sem_ElseIfList_Cons hd_ tl_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOelsesExist :: Bool+ _lhsOpos :: Region+ _lhsOisMultiline :: Bool+ _lhsOcopy :: ElseIfList+ _lhsOcomments :: ([MToken])+ _hdOcomments :: ([MToken])+ _hdOforceMultiline :: Bool+ _hdOindent :: Int+ _hdOppconf :: PrettyPrintConfig+ _tlOcomments :: ([MToken])+ _tlOforceMultiline :: Bool+ _tlOindent :: Int+ _tlOppconf :: PrettyPrintConfig+ _hdIcomments :: ([MToken])+ _hdIcopy :: MElseIf+ _hdIisMultiline :: Bool+ _hdIpos :: Region+ _hdIpretty :: Doc+ _tlIcomments :: ([MToken])+ _tlIcopy :: ElseIfList+ _tlIelsesExist :: Bool+ _tlIisMultiline :: Bool+ _tlIpos :: Region+ _tlIpretty :: Doc+ _lhsOpretty =+ ({-# LINE 584 "src/GLua/AG/PrettyPrint.ag" #-}+ indent _lhsIppconf _lhsIindent _hdIpretty $+$ _tlIpretty+ {-# LINE 2385 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOelsesExist =+ ({-# LINE 585 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 2390 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpos =+ ({-# LINE 586 "src/GLua/AG/PrettyPrint.ag" #-}+ _hdIpos+ {-# LINE 2395 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 587 "src/GLua/AG/PrettyPrint.ag" #-}+ _hdIisMultiline || _tlIisMultiline+ {-# LINE 2400 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ (:) _hdIcopy _tlIcopy+ {-# LINE 2405 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 2410 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _tlIcomments+ {-# LINE 2415 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 2420 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 2425 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 2430 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 2435 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _hdIcomments+ {-# LINE 2440 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 2445 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 2450 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 2455 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _hdIcomments,_hdIcopy,_hdIisMultiline,_hdIpos,_hdIpretty) =+ hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf+ ( _tlIcomments,_tlIcopy,_tlIelsesExist,_tlIisMultiline,_tlIpos,_tlIpretty) =+ tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))+sem_ElseIfList_Nil :: T_ElseIfList+sem_ElseIfList_Nil =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOpos :: Region+ _lhsOisMultiline :: Bool+ _lhsOelsesExist :: Bool+ _lhsOcopy :: ElseIfList+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 589 "src/GLua/AG/PrettyPrint.ag" #-}+ empty+ {-# LINE 2477 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpos =+ ({-# LINE 590 "src/GLua/AG/PrettyPrint.ag" #-}+ emptyRg+ {-# LINE 2482 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 591 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2487 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOelsesExist =+ ({-# LINE 317 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2492 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ []+ {-# LINE 2497 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 2502 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 2507 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))+-- 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 _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 = ([MToken]) ->+ Bool ->+ Int ->+ Bool ->+ OperatorLevel ->+ PrettyPrintConfig ->+ Region ->+ ( ([MToken]),Expr,Bool,Bool,Bool,Bool,OperatorLevel,Doc)+data Inh_Expr = Inh_Expr {comments_Inh_Expr :: ([MToken]),forceMultiline_Inh_Expr :: Bool,indent_Inh_Expr :: Int,parentOperatorAssociative_Inh_Expr :: Bool,parentOperatorPrecedence_Inh_Expr :: OperatorLevel,ppconf_Inh_Expr :: PrettyPrintConfig,statRegion_Inh_Expr :: Region}+data Syn_Expr = Syn_Expr {comments_Syn_Expr :: ([MToken]),copy_Syn_Expr :: Expr,endsWithPrefixExpression_Syn_Expr :: Bool,isAssociative_Syn_Expr :: Bool,isLiteral_Syn_Expr :: Bool,isMultiline_Syn_Expr :: Bool,precedence_Syn_Expr :: OperatorLevel,pretty_Syn_Expr :: Doc}+wrap_Expr :: T_Expr ->+ Inh_Expr ->+ Syn_Expr+wrap_Expr sem (Inh_Expr _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf _lhsIstatRegion) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf _lhsIstatRegion+ in (Syn_Expr _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisAssociative _lhsOisLiteral _lhsOisMultiline _lhsOprecedence _lhsOpretty))+sem_Expr_ANil :: T_Expr+sem_Expr_ANil =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIparentOperatorAssociative+ _lhsIparentOperatorPrecedence+ _lhsIppconf+ _lhsIstatRegion ->+ (let _lhsOpretty :: Doc+ _lhsOisLiteral :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _lhsOisAssociative :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: Expr+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 985 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "nil"+ {-# LINE 2573 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLiteral =+ ({-# LINE 986 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 2578 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 987 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2583 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 988 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2588 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2593 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel8+ {-# LINE 2598 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ ANil+ {-# LINE 2603 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 2608 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 2613 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_AFalse :: T_Expr+sem_Expr_AFalse =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIparentOperatorAssociative+ _lhsIparentOperatorPrecedence+ _lhsIppconf+ _lhsIstatRegion ->+ (let _lhsOpretty :: Doc+ _lhsOisLiteral :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _lhsOisAssociative :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: Expr+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 990 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "false"+ {-# LINE 2636 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLiteral =+ ({-# LINE 991 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 2641 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 992 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2646 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 993 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2651 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2656 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel8+ {-# LINE 2661 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AFalse+ {-# LINE 2666 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 2671 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 2676 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_ATrue :: T_Expr+sem_Expr_ATrue =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIparentOperatorAssociative+ _lhsIparentOperatorPrecedence+ _lhsIppconf+ _lhsIstatRegion ->+ (let _lhsOpretty :: Doc+ _lhsOisLiteral :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _lhsOisAssociative :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: Expr+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 995 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "true"+ {-# LINE 2699 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLiteral =+ ({-# LINE 996 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 2704 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 997 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2709 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 998 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2714 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2719 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel8+ {-# LINE 2724 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ ATrue+ {-# LINE 2729 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 2734 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 2739 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_ANumber :: String ->+ T_Expr+sem_Expr_ANumber num_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIparentOperatorAssociative+ _lhsIparentOperatorPrecedence+ _lhsIppconf+ _lhsIstatRegion ->+ (let _lhsOpretty :: Doc+ _lhsOisLiteral :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _lhsOisAssociative :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: Expr+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1000 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText num_+ {-# LINE 2763 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLiteral =+ ({-# LINE 1001 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 2768 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 1002 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2773 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1003 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2778 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2783 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel8+ {-# LINE 2788 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ ANumber num_+ {-# LINE 2793 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 2798 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 2803 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_AString :: MToken ->+ T_Expr+sem_Expr_AString str_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIparentOperatorAssociative+ _lhsIparentOperatorPrecedence+ _lhsIppconf+ _lhsIstatRegion ->+ (let _lhsOpretty :: Doc+ _lhsOisLiteral :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _lhsOisAssociative :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: Expr+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1005 "src/GLua/AG/PrettyPrint.ag" #-}+ tok str_+ {-# LINE 2827 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLiteral =+ ({-# LINE 1006 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 2832 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 1007 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2837 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1008 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2842 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2847 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel8+ {-# LINE 2852 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AString str_+ {-# LINE 2857 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 2862 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 2867 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_AVarArg :: T_Expr+sem_Expr_AVarArg =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIparentOperatorAssociative+ _lhsIparentOperatorPrecedence+ _lhsIppconf+ _lhsIstatRegion ->+ (let _lhsOpretty :: Doc+ _lhsOisLiteral :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _lhsOisAssociative :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: Expr+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1010 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "..."+ {-# LINE 2890 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLiteral =+ ({-# LINE 1011 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 2895 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 1012 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2900 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1013 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2905 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2910 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel8+ {-# LINE 2915 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AVarArg+ {-# LINE 2920 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 2925 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 2930 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_AnonymousFunc :: ([MToken]) ->+ T_Block ->+ T_Expr+sem_Expr_AnonymousFunc pars_ body_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIparentOperatorAssociative+ _lhsIparentOperatorPrecedence+ _lhsIppconf+ _lhsIstatRegion ->+ (let _lhsOendsWithPrefixExpression :: Bool+ _bodyOindent :: Int+ _lhsOpretty :: Doc+ _lhsOisAssociative :: Bool+ _lhsOisLiteral :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: Expr+ _lhsOcomments :: ([MToken])+ _lhsOisMultiline :: Bool+ _bodyOcomments :: ([MToken])+ _bodyOforceMultiline :: Bool+ _bodyOppconf :: PrettyPrintConfig+ _bodyOstatRegion :: Region+ _bodyIcomments :: ([MToken])+ _bodyIcopy :: Block+ _bodyIisMultiline :: Bool+ _bodyIpos :: Region+ _bodyIpretty :: Doc+ _bodyIstatementCount :: Int+ _isMultiline =+ ({-# LINE 1015 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline || _bodyIisMultiline+ {-# LINE 2966 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 1016 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 2971 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _singleLinePretty =+ ({-# LINE 1017 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "function"+ <> parens _lhsIppconf _emptyParams (printList tok (render _comma ) pars_)+ <-> _bodyIpretty+ <-> zeroWidthText "end"+ {-# LINE 2979 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _multilinePretty =+ ({-# LINE 1022 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "function"+ <> parens _lhsIppconf _emptyParams (printList tok (render _comma ) pars_)+ $+$ _bodyIpretty+ $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")+ {-# LINE 2987 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _comma =+ ({-# LINE 1027 "src/GLua/AG/PrettyPrint.ag" #-}+ (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)+ <> zchr ','+ <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)+ {-# LINE 2994 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _emptyParams =+ ({-# LINE 1031 "src/GLua/AG/PrettyPrint.ag" #-}+ toEmpty $ null pars_+ {-# LINE 2999 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOindent =+ ({-# LINE 1032 "src/GLua/AG/PrettyPrint.ag" #-}+ if _isMultiline then _lhsIindent + 1 else 0+ {-# LINE 3004 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpretty =+ ({-# LINE 1033 "src/GLua/AG/PrettyPrint.ag" #-}+ if _isMultiline then _multilinePretty else _singleLinePretty+ {-# LINE 3009 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 3014 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLiteral =+ ({-# LINE 263 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 3019 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel8+ {-# LINE 3024 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AnonymousFunc pars_ _bodyIcopy+ {-# LINE 3029 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 3034 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _bodyIcomments+ {-# LINE 3039 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 251 "src/GLua/AG/PrettyPrint.ag" #-}+ _isMultiline+ {-# LINE 3044 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 3049 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 3054 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 3059 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOstatRegion =+ ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIstatRegion+ {-# LINE 3064 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =+ body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_APrefixExpr :: T_PrefixExp ->+ T_Expr+sem_Expr_APrefixExpr pexpr_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIparentOperatorAssociative+ _lhsIparentOperatorPrecedence+ _lhsIppconf+ _lhsIstatRegion ->+ (let _lhsOpretty :: Doc+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _lhsOisAssociative :: Bool+ _lhsOisLiteral :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: Expr+ _lhsOcomments :: ([MToken])+ _pexprOcomments :: ([MToken])+ _pexprOforceMultiline :: Bool+ _pexprOindent :: Int+ _pexprOparentOperatorAssociative :: Bool+ _pexprOparentOperatorPrecedence :: OperatorLevel+ _pexprOppconf :: PrettyPrintConfig+ _pexprIcomments :: ([MToken])+ _pexprIcopy :: PrefixExp+ _pexprIisAssociative :: Bool+ _pexprIisLiteral :: Bool+ _pexprIisMultiline :: Bool+ _pexprIprecedence :: OperatorLevel+ _pexprIpretty :: Doc+ _pexprIstartsWithExprPrefixExpression :: Bool+ _lhsOpretty =+ ({-# LINE 1035 "src/GLua/AG/PrettyPrint.ag" #-}+ _pexprIpretty+ {-# LINE 3104 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 1036 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 3109 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1037 "src/GLua/AG/PrettyPrint.ag" #-}+ _pexprIisMultiline+ {-# LINE 3114 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ _pexprIisAssociative+ {-# LINE 3119 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLiteral =+ ({-# LINE 263 "src/GLua/AG/PrettyPrint.ag" #-}+ _pexprIisLiteral+ {-# LINE 3124 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ _pexprIprecedence+ {-# LINE 3129 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ APrefixExpr _pexprIcopy+ {-# LINE 3134 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 3139 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _pexprIcomments+ {-# LINE 3144 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _pexprOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 3149 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _pexprOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 3154 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _pexprOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 3159 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _pexprOparentOperatorAssociative =+ ({-# LINE 260 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIparentOperatorAssociative+ {-# LINE 3164 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _pexprOparentOperatorPrecedence =+ ({-# LINE 259 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIparentOperatorPrecedence+ {-# LINE 3169 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _pexprOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 3174 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _pexprIcomments,_pexprIcopy,_pexprIisAssociative,_pexprIisLiteral,_pexprIisMultiline,_pexprIprecedence,_pexprIpretty,_pexprIstartsWithExprPrefixExpression) =+ pexpr_ _pexprOcomments _pexprOforceMultiline _pexprOindent _pexprOparentOperatorAssociative _pexprOparentOperatorPrecedence _pexprOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_ATableConstructor :: T_FieldList ->+ T_Expr+sem_Expr_ATableConstructor fields_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIparentOperatorAssociative+ _lhsIparentOperatorPrecedence+ _lhsIppconf+ _lhsIstatRegion ->+ (let _lhsOpretty :: Doc+ _lhsOisLiteral :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _fieldsOindent :: Int+ _fieldsOsomeElementsInListAreMultiline :: Bool+ _lhsOisAssociative :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: Expr+ _lhsOcomments :: ([MToken])+ _lhsOisMultiline :: Bool+ _fieldsOcomments :: ([MToken])+ _fieldsOforceMultiline :: Bool+ _fieldsOppconf :: PrettyPrintConfig+ _fieldsIcomments :: ([MToken])+ _fieldsIcopy :: FieldList+ _fieldsIisMultiline :: Bool+ _fieldsIisNil :: Bool+ _fieldsIpretty :: Doc+ _lhsOpretty =+ ({-# LINE 1039 "src/GLua/AG/PrettyPrint.ag" #-}+ if _isMultiline then _prettyMulti else _prettySingle+ {-# LINE 3210 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _isMultiline =+ ({-# LINE 1040 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline || _fieldsIisMultiline+ {-# LINE 3215 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLiteral =+ ({-# LINE 1041 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 3220 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 1042 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 3225 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _prettyMulti =+ ({-# LINE 1043 "src/GLua/AG/PrettyPrint.ag" #-}+ zchr '{' $+$ _fieldsIpretty $+$ indent _lhsIppconf _lhsIindent (zchr '}')+ {-# LINE 3230 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _prettySingle =+ ({-# LINE 1044 "src/GLua/AG/PrettyPrint.ag" #-}+ braces _lhsIppconf _emptyContents _fieldsIpretty+ {-# LINE 3235 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _emptyContents =+ ({-# LINE 1045 "src/GLua/AG/PrettyPrint.ag" #-}+ toEmpty $ null _fieldsIcopy+ {-# LINE 3240 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _fieldsOindent =+ ({-# LINE 1046 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent + (if _fieldsIisMultiline then 1 else 0)+ {-# LINE 3245 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _fieldsOsomeElementsInListAreMultiline =+ ({-# LINE 1047 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 3250 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 3255 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel8+ {-# LINE 3260 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ ATableConstructor _fieldsIcopy+ {-# LINE 3265 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 3270 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _fieldsIcomments+ {-# LINE 3275 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 251 "src/GLua/AG/PrettyPrint.ag" #-}+ _isMultiline+ {-# LINE 3280 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _fieldsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 3285 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _fieldsOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 3290 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _fieldsOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 3295 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _fieldsIcomments,_fieldsIcopy,_fieldsIisMultiline,_fieldsIisNil,_fieldsIpretty) =+ fields_ _fieldsOcomments _fieldsOforceMultiline _fieldsOindent _fieldsOppconf _fieldsOsomeElementsInListAreMultiline+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_BinOpExpr :: T_BinOp ->+ T_MExpr ->+ T_MExpr ->+ T_Expr+sem_Expr_BinOpExpr op_ left_ right_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIparentOperatorAssociative+ _lhsIparentOperatorPrecedence+ _lhsIppconf+ _lhsIstatRegion ->+ (let _lhsOpretty :: Doc+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOisMultiline :: Bool+ _leftOparentOperatorPrecedence :: OperatorLevel+ _rightOparentOperatorPrecedence :: OperatorLevel+ _leftOparentOperatorAssociative :: Bool+ _rightOparentOperatorAssociative :: Bool+ _lhsOisAssociative :: Bool+ _lhsOisLiteral :: Bool+ _lhsOcopy :: Expr+ _lhsOcomments :: ([MToken])+ _opOcomments :: ([MToken])+ _opOindent :: Int+ _opOppconf :: PrettyPrintConfig+ _leftOcomments :: ([MToken])+ _leftOforceMultiline :: Bool+ _leftOindent :: Int+ _leftOppconf :: PrettyPrintConfig+ _rightOcomments :: ([MToken])+ _rightOforceMultiline :: Bool+ _rightOindent :: Int+ _rightOppconf :: PrettyPrintConfig+ _opIcomments :: ([MToken])+ _opIcopy :: BinOp+ _opIisAssociative :: Bool+ _opIisMultiline :: Bool+ _opIprecedence :: OperatorLevel+ _opIpretty :: Doc+ _leftIcomments :: ([MToken])+ _leftIcopy :: MExpr+ _leftIendsWithPrefixExpression :: Bool+ _leftIisAssociative :: Bool+ _leftIisLiteral :: Bool+ _leftIisMultiline :: Bool+ _leftIpos :: Region+ _leftIprecedence :: OperatorLevel+ _leftIpretty :: Doc+ _rightIcomments :: ([MToken])+ _rightIcopy :: MExpr+ _rightIendsWithPrefixExpression :: Bool+ _rightIisAssociative :: Bool+ _rightIisLiteral :: Bool+ _rightIisMultiline :: Bool+ _rightIpos :: Region+ _rightIprecedence :: OperatorLevel+ _rightIpretty :: Doc+ _lhsOpretty =+ ({-# LINE 1049 "src/GLua/AG/PrettyPrint.ag" #-}+ _leftIpretty <-> _opIpretty <-> _rightIpretty+ {-# LINE 3362 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 1050 "src/GLua/AG/PrettyPrint.ag" #-}+ _rightIendsWithPrefixExpression+ {-# LINE 3367 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 1053 "src/GLua/AG/PrettyPrint.ag" #-}+ min _opIprecedence $ min _leftIprecedence _rightIprecedence+ {-# LINE 3372 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1054 "src/GLua/AG/PrettyPrint.ag" #-}+ _leftIisMultiline || _rightIisMultiline+ {-# LINE 3377 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _leftOparentOperatorPrecedence =+ ({-# LINE 1055 "src/GLua/AG/PrettyPrint.ag" #-}+ _opIprecedence+ {-# LINE 3382 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _rightOparentOperatorPrecedence =+ ({-# LINE 1056 "src/GLua/AG/PrettyPrint.ag" #-}+ _opIprecedence+ {-# LINE 3387 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _leftOparentOperatorAssociative =+ ({-# LINE 1057 "src/GLua/AG/PrettyPrint.ag" #-}+ _opIisAssociative+ {-# LINE 3392 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _rightOparentOperatorAssociative =+ ({-# LINE 1058 "src/GLua/AG/PrettyPrint.ag" #-}+ _opIisAssociative+ {-# LINE 3397 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ _opIisAssociative && _leftIisAssociative && _rightIisAssociative+ {-# LINE 3402 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLiteral =+ ({-# LINE 263 "src/GLua/AG/PrettyPrint.ag" #-}+ ((\_ _ -> False) _leftIisLiteral _rightIisLiteral)+ {-# LINE 3407 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ BinOpExpr _opIcopy _leftIcopy _rightIcopy+ {-# LINE 3412 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 3417 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _rightIcomments+ {-# LINE 3422 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _opOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 3427 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _opOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 3432 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _opOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 3437 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _leftOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _opIcomments+ {-# LINE 3442 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _leftOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 3447 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _leftOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 3452 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _leftOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 3457 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _rightOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _leftIcomments+ {-# LINE 3462 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _rightOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 3467 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _rightOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 3472 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _rightOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 3477 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _opIcomments,_opIcopy,_opIisAssociative,_opIisMultiline,_opIprecedence,_opIpretty) =+ op_ _opOcomments _opOindent _opOppconf+ ( _leftIcomments,_leftIcopy,_leftIendsWithPrefixExpression,_leftIisAssociative,_leftIisLiteral,_leftIisMultiline,_leftIpos,_leftIprecedence,_leftIpretty) =+ left_ _leftOcomments _leftOforceMultiline _leftOindent _leftOparentOperatorAssociative _leftOparentOperatorPrecedence _leftOppconf+ ( _rightIcomments,_rightIcopy,_rightIendsWithPrefixExpression,_rightIisAssociative,_rightIisLiteral,_rightIisMultiline,_rightIpos,_rightIprecedence,_rightIpretty) =+ right_ _rightOcomments _rightOforceMultiline _rightOindent _rightOparentOperatorAssociative _rightOparentOperatorPrecedence _rightOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_UnOpExpr :: T_UnOp ->+ T_MExpr ->+ T_Expr+sem_Expr_UnOpExpr op_ right_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIparentOperatorAssociative+ _lhsIparentOperatorPrecedence+ _lhsIppconf+ _lhsIstatRegion ->+ (let _lhsOpretty :: Doc+ _lhsOprecedence :: OperatorLevel+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _rightOparentOperatorPrecedence :: OperatorLevel+ _lhsOisAssociative :: Bool+ _lhsOisLiteral :: Bool+ _lhsOcopy :: Expr+ _lhsOcomments :: ([MToken])+ _opOcomments :: ([MToken])+ _opOindent :: Int+ _opOppconf :: PrettyPrintConfig+ _rightOcomments :: ([MToken])+ _rightOforceMultiline :: Bool+ _rightOindent :: Int+ _rightOparentOperatorAssociative :: Bool+ _rightOppconf :: PrettyPrintConfig+ _opIcomments :: ([MToken])+ _opIcopy :: UnOp+ _opIisMultiline :: Bool+ _opIpretty :: Doc+ _rightIcomments :: ([MToken])+ _rightIcopy :: MExpr+ _rightIendsWithPrefixExpression :: Bool+ _rightIisAssociative :: Bool+ _rightIisLiteral :: Bool+ _rightIisMultiline :: Bool+ _rightIpos :: Region+ _rightIprecedence :: OperatorLevel+ _rightIpretty :: Doc+ _lhsOpretty =+ ({-# LINE 1060 "src/GLua/AG/PrettyPrint.ag" #-}+ _opIpretty <> _rightIpretty+ {-# LINE 3530 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 1061 "src/GLua/AG/PrettyPrint.ag" #-}+ min _rightIprecedence OperatorLevel7+ {-# LINE 3535 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 1062 "src/GLua/AG/PrettyPrint.ag" #-}+ _rightIendsWithPrefixExpression+ {-# LINE 3540 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1063 "src/GLua/AG/PrettyPrint.ag" #-}+ _opIisMultiline || _rightIisMultiline+ {-# LINE 3545 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _rightOparentOperatorPrecedence =+ ({-# LINE 1064 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel7+ {-# LINE 3550 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ _rightIisAssociative+ {-# LINE 3555 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLiteral =+ ({-# LINE 263 "src/GLua/AG/PrettyPrint.ag" #-}+ _rightIisLiteral+ {-# LINE 3560 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ UnOpExpr _opIcopy _rightIcopy+ {-# LINE 3565 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 3570 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _rightIcomments+ {-# LINE 3575 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _opOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 3580 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _opOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 3585 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _opOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 3590 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _rightOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _opIcomments+ {-# LINE 3595 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _rightOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 3600 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _rightOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 3605 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _rightOparentOperatorAssociative =+ ({-# LINE 260 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIparentOperatorAssociative+ {-# LINE 3610 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _rightOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 3615 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _opIcomments,_opIcopy,_opIisMultiline,_opIpretty) =+ op_ _opOcomments _opOindent _opOppconf+ ( _rightIcomments,_rightIcopy,_rightIendsWithPrefixExpression,_rightIisAssociative,_rightIisLiteral,_rightIisMultiline,_rightIpos,_rightIprecedence,_rightIpretty) =+ right_ _rightOcomments _rightOforceMultiline _rightOindent _rightOparentOperatorAssociative _rightOparentOperatorPrecedence _rightOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+-- 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 = ([MToken]) ->+ Bool ->+ Int ->+ PrettyPrintConfig ->+ ( ([MToken]),ExprSuffixList,Bool,Bool,OperatorLevel,Doc)+data Inh_ExprSuffixList = Inh_ExprSuffixList {comments_Inh_ExprSuffixList :: ([MToken]),forceMultiline_Inh_ExprSuffixList :: Bool,indent_Inh_ExprSuffixList :: Int,ppconf_Inh_ExprSuffixList :: PrettyPrintConfig}+data Syn_ExprSuffixList = Syn_ExprSuffixList {comments_Syn_ExprSuffixList :: ([MToken]),copy_Syn_ExprSuffixList :: ExprSuffixList,isAssociative_Syn_ExprSuffixList :: Bool,isMultiline_Syn_ExprSuffixList :: Bool,precedence_Syn_ExprSuffixList :: OperatorLevel,pretty_Syn_ExprSuffixList :: Doc}+wrap_ExprSuffixList :: T_ExprSuffixList ->+ Inh_ExprSuffixList ->+ Syn_ExprSuffixList+wrap_ExprSuffixList sem (Inh_ExprSuffixList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+ in (Syn_ExprSuffixList _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisMultiline _lhsOprecedence _lhsOpretty))+sem_ExprSuffixList_Cons :: T_PFExprSuffix ->+ T_ExprSuffixList ->+ T_ExprSuffixList+sem_ExprSuffixList_Cons hd_ tl_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOisAssociative :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: ExprSuffixList+ _lhsOcomments :: ([MToken])+ _hdOcomments :: ([MToken])+ _hdOforceMultiline :: Bool+ _hdOindent :: Int+ _hdOppconf :: PrettyPrintConfig+ _tlOcomments :: ([MToken])+ _tlOforceMultiline :: Bool+ _tlOindent :: Int+ _tlOppconf :: PrettyPrintConfig+ _hdIcomments :: ([MToken])+ _hdIcopy :: PFExprSuffix+ _hdIisAssociative :: Bool+ _hdIisMultiline :: Bool+ _hdIprecedence :: OperatorLevel+ _hdIpretty :: Doc+ _tlIcomments :: ([MToken])+ _tlIcopy :: ExprSuffixList+ _tlIisAssociative :: Bool+ _tlIisMultiline :: Bool+ _tlIprecedence :: OperatorLevel+ _tlIpretty :: Doc+ _lhsOpretty =+ ({-# LINE 617 "src/GLua/AG/PrettyPrint.ag" #-}+ _hdIpretty <> _tlIpretty+ {-# LINE 3679 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 618 "src/GLua/AG/PrettyPrint.ag" #-}+ _hdIisMultiline || _tlIisMultiline+ {-# LINE 3684 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ _hdIisAssociative && _tlIisAssociative+ {-# LINE 3689 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ (min _hdIprecedence _tlIprecedence)+ {-# LINE 3694 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ (:) _hdIcopy _tlIcopy+ {-# LINE 3699 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 3704 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _tlIcomments+ {-# LINE 3709 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 3714 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 3719 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 3724 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 3729 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _hdIcomments+ {-# LINE 3734 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 3739 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 3744 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 3749 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _hdIcomments,_hdIcopy,_hdIisAssociative,_hdIisMultiline,_hdIprecedence,_hdIpretty) =+ hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf+ ( _tlIcomments,_tlIcopy,_tlIisAssociative,_tlIisMultiline,_tlIprecedence,_tlIpretty) =+ tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_ExprSuffixList_Nil :: T_ExprSuffixList+sem_ExprSuffixList_Nil =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOisAssociative :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: ExprSuffixList+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 620 "src/GLua/AG/PrettyPrint.ag" #-}+ empty+ {-# LINE 3771 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 621 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 3776 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 3781 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel8+ {-# LINE 3786 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ []+ {-# LINE 3791 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 3796 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 3801 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+-- 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 _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 = ([MToken]) ->+ Bool ->+ Int ->+ PrettyPrintConfig ->+ ( ([MToken]),Field,Bool,Bool,Region,Doc)+data Inh_Field = Inh_Field {comments_Inh_Field :: ([MToken]),forceMultiline_Inh_Field :: Bool,indent_Inh_Field :: Int,ppconf_Inh_Field :: PrettyPrintConfig}+data Syn_Field = Syn_Field {comments_Syn_Field :: ([MToken]),copy_Syn_Field :: Field,isMultiline_Syn_Field :: Bool,isSemiColon_Syn_Field :: Bool,pos_Syn_Field :: Region,pretty_Syn_Field :: Doc}+wrap_Field :: T_Field ->+ Inh_Field ->+ Syn_Field+wrap_Field sem (Inh_Field _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+ in (Syn_Field _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOisSemiColon _lhsOpos _lhsOpretty))+sem_Field_ExprField :: T_MExpr ->+ T_MExpr ->+ T_FieldSep ->+ T_Field+sem_Field_ExprField key_ value_ sep_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _keyOparentOperatorPrecedence :: OperatorLevel+ _keyOparentOperatorAssociative :: Bool+ _valueOparentOperatorPrecedence :: OperatorLevel+ _valueOparentOperatorAssociative :: Bool+ _lhsOisSemiColon :: Bool+ _lhsOcopy :: Field+ _lhsOcomments :: ([MToken])+ _lhsOpos :: Region+ _keyOcomments :: ([MToken])+ _keyOforceMultiline :: Bool+ _keyOindent :: Int+ _keyOppconf :: PrettyPrintConfig+ _valueOcomments :: ([MToken])+ _valueOforceMultiline :: Bool+ _valueOindent :: Int+ _valueOppconf :: PrettyPrintConfig+ _sepOindent :: Int+ _sepOppconf :: PrettyPrintConfig+ _keyIcomments :: ([MToken])+ _keyIcopy :: MExpr+ _keyIendsWithPrefixExpression :: Bool+ _keyIisAssociative :: Bool+ _keyIisLiteral :: Bool+ _keyIisMultiline :: Bool+ _keyIpos :: Region+ _keyIprecedence :: OperatorLevel+ _keyIpretty :: Doc+ _valueIcomments :: ([MToken])+ _valueIcopy :: MExpr+ _valueIendsWithPrefixExpression :: Bool+ _valueIisAssociative :: Bool+ _valueIisLiteral :: Bool+ _valueIisMultiline :: Bool+ _valueIpos :: Region+ _valueIprecedence :: OperatorLevel+ _valueIpretty :: Doc+ _sepIcopy :: FieldSep+ _sepIisMultiline :: Bool+ _sepIisSemiColon :: Bool+ _sepIpretty :: Doc+ _lhsOpretty =+ ({-# LINE 1093 "src/GLua/AG/PrettyPrint.ag" #-}+ brackets _lhsIppconf _keyIpretty <-> zchr '=' <-> _valueIpretty <> _sepIpretty+ {-# LINE 3882 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1094 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 3887 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _keyOparentOperatorPrecedence =+ ({-# LINE 1095 "src/GLua/AG/PrettyPrint.ag" #-}+ TopLevelExpression+ {-# LINE 3892 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _keyOparentOperatorAssociative =+ ({-# LINE 1096 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 3897 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valueOparentOperatorPrecedence =+ ({-# LINE 1097 "src/GLua/AG/PrettyPrint.ag" #-}+ TopLevelExpression+ {-# LINE 3902 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valueOparentOperatorAssociative =+ ({-# LINE 1098 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 3907 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisSemiColon =+ ({-# LINE 311 "src/GLua/AG/PrettyPrint.ag" #-}+ _sepIisSemiColon+ {-# LINE 3912 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ ExprField _keyIcopy _valueIcopy _sepIcopy+ {-# LINE 3917 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 3922 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _valueIcomments+ {-# LINE 3927 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpos =+ ({-# LINE 300 "src/GLua/AG/PrettyPrint.ag" #-}+ _valueIpos+ {-# LINE 3932 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _keyOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 3937 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _keyOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 3942 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _keyOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 3947 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _keyOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 3952 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valueOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _keyIcomments+ {-# LINE 3957 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valueOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 3962 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valueOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 3967 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valueOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 3972 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _sepOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 3977 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _sepOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 3982 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _keyIcomments,_keyIcopy,_keyIendsWithPrefixExpression,_keyIisAssociative,_keyIisLiteral,_keyIisMultiline,_keyIpos,_keyIprecedence,_keyIpretty) =+ key_ _keyOcomments _keyOforceMultiline _keyOindent _keyOparentOperatorAssociative _keyOparentOperatorPrecedence _keyOppconf+ ( _valueIcomments,_valueIcopy,_valueIendsWithPrefixExpression,_valueIisAssociative,_valueIisLiteral,_valueIisMultiline,_valueIpos,_valueIprecedence,_valueIpretty) =+ value_ _valueOcomments _valueOforceMultiline _valueOindent _valueOparentOperatorAssociative _valueOparentOperatorPrecedence _valueOppconf+ ( _sepIcopy,_sepIisMultiline,_sepIisSemiColon,_sepIpretty) =+ sep_ _sepOindent _sepOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty)))+sem_Field_NamedField :: MToken ->+ T_MExpr ->+ T_FieldSep ->+ T_Field+sem_Field_NamedField key_ value_ sep_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _valueOparentOperatorPrecedence :: OperatorLevel+ _valueOparentOperatorAssociative :: Bool+ _lhsOisSemiColon :: Bool+ _lhsOcopy :: Field+ _lhsOcomments :: ([MToken])+ _lhsOpos :: Region+ _valueOcomments :: ([MToken])+ _valueOforceMultiline :: Bool+ _valueOindent :: Int+ _valueOppconf :: PrettyPrintConfig+ _sepOindent :: Int+ _sepOppconf :: PrettyPrintConfig+ _valueIcomments :: ([MToken])+ _valueIcopy :: MExpr+ _valueIendsWithPrefixExpression :: Bool+ _valueIisAssociative :: Bool+ _valueIisLiteral :: Bool+ _valueIisMultiline :: Bool+ _valueIpos :: Region+ _valueIprecedence :: OperatorLevel+ _valueIpretty :: Doc+ _sepIcopy :: FieldSep+ _sepIisMultiline :: Bool+ _sepIisSemiColon :: Bool+ _sepIpretty :: Doc+ _lhsOpretty =+ ({-# LINE 1100 "src/GLua/AG/PrettyPrint.ag" #-}+ tok key_ <-> zchr '=' <-> _valueIpretty <> _sepIpretty+ {-# LINE 4030 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1101 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 4035 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valueOparentOperatorPrecedence =+ ({-# LINE 1102 "src/GLua/AG/PrettyPrint.ag" #-}+ TopLevelExpression+ {-# LINE 4040 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valueOparentOperatorAssociative =+ ({-# LINE 1103 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 4045 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisSemiColon =+ ({-# LINE 311 "src/GLua/AG/PrettyPrint.ag" #-}+ _sepIisSemiColon+ {-# LINE 4050 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ NamedField key_ _valueIcopy _sepIcopy+ {-# LINE 4055 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 4060 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _valueIcomments+ {-# LINE 4065 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpos =+ ({-# LINE 300 "src/GLua/AG/PrettyPrint.ag" #-}+ _valueIpos+ {-# LINE 4070 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valueOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 4075 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valueOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 4080 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valueOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 4085 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valueOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 4090 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _sepOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 4095 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _sepOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 4100 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _valueIcomments,_valueIcopy,_valueIendsWithPrefixExpression,_valueIisAssociative,_valueIisLiteral,_valueIisMultiline,_valueIpos,_valueIprecedence,_valueIpretty) =+ value_ _valueOcomments _valueOforceMultiline _valueOindent _valueOparentOperatorAssociative _valueOparentOperatorPrecedence _valueOppconf+ ( _sepIcopy,_sepIisMultiline,_sepIisSemiColon,_sepIpretty) =+ sep_ _sepOindent _sepOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty)))+sem_Field_UnnamedField :: T_MExpr ->+ T_FieldSep ->+ T_Field+sem_Field_UnnamedField value_ sep_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _valueOparentOperatorPrecedence :: OperatorLevel+ _valueOparentOperatorAssociative :: Bool+ _lhsOisSemiColon :: Bool+ _lhsOcopy :: Field+ _lhsOcomments :: ([MToken])+ _lhsOpos :: Region+ _valueOcomments :: ([MToken])+ _valueOforceMultiline :: Bool+ _valueOindent :: Int+ _valueOppconf :: PrettyPrintConfig+ _sepOindent :: Int+ _sepOppconf :: PrettyPrintConfig+ _valueIcomments :: ([MToken])+ _valueIcopy :: MExpr+ _valueIendsWithPrefixExpression :: Bool+ _valueIisAssociative :: Bool+ _valueIisLiteral :: Bool+ _valueIisMultiline :: Bool+ _valueIpos :: Region+ _valueIprecedence :: OperatorLevel+ _valueIpretty :: Doc+ _sepIcopy :: FieldSep+ _sepIisMultiline :: Bool+ _sepIisSemiColon :: Bool+ _sepIpretty :: Doc+ _lhsOpretty =+ ({-# LINE 1105 "src/GLua/AG/PrettyPrint.ag" #-}+ _valueIpretty <> _sepIpretty+ {-# LINE 4145 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1106 "src/GLua/AG/PrettyPrint.ag" #-}+ _valueIisMultiline || _sepIisMultiline+ {-# LINE 4150 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valueOparentOperatorPrecedence =+ ({-# LINE 1107 "src/GLua/AG/PrettyPrint.ag" #-}+ TopLevelExpression+ {-# LINE 4155 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valueOparentOperatorAssociative =+ ({-# LINE 1108 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 4160 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisSemiColon =+ ({-# LINE 311 "src/GLua/AG/PrettyPrint.ag" #-}+ _sepIisSemiColon+ {-# LINE 4165 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ UnnamedField _valueIcopy _sepIcopy+ {-# LINE 4170 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 4175 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _valueIcomments+ {-# LINE 4180 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpos =+ ({-# LINE 300 "src/GLua/AG/PrettyPrint.ag" #-}+ _valueIpos+ {-# LINE 4185 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valueOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 4190 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valueOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 4195 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valueOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 4200 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valueOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 4205 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _sepOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 4210 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _sepOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 4215 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _valueIcomments,_valueIcopy,_valueIendsWithPrefixExpression,_valueIisAssociative,_valueIisLiteral,_valueIisMultiline,_valueIpos,_valueIprecedence,_valueIpretty) =+ value_ _valueOcomments _valueOforceMultiline _valueOindent _valueOparentOperatorAssociative _valueOparentOperatorPrecedence _valueOppconf+ ( _sepIcopy,_sepIisMultiline,_sepIisSemiColon,_sepIpretty) =+ sep_ _sepOindent _sepOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty)))+-- 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 = ([MToken]) ->+ Bool ->+ Int ->+ PrettyPrintConfig ->+ Bool ->+ ( ([MToken]),FieldList,Bool,Bool,Doc)+data Inh_FieldList = Inh_FieldList {comments_Inh_FieldList :: ([MToken]),forceMultiline_Inh_FieldList :: Bool,indent_Inh_FieldList :: Int,ppconf_Inh_FieldList :: PrettyPrintConfig,someElementsInListAreMultiline_Inh_FieldList :: Bool}+data Syn_FieldList = Syn_FieldList {comments_Syn_FieldList :: ([MToken]),copy_Syn_FieldList :: FieldList,isMultiline_Syn_FieldList :: Bool,isNil_Syn_FieldList :: Bool,pretty_Syn_FieldList :: Doc}+wrap_FieldList :: T_FieldList ->+ Inh_FieldList ->+ Syn_FieldList+wrap_FieldList sem (Inh_FieldList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisNil,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline+ in (Syn_FieldList _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOisNil _lhsOpretty))+sem_FieldList_Cons :: T_Field ->+ T_FieldList ->+ T_FieldList+sem_FieldList_Cons hd_ tl_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf+ _lhsIsomeElementsInListAreMultiline ->+ (let _lhsOpretty :: Doc+ _lhsOisNil :: Bool+ _tlOsomeElementsInListAreMultiline :: Bool+ _hdOcomments :: ([MToken])+ _tlOcomments :: ([MToken])+ _lhsOcomments :: ([MToken])+ _lhsOcopy :: FieldList+ _lhsOisMultiline :: Bool+ _hdOforceMultiline :: Bool+ _hdOindent :: Int+ _hdOppconf :: PrettyPrintConfig+ _tlOforceMultiline :: Bool+ _tlOindent :: Int+ _tlOppconf :: PrettyPrintConfig+ _hdIcomments :: ([MToken])+ _hdIcopy :: Field+ _hdIisMultiline :: Bool+ _hdIisSemiColon :: Bool+ _hdIpos :: Region+ _hdIpretty :: Doc+ _tlIcomments :: ([MToken])+ _tlIcopy :: FieldList+ _tlIisMultiline :: Bool+ _tlIisNil :: Bool+ _tlIpretty :: Doc+ _lhsOpretty =+ ({-# LINE 471 "src/GLua/AG/PrettyPrint.ag" #-}+ if _isMultiline+ then renderMLComments _lhsIppconf _lhsIindent (fst _commentsBefore )+ $+$ indent _lhsIppconf _lhsIindent _hdIpretty+ <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter )+ $+$ _tlIpretty+ else _hdIpretty+ `_optionalSpaceAfterSep ` _tlIpretty+ {-# LINE 4286 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisNil =+ ({-# LINE 479 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 4291 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _optionalSpaceAfterSep =+ ({-# LINE 481 "src/GLua/AG/PrettyPrint.ag" #-}+ if spaceAfterComma _lhsIppconf then (<->) else (<>)+ {-# LINE 4296 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _isMultiline =+ ({-# LINE 483 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ || _hdIisMultiline+ || _tlIisMultiline+ || _lhsIsomeElementsInListAreMultiline+ || not (null $ fst _commentsBefore )+ || not (null $ fst _commentsAfter )+ {-# LINE 4306 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOsomeElementsInListAreMultiline =+ ({-# LINE 491 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIsomeElementsInListAreMultiline+ || _hdIisMultiline+ || not (null $ fst _commentsBefore )+ || not (null $ fst _commentsAfter )+ {-# LINE 4314 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _commentsBefore =+ ({-# LINE 497 "src/GLua/AG/PrettyPrint.ag" #-}+ span (\(MToken pos _) -> pos `before` _hdIpos) _lhsIcomments+ {-# LINE 4319 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOcomments =+ ({-# LINE 498 "src/GLua/AG/PrettyPrint.ag" #-}+ snd _commentsBefore+ {-# LINE 4324 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _commentsAfter =+ ({-# LINE 499 "src/GLua/AG/PrettyPrint.ag" #-}+ span (\(MToken pos _) -> pos `beforeOrOnLine` _hdIpos) _hdIcomments+ {-# LINE 4329 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOcomments =+ ({-# LINE 501 "src/GLua/AG/PrettyPrint.ag" #-}+ snd _commentsAfter+ {-# LINE 4334 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 502 "src/GLua/AG/PrettyPrint.ag" #-}+ _tlIcomments+ {-# LINE 4339 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ (:) _hdIcopy _tlIcopy+ {-# LINE 4344 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 4349 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 251 "src/GLua/AG/PrettyPrint.ag" #-}+ _isMultiline+ {-# LINE 4354 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 4359 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 4364 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 4369 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 4374 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 4379 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 4384 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _hdIcomments,_hdIcopy,_hdIisMultiline,_hdIisSemiColon,_hdIpos,_hdIpretty) =+ hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf+ ( _tlIcomments,_tlIcopy,_tlIisMultiline,_tlIisNil,_tlIpretty) =+ tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf _tlOsomeElementsInListAreMultiline+ in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisNil,_lhsOpretty)))+sem_FieldList_Nil :: T_FieldList+sem_FieldList_Nil =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf+ _lhsIsomeElementsInListAreMultiline ->+ (let _lhsOpretty :: Doc+ _lhsOisNil :: Bool+ _lhsOisMultiline :: Bool+ _lhsOcopy :: FieldList+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 505 "src/GLua/AG/PrettyPrint.ag" #-}+ empty+ {-# LINE 4406 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisNil =+ ({-# LINE 506 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 4411 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 507 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 4416 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ []+ {-# LINE 4421 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 4426 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 4431 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisNil,_lhsOpretty)))+-- 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 = Int ->+ PrettyPrintConfig ->+ ( FieldSep,Bool,Bool,Doc)+data Inh_FieldSep = Inh_FieldSep {indent_Inh_FieldSep :: Int,ppconf_Inh_FieldSep :: PrettyPrintConfig}+data Syn_FieldSep = Syn_FieldSep {copy_Syn_FieldSep :: FieldSep,isMultiline_Syn_FieldSep :: Bool,isSemiColon_Syn_FieldSep :: Bool,pretty_Syn_FieldSep :: Doc}+wrap_FieldSep :: T_FieldSep ->+ Inh_FieldSep ->+ Syn_FieldSep+wrap_FieldSep sem (Inh_FieldSep _lhsIindent _lhsIppconf) =+ (let ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty) = sem _lhsIindent _lhsIppconf+ in (Syn_FieldSep _lhsOcopy _lhsOisMultiline _lhsOisSemiColon _lhsOpretty))+sem_FieldSep_CommaSep :: T_FieldSep+sem_FieldSep_CommaSep =+ (\ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOisSemiColon :: Bool+ _lhsOcopy :: FieldSep+ _lhsOpretty =+ ({-# LINE 1112 "src/GLua/AG/PrettyPrint.ag" #-}+ (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) <> zchr ','+ {-# LINE 4467 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1113 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 4472 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisSemiColon =+ ({-# LINE 311 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 4477 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ CommaSep+ {-# LINE 4482 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 4487 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty)))+sem_FieldSep_SemicolonSep :: T_FieldSep+sem_FieldSep_SemicolonSep =+ (\ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisSemiColon :: Bool+ _lhsOisMultiline :: Bool+ _lhsOcopy :: FieldSep+ _lhsOpretty =+ ({-# LINE 1115 "src/GLua/AG/PrettyPrint.ag" #-}+ (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) <> zchr ';'+ {-# LINE 4501 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisSemiColon =+ ({-# LINE 1116 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 4506 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1119 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 4511 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ SemicolonSep+ {-# LINE 4516 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 4521 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty)))+sem_FieldSep_NoSep :: T_FieldSep+sem_FieldSep_NoSep =+ (\ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOisSemiColon :: Bool+ _lhsOcopy :: FieldSep+ _lhsOpretty =+ ({-# LINE 1121 "src/GLua/AG/PrettyPrint.ag" #-}+ empty+ {-# LINE 4535 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1122 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 4540 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisSemiColon =+ ({-# LINE 311 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 4545 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ NoSep+ {-# LINE 4550 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 4555 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty)))+-- FuncName ----------------------------------------------------+-- cata+sem_FuncName :: FuncName ->+ T_FuncName+sem_FuncName (FuncName _names _meta) =+ (sem_FuncName_FuncName _names _meta)+-- semantic domain+type T_FuncName = ([MToken]) ->+ Int ->+ PrettyPrintConfig ->+ ( ([MToken]),FuncName,Bool,Region,Doc)+data Inh_FuncName = Inh_FuncName {comments_Inh_FuncName :: ([MToken]),indent_Inh_FuncName :: Int,ppconf_Inh_FuncName :: PrettyPrintConfig}+data Syn_FuncName = Syn_FuncName {comments_Syn_FuncName :: ([MToken]),copy_Syn_FuncName :: FuncName,isMultiline_Syn_FuncName :: Bool,pos_Syn_FuncName :: Region,pretty_Syn_FuncName :: Doc}+wrap_FuncName :: T_FuncName ->+ Inh_FuncName ->+ Syn_FuncName+wrap_FuncName sem (Inh_FuncName _lhsIcomments _lhsIindent _lhsIppconf) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIindent _lhsIppconf+ in (Syn_FuncName _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpos _lhsOpretty))+sem_FuncName_FuncName :: ([MToken]) ->+ (Maybe MToken) ->+ T_FuncName+sem_FuncName_FuncName names_ meta_ =+ (\ _lhsIcomments+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOpos :: Region+ _lhsOcopy :: FuncName+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 899 "src/GLua/AG/PrettyPrint.ag" #-}+ printList tok "." names_ <> metaDoc meta_+ {-# LINE 4592 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 900 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 4597 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpos =+ ({-# LINE 901 "src/GLua/AG/PrettyPrint.ag" #-}+ case meta_ of+ Nothing -> _namesPos+ Just name -> rgOr _namesPos (mpos name)+ {-# LINE 4604 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _namesPos =+ ({-# LINE 905 "src/GLua/AG/PrettyPrint.ag" #-}+ foldl1 rgOr $ map mpos names_+ {-# LINE 4609 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ FuncName names_ meta_+ {-# LINE 4614 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 4619 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 4624 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))+-- MElse -------------------------------------------------------+-- cata+sem_MElse :: MElse ->+ T_MElse+sem_MElse (MElse _pos _body) =+ (sem_MElse_MElse _pos (sem_Block _body))+-- semantic domain+type T_MElse = ([MToken]) ->+ Bool ->+ Int ->+ PrettyPrintConfig ->+ Region ->+ ( ([MToken]),MElse,Bool,Bool,Region,Doc)+data Inh_MElse = Inh_MElse {comments_Inh_MElse :: ([MToken]),forceMultiline_Inh_MElse :: Bool,indent_Inh_MElse :: Int,ppconf_Inh_MElse :: PrettyPrintConfig,statRegion_Inh_MElse :: Region}+data Syn_MElse = Syn_MElse {comments_Syn_MElse :: ([MToken]),copy_Syn_MElse :: MElse,elsesExist_Syn_MElse :: Bool,isMultiline_Syn_MElse :: Bool,pos_Syn_MElse :: Region,pretty_Syn_MElse :: Doc}+wrap_MElse :: T_MElse ->+ Inh_MElse ->+ Syn_MElse+wrap_MElse sem (Inh_MElse _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion+ in (Syn_MElse _lhsOcomments _lhsOcopy _lhsOelsesExist _lhsOisMultiline _lhsOpos _lhsOpretty))+sem_MElse_MElse :: Region ->+ T_Block ->+ T_MElse+sem_MElse_MElse pos_ body_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf+ _lhsIstatRegion ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _bodyOindent :: Int+ _lhsOpos :: Region+ _bodyOcomments :: ([MToken])+ _lhsOelsesExist :: Bool+ _lhsOcopy :: MElse+ _lhsOcomments :: ([MToken])+ _bodyOforceMultiline :: Bool+ _bodyOppconf :: PrettyPrintConfig+ _bodyOstatRegion :: Region+ _bodyIcomments :: ([MToken])+ _bodyIcopy :: Block+ _bodyIisMultiline :: Bool+ _bodyIpos :: Region+ _bodyIpretty :: Doc+ _bodyIstatementCount :: Int+ _lhsOpretty =+ ({-# LINE 604 "src/GLua/AG/PrettyPrint.ag" #-}+ indent _lhsIppconf _lhsIindent (zeroWidthText "else")+ <-> _prettyCommentsAfter+ $+$ _bodyIpretty+ {-# LINE 4679 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 608 "src/GLua/AG/PrettyPrint.ag" #-}+ _bodyIisMultiline+ {-# LINE 4684 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOindent =+ ({-# LINE 609 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent + 1+ {-# LINE 4689 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _prettyCommentsAfter =+ ({-# LINE 610 "src/GLua/AG/PrettyPrint.ag" #-}+ renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter )+ {-# LINE 4694 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _commentsAfter =+ ({-# LINE 611 "src/GLua/AG/PrettyPrint.ag" #-}+ span (\(MToken pos _) -> pos `beforeOrOnLine` pos_) _lhsIcomments+ {-# LINE 4699 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpos =+ ({-# LINE 612 "src/GLua/AG/PrettyPrint.ag" #-}+ pos_+ {-# LINE 4704 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOcomments =+ ({-# LINE 613 "src/GLua/AG/PrettyPrint.ag" #-}+ snd _commentsAfter+ {-# LINE 4709 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOelsesExist =+ ({-# LINE 317 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 4714 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ MElse pos_ _bodyIcopy+ {-# LINE 4719 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 4724 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _bodyIcomments+ {-# LINE 4729 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 4734 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 4739 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOstatRegion =+ ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIstatRegion+ {-# LINE 4744 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =+ body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+ in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))+-- MElseIf -----------------------------------------------------+-- cata+sem_MElseIf :: MElseIf ->+ T_MElseIf+sem_MElseIf (MElseIf _pos _elif) =+ (sem_MElseIf_MElseIf _pos (sem_ElseIf _elif))+-- semantic domain+type T_MElseIf = ([MToken]) ->+ Bool ->+ Int ->+ PrettyPrintConfig ->+ ( ([MToken]),MElseIf,Bool,Region,Doc)+data Inh_MElseIf = Inh_MElseIf {comments_Inh_MElseIf :: ([MToken]),forceMultiline_Inh_MElseIf :: Bool,indent_Inh_MElseIf :: Int,ppconf_Inh_MElseIf :: PrettyPrintConfig}+data Syn_MElseIf = Syn_MElseIf {comments_Syn_MElseIf :: ([MToken]),copy_Syn_MElseIf :: MElseIf,isMultiline_Syn_MElseIf :: Bool,pos_Syn_MElseIf :: Region,pretty_Syn_MElseIf :: Doc}+wrap_MElseIf :: T_MElseIf ->+ Inh_MElseIf ->+ Syn_MElseIf+wrap_MElseIf sem (Inh_MElseIf _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+ in (Syn_MElseIf _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpos _lhsOpretty))+sem_MElseIf_MElseIf :: Region ->+ T_ElseIf ->+ T_MElseIf+sem_MElseIf_MElseIf pos_ elif_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpos :: Region+ _lhsOisMultiline :: Bool+ _lhsOcopy :: MElseIf+ _lhsOcomments :: ([MToken])+ _lhsOpretty :: Doc+ _elifOcomments :: ([MToken])+ _elifOforceMultiline :: Bool+ _elifOindent :: Int+ _elifOppconf :: PrettyPrintConfig+ _elifIcomments :: ([MToken])+ _elifIcopy :: ElseIf+ _elifIisMultiline :: Bool+ _elifIpretty :: Doc+ _lhsOpos =+ ({-# LINE 579 "src/GLua/AG/PrettyPrint.ag" #-}+ pos_+ {-# LINE 4793 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 580 "src/GLua/AG/PrettyPrint.ag" #-}+ _elifIisMultiline+ {-# LINE 4798 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ MElseIf pos_ _elifIcopy+ {-# LINE 4803 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 4808 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _elifIcomments+ {-# LINE 4813 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpretty =+ ({-# LINE 249 "src/GLua/AG/PrettyPrint.ag" #-}+ _elifIpretty+ {-# LINE 4818 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _elifOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 4823 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _elifOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 4828 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _elifOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 4833 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _elifOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 4838 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _elifIcomments,_elifIcopy,_elifIisMultiline,_elifIpretty) =+ elif_ _elifOcomments _elifOforceMultiline _elifOindent _elifOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))+-- MExpr -------------------------------------------------------+-- cata+sem_MExpr :: MExpr ->+ T_MExpr+sem_MExpr (MExpr _pos _expr) =+ (sem_MExpr_MExpr _pos (sem_Expr _expr))+-- semantic domain+type T_MExpr = ([MToken]) ->+ Bool ->+ Int ->+ Bool ->+ OperatorLevel ->+ PrettyPrintConfig ->+ ( ([MToken]),MExpr,Bool,Bool,Bool,Bool,Region,OperatorLevel,Doc)+data Inh_MExpr = Inh_MExpr {comments_Inh_MExpr :: ([MToken]),forceMultiline_Inh_MExpr :: Bool,indent_Inh_MExpr :: Int,parentOperatorAssociative_Inh_MExpr :: Bool,parentOperatorPrecedence_Inh_MExpr :: OperatorLevel,ppconf_Inh_MExpr :: PrettyPrintConfig}+data Syn_MExpr = Syn_MExpr {comments_Syn_MExpr :: ([MToken]),copy_Syn_MExpr :: MExpr,endsWithPrefixExpression_Syn_MExpr :: Bool,isAssociative_Syn_MExpr :: Bool,isLiteral_Syn_MExpr :: Bool,isMultiline_Syn_MExpr :: Bool,pos_Syn_MExpr :: Region,precedence_Syn_MExpr :: OperatorLevel,pretty_Syn_MExpr :: Doc}+wrap_MExpr :: T_MExpr ->+ Inh_MExpr ->+ Syn_MExpr+wrap_MExpr sem (Inh_MExpr _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf+ in (Syn_MExpr _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisAssociative _lhsOisLiteral _lhsOisMultiline _lhsOpos _lhsOprecedence _lhsOpretty))+sem_MExpr_MExpr :: Region ->+ T_Expr ->+ T_MExpr+sem_MExpr_MExpr pos_ expr_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIparentOperatorAssociative+ _lhsIparentOperatorPrecedence+ _lhsIppconf ->+ (let _lhsOpos :: Region+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _exprOstatRegion :: Region+ _lhsOisAssociative :: Bool+ _lhsOisLiteral :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: MExpr+ _lhsOcomments :: ([MToken])+ _lhsOpretty :: Doc+ _exprOcomments :: ([MToken])+ _exprOforceMultiline :: Bool+ _exprOindent :: Int+ _exprOparentOperatorAssociative :: Bool+ _exprOparentOperatorPrecedence :: OperatorLevel+ _exprOppconf :: PrettyPrintConfig+ _exprIcomments :: ([MToken])+ _exprIcopy :: Expr+ _exprIendsWithPrefixExpression :: Bool+ _exprIisAssociative :: Bool+ _exprIisLiteral :: Bool+ _exprIisMultiline :: Bool+ _exprIprecedence :: OperatorLevel+ _exprIpretty :: Doc+ _lhsOpos =+ ({-# LINE 978 "src/GLua/AG/PrettyPrint.ag" #-}+ pos_+ {-# LINE 4902 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 979 "src/GLua/AG/PrettyPrint.ag" #-}+ _exprIendsWithPrefixExpression+ {-# LINE 4907 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 980 "src/GLua/AG/PrettyPrint.ag" #-}+ _exprIisMultiline+ {-# LINE 4912 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _exprOstatRegion =+ ({-# LINE 981 "src/GLua/AG/PrettyPrint.ag" #-}+ pos_+ {-# LINE 4917 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ _exprIisAssociative+ {-# LINE 4922 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLiteral =+ ({-# LINE 263 "src/GLua/AG/PrettyPrint.ag" #-}+ _exprIisLiteral+ {-# LINE 4927 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ _exprIprecedence+ {-# LINE 4932 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ MExpr pos_ _exprIcopy+ {-# LINE 4937 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 4942 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _exprIcomments+ {-# LINE 4947 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpretty =+ ({-# LINE 249 "src/GLua/AG/PrettyPrint.ag" #-}+ _exprIpretty+ {-# LINE 4952 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _exprOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 4957 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _exprOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 4962 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _exprOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 4967 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _exprOparentOperatorAssociative =+ ({-# LINE 260 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIparentOperatorAssociative+ {-# LINE 4972 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _exprOparentOperatorPrecedence =+ ({-# LINE 259 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIparentOperatorPrecedence+ {-# LINE 4977 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _exprOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 4982 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _exprIcomments,_exprIcopy,_exprIendsWithPrefixExpression,_exprIisAssociative,_exprIisLiteral,_exprIisMultiline,_exprIprecedence,_exprIpretty) =+ expr_ _exprOcomments _exprOforceMultiline _exprOindent _exprOparentOperatorAssociative _exprOparentOperatorPrecedence _exprOppconf _exprOstatRegion+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty)))+-- 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 = ([MToken]) ->+ Bool ->+ Int ->+ PrettyPrintConfig ->+ Bool ->+ ( ([MToken]),MExprList,Bool,Bool,Bool,Region,OperatorLevel,Doc,Bool)+data Inh_MExprList = Inh_MExprList {comments_Inh_MExprList :: ([MToken]),forceMultiline_Inh_MExprList :: Bool,indent_Inh_MExprList :: Int,ppconf_Inh_MExprList :: PrettyPrintConfig,someElementsInListAreMultiline_Inh_MExprList :: Bool}+data Syn_MExprList = Syn_MExprList {comments_Syn_MExprList :: ([MToken]),copy_Syn_MExprList :: MExprList,isAssociative_Syn_MExprList :: Bool,isLast_Syn_MExprList :: Bool,isMultiline_Syn_MExprList :: Bool,pos_Syn_MExprList :: Region,precedence_Syn_MExprList :: OperatorLevel,pretty_Syn_MExprList :: Doc,startsWithNewline_Syn_MExprList :: Bool}+wrap_MExprList :: T_MExprList ->+ Inh_MExprList ->+ Syn_MExprList+wrap_MExprList sem (Inh_MExprList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLast,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithNewline) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline+ in (Syn_MExprList _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisLast _lhsOisMultiline _lhsOpos _lhsOprecedence _lhsOpretty _lhsOstartsWithNewline))+sem_MExprList_Cons :: T_MExpr ->+ T_MExprList ->+ T_MExprList+sem_MExprList_Cons hd_ tl_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf+ _lhsIsomeElementsInListAreMultiline ->+ (let _lhsOpretty :: Doc+ _hdOcomments :: ([MToken])+ _tlOcomments :: ([MToken])+ _lhsOcomments :: ([MToken])+ _lhsOpos :: Region+ _lhsOisLast :: Bool+ _hdOparentOperatorPrecedence :: OperatorLevel+ _hdOparentOperatorAssociative :: Bool+ _tlOsomeElementsInListAreMultiline :: Bool+ _lhsOisAssociative :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: MExprList+ _lhsOisMultiline :: Bool+ _lhsOstartsWithNewline :: Bool+ _hdOforceMultiline :: Bool+ _hdOindent :: Int+ _hdOppconf :: PrettyPrintConfig+ _tlOforceMultiline :: Bool+ _tlOindent :: Int+ _tlOppconf :: PrettyPrintConfig+ _hdIcomments :: ([MToken])+ _hdIcopy :: MExpr+ _hdIendsWithPrefixExpression :: Bool+ _hdIisAssociative :: Bool+ _hdIisLiteral :: Bool+ _hdIisMultiline :: Bool+ _hdIpos :: Region+ _hdIprecedence :: OperatorLevel+ _hdIpretty :: Doc+ _tlIcomments :: ([MToken])+ _tlIcopy :: MExprList+ _tlIisAssociative :: Bool+ _tlIisLast :: Bool+ _tlIisMultiline :: Bool+ _tlIpos :: Region+ _tlIprecedence :: OperatorLevel+ _tlIpretty :: Doc+ _tlIstartsWithNewline :: Bool+ _lhsOpretty =+ ({-# LINE 407 "src/GLua/AG/PrettyPrint.ag" #-}+ if _lhsIforceMultiline then _prettyForcedMultiline else _prettyNotForcedMultiline+ {-# LINE 5058 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _prettyNotForcedMultiline =+ ({-# LINE 408 "src/GLua/AG/PrettyPrint.ag" #-}+ (if _startsWithNewline then+ zchr '\n' <>+ renderMLComments _lhsIppconf (_lhsIindent + 1) (fst _commentsBeforeLine ) $+$+ indent _lhsIppconf (_lhsIindent + 1) _hdIpretty+ else+ _hdIpretty)+ <> _comma+ <> (if (not $ null $ fst _commentsAfter ) then+ renderSLComments _lhsIppconf (_lhsIindent + 1) (fst _commentsAfter ) $+$+ indent _lhsIppconf (_lhsIindent + 1) _tlIpretty+ else+ _tlIpretty)+ {-# LINE 5074 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _prettyForcedMultiline =+ ({-# LINE 423 "src/GLua/AG/PrettyPrint.ag" #-}+ renderMLComments _lhsIppconf _lhsIindent (fst _commentsBeforeLine )+ $+$ indent _lhsIppconf (_lhsIindent) _hdIpretty+ <> _comma+ <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter )+ $+$ _tlIpretty+ {-# LINE 5083 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _comma =+ ({-# LINE 429 "src/GLua/AG/PrettyPrint.ag" #-}+ if _tlIisLast then+ empty+ else+ (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)+ <> zchr ','+ <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)+ {-# LINE 5093 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _startsWithNewline =+ ({-# LINE 437 "src/GLua/AG/PrettyPrint.ag" #-}+ not $ null $ fst _commentsBeforeLine+ {-# LINE 5098 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _commentsBeforeLine =+ ({-# LINE 438 "src/GLua/AG/PrettyPrint.ag" #-}+ span (\(MToken pos' _) -> pos' `before` _hdIpos) _lhsIcomments+ {-# LINE 5103 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOcomments =+ ({-# LINE 439 "src/GLua/AG/PrettyPrint.ag" #-}+ snd _commentsBeforeLine+ {-# LINE 5108 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _commentsAfter =+ ({-# LINE 440 "src/GLua/AG/PrettyPrint.ag" #-}+ span (\(MToken pos' _) -> pos' `before` _tlIpos) _hdIcomments+ {-# LINE 5113 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOcomments =+ ({-# LINE 441 "src/GLua/AG/PrettyPrint.ag" #-}+ snd _commentsAfter+ {-# LINE 5118 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 442 "src/GLua/AG/PrettyPrint.ag" #-}+ _tlIcomments+ {-# LINE 5123 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpos =+ ({-# LINE 444 "src/GLua/AG/PrettyPrint.ag" #-}+ _hdIpos+ {-# LINE 5128 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLast =+ ({-# LINE 445 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 5133 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOparentOperatorPrecedence =+ ({-# LINE 446 "src/GLua/AG/PrettyPrint.ag" #-}+ TopLevelExpression+ {-# LINE 5138 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOparentOperatorAssociative =+ ({-# LINE 447 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 5143 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _isMultiline =+ ({-# LINE 448 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ || not (null $ fst _commentsBeforeLine )+ || not (null $ fst _commentsAfter )+ || _lhsIsomeElementsInListAreMultiline+ || _hdIisMultiline+ || _tlIisMultiline+ {-# LINE 5153 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOsomeElementsInListAreMultiline =+ ({-# LINE 456 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIsomeElementsInListAreMultiline+ || _hdIisMultiline+ || not (null $ fst _commentsBeforeLine )+ || not (null $ fst _commentsAfter )+ {-# LINE 5161 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ _hdIisAssociative && _tlIisAssociative+ {-# LINE 5166 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ (min _hdIprecedence _tlIprecedence)+ {-# LINE 5171 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ (:) _hdIcopy _tlIcopy+ {-# LINE 5176 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 5181 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 251 "src/GLua/AG/PrettyPrint.ag" #-}+ _isMultiline+ {-# LINE 5186 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithNewline =+ ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+ _startsWithNewline+ {-# LINE 5191 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 5196 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 5201 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 5206 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 5211 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 5216 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 5221 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _hdIcomments,_hdIcopy,_hdIendsWithPrefixExpression,_hdIisAssociative,_hdIisLiteral,_hdIisMultiline,_hdIpos,_hdIprecedence,_hdIpretty) =+ hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOparentOperatorAssociative _hdOparentOperatorPrecedence _hdOppconf+ ( _tlIcomments,_tlIcopy,_tlIisAssociative,_tlIisLast,_tlIisMultiline,_tlIpos,_tlIprecedence,_tlIpretty,_tlIstartsWithNewline) =+ tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf _tlOsomeElementsInListAreMultiline+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLast,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithNewline)))+sem_MExprList_Nil :: T_MExprList+sem_MExprList_Nil =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf+ _lhsIsomeElementsInListAreMultiline ->+ (let _lhsOpretty :: Doc+ _lhsOpos :: Region+ _lhsOisMultiline :: Bool+ _lhsOisLast :: Bool+ _lhsOstartsWithNewline :: Bool+ _lhsOisAssociative :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: MExprList+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 463 "src/GLua/AG/PrettyPrint.ag" #-}+ empty+ {-# LINE 5247 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpos =+ ({-# LINE 464 "src/GLua/AG/PrettyPrint.ag" #-}+ emptyRg+ {-# LINE 5252 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 465 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 5257 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLast =+ ({-# LINE 466 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 5262 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithNewline =+ ({-# LINE 467 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 5267 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 5272 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel8+ {-# LINE 5277 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ []+ {-# LINE 5282 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 5287 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 5292 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLast,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithNewline)))+-- MStat -------------------------------------------------------+-- cata+sem_MStat :: MStat ->+ T_MStat+sem_MStat (MStat _pos _stat) =+ (sem_MStat_MStat _pos (sem_Stat _stat))+-- semantic domain+type T_MStat = ([MToken]) ->+ Bool ->+ Int ->+ Bool ->+ PrettyPrintConfig ->+ Bool ->+ ( ([MToken]),MStat,Bool,Bool,Region,Doc,Bool,Int)+data Inh_MStat = Inh_MStat {comments_Inh_MStat :: ([MToken]),forceMultiline_Inh_MStat :: Bool,indent_Inh_MStat :: Int,isLastStatement_Inh_MStat :: Bool,ppconf_Inh_MStat :: PrettyPrintConfig,wouldBeAmbiguousWithoutSemicolon_Inh_MStat :: Bool}+data Syn_MStat = Syn_MStat {comments_Syn_MStat :: ([MToken]),copy_Syn_MStat :: MStat,endsWithPrefixExpression_Syn_MStat :: Bool,isMultiline_Syn_MStat :: Bool,pos_Syn_MStat :: Region,pretty_Syn_MStat :: Doc,startsWithExprPrefixExpression_Syn_MStat :: Bool,statementCount_Syn_MStat :: Int}+wrap_MStat :: T_MStat ->+ Inh_MStat ->+ Syn_MStat+wrap_MStat sem (Inh_MStat _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIwouldBeAmbiguousWithoutSemicolon) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpos,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIwouldBeAmbiguousWithoutSemicolon+ in (Syn_MStat _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisMultiline _lhsOpos _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOstatementCount))+sem_MStat_MStat :: Region ->+ T_Stat ->+ T_MStat+sem_MStat_MStat pos_ stat_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIisLastStatement+ _lhsIppconf+ _lhsIwouldBeAmbiguousWithoutSemicolon ->+ (let _lhsOpos :: Region+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _statOstatRegion :: Region+ _statOwouldBeAmbiguousWithoutSemicolon :: Bool+ _lhsOstatementCount :: Int+ _lhsOcopy :: MStat+ _lhsOcomments :: ([MToken])+ _lhsOpretty :: Doc+ _statOcomments :: ([MToken])+ _statOforceMultiline :: Bool+ _statOindent :: Int+ _statOisLastStatement :: Bool+ _statOppconf :: PrettyPrintConfig+ _statIcomments :: ([MToken])+ _statIcopy :: Stat+ _statIendsWithPrefixExpression :: Bool+ _statIisMultiline :: Bool+ _statIpretty :: Doc+ _statIstartsWithExprPrefixExpression :: Bool+ _lhsOpos =+ ({-# LINE 398 "src/GLua/AG/PrettyPrint.ag" #-}+ pos_+ {-# LINE 5351 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 399 "src/GLua/AG/PrettyPrint.ag" #-}+ _statIstartsWithExprPrefixExpression+ {-# LINE 5356 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 400 "src/GLua/AG/PrettyPrint.ag" #-}+ _statIendsWithPrefixExpression+ {-# LINE 5361 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 401 "src/GLua/AG/PrettyPrint.ag" #-}+ _statIisMultiline+ {-# LINE 5366 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _statOstatRegion =+ ({-# LINE 402 "src/GLua/AG/PrettyPrint.ag" #-}+ pos_+ {-# LINE 5371 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _statOwouldBeAmbiguousWithoutSemicolon =+ ({-# LINE 403 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIwouldBeAmbiguousWithoutSemicolon+ {-# LINE 5376 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstatementCount =+ ({-# LINE 314 "src/GLua/AG/PrettyPrint.ag" #-}+ 1+ {-# LINE 5381 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ MStat pos_ _statIcopy+ {-# LINE 5386 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 5391 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _statIcomments+ {-# LINE 5396 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpretty =+ ({-# LINE 249 "src/GLua/AG/PrettyPrint.ag" #-}+ _statIpretty+ {-# LINE 5401 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _statOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 5406 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _statOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 5411 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _statOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 5416 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _statOisLastStatement =+ ({-# LINE 297 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIisLastStatement+ {-# LINE 5421 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _statOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 5426 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _statIcomments,_statIcopy,_statIendsWithPrefixExpression,_statIisMultiline,_statIpretty,_statIstartsWithExprPrefixExpression) =+ stat_ _statOcomments _statOforceMultiline _statOindent _statOisLastStatement _statOppconf _statOstatRegion _statOwouldBeAmbiguousWithoutSemicolon+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpos,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount)))+-- 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 = ([MToken]) ->+ Bool ->+ Int ->+ PrettyPrintConfig ->+ Region ->+ ( ([MToken]),MStatList,Bool,Bool,Doc,Bool,Int)+data Inh_MStatList = Inh_MStatList {comments_Inh_MStatList :: ([MToken]),forceMultiline_Inh_MStatList :: Bool,indent_Inh_MStatList :: Int,ppconf_Inh_MStatList :: PrettyPrintConfig,statRegion_Inh_MStatList :: Region}+data Syn_MStatList = Syn_MStatList {comments_Syn_MStatList :: ([MToken]),copy_Syn_MStatList :: MStatList,isLast_Syn_MStatList :: Bool,isMultiline_Syn_MStatList :: Bool,pretty_Syn_MStatList :: Doc,startsWithExprPrefixExpression_Syn_MStatList :: Bool,statementCount_Syn_MStatList :: Int}+wrap_MStatList :: T_MStatList ->+ Inh_MStatList ->+ Syn_MStatList+wrap_MStatList sem (Inh_MStatList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion+ in (Syn_MStatList _lhsOcomments _lhsOcopy _lhsOisLast _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOstatementCount))+sem_MStatList_Cons :: T_MStat ->+ T_MStatList ->+ T_MStatList+sem_MStatList_Cons hd_ tl_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf+ _lhsIstatRegion ->+ (let _lhsOpretty :: Doc+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOisLast :: Bool+ _hdOcomments :: ([MToken])+ _tlOcomments :: ([MToken])+ _lhsOcomments :: ([MToken])+ _hdOisLastStatement :: Bool+ _hdOwouldBeAmbiguousWithoutSemicolon :: Bool+ _hdOforceMultiline :: Bool+ _lhsOstatementCount :: Int+ _lhsOcopy :: MStatList+ _lhsOisMultiline :: Bool+ _hdOindent :: Int+ _hdOppconf :: PrettyPrintConfig+ _tlOforceMultiline :: Bool+ _tlOindent :: Int+ _tlOppconf :: PrettyPrintConfig+ _tlOstatRegion :: Region+ _hdIcomments :: ([MToken])+ _hdIcopy :: MStat+ _hdIendsWithPrefixExpression :: Bool+ _hdIisMultiline :: Bool+ _hdIpos :: Region+ _hdIpretty :: Doc+ _hdIstartsWithExprPrefixExpression :: Bool+ _hdIstatementCount :: Int+ _tlIcomments :: ([MToken])+ _tlIcopy :: MStatList+ _tlIisLast :: Bool+ _tlIisMultiline :: Bool+ _tlIpretty :: Doc+ _tlIstartsWithExprPrefixExpression :: Bool+ _tlIstatementCount :: Int+ _lhsOpretty =+ ({-# LINE 357 "src/GLua/AG/PrettyPrint.ag" #-}+ renderMLComments _lhsIppconf _lhsIindent (fst _commentsBeforeLine )+ $+$ indent _lhsIppconf _lhsIindent _hdIpretty+ <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter )+ <> _addNewline+ $+$ _tlIpretty+ {-# LINE 5501 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+ _hdIstartsWithExprPrefixExpression+ {-# LINE 5506 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLast =+ ({-# LINE 364 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 5511 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _isMultiline =+ ({-# LINE 366 "src/GLua/AG/PrettyPrint.ag" #-}+ _hdIisMultiline+ || _tlIisMultiline+ || not (null $ fst _commentsBeforeLine )+ || not (null $ fst _commentsAfter )+ {-# LINE 5519 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _addNewline =+ ({-# LINE 371 "src/GLua/AG/PrettyPrint.ag" #-}+ if not _tlIisLast && _hdIisMultiline then zchr '\n' else empty+ {-# LINE 5524 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _commentsBeforeLine =+ ({-# LINE 374 "src/GLua/AG/PrettyPrint.ag" #-}+ span (\(MToken pos' _) -> pos' `before` _hdIpos) _lhsIcomments+ {-# LINE 5529 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOcomments =+ ({-# LINE 375 "src/GLua/AG/PrettyPrint.ag" #-}+ snd _commentsBeforeLine+ {-# LINE 5534 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _commentsAfter =+ ({-# LINE 376 "src/GLua/AG/PrettyPrint.ag" #-}+ span (\(MToken pos' _) -> pos' `beforeOrOnLine` _hdIpos) _hdIcomments+ {-# LINE 5539 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOcomments =+ ({-# LINE 377 "src/GLua/AG/PrettyPrint.ag" #-}+ snd _commentsAfter+ {-# LINE 5544 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 378 "src/GLua/AG/PrettyPrint.ag" #-}+ _tlIcomments+ {-# LINE 5549 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOisLastStatement =+ ({-# LINE 380 "src/GLua/AG/PrettyPrint.ag" #-}+ _tlIisLast+ {-# LINE 5554 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOwouldBeAmbiguousWithoutSemicolon =+ ({-# LINE 386 "src/GLua/AG/PrettyPrint.ag" #-}+ _hdIendsWithPrefixExpression && _tlIstartsWithExprPrefixExpression+ {-# LINE 5559 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOforceMultiline =+ ({-# LINE 388 "src/GLua/AG/PrettyPrint.ag" #-}+ commentsForceMultiline $ fst _commentsBeforeLine+ {-# LINE 5564 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstatementCount =+ ({-# LINE 314 "src/GLua/AG/PrettyPrint.ag" #-}+ _hdIstatementCount + _tlIstatementCount+ {-# LINE 5569 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ (:) _hdIcopy _tlIcopy+ {-# LINE 5574 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 5579 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 251 "src/GLua/AG/PrettyPrint.ag" #-}+ _isMultiline+ {-# LINE 5584 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 5589 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 5594 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 5599 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 5604 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 5609 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOstatRegion =+ ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIstatRegion+ {-# LINE 5614 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _hdIcomments,_hdIcopy,_hdIendsWithPrefixExpression,_hdIisMultiline,_hdIpos,_hdIpretty,_hdIstartsWithExprPrefixExpression,_hdIstatementCount) =+ hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOisLastStatement _hdOppconf _hdOwouldBeAmbiguousWithoutSemicolon+ ( _tlIcomments,_tlIcopy,_tlIisLast,_tlIisMultiline,_tlIpretty,_tlIstartsWithExprPrefixExpression,_tlIstatementCount) =+ tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf _tlOstatRegion+ in ( _lhsOcomments,_lhsOcopy,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount)))+sem_MStatList_Nil :: T_MStatList+sem_MStatList_Nil =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf+ _lhsIstatRegion ->+ (let _lhsOpretty :: Doc+ _lhsOstatementCount :: Int+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _lhsOisLast :: Bool+ _lhsOcopy :: MStatList+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 390 "src/GLua/AG/PrettyPrint.ag" #-}+ empty+ {-# LINE 5638 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstatementCount =+ ({-# LINE 391 "src/GLua/AG/PrettyPrint.ag" #-}+ 0+ {-# LINE 5643 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 392 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 5648 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 393 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 5653 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLast =+ ({-# LINE 394 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 5658 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ []+ {-# LINE 5663 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 5668 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 5673 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount)))+-- 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 = ([MToken]) ->+ Bool ->+ Int ->+ PrettyPrintConfig ->+ ( ([MToken]),MaybeMExpr,Bool,Bool,Bool,Bool,OperatorLevel,Doc)+data Inh_MaybeMExpr = Inh_MaybeMExpr {comments_Inh_MaybeMExpr :: ([MToken]),forceMultiline_Inh_MaybeMExpr :: Bool,indent_Inh_MaybeMExpr :: Int,ppconf_Inh_MaybeMExpr :: PrettyPrintConfig}+data Syn_MaybeMExpr = Syn_MaybeMExpr {comments_Syn_MaybeMExpr :: ([MToken]),copy_Syn_MaybeMExpr :: MaybeMExpr,endsWithPrefixExpression_Syn_MaybeMExpr :: Bool,isAssociative_Syn_MaybeMExpr :: Bool,isDefined_Syn_MaybeMExpr :: Bool,isMultiline_Syn_MaybeMExpr :: Bool,precedence_Syn_MaybeMExpr :: OperatorLevel,pretty_Syn_MaybeMExpr :: Doc}+wrap_MaybeMExpr :: T_MaybeMExpr ->+ Inh_MaybeMExpr ->+ Syn_MaybeMExpr+wrap_MaybeMExpr sem (Inh_MaybeMExpr _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisDefined,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+ in (Syn_MaybeMExpr _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisAssociative _lhsOisDefined _lhsOisMultiline _lhsOprecedence _lhsOpretty))+sem_MaybeMExpr_Just :: T_MExpr ->+ T_MaybeMExpr+sem_MaybeMExpr_Just just_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisDefined :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _justOparentOperatorPrecedence :: OperatorLevel+ _justOparentOperatorAssociative :: Bool+ _lhsOisAssociative :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: MaybeMExpr+ _lhsOcomments :: ([MToken])+ _justOcomments :: ([MToken])+ _justOforceMultiline :: Bool+ _justOindent :: Int+ _justOppconf :: PrettyPrintConfig+ _justIcomments :: ([MToken])+ _justIcopy :: MExpr+ _justIendsWithPrefixExpression :: Bool+ _justIisAssociative :: Bool+ _justIisLiteral :: Bool+ _justIisMultiline :: Bool+ _justIpos :: Region+ _justIprecedence :: OperatorLevel+ _justIpretty :: Doc+ _lhsOpretty =+ ({-# LINE 511 "src/GLua/AG/PrettyPrint.ag" #-}+ _justIpretty+ {-# LINE 5731 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisDefined =+ ({-# LINE 512 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 5736 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 513 "src/GLua/AG/PrettyPrint.ag" #-}+ _justIendsWithPrefixExpression+ {-# LINE 5741 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 514 "src/GLua/AG/PrettyPrint.ag" #-}+ _justIisMultiline+ {-# LINE 5746 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _justOparentOperatorPrecedence =+ ({-# LINE 515 "src/GLua/AG/PrettyPrint.ag" #-}+ TopLevelExpression+ {-# LINE 5751 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _justOparentOperatorAssociative =+ ({-# LINE 516 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 5756 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ _justIisAssociative+ {-# LINE 5761 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ _justIprecedence+ {-# LINE 5766 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ Just _justIcopy+ {-# LINE 5771 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 5776 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _justIcomments+ {-# LINE 5781 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _justOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 5786 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _justOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 5791 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _justOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 5796 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _justOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 5801 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _justIcomments,_justIcopy,_justIendsWithPrefixExpression,_justIisAssociative,_justIisLiteral,_justIisMultiline,_justIpos,_justIprecedence,_justIpretty) =+ just_ _justOcomments _justOforceMultiline _justOindent _justOparentOperatorAssociative _justOparentOperatorPrecedence _justOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisDefined,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_MaybeMExpr_Nothing :: T_MaybeMExpr+sem_MaybeMExpr_Nothing =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisDefined :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _lhsOisAssociative :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: MaybeMExpr+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 518 "src/GLua/AG/PrettyPrint.ag" #-}+ empty+ {-# LINE 5823 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisDefined =+ ({-# LINE 519 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 5828 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 520 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 5833 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 521 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 5838 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 5843 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel8+ {-# LINE 5848 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ Nothing+ {-# LINE 5853 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 5858 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 5863 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisDefined,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+-- 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 _fn (sem_Args _args))+sem_PFExprSuffix (ExprIndex _index) =+ (sem_PFExprSuffix_ExprIndex (sem_MExpr _index))+sem_PFExprSuffix (DotIndex _index) =+ (sem_PFExprSuffix_DotIndex _index)+-- semantic domain+type T_PFExprSuffix = ([MToken]) ->+ Bool ->+ Int ->+ PrettyPrintConfig ->+ ( ([MToken]),PFExprSuffix,Bool,Bool,OperatorLevel,Doc)+data Inh_PFExprSuffix = Inh_PFExprSuffix {comments_Inh_PFExprSuffix :: ([MToken]),forceMultiline_Inh_PFExprSuffix :: Bool,indent_Inh_PFExprSuffix :: Int,ppconf_Inh_PFExprSuffix :: PrettyPrintConfig}+data Syn_PFExprSuffix = Syn_PFExprSuffix {comments_Syn_PFExprSuffix :: ([MToken]),copy_Syn_PFExprSuffix :: PFExprSuffix,isAssociative_Syn_PFExprSuffix :: Bool,isMultiline_Syn_PFExprSuffix :: Bool,precedence_Syn_PFExprSuffix :: OperatorLevel,pretty_Syn_PFExprSuffix :: Doc}+wrap_PFExprSuffix :: T_PFExprSuffix ->+ Inh_PFExprSuffix ->+ Syn_PFExprSuffix+wrap_PFExprSuffix sem (Inh_PFExprSuffix _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+ in (Syn_PFExprSuffix _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisMultiline _lhsOprecedence _lhsOpretty))+sem_PFExprSuffix_Call :: T_Args ->+ T_PFExprSuffix+sem_PFExprSuffix_Call args_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOisAssociative :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: PFExprSuffix+ _lhsOcomments :: ([MToken])+ _argsOcomments :: ([MToken])+ _argsOforceMultiline :: Bool+ _argsOindent :: Int+ _argsOppconf :: PrettyPrintConfig+ _argsIcomments :: ([MToken])+ _argsIcopy :: Args+ _argsIisMultiline :: Bool+ _argsIpretty :: Doc+ _lhsOpretty =+ ({-# LINE 962 "src/GLua/AG/PrettyPrint.ag" #-}+ _argsIpretty+ {-# LINE 5916 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 963 "src/GLua/AG/PrettyPrint.ag" #-}+ _argsIisMultiline+ {-# LINE 5921 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 5926 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel8+ {-# LINE 5931 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ Call _argsIcopy+ {-# LINE 5936 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 5941 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _argsIcomments+ {-# LINE 5946 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _argsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 5951 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _argsOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 5956 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _argsOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 5961 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _argsOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 5966 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _argsIcomments,_argsIcopy,_argsIisMultiline,_argsIpretty) =+ args_ _argsOcomments _argsOforceMultiline _argsOindent _argsOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_PFExprSuffix_MetaCall :: MToken ->+ T_Args ->+ T_PFExprSuffix+sem_PFExprSuffix_MetaCall fn_ args_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOisAssociative :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: PFExprSuffix+ _lhsOcomments :: ([MToken])+ _argsOcomments :: ([MToken])+ _argsOforceMultiline :: Bool+ _argsOindent :: Int+ _argsOppconf :: PrettyPrintConfig+ _argsIcomments :: ([MToken])+ _argsIcopy :: Args+ _argsIisMultiline :: Bool+ _argsIpretty :: Doc+ _lhsOpretty =+ ({-# LINE 965 "src/GLua/AG/PrettyPrint.ag" #-}+ zchr ':' <> tok fn_ <> _argsIpretty+ {-# LINE 5996 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 966 "src/GLua/AG/PrettyPrint.ag" #-}+ _argsIisMultiline+ {-# LINE 6001 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 6006 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel8+ {-# LINE 6011 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ MetaCall fn_ _argsIcopy+ {-# LINE 6016 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 6021 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _argsIcomments+ {-# LINE 6026 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _argsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 6031 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _argsOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 6036 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _argsOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 6041 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _argsOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 6046 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _argsIcomments,_argsIcopy,_argsIisMultiline,_argsIpretty) =+ args_ _argsOcomments _argsOforceMultiline _argsOindent _argsOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_PFExprSuffix_ExprIndex :: T_MExpr ->+ T_PFExprSuffix+sem_PFExprSuffix_ExprIndex index_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _indexOparentOperatorPrecedence :: OperatorLevel+ _indexOparentOperatorAssociative :: Bool+ _lhsOisAssociative :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: PFExprSuffix+ _lhsOcomments :: ([MToken])+ _indexOcomments :: ([MToken])+ _indexOforceMultiline :: Bool+ _indexOindent :: Int+ _indexOppconf :: PrettyPrintConfig+ _indexIcomments :: ([MToken])+ _indexIcopy :: MExpr+ _indexIendsWithPrefixExpression :: Bool+ _indexIisAssociative :: Bool+ _indexIisLiteral :: Bool+ _indexIisMultiline :: Bool+ _indexIpos :: Region+ _indexIprecedence :: OperatorLevel+ _indexIpretty :: Doc+ _lhsOpretty =+ ({-# LINE 968 "src/GLua/AG/PrettyPrint.ag" #-}+ brackets _lhsIppconf _indexIpretty+ {-# LINE 6082 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 969 "src/GLua/AG/PrettyPrint.ag" #-}+ _indexIisMultiline+ {-# LINE 6087 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _indexOparentOperatorPrecedence =+ ({-# LINE 970 "src/GLua/AG/PrettyPrint.ag" #-}+ TopLevelExpression+ {-# LINE 6092 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _indexOparentOperatorAssociative =+ ({-# LINE 971 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 6097 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ _indexIisAssociative+ {-# LINE 6102 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ _indexIprecedence+ {-# LINE 6107 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ ExprIndex _indexIcopy+ {-# LINE 6112 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 6117 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _indexIcomments+ {-# LINE 6122 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _indexOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 6127 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _indexOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 6132 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _indexOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 6137 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _indexOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 6142 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _indexIcomments,_indexIcopy,_indexIendsWithPrefixExpression,_indexIisAssociative,_indexIisLiteral,_indexIisMultiline,_indexIpos,_indexIprecedence,_indexIpretty) =+ index_ _indexOcomments _indexOforceMultiline _indexOindent _indexOparentOperatorAssociative _indexOparentOperatorPrecedence _indexOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_PFExprSuffix_DotIndex :: MToken ->+ T_PFExprSuffix+sem_PFExprSuffix_DotIndex index_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOisAssociative :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: PFExprSuffix+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 973 "src/GLua/AG/PrettyPrint.ag" #-}+ zchr '.' <> tok index_+ {-# LINE 6163 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 974 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 6168 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 6173 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ OperatorLevel8+ {-# LINE 6178 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ DotIndex index_+ {-# LINE 6183 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 6188 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 6193 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+-- PrefixExp ---------------------------------------------------+-- cata+sem_PrefixExp :: PrefixExp ->+ T_PrefixExp+sem_PrefixExp (PFVar _name _suffixes) =+ (sem_PrefixExp_PFVar _name (sem_ExprSuffixList _suffixes))+sem_PrefixExp (ExprVar _expr _suffixes) =+ (sem_PrefixExp_ExprVar (sem_MExpr _expr) (sem_ExprSuffixList _suffixes))+-- semantic domain+type T_PrefixExp = ([MToken]) ->+ Bool ->+ Int ->+ Bool ->+ OperatorLevel ->+ PrettyPrintConfig ->+ ( ([MToken]),PrefixExp,Bool,Bool,Bool,OperatorLevel,Doc,Bool)+data Inh_PrefixExp = Inh_PrefixExp {comments_Inh_PrefixExp :: ([MToken]),forceMultiline_Inh_PrefixExp :: Bool,indent_Inh_PrefixExp :: Int,parentOperatorAssociative_Inh_PrefixExp :: Bool,parentOperatorPrecedence_Inh_PrefixExp :: OperatorLevel,ppconf_Inh_PrefixExp :: PrettyPrintConfig}+data Syn_PrefixExp = Syn_PrefixExp {comments_Syn_PrefixExp :: ([MToken]),copy_Syn_PrefixExp :: PrefixExp,isAssociative_Syn_PrefixExp :: Bool,isLiteral_Syn_PrefixExp :: Bool,isMultiline_Syn_PrefixExp :: Bool,precedence_Syn_PrefixExp :: OperatorLevel,pretty_Syn_PrefixExp :: Doc,startsWithExprPrefixExpression_Syn_PrefixExp :: Bool}+wrap_PrefixExp :: T_PrefixExp ->+ Inh_PrefixExp ->+ Syn_PrefixExp+wrap_PrefixExp sem (Inh_PrefixExp _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithExprPrefixExpression) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf+ in (Syn_PrefixExp _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisLiteral _lhsOisMultiline _lhsOprecedence _lhsOpretty _lhsOstartsWithExprPrefixExpression))+sem_PrefixExp_PFVar :: MToken ->+ T_ExprSuffixList ->+ T_PrefixExp+sem_PrefixExp_PFVar name_ suffixes_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIparentOperatorAssociative+ _lhsIparentOperatorPrecedence+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisLiteral :: Bool+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _lhsOisAssociative :: Bool+ _lhsOprecedence :: OperatorLevel+ _lhsOcopy :: PrefixExp+ _lhsOcomments :: ([MToken])+ _suffixesOcomments :: ([MToken])+ _suffixesOforceMultiline :: Bool+ _suffixesOindent :: Int+ _suffixesOppconf :: PrettyPrintConfig+ _suffixesIcomments :: ([MToken])+ _suffixesIcopy :: ExprSuffixList+ _suffixesIisAssociative :: Bool+ _suffixesIisMultiline :: Bool+ _suffixesIprecedence :: OperatorLevel+ _suffixesIpretty :: Doc+ _lhsOpretty =+ ({-# LINE 909 "src/GLua/AG/PrettyPrint.ag" #-}+ tok name_ <> _suffixesIpretty+ {-# LINE 6251 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLiteral =+ ({-# LINE 910 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 6256 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 911 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 6261 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 912 "src/GLua/AG/PrettyPrint.ag" #-}+ _suffixesIisMultiline+ {-# LINE 6266 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ _suffixesIisAssociative+ {-# LINE 6271 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+ _suffixesIprecedence+ {-# LINE 6276 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ PFVar name_ _suffixesIcopy+ {-# LINE 6281 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 6286 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _suffixesIcomments+ {-# LINE 6291 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _suffixesOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 6296 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _suffixesOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 6301 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _suffixesOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 6306 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _suffixesOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 6311 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _suffixesIcomments,_suffixesIcopy,_suffixesIisAssociative,_suffixesIisMultiline,_suffixesIprecedence,_suffixesIpretty) =+ suffixes_ _suffixesOcomments _suffixesOforceMultiline _suffixesOindent _suffixesOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_PrefixExp_ExprVar :: T_MExpr ->+ T_ExprSuffixList ->+ T_PrefixExp+sem_PrefixExp_ExprVar expr_ suffixes_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIparentOperatorAssociative+ _lhsIparentOperatorPrecedence+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOprecedence :: OperatorLevel+ _lhsOisLiteral :: Bool+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _lhsOisAssociative :: Bool+ _lhsOcopy :: PrefixExp+ _lhsOcomments :: ([MToken])+ _exprOcomments :: ([MToken])+ _exprOforceMultiline :: Bool+ _exprOindent :: Int+ _exprOparentOperatorAssociative :: Bool+ _exprOparentOperatorPrecedence :: OperatorLevel+ _exprOppconf :: PrettyPrintConfig+ _suffixesOcomments :: ([MToken])+ _suffixesOforceMultiline :: Bool+ _suffixesOindent :: Int+ _suffixesOppconf :: PrettyPrintConfig+ _exprIcomments :: ([MToken])+ _exprIcopy :: MExpr+ _exprIendsWithPrefixExpression :: Bool+ _exprIisAssociative :: Bool+ _exprIisLiteral :: Bool+ _exprIisMultiline :: Bool+ _exprIpos :: Region+ _exprIprecedence :: OperatorLevel+ _exprIpretty :: Doc+ _suffixesIcomments :: ([MToken])+ _suffixesIcopy :: ExprSuffixList+ _suffixesIisAssociative :: Bool+ _suffixesIisMultiline :: Bool+ _suffixesIprecedence :: OperatorLevel+ _suffixesIpretty :: Doc+ _lhsOpretty =+ ({-# LINE 914 "src/GLua/AG/PrettyPrint.ag" #-}+ (if _noparens then _exprIpretty else parens _lhsIppconf NonEmpty _exprIpretty)+ <> _suffixesIpretty+ {-# LINE 6363 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOprecedence =+ ({-# LINE 917 "src/GLua/AG/PrettyPrint.ag" #-}+ if _noparens then _exprIprecedence else OperatorLevel8+ {-# LINE 6368 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLiteral =+ ({-# LINE 918 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 6373 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 919 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 6378 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 920 "src/GLua/AG/PrettyPrint.ag" #-}+ _exprIisMultiline || _suffixesIisMultiline+ {-# LINE 6383 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _containsParenthesizedExpr =+ ({-# LINE 924 "src/GLua/AG/PrettyPrint.ag" #-}+ case _exprIcopy of+ MExpr _ (APrefixExpr (ExprVar (MExpr _ AVarArg) _)) -> False+ MExpr _ (APrefixExpr _) -> True+ _ -> False+ {-# LINE 6391 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _noparens =+ ({-# LINE 930 "src/GLua/AG/PrettyPrint.ag" #-}+ (removeRedundantParens _lhsIppconf || minimizeParens _lhsIppconf)+ && (_containsParenthesizedExpr+ || (_lhsIparentOperatorPrecedence == TopLevelExpression || _exprIisLiteral)+ && length _suffixesIcopy == 0+ )+ || (minimizeParens _lhsIppconf && length _suffixesIcopy == 0+ && ( _lhsIparentOperatorPrecedence < _exprIprecedence+ || assumeOperatorAssociativity _lhsIppconf+ && _lhsIparentOperatorPrecedence == _exprIprecedence+ && _lhsIparentOperatorAssociative+ )+ )+ {-# LINE 6407 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisAssociative =+ ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-}+ _exprIisAssociative && _suffixesIisAssociative+ {-# LINE 6412 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ ExprVar _exprIcopy _suffixesIcopy+ {-# LINE 6417 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 6422 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _suffixesIcomments+ {-# LINE 6427 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _exprOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 6432 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _exprOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 6437 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _exprOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 6442 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _exprOparentOperatorAssociative =+ ({-# LINE 260 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIparentOperatorAssociative+ {-# LINE 6447 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _exprOparentOperatorPrecedence =+ ({-# LINE 259 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIparentOperatorPrecedence+ {-# LINE 6452 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _exprOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 6457 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _suffixesOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _exprIcomments+ {-# LINE 6462 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _suffixesOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 6467 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _suffixesOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 6472 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _suffixesOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 6477 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _exprIcomments,_exprIcopy,_exprIendsWithPrefixExpression,_exprIisAssociative,_exprIisLiteral,_exprIisMultiline,_exprIpos,_exprIprecedence,_exprIpretty) =+ expr_ _exprOcomments _exprOforceMultiline _exprOindent _exprOparentOperatorAssociative _exprOparentOperatorPrecedence _exprOppconf+ ( _suffixesIcomments,_suffixesIcopy,_suffixesIisAssociative,_suffixesIisMultiline,_suffixesIprecedence,_suffixesIpretty) =+ suffixes_ _suffixesOcomments _suffixesOforceMultiline _suffixesOindent _suffixesOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+-- 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 _lbl)+sem_Stat (ABreak) =+ (sem_Stat_ABreak)+sem_Stat (AContinue) =+ (sem_Stat_AContinue)+sem_Stat (AGoto _lbl) =+ (sem_Stat_AGoto _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 _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 = ([MToken]) ->+ Bool ->+ Int ->+ Bool ->+ PrettyPrintConfig ->+ Region ->+ Bool ->+ ( ([MToken]),Stat,Bool,Bool,Doc,Bool)+data Inh_Stat = Inh_Stat {comments_Inh_Stat :: ([MToken]),forceMultiline_Inh_Stat :: Bool,indent_Inh_Stat :: Int,isLastStatement_Inh_Stat :: Bool,ppconf_Inh_Stat :: PrettyPrintConfig,statRegion_Inh_Stat :: Region,wouldBeAmbiguousWithoutSemicolon_Inh_Stat :: Bool}+data Syn_Stat = Syn_Stat {comments_Syn_Stat :: ([MToken]),copy_Syn_Stat :: Stat,endsWithPrefixExpression_Syn_Stat :: Bool,isMultiline_Syn_Stat :: Bool,pretty_Syn_Stat :: Doc,startsWithExprPrefixExpression_Syn_Stat :: Bool}+wrap_Stat :: T_Stat ->+ Inh_Stat ->+ Syn_Stat+wrap_Stat sem (Inh_Stat _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIstatRegion _lhsIwouldBeAmbiguousWithoutSemicolon) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIstatRegion _lhsIwouldBeAmbiguousWithoutSemicolon+ in (Syn_Stat _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression))+sem_Stat_Def :: T_VarsList ->+ T_Stat+sem_Stat_Def vars_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIisLastStatement+ _lhsIppconf+ _lhsIstatRegion+ _lhsIwouldBeAmbiguousWithoutSemicolon ->+ (let _lhsOpretty :: Doc+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _lhsOcopy :: Stat+ _lhsOcomments :: ([MToken])+ _varsOcomments :: ([MToken])+ _varsOforceMultiline :: Bool+ _varsOindent :: Int+ _varsOppconf :: PrettyPrintConfig+ _varsIcomments :: ([MToken])+ _varsIcopy :: VarsList+ _varsIendsWithPrefixExpression :: Bool+ _varsIexprPretty :: Doc+ _varsIisDefined :: Bool+ _varsIisLast :: Bool+ _varsIisMultiline :: Bool+ _varsIpretty :: Doc+ _varsIstartsWithExprPrefixExpression :: Bool+ _varsIvarPretty :: Doc+ _lhsOpretty =+ ({-# LINE 646 "src/GLua/AG/PrettyPrint.ag" #-}+ _varsIpretty <> _semicolon+ {-# LINE 6568 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 647 "src/GLua/AG/PrettyPrint.ag" #-}+ _varsIstartsWithExprPrefixExpression+ {-# LINE 6573 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 648 "src/GLua/AG/PrettyPrint.ag" #-}+ _varsIendsWithPrefixExpression+ {-# LINE 6578 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 649 "src/GLua/AG/PrettyPrint.ag" #-}+ _varsIisMultiline+ {-# LINE 6583 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _semicolon =+ ({-# LINE 650 "src/GLua/AG/PrettyPrint.ag" #-}+ if semicolons _lhsIppconf || _lhsIwouldBeAmbiguousWithoutSemicolon+ then zchr ';'+ else empty+ {-# LINE 6590 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ Def _varsIcopy+ {-# LINE 6595 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 6600 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _varsIcomments+ {-# LINE 6605 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _varsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 6610 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _varsOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 6615 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _varsOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 6620 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _varsOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 6625 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _varsIcomments,_varsIcopy,_varsIendsWithPrefixExpression,_varsIexprPretty,_varsIisDefined,_varsIisLast,_varsIisMultiline,_varsIpretty,_varsIstartsWithExprPrefixExpression,_varsIvarPretty) =+ vars_ _varsOcomments _varsOforceMultiline _varsOindent _varsOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_LocDef :: T_VarsList ->+ T_Stat+sem_Stat_LocDef vars_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIisLastStatement+ _lhsIppconf+ _lhsIstatRegion+ _lhsIwouldBeAmbiguousWithoutSemicolon ->+ (let _lhsOpretty :: Doc+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _lhsOcopy :: Stat+ _lhsOcomments :: ([MToken])+ _varsOcomments :: ([MToken])+ _varsOforceMultiline :: Bool+ _varsOindent :: Int+ _varsOppconf :: PrettyPrintConfig+ _varsIcomments :: ([MToken])+ _varsIcopy :: VarsList+ _varsIendsWithPrefixExpression :: Bool+ _varsIexprPretty :: Doc+ _varsIisDefined :: Bool+ _varsIisLast :: Bool+ _varsIisMultiline :: Bool+ _varsIpretty :: Doc+ _varsIstartsWithExprPrefixExpression :: Bool+ _varsIvarPretty :: Doc+ _lhsOpretty =+ ({-# LINE 655 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "local" <-> _varsIpretty <> _semicolon+ {-# LINE 6663 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 656 "src/GLua/AG/PrettyPrint.ag" #-}+ _varsIstartsWithExprPrefixExpression+ {-# LINE 6668 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 657 "src/GLua/AG/PrettyPrint.ag" #-}+ _varsIendsWithPrefixExpression+ {-# LINE 6673 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 658 "src/GLua/AG/PrettyPrint.ag" #-}+ _varsIisMultiline+ {-# LINE 6678 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _semicolon =+ ({-# LINE 659 "src/GLua/AG/PrettyPrint.ag" #-}+ if semicolons _lhsIppconf || _lhsIwouldBeAmbiguousWithoutSemicolon+ then zchr ';'+ else empty+ {-# LINE 6685 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ LocDef _varsIcopy+ {-# LINE 6690 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 6695 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _varsIcomments+ {-# LINE 6700 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _varsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 6705 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _varsOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 6710 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _varsOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 6715 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _varsOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 6720 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _varsIcomments,_varsIcopy,_varsIendsWithPrefixExpression,_varsIexprPretty,_varsIisDefined,_varsIisLast,_varsIisMultiline,_varsIpretty,_varsIstartsWithExprPrefixExpression,_varsIvarPretty) =+ vars_ _varsOcomments _varsOforceMultiline _varsOindent _varsOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_AFuncCall :: T_PrefixExp ->+ T_Stat+sem_Stat_AFuncCall fn_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIisLastStatement+ _lhsIppconf+ _lhsIstatRegion+ _lhsIwouldBeAmbiguousWithoutSemicolon ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _fnOparentOperatorPrecedence :: OperatorLevel+ _fnOparentOperatorAssociative :: Bool+ _lhsOcopy :: Stat+ _lhsOcomments :: ([MToken])+ _fnOcomments :: ([MToken])+ _fnOforceMultiline :: Bool+ _fnOindent :: Int+ _fnOppconf :: PrettyPrintConfig+ _fnIcomments :: ([MToken])+ _fnIcopy :: PrefixExp+ _fnIisAssociative :: Bool+ _fnIisLiteral :: Bool+ _fnIisMultiline :: Bool+ _fnIprecedence :: OperatorLevel+ _fnIpretty :: Doc+ _fnIstartsWithExprPrefixExpression :: Bool+ _lhsOpretty =+ ({-# LINE 664 "src/GLua/AG/PrettyPrint.ag" #-}+ _fnIpretty <> _semicolon+ {-# LINE 6758 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 665 "src/GLua/AG/PrettyPrint.ag" #-}+ _fnIisMultiline+ {-# LINE 6763 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _semicolon =+ ({-# LINE 666 "src/GLua/AG/PrettyPrint.ag" #-}+ if semicolons _lhsIppconf then zchr ';' else empty+ {-# LINE 6768 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 667 "src/GLua/AG/PrettyPrint.ag" #-}+ _fnIstartsWithExprPrefixExpression+ {-# LINE 6773 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 668 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 6778 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _fnOparentOperatorPrecedence =+ ({-# LINE 669 "src/GLua/AG/PrettyPrint.ag" #-}+ TopLevelExpression+ {-# LINE 6783 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _fnOparentOperatorAssociative =+ ({-# LINE 670 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 6788 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AFuncCall _fnIcopy+ {-# LINE 6793 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 6798 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _fnIcomments+ {-# LINE 6803 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _fnOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 6808 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _fnOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 6813 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _fnOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 6818 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _fnOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 6823 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _fnIcomments,_fnIcopy,_fnIisAssociative,_fnIisLiteral,_fnIisMultiline,_fnIprecedence,_fnIpretty,_fnIstartsWithExprPrefixExpression) =+ fn_ _fnOcomments _fnOforceMultiline _fnOindent _fnOparentOperatorAssociative _fnOparentOperatorPrecedence _fnOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_ALabel :: MToken ->+ T_Stat+sem_Stat_ALabel lbl_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIisLastStatement+ _lhsIppconf+ _lhsIstatRegion+ _lhsIwouldBeAmbiguousWithoutSemicolon ->+ (let _lhsOpretty :: Doc+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _lhsOcopy :: Stat+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 672 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "::"+ <> _whitespace+ <> tok lbl_+ <> _whitespace+ <> zeroWidthText "::"+ {-# LINE 6851 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 678 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 6856 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 679 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 6861 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 680 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 6866 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _whitespace =+ ({-# LINE 681 "src/GLua/AG/PrettyPrint.ag" #-}+ if spaceAfterLabel _lhsIppconf then zeroWidthText " " else empty+ {-# LINE 6871 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ ALabel lbl_+ {-# LINE 6876 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 6881 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 6886 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_ABreak :: T_Stat+sem_Stat_ABreak =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIisLastStatement+ _lhsIppconf+ _lhsIstatRegion+ _lhsIwouldBeAmbiguousWithoutSemicolon ->+ (let _lhsOpretty :: Doc+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _lhsOcopy :: Stat+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 683 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "break" <> _semicolon+ {-# LINE 6907 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 684 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 6912 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 685 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 6917 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 686 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 6922 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _semicolon =+ ({-# LINE 687 "src/GLua/AG/PrettyPrint.ag" #-}+ if semicolons _lhsIppconf then zchr ';' else empty+ {-# LINE 6927 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ ABreak+ {-# LINE 6932 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 6937 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 6942 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_AContinue :: T_Stat+sem_Stat_AContinue =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIisLastStatement+ _lhsIppconf+ _lhsIstatRegion+ _lhsIwouldBeAmbiguousWithoutSemicolon ->+ (let _lhsOpretty :: Doc+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _lhsOcopy :: Stat+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 689 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "continue" <> _semicolon+ {-# LINE 6963 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 690 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 6968 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 691 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 6973 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 692 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 6978 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _semicolon =+ ({-# LINE 693 "src/GLua/AG/PrettyPrint.ag" #-}+ if semicolons _lhsIppconf then zchr ';' else empty+ {-# LINE 6983 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AContinue+ {-# LINE 6988 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 6993 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 6998 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_AGoto :: MToken ->+ T_Stat+sem_Stat_AGoto lbl_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIisLastStatement+ _lhsIppconf+ _lhsIstatRegion+ _lhsIwouldBeAmbiguousWithoutSemicolon ->+ (let _lhsOpretty :: Doc+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _lhsOcopy :: Stat+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 695 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "goto" <-> tok lbl_ <> _semicolon+ {-# LINE 7020 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 696 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 7025 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 697 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 7030 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 698 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 7035 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _semicolon =+ ({-# LINE 699 "src/GLua/AG/PrettyPrint.ag" #-}+ if semicolons _lhsIppconf then zchr ';' else empty+ {-# LINE 7040 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AGoto lbl_+ {-# LINE 7045 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 7050 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 7055 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_ADo :: T_Block ->+ T_Stat+sem_Stat_ADo body_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIisLastStatement+ _lhsIppconf+ _lhsIstatRegion+ _lhsIwouldBeAmbiguousWithoutSemicolon ->+ (let _lhsOisMultiline :: Bool+ _lhsOpretty :: Doc+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _bodyOindent :: Int+ _lhsOcopy :: Stat+ _lhsOcomments :: ([MToken])+ _bodyOcomments :: ([MToken])+ _bodyOforceMultiline :: Bool+ _bodyOppconf :: PrettyPrintConfig+ _bodyOstatRegion :: Region+ _bodyIcomments :: ([MToken])+ _bodyIcopy :: Block+ _bodyIisMultiline :: Bool+ _bodyIpos :: Region+ _bodyIpretty :: Doc+ _bodyIstatementCount :: Int+ _lhsOisMultiline =+ ({-# LINE 701 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 7088 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpretty =+ ({-# LINE 702 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "do"+ $+$ _bodyIpretty+ $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")+ {-# LINE 7095 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 706 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 7100 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 707 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 7105 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOindent =+ ({-# LINE 708 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent + 1+ {-# LINE 7110 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ ADo _bodyIcopy+ {-# LINE 7115 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 7120 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _bodyIcomments+ {-# LINE 7125 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 7130 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 7135 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 7140 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOstatRegion =+ ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIstatRegion+ {-# LINE 7145 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =+ body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_AWhile :: T_MExpr ->+ T_Block ->+ T_Stat+sem_Stat_AWhile cond_ body_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIisLastStatement+ _lhsIppconf+ _lhsIstatRegion+ _lhsIwouldBeAmbiguousWithoutSemicolon ->+ (let _lhsOisMultiline :: Bool+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _condOparentOperatorPrecedence :: OperatorLevel+ _condOparentOperatorAssociative :: Bool+ _lhsOpretty :: Doc+ _bodyOindent :: Int+ _lhsOcopy :: Stat+ _lhsOcomments :: ([MToken])+ _condOcomments :: ([MToken])+ _condOforceMultiline :: Bool+ _condOindent :: Int+ _condOppconf :: PrettyPrintConfig+ _bodyOcomments :: ([MToken])+ _bodyOforceMultiline :: Bool+ _bodyOppconf :: PrettyPrintConfig+ _bodyOstatRegion :: Region+ _condIcomments :: ([MToken])+ _condIcopy :: MExpr+ _condIendsWithPrefixExpression :: Bool+ _condIisAssociative :: Bool+ _condIisLiteral :: Bool+ _condIisMultiline :: Bool+ _condIpos :: Region+ _condIprecedence :: OperatorLevel+ _condIpretty :: Doc+ _bodyIcomments :: ([MToken])+ _bodyIcopy :: Block+ _bodyIisMultiline :: Bool+ _bodyIpos :: Region+ _bodyIpretty :: Doc+ _bodyIstatementCount :: Int+ _lhsOisMultiline =+ ({-# LINE 710 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 7196 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 711 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 7201 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 712 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 7206 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _condOparentOperatorPrecedence =+ ({-# LINE 713 "src/GLua/AG/PrettyPrint.ag" #-}+ TopLevelExpression+ {-# LINE 7211 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _condOparentOperatorAssociative =+ ({-# LINE 714 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 7216 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpretty =+ ({-# LINE 715 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "while"+ <-> _condIpretty+ <-> zeroWidthText "do"+ $+$ _bodyIpretty+ $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")+ {-# LINE 7225 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOindent =+ ({-# LINE 721 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent + 1+ {-# LINE 7230 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AWhile _condIcopy _bodyIcopy+ {-# LINE 7235 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 7240 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _bodyIcomments+ {-# LINE 7245 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _condOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 7250 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _condOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 7255 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _condOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 7260 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _condOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 7265 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _condIcomments+ {-# LINE 7270 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 7275 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 7280 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOstatRegion =+ ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIstatRegion+ {-# LINE 7285 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _condIcomments,_condIcopy,_condIendsWithPrefixExpression,_condIisAssociative,_condIisLiteral,_condIisMultiline,_condIpos,_condIprecedence,_condIpretty) =+ cond_ _condOcomments _condOforceMultiline _condOindent _condOparentOperatorAssociative _condOparentOperatorPrecedence _condOppconf+ ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =+ body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_ARepeat :: T_Block ->+ T_MExpr ->+ T_Stat+sem_Stat_ARepeat body_ cond_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIisLastStatement+ _lhsIppconf+ _lhsIstatRegion+ _lhsIwouldBeAmbiguousWithoutSemicolon ->+ (let _lhsOpretty :: Doc+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _bodyOindent :: Int+ _condOparentOperatorPrecedence :: OperatorLevel+ _condOparentOperatorAssociative :: Bool+ _lhsOcopy :: Stat+ _lhsOcomments :: ([MToken])+ _bodyOcomments :: ([MToken])+ _bodyOforceMultiline :: Bool+ _bodyOppconf :: PrettyPrintConfig+ _bodyOstatRegion :: Region+ _condOcomments :: ([MToken])+ _condOforceMultiline :: Bool+ _condOindent :: Int+ _condOppconf :: PrettyPrintConfig+ _bodyIcomments :: ([MToken])+ _bodyIcopy :: Block+ _bodyIisMultiline :: Bool+ _bodyIpos :: Region+ _bodyIpretty :: Doc+ _bodyIstatementCount :: Int+ _condIcomments :: ([MToken])+ _condIcopy :: MExpr+ _condIendsWithPrefixExpression :: Bool+ _condIisAssociative :: Bool+ _condIisLiteral :: Bool+ _condIisMultiline :: Bool+ _condIpos :: Region+ _condIprecedence :: OperatorLevel+ _condIpretty :: Doc+ _lhsOpretty =+ ({-# LINE 723 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "repeat"+ $+$ _bodyIpretty+ $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "until" <-> _condIpretty)+ {-# LINE 7340 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 727 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 7345 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 728 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 7350 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 729 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 7355 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOindent =+ ({-# LINE 730 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent + 1+ {-# LINE 7360 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _condOparentOperatorPrecedence =+ ({-# LINE 731 "src/GLua/AG/PrettyPrint.ag" #-}+ TopLevelExpression+ {-# LINE 7365 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _condOparentOperatorAssociative =+ ({-# LINE 732 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 7370 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ ARepeat _bodyIcopy _condIcopy+ {-# LINE 7375 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 7380 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _condIcomments+ {-# LINE 7385 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 7390 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 7395 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 7400 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOstatRegion =+ ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIstatRegion+ {-# LINE 7405 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _condOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _bodyIcomments+ {-# LINE 7410 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _condOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 7415 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _condOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 7420 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _condOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 7425 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =+ body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+ ( _condIcomments,_condIcopy,_condIendsWithPrefixExpression,_condIisAssociative,_condIisLiteral,_condIisMultiline,_condIpos,_condIprecedence,_condIpretty) =+ cond_ _condOcomments _condOforceMultiline _condOindent _condOparentOperatorAssociative _condOparentOperatorPrecedence _condOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_AIf :: T_MExpr ->+ T_Block ->+ T_ElseIfList ->+ T_Else ->+ T_Stat+sem_Stat_AIf cond_ body_ elifs_ els_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIisLastStatement+ _lhsIppconf+ _lhsIstatRegion+ _lhsIwouldBeAmbiguousWithoutSemicolon ->+ (let _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _condOcomments :: ([MToken])+ _condOparentOperatorPrecedence :: OperatorLevel+ _condOparentOperatorAssociative :: Bool+ _bodyOindent :: Int+ _bodyOstatRegion :: Region+ _lhsOpretty :: Doc+ _lhsOcopy :: Stat+ _lhsOcomments :: ([MToken])+ _lhsOisMultiline :: Bool+ _condOforceMultiline :: Bool+ _condOindent :: Int+ _condOppconf :: PrettyPrintConfig+ _bodyOcomments :: ([MToken])+ _bodyOforceMultiline :: Bool+ _bodyOppconf :: PrettyPrintConfig+ _elifsOcomments :: ([MToken])+ _elifsOforceMultiline :: Bool+ _elifsOindent :: Int+ _elifsOppconf :: PrettyPrintConfig+ _elsOcomments :: ([MToken])+ _elsOforceMultiline :: Bool+ _elsOindent :: Int+ _elsOppconf :: PrettyPrintConfig+ _elsOstatRegion :: Region+ _condIcomments :: ([MToken])+ _condIcopy :: MExpr+ _condIendsWithPrefixExpression :: Bool+ _condIisAssociative :: Bool+ _condIisLiteral :: Bool+ _condIisMultiline :: Bool+ _condIpos :: Region+ _condIprecedence :: OperatorLevel+ _condIpretty :: Doc+ _bodyIcomments :: ([MToken])+ _bodyIcopy :: Block+ _bodyIisMultiline :: Bool+ _bodyIpos :: Region+ _bodyIpretty :: Doc+ _bodyIstatementCount :: Int+ _elifsIcomments :: ([MToken])+ _elifsIcopy :: ElseIfList+ _elifsIelsesExist :: Bool+ _elifsIisMultiline :: Bool+ _elifsIpos :: Region+ _elifsIpretty :: Doc+ _elsIcomments :: ([MToken])+ _elsIcopy :: Else+ _elsIelsesExist :: Bool+ _elsIisMultiline :: Bool+ _elsIpos :: Region+ _elsIpretty :: Doc+ _isMultiline =+ ({-# LINE 734 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ || _condIisMultiline+ || _bodyIisMultiline+ || _elifsIelsesExist+ || _elsIelsesExist+ || not (null $ fst _commentsAfterThen )+ {-# LINE 7506 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 741 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 7511 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 742 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 7516 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _singleLinePretty =+ ({-# LINE 743 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "if"+ <-> _condIpretty+ <-> zeroWidthText "then"+ <-> _bodyIpretty+ <-> zeroWidthText "end"+ <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterThen )+ {-# LINE 7526 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _multilinePretty =+ ({-# LINE 750 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "if"+ <-> _condIpretty+ <-> zeroWidthText "then"+ <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterThen )+ $+$ _bodyIpretty+ $+$ _elifsIpretty+ $+$ _elsIpretty+ $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")+ {-# LINE 7538 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _commentsAfterThen =+ ({-# LINE 760 "src/GLua/AG/PrettyPrint.ag" #-}+ span (\(MToken pos _) -> pos `beforeOrOnLine` _bodyIpos) _lhsIcomments+ {-# LINE 7543 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _condOcomments =+ ({-# LINE 762 "src/GLua/AG/PrettyPrint.ag" #-}+ snd _commentsAfterThen+ {-# LINE 7548 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _condOparentOperatorPrecedence =+ ({-# LINE 764 "src/GLua/AG/PrettyPrint.ag" #-}+ TopLevelExpression+ {-# LINE 7553 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _condOparentOperatorAssociative =+ ({-# LINE 765 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 7558 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOindent =+ ({-# LINE 766 "src/GLua/AG/PrettyPrint.ag" #-}+ if _isMultiline then _lhsIindent + 1 else 0+ {-# LINE 7563 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOstatRegion =+ ({-# LINE 767 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIstatRegion `upto` _elifsIpos `upto` _elsIpos+ {-# LINE 7568 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpretty =+ ({-# LINE 768 "src/GLua/AG/PrettyPrint.ag" #-}+ if _isMultiline then _multilinePretty else _singleLinePretty+ {-# LINE 7573 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AIf _condIcopy _bodyIcopy _elifsIcopy _elsIcopy+ {-# LINE 7578 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 7583 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _elsIcomments+ {-# LINE 7588 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 251 "src/GLua/AG/PrettyPrint.ag" #-}+ _isMultiline+ {-# LINE 7593 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _condOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 7598 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _condOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 7603 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _condOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 7608 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _condIcomments+ {-# LINE 7613 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 7618 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 7623 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _elifsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _bodyIcomments+ {-# LINE 7628 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _elifsOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 7633 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _elifsOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 7638 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _elifsOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 7643 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _elsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _elifsIcomments+ {-# LINE 7648 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _elsOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 7653 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _elsOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 7658 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _elsOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 7663 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _elsOstatRegion =+ ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIstatRegion+ {-# LINE 7668 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _condIcomments,_condIcopy,_condIendsWithPrefixExpression,_condIisAssociative,_condIisLiteral,_condIisMultiline,_condIpos,_condIprecedence,_condIpretty) =+ cond_ _condOcomments _condOforceMultiline _condOindent _condOparentOperatorAssociative _condOparentOperatorPrecedence _condOppconf+ ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =+ body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+ ( _elifsIcomments,_elifsIcopy,_elifsIelsesExist,_elifsIisMultiline,_elifsIpos,_elifsIpretty) =+ elifs_ _elifsOcomments _elifsOforceMultiline _elifsOindent _elifsOppconf+ ( _elsIcomments,_elsIcopy,_elsIelsesExist,_elsIisMultiline,_elsIpos,_elsIpretty) =+ els_ _elsOcomments _elsOforceMultiline _elsOindent _elsOppconf _elsOstatRegion+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_ANFor :: MToken ->+ T_MExpr ->+ T_MExpr ->+ T_MExpr ->+ T_Block ->+ T_Stat+sem_Stat_ANFor var_ val_ to_ step_ body_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIisLastStatement+ _lhsIppconf+ _lhsIstatRegion+ _lhsIwouldBeAmbiguousWithoutSemicolon ->+ (let _lhsOisMultiline :: Bool+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOpretty :: Doc+ _valOcomments :: ([MToken])+ _valOparentOperatorPrecedence :: OperatorLevel+ _valOparentOperatorAssociative :: Bool+ _toOparentOperatorPrecedence :: OperatorLevel+ _toOparentOperatorAssociative :: Bool+ _stepOparentOperatorPrecedence :: OperatorLevel+ _stepOparentOperatorAssociative :: Bool+ _bodyOindent :: Int+ _lhsOcopy :: Stat+ _lhsOcomments :: ([MToken])+ _valOforceMultiline :: Bool+ _valOindent :: Int+ _valOppconf :: PrettyPrintConfig+ _toOcomments :: ([MToken])+ _toOforceMultiline :: Bool+ _toOindent :: Int+ _toOppconf :: PrettyPrintConfig+ _stepOcomments :: ([MToken])+ _stepOforceMultiline :: Bool+ _stepOindent :: Int+ _stepOppconf :: PrettyPrintConfig+ _bodyOcomments :: ([MToken])+ _bodyOforceMultiline :: Bool+ _bodyOppconf :: PrettyPrintConfig+ _bodyOstatRegion :: Region+ _valIcomments :: ([MToken])+ _valIcopy :: MExpr+ _valIendsWithPrefixExpression :: Bool+ _valIisAssociative :: Bool+ _valIisLiteral :: Bool+ _valIisMultiline :: Bool+ _valIpos :: Region+ _valIprecedence :: OperatorLevel+ _valIpretty :: Doc+ _toIcomments :: ([MToken])+ _toIcopy :: MExpr+ _toIendsWithPrefixExpression :: Bool+ _toIisAssociative :: Bool+ _toIisLiteral :: Bool+ _toIisMultiline :: Bool+ _toIpos :: Region+ _toIprecedence :: OperatorLevel+ _toIpretty :: Doc+ _stepIcomments :: ([MToken])+ _stepIcopy :: MExpr+ _stepIendsWithPrefixExpression :: Bool+ _stepIisAssociative :: Bool+ _stepIisLiteral :: Bool+ _stepIisMultiline :: Bool+ _stepIpos :: Region+ _stepIprecedence :: OperatorLevel+ _stepIpretty :: Doc+ _bodyIcomments :: ([MToken])+ _bodyIcopy :: Block+ _bodyIisMultiline :: Bool+ _bodyIpos :: Region+ _bodyIpretty :: Doc+ _bodyIstatementCount :: Int+ _lhsOisMultiline =+ ({-# LINE 770 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 7758 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 771 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 7763 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 772 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 7768 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _step =+ ({-# LINE 773 "src/GLua/AG/PrettyPrint.ag" #-}+ case _stepIcopy of+ MExpr _ (ANumber "1") -> empty+ _ -> _comma <> _stepIpretty+ {-# LINE 7775 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpretty =+ ({-# LINE 776 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "for"+ <-> tok var_+ <-> zchr '='+ <-> _valIpretty+ <> _comma+ <> _toIpretty+ <> _step+ <-> zeroWidthText "do"+ <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFor )+ $+$ _bodyIpretty+ $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")+ {-# LINE 7790 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _comma =+ ({-# LINE 788 "src/GLua/AG/PrettyPrint.ag" #-}+ (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)+ <> zchr ','+ <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)+ {-# LINE 7797 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _commentsAfterFor =+ ({-# LINE 792 "src/GLua/AG/PrettyPrint.ag" #-}+ span (\(MToken pos _) -> pos `beforeOrOnLine` mpos var_) _lhsIcomments+ {-# LINE 7802 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valOcomments =+ ({-# LINE 794 "src/GLua/AG/PrettyPrint.ag" #-}+ snd _commentsAfterFor+ {-# LINE 7807 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valOparentOperatorPrecedence =+ ({-# LINE 795 "src/GLua/AG/PrettyPrint.ag" #-}+ TopLevelExpression+ {-# LINE 7812 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valOparentOperatorAssociative =+ ({-# LINE 796 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 7817 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _toOparentOperatorPrecedence =+ ({-# LINE 797 "src/GLua/AG/PrettyPrint.ag" #-}+ TopLevelExpression+ {-# LINE 7822 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _toOparentOperatorAssociative =+ ({-# LINE 798 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 7827 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _stepOparentOperatorPrecedence =+ ({-# LINE 799 "src/GLua/AG/PrettyPrint.ag" #-}+ TopLevelExpression+ {-# LINE 7832 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _stepOparentOperatorAssociative =+ ({-# LINE 800 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 7837 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOindent =+ ({-# LINE 801 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent + 1+ {-# LINE 7842 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ ANFor var_ _valIcopy _toIcopy _stepIcopy _bodyIcopy+ {-# LINE 7847 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 7852 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _bodyIcomments+ {-# LINE 7857 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 7862 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 7867 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 7872 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _toOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _valIcomments+ {-# LINE 7877 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _toOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 7882 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _toOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 7887 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _toOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 7892 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _stepOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _toIcomments+ {-# LINE 7897 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _stepOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 7902 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _stepOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 7907 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _stepOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 7912 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _stepIcomments+ {-# LINE 7917 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 7922 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 7927 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOstatRegion =+ ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIstatRegion+ {-# LINE 7932 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _valIcomments,_valIcopy,_valIendsWithPrefixExpression,_valIisAssociative,_valIisLiteral,_valIisMultiline,_valIpos,_valIprecedence,_valIpretty) =+ val_ _valOcomments _valOforceMultiline _valOindent _valOparentOperatorAssociative _valOparentOperatorPrecedence _valOppconf+ ( _toIcomments,_toIcopy,_toIendsWithPrefixExpression,_toIisAssociative,_toIisLiteral,_toIisMultiline,_toIpos,_toIprecedence,_toIpretty) =+ to_ _toOcomments _toOforceMultiline _toOindent _toOparentOperatorAssociative _toOparentOperatorPrecedence _toOppconf+ ( _stepIcomments,_stepIcopy,_stepIendsWithPrefixExpression,_stepIisAssociative,_stepIisLiteral,_stepIisMultiline,_stepIpos,_stepIprecedence,_stepIpretty) =+ step_ _stepOcomments _stepOforceMultiline _stepOindent _stepOparentOperatorAssociative _stepOparentOperatorPrecedence _stepOppconf+ ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =+ body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_AGFor :: ([MToken]) ->+ T_MExprList ->+ T_Block ->+ T_Stat+sem_Stat_AGFor vars_ vals_ body_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIisLastStatement+ _lhsIppconf+ _lhsIstatRegion+ _lhsIwouldBeAmbiguousWithoutSemicolon ->+ (let _lhsOisMultiline :: Bool+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOpretty :: Doc+ _bodyOindent :: Int+ _valsOcomments :: ([MToken])+ _valsOforceMultiline :: Bool+ _valsOsomeElementsInListAreMultiline :: Bool+ _lhsOcopy :: Stat+ _lhsOcomments :: ([MToken])+ _valsOindent :: Int+ _valsOppconf :: PrettyPrintConfig+ _bodyOcomments :: ([MToken])+ _bodyOforceMultiline :: Bool+ _bodyOppconf :: PrettyPrintConfig+ _bodyOstatRegion :: Region+ _valsIcomments :: ([MToken])+ _valsIcopy :: MExprList+ _valsIisAssociative :: Bool+ _valsIisLast :: Bool+ _valsIisMultiline :: Bool+ _valsIpos :: Region+ _valsIprecedence :: OperatorLevel+ _valsIpretty :: Doc+ _valsIstartsWithNewline :: Bool+ _bodyIcomments :: ([MToken])+ _bodyIcopy :: Block+ _bodyIisMultiline :: Bool+ _bodyIpos :: Region+ _bodyIpretty :: Doc+ _bodyIstatementCount :: Int+ _lhsOisMultiline =+ ({-# LINE 803 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 7989 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 804 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 7994 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 805 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 7999 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpretty =+ ({-# LINE 806 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "for"+ <-> printList tok (render _comma ) vars_+ <-> zeroWidthText "in"+ <-> _valsIpretty+ <-> zeroWidthText "do"+ <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFor )+ $+$ _bodyIpretty+ $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")+ {-# LINE 8011 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOindent =+ ({-# LINE 815 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent + 1+ {-# LINE 8016 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _comma =+ ({-# LINE 816 "src/GLua/AG/PrettyPrint.ag" #-}+ (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)+ <> zchr ','+ <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)+ {-# LINE 8023 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _commentsAfterFor =+ ({-# LINE 820 "src/GLua/AG/PrettyPrint.ag" #-}+ span (\(MToken pos _) -> pos `beforeOrOnLine` mpos (head vars_)) _lhsIcomments+ {-# LINE 8028 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valsOcomments =+ ({-# LINE 822 "src/GLua/AG/PrettyPrint.ag" #-}+ snd _commentsAfterFor+ {-# LINE 8033 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valsOforceMultiline =+ ({-# LINE 824 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 8038 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valsOsomeElementsInListAreMultiline =+ ({-# LINE 825 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 8043 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AGFor vars_ _valsIcopy _bodyIcopy+ {-# LINE 8048 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 8053 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _bodyIcomments+ {-# LINE 8058 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valsOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 8063 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _valsOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 8068 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _valsIcomments+ {-# LINE 8073 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 8078 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 8083 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOstatRegion =+ ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIstatRegion+ {-# LINE 8088 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _valsIcomments,_valsIcopy,_valsIisAssociative,_valsIisLast,_valsIisMultiline,_valsIpos,_valsIprecedence,_valsIpretty,_valsIstartsWithNewline) =+ vals_ _valsOcomments _valsOforceMultiline _valsOindent _valsOppconf _valsOsomeElementsInListAreMultiline+ ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =+ body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_AFunc :: T_FuncName ->+ ([MToken]) ->+ T_Block ->+ T_Stat+sem_Stat_AFunc name_ args_ body_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIisLastStatement+ _lhsIppconf+ _lhsIstatRegion+ _lhsIwouldBeAmbiguousWithoutSemicolon ->+ (let _lhsOisMultiline :: Bool+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOpretty :: Doc+ _nameOcomments :: ([MToken])+ _bodyOindent :: Int+ _lhsOcopy :: Stat+ _lhsOcomments :: ([MToken])+ _nameOindent :: Int+ _nameOppconf :: PrettyPrintConfig+ _bodyOcomments :: ([MToken])+ _bodyOforceMultiline :: Bool+ _bodyOppconf :: PrettyPrintConfig+ _bodyOstatRegion :: Region+ _nameIcomments :: ([MToken])+ _nameIcopy :: FuncName+ _nameIisMultiline :: Bool+ _nameIpos :: Region+ _nameIpretty :: Doc+ _bodyIcomments :: ([MToken])+ _bodyIcopy :: Block+ _bodyIisMultiline :: Bool+ _bodyIpos :: Region+ _bodyIpretty :: Doc+ _bodyIstatementCount :: Int+ _lhsOisMultiline =+ ({-# LINE 827 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 8135 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 828 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 8140 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 829 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 8145 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpretty =+ ({-# LINE 830 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "function"+ <-> _nameIpretty+ <> parens _lhsIppconf _emptyParams (printList tok (render _comma ) args_)+ <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFunc )+ $+$ _bodyIpretty+ $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")+ {-# LINE 8155 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _commentsAfterFunc =+ ({-# LINE 837 "src/GLua/AG/PrettyPrint.ag" #-}+ span (\(MToken pos _) -> pos `beforeOrOnLine` _nameIpos) _lhsIcomments+ {-# LINE 8160 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _nameOcomments =+ ({-# LINE 839 "src/GLua/AG/PrettyPrint.ag" #-}+ snd _commentsAfterFunc+ {-# LINE 8165 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _emptyParams =+ ({-# LINE 840 "src/GLua/AG/PrettyPrint.ag" #-}+ toEmpty $ null args_+ {-# LINE 8170 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _comma =+ ({-# LINE 841 "src/GLua/AG/PrettyPrint.ag" #-}+ (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)+ <> zchr ','+ <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)+ {-# LINE 8177 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOindent =+ ({-# LINE 845 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent + 1+ {-# LINE 8182 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AFunc _nameIcopy args_ _bodyIcopy+ {-# LINE 8187 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 8192 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _bodyIcomments+ {-# LINE 8197 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _nameOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 8202 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _nameOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 8207 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _nameIcomments+ {-# LINE 8212 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 8217 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 8222 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOstatRegion =+ ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIstatRegion+ {-# LINE 8227 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _nameIcomments,_nameIcopy,_nameIisMultiline,_nameIpos,_nameIpretty) =+ name_ _nameOcomments _nameOindent _nameOppconf+ ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =+ body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_ALocFunc :: T_FuncName ->+ ([MToken]) ->+ T_Block ->+ T_Stat+sem_Stat_ALocFunc name_ args_ body_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIisLastStatement+ _lhsIppconf+ _lhsIstatRegion+ _lhsIwouldBeAmbiguousWithoutSemicolon ->+ (let _lhsOisMultiline :: Bool+ _lhsOpretty :: Doc+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _nameOcomments :: ([MToken])+ _bodyOindent :: Int+ _lhsOcopy :: Stat+ _lhsOcomments :: ([MToken])+ _nameOindent :: Int+ _nameOppconf :: PrettyPrintConfig+ _bodyOcomments :: ([MToken])+ _bodyOforceMultiline :: Bool+ _bodyOppconf :: PrettyPrintConfig+ _bodyOstatRegion :: Region+ _nameIcomments :: ([MToken])+ _nameIcopy :: FuncName+ _nameIisMultiline :: Bool+ _nameIpos :: Region+ _nameIpretty :: Doc+ _bodyIcomments :: ([MToken])+ _bodyIcopy :: Block+ _bodyIisMultiline :: Bool+ _bodyIpos :: Region+ _bodyIpretty :: Doc+ _bodyIstatementCount :: Int+ _lhsOisMultiline =+ ({-# LINE 847 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 8274 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOpretty =+ ({-# LINE 848 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "local function"+ <-> _nameIpretty+ <> parens _lhsIppconf _emptyParams (printList tok (render _comma ) args_)+ <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFunc )+ $+$ _bodyIpretty+ $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")+ {-# LINE 8284 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 855 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 8289 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 856 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 8294 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _commentsAfterFunc =+ ({-# LINE 857 "src/GLua/AG/PrettyPrint.ag" #-}+ span (\(MToken pos _) -> pos `beforeOrOnLine` _nameIpos) _lhsIcomments+ {-# LINE 8299 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _nameOcomments =+ ({-# LINE 859 "src/GLua/AG/PrettyPrint.ag" #-}+ snd _commentsAfterFunc+ {-# LINE 8304 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _emptyParams =+ ({-# LINE 860 "src/GLua/AG/PrettyPrint.ag" #-}+ toEmpty $ null args_+ {-# LINE 8309 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _comma =+ ({-# LINE 861 "src/GLua/AG/PrettyPrint.ag" #-}+ (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)+ <> zchr ','+ <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)+ {-# LINE 8316 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOindent =+ ({-# LINE 865 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent + 1+ {-# LINE 8321 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ ALocFunc _nameIcopy args_ _bodyIcopy+ {-# LINE 8326 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 8331 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _bodyIcomments+ {-# LINE 8336 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _nameOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 8341 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _nameOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 8346 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _nameIcomments+ {-# LINE 8351 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 8356 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 8361 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _bodyOstatRegion =+ ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIstatRegion+ {-# LINE 8366 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _nameIcomments,_nameIcopy,_nameIisMultiline,_nameIpos,_nameIpretty) =+ name_ _nameOcomments _nameOindent _nameOppconf+ ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) =+ body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+-- 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 = ([MToken]) ->+ Int ->+ PrettyPrintConfig ->+ ( ([MToken]),UnOp,Bool,Doc)+data Inh_UnOp = Inh_UnOp {comments_Inh_UnOp :: ([MToken]),indent_Inh_UnOp :: Int,ppconf_Inh_UnOp :: PrettyPrintConfig}+data Syn_UnOp = Syn_UnOp {comments_Syn_UnOp :: ([MToken]),copy_Syn_UnOp :: UnOp,isMultiline_Syn_UnOp :: Bool,pretty_Syn_UnOp :: Doc}+wrap_UnOp :: T_UnOp ->+ Inh_UnOp ->+ Syn_UnOp+wrap_UnOp sem (Inh_UnOp _lhsIcomments _lhsIindent _lhsIppconf) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIcomments _lhsIindent _lhsIppconf+ in (Syn_UnOp _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty))+sem_UnOp_UnMinus :: T_UnOp+sem_UnOp_UnMinus =+ (\ _lhsIcomments+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOcopy :: UnOp+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1203 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "-"+ {-# LINE 8408 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1204 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 8413 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ UnMinus+ {-# LINE 8418 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 8423 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 8428 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))+sem_UnOp_ANot :: T_UnOp+sem_UnOp_ANot =+ (\ _lhsIcomments+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOcopy :: UnOp+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1206 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText (if cStyle _lhsIppconf then "!" else "not ")+ {-# LINE 8443 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1207 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 8448 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ ANot+ {-# LINE 8453 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 8458 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 8463 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))+sem_UnOp_AHash :: T_UnOp+sem_UnOp_AHash =+ (\ _lhsIcomments+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOisMultiline :: Bool+ _lhsOcopy :: UnOp+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 1209 "src/GLua/AG/PrettyPrint.ag" #-}+ zeroWidthText "#"+ {-# LINE 8478 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 1210 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 8483 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ AHash+ {-# LINE 8488 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 8493 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 8498 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))+-- 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 = ([MToken]) ->+ Bool ->+ Int ->+ PrettyPrintConfig ->+ ( ([MToken]),VarsList,Bool,Doc,Bool,Bool,Bool,Doc,Bool,Doc)+data Inh_VarsList = Inh_VarsList {comments_Inh_VarsList :: ([MToken]),forceMultiline_Inh_VarsList :: Bool,indent_Inh_VarsList :: Int,ppconf_Inh_VarsList :: PrettyPrintConfig}+data Syn_VarsList = Syn_VarsList {comments_Syn_VarsList :: ([MToken]),copy_Syn_VarsList :: VarsList,endsWithPrefixExpression_Syn_VarsList :: Bool,exprPretty_Syn_VarsList :: Doc,isDefined_Syn_VarsList :: Bool,isLast_Syn_VarsList :: Bool,isMultiline_Syn_VarsList :: Bool,pretty_Syn_VarsList :: Doc,startsWithExprPrefixExpression_Syn_VarsList :: Bool,varPretty_Syn_VarsList :: Doc}+wrap_VarsList :: T_VarsList ->+ Inh_VarsList ->+ Syn_VarsList+wrap_VarsList sem (Inh_VarsList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+ (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+ in (Syn_VarsList _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOexprPretty _lhsOisDefined _lhsOisLast _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOvarPretty))+sem_VarsList_Cons :: T_Declaration ->+ T_VarsList ->+ T_VarsList+sem_VarsList_Cons hd_ tl_ =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _lhsOisLast :: Bool+ _lhsOexprPretty :: Doc+ _lhsOisDefined :: Bool+ _lhsOvarPretty :: Doc+ _lhsOcopy :: VarsList+ _lhsOcomments :: ([MToken])+ _hdOcomments :: ([MToken])+ _hdOforceMultiline :: Bool+ _hdOindent :: Int+ _hdOppconf :: PrettyPrintConfig+ _tlOcomments :: ([MToken])+ _tlOforceMultiline :: Bool+ _tlOindent :: Int+ _tlOppconf :: PrettyPrintConfig+ _hdIcomments :: ([MToken])+ _hdIcopy :: Declaration+ _hdIendsWithPrefixExpression :: Bool+ _hdIexprPretty :: Doc+ _hdIisDefined :: Bool+ _hdIisMultiline :: Bool+ _hdIpretty :: Doc+ _hdIstartsWithExprPrefixExpression :: Bool+ _hdIvarPretty :: Doc+ _tlIcomments :: ([MToken])+ _tlIcopy :: VarsList+ _tlIendsWithPrefixExpression :: Bool+ _tlIexprPretty :: Doc+ _tlIisDefined :: Bool+ _tlIisLast :: Bool+ _tlIisMultiline :: Bool+ _tlIpretty :: Doc+ _tlIstartsWithExprPrefixExpression :: Bool+ _tlIvarPretty :: Doc+ _lhsOpretty =+ ({-# LINE 535 "src/GLua/AG/PrettyPrint.ag" #-}+ _varPretty+ <-> if _isDefined then zchr '=' <-> _exprPretty else empty+ {-# LINE 8570 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 538 "src/GLua/AG/PrettyPrint.ag" #-}+ _hdIstartsWithExprPrefixExpression+ {-# LINE 8575 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 539 "src/GLua/AG/PrettyPrint.ag" #-}+ if _tlIisDefined then _tlIendsWithPrefixExpression else _hdIendsWithPrefixExpression+ {-# LINE 8580 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 546 "src/GLua/AG/PrettyPrint.ag" #-}+ _hdIisMultiline || _tlIisMultiline+ {-# LINE 8585 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _isDefined =+ ({-# LINE 547 "src/GLua/AG/PrettyPrint.ag" #-}+ _hdIisDefined || _tlIisDefined+ {-# LINE 8590 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _varPretty =+ ({-# LINE 548 "src/GLua/AG/PrettyPrint.ag" #-}+ _hdIvarPretty+ <> (if _tlIisLast then empty else _comma )+ <> _tlIvarPretty+ {-# LINE 8597 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _exprPretty =+ ({-# LINE 552 "src/GLua/AG/PrettyPrint.ag" #-}+ _hdIexprPretty+ <> (if not _tlIisLast && _tlIisDefined then _comma else empty)+ <> _tlIexprPretty+ {-# LINE 8604 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _comma =+ ({-# LINE 556 "src/GLua/AG/PrettyPrint.ag" #-}+ (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)+ <> zchr ','+ <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)+ {-# LINE 8611 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLast =+ ({-# LINE 560 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 8616 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOexprPretty =+ ({-# LINE 273 "src/GLua/AG/PrettyPrint.ag" #-}+ _exprPretty+ {-# LINE 8621 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisDefined =+ ({-# LINE 276 "src/GLua/AG/PrettyPrint.ag" #-}+ _isDefined+ {-# LINE 8626 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOvarPretty =+ ({-# LINE 272 "src/GLua/AG/PrettyPrint.ag" #-}+ _varPretty+ {-# LINE 8631 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ (:) _hdIcopy _tlIcopy+ {-# LINE 8636 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 8641 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _tlIcomments+ {-# LINE 8646 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 8651 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 8656 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 8661 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _hdOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 8666 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _hdIcomments+ {-# LINE 8671 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOforceMultiline =+ ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIforceMultiline+ {-# LINE 8676 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOindent =+ ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIindent+ {-# LINE 8681 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _tlOppconf =+ ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIppconf+ {-# LINE 8686 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ ( _hdIcomments,_hdIcopy,_hdIendsWithPrefixExpression,_hdIexprPretty,_hdIisDefined,_hdIisMultiline,_hdIpretty,_hdIstartsWithExprPrefixExpression,_hdIvarPretty) =+ hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf+ ( _tlIcomments,_tlIcopy,_tlIendsWithPrefixExpression,_tlIexprPretty,_tlIisDefined,_tlIisLast,_tlIisMultiline,_tlIpretty,_tlIstartsWithExprPrefixExpression,_tlIvarPretty) =+ tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf+ in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty)))+sem_VarsList_Nil :: T_VarsList+sem_VarsList_Nil =+ (\ _lhsIcomments+ _lhsIforceMultiline+ _lhsIindent+ _lhsIppconf ->+ (let _lhsOpretty :: Doc+ _lhsOstartsWithExprPrefixExpression :: Bool+ _lhsOendsWithPrefixExpression :: Bool+ _lhsOisMultiline :: Bool+ _lhsOisLast :: Bool+ _lhsOexprPretty :: Doc+ _lhsOisDefined :: Bool+ _lhsOvarPretty :: Doc+ _lhsOcopy :: VarsList+ _lhsOcomments :: ([MToken])+ _lhsOpretty =+ ({-# LINE 562 "src/GLua/AG/PrettyPrint.ag" #-}+ empty+ {-# LINE 8712 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOstartsWithExprPrefixExpression =+ ({-# LINE 563 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 8717 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOendsWithPrefixExpression =+ ({-# LINE 564 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 8722 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisMultiline =+ ({-# LINE 565 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 8727 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisLast =+ ({-# LINE 566 "src/GLua/AG/PrettyPrint.ag" #-}+ True+ {-# LINE 8732 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOexprPretty =+ ({-# LINE 273 "src/GLua/AG/PrettyPrint.ag" #-}+ empty+ {-# LINE 8737 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOisDefined =+ ({-# LINE 276 "src/GLua/AG/PrettyPrint.ag" #-}+ False+ {-# LINE 8742 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOvarPretty =+ ({-# LINE 272 "src/GLua/AG/PrettyPrint.ag" #-}+ empty+ {-# LINE 8747 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _copy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ []+ {-# LINE 8752 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcopy =+ ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-}+ _copy+ {-# LINE 8757 "src/GLua/AG/PrettyPrint.hs" #-}+ )+ _lhsOcomments =+ ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-}+ _lhsIcomments+ {-# LINE 8762 "src/GLua/AG/PrettyPrint.hs" #-} ) in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty)))
src/GLua/AG/Token.hs view
@@ -1,15 +1,13 @@ -{-# LANGUAGE DeriveGeneric #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-}--- UUAGC 0.9.53.1 (src/GLua/AG/Token.ag)+-- UUAGC 0.9.56 (src/GLua/AG/Token.ag) module GLua.AG.Token where -{-# LINE 9 "src/GLua/AG/Token.ag" #-}+{-# LINE 8 "src/GLua/AG/Token.ag" #-} -import GHC.Generics import GLua.Position-{-# LINE 13 "src/GLua/AG/Token.hs" #-}+{-# LINE 11 "src/GLua/AG/Token.hs" #-} -- MToken ------------------------------------------------------ data MToken = MToken !(Region) !(Token) -- MTokenList --------------------------------------------------@@ -78,4 +76,4 @@ | RSquare | Label !(String) !(String) !(String) | Identifier !(String)- deriving ( Eq,Generic,Ord)+ deriving ( Eq,Ord)
src/GLua/ASTInstances.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE TemplateHaskell #-} {-# OPTIONS_GHC -fno-warn-orphans #-} -- | Contains class instances and functions related to AST These are not put@@ -5,56 +6,30 @@ -- declarations, causing duplicate instances errors. module GLua.ASTInstances where -import Data.Aeson import GLua.AG.AST--instance ToJSON AST-instance FromJSON AST--instance ToJSON Block-instance FromJSON Block--instance ToJSON MStat-instance FromJSON MStat--instance ToJSON MElse-instance FromJSON MElse--instance ToJSON MElseIf-instance FromJSON MElseIf--instance ToJSON Stat-instance FromJSON Stat--instance ToJSON AReturn-instance FromJSON AReturn--instance ToJSON FuncName-instance FromJSON FuncName--instance ToJSON PrefixExp-instance FromJSON PrefixExp--instance ToJSON PFExprSuffix-instance FromJSON PFExprSuffix--instance ToJSON MExpr-instance FromJSON MExpr--instance ToJSON Expr-instance FromJSON Expr--instance ToJSON Args-instance FromJSON Args--instance ToJSON Field-instance FromJSON Field--instance ToJSON FieldSep-instance FromJSON FieldSep+import GLua.EncodingOptions (encodingOptions) -instance ToJSON BinOp-instance FromJSON BinOp+import Data.Aeson.TH (deriveJSON) -instance ToJSON UnOp-instance FromJSON UnOp+$( concat+ <$> mapM+ (deriveJSON encodingOptions)+ [ ''AST+ , ''Block+ , ''MStat+ , ''MElse+ , ''MElseIf+ , ''Stat+ , ''AReturn+ , ''FuncName+ , ''PrefixExp+ , ''PFExprSuffix+ , ''MExpr+ , ''Expr+ , ''Args+ , ''Field+ , ''FieldSep+ , ''BinOp+ , ''UnOp+ ]+ )
+ src/GLua/EncodingOptions.hs view
@@ -0,0 +1,12 @@+-- | Json encoding options+module GLua.EncodingOptions where++import qualified Data.Aeson as Aeson++-- | Default glualint json encoding options+encodingOptions :: Aeson.Options+encodingOptions =+ Aeson.defaultOptions+ { Aeson.omitNothingFields = True+ , Aeson.sumEncoding = Aeson.ObjectWithSingleField+ }
src/GLua/Lexer.hs view
@@ -5,6 +5,7 @@ import GLua.AG.Token (MToken (..), Token (..)) +import Control.Monad (void) import Data.Char (ord) import GLua.Position (LineColPos (..), Region (..)) import Text.Parsec (@@ -66,23 +67,18 @@ pIdentifierCharacter = satisfy validChar where validChar :: Char -> Bool- validChar c =- cBetween c '0' '9'- || cBetween c 'A' 'Z'- || c == '_'- || cBetween c 'a' 'z'- || ord c >= 128+ validChar c = cBetween c '0' '9' || nonDigitIdentifierCharacter c pNonDigitIdentifierCharacter :: Parser Char-pNonDigitIdentifierCharacter = satisfy validChar- where- validChar :: Char -> Bool- validChar c =- cBetween c 'A' 'Z'- || c == '_'- || cBetween c 'a' 'z'- || ord c >= 128+pNonDigitIdentifierCharacter = satisfy nonDigitIdentifierCharacter +nonDigitIdentifierCharacter :: Char -> Bool+nonDigitIdentifierCharacter c =+ cBetween c 'A' 'Z'+ || c == '_'+ || cBetween c 'a' 'z'+ || ord c >= 128+ cBetween :: Char -> Char -> Char -> Bool cBetween c left right = c >= left && c <= right @@ -166,7 +162,7 @@ -- | Parse any kind of number. -- Except for numbers that start with a '.'. That's handled by parseDots to solve ambiguity. parseNumber :: Parser Token-parseNumber = TNumber <$> ((++) <$> (pHexadecimal <|> pBinary <|> pNumber) <*> (pLLULL <|> option "" parseNumberSuffix)) <?> "Number"+parseNumber = TNumber <$> ((++) <$> (pHexadecimal <|> pBinary <|> pNumber) <*> (pLLULL <|> option "" parseNumberSuffix)) <* afterNumber <?> "Number" where pNumber :: Parser String pNumber = (++) <$> many1 digit <*> option "" pDecimal@@ -200,6 +196,10 @@ pULL :: Parser String pULL = "ULL" <$ oneOf ['U', 'u'] <* pLL + --+ afterNumber :: Parser ()+ afterNumber = lookAhead (void (satisfy (not . nonDigitIdentifierCharacter)) <|> eof)+ -- Parse the suffix of a number parseNumberSuffix :: Parser String parseNumberSuffix = imaginary <|> extension@@ -217,10 +217,10 @@ try ( do _ <- string str- (\s -> Identifier (str ++ s)) <$> many1 (pIdentifierCharacter)+ (\s -> Identifier (str ++ s)) <$> many1 pIdentifierCharacter <|> return tok <?> "Keyword "- ++ str+ ++ str ) -- | Parse just an identifier.
+ src/GLua/ParseError.hs view
@@ -0,0 +1,58 @@+-- | This is a copy-paste-edit of Parsec's parse error rendering.+module GLua.ParseError (renderParseError) where++import Data.List (intercalate, nub)+import Text.Parsec.Error (+ Message (..),+ ParseError,+ errorMessages,+ messageString,+ )++-- | Render a parsec error+renderParseError :: ParseError -> String+renderParseError = showErrorMessages . errorMessages++-- | Modified version of the following function:+-- https://hackage.haskell.org/package/parsec/docs/src/Text.Parsec.Error.html#showErrorMessages.+--+-- At some point it would be nice to switch to another parser library (e.g. megaparsec), which has+-- more structured error types, and a nicer error rendering algorithm. Until then, this modified+-- function will do.+showErrorMessages :: [Message] -> String+showErrorMessages msgs+ | null msgs = "unknown parse error"+ | otherwise = intercalate ", " $ clean [showSysUnExpect, showUnExpect, showExpect, showMessages]+ where+ (sysUnExpect, msgs1) = span (SysUnExpect "" ==) msgs+ (unExpect, msgs2) = span (UnExpect "" ==) msgs1+ (expect, messages) = span (Expect "" ==) msgs2++ showExpect = showMany "expecting" expect+ showUnExpect = showMany "unexpected" unExpect+ showSysUnExpect+ | not (null unExpect) = ""+ | [] <- sysUnExpect = ""+ | msg : _ <- sysUnExpect, null (messageString msg) = "unexpected end of input"+ | msg : _ <- sysUnExpect = "unexpected " ++ messageString msg++ showMessages = showMany "" messages++ -- helpers+ showMany pre msgs3 = case clean (map messageString msgs3) of+ [] -> ""+ ms+ | null pre -> commasOr ms+ | otherwise -> pre ++ " " ++ commasOr ms++ commasOr [] = ""+ commasOr [m] = m+ commasOr ms = commaSep (init ms) ++ " or " ++ last ms++ commaSep = separate ", " . clean++ separate _ [] = ""+ separate _ [m] = m+ separate sep (m : ms) = m ++ sep ++ separate sep ms++ clean = nub . filter (not . null)
src/GLua/Parser.hs view
@@ -63,6 +63,7 @@ sourceLine, tokenPrim, try,+ unexpected, (<?>), (<|>), )@@ -116,40 +117,25 @@ -- | Match a token pMTok :: Token -> AParser MToken-pMTok tok =- do- let- testMToken :: MToken -> Maybe MToken- testMToken mt@(MToken _ t) = if t == tok then Just mt else Nothing-- mt@(MToken pos _) <- tokenPrim show updatePosMToken testMToken-- putState (rgEnd pos)-- return mt+pMTok tok = pMToken $ \mt@(MToken _ t) -> if t == tok then Just mt else Nothing -- Tokens that satisfy a condition pMSatisfy :: (MToken -> Bool) -> AParser MToken-pMSatisfy cond =- do- let- testMToken :: MToken -> Maybe MToken- testMToken mt = if cond mt then Just mt else Nothing-- pMToken testMToken+pMSatisfy cond = pMToken $ \mt -> if cond mt then Just mt else Nothing pMToken :: forall a. (MToken -> Maybe a) -> AParser a-pMToken cond =- let+pMToken cond = do+ (MToken pos _, res) <- tokenPrim (quote . show) updatePosMToken testMToken++ putState (rgEnd pos)++ pure res+ where testMToken :: MToken -> Maybe (MToken, a) testMToken mt = (mt,) <$> cond mt- in- do- (MToken pos _, res) <- tokenPrim show updatePosMToken testMToken - putState (rgEnd pos)-- pure res+ quote :: String -> String+ quote str = "\"" ++ str ++ "\"" -- | Get the source position. -- Simply gets the start position of the next token.@@ -197,7 +183,7 @@ -- | Label parseLabel :: AParser MToken-parseLabel = pMSatisfy isLabel <?> "label"+parseLabel = pMSatisfy isLabel <?> "'label'" where isLabel :: MToken -> Bool isLabel (MToken _ (Label{})) = True@@ -368,7 +354,7 @@ parseParList :: AParser [MToken] parseParList = option [] $ nameParam <|> vararg where- vararg = (: []) <$> pMTok VarArg <?> "..."+ vararg = (: []) <$> pMTok VarArg <?> "'...'" nameParam = (:) <$> pName <*> moreParams <?> "parameter" moreParams = option [] $ pMTok Comma *> (nameParam <|> vararg) @@ -382,19 +368,19 @@ ANil <$ pMTok Nil <|> AFalse- <$ pMTok TFalse+ <$ pMTok TFalse <|> ATrue- <$ pMTok TTrue+ <$ pMTok TTrue <|> parseNumber <|> AString- <$> parseString+ <$> parseString <|> AVarArg- <$ pMTok VarArg+ <$ pMTok VarArg <|> parseAnonymFunc <|> APrefixExpr- <$> parsePrefixExp+ <$> parsePrefixExp <|> ATableConstructor- <$> parseTableConstructor+ <$> parseTableConstructor <?> "expression" -- | Separate parser for anonymous function subexpression@@ -501,9 +487,9 @@ Call <$> parseArgs <|> MetaCall- <$ pMTok Colon- <*> pName- <*> parseArgs+ <$ pMTok Colon+ <*> pName+ <*> parseArgs <?> "function call" -- | Parse an indexing expression suffix@@ -514,8 +500,8 @@ <*> parseExpression <* pMTok RSquare <|> DotIndex- <$ pMTok Dot- <*> pName+ <$ pMTok Dot+ <*> pName <?> "indexation" -- | Function calls are prefix expressions, but the last suffix MUST be either a function call or a metafunction call@@ -533,7 +519,14 @@ -- var ::= Name [{PFExprSuffix}* indexation] | '(' exp ')' {PFExprSuffix}* indexation -- where "{PFExprSuffix}* indexation" is any arbitrary sequence of prefix expression suffixes that end with an indexation parseVar :: AParser PrefixExp-parseVar = pPrefixExp suffixes <?> "variable"+parseVar = do+ variable <- pPrefixExp suffixes <?> "variable"++ -- Special case: A definition `(foo) = bar` is not allowed, but `(foo)[index] = bar` _is_ allowed.+ -- If it's an ExprVar, it must have suffixes.+ case variable of+ ExprVar _someExpression [] -> unexpected "expression in parentheses"+ _ -> pure variable where suffixes = concat@@ -550,9 +543,9 @@ <*> option [] parseExpressionList <* pMTok RRound <|> TableArg- <$> parseTableConstructor+ <$> parseTableConstructor <|> StringArg- <$> parseString+ <$> parseString <?> "function arguments" -- | Table constructor@@ -591,7 +584,7 @@ <*> parseExpression <|> parseNamedField <|> UnnamedField- <$> parseExpression+ <$> parseExpression <?> "field" -- | Field separator, either comma or semicolon
src/GLua/Position.hs view
@@ -1,5 +1,4 @@ {-# LANGUAGE CPP #-}-{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} -- | Reimplements the LineColPos from `uu-parsinglib`, and adds some more functions related to@@ -7,7 +6,7 @@ module GLua.Position where import Data.Aeson-import GHC.Generics (Generic)+import Data.Foldable (toList) data LineColPos = LineColPos {lcpLine :: !Int, lcpColumn :: !Int, lcpPos :: !Int} deriving (Eq, Show)@@ -20,32 +19,35 @@ instance ToJSON LineColPos where -- this generates a Value- toJSON (LineColPos line col p) =- object ["line" .= line, "column" .= col, "pos" .= p]+ toJSON (LineColPos line col p) = toJSON [line, col, p] #if MIN_VERSION_aeson(0,10,0) -- this encodes directly to a bytestring Builder- toEncoding (LineColPos line col p) =- pairs ("line" .= line <> "column" .= col <> "pos" .= p)+ toEncoding (LineColPos line col p) = toEncoding [line, col, p] #endif instance FromJSON LineColPos where- parseJSON = withObject "LineColPos" $ \v ->- LineColPos- <$> v .: "line"- <*> v .: "column"- <*> v .: "pos"+ parseJSON = withArray "LineColPos" $ \array ->+ case toList array of+ [line, col, pos] -> LineColPos <$> parseJSON line <*> parseJSON col <*> parseJSON pos+ _ -> fail "Expected tuple of line, column, position" data Region = Region {rgStart :: !LineColPos, rgEnd :: !LineColPos}- deriving (Eq, Show, Generic)+ deriving (Eq, Show) -- Ord instance defined explicitly for clarity. instance Ord Region where compare (Region s e) (Region s' e') = compare s s' `mappend` compare e e' -instance ToJSON Region-instance FromJSON Region+instance ToJSON Region where+ toJSON (Region start end) = toJSON [toJSON start, toJSON end]++instance FromJSON Region where+ parseJSON = withArray "Region" $ \array ->+ case toList array of+ [start, end] -> Region <$> parseJSON start <*> parseJSON end+ _ -> fail "Expected tuple of [[line, column, position], [line, column, position]]" -- | An empty region from position 0 to position 0. emptyRg :: Region
src/GLua/TokenTypes.hs view
@@ -1,15 +1,15 @@-{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE StandaloneDeriving #-}+{-# LANGUAGE TemplateHaskell #-} {-# OPTIONS_GHC -fno-warn-orphans #-} -- | Contains class instances and functions related to tokens module GLua.TokenTypes where -import Data.Aeson (FromJSON, ToJSON)+import Data.Aeson.TH (deriveJSON) import Data.List (foldl', partition)-import GHC.Generics (Generic) import GLua.AG.Token (MToken (..), Token (..))+import GLua.EncodingOptions (encodingOptions) import GLua.Position (LineColPos (..), Region (..)) instance Show MToken where@@ -23,14 +23,6 @@ instance Ord MToken where compare (MToken _ t1) (MToken _ t2) = compare t1 t2 -deriving instance Generic MToken--instance ToJSON MToken-instance FromJSON MToken--instance ToJSON Token-instance FromJSON Token- mpos :: MToken -> Region mpos (MToken p _) = p @@ -214,3 +206,6 @@ RSquare -> 1 Label spaceBefore ident spaceAfter -> 2 + length spaceBefore + length ident + length spaceAfter + 2 Identifier i -> length i++$(deriveJSON encodingOptions ''Token)+$(deriveJSON encodingOptions ''MToken)
src/GLuaFixer/AG/ASTLint.hs view
@@ -1,14144 +1,14141 @@ -{-# LANGUAGE DeriveGeneric #-}-{-# OPTIONS_GHC -fno-warn-unused-imports #-}--{-# LANGUAGE DeriveGeneric #-}-{-# OPTIONS_GHC -fno-warn-unused-imports #-}--{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# LANGUAGE LambdaCase #-}--- UUAGC 0.9.53.1 (src/GLuaFixer/AG/ASTLint.ag)-module GLuaFixer.AG.ASTLint where--{-# LINE 9 "src/GLuaFixer/AG/../../GLua/AG/Token.ag" #-}--import GHC.Generics-import GLua.Position-{-# LINE 19 "src/GLuaFixer/AG/ASTLint.hs" #-}--{-# LINE 10 "src/GLuaFixer/AG/../../GLua/AG/AST.ag" #-}--import GLua.AG.Token-import GLua.Position-import GLua.TokenTypes ()-import GHC.Generics-import Data.Aeson-{-# LINE 28 "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 43 "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 137 "src/GLuaFixer/AG/ASTLint.hs" #-}--{-# LINE 660 "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 163 "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 202 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 207 "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 224 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valuesOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 229 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valuesOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 234 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valuesOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 239 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valuesOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 244 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valuesOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 249 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valuesOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 254 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valuesOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 259 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valuesOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 264 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valuesOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 269 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valuesOfuncName ->- (case (({-# LINE 505 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 274 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valuesOtopLevel ->- (case (({-# LINE 504 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 279 "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 286 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valuesIidentifier- {-# LINE 291 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valuesIisInModule- {-# LINE 296 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 506 "src/GLuaFixer/AG/ASTLint.ag" #-}- pos_- {-# LINE 301 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valuesIscopes- {-# LINE 306 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-}- 1- {-# LINE 311 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOstatementCount ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valuesIvariableStyle- {-# LINE 316 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valuesIwarnings- {-# LINE 321 "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 332 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 337 "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 354 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 359 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 364 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 369 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 374 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 508 "src/GLuaFixer/AG/ASTLint.ag" #-}- 0- {-# LINE 379 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOstatementCount ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 384 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 389 "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 440 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 445 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 450 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _chunkOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 455 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _chunkOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 460 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _chunkOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 465 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _chunkOconfig ->- (case (({-# LINE 293 "src/GLuaFixer/AG/ASTLint.ag" #-}- M.empty : _lhsIscopes- {-# LINE 470 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _chunkOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 475 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _chunkOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 480 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _chunkOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 485 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _chunkOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 490 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _chunkOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 495 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _chunkOfuncName ->- (case (({-# LINE 294 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 500 "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 507 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _chunkIidentifier- {-# LINE 512 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _chunkIisInModule- {-# LINE 517 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _chunkImtokenPos- {-# LINE 522 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _chunkIscopes- {-# LINE 527 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _chunkIvariableStyle- {-# LINE 532 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _chunkIwarnings- {-# LINE 537 "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 580 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 585 "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 602 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 607 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 612 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 617 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 622 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 627 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 632 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 637 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 642 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 647 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOfuncName ->- (case (({-# LINE 619 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 652 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOtopLevel ->- (case (({-# LINE 618 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 657 "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 664 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argsIidentifier- {-# LINE 669 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argsIisInModule- {-# LINE 674 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argsImtokenPos- {-# LINE 679 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argsIscopes- {-# LINE 684 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argsIvariableStyle- {-# LINE 689 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argsIwarnings- {-# LINE 694 "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 708 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 713 "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 730 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 735 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 740 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 745 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 750 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 755 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 760 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 765 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 770 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 775 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argOfuncName ->- (case (({-# LINE 621 "src/GLuaFixer/AG/ASTLint.ag" #-}- S.empty- {-# LINE 780 "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 787 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argIidentifier- {-# LINE 792 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argIisInModule- {-# LINE 797 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argImtokenPos- {-# LINE 802 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argIscopes- {-# LINE 807 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argIvariableStyle- {-# LINE 812 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argIwarnings- {-# LINE 817 "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 831 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 836 "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 853 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argOglobalDefinitions ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 858 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argOscopes ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 863 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argOmtokenPos ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 868 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 873 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argOisInModule ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 878 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 883 "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 890 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argIidentifier- {-# LINE 895 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argIisInModule- {-# LINE 900 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argImtokenPos- {-# LINE 905 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argIscopes- {-# LINE 910 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 915 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argIwarnings- {-# LINE 920 "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 987 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 992 "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 1009 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 1014 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 1019 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 1024 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 1029 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 1034 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 1039 "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 1050 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 1055 "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 1072 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 1077 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 1082 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 1087 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 1092 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 1097 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 1102 "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 1113 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 1118 "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 1135 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 1140 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 1145 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 1150 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 1155 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 1160 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 1165 "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 1176 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 1181 "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 1198 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 1203 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 1208 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 1213 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 1218 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 1223 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 1228 "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 1239 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 1244 "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 1261 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 1266 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 1271 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 1276 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 1281 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 1286 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 1291 "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 1302 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 1307 "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 1324 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 1329 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 1334 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 1339 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 1344 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 1349 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 1354 "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 1365 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 1370 "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 1387 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 1392 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 1397 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 1402 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 1407 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 1412 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 1417 "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 1428 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 1433 "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 1450 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 1455 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 1460 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 1465 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 1470 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 1475 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 1480 "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 1491 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 1496 "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 1513 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 1518 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 1523 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 1528 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 1533 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 1538 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 1543 "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 1554 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 1559 "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 1576 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 1581 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 1586 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 1591 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 1596 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 1601 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 1606 "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 1617 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 1622 "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 1639 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 1644 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 1649 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 1654 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 1659 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 1664 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 1669 "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 1680 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 1685 "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 1702 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 1707 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 1712 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 1717 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 1722 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 1727 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 1732 "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 1743 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 1748 "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 1765 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 1770 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 1775 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 1780 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 1785 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 1790 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 1795 "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 1806 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 1811 "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 1828 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 1833 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 1838 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 1843 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 1848 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 1853 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 1858 "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 1869 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 1874 "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 1891 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 1896 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 1901 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 1906 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 1911 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 1916 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 1921 "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 1968 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 1973 "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 1991 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _statsOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 1996 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _statsOisMeta ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 2001 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _statsOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 2006 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _statsOvariableStyle ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 2011 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _statsOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 2016 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _statsOloopLevel ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 2021 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _statsOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 2026 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _statsOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 2031 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _statsOfuncName ->- (case (({-# LINE 298 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel + 1- {-# LINE 2036 "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 2043 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _retOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 2048 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _retOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _statsIisInModule- {-# LINE 2053 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _retOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _statsIglobalDefinitions- {-# LINE 2058 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _retOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 2063 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _retOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _statsIvariableStyle- {-# LINE 2068 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _retOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 2073 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _retOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _statsImtokenPos- {-# LINE 2078 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _retOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 2083 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _retOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 2088 "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 2095 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _statsIidentifier _retIidentifier)- {-# LINE 2100 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}- _statsIisIfStatement- {-# LINE 2105 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisIfStatement ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _retIisInModule- {-# LINE 2110 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _retImtokenPos- {-# LINE 2115 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 305 "src/GLuaFixer/AG/ASTLint.ag" #-}- if _lhsIisRepeat then _retIscopes else tail _retIscopes- {-# LINE 2120 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-}- _statsIstatementCount + _retIstatementCount- {-# LINE 2125 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOstatementCount ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _retIvariableStyle- {-# LINE 2130 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 303 "src/GLuaFixer/AG/ASTLint.ag" #-}- _statsIwarnings ++ _retIwarnings- {-# LINE 2135 "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 2140 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _deadVars ->- (case (({-# LINE 299 "src/GLuaFixer/AG/ASTLint.ag" #-}- lint_maxScopeDepth _lhsIconfig- {-# LINE 2145 "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 2151 "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 2157 "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 2162 "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 2208 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 2213 "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 2231 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OisMeta ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 2236 "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 2241 "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 2251 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1Oscopes ->- (case (({-# LINE 264 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 2256 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OvarBeingDefined ->- (case (({-# LINE 260 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 2261 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OregisterVarUse ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 2266 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 2271 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 2276 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 2281 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OloopLevel ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 2286 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 2291 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 2296 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OfuncName ->- (case (({-# LINE 262 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 2301 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OtopLevel ->- (case (({-# LINE 261 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 2306 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OinParentheses ->- (case (({-# LINE 259 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 2311 "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 2318 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2Oscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 2323 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2OisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _x1IisInModule- {-# LINE 2328 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2OisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _x1IglobalDefinitions- {-# LINE 2333 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2OglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 2338 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2Oconfig ->- (case (({-# LINE 266 "src/GLuaFixer/AG/ASTLint.ag" #-}- if _x1IhasSuffixes || not _lhsIlocalDefinition then Nothing else _x1IvarName- {-# LINE 2343 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2OvarBeingDefined ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _x1IvariableStyle- {-# LINE 2348 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2OvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 2353 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2OscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _x1ImtokenPos- {-# LINE 2358 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2OmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 2363 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2OloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 2368 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2OfuncName ->- (case (({-# LINE 263 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 2373 "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 2380 "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 2386 "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 2391 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _x1Iidentifier _x2Iidentifier)- {-# LINE 2396 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _x2IisInModule- {-# LINE 2401 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 257 "src/GLuaFixer/AG/ASTLint.ag" #-}- _x1ImtokenPos- {-# LINE 2406 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _x2Iscopes- {-# LINE 2411 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 269 "src/GLuaFixer/AG/ASTLint.ag" #-}- determineVariableStyle _var- {-# LINE 2416 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varStyle ->- (case (({-# LINE 258 "src/GLuaFixer/AG/ASTLint.ag" #-}- if _lhsIlocalDefinition then combineDeterminedVarStyle _lhsIvariableStyle _varStyle else _lhsIvariableStyle- {-# LINE 2421 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 288 "src/GLuaFixer/AG/ASTLint.ag" #-}- _x1Iwarnings ++ _x2Iwarnings- {-# LINE 2426 "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 2435 "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 2441 "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 2447 "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 2452 "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 2496 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 2501 "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 2518 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOelseExists ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 2523 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 2528 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 2533 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 2538 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOconfig ->- (case (({-# LINE 497 "src/GLuaFixer/AG/ASTLint.ag" #-}- M.empty : _lhsIscopes- {-# LINE 2543 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 2548 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 2553 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 2558 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 2563 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 2568 "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 2575 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _justIidentifier- {-# LINE 2580 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _justIisInModule- {-# LINE 2585 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _justImtokenPos- {-# LINE 2590 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _justIscopes- {-# LINE 2595 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _justIvariableStyle- {-# LINE 2600 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 500 "src/GLuaFixer/AG/ASTLint.ag" #-}- _justIwarnings- {-# LINE 2605 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 499 "src/GLuaFixer/AG/ASTLint.ag" #-}- Region (rgStart _justImtokenPos) (rgEnd _lhsImtokenPos)- {-# LINE 2610 "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 2616 "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 2621 "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 2632 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 2637 "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 2654 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOelseExists ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 2659 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 2664 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 2669 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 2674 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 2679 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 2684 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 2689 "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 2734 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 2739 "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 2756 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2OisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 2761 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OisInModule ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 2766 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OvariableStyle ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 2771 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1Oscopes ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 2776 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 2781 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 2786 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OloopLevel ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 2791 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OisMeta ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 2796 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 2801 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 2806 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1Oconfig ->- (case (({-# LINE 484 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 2811 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OvarBeingDefined ->- (case (({-# LINE 483 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 2816 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OtopLevel ->- (case (({-# LINE 482 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 2821 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x1OinParentheses ->- (case (({-# LINE 481 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 2826 "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 2833 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2OisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _x1IglobalDefinitions- {-# LINE 2838 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2OglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 2843 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2Oconfig ->- (case (({-# LINE 485 "src/GLuaFixer/AG/ASTLint.ag" #-}- M.empty : _x1Iscopes- {-# LINE 2848 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2Oscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _x1IvariableStyle- {-# LINE 2853 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2OvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 2858 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2OscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _x1ImtokenPos- {-# LINE 2863 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2OmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 2868 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2OloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 2873 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _x2OfuncName ->- (case (({-# LINE 486 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 2878 "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 2885 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _x1Iidentifier _x2Iidentifier)- {-# LINE 2890 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _x2IisInModule- {-# LINE 2895 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _x2ImtokenPos- {-# LINE 2900 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _x2Iscopes- {-# LINE 2905 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _x2IvariableStyle- {-# LINE 2910 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 487 "src/GLuaFixer/AG/ASTLint.ag" #-}- _x1Iwarnings ++ _x2Iwarnings- {-# LINE 2915 "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 2921 "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 2926 "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 2971 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 2976 "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 2993 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOelseExists ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 2998 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 3003 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOisMeta ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 3008 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 3013 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 3018 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 3023 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 3028 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOloopLevel ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 3033 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 3038 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 3043 "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 3050 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 3055 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIisInModule- {-# LINE 3060 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIglobalDefinitions- {-# LINE 3065 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 3070 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIvariableStyle- {-# LINE 3075 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 3080 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdImtokenPos- {-# LINE 3085 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 3090 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 3095 "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 3102 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _hdIidentifier _tlIidentifier)- {-# LINE 3107 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIisInModule- {-# LINE 3112 "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 3119 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIscopes- {-# LINE 3124 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIvariableStyle- {-# LINE 3129 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIwarnings ++ _tlIwarnings- {-# LINE 3134 "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 3145 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 3150 "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 3167 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOelseExists ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 3172 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 3177 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 3182 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 3187 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 3192 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 3197 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 3202 "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 3265 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 3270 "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 3291 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 3296 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 3301 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 3306 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 3311 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSingleVar ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 3316 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 3321 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 3326 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 3331 "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 3342 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 3347 "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 3368 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 3373 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 3378 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 3383 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 3388 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSingleVar ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 3393 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 3398 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 3403 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 3408 "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 3419 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 3424 "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 3445 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 3450 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 3455 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 3460 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 3465 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSingleVar ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 3470 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 3475 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 3480 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 3485 "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 3497 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 3502 "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 3523 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 3528 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 3533 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 3538 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 3543 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSingleVar ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 3548 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 3553 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 3558 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 3563 "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 3577 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 3582 "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 3603 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _strOglobalDefinitions ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 3608 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _strOscopes ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 3613 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _strOmtokenPos ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 3618 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _strOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 3623 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _strOisInModule ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 3628 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _strOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 3633 "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 3640 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _strIidentifier- {-# LINE 3645 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _strIisInModule- {-# LINE 3650 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 3655 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 3660 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSingleVar ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _strImtokenPos- {-# LINE 3665 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _strIscopes- {-# LINE 3670 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 3675 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _strIwarnings- {-# LINE 3680 "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 3691 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 3696 "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 3717 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 3722 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 3727 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 580 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 3732 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 3737 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSingleVar ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 3742 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 3747 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 3752 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 3757 "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 3772 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 3777 "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 3798 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 3803 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 3808 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOconfig ->- (case (({-# LINE 585 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta || findSelf pars_- {-# LINE 3813 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisMeta ->- (case (({-# LINE 582 "src/GLuaFixer/AG/ASTLint.ag" #-}- M.fromList $ map (\mt -> (tokenLabel mt, (not . lint_unusedParameters $ _lhsIconfig, mpos mt))) pars_- {-# LINE 3818 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _introduces ->- (case (({-# LINE 583 "src/GLuaFixer/AG/ASTLint.ag" #-}- _introduces : _lhsIscopes- {-# LINE 3823 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 3828 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 3833 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 3838 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 3843 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 3848 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOfuncName ->- (case (({-# LINE 584 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 3853 "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 3860 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIidentifier- {-# LINE 3865 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIisInModule- {-# LINE 3870 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 3875 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 3880 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSingleVar ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyImtokenPos- {-# LINE 3885 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIscopes- {-# LINE 3890 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIvariableStyle- {-# LINE 3895 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 588 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIwarnings- {-# LINE 3900 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 586 "src/GLuaFixer/AG/ASTLint.ag" #-}- filter (/= MToken emptyRg VarArg) $ pars_- {-# LINE 3905 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argIdentifiers ->- (case (({-# LINE 588 "src/GLuaFixer/AG/ASTLint.ag" #-}- if not (lint_shadowing _lhsIconfig) then id else- (++) . catMaybes . map (checkShadows _lhsIscopes) $ _argIdentifiers- {-# LINE 3911 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _warnings_augmented_f1 ->- (case (({-# LINE 588 "src/GLuaFixer/AG/ASTLint.ag" #-}- foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]- {-# LINE 3916 "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 3930 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 3935 "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 3956 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _pexprOvarBeingDefined ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 3961 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _pexprOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 3966 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _pexprOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 3971 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _pexprOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 3976 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _pexprOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 3981 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _pexprOconfig ->- (case (({-# LINE 591 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 3986 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _pexprOregisterVarUse ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 3991 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _pexprOvariableStyle ->- (case (({-# LINE 183 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsItopLevel- {-# LINE 3996 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _pexprOtopLevel ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 4001 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _pexprOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 4006 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _pexprOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 4011 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _pexprOloopLevel ->- (case (({-# LINE 170 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisNegation- {-# LINE 4016 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _pexprOisNegation ->- (case (({-# LINE 182 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIinParentheses- {-# LINE 4021 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _pexprOinParentheses ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 4026 "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 4033 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _pexprIidentifier- {-# LINE 4038 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _pexprIisInModule- {-# LINE 4043 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}- _pexprIisSimpleExpression- {-# LINE 4048 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}- _pexprIisSingleVar- {-# LINE 4053 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSingleVar ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _pexprImtokenPos- {-# LINE 4058 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _pexprIscopes- {-# LINE 4063 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _pexprIvariableStyle- {-# LINE 4068 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _pexprIwarnings- {-# LINE 4073 "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 4087 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 4092 "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 4113 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fieldsOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 4118 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fieldsOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 4123 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fieldsOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 4128 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fieldsOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 4133 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fieldsOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 4138 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fieldsOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 4143 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fieldsOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 4148 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fieldsOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 4153 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fieldsOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 4158 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fieldsOfuncName ->- (case (({-# LINE 593 "src/GLuaFixer/AG/ASTLint.ag" #-}- S.empty- {-# LINE 4163 "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 4170 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _fieldsIidentifier- {-# LINE 4175 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _fieldsIisInModule- {-# LINE 4180 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 4185 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 4190 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSingleVar ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _fieldsImtokenPos- {-# LINE 4195 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _fieldsIscopes- {-# LINE 4200 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _fieldsIvariableStyle- {-# LINE 4205 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _fieldsIwarnings- {-# LINE 4210 "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 4230 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 4235 "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 4256 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _opOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 4261 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _opOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 4266 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _opOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 4271 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _opOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 4276 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _opOloopLevel ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 4281 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _opOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 4286 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _opOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 4291 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _opOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 4296 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _opOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 4301 "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 4308 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _leftOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 4313 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _leftOisMeta ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 4318 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _leftOconfig ->- (case (({-# LINE 599 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 4323 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _leftOvarBeingDefined ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _opIvariableStyle- {-# LINE 4328 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _leftOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 4333 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _leftOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _opImtokenPos- {-# LINE 4338 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _leftOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 4343 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _leftOloopLevel ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _opIisInModule- {-# LINE 4348 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _leftOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _opIglobalDefinitions- {-# LINE 4353 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _leftOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 4358 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _leftOfuncName ->- (case (({-# LINE 598 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 4363 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _leftOtopLevel ->- (case (({-# LINE 597 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 4368 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _leftOinParentheses ->- (case (({-# LINE 596 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 4373 "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 4380 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 4385 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _leftIisInModule- {-# LINE 4390 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _leftIglobalDefinitions- {-# LINE 4395 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 4400 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOconfig ->- (case (({-# LINE 603 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 4405 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOvarBeingDefined ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _leftIvariableStyle- {-# LINE 4410 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 4415 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _leftImtokenPos- {-# LINE 4420 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 4425 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 4430 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOfuncName ->- (case (({-# LINE 602 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 4435 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOtopLevel ->- (case (({-# LINE 601 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 4440 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOinParentheses ->- (case (({-# LINE 600 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 4445 "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 4452 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _opIidentifier (const _leftIidentifier _rightIidentifier))- {-# LINE 4457 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _rightIisInModule- {-# LINE 4462 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 595 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 4467 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const (const Nothing) _leftIisSingleVar _rightIisSingleVar)- {-# LINE 4472 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSingleVar ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _rightImtokenPos- {-# LINE 4477 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _rightIscopes- {-# LINE 4482 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _rightIvariableStyle- {-# LINE 4487 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 607 "src/GLuaFixer/AG/ASTLint.ag" #-}- _opIwarnings ++ _leftIwarnings ++ _rightIwarnings- {-# LINE 4492 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 606 "src/GLuaFixer/AG/ASTLint.ag" #-}- oppositeBinOp _opIcopy- {-# LINE 4497 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _stupidNegation ->- (case (({-# LINE 607 "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 4503 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _warnings_augmented_f1 ->- (case (({-# LINE 607 "src/GLuaFixer/AG/ASTLint.ag" #-}- foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]- {-# LINE 4508 "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 4525 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 4530 "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 4551 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _opOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 4556 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _opOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 4561 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _opOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 4566 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _opOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 4571 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _opOloopLevel ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 4576 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _opOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 4581 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _opOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 4586 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _opOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 4591 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _opOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 4596 "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 4603 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 4608 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _opIisInModule- {-# LINE 4613 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _opIglobalDefinitions- {-# LINE 4618 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 4623 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOconfig ->- (case (({-# LINE 614 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 4628 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOvarBeingDefined ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _opIvariableStyle- {-# LINE 4633 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 4638 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _opImtokenPos- {-# LINE 4643 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 4648 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 4653 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOfuncName ->- (case (({-# LINE 613 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 4658 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOtopLevel ->- (case (({-# LINE 612 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 4663 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _rightOinParentheses ->- (case (({-# LINE 611 "src/GLuaFixer/AG/ASTLint.ag" #-}- _opIisNegation- {-# LINE 4668 "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 4675 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _opIidentifier _rightIidentifier)- {-# LINE 4680 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _rightIisInModule- {-# LINE 4685 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 610 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 4690 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}- _rightIisSingleVar- {-# LINE 4695 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSingleVar ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _rightImtokenPos- {-# LINE 4700 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _rightIscopes- {-# LINE 4705 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _rightIvariableStyle- {-# LINE 4710 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _opIwarnings ++ _rightIwarnings- {-# LINE 4715 "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 4760 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 4765 "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 4782 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 4787 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOisMeta ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 4792 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 4797 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 4802 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 4807 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 4812 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOloopLevel ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 4817 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 4822 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 4827 "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 4834 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 4839 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIisInModule- {-# LINE 4844 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIglobalDefinitions- {-# LINE 4849 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 4854 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIvariableStyle- {-# LINE 4859 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 4864 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdImtokenPos- {-# LINE 4869 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 4874 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 4879 "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 4886 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _hdIidentifier _tlIidentifier)- {-# LINE 4891 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIisInModule- {-# LINE 4896 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIisSimpleExpression && _tlIisSimpleExpression- {-# LINE 4901 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlImtokenPos- {-# LINE 4906 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIscopes- {-# LINE 4911 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIvariableStyle- {-# LINE 4916 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIwarnings ++ _tlIwarnings- {-# LINE 4921 "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 4932 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 4937 "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 4954 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 4959 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 4964 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 4969 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 4974 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 4979 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 4984 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 4989 "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 5042 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 5047 "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 5065 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOfieldNames ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 5070 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _keyOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 5075 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _keyOisMeta ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 5080 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _keyOconfig ->- (case (({-# LINE 630 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 5085 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _keyOvarBeingDefined ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 5090 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _keyOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 5095 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _keyOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 5100 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _keyOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 5105 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _keyOloopLevel ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 5110 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _keyOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 5115 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _keyOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 5120 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _keyOfuncName ->- (case (({-# LINE 629 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 5125 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _keyOtopLevel ->- (case (({-# LINE 628 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 5130 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _keyOinParentheses ->- (case (({-# LINE 627 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 5135 "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 5142 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 5147 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _keyIisInModule- {-# LINE 5152 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _keyIglobalDefinitions- {-# LINE 5157 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 5162 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOconfig ->- (case (({-# LINE 634 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 5167 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOvarBeingDefined ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _keyIvariableStyle- {-# LINE 5172 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 5177 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _keyImtokenPos- {-# LINE 5182 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 5187 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 5192 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOfuncName ->- (case (({-# LINE 633 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 5197 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOtopLevel ->- (case (({-# LINE 632 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 5202 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOinParentheses ->- (case (({-# LINE 631 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 5207 "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 5214 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOglobalDefinitions ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valueIvariableStyle- {-# LINE 5219 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOvariableStyle ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valueIscopes- {-# LINE 5224 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOscopes ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 5229 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valueImtokenPos- {-# LINE 5234 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 5239 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOloopLevel ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 5244 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valueIisInModule- {-# LINE 5249 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOisInModule ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 5254 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 5259 "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 5266 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _keyIidentifier (const _valueIidentifier _sepIidentifier))- {-# LINE 5271 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _sepIisInModule- {-# LINE 5276 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 626 "src/GLuaFixer/AG/ASTLint.ag" #-}- _keyImtokenPos- {-# LINE 5281 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _sepIscopes- {-# LINE 5286 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _sepIvariableStyle- {-# LINE 5291 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _keyIwarnings ++ _valueIwarnings ++ _sepIwarnings- {-# LINE 5296 "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 5316 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 5321 "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 637 "src/GLuaFixer/AG/ASTLint.ag" #-}- S.insert _keyImtok _lhsIfieldNames- {-# LINE 5339 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOfieldNames ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 5344 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _keyOscopes ->- (case (({-# LINE 636 "src/GLuaFixer/AG/ASTLint.ag" #-}- _keyImtokenPos- {-# LINE 5349 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _mtokenPos ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _mtokenPos- {-# LINE 5354 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _keyOmtokenPos ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 5359 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _keyOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 5364 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _keyOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 5369 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _keyOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 5374 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _keyOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 5379 "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 5386 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 5391 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _keyIisInModule- {-# LINE 5396 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _keyIglobalDefinitions- {-# LINE 5401 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 5406 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOconfig ->- (case (({-# LINE 638 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 5411 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOvarBeingDefined ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 5416 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 5421 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _mtokenPos- {-# LINE 5426 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 5431 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 5436 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOfuncName ->- (case (({-# LINE 641 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 5441 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOtopLevel ->- (case (({-# LINE 640 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 5446 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOinParentheses ->- (case (({-# LINE 639 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 5451 "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 5458 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOglobalDefinitions ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valueIvariableStyle- {-# LINE 5463 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOvariableStyle ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valueIscopes- {-# LINE 5468 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOscopes ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 5473 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _mtokenPos- {-# LINE 5478 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 5483 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOloopLevel ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 5488 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valueIisInModule- {-# LINE 5493 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOisInModule ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 5498 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 5503 "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 5510 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _keyIidentifier (const _valueIidentifier _sepIidentifier))- {-# LINE 5515 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _sepIisInModule- {-# LINE 5520 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _mtokenPos- {-# LINE 5525 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _sepIscopes- {-# LINE 5530 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _sepIvariableStyle- {-# LINE 5535 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 642 "src/GLuaFixer/AG/ASTLint.ag" #-}- _keyIwarnings ++ _valueIwarnings ++ _sepIwarnings- {-# LINE 5540 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 642 "src/GLuaFixer/AG/ASTLint.ag" #-}- if not (lint_duplicateTableKeys _lhsIconfig) || not (S.member _keyImtok _lhsIfieldNames) then id else- (:) $ warn _keyImtokenPos $ DuplicateKeyInTable _keyImtok- {-# LINE 5546 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _warnings_augmented_f1 ->- (case (({-# LINE 642 "src/GLuaFixer/AG/ASTLint.ag" #-}- foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]- {-# LINE 5551 "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 5568 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 5573 "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 5591 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOfieldNames ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 5596 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 5601 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 5606 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 5611 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 5616 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOconfig ->- (case (({-# LINE 648 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 5621 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOvarBeingDefined ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 5626 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 5631 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 5636 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 5641 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 5646 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOfuncName ->- (case (({-# LINE 647 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 5651 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOtopLevel ->- (case (({-# LINE 646 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 5656 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valueOinParentheses ->- (case (({-# LINE 645 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 5661 "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 5668 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOglobalDefinitions ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valueIvariableStyle- {-# LINE 5673 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOvariableStyle ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valueIscopes- {-# LINE 5678 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOscopes ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 5683 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valueImtokenPos- {-# LINE 5688 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 5693 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOloopLevel ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 5698 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valueIisInModule- {-# LINE 5703 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOisInModule ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 5708 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _sepOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 5713 "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 5720 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _valueIidentifier _sepIidentifier)- {-# LINE 5725 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _sepIisInModule- {-# LINE 5730 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _sepImtokenPos- {-# LINE 5735 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _sepIscopes- {-# LINE 5740 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _sepIvariableStyle- {-# LINE 5745 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valueIwarnings ++ _sepIwarnings- {-# LINE 5750 "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 5796 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 5801 "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 5819 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOfieldNames ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 5824 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOvariableStyle ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 5829 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOscopes ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 5834 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 5839 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 5844 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOloopLevel ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 5849 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 5854 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 5859 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 5864 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 5869 "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 5876 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOfieldNames ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIvariableStyle- {-# LINE 5881 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOvariableStyle ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIscopes- {-# LINE 5886 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOscopes ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 5891 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdImtokenPos- {-# LINE 5896 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 5901 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOloopLevel ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 5906 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIisInModule- {-# LINE 5911 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIglobalDefinitions- {-# LINE 5916 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 5921 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 5926 "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 5933 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOfieldNames ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIglobalDefinitions- {-# LINE 5938 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _hdIidentifier _tlIidentifier)- {-# LINE 5943 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIisInModule- {-# LINE 5948 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdImtokenPos- {-# LINE 5953 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIscopes- {-# LINE 5958 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIvariableStyle- {-# LINE 5963 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIwarnings ++ _tlIwarnings- {-# LINE 5968 "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 5979 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 5984 "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 6002 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOfieldNames ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 6007 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 6012 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 6017 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 6022 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 6027 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 6032 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 6037 "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 6080 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 6085 "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 6102 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 6107 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 6112 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 6117 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 6122 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 6127 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 6132 "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 6143 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 6148 "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 6165 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 6170 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 6175 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 6180 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 6185 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 6190 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 6195 "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 6206 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 6211 "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 6228 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 6233 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 6238 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 6243 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 6248 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 6253 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 6258 "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 6299 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 6304 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 514 "src/GLuaFixer/AG/ASTLint.ag" #-}- isJust meta_- {-# LINE 6309 "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 6326 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 515 "src/GLuaFixer/AG/ASTLint.ag" #-}- length names_ > 1- {-# LINE 6331 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOhasSuffixes ->- (case (({-# LINE 513 "src/GLuaFixer/AG/ASTLint.ag" #-}- tokenLabel . head $ names_- {-# LINE 6336 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 6341 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 512 "src/GLuaFixer/AG/ASTLint.ag" #-}- mpos (head names_)- {-# LINE 6346 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 6351 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 6356 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 6361 "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 6404 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 6409 "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 6426 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOelseExists ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 6431 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 6436 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 6441 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 6446 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 6451 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 6456 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 6461 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 6466 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 6471 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 6476 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOfuncName ->- (case (({-# LINE 492 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 6481 "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 6488 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIidentifier- {-# LINE 6493 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIisInModule- {-# LINE 6498 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 493 "src/GLuaFixer/AG/ASTLint.ag" #-}- pos_- {-# LINE 6503 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIscopes- {-# LINE 6508 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIstatementCount- {-# LINE 6513 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOstatementCount ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIvariableStyle- {-# LINE 6518 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIwarnings- {-# LINE 6523 "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 6566 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 6571 "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 6588 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elifOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 6593 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elifOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 6598 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elifOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 6603 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elifOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 6608 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elifOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 6613 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elifOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 6618 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elifOscopeLevel ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 6623 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elifOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 6628 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elifOfuncName ->- (case (({-# LINE 476 "src/GLuaFixer/AG/ASTLint.ag" #-}- pos_- {-# LINE 6633 "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 6640 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _elifIidentifier- {-# LINE 6645 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _elifIisInModule- {-# LINE 6650 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 477 "src/GLuaFixer/AG/ASTLint.ag" #-}- pos_- {-# LINE 6655 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _elifIscopes- {-# LINE 6660 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _elifIvariableStyle- {-# LINE 6665 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _elifIwarnings- {-# LINE 6670 "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 6717 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 6722 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 570 "src/GLuaFixer/AG/ASTLint.ag" #-}- pos_- {-# LINE 6727 "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 6748 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOvarBeingDefined ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 6753 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 6758 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 6763 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 6768 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 6773 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 6778 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOvariableStyle ->- (case (({-# LINE 183 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsItopLevel- {-# LINE 6783 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOtopLevel ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 6788 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOscopeLevel ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 6793 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOloopLevel ->- (case (({-# LINE 170 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisNegation- {-# LINE 6798 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOisNegation ->- (case (({-# LINE 182 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIinParentheses- {-# LINE 6803 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOinParentheses ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 6808 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOfuncName ->- (case (({-# LINE 571 "src/GLuaFixer/AG/ASTLint.ag" #-}- pos_- {-# LINE 6813 "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 6820 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _exprIidentifier- {-# LINE 6825 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _exprIisInModule- {-# LINE 6830 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}- _exprIisSimpleExpression- {-# LINE 6835 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}- _exprIisSingleVar- {-# LINE 6840 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSingleVar ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _exprIscopes- {-# LINE 6845 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _exprIvariableStyle- {-# LINE 6850 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _exprIwarnings- {-# LINE 6855 "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 6902 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 6907 "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 6926 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 6931 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOisMeta ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 6936 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOconfig ->- (case (({-# LINE 246 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 6941 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOvarBeingDefined ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 6946 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOvariableStyle ->- (case (({-# LINE 183 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsItopLevel- {-# LINE 6951 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOtopLevel ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 6956 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 6961 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 6966 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOloopLevel ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 6971 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOisInModule ->- (case (({-# LINE 182 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIinParentheses- {-# LINE 6976 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOinParentheses ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 6981 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 6986 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOfuncName ->- (case (({-# LINE 245 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 6991 "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 6998 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 7003 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIisInModule- {-# LINE 7008 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIglobalDefinitions- {-# LINE 7013 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 7018 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIvariableStyle- {-# LINE 7023 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOvariableStyle ->- (case (({-# LINE 183 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsItopLevel- {-# LINE 7028 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOtopLevel ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 7033 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdImtokenPos- {-# LINE 7038 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 7043 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOloopLevel ->- (case (({-# LINE 182 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIinParentheses- {-# LINE 7048 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOinParentheses ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 7053 "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 7060 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _hdIidentifier _tlIidentifier)- {-# LINE 7065 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIisInModule- {-# LINE 7070 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdImtokenPos- {-# LINE 7075 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIscopes- {-# LINE 7080 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIvariableStyle- {-# LINE 7085 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIwarnings ++ _tlIwarnings- {-# LINE 7090 "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 7101 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 7106 "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 7125 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 7130 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 7135 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 7140 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 7145 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 7150 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 7155 "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 7198 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 7203 "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 7220 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _statOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 7225 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _statOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 7230 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _statOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 7235 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _statOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 7240 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _statOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 7245 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _statOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 7250 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _statOscopeLevel ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 7255 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _statOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 7260 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _statOfuncName ->- (case (({-# LINE 310 "src/GLuaFixer/AG/ASTLint.ag" #-}- pos_- {-# LINE 7265 "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 7272 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _statIidentifier- {-# LINE 7277 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}- _statIisIfStatement- {-# LINE 7282 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisIfStatement ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _statIisInModule- {-# LINE 7287 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 309 "src/GLuaFixer/AG/ASTLint.ag" #-}- pos_- {-# LINE 7292 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _statIscopes- {-# LINE 7297 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-}- 1- {-# LINE 7302 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOstatementCount ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _statIvariableStyle- {-# LINE 7307 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _statIwarnings- {-# LINE 7312 "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 7357 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 7362 "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 7379 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 7384 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOisMeta ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 7389 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 7394 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 7399 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 7404 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 7409 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOloopLevel ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 7414 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 7419 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 7424 "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 7431 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 7436 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIisInModule- {-# LINE 7441 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIglobalDefinitions- {-# LINE 7446 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 7451 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIvariableStyle- {-# LINE 7456 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 7461 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdImtokenPos- {-# LINE 7466 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 7471 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 7476 "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 7483 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _hdIidentifier _tlIidentifier)- {-# LINE 7488 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIisIfStatement || _tlIisIfStatement- {-# LINE 7493 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisIfStatement ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIisInModule- {-# LINE 7498 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdImtokenPos- {-# LINE 7503 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIscopes- {-# LINE 7508 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIstatementCount + _tlIstatementCount- {-# LINE 7513 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOstatementCount ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIvariableStyle- {-# LINE 7518 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIwarnings ++ _tlIwarnings- {-# LINE 7523 "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 7534 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 7539 "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 7556 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 7561 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 7566 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisIfStatement ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 7571 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 7576 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 7581 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 241 "src/GLuaFixer/AG/ASTLint.ag" #-}- 0- {-# LINE 7586 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOstatementCount ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 7591 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 7596 "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 7636 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 7641 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 228 "src/GLuaFixer/AG/ASTLint.ag" #-}- _mtokIcopy- {-# LINE 7646 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtok ->- (case (({-# LINE 227 "src/GLuaFixer/AG/ASTLint.ag" #-}- mpos_- {-# LINE 7651 "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 7665 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 229 "src/GLuaFixer/AG/ASTLint.ag" #-}- _mtokIidentifier- {-# LINE 7670 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 7675 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 7680 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 230 "src/GLuaFixer/AG/ASTLint.ag" #-}- _mtokIwarnings- {-# LINE 7685 "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 7691 "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 7696 "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 7739 "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 7746 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOmtokenPos ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 7751 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 7756 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 7761 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 7766 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 7771 "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 7778 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOscopes ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdImtokenPos- {-# LINE 7783 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOmtokenPos ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 7788 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIisInModule- {-# LINE 7793 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIglobalDefinitions- {-# LINE 7798 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 7803 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 7808 "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 7815 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 7820 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIglobalDefinitions- {-# LINE 7825 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _hdIidentifier _tlIidentifier)- {-# LINE 7830 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIisInModule- {-# LINE 7835 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdImtokenPos- {-# LINE 7840 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIscopes- {-# LINE 7845 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIwarnings ++ _tlIwarnings- {-# LINE 7850 "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 7865 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 7870 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 7875 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 7880 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 7885 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 7890 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 7895 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 7900 "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 7943 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 7948 "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 7967 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOvarBeingDefined ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 7972 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 7977 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 7982 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 7987 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 7992 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 7997 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 8002 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 8007 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 8012 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOloopLevel ->- (case (({-# LINE 170 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisNegation- {-# LINE 8017 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOisNegation ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 8022 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOfuncName ->- (case (({-# LINE 252 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 8027 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _justOtopLevel ->- (case (({-# LINE 251 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 8032 "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 8039 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _justIidentifier- {-# LINE 8044 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _justIisInModule- {-# LINE 8049 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}- _justIisSingleVar- {-# LINE 8054 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSingleVar ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _justImtokenPos- {-# LINE 8059 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _justIscopes- {-# LINE 8064 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _justIvariableStyle- {-# LINE 8069 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _justIwarnings- {-# LINE 8074 "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 8085 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 8090 "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 8109 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 8114 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 8119 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 8124 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSingleVar ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 8129 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 8134 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 8139 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 8144 "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 8192 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 8197 "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 8214 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 8219 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 8224 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 8229 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 8234 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 8239 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 8244 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 8249 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 8254 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 8259 "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 8266 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argsIidentifier- {-# LINE 8271 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argsIisInModule- {-# LINE 8276 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 558 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 8281 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argsImtokenPos- {-# LINE 8286 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argsIscopes- {-# LINE 8291 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argsIvariableStyle- {-# LINE 8296 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argsIwarnings- {-# LINE 8301 "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 8318 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 8323 "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 8340 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOscopes ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 8345 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOmtokenPos ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 8350 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 8355 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 8360 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 8365 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 8370 "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 8377 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 8382 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _fnIisInModule- {-# LINE 8387 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _fnIglobalDefinitions- {-# LINE 8392 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 8397 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 8402 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 8407 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _fnImtokenPos- {-# LINE 8412 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 8417 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _argsOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 8422 "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 8429 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _fnIidentifier _argsIidentifier)- {-# LINE 8434 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argsIisInModule- {-# LINE 8439 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 560 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 8444 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argsImtokenPos- {-# LINE 8449 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argsIscopes- {-# LINE 8454 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _argsIvariableStyle- {-# LINE 8459 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _fnIwarnings ++ _argsIwarnings- {-# LINE 8464 "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 8478 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 8483 "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 8500 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _indexOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 8505 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _indexOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 8510 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _indexOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 8515 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _indexOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 8520 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _indexOconfig ->- (case (({-# LINE 565 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 8525 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _indexOvarBeingDefined ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 8530 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _indexOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 8535 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _indexOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 8540 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _indexOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 8545 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _indexOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 8550 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _indexOfuncName ->- (case (({-# LINE 564 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 8555 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _indexOtopLevel ->- (case (({-# LINE 563 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 8560 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _indexOinParentheses ->- (case (({-# LINE 562 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 8565 "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 8572 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _indexIidentifier- {-# LINE 8577 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _indexIisInModule- {-# LINE 8582 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}- _indexIisSimpleExpression- {-# LINE 8587 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _indexImtokenPos- {-# LINE 8592 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _indexIscopes- {-# LINE 8597 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _indexIvariableStyle- {-# LINE 8602 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _indexIwarnings- {-# LINE 8607 "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 8621 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 8626 "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 8643 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _indexOglobalDefinitions ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 8648 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _indexOscopes ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 8653 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _indexOmtokenPos ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 8658 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _indexOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 8663 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _indexOisInModule ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 8668 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _indexOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 8673 "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 8680 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _indexIidentifier- {-# LINE 8685 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _indexIisInModule- {-# LINE 8690 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 8695 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _indexImtokenPos- {-# LINE 8700 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _indexIscopes- {-# LINE 8705 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 8710 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _indexIwarnings- {-# LINE 8715 "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 8767 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 8772 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 520 "src/GLuaFixer/AG/ASTLint.ag" #-}- not . null $ _suffixesIcopy- {-# LINE 8777 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOhasSuffixes ->- (case (({-# LINE 519 "src/GLuaFixer/AG/ASTLint.ag" #-}- _nameImtokenPos- {-# LINE 8782 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 522 "src/GLuaFixer/AG/ASTLint.ag" #-}- Just _nameIcopy- {-# LINE 8787 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varName ->- (case (({-# LINE 193 "src/GLuaFixer/AG/ASTLint.ag" #-}- _varName- {-# LINE 8792 "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 8819 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _foundVars ->- (case (({-# LINE 536 "src/GLuaFixer/AG/ASTLint.ag" #-}- _foundVars- {-# LINE 8824 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOscopes ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 8829 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOmtokenPos ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 8834 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 8839 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 8844 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 8849 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 8854 "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 8861 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _suffixesOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 8866 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _suffixesOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _nameIisInModule- {-# LINE 8871 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _suffixesOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _nameIglobalDefinitions- {-# LINE 8876 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _suffixesOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 8881 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _suffixesOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 8886 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _suffixesOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 8891 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _suffixesOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _nameImtokenPos- {-# LINE 8896 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _suffixesOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 8901 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _suffixesOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 8906 "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 8913 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _nameIidentifier _suffixesIidentifier)- {-# LINE 8918 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _suffixesIisInModule- {-# LINE 8923 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}- _suffixesIisSimpleExpression- {-# LINE 8928 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 521 "src/GLuaFixer/AG/ASTLint.ag" #-}- if null _suffixesIcopy then _varName else Nothing- {-# LINE 8933 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSingleVar ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _suffixesIscopes- {-# LINE 8938 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _suffixesIvariableStyle- {-# LINE 8943 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 542 "src/GLuaFixer/AG/ASTLint.ag" #-}- _nameIwarnings ++ _suffixesIwarnings- {-# LINE 8948 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 535 "src/GLuaFixer/AG/ASTLint.ag" #-}- tokenLabel _nameIcopy- {-# LINE 8953 "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 8959 "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 8966 "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 8973 "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 8978 "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 8995 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 9000 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 549 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 9005 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOhasSuffixes ->- (case (({-# LINE 546 "src/GLuaFixer/AG/ASTLint.ag" #-}- _exprImtokenPos- {-# LINE 9010 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 548 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 9015 "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 9037 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOvarBeingDefined ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 9042 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 9047 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOisMeta ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 9052 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 9057 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 9062 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 9067 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 9072 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOloopLevel ->- (case (({-# LINE 170 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisNegation- {-# LINE 9077 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOisNegation ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 9082 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 9087 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 9092 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOfuncName ->- (case (({-# LINE 551 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 9097 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _exprOtopLevel ->- (case (({-# LINE 550 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 9102 "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 9109 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _suffixesOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 9114 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _suffixesOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _exprIisInModule- {-# LINE 9119 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _suffixesOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _exprIglobalDefinitions- {-# LINE 9124 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _suffixesOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 9129 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _suffixesOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _exprIvariableStyle- {-# LINE 9134 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _suffixesOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 9139 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _suffixesOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _exprImtokenPos- {-# LINE 9144 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _suffixesOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 9149 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _suffixesOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 9154 "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 9161 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _exprIidentifier _suffixesIidentifier)- {-# LINE 9166 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _suffixesIisInModule- {-# LINE 9171 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-}- _exprIisSimpleExpression && _suffixesIisSimpleExpression- {-# LINE 9176 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSimpleExpression ->- (case (({-# LINE 547 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 9181 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisSingleVar ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _suffixesIscopes- {-# LINE 9186 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _suffixesIvariableStyle- {-# LINE 9191 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 552 "src/GLuaFixer/AG/ASTLint.ag" #-}- _exprIwarnings ++ _suffixesIwarnings- {-# LINE 9196 "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 9203 "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 9208 "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 9278 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 9283 "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 9300 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 9305 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 9310 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 9315 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 9320 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOconfig ->- (case (({-# LINE 315 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 9325 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOlocalDefinition ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 9330 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 9335 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 9340 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 9345 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 9350 "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 9357 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _varsIidentifier- {-# LINE 9362 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 9367 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisIfStatement ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _varsIisInModule- {-# LINE 9372 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _varsImtokenPos- {-# LINE 9377 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _varsIscopes- {-# LINE 9382 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _varsIvariableStyle- {-# LINE 9387 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _varsIwarnings- {-# LINE 9392 "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 9406 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 9411 "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 9428 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 9433 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 9438 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 9443 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 9448 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOconfig ->- (case (({-# LINE 318 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 9453 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOlocalDefinition ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 9458 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 9463 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 9468 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 9473 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varsOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 9478 "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 9485 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _varsIidentifier- {-# LINE 9490 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 9495 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisIfStatement ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _varsIisInModule- {-# LINE 9500 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _varsImtokenPos- {-# LINE 9505 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _varsIscopes- {-# LINE 9510 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _varsIvariableStyle- {-# LINE 9515 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _varsIwarnings- {-# LINE 9520 "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 9534 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 9539 "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 9556 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 9561 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 9566 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 9571 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 9576 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOconfig ->- (case (({-# LINE 324 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 9581 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOvarBeingDefined ->- (case (({-# LINE 321 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 9586 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOregisterVarUse ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 9591 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 9596 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 9601 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 9606 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 9611 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOfuncName ->- (case (({-# LINE 323 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 9616 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOtopLevel ->- (case (({-# LINE 322 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 9621 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _fnOinParentheses ->- (case (({-# LINE 320 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 9626 "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 9633 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _fnIidentifier- {-# LINE 9638 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 9643 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisIfStatement ->- (case (({-# LINE 325 "src/GLuaFixer/AG/ASTLint.ag" #-}- (tokenLabel <$> _fnIvarName) == Just "module"- {-# LINE 9648 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _isModuleCall ->- (case (({-# LINE 326 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule || _isModuleCall- {-# LINE 9653 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _fnImtokenPos- {-# LINE 9658 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _fnIscopes- {-# LINE 9663 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _fnIvariableStyle- {-# LINE 9668 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _fnIwarnings- {-# LINE 9673 "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 9687 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 9692 "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 9709 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lblOglobalDefinitions ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 9714 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lblOscopes ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 9719 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lblOmtokenPos ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 9724 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lblOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 9729 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lblOisInModule ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 9734 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lblOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 9739 "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 9746 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lblIidentifier- {-# LINE 9751 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 9756 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisIfStatement ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lblIisInModule- {-# LINE 9761 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lblImtokenPos- {-# LINE 9766 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lblIscopes- {-# LINE 9771 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 9776 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lblIwarnings- {-# LINE 9781 "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 9792 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 9797 "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 9814 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 9819 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 9824 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisIfStatement ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 9829 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 9834 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 9839 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 9844 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 9849 "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 9860 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 9865 "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 9882 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 9887 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 9892 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisIfStatement ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 9897 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 9902 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 9907 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 9912 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 9917 "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 9931 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 9936 "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 9953 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lblOglobalDefinitions ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 9958 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lblOscopes ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 9963 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lblOmtokenPos ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 9968 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lblOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 9973 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lblOisInModule ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 9978 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lblOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 9983 "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 9990 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lblIidentifier- {-# LINE 9995 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 10000 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisIfStatement ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lblIisInModule- {-# LINE 10005 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lblImtokenPos- {-# LINE 10010 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lblIscopes- {-# LINE 10015 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 10020 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 331 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lblIwarnings- {-# LINE 10025 "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 10031 "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 10036 "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 10050 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 10055 "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 10072 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 10077 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 10082 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 10087 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOconfig ->- (case (({-# LINE 335 "src/GLuaFixer/AG/ASTLint.ag" #-}- M.empty : _lhsIscopes- {-# LINE 10092 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 10097 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 10102 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 10107 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 10112 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 10117 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOfuncName ->- (case (({-# LINE 336 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 10122 "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 10129 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIidentifier- {-# LINE 10134 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 334 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 10139 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisIfStatement ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIisInModule- {-# LINE 10144 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyImtokenPos- {-# LINE 10149 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIscopes- {-# LINE 10154 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIvariableStyle- {-# LINE 10159 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 337 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIwarnings- {-# LINE 10164 "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 10170 "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 10175 "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 10192 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 10197 "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 10214 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 10219 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOisInModule ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 10224 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOvariableStyle ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 10229 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOscopes ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 10234 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 10239 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 10244 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOloopLevel ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 10249 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOisMeta ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 10254 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 10259 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 10264 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOconfig ->- (case (({-# LINE 345 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 10269 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOvarBeingDefined ->- (case (({-# LINE 344 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 10274 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOtopLevel ->- (case (({-# LINE 343 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 10279 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOinParentheses ->- (case (({-# LINE 342 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 10284 "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 10291 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _condIglobalDefinitions- {-# LINE 10296 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 10301 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOconfig ->- (case (({-# LINE 347 "src/GLuaFixer/AG/ASTLint.ag" #-}- M.empty : _condIscopes- {-# LINE 10306 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _condIvariableStyle- {-# LINE 10311 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 10316 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _condImtokenPos- {-# LINE 10321 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOmtokenPos ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 10326 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOfuncName ->- (case (({-# LINE 346 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 10331 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisRepeat ->- (case (({-# LINE 341 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel + 1- {-# LINE 10336 "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 10343 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _condIidentifier _bodyIidentifier)- {-# LINE 10348 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 340 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 10353 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisIfStatement ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIisInModule- {-# LINE 10358 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyImtokenPos- {-# LINE 10363 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIscopes- {-# LINE 10368 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIvariableStyle- {-# LINE 10373 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 348 "src/GLuaFixer/AG/ASTLint.ag" #-}- _condIwarnings ++ _bodyIwarnings- {-# LINE 10378 "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 10384 "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 10389 "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 10406 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 10411 "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 10428 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisMeta ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 10433 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOconfig ->- (case (({-# LINE 359 "src/GLuaFixer/AG/ASTLint.ag" #-}- M.empty : _lhsIscopes- {-# LINE 10438 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopes ->- (case (({-# LINE 358 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 10443 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisRepeat ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 10448 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 10453 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 10458 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOmtokenPos ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 10463 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 10468 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 10473 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOfuncName ->- (case (({-# LINE 353 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel + 1- {-# LINE 10478 "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 10485 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 10490 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIisInModule- {-# LINE 10495 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIglobalDefinitions- {-# LINE 10500 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 10505 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOconfig ->- (case (({-# LINE 357 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 10510 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOvarBeingDefined ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIvariableStyle- {-# LINE 10515 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 10520 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyImtokenPos- {-# LINE 10525 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 10530 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 10535 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOfuncName ->- (case (({-# LINE 356 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 10540 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOtopLevel ->- (case (({-# LINE 355 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 10545 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOinParentheses ->- (case (({-# LINE 354 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 10550 "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 10557 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _bodyIidentifier _condIidentifier)- {-# LINE 10562 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 352 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 10567 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisIfStatement ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _condIisInModule- {-# LINE 10572 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _condImtokenPos- {-# LINE 10577 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 360 "src/GLuaFixer/AG/ASTLint.ag" #-}- tail _condIscopes- {-# LINE 10582 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _condIvariableStyle- {-# LINE 10587 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 361 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIwarnings ++ _condIwarnings- {-# LINE 10592 "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 10598 "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 10603 "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 10626 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 10631 "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 10648 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisMeta ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 10653 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOconfig ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 10658 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 10663 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOisMeta ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 10668 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOconfig ->- (case (({-# LINE 374 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 10673 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisRepeat ->- (case (({-# LINE 372 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 10678 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOvarBeingDefined ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 10683 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 10688 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 10693 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 10698 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOloopLevel ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 10703 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 10708 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 10713 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOfuncName ->- (case (({-# LINE 371 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 10718 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOtopLevel ->- (case (({-# LINE 370 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 10723 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _condOinParentheses ->- (case (({-# LINE 369 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 10728 "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 10735 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _condIvariableStyle- {-# LINE 10740 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 10745 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _condImtokenPos- {-# LINE 10750 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 10755 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOloopLevel ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _condIisInModule- {-# LINE 10760 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _condIglobalDefinitions- {-# LINE 10765 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 10770 "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 10777 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elifsOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 10782 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elifsOisMeta ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 10787 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elifsOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIvariableStyle- {-# LINE 10792 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elifsOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 10797 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elifsOscopeLevel ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 10802 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elifsOloopLevel ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIisInModule- {-# LINE 10807 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elifsOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIglobalDefinitions- {-# LINE 10812 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elifsOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 10817 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elifsOfuncName ->- (case (({-# LINE 375 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 10822 "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 10829 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elsOscopes ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 10834 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elsOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _elifsIisInModule- {-# LINE 10839 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elsOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _elifsIglobalDefinitions- {-# LINE 10844 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elsOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 10849 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elsOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _elifsIvariableStyle- {-# LINE 10854 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elsOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 10859 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elsOscopeLevel ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 10864 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elsOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 10869 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _elsOfuncName ->- (case (({-# LINE 376 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 10874 "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 10881 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _condIidentifier (const _bodyIidentifier (const _elifsIidentifier _elsIidentifier)))- {-# LINE 10886 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 368 "src/GLuaFixer/AG/ASTLint.ag" #-}- not _elifsIelseExists && not _elsIelseExists- {-# LINE 10891 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisIfStatement ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _elsIisInModule- {-# LINE 10896 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _elsImtokenPos- {-# LINE 10901 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _elsIscopes- {-# LINE 10906 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _elsIvariableStyle- {-# LINE 10911 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 392 "src/GLuaFixer/AG/ASTLint.ag" #-}- _condIwarnings ++ _bodyIwarnings ++ _elifsIwarnings ++ _elsIwarnings- {-# LINE 10916 "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 10924 "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 10930 "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 10936 "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 10941 "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 10967 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 10972 "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 10989 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 10994 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varOisInModule ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 10999 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varOscopes ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 11004 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varOmtokenPos ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 11009 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varOisMeta ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 11014 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 11019 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _varOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 11024 "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 11031 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valOisInModule ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 11036 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valOvariableStyle ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _varIscopes- {-# LINE 11041 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valOscopes ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 11046 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _varImtokenPos- {-# LINE 11051 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 11056 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valOloopLevel ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 11061 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valOisMeta ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _varIglobalDefinitions- {-# LINE 11066 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 11071 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 11076 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valOconfig ->- (case (({-# LINE 400 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 11081 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valOvarBeingDefined ->- (case (({-# LINE 399 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 11086 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valOtopLevel ->- (case (({-# LINE 398 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 11091 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valOinParentheses ->- (case (({-# LINE 397 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 11096 "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 11103 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _toOisInModule ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valIvariableStyle- {-# LINE 11108 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _toOvariableStyle ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valIscopes- {-# LINE 11113 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _toOscopes ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 11118 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _toOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valImtokenPos- {-# LINE 11123 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _toOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 11128 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _toOloopLevel ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 11133 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _toOisMeta ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valIglobalDefinitions- {-# LINE 11138 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _toOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 11143 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _toOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 11148 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _toOconfig ->- (case (({-# LINE 404 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 11153 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _toOvarBeingDefined ->- (case (({-# LINE 403 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 11158 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _toOtopLevel ->- (case (({-# LINE 402 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 11163 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _toOinParentheses ->- (case (({-# LINE 401 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 11168 "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 11175 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _stepOisInModule ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _toIvariableStyle- {-# LINE 11180 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _stepOvariableStyle ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _toIscopes- {-# LINE 11185 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _stepOscopes ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 11190 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _stepOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _toImtokenPos- {-# LINE 11195 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _stepOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 11200 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _stepOloopLevel ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 11205 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _stepOisMeta ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _toIglobalDefinitions- {-# LINE 11210 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _stepOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 11215 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _stepOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 11220 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _stepOconfig ->- (case (({-# LINE 409 "src/GLuaFixer/AG/ASTLint.ag" #-}- Nothing- {-# LINE 11225 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _stepOvarBeingDefined ->- (case (({-# LINE 408 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 11230 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _stepOtopLevel ->- (case (({-# LINE 407 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 11235 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _stepOinParentheses ->- (case (({-# LINE 406 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 11240 "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 11247 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _stepIglobalDefinitions- {-# LINE 11252 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 11257 "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 11262 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _stepIvariableStyle- {-# LINE 11267 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 11272 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _stepImtokenPos- {-# LINE 11277 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOmtokenPos ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 11282 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOfuncName ->- (case (({-# LINE 405 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 11287 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisRepeat ->- (case (({-# LINE 396 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel + 1- {-# LINE 11292 "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 11299 "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 11304 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 395 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 11309 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisIfStatement ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIisInModule- {-# LINE 11314 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyImtokenPos- {-# LINE 11319 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIscopes- {-# LINE 11324 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIvariableStyle- {-# LINE 11329 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 414 "src/GLuaFixer/AG/ASTLint.ag" #-}- _varIwarnings ++ _valIwarnings ++ _toIwarnings ++ _stepIwarnings ++ _bodyIwarnings- {-# LINE 11334 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 411 "src/GLuaFixer/AG/ASTLint.ag" #-}- checkShadows _lhsIscopes _varIcopy- {-# LINE 11339 "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 11345 "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 11351 "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 11356 "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 11374 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 11379 "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 11396 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 11401 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valsOisInModule ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 11406 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valsOvariableStyle ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 11411 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valsOscopes ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 11416 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valsOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 11421 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valsOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 11426 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valsOloopLevel ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 11431 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valsOisMeta ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 11436 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valsOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 11441 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valsOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 11446 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valsOconfig ->- (case (({-# LINE 419 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 11451 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _valsOtopLevel ->- (case (({-# LINE 418 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 11456 "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 11463 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valsIglobalDefinitions- {-# LINE 11468 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 11473 "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 11478 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _introduces ->- (case (({-# LINE 424 "src/GLuaFixer/AG/ASTLint.ag" #-}- _introduces : _valsIscopes- {-# LINE 11483 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valsIvariableStyle- {-# LINE 11488 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 11493 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valsImtokenPos- {-# LINE 11498 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOmtokenPos ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 11503 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOfuncName ->- (case (({-# LINE 421 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 11508 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisRepeat ->- (case (({-# LINE 420 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel + 1- {-# LINE 11513 "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 11520 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _valsIidentifier _bodyIidentifier)- {-# LINE 11525 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 417 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 11530 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisIfStatement ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIisInModule- {-# LINE 11535 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyImtokenPos- {-# LINE 11540 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIscopes- {-# LINE 11545 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIvariableStyle- {-# LINE 11550 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 427 "src/GLuaFixer/AG/ASTLint.ag" #-}- _valsIwarnings ++ _bodyIwarnings- {-# LINE 11555 "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 11561 "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 11567 "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 11572 "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 11590 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 11595 "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 11612 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOisInModule ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 11617 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOvariableStyle ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 11622 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOscopes ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 11627 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 11632 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 11637 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOloopLevel ->- (case (({-# LINE 442 "src/GLuaFixer/AG/ASTLint.ag" #-}- _nameIisMeta || findSelf args_ || _lhsIisMeta- {-# LINE 11642 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _isMeta ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _isMeta- {-# LINE 11647 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOisMeta ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 11652 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 11657 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 11662 "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 11669 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _nameIglobalDefinitions- {-# LINE 11674 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 11679 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOconfig ->- (case (({-# LINE 443 "src/GLuaFixer/AG/ASTLint.ag" #-}- _isMeta- {-# LINE 11684 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisMeta ->- (case (({-# LINE 431 "src/GLuaFixer/AG/ASTLint.ag" #-}- filter (/= MToken emptyRg VarArg) $ args_- {-# LINE 11689 "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 11695 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _introduces ->- (case (({-# LINE 435 "src/GLuaFixer/AG/ASTLint.ag" #-}- _introduces : (registerVariable _nameIscopes _nameImtokenPos _nameIidentifier True)- {-# LINE 11700 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _nameIvariableStyle- {-# LINE 11705 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 11710 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _nameImtokenPos- {-# LINE 11715 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 11720 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOloopLevel ->- (case (({-# LINE 444 "src/GLuaFixer/AG/ASTLint.ag" #-}- _nameIidentifier- {-# LINE 11725 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOfuncName ->- (case (({-# LINE 432 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 11730 "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 11737 "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 11743 "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 11748 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _nameIidentifier _bodyIidentifier)- {-# LINE 11753 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 430 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 11758 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisIfStatement ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIisInModule- {-# LINE 11763 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyImtokenPos- {-# LINE 11768 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIscopes- {-# LINE 11773 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIvariableStyle- {-# LINE 11778 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 440 "src/GLuaFixer/AG/ASTLint.ag" #-}- _nameIwarnings ++ _bodyIwarnings- {-# LINE 11783 "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 11789 "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 11794 "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 11812 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 11817 "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 11834 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOisInModule ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 11839 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOvariableStyle ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 11844 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOscopes ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 11849 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 11854 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 11859 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOloopLevel ->- (case (({-# LINE 455 "src/GLuaFixer/AG/ASTLint.ag" #-}- findSelf args_ || _lhsIisMeta- {-# LINE 11864 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _isMeta ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _isMeta- {-# LINE 11869 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOisMeta ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 11874 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 11879 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _nameOfuncName ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 11884 "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 11891 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _nameIglobalDefinitions- {-# LINE 11896 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 11901 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOconfig ->- (case (({-# LINE 456 "src/GLuaFixer/AG/ASTLint.ag" #-}- _isMeta- {-# LINE 11906 "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 11911 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _passedScopes ->- (case (({-# LINE 447 "src/GLuaFixer/AG/ASTLint.ag" #-}- filter (/= MToken emptyRg VarArg) $ args_- {-# LINE 11916 "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 11922 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _introduces ->- (case (({-# LINE 454 "src/GLuaFixer/AG/ASTLint.ag" #-}- _introduces : _passedScopes- {-# LINE 11927 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _nameIvariableStyle- {-# LINE 11932 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 11937 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _nameImtokenPos- {-# LINE 11942 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 11947 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOloopLevel ->- (case (({-# LINE 457 "src/GLuaFixer/AG/ASTLint.ag" #-}- _nameIidentifier- {-# LINE 11952 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _bodyOfuncName ->- (case (({-# LINE 448 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 11957 "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 11964 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _nameIidentifier _bodyIidentifier)- {-# LINE 11969 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 446 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 11974 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisIfStatement ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIisInModule- {-# LINE 11979 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyImtokenPos- {-# LINE 11984 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIscopes- {-# LINE 11989 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _bodyIvariableStyle- {-# LINE 11994 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 463 "src/GLuaFixer/AG/ASTLint.ag" #-}- _nameIwarnings ++ _bodyIwarnings- {-# LINE 11999 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 452 "src/GLuaFixer/AG/ASTLint.ag" #-}- MToken _nameImtokenPos (Identifier _nameIidentifier)- {-# LINE 12004 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _funcname ->- (case (({-# LINE 462 "src/GLuaFixer/AG/ASTLint.ag" #-}- checkShadows _lhsIscopes _funcname- {-# LINE 12009 "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 12015 "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 12021 "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 12026 "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 12178 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12183 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12188 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12193 "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 12202 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12207 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12212 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12217 "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 12227 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12232 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12237 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12242 "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 12251 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12256 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12261 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12266 "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 12275 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12280 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12285 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12290 "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 12298 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12303 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12308 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12313 "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 12322 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12327 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12332 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12337 "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 12346 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12351 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12356 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12361 "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 12370 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12375 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12380 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12385 "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 12394 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12399 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12404 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12409 "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 12417 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12422 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12427 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12432 "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 12440 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12445 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12450 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12455 "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 12463 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12468 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12473 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12478 "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 12486 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12491 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12496 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12501 "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 12509 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12514 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12519 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12524 "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 12532 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12537 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12542 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12547 "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 12555 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12560 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12565 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12570 "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 12578 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12583 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12588 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12593 "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 12601 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12606 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12611 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12616 "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 12624 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12629 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12634 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12639 "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 12647 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12652 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12657 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12662 "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 12670 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12675 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12680 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12685 "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 12693 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12698 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12703 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12708 "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 12716 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12721 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12726 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12731 "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 12739 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12744 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12749 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12754 "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 12762 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12767 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12772 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12777 "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 12785 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12790 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12795 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12800 "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 12808 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12813 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12818 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12823 "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 12831 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12836 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12841 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12846 "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 12854 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12859 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12864 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12869 "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 12877 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12882 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12887 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12892 "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 12900 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12905 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12910 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12915 "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 12923 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12928 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12933 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12938 "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 12946 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12951 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12956 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12961 "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 12969 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12974 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 12979 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 12984 "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 12992 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 12997 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13002 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13007 "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 13015 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13020 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13025 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13030 "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 13038 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13043 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13048 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13053 "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 13061 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13066 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13071 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13076 "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 13084 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13089 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13094 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13099 "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 13107 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13112 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13117 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13122 "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 13130 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13135 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13140 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13145 "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 13153 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13158 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13163 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13168 "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 13176 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13181 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13186 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13191 "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 13199 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13204 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13209 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13214 "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 13222 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13227 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13232 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13237 "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 13245 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13250 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13255 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13260 "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 13268 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13273 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13278 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13283 "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 13291 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13296 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13301 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13306 "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 13314 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13319 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13324 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13329 "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 13337 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13342 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13347 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13352 "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 13360 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13365 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13370 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13375 "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 13383 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13388 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13393 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13398 "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 13406 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13411 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13416 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13421 "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 13429 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13434 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13439 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13444 "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 13452 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13457 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13462 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13467 "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 13475 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13480 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13485 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13490 "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 13498 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13503 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13508 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13513 "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 13521 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13526 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13531 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13536 "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 13544 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13549 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13554 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13559 "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 13567 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13572 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13577 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13582 "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 13593 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13598 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 221 "src/GLuaFixer/AG/ASTLint.ag" #-}- lbl_- {-# LINE 13603 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13608 "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 13617 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13622 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 223 "src/GLuaFixer/AG/ASTLint.ag" #-}- ident_- {-# LINE 13627 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13632 "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 13672 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13677 "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 13694 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13699 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 13704 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 652 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 13709 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisNegation ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 13714 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 13719 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 13724 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13729 "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 13740 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13745 "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 13762 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13767 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 13772 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 654 "src/GLuaFixer/AG/ASTLint.ag" #-}- True- {-# LINE 13777 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisNegation ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 13782 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 13787 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 13792 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13797 "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 13808 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13813 "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 13830 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 13835 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 13840 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 656 "src/GLuaFixer/AG/ASTLint.ag" #-}- False- {-# LINE 13845 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisNegation ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 13850 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 13855 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 13860 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 13865 "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 13911 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 13916 "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 13934 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOscopes ->- (case (({-# LINE 190 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIlocalDefinition- {-# LINE 13939 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOlocalDefinition ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 13944 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOisMeta ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 13949 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 13954 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 13959 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 13964 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 13969 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOloopLevel ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 13974 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIglobalDefinitions- {-# LINE 13979 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _hdOglobalDefinitions ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 13984 "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 13991 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOscopes ->- (case (({-# LINE 190 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIlocalDefinition- {-# LINE 13996 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOlocalDefinition ->- (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisMeta- {-# LINE 14001 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOisMeta ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIisInModule- {-# LINE 14006 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOisInModule ->- (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIglobalDefinitions- {-# LINE 14011 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOglobalDefinitions ->- (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIconfig- {-# LINE 14016 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOconfig ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIvariableStyle- {-# LINE 14021 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOvariableStyle ->- (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopeLevel- {-# LINE 14026 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOscopeLevel ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdImtokenPos- {-# LINE 14031 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOmtokenPos ->- (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIloopLevel- {-# LINE 14036 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _tlOloopLevel ->- (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIfuncName- {-# LINE 14041 "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 14048 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- (const _hdIidentifier _tlIidentifier)- {-# LINE 14053 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIisInModule- {-# LINE 14058 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdImtokenPos- {-# LINE 14063 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIscopes- {-# LINE 14068 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _tlIvariableStyle- {-# LINE 14073 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- _hdIwarnings ++ _tlIwarnings- {-# LINE 14078 "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 14089 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-}- _copy- {-# LINE 14094 "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 14112 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOglobalDefinitions ->- (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-}- unknownIdentifier- {-# LINE 14117 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOidentifier ->- (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIisInModule- {-# LINE 14122 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOisInModule ->- (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsImtokenPos- {-# LINE 14127 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOmtokenPos ->- (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIscopes- {-# LINE 14132 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOscopes ->- (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-}- _lhsIvariableStyle- {-# LINE 14137 "src/GLuaFixer/AG/ASTLint.hs" #-}- )) of- { _lhsOvariableStyle ->- (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-}- []- {-# LINE 14142 "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) }) }) }) }) }) }) }))
src/GLuaFixer/AG/LexLint.hs view
@@ -1,6117 +1,6115 @@ -{-# LANGUAGE DeriveGeneric #-}-{-# OPTIONS_GHC -fno-warn-unused-imports #-}--{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# LANGUAGE CPP #-}--- UUAGC 0.9.53.1 (src/GLuaFixer/AG/LexLint.ag)-module GLuaFixer.AG.LexLint(- lintWarnings,- fixedLexPositions-) where--{-# LINE 9 "src/GLuaFixer/AG/../../GLua/AG/Token.ag" #-}--import GHC.Generics-import GLua.Position-{-# LINE 19 "src/GLuaFixer/AG/LexLint.hs" #-}--{-# LINE 15 "src/GLuaFixer/AG/LexLint.ag" #-}--import Control.Applicative ((<|>))-import Data.List-import GLua.TokenTypes-import GLua.AG.Token-import GLua.Position-import GLuaFixer.LintMessage-import GLuaFixer.LintSettings-{-# LINE 30 "src/GLuaFixer/AG/LexLint.hs" #-}-{-# LINE 27 "src/GLuaFixer/AG/LexLint.ag" #-}---------------------------------------------- C-style / Lua-style syntax inconsistencies-------------------------------------------- For detecting the usage of Lua/C syntax inconsistently. 'Nothing' means no evidence of the style,--- and 'Just Region' represents the last place where the style was found to be used.-data SyntaxUsed = SyntaxUsed- { lastLuaExample :: Maybe Region- , lastCExample :: Maybe Region- }- deriving (Show)--instance Semigroup SyntaxUsed where- -- Later uses have preference over earlier uses- (SyntaxUsed l1 c1) <> (SyntaxUsed l2 c2) = SyntaxUsed (l2 <|> l1) (c2 <|> c1)---- Monoid instance-instance Monoid SyntaxUsed where- mempty = SyntaxUsed Nothing Nothing--previousSyntaxUsedRegion :: SyntaxUsed -> Maybe Region-previousSyntaxUsedRegion syntaxUsed = case syntaxUsed of- SyntaxUsed (Just l) (Just c) -> Just $ min l c- -- There is no previous region if there is no syntax inconsistency- SyntaxUsed {} -> Nothing---- | Whether there is evidence of Lua style code-luaUsed :: SyntaxUsed -> Bool-luaUsed (SyntaxUsed (Just _) _) = True-luaUsed _ = False---- | Whether there is evidence of C style code-cUsed :: SyntaxUsed -> Bool-cUsed (SyntaxUsed _ (Just _)) = True-cUsed _ = False---- | Quick helper to turn a bool and region into a member for 'SyntaxUsed'-mkSyntax :: Bool -> Region -> Maybe Region-mkSyntax b region = if b then Just region else Nothing---- | Whether the syntax is consistent-consistent :: SyntaxUsed -> Bool-consistent syntaxUsed = case syntaxUsed of- SyntaxUsed (Just _) (Just _) -> False- _ -> True--mTokenWarning :: Region -> Issue -> FilePath -> LintMessage-mTokenWarning pos issue = LintMessage LintWarning pos issue---- | Shorthand for throwing _two_ warnings when an inconsistency occurs: one at the original place--- and one at the new place.-warnInconsistency :: SyntaxUsed -> Issue -> [FilePath -> LintMessage] -> [FilePath -> LintMessage]-warnInconsistency syntaxUsed issue messages = case syntaxUsed of- SyntaxUsed (Just luaRegion) (Just cRegion) ->- LintMessage LintWarning luaRegion issue :- LintMessage LintWarning cRegion issue :- messages- _ -> messages---- | Handy function to reset the built up knowledge of 'SyntaxUsed' when it is found to be--- inconsistent.-resetIfInconsistent :: SyntaxUsed -> SyntaxUsed-resetIfInconsistent syntaxUsed = case syntaxUsed of- SyntaxUsed (Just {}) (Just {}) -> SyntaxUsed Nothing Nothing- _ -> syntaxUsed--isSingleChar :: String -> Bool-isSingleChar [] = True-isSingleChar ('\\' : xs) = length xs == 1-isSingleChar (_ : []) = True-isSingleChar _ = False---- Locate the exact position of trailing whitespace-locateTrailingWhitespace :: LineColPos -> String -> (LineColPos, String)-locateTrailingWhitespace pos (' ' : xs) = (pos, xs)-locateTrailingWhitespace pos ('\t' : xs) = (pos, xs)-locateTrailingWhitespace pos (x : xs) = locateTrailingWhitespace (customAdvanceChr pos x) xs-locateTrailingWhitespace pos [] = (pos, "")---- Locate the start of a line's indentation in a string of whitespace-indentationStart :: LineColPos -> String -> LineColPos-indentationStart pos = go pos pos- where- go :: LineColPos -> LineColPos -> String -> LineColPos- go _ cur ('\n' : xs) = let next = customAdvanceChr cur '\n' in go next next xs- go found cur (x : xs) = go found (customAdvanceChr cur x) xs- go found _ [] = found--endOfTrailingWhitespace :: (LineColPos, String) -> LineColPos-endOfTrailingWhitespace (pos, ('\n' : _)) = pos-endOfTrailingWhitespace (pos, (x : xs)) = endOfTrailingWhitespace (customAdvanceChr pos x, xs)-endOfTrailingWhitespace (pos, []) = pos---{-# LINE 127 "src/GLuaFixer/AG/LexLint.hs" #-}--{-# LINE 296 "src/GLuaFixer/AG/LexLint.ag" #-}----inh_MTokenList :: LintSettings -> Inh_MTokenList-inh_MTokenList conf =- Inh_MTokenList {- config_Inh_MTokenList = conf,- andSyntax_Inh_MTokenList = mempty,- indentation_Inh_MTokenList = mempty,- lineCommentSyntax_Inh_MTokenList = mempty,- multilineCommentSyntax_Inh_MTokenList = mempty,- neqSyntax_Inh_MTokenList = mempty,- notSyntax_Inh_MTokenList = mempty,- orSyntax_Inh_MTokenList = mempty,- strSyntax_Inh_MTokenList = mempty,- nextTokenPos_Inh_MTokenList = LineColPos 0 0 0- }--lintWarnings :: LintSettings -> [MToken] -> [String -> LintMessage]-lintWarnings conf p = warnings_Syn_MTokenList (wrap_MTokenList (sem_MTokenList p) (inh_MTokenList conf))---- Necessary because the parser walks over tabs as though they are 8 spaces.-fixedLexPositions :: [MToken] -> [MToken]-fixedLexPositions p = copy_Syn_MTokenList (wrap_MTokenList (sem_MTokenList p) (inh_MTokenList defaultLintSettings))-{-# LINE 154 "src/GLuaFixer/AG/LexLint.hs" #-}--- MToken --------------------------------------------------------- cata-sem_MToken :: MToken ->- T_MToken-sem_MToken (MToken _mpos _mtok) =- (sem_MToken_MToken _mpos (sem_Token _mtok))--- semantic domain-type T_MToken = SyntaxUsed ->- LintSettings ->- SyntaxUsed ->- SyntaxUsed ->- SyntaxUsed ->- SyntaxUsed ->- LineColPos ->- SyntaxUsed ->- SyntaxUsed ->- SyntaxUsed ->- ( SyntaxUsed,MToken,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,LineColPos,SyntaxUsed,SyntaxUsed,SyntaxUsed,([FilePath -> LintMessage]))-data Inh_MToken = Inh_MToken {andSyntax_Inh_MToken :: SyntaxUsed,config_Inh_MToken :: LintSettings,indentation_Inh_MToken :: SyntaxUsed,lineCommentSyntax_Inh_MToken :: SyntaxUsed,multilineCommentSyntax_Inh_MToken :: SyntaxUsed,neqSyntax_Inh_MToken :: SyntaxUsed,nextTokenPos_Inh_MToken :: LineColPos,notSyntax_Inh_MToken :: SyntaxUsed,orSyntax_Inh_MToken :: SyntaxUsed,strSyntax_Inh_MToken :: SyntaxUsed}-data Syn_MToken = Syn_MToken {andSyntax_Syn_MToken :: SyntaxUsed,copy_Syn_MToken :: MToken,indentation_Syn_MToken :: SyntaxUsed,lineCommentSyntax_Syn_MToken :: SyntaxUsed,multilineCommentSyntax_Syn_MToken :: SyntaxUsed,neqSyntax_Syn_MToken :: SyntaxUsed,nextTokenPos_Syn_MToken :: LineColPos,notSyntax_Syn_MToken :: SyntaxUsed,orSyntax_Syn_MToken :: SyntaxUsed,strSyntax_Syn_MToken :: SyntaxUsed,warnings_Syn_MToken :: ([FilePath -> LintMessage])}-wrap_MToken :: T_MToken ->- Inh_MToken ->- Syn_MToken-wrap_MToken sem (Inh_MToken _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax) =- (let ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) = sem _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax- in (Syn_MToken _lhsOandSyntax _lhsOcopy _lhsOindentation _lhsOlineCommentSyntax _lhsOmultilineCommentSyntax _lhsOneqSyntax _lhsOnextTokenPos _lhsOnotSyntax _lhsOorSyntax _lhsOstrSyntax _lhsOwarnings))-sem_MToken_MToken :: Region ->- T_Token ->- T_MToken-sem_MToken_MToken mpos_ mtok_ =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInextTokenPos- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInextTokenPos- {-# LINE 197 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _mtokOnextTokenPos ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 202 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _mtokOandSyntax ->- (case (mtok_ _mtokOnextTokenPos) of- { ( _mtokInextTokenPos,mtok_1) ->- (case (({-# LINE 156 "src/GLuaFixer/AG/LexLint.ag" #-}- Region _lhsInextTokenPos _mtokInextTokenPos- {-# LINE 209 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _mpos ->- (case (({-# LINE 157 "src/GLuaFixer/AG/LexLint.ag" #-}- _mpos- {-# LINE 214 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _mtokOmpos ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 219 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _mtokOstrSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 224 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _mtokOorSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 229 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _mtokOnotSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 234 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _mtokOneqSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 239 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _mtokOmultilineCommentSyntax ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 244 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _mtokOlineCommentSyntax ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 249 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _mtokOindentation ->- (case (({-# LINE 128 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIconfig- {-# LINE 254 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _mtokOconfig ->- (case (mtok_1 _mtokOandSyntax _mtokOconfig _mtokOindentation _mtokOlineCommentSyntax _mtokOmpos _mtokOmultilineCommentSyntax _mtokOneqSyntax _mtokOnotSyntax _mtokOorSyntax _mtokOstrSyntax) of- { ( _mtokIandSyntax,_mtokIcopy,_mtokIindentation,_mtokIlineCommentSyntax,_mtokImultilineCommentSyntax,_mtokIneqSyntax,_mtokInotSyntax,_mtokIorSyntax,_mtokIstrSyntax,_mtokIwarnings) ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _mtokIandSyntax- {-# LINE 261 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 160 "src/GLuaFixer/AG/LexLint.ag" #-}- MToken (const _mpos mpos_) _mtokIcopy- {-# LINE 266 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 271 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _mtokIindentation- {-# LINE 276 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _mtokIlineCommentSyntax- {-# LINE 281 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _mtokImultilineCommentSyntax- {-# LINE 286 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _mtokIneqSyntax- {-# LINE 291 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}- _mtokInextTokenPos- {-# LINE 296 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _mtokInotSyntax- {-# LINE 301 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _mtokIorSyntax- {-# LINE 306 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _mtokIstrSyntax- {-# LINE 311 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- _mtokIwarnings- {-# LINE 316 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))--- MTokenList ----------------------------------------------------- cata-sem_MTokenList :: MTokenList ->- T_MTokenList-sem_MTokenList list =- (Prelude.foldr sem_MTokenList_Cons sem_MTokenList_Nil (Prelude.map sem_MToken list))--- semantic domain-type T_MTokenList = SyntaxUsed ->- LintSettings ->- SyntaxUsed ->- SyntaxUsed ->- SyntaxUsed ->- SyntaxUsed ->- LineColPos ->- SyntaxUsed ->- SyntaxUsed ->- SyntaxUsed ->- ( SyntaxUsed,MTokenList,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,LineColPos,SyntaxUsed,SyntaxUsed,SyntaxUsed,([FilePath -> LintMessage]))-data Inh_MTokenList = Inh_MTokenList {andSyntax_Inh_MTokenList :: SyntaxUsed,config_Inh_MTokenList :: LintSettings,indentation_Inh_MTokenList :: SyntaxUsed,lineCommentSyntax_Inh_MTokenList :: SyntaxUsed,multilineCommentSyntax_Inh_MTokenList :: SyntaxUsed,neqSyntax_Inh_MTokenList :: SyntaxUsed,nextTokenPos_Inh_MTokenList :: LineColPos,notSyntax_Inh_MTokenList :: SyntaxUsed,orSyntax_Inh_MTokenList :: SyntaxUsed,strSyntax_Inh_MTokenList :: SyntaxUsed}-data Syn_MTokenList = Syn_MTokenList {andSyntax_Syn_MTokenList :: SyntaxUsed,copy_Syn_MTokenList :: MTokenList,indentation_Syn_MTokenList :: SyntaxUsed,lineCommentSyntax_Syn_MTokenList :: SyntaxUsed,multilineCommentSyntax_Syn_MTokenList :: SyntaxUsed,neqSyntax_Syn_MTokenList :: SyntaxUsed,nextTokenPos_Syn_MTokenList :: LineColPos,notSyntax_Syn_MTokenList :: SyntaxUsed,orSyntax_Syn_MTokenList :: SyntaxUsed,strSyntax_Syn_MTokenList :: SyntaxUsed,warnings_Syn_MTokenList :: ([FilePath -> LintMessage])}-wrap_MTokenList :: T_MTokenList ->- Inh_MTokenList ->- Syn_MTokenList-wrap_MTokenList sem (Inh_MTokenList _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax) =- (let ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) = sem _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax- in (Syn_MTokenList _lhsOandSyntax _lhsOcopy _lhsOindentation _lhsOlineCommentSyntax _lhsOmultilineCommentSyntax _lhsOneqSyntax _lhsOnextTokenPos _lhsOnotSyntax _lhsOorSyntax _lhsOstrSyntax _lhsOwarnings))-sem_MTokenList_Cons :: T_MToken ->- T_MTokenList ->- T_MTokenList-sem_MTokenList_Cons hd_ tl_ =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInextTokenPos- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInextTokenPos- {-# LINE 362 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _hdOnextTokenPos ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 367 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _hdOstrSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 372 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _hdOorSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 377 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _hdOnotSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 382 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _hdOneqSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 387 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _hdOmultilineCommentSyntax ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 392 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _hdOlineCommentSyntax ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 397 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _hdOindentation ->- (case (({-# LINE 128 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIconfig- {-# LINE 402 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _hdOconfig ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 407 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _hdOandSyntax ->- (case (hd_ _hdOandSyntax _hdOconfig _hdOindentation _hdOlineCommentSyntax _hdOmultilineCommentSyntax _hdOneqSyntax _hdOnextTokenPos _hdOnotSyntax _hdOorSyntax _hdOstrSyntax) of- { ( _hdIandSyntax,_hdIcopy,_hdIindentation,_hdIlineCommentSyntax,_hdImultilineCommentSyntax,_hdIneqSyntax,_hdInextTokenPos,_hdInotSyntax,_hdIorSyntax,_hdIstrSyntax,_hdIwarnings) ->- (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}- _hdInextTokenPos- {-# LINE 414 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _tlOnextTokenPos ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _hdIandSyntax- {-# LINE 419 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _tlOandSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _hdIstrSyntax- {-# LINE 424 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _tlOstrSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _hdIorSyntax- {-# LINE 429 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _tlOorSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _hdInotSyntax- {-# LINE 434 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _tlOnotSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _hdIneqSyntax- {-# LINE 439 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _tlOneqSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _hdImultilineCommentSyntax- {-# LINE 444 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _tlOmultilineCommentSyntax ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _hdIlineCommentSyntax- {-# LINE 449 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _tlOlineCommentSyntax ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _hdIindentation- {-# LINE 454 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _tlOindentation ->- (case (({-# LINE 128 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIconfig- {-# LINE 459 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _tlOconfig ->- (case (tl_ _tlOandSyntax _tlOconfig _tlOindentation _tlOlineCommentSyntax _tlOmultilineCommentSyntax _tlOneqSyntax _tlOnextTokenPos _tlOnotSyntax _tlOorSyntax _tlOstrSyntax) of- { ( _tlIandSyntax,_tlIcopy,_tlIindentation,_tlIlineCommentSyntax,_tlImultilineCommentSyntax,_tlIneqSyntax,_tlInextTokenPos,_tlInotSyntax,_tlIorSyntax,_tlIstrSyntax,_tlIwarnings) ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _tlIandSyntax- {-# LINE 466 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- (:) _hdIcopy _tlIcopy- {-# LINE 471 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 476 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _tlIindentation- {-# LINE 481 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _tlIlineCommentSyntax- {-# LINE 486 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _tlImultilineCommentSyntax- {-# LINE 491 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _tlIneqSyntax- {-# LINE 496 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}- _tlInextTokenPos- {-# LINE 501 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _tlInotSyntax- {-# LINE 506 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _tlIorSyntax- {-# LINE 511 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _tlIstrSyntax- {-# LINE 516 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- _hdIwarnings ++ _tlIwarnings- {-# LINE 521 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))-sem_MTokenList_Nil :: T_MTokenList-sem_MTokenList_Nil =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInextTokenPos- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 539 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 544 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 549 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 554 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 559 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 564 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 569 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInextTokenPos- {-# LINE 574 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 579 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 584 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 589 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 594 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }))--- Token ---------------------------------------------------------- cata-sem_Token :: Token ->- T_Token-sem_Token (Whitespace _space) =- (sem_Token_Whitespace _space)-sem_Token (DashComment _comment) =- (sem_Token_DashComment _comment)-sem_Token (DashBlockComment _depth _comment) =- (sem_Token_DashBlockComment _depth _comment)-sem_Token (SlashComment _comment) =- (sem_Token_SlashComment _comment)-sem_Token (SlashBlockComment _comment) =- (sem_Token_SlashBlockComment _comment)-sem_Token (Semicolon) =- (sem_Token_Semicolon)-sem_Token (TNumber _num) =- (sem_Token_TNumber _num)-sem_Token (DQString _str) =- (sem_Token_DQString _str)-sem_Token (SQString _str) =- (sem_Token_SQString _str)-sem_Token (MLString _str) =- (sem_Token_MLString _str)-sem_Token (TTrue) =- (sem_Token_TTrue)-sem_Token (TFalse) =- (sem_Token_TFalse)-sem_Token (Nil) =- (sem_Token_Nil)-sem_Token (VarArg) =- (sem_Token_VarArg)-sem_Token (Plus) =- (sem_Token_Plus)-sem_Token (Minus) =- (sem_Token_Minus)-sem_Token (Multiply) =- (sem_Token_Multiply)-sem_Token (Divide) =- (sem_Token_Divide)-sem_Token (Modulus) =- (sem_Token_Modulus)-sem_Token (Power) =- (sem_Token_Power)-sem_Token (TEq) =- (sem_Token_TEq)-sem_Token (TNEq) =- (sem_Token_TNEq)-sem_Token (TCNEq) =- (sem_Token_TCNEq)-sem_Token (TLEQ) =- (sem_Token_TLEQ)-sem_Token (TGEQ) =- (sem_Token_TGEQ)-sem_Token (TLT) =- (sem_Token_TLT)-sem_Token (TGT) =- (sem_Token_TGT)-sem_Token (Equals) =- (sem_Token_Equals)-sem_Token (Concatenate) =- (sem_Token_Concatenate)-sem_Token (Colon) =- (sem_Token_Colon)-sem_Token (Dot) =- (sem_Token_Dot)-sem_Token (Comma) =- (sem_Token_Comma)-sem_Token (Hash) =- (sem_Token_Hash)-sem_Token (Not) =- (sem_Token_Not)-sem_Token (CNot) =- (sem_Token_CNot)-sem_Token (And) =- (sem_Token_And)-sem_Token (CAnd) =- (sem_Token_CAnd)-sem_Token (Or) =- (sem_Token_Or)-sem_Token (COr) =- (sem_Token_COr)-sem_Token (Function) =- (sem_Token_Function)-sem_Token (Local) =- (sem_Token_Local)-sem_Token (If) =- (sem_Token_If)-sem_Token (Then) =- (sem_Token_Then)-sem_Token (Elseif) =- (sem_Token_Elseif)-sem_Token (Else) =- (sem_Token_Else)-sem_Token (For) =- (sem_Token_For)-sem_Token (In) =- (sem_Token_In)-sem_Token (Do) =- (sem_Token_Do)-sem_Token (While) =- (sem_Token_While)-sem_Token (Until) =- (sem_Token_Until)-sem_Token (Repeat) =- (sem_Token_Repeat)-sem_Token (Continue) =- (sem_Token_Continue)-sem_Token (Break) =- (sem_Token_Break)-sem_Token (Return) =- (sem_Token_Return)-sem_Token (End) =- (sem_Token_End)-sem_Token (LRound) =- (sem_Token_LRound)-sem_Token (RRound) =- (sem_Token_RRound)-sem_Token (LCurly) =- (sem_Token_LCurly)-sem_Token (RCurly) =- (sem_Token_RCurly)-sem_Token (LSquare) =- (sem_Token_LSquare)-sem_Token (RSquare) =- (sem_Token_RSquare)-sem_Token (Label _whitespaceBefore _lbl _whitespaceAfter) =- (sem_Token_Label _whitespaceBefore _lbl _whitespaceAfter)-sem_Token (Identifier _ident) =- (sem_Token_Identifier _ident)--- semantic domain-type T_Token = LineColPos ->- ( LineColPos,T_Token_1)-type T_Token_1 = SyntaxUsed ->- LintSettings ->- SyntaxUsed ->- SyntaxUsed ->- Region ->- SyntaxUsed ->- SyntaxUsed ->- SyntaxUsed ->- SyntaxUsed ->- SyntaxUsed ->- ( SyntaxUsed,Token,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,([FilePath -> LintMessage]))-data Inh_Token = Inh_Token {andSyntax_Inh_Token :: SyntaxUsed,config_Inh_Token :: LintSettings,indentation_Inh_Token :: SyntaxUsed,lineCommentSyntax_Inh_Token :: SyntaxUsed,mpos_Inh_Token :: Region,multilineCommentSyntax_Inh_Token :: SyntaxUsed,neqSyntax_Inh_Token :: SyntaxUsed,nextTokenPos_Inh_Token :: LineColPos,notSyntax_Inh_Token :: SyntaxUsed,orSyntax_Inh_Token :: SyntaxUsed,strSyntax_Inh_Token :: SyntaxUsed}-data Syn_Token = Syn_Token {andSyntax_Syn_Token :: SyntaxUsed,copy_Syn_Token :: Token,indentation_Syn_Token :: SyntaxUsed,lineCommentSyntax_Syn_Token :: SyntaxUsed,multilineCommentSyntax_Syn_Token :: SyntaxUsed,neqSyntax_Syn_Token :: SyntaxUsed,nextTokenPos_Syn_Token :: LineColPos,notSyntax_Syn_Token :: SyntaxUsed,orSyntax_Syn_Token :: SyntaxUsed,strSyntax_Syn_Token :: SyntaxUsed,warnings_Syn_Token :: ([FilePath -> LintMessage])}-wrap_Token :: T_Token ->- Inh_Token ->- Syn_Token-wrap_Token sem (Inh_Token _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImpos _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax) =- (let ( _lhsOnextTokenPos,sem_1) = sem _lhsInextTokenPos- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) = sem_1 _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImpos _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax- in (Syn_Token _lhsOandSyntax _lhsOcopy _lhsOindentation _lhsOlineCommentSyntax _lhsOmultilineCommentSyntax _lhsOneqSyntax _lhsOnextTokenPos _lhsOnotSyntax _lhsOorSyntax _lhsOstrSyntax _lhsOwarnings))-sem_Token_Whitespace :: String ->- T_Token-sem_Token_Whitespace space_ =- (\ _lhsInextTokenPos ->- (case (({-# LINE 164 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInextTokenPos- {-# LINE 757 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _curTokenPos ->- (case (({-# LINE 165 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceStr _curTokenPos space_- {-# LINE 762 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _nextTokenPos ->- (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}- _nextTokenPos- {-# LINE 767 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Whitespace_1 :: T_Token_1- sem_Token_Whitespace_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 784 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Whitespace space_- {-# LINE 789 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 794 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 177 "src/GLuaFixer/AG/LexLint.ag" #-}- Region (indentationStart _curTokenPos space_) _nextTokenPos- {-# LINE 799 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _indentationRg ->- (case (({-# LINE 168 "src/GLuaFixer/AG/LexLint.ag" #-}- mkSyntax (isInfixOf "\n\t" space_) _indentationRg- {-# LINE 804 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _usesTabs ->- (case (({-# LINE 167 "src/GLuaFixer/AG/LexLint.ag" #-}- mkSyntax (isInfixOf "\n " space_) _indentationRg- {-# LINE 809 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _usesSpaces ->- (case (({-# LINE 169 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation <> SyntaxUsed _usesSpaces _usesTabs- {-# LINE 814 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _combinedSyntaxUsed ->- (case (({-# LINE 170 "src/GLuaFixer/AG/LexLint.ag" #-}- resetIfInconsistent _combinedSyntaxUsed- {-# LINE 819 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _indentation ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _indentation- {-# LINE 824 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 829 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 834 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 839 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 844 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 849 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 854 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 859 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 173 "src/GLuaFixer/AG/LexLint.ag" #-}- locateTrailingWhitespace _curTokenPos space_- {-# LINE 864 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _whitespaceStart ->- (case (({-# LINE 174 "src/GLuaFixer/AG/LexLint.ag" #-}- endOfTrailingWhitespace _whitespaceStart- {-# LINE 869 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _whitespaceEnd ->- (case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-}- if not (lint_trailingWhitespace _lhsIconfig) || (not (isInfixOf " \n" space_) && not (isInfixOf "\t\n" space_)) then id else (:) $ mTokenWarning (Region (fst _whitespaceStart ) _whitespaceEnd ) TrailingWhitespace- {-# LINE 874 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_f2 ->- (case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-}- if not (lint_whitespaceStyle _lhsIconfig) then id else- warnInconsistency _combinedSyntaxUsed InconsistentTabsSpaces- {-# LINE 880 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_f1 ->- (case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-}- foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2]- {-# LINE 885 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Whitespace_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }) }))-sem_Token_DashComment :: String ->- T_Token-sem_Token_DashComment comment_ =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- DashComment comment_- {-# LINE 898 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 185 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 903 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _nextTokenPos ->- (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}- _nextTokenPos- {-# LINE 908 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_DashComment_1 :: T_Token_1- sem_Token_DashComment_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 925 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 930 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 935 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 187 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax <> SyntaxUsed (Just _lhsImpos) Nothing- {-# LINE 940 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _combinedSyntaxUsed ->- (case (({-# LINE 188 "src/GLuaFixer/AG/LexLint.ag" #-}- resetIfInconsistent _combinedSyntaxUsed- {-# LINE 945 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lineCommentSyntax ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lineCommentSyntax- {-# LINE 950 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 955 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 960 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 965 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 970 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 975 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 189 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 980 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 189 "src/GLuaFixer/AG/LexLint.ag" #-}- if not (lint_syntaxInconsistencies _lhsIconfig) then id else- warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "--" "//"- {-# LINE 986 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_f1 ->- (case (({-# LINE 189 "src/GLuaFixer/AG/LexLint.ag" #-}- foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]- {-# LINE 991 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))- in sem_Token_DashComment_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }) }))-sem_Token_DashBlockComment :: Int ->- String ->- T_Token-sem_Token_DashBlockComment depth_ comment_ =- (\ _lhsInextTokenPos ->- (case (({-# LINE 202 "src/GLuaFixer/AG/LexLint.ag" #-}- showString "--[" . showString (replicate depth_ '-') . showChar '[' . showString comment_ . showChar ']' . showString (replicate depth_ '-') . showChar ']' $ ""- {-# LINE 1005 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _str ->- (case (({-# LINE 203 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceStr _lhsInextTokenPos _str- {-# LINE 1010 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_DashBlockComment_1 :: T_Token_1- sem_Token_DashBlockComment_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 1027 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- DashBlockComment depth_ comment_- {-# LINE 1032 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 1037 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 1042 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 1047 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 205 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax <> SyntaxUsed (Just _lhsImpos) Nothing- {-# LINE 1052 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _combinedSyntaxUsed ->- (case (({-# LINE 206 "src/GLuaFixer/AG/LexLint.ag" #-}- resetIfInconsistent _combinedSyntaxUsed- {-# LINE 1057 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _multilineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _multilineCommentSyntax- {-# LINE 1062 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 1067 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 1072 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 1077 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 1082 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 207 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 1087 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 207 "src/GLuaFixer/AG/LexLint.ag" #-}- if not (lint_syntaxInconsistencies _lhsIconfig) then id else- warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "--[[ ]]" "/* */"- {-# LINE 1093 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_f1 ->- (case (({-# LINE 207 "src/GLuaFixer/AG/LexLint.ag" #-}- foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]- {-# LINE 1098 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))- in sem_Token_DashBlockComment_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_SlashComment :: String ->- T_Token-sem_Token_SlashComment comment_ =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- SlashComment comment_- {-# LINE 1111 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 193 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 1116 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _nextTokenPos ->- (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}- _nextTokenPos- {-# LINE 1121 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_SlashComment_1 :: T_Token_1- sem_Token_SlashComment_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 1138 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 1143 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 1148 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 195 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax <> SyntaxUsed Nothing (Just _lhsImpos)- {-# LINE 1153 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _combinedSyntaxUsed ->- (case (({-# LINE 196 "src/GLuaFixer/AG/LexLint.ag" #-}- resetIfInconsistent _combinedSyntaxUsed- {-# LINE 1158 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lineCommentSyntax ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lineCommentSyntax- {-# LINE 1163 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 1168 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 1173 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 1178 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 1183 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 1188 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 197 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 1193 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 197 "src/GLuaFixer/AG/LexLint.ag" #-}- if not (lint_syntaxInconsistencies _lhsIconfig) then id else- warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "//" "--"- {-# LINE 1199 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_f1 ->- (case (({-# LINE 197 "src/GLuaFixer/AG/LexLint.ag" #-}- foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]- {-# LINE 1204 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))- in sem_Token_SlashComment_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }) }))-sem_Token_SlashBlockComment :: String ->- T_Token-sem_Token_SlashBlockComment comment_ =- (\ _lhsInextTokenPos ->- (case (({-# LINE 211 "src/GLuaFixer/AG/LexLint.ag" #-}- showString "/*" . showString comment_ . showString "*/" $ ""- {-# LINE 1217 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _str ->- (case (({-# LINE 212 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceStr _lhsInextTokenPos _str- {-# LINE 1222 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_SlashBlockComment_1 :: T_Token_1- sem_Token_SlashBlockComment_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 1239 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- SlashBlockComment comment_- {-# LINE 1244 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 1249 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 1254 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 1259 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 214 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax <> SyntaxUsed Nothing (Just _lhsImpos)- {-# LINE 1264 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _combinedSyntaxUsed ->- (case (({-# LINE 215 "src/GLuaFixer/AG/LexLint.ag" #-}- resetIfInconsistent _combinedSyntaxUsed- {-# LINE 1269 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _multilineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _multilineCommentSyntax- {-# LINE 1274 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 1279 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 1284 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 1289 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 1294 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 216 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 1299 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 216 "src/GLuaFixer/AG/LexLint.ag" #-}- if not (lint_syntaxInconsistencies _lhsIconfig) then id else- warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "/* */" "--[[ ]]"- {-# LINE 1305 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_f1 ->- (case (({-# LINE 216 "src/GLuaFixer/AG/LexLint.ag" #-}- foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]- {-# LINE 1310 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))- in sem_Token_SlashBlockComment_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Semicolon :: T_Token-sem_Token_Semicolon =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Semicolon- {-# LINE 1322 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 1327 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Semicolon_1 :: T_Token_1- sem_Token_Semicolon_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 1344 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 1349 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 1354 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 1359 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 1364 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 1369 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 1374 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 1379 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 1384 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 1389 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Semicolon_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_TNumber :: String ->- T_Token-sem_Token_TNumber num_ =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- TNumber num_- {-# LINE 1402 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 1407 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_TNumber_1 :: T_Token_1- sem_Token_TNumber_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 1424 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 1429 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 1434 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 1439 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 1444 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 1449 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 1454 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 1459 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 1464 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 1469 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_TNumber_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_DQString :: String ->- T_Token-sem_Token_DQString str_ =- (\ _lhsInextTokenPos ->- (case (({-# LINE 224 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceStr _lhsInextTokenPos $ "\"" <> str_ <> "\""- {-# LINE 1482 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_DQString_1 :: T_Token_1- sem_Token_DQString_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 1499 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- DQString str_- {-# LINE 1504 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 1509 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 1514 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 1519 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 1524 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 1529 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 1534 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 1539 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 226 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax <> SyntaxUsed (Just _lhsImpos) Nothing- {-# LINE 1544 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _combinedSyntaxUsed ->- (case (({-# LINE 227 "src/GLuaFixer/AG/LexLint.ag" #-}- resetIfInconsistent _combinedSyntaxUsed- {-# LINE 1549 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _strSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _strSyntax- {-# LINE 1554 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 228 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 1559 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 228 "src/GLuaFixer/AG/LexLint.ag" #-}- if not (lint_syntaxInconsistencies _lhsIconfig) then id else- warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "double quoted strings" "single quoted strings"- {-# LINE 1565 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_f1 ->- (case (({-# LINE 228 "src/GLuaFixer/AG/LexLint.ag" #-}- foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]- {-# LINE 1570 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))- in sem_Token_DQString_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }))-sem_Token_SQString :: String ->- T_Token-sem_Token_SQString str_ =- (\ _lhsInextTokenPos ->- (case (({-# LINE 233 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceStr _lhsInextTokenPos $ "'" <> str_ <> "'"- {-# LINE 1583 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_SQString_1 :: T_Token_1- sem_Token_SQString_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 1600 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- SQString str_- {-# LINE 1605 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 1610 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 1615 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 1620 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 1625 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 1630 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 1635 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 1640 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 236 "src/GLuaFixer/AG/LexLint.ag" #-}- if isSingleChar str_ then Nothing else Just _lhsImpos- {-# LINE 1645 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _usesSingleQuotedSyntax ->- (case (({-# LINE 237 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax <> SyntaxUsed Nothing _usesSingleQuotedSyntax- {-# LINE 1650 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _combinedSyntaxUsed ->- (case (({-# LINE 238 "src/GLuaFixer/AG/LexLint.ag" #-}- resetIfInconsistent _combinedSyntaxUsed- {-# LINE 1655 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _strSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _strSyntax- {-# LINE 1660 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 239 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 1665 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 239 "src/GLuaFixer/AG/LexLint.ag" #-}- if not (lint_syntaxInconsistencies _lhsIconfig) then id else- warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "single quoted strings" "double quoted strings"- {-# LINE 1671 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_f1 ->- (case (({-# LINE 239 "src/GLuaFixer/AG/LexLint.ag" #-}- foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]- {-# LINE 1676 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))- in sem_Token_SQString_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }))-sem_Token_MLString :: String ->- T_Token-sem_Token_MLString str_ =- (\ _lhsInextTokenPos ->- (case (({-# LINE 243 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceStr _lhsInextTokenPos str_- {-# LINE 1689 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_MLString_1 :: T_Token_1- sem_Token_MLString_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 1706 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- MLString str_- {-# LINE 1711 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 1716 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 1721 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 1726 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 1731 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 1736 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 1741 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 1746 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 1751 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 1756 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }))- in sem_Token_MLString_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }))-sem_Token_TTrue :: T_Token-sem_Token_TTrue =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- TTrue- {-# LINE 1768 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 1773 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_TTrue_1 :: T_Token_1- sem_Token_TTrue_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 1790 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 1795 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 1800 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 1805 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 1810 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 1815 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 1820 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 1825 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 1830 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 1835 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_TTrue_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_TFalse :: T_Token-sem_Token_TFalse =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- TFalse- {-# LINE 1847 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 1852 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_TFalse_1 :: T_Token_1- sem_Token_TFalse_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 1869 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 1874 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 1879 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 1884 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 1889 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 1894 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 1899 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 1904 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 1909 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 1914 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_TFalse_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Nil :: T_Token-sem_Token_Nil =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Nil- {-# LINE 1926 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 1931 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Nil_1 :: T_Token_1- sem_Token_Nil_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 1948 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 1953 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 1958 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 1963 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 1968 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 1973 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 1978 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 1983 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 1988 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 1993 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Nil_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_VarArg :: T_Token-sem_Token_VarArg =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- VarArg- {-# LINE 2005 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 2010 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_VarArg_1 :: T_Token_1- sem_Token_VarArg_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 2027 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 2032 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 2037 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 2042 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 2047 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 2052 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 2057 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 2062 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 2067 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 2072 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_VarArg_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Plus :: T_Token-sem_Token_Plus =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Plus- {-# LINE 2084 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 2089 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Plus_1 :: T_Token_1- sem_Token_Plus_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 2106 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 2111 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 2116 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 2121 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 2126 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 2131 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 2136 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 2141 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 2146 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 2151 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Plus_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Minus :: T_Token-sem_Token_Minus =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Minus- {-# LINE 2163 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 2168 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Minus_1 :: T_Token_1- sem_Token_Minus_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 2185 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 2190 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 2195 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 2200 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 2205 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 2210 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 2215 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 2220 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 2225 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 2230 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Minus_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Multiply :: T_Token-sem_Token_Multiply =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Multiply- {-# LINE 2242 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 2247 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Multiply_1 :: T_Token_1- sem_Token_Multiply_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 2264 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 2269 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 2274 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 2279 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 2284 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 2289 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 2294 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 2299 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 2304 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 2309 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Multiply_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Divide :: T_Token-sem_Token_Divide =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Divide- {-# LINE 2321 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 2326 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Divide_1 :: T_Token_1- sem_Token_Divide_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 2343 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 2348 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 2353 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 2358 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 2363 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 2368 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 2373 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 2378 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 2383 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 2388 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Divide_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Modulus :: T_Token-sem_Token_Modulus =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Modulus- {-# LINE 2400 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 2405 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Modulus_1 :: T_Token_1- sem_Token_Modulus_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 2422 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 2427 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 2432 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 2437 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 2442 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 2447 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 2452 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 2457 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 2462 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 2467 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Modulus_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Power :: T_Token-sem_Token_Power =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Power- {-# LINE 2479 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 2484 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Power_1 :: T_Token_1- sem_Token_Power_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 2501 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 2506 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 2511 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 2516 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 2521 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 2526 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 2531 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 2536 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 2541 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 2546 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Power_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_TEq :: T_Token-sem_Token_TEq =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- TEq- {-# LINE 2558 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 2563 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_TEq_1 :: T_Token_1- sem_Token_TEq_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 2580 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 2585 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 2590 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 2595 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 2600 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 2605 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 2610 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 2615 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 2620 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 2625 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_TEq_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_TNEq :: T_Token-sem_Token_TNEq =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- TNEq- {-# LINE 2637 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 2642 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_TNEq_1 :: T_Token_1- sem_Token_TNEq_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 2659 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 2664 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 2669 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 2674 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 2679 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 282 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax <> SyntaxUsed (Just _lhsImpos) Nothing- {-# LINE 2684 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _combinedSyntaxUsed ->- (case (({-# LINE 283 "src/GLuaFixer/AG/LexLint.ag" #-}- resetIfInconsistent _combinedSyntaxUsed- {-# LINE 2689 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _neqSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _neqSyntax- {-# LINE 2694 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 2699 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 2704 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 2709 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 284 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 2714 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 284 "src/GLuaFixer/AG/LexLint.ag" #-}- if not (lint_syntaxInconsistencies _lhsIconfig) then id else- warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "~=" "!="- {-# LINE 2720 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_f1 ->- (case (({-# LINE 284 "src/GLuaFixer/AG/LexLint.ag" #-}- foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]- {-# LINE 2725 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))- in sem_Token_TNEq_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_TCNEq :: T_Token-sem_Token_TCNEq =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- TCNEq- {-# LINE 2737 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 2742 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_TCNEq_1 :: T_Token_1- sem_Token_TCNEq_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 2759 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 2764 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 2769 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 2774 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 2779 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 288 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax <> SyntaxUsed Nothing (Just _lhsImpos)- {-# LINE 2784 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _combinedSyntaxUsed ->- (case (({-# LINE 289 "src/GLuaFixer/AG/LexLint.ag" #-}- resetIfInconsistent _combinedSyntaxUsed- {-# LINE 2789 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _neqSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _neqSyntax- {-# LINE 2794 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 2799 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 2804 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 2809 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 290 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 2814 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 290 "src/GLuaFixer/AG/LexLint.ag" #-}- if not (lint_syntaxInconsistencies _lhsIconfig) then id else- warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "!=" "~="- {-# LINE 2820 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_f1 ->- (case (({-# LINE 290 "src/GLuaFixer/AG/LexLint.ag" #-}- foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]- {-# LINE 2825 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))- in sem_Token_TCNEq_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_TLEQ :: T_Token-sem_Token_TLEQ =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- TLEQ- {-# LINE 2837 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 2842 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_TLEQ_1 :: T_Token_1- sem_Token_TLEQ_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 2859 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 2864 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 2869 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 2874 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 2879 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 2884 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 2889 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 2894 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 2899 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 2904 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_TLEQ_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_TGEQ :: T_Token-sem_Token_TGEQ =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- TGEQ- {-# LINE 2916 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 2921 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_TGEQ_1 :: T_Token_1- sem_Token_TGEQ_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 2938 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 2943 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 2948 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 2953 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 2958 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 2963 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 2968 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 2973 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 2978 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 2983 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_TGEQ_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_TLT :: T_Token-sem_Token_TLT =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- TLT- {-# LINE 2995 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 3000 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_TLT_1 :: T_Token_1- sem_Token_TLT_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 3017 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 3022 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 3027 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 3032 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 3037 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 3042 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 3047 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 3052 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 3057 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 3062 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_TLT_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_TGT :: T_Token-sem_Token_TGT =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- TGT- {-# LINE 3074 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 3079 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_TGT_1 :: T_Token_1- sem_Token_TGT_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 3096 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 3101 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 3106 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 3111 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 3116 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 3121 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 3126 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 3131 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 3136 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 3141 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_TGT_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Equals :: T_Token-sem_Token_Equals =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Equals- {-# LINE 3153 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 3158 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Equals_1 :: T_Token_1- sem_Token_Equals_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 3175 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 3180 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 3185 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 3190 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 3195 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 3200 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 3205 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 3210 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 3215 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 3220 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Equals_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Concatenate :: T_Token-sem_Token_Concatenate =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Concatenate- {-# LINE 3232 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 3237 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Concatenate_1 :: T_Token_1- sem_Token_Concatenate_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 3254 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 3259 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 3264 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 3269 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 3274 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 3279 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 3284 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 3289 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 3294 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 3299 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Concatenate_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Colon :: T_Token-sem_Token_Colon =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Colon- {-# LINE 3311 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 3316 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Colon_1 :: T_Token_1- sem_Token_Colon_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 3333 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 3338 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 3343 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 3348 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 3353 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 3358 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 3363 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 3368 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 3373 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 3378 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Colon_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Dot :: T_Token-sem_Token_Dot =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Dot- {-# LINE 3390 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 3395 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Dot_1 :: T_Token_1- sem_Token_Dot_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 3412 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 3417 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 3422 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 3427 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 3432 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 3437 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 3442 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 3447 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 3452 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 3457 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Dot_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Comma :: T_Token-sem_Token_Comma =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Comma- {-# LINE 3469 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 3474 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Comma_1 :: T_Token_1- sem_Token_Comma_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 3491 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 3496 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 3501 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 3506 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 3511 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 3516 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 3521 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 3526 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 3531 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 3536 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Comma_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Hash :: T_Token-sem_Token_Hash =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Hash- {-# LINE 3548 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 3553 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Hash_1 :: T_Token_1- sem_Token_Hash_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 3570 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 3575 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 3580 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 3585 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 3590 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 3595 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 3600 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 3605 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 3610 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 3615 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Hash_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Not :: T_Token-sem_Token_Not =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Not- {-# LINE 3627 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 3632 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Not_1 :: T_Token_1- sem_Token_Not_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 3649 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 3654 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 3659 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 3664 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 3669 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 3674 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 246 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax <> SyntaxUsed (Just _lhsImpos) Nothing- {-# LINE 3679 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _combinedSyntaxUsed ->- (case (({-# LINE 247 "src/GLuaFixer/AG/LexLint.ag" #-}- resetIfInconsistent _combinedSyntaxUsed- {-# LINE 3684 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _notSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _notSyntax- {-# LINE 3689 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 3694 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 3699 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 248 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 3704 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 248 "src/GLuaFixer/AG/LexLint.ag" #-}- if not (lint_syntaxInconsistencies _lhsIconfig) then id else- warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "not" "!"- {-# LINE 3710 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_f1 ->- (case (({-# LINE 248 "src/GLuaFixer/AG/LexLint.ag" #-}- foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]- {-# LINE 3715 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Not_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_CNot :: T_Token-sem_Token_CNot =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- CNot- {-# LINE 3727 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 3732 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_CNot_1 :: T_Token_1- sem_Token_CNot_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 3749 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 3754 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 3759 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 3764 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 3769 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 3774 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 252 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax <> SyntaxUsed Nothing (Just _lhsImpos)- {-# LINE 3779 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _combinedSyntaxUsed ->- (case (({-# LINE 253 "src/GLuaFixer/AG/LexLint.ag" #-}- resetIfInconsistent _combinedSyntaxUsed- {-# LINE 3784 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _notSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _notSyntax- {-# LINE 3789 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 3794 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 3799 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 254 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 3804 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 254 "src/GLuaFixer/AG/LexLint.ag" #-}- if not (lint_syntaxInconsistencies _lhsIconfig) then id else- warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "!" "not"- {-# LINE 3810 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_f1 ->- (case (({-# LINE 254 "src/GLuaFixer/AG/LexLint.ag" #-}- foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]- {-# LINE 3815 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))- in sem_Token_CNot_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_And :: T_Token-sem_Token_And =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- And- {-# LINE 3827 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 3832 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_And_1 :: T_Token_1- sem_Token_And_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 258 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax <> SyntaxUsed (Just _lhsImpos) Nothing- {-# LINE 3849 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _combinedSyntaxUsed ->- (case (({-# LINE 259 "src/GLuaFixer/AG/LexLint.ag" #-}- resetIfInconsistent _combinedSyntaxUsed- {-# LINE 3854 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _andSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _andSyntax- {-# LINE 3859 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 3864 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 3869 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 3874 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 3879 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 3884 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 3889 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 3894 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 3899 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 260 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 3904 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 260 "src/GLuaFixer/AG/LexLint.ag" #-}- if not (lint_syntaxInconsistencies _lhsIconfig) then id else- warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "and" "&&"- {-# LINE 3910 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_f1 ->- (case (({-# LINE 260 "src/GLuaFixer/AG/LexLint.ag" #-}- foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]- {-# LINE 3915 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))- in sem_Token_And_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_CAnd :: T_Token-sem_Token_CAnd =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- CAnd- {-# LINE 3927 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 3932 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_CAnd_1 :: T_Token_1- sem_Token_CAnd_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 264 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax <> SyntaxUsed Nothing (Just _lhsImpos)- {-# LINE 3949 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _combinedSyntaxUsed ->- (case (({-# LINE 265 "src/GLuaFixer/AG/LexLint.ag" #-}- resetIfInconsistent _combinedSyntaxUsed- {-# LINE 3954 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _andSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _andSyntax- {-# LINE 3959 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 3964 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 3969 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 3974 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 3979 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 3984 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 3989 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 3994 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 3999 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 266 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 4004 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 266 "src/GLuaFixer/AG/LexLint.ag" #-}- if not (lint_syntaxInconsistencies _lhsIconfig) then id else- warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "&&" "and"- {-# LINE 4010 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_f1 ->- (case (({-# LINE 266 "src/GLuaFixer/AG/LexLint.ag" #-}- foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]- {-# LINE 4015 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))- in sem_Token_CAnd_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Or :: T_Token-sem_Token_Or =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Or- {-# LINE 4027 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 4032 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Or_1 :: T_Token_1- sem_Token_Or_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 4049 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 4054 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 4059 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 4064 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 4069 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 4074 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 4079 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 270 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax <> SyntaxUsed (Just _lhsImpos) Nothing- {-# LINE 4084 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _combinedSyntaxUsed ->- (case (({-# LINE 271 "src/GLuaFixer/AG/LexLint.ag" #-}- resetIfInconsistent _combinedSyntaxUsed- {-# LINE 4089 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _orSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _orSyntax- {-# LINE 4094 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 4099 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 272 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 4104 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 272 "src/GLuaFixer/AG/LexLint.ag" #-}- if not (lint_syntaxInconsistencies _lhsIconfig) then id else- warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "or" "||"- {-# LINE 4110 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_f1 ->- (case (({-# LINE 272 "src/GLuaFixer/AG/LexLint.ag" #-}- foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]- {-# LINE 4115 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Or_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_COr :: T_Token-sem_Token_COr =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- COr- {-# LINE 4127 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 4132 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_COr_1 :: T_Token_1- sem_Token_COr_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 4149 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 4154 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 4159 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 4164 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 4169 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 4174 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 4179 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 276 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax <> SyntaxUsed Nothing (Just _lhsImpos)- {-# LINE 4184 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _combinedSyntaxUsed ->- (case (({-# LINE 277 "src/GLuaFixer/AG/LexLint.ag" #-}- resetIfInconsistent _combinedSyntaxUsed- {-# LINE 4189 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _orSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _orSyntax- {-# LINE 4194 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 4199 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 278 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 4204 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_syn ->- (case (({-# LINE 278 "src/GLuaFixer/AG/LexLint.ag" #-}- if not (lint_syntaxInconsistencies _lhsIconfig) then id else- warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "||" "or"- {-# LINE 4210 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _warnings_augmented_f1 ->- (case (({-# LINE 278 "src/GLuaFixer/AG/LexLint.ag" #-}- foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]- {-# LINE 4215 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))- in sem_Token_COr_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Function :: T_Token-sem_Token_Function =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Function- {-# LINE 4227 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 4232 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Function_1 :: T_Token_1- sem_Token_Function_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 4249 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 4254 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 4259 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 4264 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 4269 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 4274 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 4279 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 4284 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 4289 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 4294 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Function_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Local :: T_Token-sem_Token_Local =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Local- {-# LINE 4306 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 4311 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Local_1 :: T_Token_1- sem_Token_Local_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 4328 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 4333 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 4338 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 4343 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 4348 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 4353 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 4358 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 4363 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 4368 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 4373 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Local_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_If :: T_Token-sem_Token_If =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- If- {-# LINE 4385 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 4390 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_If_1 :: T_Token_1- sem_Token_If_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 4407 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 4412 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 4417 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 4422 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 4427 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 4432 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 4437 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 4442 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 4447 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 4452 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_If_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Then :: T_Token-sem_Token_Then =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Then- {-# LINE 4464 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 4469 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Then_1 :: T_Token_1- sem_Token_Then_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 4486 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 4491 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 4496 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 4501 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 4506 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 4511 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 4516 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 4521 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 4526 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 4531 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Then_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Elseif :: T_Token-sem_Token_Elseif =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Elseif- {-# LINE 4543 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 4548 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Elseif_1 :: T_Token_1- sem_Token_Elseif_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 4565 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 4570 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 4575 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 4580 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 4585 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 4590 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 4595 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 4600 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 4605 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 4610 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Elseif_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Else :: T_Token-sem_Token_Else =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Else- {-# LINE 4622 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 4627 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Else_1 :: T_Token_1- sem_Token_Else_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 4644 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 4649 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 4654 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 4659 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 4664 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 4669 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 4674 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 4679 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 4684 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 4689 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Else_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_For :: T_Token-sem_Token_For =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- For- {-# LINE 4701 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 4706 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_For_1 :: T_Token_1- sem_Token_For_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 4723 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 4728 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 4733 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 4738 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 4743 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 4748 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 4753 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 4758 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 4763 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 4768 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_For_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_In :: T_Token-sem_Token_In =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- In- {-# LINE 4780 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 4785 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_In_1 :: T_Token_1- sem_Token_In_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 4802 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 4807 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 4812 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 4817 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 4822 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 4827 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 4832 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 4837 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 4842 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 4847 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_In_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Do :: T_Token-sem_Token_Do =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Do- {-# LINE 4859 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 4864 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Do_1 :: T_Token_1- sem_Token_Do_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 4881 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 4886 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 4891 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 4896 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 4901 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 4906 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 4911 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 4916 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 4921 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 4926 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Do_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_While :: T_Token-sem_Token_While =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- While- {-# LINE 4938 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 4943 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_While_1 :: T_Token_1- sem_Token_While_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 4960 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 4965 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 4970 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 4975 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 4980 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 4985 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 4990 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 4995 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 5000 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 5005 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_While_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Until :: T_Token-sem_Token_Until =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Until- {-# LINE 5017 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 5022 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Until_1 :: T_Token_1- sem_Token_Until_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 5039 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 5044 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 5049 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 5054 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 5059 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 5064 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 5069 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 5074 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 5079 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 5084 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Until_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Repeat :: T_Token-sem_Token_Repeat =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Repeat- {-# LINE 5096 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 5101 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Repeat_1 :: T_Token_1- sem_Token_Repeat_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 5118 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 5123 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 5128 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 5133 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 5138 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 5143 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 5148 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 5153 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 5158 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 5163 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Repeat_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Continue :: T_Token-sem_Token_Continue =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Continue- {-# LINE 5175 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 5180 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Continue_1 :: T_Token_1- sem_Token_Continue_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 5197 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 5202 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 5207 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 5212 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 5217 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 5222 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 5227 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 5232 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 5237 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 5242 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Continue_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Break :: T_Token-sem_Token_Break =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Break- {-# LINE 5254 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 5259 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Break_1 :: T_Token_1- sem_Token_Break_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 5276 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 5281 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 5286 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 5291 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 5296 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 5301 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 5306 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 5311 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 5316 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 5321 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Break_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Return :: T_Token-sem_Token_Return =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Return- {-# LINE 5333 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 5338 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Return_1 :: T_Token_1- sem_Token_Return_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 5355 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 5360 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 5365 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 5370 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 5375 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 5380 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 5385 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 5390 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 5395 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 5400 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Return_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_End :: T_Token-sem_Token_End =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- End- {-# LINE 5412 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 5417 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_End_1 :: T_Token_1- sem_Token_End_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 5434 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 5439 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 5444 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 5449 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 5454 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 5459 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 5464 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 5469 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 5474 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 5479 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_End_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_LRound :: T_Token-sem_Token_LRound =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- LRound- {-# LINE 5491 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 5496 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_LRound_1 :: T_Token_1- sem_Token_LRound_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 5513 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 5518 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 5523 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 5528 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 5533 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 5538 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 5543 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 5548 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 5553 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 5558 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_LRound_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_RRound :: T_Token-sem_Token_RRound =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- RRound- {-# LINE 5570 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 5575 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_RRound_1 :: T_Token_1- sem_Token_RRound_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 5592 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 5597 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 5602 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 5607 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 5612 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 5617 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 5622 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 5627 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 5632 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 5637 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_RRound_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_LCurly :: T_Token-sem_Token_LCurly =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- LCurly- {-# LINE 5649 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 5654 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_LCurly_1 :: T_Token_1- sem_Token_LCurly_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 5671 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 5676 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 5681 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 5686 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 5691 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 5696 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 5701 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 5706 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 5711 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 5716 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_LCurly_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_RCurly :: T_Token-sem_Token_RCurly =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- RCurly- {-# LINE 5728 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 5733 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_RCurly_1 :: T_Token_1- sem_Token_RCurly_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 5750 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 5755 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 5760 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 5765 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 5770 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 5775 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 5780 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 5785 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 5790 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 5795 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_RCurly_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_LSquare :: T_Token-sem_Token_LSquare =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- LSquare- {-# LINE 5807 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 5812 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_LSquare_1 :: T_Token_1- sem_Token_LSquare_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 5829 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 5834 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 5839 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 5844 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 5849 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 5854 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 5859 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 5864 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 5869 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 5874 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_LSquare_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_RSquare :: T_Token-sem_Token_RSquare =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- RSquare- {-# LINE 5886 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 5891 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_RSquare_1 :: T_Token_1- sem_Token_RSquare_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 5908 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 5913 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 5918 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 5923 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 5928 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 5933 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 5938 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 5943 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 5948 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 5953 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_RSquare_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Label :: String ->- String ->- String ->- T_Token-sem_Token_Label whitespaceBefore_ lbl_ whitespaceAfter_ =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Label whitespaceBefore_ lbl_ whitespaceAfter_- {-# LINE 5968 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 294 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceStr _lhsInextTokenPos (show _copy )- {-# LINE 5973 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Label_1 :: T_Token_1- sem_Token_Label_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 5990 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 5995 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 6000 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 6005 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 6010 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 6015 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 6020 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 6025 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 6030 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 6035 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOwarnings ->- ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))- in sem_Token_Label_1)) of- { ( sem_Token_1) ->- ( _lhsOnextTokenPos,sem_Token_1) }) }) }))-sem_Token_Identifier :: String ->- T_Token-sem_Token_Identifier ident_ =- (\ _lhsInextTokenPos ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- Identifier ident_- {-# LINE 6048 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _copy ->- (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}- customAdvanceToken _lhsInextTokenPos _copy- {-# LINE 6053 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnextTokenPos ->- (case ((let sem_Token_Identifier_1 :: T_Token_1- sem_Token_Identifier_1 =- (\ _lhsIandSyntax- _lhsIconfig- _lhsIindentation- _lhsIlineCommentSyntax- _lhsImpos- _lhsImultilineCommentSyntax- _lhsIneqSyntax- _lhsInotSyntax- _lhsIorSyntax- _lhsIstrSyntax ->- (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIandSyntax- {-# LINE 6070 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOandSyntax ->- (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}- _copy- {-# LINE 6075 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOcopy ->- (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIindentation- {-# LINE 6080 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOindentation ->- (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIlineCommentSyntax- {-# LINE 6085 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOlineCommentSyntax ->- (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsImultilineCommentSyntax- {-# LINE 6090 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOmultilineCommentSyntax ->- (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIneqSyntax- {-# LINE 6095 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOneqSyntax ->- (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsInotSyntax- {-# LINE 6100 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOnotSyntax ->- (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIorSyntax- {-# LINE 6105 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOorSyntax ->- (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}- _lhsIstrSyntax- {-# LINE 6110 "src/GLuaFixer/AG/LexLint.hs" #-}- )) of- { _lhsOstrSyntax ->- (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}- []- {-# LINE 6115 "src/GLuaFixer/AG/LexLint.hs" #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# LANGUAGE CPP #-}+-- UUAGC 0.9.56 (src/GLuaFixer/AG/LexLint.ag)+module GLuaFixer.AG.LexLint(+ lintWarnings,+ fixedLexPositions+) where++{-# LINE 8 "src/GLuaFixer/AG/../../GLua/AG/Token.ag" #-}++import GLua.Position+{-# LINE 17 "src/GLuaFixer/AG/LexLint.hs" #-}++{-# LINE 15 "src/GLuaFixer/AG/LexLint.ag" #-}++import Control.Applicative ((<|>))+import Data.List+import GLua.TokenTypes+import GLua.AG.Token+import GLua.Position+import GLuaFixer.LintMessage+import GLuaFixer.LintSettings+{-# LINE 28 "src/GLuaFixer/AG/LexLint.hs" #-}+{-# LINE 27 "src/GLuaFixer/AG/LexLint.ag" #-}+++----------------------------------------+-- C-style / Lua-style syntax inconsistencies+----------------------------------------+-- For detecting the usage of Lua/C syntax inconsistently. 'Nothing' means no evidence of the style,+-- and 'Just Region' represents the last place where the style was found to be used.+data SyntaxUsed = SyntaxUsed+ { lastLuaExample :: Maybe Region+ , lastCExample :: Maybe Region+ }+ deriving (Show)++instance Semigroup SyntaxUsed where+ -- Later uses have preference over earlier uses+ (SyntaxUsed l1 c1) <> (SyntaxUsed l2 c2) = SyntaxUsed (l2 <|> l1) (c2 <|> c1)++-- Monoid instance+instance Monoid SyntaxUsed where+ mempty = SyntaxUsed Nothing Nothing++previousSyntaxUsedRegion :: SyntaxUsed -> Maybe Region+previousSyntaxUsedRegion syntaxUsed = case syntaxUsed of+ SyntaxUsed (Just l) (Just c) -> Just $ min l c+ -- There is no previous region if there is no syntax inconsistency+ SyntaxUsed {} -> Nothing++-- | Whether there is evidence of Lua style code+luaUsed :: SyntaxUsed -> Bool+luaUsed (SyntaxUsed (Just _) _) = True+luaUsed _ = False++-- | Whether there is evidence of C style code+cUsed :: SyntaxUsed -> Bool+cUsed (SyntaxUsed _ (Just _)) = True+cUsed _ = False++-- | Quick helper to turn a bool and region into a member for 'SyntaxUsed'+mkSyntax :: Bool -> Region -> Maybe Region+mkSyntax b region = if b then Just region else Nothing++-- | Whether the syntax is consistent+consistent :: SyntaxUsed -> Bool+consistent syntaxUsed = case syntaxUsed of+ SyntaxUsed (Just _) (Just _) -> False+ _ -> True++mTokenWarning :: Region -> Issue -> FilePath -> LintMessage+mTokenWarning pos issue = LintMessage LintWarning pos issue++-- | Shorthand for throwing _two_ warnings when an inconsistency occurs: one at the original place+-- and one at the new place.+warnInconsistency :: SyntaxUsed -> Issue -> [FilePath -> LintMessage] -> [FilePath -> LintMessage]+warnInconsistency syntaxUsed issue messages = case syntaxUsed of+ SyntaxUsed (Just luaRegion) (Just cRegion) ->+ LintMessage LintWarning luaRegion issue :+ LintMessage LintWarning cRegion issue :+ messages+ _ -> messages++-- | Handy function to reset the built up knowledge of 'SyntaxUsed' when it is found to be+-- inconsistent.+resetIfInconsistent :: SyntaxUsed -> SyntaxUsed+resetIfInconsistent syntaxUsed = case syntaxUsed of+ SyntaxUsed (Just {}) (Just {}) -> SyntaxUsed Nothing Nothing+ _ -> syntaxUsed++isSingleChar :: String -> Bool+isSingleChar [] = True+isSingleChar ('\\' : xs) = length xs == 1+isSingleChar (_ : []) = True+isSingleChar _ = False++-- Locate the exact position of trailing whitespace+locateTrailingWhitespace :: LineColPos -> String -> (LineColPos, String)+locateTrailingWhitespace pos (' ' : xs) = (pos, xs)+locateTrailingWhitespace pos ('\t' : xs) = (pos, xs)+locateTrailingWhitespace pos (x : xs) = locateTrailingWhitespace (customAdvanceChr pos x) xs+locateTrailingWhitespace pos [] = (pos, "")++-- Locate the start of a line's indentation in a string of whitespace+indentationStart :: LineColPos -> String -> LineColPos+indentationStart pos = go pos pos+ where+ go :: LineColPos -> LineColPos -> String -> LineColPos+ go _ cur ('\n' : xs) = let next = customAdvanceChr cur '\n' in go next next xs+ go found cur (x : xs) = go found (customAdvanceChr cur x) xs+ go found _ [] = found++endOfTrailingWhitespace :: (LineColPos, String) -> LineColPos+endOfTrailingWhitespace (pos, ('\n' : _)) = pos+endOfTrailingWhitespace (pos, (x : xs)) = endOfTrailingWhitespace (customAdvanceChr pos x, xs)+endOfTrailingWhitespace (pos, []) = pos+++{-# LINE 125 "src/GLuaFixer/AG/LexLint.hs" #-}++{-# LINE 296 "src/GLuaFixer/AG/LexLint.ag" #-}++++inh_MTokenList :: LintSettings -> Inh_MTokenList+inh_MTokenList conf =+ Inh_MTokenList {+ config_Inh_MTokenList = conf,+ andSyntax_Inh_MTokenList = mempty,+ indentation_Inh_MTokenList = mempty,+ lineCommentSyntax_Inh_MTokenList = mempty,+ multilineCommentSyntax_Inh_MTokenList = mempty,+ neqSyntax_Inh_MTokenList = mempty,+ notSyntax_Inh_MTokenList = mempty,+ orSyntax_Inh_MTokenList = mempty,+ strSyntax_Inh_MTokenList = mempty,+ nextTokenPos_Inh_MTokenList = LineColPos 0 0 0+ }++lintWarnings :: LintSettings -> [MToken] -> [String -> LintMessage]+lintWarnings conf p = warnings_Syn_MTokenList (wrap_MTokenList (sem_MTokenList p) (inh_MTokenList conf))++-- Necessary because the parser walks over tabs as though they are 8 spaces.+fixedLexPositions :: [MToken] -> [MToken]+fixedLexPositions p = copy_Syn_MTokenList (wrap_MTokenList (sem_MTokenList p) (inh_MTokenList defaultLintSettings))+{-# LINE 152 "src/GLuaFixer/AG/LexLint.hs" #-}+-- MToken ------------------------------------------------------+-- cata+sem_MToken :: MToken ->+ T_MToken+sem_MToken (MToken _mpos _mtok) =+ (sem_MToken_MToken _mpos (sem_Token _mtok))+-- semantic domain+type T_MToken = SyntaxUsed ->+ LintSettings ->+ SyntaxUsed ->+ SyntaxUsed ->+ SyntaxUsed ->+ SyntaxUsed ->+ LineColPos ->+ SyntaxUsed ->+ SyntaxUsed ->+ SyntaxUsed ->+ ( SyntaxUsed,MToken,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,LineColPos,SyntaxUsed,SyntaxUsed,SyntaxUsed,([FilePath -> LintMessage]))+data Inh_MToken = Inh_MToken {andSyntax_Inh_MToken :: SyntaxUsed,config_Inh_MToken :: LintSettings,indentation_Inh_MToken :: SyntaxUsed,lineCommentSyntax_Inh_MToken :: SyntaxUsed,multilineCommentSyntax_Inh_MToken :: SyntaxUsed,neqSyntax_Inh_MToken :: SyntaxUsed,nextTokenPos_Inh_MToken :: LineColPos,notSyntax_Inh_MToken :: SyntaxUsed,orSyntax_Inh_MToken :: SyntaxUsed,strSyntax_Inh_MToken :: SyntaxUsed}+data Syn_MToken = Syn_MToken {andSyntax_Syn_MToken :: SyntaxUsed,copy_Syn_MToken :: MToken,indentation_Syn_MToken :: SyntaxUsed,lineCommentSyntax_Syn_MToken :: SyntaxUsed,multilineCommentSyntax_Syn_MToken :: SyntaxUsed,neqSyntax_Syn_MToken :: SyntaxUsed,nextTokenPos_Syn_MToken :: LineColPos,notSyntax_Syn_MToken :: SyntaxUsed,orSyntax_Syn_MToken :: SyntaxUsed,strSyntax_Syn_MToken :: SyntaxUsed,warnings_Syn_MToken :: ([FilePath -> LintMessage])}+wrap_MToken :: T_MToken ->+ Inh_MToken ->+ Syn_MToken+wrap_MToken sem (Inh_MToken _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax) =+ (let ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) = sem _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax+ in (Syn_MToken _lhsOandSyntax _lhsOcopy _lhsOindentation _lhsOlineCommentSyntax _lhsOmultilineCommentSyntax _lhsOneqSyntax _lhsOnextTokenPos _lhsOnotSyntax _lhsOorSyntax _lhsOstrSyntax _lhsOwarnings))+sem_MToken_MToken :: Region ->+ T_Token ->+ T_MToken+sem_MToken_MToken mpos_ mtok_ =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInextTokenPos+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInextTokenPos+ {-# LINE 195 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _mtokOnextTokenPos ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 200 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _mtokOandSyntax ->+ (case (mtok_ _mtokOnextTokenPos) of+ { ( _mtokInextTokenPos,mtok_1) ->+ (case (({-# LINE 156 "src/GLuaFixer/AG/LexLint.ag" #-}+ Region _lhsInextTokenPos _mtokInextTokenPos+ {-# LINE 207 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _mpos ->+ (case (({-# LINE 157 "src/GLuaFixer/AG/LexLint.ag" #-}+ _mpos+ {-# LINE 212 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _mtokOmpos ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 217 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _mtokOstrSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 222 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _mtokOorSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 227 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _mtokOnotSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 232 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _mtokOneqSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 237 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _mtokOmultilineCommentSyntax ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 242 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _mtokOlineCommentSyntax ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 247 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _mtokOindentation ->+ (case (({-# LINE 128 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIconfig+ {-# LINE 252 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _mtokOconfig ->+ (case (mtok_1 _mtokOandSyntax _mtokOconfig _mtokOindentation _mtokOlineCommentSyntax _mtokOmpos _mtokOmultilineCommentSyntax _mtokOneqSyntax _mtokOnotSyntax _mtokOorSyntax _mtokOstrSyntax) of+ { ( _mtokIandSyntax,_mtokIcopy,_mtokIindentation,_mtokIlineCommentSyntax,_mtokImultilineCommentSyntax,_mtokIneqSyntax,_mtokInotSyntax,_mtokIorSyntax,_mtokIstrSyntax,_mtokIwarnings) ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _mtokIandSyntax+ {-# LINE 259 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 160 "src/GLuaFixer/AG/LexLint.ag" #-}+ MToken (const _mpos mpos_) _mtokIcopy+ {-# LINE 264 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 269 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _mtokIindentation+ {-# LINE 274 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _mtokIlineCommentSyntax+ {-# LINE 279 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _mtokImultilineCommentSyntax+ {-# LINE 284 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _mtokIneqSyntax+ {-# LINE 289 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}+ _mtokInextTokenPos+ {-# LINE 294 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _mtokInotSyntax+ {-# LINE 299 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _mtokIorSyntax+ {-# LINE 304 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _mtokIstrSyntax+ {-# LINE 309 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ _mtokIwarnings+ {-# LINE 314 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))+-- MTokenList --------------------------------------------------+-- cata+sem_MTokenList :: MTokenList ->+ T_MTokenList+sem_MTokenList list =+ (Prelude.foldr sem_MTokenList_Cons sem_MTokenList_Nil (Prelude.map sem_MToken list))+-- semantic domain+type T_MTokenList = SyntaxUsed ->+ LintSettings ->+ SyntaxUsed ->+ SyntaxUsed ->+ SyntaxUsed ->+ SyntaxUsed ->+ LineColPos ->+ SyntaxUsed ->+ SyntaxUsed ->+ SyntaxUsed ->+ ( SyntaxUsed,MTokenList,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,LineColPos,SyntaxUsed,SyntaxUsed,SyntaxUsed,([FilePath -> LintMessage]))+data Inh_MTokenList = Inh_MTokenList {andSyntax_Inh_MTokenList :: SyntaxUsed,config_Inh_MTokenList :: LintSettings,indentation_Inh_MTokenList :: SyntaxUsed,lineCommentSyntax_Inh_MTokenList :: SyntaxUsed,multilineCommentSyntax_Inh_MTokenList :: SyntaxUsed,neqSyntax_Inh_MTokenList :: SyntaxUsed,nextTokenPos_Inh_MTokenList :: LineColPos,notSyntax_Inh_MTokenList :: SyntaxUsed,orSyntax_Inh_MTokenList :: SyntaxUsed,strSyntax_Inh_MTokenList :: SyntaxUsed}+data Syn_MTokenList = Syn_MTokenList {andSyntax_Syn_MTokenList :: SyntaxUsed,copy_Syn_MTokenList :: MTokenList,indentation_Syn_MTokenList :: SyntaxUsed,lineCommentSyntax_Syn_MTokenList :: SyntaxUsed,multilineCommentSyntax_Syn_MTokenList :: SyntaxUsed,neqSyntax_Syn_MTokenList :: SyntaxUsed,nextTokenPos_Syn_MTokenList :: LineColPos,notSyntax_Syn_MTokenList :: SyntaxUsed,orSyntax_Syn_MTokenList :: SyntaxUsed,strSyntax_Syn_MTokenList :: SyntaxUsed,warnings_Syn_MTokenList :: ([FilePath -> LintMessage])}+wrap_MTokenList :: T_MTokenList ->+ Inh_MTokenList ->+ Syn_MTokenList+wrap_MTokenList sem (Inh_MTokenList _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax) =+ (let ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) = sem _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax+ in (Syn_MTokenList _lhsOandSyntax _lhsOcopy _lhsOindentation _lhsOlineCommentSyntax _lhsOmultilineCommentSyntax _lhsOneqSyntax _lhsOnextTokenPos _lhsOnotSyntax _lhsOorSyntax _lhsOstrSyntax _lhsOwarnings))+sem_MTokenList_Cons :: T_MToken ->+ T_MTokenList ->+ T_MTokenList+sem_MTokenList_Cons hd_ tl_ =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInextTokenPos+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInextTokenPos+ {-# LINE 360 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _hdOnextTokenPos ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 365 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _hdOstrSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 370 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _hdOorSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 375 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _hdOnotSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 380 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _hdOneqSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 385 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _hdOmultilineCommentSyntax ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 390 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _hdOlineCommentSyntax ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 395 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _hdOindentation ->+ (case (({-# LINE 128 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIconfig+ {-# LINE 400 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _hdOconfig ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 405 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _hdOandSyntax ->+ (case (hd_ _hdOandSyntax _hdOconfig _hdOindentation _hdOlineCommentSyntax _hdOmultilineCommentSyntax _hdOneqSyntax _hdOnextTokenPos _hdOnotSyntax _hdOorSyntax _hdOstrSyntax) of+ { ( _hdIandSyntax,_hdIcopy,_hdIindentation,_hdIlineCommentSyntax,_hdImultilineCommentSyntax,_hdIneqSyntax,_hdInextTokenPos,_hdInotSyntax,_hdIorSyntax,_hdIstrSyntax,_hdIwarnings) ->+ (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}+ _hdInextTokenPos+ {-# LINE 412 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _tlOnextTokenPos ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _hdIandSyntax+ {-# LINE 417 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _tlOandSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _hdIstrSyntax+ {-# LINE 422 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _tlOstrSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _hdIorSyntax+ {-# LINE 427 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _tlOorSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _hdInotSyntax+ {-# LINE 432 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _tlOnotSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _hdIneqSyntax+ {-# LINE 437 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _tlOneqSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _hdImultilineCommentSyntax+ {-# LINE 442 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _tlOmultilineCommentSyntax ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _hdIlineCommentSyntax+ {-# LINE 447 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _tlOlineCommentSyntax ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _hdIindentation+ {-# LINE 452 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _tlOindentation ->+ (case (({-# LINE 128 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIconfig+ {-# LINE 457 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _tlOconfig ->+ (case (tl_ _tlOandSyntax _tlOconfig _tlOindentation _tlOlineCommentSyntax _tlOmultilineCommentSyntax _tlOneqSyntax _tlOnextTokenPos _tlOnotSyntax _tlOorSyntax _tlOstrSyntax) of+ { ( _tlIandSyntax,_tlIcopy,_tlIindentation,_tlIlineCommentSyntax,_tlImultilineCommentSyntax,_tlIneqSyntax,_tlInextTokenPos,_tlInotSyntax,_tlIorSyntax,_tlIstrSyntax,_tlIwarnings) ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _tlIandSyntax+ {-# LINE 464 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ (:) _hdIcopy _tlIcopy+ {-# LINE 469 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 474 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _tlIindentation+ {-# LINE 479 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _tlIlineCommentSyntax+ {-# LINE 484 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _tlImultilineCommentSyntax+ {-# LINE 489 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _tlIneqSyntax+ {-# LINE 494 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}+ _tlInextTokenPos+ {-# LINE 499 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _tlInotSyntax+ {-# LINE 504 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _tlIorSyntax+ {-# LINE 509 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _tlIstrSyntax+ {-# LINE 514 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ _hdIwarnings ++ _tlIwarnings+ {-# LINE 519 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))+sem_MTokenList_Nil :: T_MTokenList+sem_MTokenList_Nil =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInextTokenPos+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 537 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 542 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 547 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 552 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 557 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 562 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 567 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInextTokenPos+ {-# LINE 572 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 577 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 582 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 587 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 592 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }))+-- Token -------------------------------------------------------+-- cata+sem_Token :: Token ->+ T_Token+sem_Token (Whitespace _space) =+ (sem_Token_Whitespace _space)+sem_Token (DashComment _comment) =+ (sem_Token_DashComment _comment)+sem_Token (DashBlockComment _depth _comment) =+ (sem_Token_DashBlockComment _depth _comment)+sem_Token (SlashComment _comment) =+ (sem_Token_SlashComment _comment)+sem_Token (SlashBlockComment _comment) =+ (sem_Token_SlashBlockComment _comment)+sem_Token (Semicolon) =+ (sem_Token_Semicolon)+sem_Token (TNumber _num) =+ (sem_Token_TNumber _num)+sem_Token (DQString _str) =+ (sem_Token_DQString _str)+sem_Token (SQString _str) =+ (sem_Token_SQString _str)+sem_Token (MLString _str) =+ (sem_Token_MLString _str)+sem_Token (TTrue) =+ (sem_Token_TTrue)+sem_Token (TFalse) =+ (sem_Token_TFalse)+sem_Token (Nil) =+ (sem_Token_Nil)+sem_Token (VarArg) =+ (sem_Token_VarArg)+sem_Token (Plus) =+ (sem_Token_Plus)+sem_Token (Minus) =+ (sem_Token_Minus)+sem_Token (Multiply) =+ (sem_Token_Multiply)+sem_Token (Divide) =+ (sem_Token_Divide)+sem_Token (Modulus) =+ (sem_Token_Modulus)+sem_Token (Power) =+ (sem_Token_Power)+sem_Token (TEq) =+ (sem_Token_TEq)+sem_Token (TNEq) =+ (sem_Token_TNEq)+sem_Token (TCNEq) =+ (sem_Token_TCNEq)+sem_Token (TLEQ) =+ (sem_Token_TLEQ)+sem_Token (TGEQ) =+ (sem_Token_TGEQ)+sem_Token (TLT) =+ (sem_Token_TLT)+sem_Token (TGT) =+ (sem_Token_TGT)+sem_Token (Equals) =+ (sem_Token_Equals)+sem_Token (Concatenate) =+ (sem_Token_Concatenate)+sem_Token (Colon) =+ (sem_Token_Colon)+sem_Token (Dot) =+ (sem_Token_Dot)+sem_Token (Comma) =+ (sem_Token_Comma)+sem_Token (Hash) =+ (sem_Token_Hash)+sem_Token (Not) =+ (sem_Token_Not)+sem_Token (CNot) =+ (sem_Token_CNot)+sem_Token (And) =+ (sem_Token_And)+sem_Token (CAnd) =+ (sem_Token_CAnd)+sem_Token (Or) =+ (sem_Token_Or)+sem_Token (COr) =+ (sem_Token_COr)+sem_Token (Function) =+ (sem_Token_Function)+sem_Token (Local) =+ (sem_Token_Local)+sem_Token (If) =+ (sem_Token_If)+sem_Token (Then) =+ (sem_Token_Then)+sem_Token (Elseif) =+ (sem_Token_Elseif)+sem_Token (Else) =+ (sem_Token_Else)+sem_Token (For) =+ (sem_Token_For)+sem_Token (In) =+ (sem_Token_In)+sem_Token (Do) =+ (sem_Token_Do)+sem_Token (While) =+ (sem_Token_While)+sem_Token (Until) =+ (sem_Token_Until)+sem_Token (Repeat) =+ (sem_Token_Repeat)+sem_Token (Continue) =+ (sem_Token_Continue)+sem_Token (Break) =+ (sem_Token_Break)+sem_Token (Return) =+ (sem_Token_Return)+sem_Token (End) =+ (sem_Token_End)+sem_Token (LRound) =+ (sem_Token_LRound)+sem_Token (RRound) =+ (sem_Token_RRound)+sem_Token (LCurly) =+ (sem_Token_LCurly)+sem_Token (RCurly) =+ (sem_Token_RCurly)+sem_Token (LSquare) =+ (sem_Token_LSquare)+sem_Token (RSquare) =+ (sem_Token_RSquare)+sem_Token (Label _whitespaceBefore _lbl _whitespaceAfter) =+ (sem_Token_Label _whitespaceBefore _lbl _whitespaceAfter)+sem_Token (Identifier _ident) =+ (sem_Token_Identifier _ident)+-- semantic domain+type T_Token = LineColPos ->+ ( LineColPos,T_Token_1)+type T_Token_1 = SyntaxUsed ->+ LintSettings ->+ SyntaxUsed ->+ SyntaxUsed ->+ Region ->+ SyntaxUsed ->+ SyntaxUsed ->+ SyntaxUsed ->+ SyntaxUsed ->+ SyntaxUsed ->+ ( SyntaxUsed,Token,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,([FilePath -> LintMessage]))+data Inh_Token = Inh_Token {andSyntax_Inh_Token :: SyntaxUsed,config_Inh_Token :: LintSettings,indentation_Inh_Token :: SyntaxUsed,lineCommentSyntax_Inh_Token :: SyntaxUsed,mpos_Inh_Token :: Region,multilineCommentSyntax_Inh_Token :: SyntaxUsed,neqSyntax_Inh_Token :: SyntaxUsed,nextTokenPos_Inh_Token :: LineColPos,notSyntax_Inh_Token :: SyntaxUsed,orSyntax_Inh_Token :: SyntaxUsed,strSyntax_Inh_Token :: SyntaxUsed}+data Syn_Token = Syn_Token {andSyntax_Syn_Token :: SyntaxUsed,copy_Syn_Token :: Token,indentation_Syn_Token :: SyntaxUsed,lineCommentSyntax_Syn_Token :: SyntaxUsed,multilineCommentSyntax_Syn_Token :: SyntaxUsed,neqSyntax_Syn_Token :: SyntaxUsed,nextTokenPos_Syn_Token :: LineColPos,notSyntax_Syn_Token :: SyntaxUsed,orSyntax_Syn_Token :: SyntaxUsed,strSyntax_Syn_Token :: SyntaxUsed,warnings_Syn_Token :: ([FilePath -> LintMessage])}+wrap_Token :: T_Token ->+ Inh_Token ->+ Syn_Token+wrap_Token sem (Inh_Token _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImpos _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax) =+ (let ( _lhsOnextTokenPos,sem_1) = sem _lhsInextTokenPos+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) = sem_1 _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImpos _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax+ in (Syn_Token _lhsOandSyntax _lhsOcopy _lhsOindentation _lhsOlineCommentSyntax _lhsOmultilineCommentSyntax _lhsOneqSyntax _lhsOnextTokenPos _lhsOnotSyntax _lhsOorSyntax _lhsOstrSyntax _lhsOwarnings))+sem_Token_Whitespace :: String ->+ T_Token+sem_Token_Whitespace space_ =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 164 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInextTokenPos+ {-# LINE 755 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _curTokenPos ->+ (case (({-# LINE 165 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceStr _curTokenPos space_+ {-# LINE 760 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _nextTokenPos ->+ (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}+ _nextTokenPos+ {-# LINE 765 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Whitespace_1 :: T_Token_1+ sem_Token_Whitespace_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 782 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Whitespace space_+ {-# LINE 787 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 792 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 177 "src/GLuaFixer/AG/LexLint.ag" #-}+ Region (indentationStart _curTokenPos space_) _nextTokenPos+ {-# LINE 797 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _indentationRg ->+ (case (({-# LINE 168 "src/GLuaFixer/AG/LexLint.ag" #-}+ mkSyntax (isInfixOf "\n\t" space_) _indentationRg+ {-# LINE 802 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _usesTabs ->+ (case (({-# LINE 167 "src/GLuaFixer/AG/LexLint.ag" #-}+ mkSyntax (isInfixOf "\n " space_) _indentationRg+ {-# LINE 807 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _usesSpaces ->+ (case (({-# LINE 169 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation <> SyntaxUsed _usesSpaces _usesTabs+ {-# LINE 812 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _combinedSyntaxUsed ->+ (case (({-# LINE 170 "src/GLuaFixer/AG/LexLint.ag" #-}+ resetIfInconsistent _combinedSyntaxUsed+ {-# LINE 817 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _indentation ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _indentation+ {-# LINE 822 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 827 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 832 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 837 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 842 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 847 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 852 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 857 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_syn ->+ (case (({-# LINE 173 "src/GLuaFixer/AG/LexLint.ag" #-}+ locateTrailingWhitespace _curTokenPos space_+ {-# LINE 862 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _whitespaceStart ->+ (case (({-# LINE 174 "src/GLuaFixer/AG/LexLint.ag" #-}+ endOfTrailingWhitespace _whitespaceStart+ {-# LINE 867 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _whitespaceEnd ->+ (case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-}+ if not (lint_trailingWhitespace _lhsIconfig) || (not (isInfixOf " \n" space_) && not (isInfixOf "\t\n" space_)) then id else (:) $ mTokenWarning (Region (fst _whitespaceStart ) _whitespaceEnd ) TrailingWhitespace+ {-# LINE 872 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_f2 ->+ (case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-}+ if not (lint_whitespaceStyle _lhsIconfig) then id else+ warnInconsistency _combinedSyntaxUsed InconsistentTabsSpaces+ {-# LINE 878 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_f1 ->+ (case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-}+ foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2]+ {-# LINE 883 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Whitespace_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }) }))+sem_Token_DashComment :: String ->+ T_Token+sem_Token_DashComment comment_ =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ DashComment comment_+ {-# LINE 896 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 185 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 901 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _nextTokenPos ->+ (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}+ _nextTokenPos+ {-# LINE 906 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_DashComment_1 :: T_Token_1+ sem_Token_DashComment_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 923 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 928 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 933 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 187 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax <> SyntaxUsed (Just _lhsImpos) Nothing+ {-# LINE 938 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _combinedSyntaxUsed ->+ (case (({-# LINE 188 "src/GLuaFixer/AG/LexLint.ag" #-}+ resetIfInconsistent _combinedSyntaxUsed+ {-# LINE 943 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lineCommentSyntax ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lineCommentSyntax+ {-# LINE 948 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 953 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 958 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 963 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 968 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 973 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 189 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 978 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_syn ->+ (case (({-# LINE 189 "src/GLuaFixer/AG/LexLint.ag" #-}+ if not (lint_syntaxInconsistencies _lhsIconfig) then id else+ warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "--" "//"+ {-# LINE 984 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_f1 ->+ (case (({-# LINE 189 "src/GLuaFixer/AG/LexLint.ag" #-}+ foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]+ {-# LINE 989 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_DashComment_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }) }))+sem_Token_DashBlockComment :: Int ->+ String ->+ T_Token+sem_Token_DashBlockComment depth_ comment_ =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 202 "src/GLuaFixer/AG/LexLint.ag" #-}+ showString "--[" . showString (replicate depth_ '-') . showChar '[' . showString comment_ . showChar ']' . showString (replicate depth_ '-') . showChar ']' $ ""+ {-# LINE 1003 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _str ->+ (case (({-# LINE 203 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceStr _lhsInextTokenPos _str+ {-# LINE 1008 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_DashBlockComment_1 :: T_Token_1+ sem_Token_DashBlockComment_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 1025 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ DashBlockComment depth_ comment_+ {-# LINE 1030 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 1035 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 1040 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 1045 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 205 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax <> SyntaxUsed (Just _lhsImpos) Nothing+ {-# LINE 1050 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _combinedSyntaxUsed ->+ (case (({-# LINE 206 "src/GLuaFixer/AG/LexLint.ag" #-}+ resetIfInconsistent _combinedSyntaxUsed+ {-# LINE 1055 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _multilineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _multilineCommentSyntax+ {-# LINE 1060 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 1065 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 1070 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 1075 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 1080 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 207 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 1085 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_syn ->+ (case (({-# LINE 207 "src/GLuaFixer/AG/LexLint.ag" #-}+ if not (lint_syntaxInconsistencies _lhsIconfig) then id else+ warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "--[[ ]]" "/* */"+ {-# LINE 1091 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_f1 ->+ (case (({-# LINE 207 "src/GLuaFixer/AG/LexLint.ag" #-}+ foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]+ {-# LINE 1096 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_DashBlockComment_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_SlashComment :: String ->+ T_Token+sem_Token_SlashComment comment_ =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ SlashComment comment_+ {-# LINE 1109 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 193 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 1114 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _nextTokenPos ->+ (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-}+ _nextTokenPos+ {-# LINE 1119 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_SlashComment_1 :: T_Token_1+ sem_Token_SlashComment_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 1136 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 1141 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 1146 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 195 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax <> SyntaxUsed Nothing (Just _lhsImpos)+ {-# LINE 1151 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _combinedSyntaxUsed ->+ (case (({-# LINE 196 "src/GLuaFixer/AG/LexLint.ag" #-}+ resetIfInconsistent _combinedSyntaxUsed+ {-# LINE 1156 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lineCommentSyntax ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lineCommentSyntax+ {-# LINE 1161 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 1166 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 1171 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 1176 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 1181 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 1186 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 197 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 1191 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_syn ->+ (case (({-# LINE 197 "src/GLuaFixer/AG/LexLint.ag" #-}+ if not (lint_syntaxInconsistencies _lhsIconfig) then id else+ warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "//" "--"+ {-# LINE 1197 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_f1 ->+ (case (({-# LINE 197 "src/GLuaFixer/AG/LexLint.ag" #-}+ foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]+ {-# LINE 1202 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_SlashComment_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }) }))+sem_Token_SlashBlockComment :: String ->+ T_Token+sem_Token_SlashBlockComment comment_ =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 211 "src/GLuaFixer/AG/LexLint.ag" #-}+ showString "/*" . showString comment_ . showString "*/" $ ""+ {-# LINE 1215 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _str ->+ (case (({-# LINE 212 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceStr _lhsInextTokenPos _str+ {-# LINE 1220 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_SlashBlockComment_1 :: T_Token_1+ sem_Token_SlashBlockComment_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 1237 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ SlashBlockComment comment_+ {-# LINE 1242 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 1247 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 1252 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 1257 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 214 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax <> SyntaxUsed Nothing (Just _lhsImpos)+ {-# LINE 1262 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _combinedSyntaxUsed ->+ (case (({-# LINE 215 "src/GLuaFixer/AG/LexLint.ag" #-}+ resetIfInconsistent _combinedSyntaxUsed+ {-# LINE 1267 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _multilineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _multilineCommentSyntax+ {-# LINE 1272 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 1277 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 1282 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 1287 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 1292 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 216 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 1297 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_syn ->+ (case (({-# LINE 216 "src/GLuaFixer/AG/LexLint.ag" #-}+ if not (lint_syntaxInconsistencies _lhsIconfig) then id else+ warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "/* */" "--[[ ]]"+ {-# LINE 1303 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_f1 ->+ (case (({-# LINE 216 "src/GLuaFixer/AG/LexLint.ag" #-}+ foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]+ {-# LINE 1308 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_SlashBlockComment_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Semicolon :: T_Token+sem_Token_Semicolon =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Semicolon+ {-# LINE 1320 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 1325 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Semicolon_1 :: T_Token_1+ sem_Token_Semicolon_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 1342 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 1347 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 1352 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 1357 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 1362 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 1367 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 1372 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 1377 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 1382 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 1387 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Semicolon_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_TNumber :: String ->+ T_Token+sem_Token_TNumber num_ =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ TNumber num_+ {-# LINE 1400 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 1405 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_TNumber_1 :: T_Token_1+ sem_Token_TNumber_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 1422 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 1427 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 1432 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 1437 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 1442 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 1447 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 1452 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 1457 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 1462 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 1467 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_TNumber_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_DQString :: String ->+ T_Token+sem_Token_DQString str_ =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 224 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceStr _lhsInextTokenPos $ "\"" <> str_ <> "\""+ {-# LINE 1480 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_DQString_1 :: T_Token_1+ sem_Token_DQString_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 1497 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ DQString str_+ {-# LINE 1502 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 1507 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 1512 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 1517 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 1522 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 1527 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 1532 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 1537 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 226 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax <> SyntaxUsed (Just _lhsImpos) Nothing+ {-# LINE 1542 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _combinedSyntaxUsed ->+ (case (({-# LINE 227 "src/GLuaFixer/AG/LexLint.ag" #-}+ resetIfInconsistent _combinedSyntaxUsed+ {-# LINE 1547 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _strSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _strSyntax+ {-# LINE 1552 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 228 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 1557 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_syn ->+ (case (({-# LINE 228 "src/GLuaFixer/AG/LexLint.ag" #-}+ if not (lint_syntaxInconsistencies _lhsIconfig) then id else+ warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "double quoted strings" "single quoted strings"+ {-# LINE 1563 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_f1 ->+ (case (({-# LINE 228 "src/GLuaFixer/AG/LexLint.ag" #-}+ foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]+ {-# LINE 1568 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_DQString_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }))+sem_Token_SQString :: String ->+ T_Token+sem_Token_SQString str_ =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 233 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceStr _lhsInextTokenPos $ "'" <> str_ <> "'"+ {-# LINE 1581 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_SQString_1 :: T_Token_1+ sem_Token_SQString_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 1598 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ SQString str_+ {-# LINE 1603 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 1608 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 1613 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 1618 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 1623 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 1628 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 1633 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 1638 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 236 "src/GLuaFixer/AG/LexLint.ag" #-}+ if isSingleChar str_ then Nothing else Just _lhsImpos+ {-# LINE 1643 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _usesSingleQuotedSyntax ->+ (case (({-# LINE 237 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax <> SyntaxUsed Nothing _usesSingleQuotedSyntax+ {-# LINE 1648 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _combinedSyntaxUsed ->+ (case (({-# LINE 238 "src/GLuaFixer/AG/LexLint.ag" #-}+ resetIfInconsistent _combinedSyntaxUsed+ {-# LINE 1653 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _strSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _strSyntax+ {-# LINE 1658 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 239 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 1663 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_syn ->+ (case (({-# LINE 239 "src/GLuaFixer/AG/LexLint.ag" #-}+ if not (lint_syntaxInconsistencies _lhsIconfig) then id else+ warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "single quoted strings" "double quoted strings"+ {-# LINE 1669 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_f1 ->+ (case (({-# LINE 239 "src/GLuaFixer/AG/LexLint.ag" #-}+ foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]+ {-# LINE 1674 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_SQString_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }))+sem_Token_MLString :: String ->+ T_Token+sem_Token_MLString str_ =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 243 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceStr _lhsInextTokenPos str_+ {-# LINE 1687 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_MLString_1 :: T_Token_1+ sem_Token_MLString_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 1704 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ MLString str_+ {-# LINE 1709 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 1714 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 1719 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 1724 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 1729 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 1734 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 1739 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 1744 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 1749 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 1754 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_MLString_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }))+sem_Token_TTrue :: T_Token+sem_Token_TTrue =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ TTrue+ {-# LINE 1766 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 1771 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_TTrue_1 :: T_Token_1+ sem_Token_TTrue_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 1788 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 1793 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 1798 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 1803 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 1808 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 1813 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 1818 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 1823 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 1828 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 1833 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_TTrue_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_TFalse :: T_Token+sem_Token_TFalse =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ TFalse+ {-# LINE 1845 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 1850 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_TFalse_1 :: T_Token_1+ sem_Token_TFalse_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 1867 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 1872 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 1877 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 1882 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 1887 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 1892 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 1897 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 1902 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 1907 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 1912 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_TFalse_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Nil :: T_Token+sem_Token_Nil =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Nil+ {-# LINE 1924 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 1929 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Nil_1 :: T_Token_1+ sem_Token_Nil_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 1946 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 1951 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 1956 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 1961 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 1966 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 1971 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 1976 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 1981 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 1986 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 1991 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Nil_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_VarArg :: T_Token+sem_Token_VarArg =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ VarArg+ {-# LINE 2003 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 2008 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_VarArg_1 :: T_Token_1+ sem_Token_VarArg_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 2025 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 2030 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 2035 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 2040 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 2045 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 2050 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 2055 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 2060 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 2065 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 2070 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_VarArg_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Plus :: T_Token+sem_Token_Plus =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Plus+ {-# LINE 2082 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 2087 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Plus_1 :: T_Token_1+ sem_Token_Plus_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 2104 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 2109 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 2114 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 2119 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 2124 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 2129 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 2134 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 2139 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 2144 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 2149 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Plus_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Minus :: T_Token+sem_Token_Minus =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Minus+ {-# LINE 2161 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 2166 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Minus_1 :: T_Token_1+ sem_Token_Minus_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 2183 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 2188 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 2193 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 2198 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 2203 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 2208 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 2213 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 2218 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 2223 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 2228 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Minus_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Multiply :: T_Token+sem_Token_Multiply =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Multiply+ {-# LINE 2240 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 2245 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Multiply_1 :: T_Token_1+ sem_Token_Multiply_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 2262 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 2267 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 2272 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 2277 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 2282 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 2287 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 2292 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 2297 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 2302 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 2307 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Multiply_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Divide :: T_Token+sem_Token_Divide =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Divide+ {-# LINE 2319 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 2324 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Divide_1 :: T_Token_1+ sem_Token_Divide_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 2341 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 2346 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 2351 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 2356 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 2361 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 2366 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 2371 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 2376 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 2381 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 2386 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Divide_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Modulus :: T_Token+sem_Token_Modulus =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Modulus+ {-# LINE 2398 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 2403 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Modulus_1 :: T_Token_1+ sem_Token_Modulus_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 2420 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 2425 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 2430 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 2435 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 2440 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 2445 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 2450 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 2455 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 2460 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 2465 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Modulus_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Power :: T_Token+sem_Token_Power =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Power+ {-# LINE 2477 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 2482 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Power_1 :: T_Token_1+ sem_Token_Power_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 2499 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 2504 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 2509 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 2514 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 2519 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 2524 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 2529 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 2534 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 2539 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 2544 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Power_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_TEq :: T_Token+sem_Token_TEq =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ TEq+ {-# LINE 2556 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 2561 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_TEq_1 :: T_Token_1+ sem_Token_TEq_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 2578 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 2583 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 2588 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 2593 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 2598 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 2603 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 2608 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 2613 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 2618 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 2623 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_TEq_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_TNEq :: T_Token+sem_Token_TNEq =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ TNEq+ {-# LINE 2635 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 2640 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_TNEq_1 :: T_Token_1+ sem_Token_TNEq_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 2657 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 2662 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 2667 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 2672 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 2677 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 282 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax <> SyntaxUsed (Just _lhsImpos) Nothing+ {-# LINE 2682 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _combinedSyntaxUsed ->+ (case (({-# LINE 283 "src/GLuaFixer/AG/LexLint.ag" #-}+ resetIfInconsistent _combinedSyntaxUsed+ {-# LINE 2687 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _neqSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _neqSyntax+ {-# LINE 2692 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 2697 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 2702 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 2707 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 284 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 2712 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_syn ->+ (case (({-# LINE 284 "src/GLuaFixer/AG/LexLint.ag" #-}+ if not (lint_syntaxInconsistencies _lhsIconfig) then id else+ warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "~=" "!="+ {-# LINE 2718 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_f1 ->+ (case (({-# LINE 284 "src/GLuaFixer/AG/LexLint.ag" #-}+ foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]+ {-# LINE 2723 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_TNEq_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_TCNEq :: T_Token+sem_Token_TCNEq =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ TCNEq+ {-# LINE 2735 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 2740 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_TCNEq_1 :: T_Token_1+ sem_Token_TCNEq_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 2757 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 2762 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 2767 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 2772 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 2777 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 288 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax <> SyntaxUsed Nothing (Just _lhsImpos)+ {-# LINE 2782 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _combinedSyntaxUsed ->+ (case (({-# LINE 289 "src/GLuaFixer/AG/LexLint.ag" #-}+ resetIfInconsistent _combinedSyntaxUsed+ {-# LINE 2787 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _neqSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _neqSyntax+ {-# LINE 2792 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 2797 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 2802 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 2807 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 290 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 2812 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_syn ->+ (case (({-# LINE 290 "src/GLuaFixer/AG/LexLint.ag" #-}+ if not (lint_syntaxInconsistencies _lhsIconfig) then id else+ warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "!=" "~="+ {-# LINE 2818 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_f1 ->+ (case (({-# LINE 290 "src/GLuaFixer/AG/LexLint.ag" #-}+ foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]+ {-# LINE 2823 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_TCNEq_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_TLEQ :: T_Token+sem_Token_TLEQ =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ TLEQ+ {-# LINE 2835 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 2840 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_TLEQ_1 :: T_Token_1+ sem_Token_TLEQ_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 2857 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 2862 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 2867 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 2872 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 2877 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 2882 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 2887 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 2892 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 2897 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 2902 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_TLEQ_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_TGEQ :: T_Token+sem_Token_TGEQ =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ TGEQ+ {-# LINE 2914 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 2919 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_TGEQ_1 :: T_Token_1+ sem_Token_TGEQ_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 2936 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 2941 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 2946 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 2951 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 2956 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 2961 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 2966 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 2971 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 2976 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 2981 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_TGEQ_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_TLT :: T_Token+sem_Token_TLT =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ TLT+ {-# LINE 2993 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 2998 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_TLT_1 :: T_Token_1+ sem_Token_TLT_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 3015 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 3020 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 3025 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 3030 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 3035 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 3040 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 3045 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 3050 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 3055 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 3060 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_TLT_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_TGT :: T_Token+sem_Token_TGT =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ TGT+ {-# LINE 3072 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 3077 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_TGT_1 :: T_Token_1+ sem_Token_TGT_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 3094 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 3099 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 3104 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 3109 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 3114 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 3119 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 3124 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 3129 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 3134 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 3139 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_TGT_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Equals :: T_Token+sem_Token_Equals =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Equals+ {-# LINE 3151 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 3156 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Equals_1 :: T_Token_1+ sem_Token_Equals_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 3173 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 3178 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 3183 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 3188 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 3193 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 3198 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 3203 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 3208 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 3213 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 3218 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Equals_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Concatenate :: T_Token+sem_Token_Concatenate =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Concatenate+ {-# LINE 3230 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 3235 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Concatenate_1 :: T_Token_1+ sem_Token_Concatenate_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 3252 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 3257 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 3262 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 3267 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 3272 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 3277 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 3282 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 3287 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 3292 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 3297 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Concatenate_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Colon :: T_Token+sem_Token_Colon =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Colon+ {-# LINE 3309 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 3314 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Colon_1 :: T_Token_1+ sem_Token_Colon_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 3331 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 3336 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 3341 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 3346 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 3351 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 3356 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 3361 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 3366 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 3371 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 3376 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Colon_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Dot :: T_Token+sem_Token_Dot =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Dot+ {-# LINE 3388 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 3393 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Dot_1 :: T_Token_1+ sem_Token_Dot_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 3410 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 3415 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 3420 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 3425 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 3430 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 3435 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 3440 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 3445 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 3450 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 3455 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Dot_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Comma :: T_Token+sem_Token_Comma =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Comma+ {-# LINE 3467 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 3472 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Comma_1 :: T_Token_1+ sem_Token_Comma_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 3489 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 3494 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 3499 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 3504 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 3509 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 3514 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 3519 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 3524 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 3529 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 3534 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Comma_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Hash :: T_Token+sem_Token_Hash =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Hash+ {-# LINE 3546 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 3551 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Hash_1 :: T_Token_1+ sem_Token_Hash_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 3568 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 3573 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 3578 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 3583 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 3588 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 3593 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 3598 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 3603 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 3608 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 3613 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Hash_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Not :: T_Token+sem_Token_Not =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Not+ {-# LINE 3625 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 3630 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Not_1 :: T_Token_1+ sem_Token_Not_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 3647 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 3652 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 3657 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 3662 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 3667 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 3672 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 246 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax <> SyntaxUsed (Just _lhsImpos) Nothing+ {-# LINE 3677 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _combinedSyntaxUsed ->+ (case (({-# LINE 247 "src/GLuaFixer/AG/LexLint.ag" #-}+ resetIfInconsistent _combinedSyntaxUsed+ {-# LINE 3682 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _notSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _notSyntax+ {-# LINE 3687 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 3692 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 3697 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 248 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 3702 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_syn ->+ (case (({-# LINE 248 "src/GLuaFixer/AG/LexLint.ag" #-}+ if not (lint_syntaxInconsistencies _lhsIconfig) then id else+ warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "not" "!"+ {-# LINE 3708 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_f1 ->+ (case (({-# LINE 248 "src/GLuaFixer/AG/LexLint.ag" #-}+ foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]+ {-# LINE 3713 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Not_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_CNot :: T_Token+sem_Token_CNot =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ CNot+ {-# LINE 3725 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 3730 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_CNot_1 :: T_Token_1+ sem_Token_CNot_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 3747 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 3752 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 3757 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 3762 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 3767 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 3772 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 252 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax <> SyntaxUsed Nothing (Just _lhsImpos)+ {-# LINE 3777 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _combinedSyntaxUsed ->+ (case (({-# LINE 253 "src/GLuaFixer/AG/LexLint.ag" #-}+ resetIfInconsistent _combinedSyntaxUsed+ {-# LINE 3782 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _notSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _notSyntax+ {-# LINE 3787 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 3792 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 3797 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 254 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 3802 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_syn ->+ (case (({-# LINE 254 "src/GLuaFixer/AG/LexLint.ag" #-}+ if not (lint_syntaxInconsistencies _lhsIconfig) then id else+ warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "!" "not"+ {-# LINE 3808 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_f1 ->+ (case (({-# LINE 254 "src/GLuaFixer/AG/LexLint.ag" #-}+ foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]+ {-# LINE 3813 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_CNot_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_And :: T_Token+sem_Token_And =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ And+ {-# LINE 3825 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 3830 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_And_1 :: T_Token_1+ sem_Token_And_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 258 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax <> SyntaxUsed (Just _lhsImpos) Nothing+ {-# LINE 3847 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _combinedSyntaxUsed ->+ (case (({-# LINE 259 "src/GLuaFixer/AG/LexLint.ag" #-}+ resetIfInconsistent _combinedSyntaxUsed+ {-# LINE 3852 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _andSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _andSyntax+ {-# LINE 3857 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 3862 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 3867 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 3872 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 3877 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 3882 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 3887 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 3892 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 3897 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 260 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 3902 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_syn ->+ (case (({-# LINE 260 "src/GLuaFixer/AG/LexLint.ag" #-}+ if not (lint_syntaxInconsistencies _lhsIconfig) then id else+ warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "and" "&&"+ {-# LINE 3908 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_f1 ->+ (case (({-# LINE 260 "src/GLuaFixer/AG/LexLint.ag" #-}+ foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]+ {-# LINE 3913 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_And_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_CAnd :: T_Token+sem_Token_CAnd =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ CAnd+ {-# LINE 3925 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 3930 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_CAnd_1 :: T_Token_1+ sem_Token_CAnd_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 264 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax <> SyntaxUsed Nothing (Just _lhsImpos)+ {-# LINE 3947 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _combinedSyntaxUsed ->+ (case (({-# LINE 265 "src/GLuaFixer/AG/LexLint.ag" #-}+ resetIfInconsistent _combinedSyntaxUsed+ {-# LINE 3952 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _andSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _andSyntax+ {-# LINE 3957 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 3962 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 3967 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 3972 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 3977 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 3982 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 3987 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 3992 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 3997 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 266 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 4002 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_syn ->+ (case (({-# LINE 266 "src/GLuaFixer/AG/LexLint.ag" #-}+ if not (lint_syntaxInconsistencies _lhsIconfig) then id else+ warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "&&" "and"+ {-# LINE 4008 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_f1 ->+ (case (({-# LINE 266 "src/GLuaFixer/AG/LexLint.ag" #-}+ foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]+ {-# LINE 4013 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_CAnd_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Or :: T_Token+sem_Token_Or =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Or+ {-# LINE 4025 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 4030 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Or_1 :: T_Token_1+ sem_Token_Or_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 4047 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 4052 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 4057 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 4062 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 4067 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 4072 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 4077 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 270 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax <> SyntaxUsed (Just _lhsImpos) Nothing+ {-# LINE 4082 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _combinedSyntaxUsed ->+ (case (({-# LINE 271 "src/GLuaFixer/AG/LexLint.ag" #-}+ resetIfInconsistent _combinedSyntaxUsed+ {-# LINE 4087 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _orSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _orSyntax+ {-# LINE 4092 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 4097 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 272 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 4102 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_syn ->+ (case (({-# LINE 272 "src/GLuaFixer/AG/LexLint.ag" #-}+ if not (lint_syntaxInconsistencies _lhsIconfig) then id else+ warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "or" "||"+ {-# LINE 4108 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_f1 ->+ (case (({-# LINE 272 "src/GLuaFixer/AG/LexLint.ag" #-}+ foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]+ {-# LINE 4113 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Or_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_COr :: T_Token+sem_Token_COr =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ COr+ {-# LINE 4125 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 4130 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_COr_1 :: T_Token_1+ sem_Token_COr_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 4147 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 4152 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 4157 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 4162 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 4167 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 4172 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 4177 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 276 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax <> SyntaxUsed Nothing (Just _lhsImpos)+ {-# LINE 4182 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _combinedSyntaxUsed ->+ (case (({-# LINE 277 "src/GLuaFixer/AG/LexLint.ag" #-}+ resetIfInconsistent _combinedSyntaxUsed+ {-# LINE 4187 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _orSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _orSyntax+ {-# LINE 4192 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 4197 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 278 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 4202 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_syn ->+ (case (({-# LINE 278 "src/GLuaFixer/AG/LexLint.ag" #-}+ if not (lint_syntaxInconsistencies _lhsIconfig) then id else+ warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "||" "or"+ {-# LINE 4208 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _warnings_augmented_f1 ->+ (case (({-# LINE 278 "src/GLuaFixer/AG/LexLint.ag" #-}+ foldr ($) _warnings_augmented_syn [_warnings_augmented_f1]+ {-# LINE 4213 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_COr_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Function :: T_Token+sem_Token_Function =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Function+ {-# LINE 4225 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 4230 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Function_1 :: T_Token_1+ sem_Token_Function_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 4247 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 4252 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 4257 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 4262 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 4267 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 4272 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 4277 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 4282 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 4287 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 4292 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Function_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Local :: T_Token+sem_Token_Local =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Local+ {-# LINE 4304 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 4309 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Local_1 :: T_Token_1+ sem_Token_Local_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 4326 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 4331 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 4336 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 4341 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 4346 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 4351 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 4356 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 4361 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 4366 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 4371 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Local_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_If :: T_Token+sem_Token_If =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ If+ {-# LINE 4383 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 4388 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_If_1 :: T_Token_1+ sem_Token_If_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 4405 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 4410 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 4415 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 4420 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 4425 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 4430 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 4435 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 4440 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 4445 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 4450 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_If_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Then :: T_Token+sem_Token_Then =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Then+ {-# LINE 4462 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 4467 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Then_1 :: T_Token_1+ sem_Token_Then_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 4484 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 4489 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 4494 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 4499 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 4504 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 4509 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 4514 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 4519 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 4524 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 4529 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Then_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Elseif :: T_Token+sem_Token_Elseif =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Elseif+ {-# LINE 4541 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 4546 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Elseif_1 :: T_Token_1+ sem_Token_Elseif_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 4563 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 4568 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 4573 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 4578 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 4583 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 4588 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 4593 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 4598 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 4603 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 4608 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Elseif_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Else :: T_Token+sem_Token_Else =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Else+ {-# LINE 4620 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 4625 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Else_1 :: T_Token_1+ sem_Token_Else_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 4642 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 4647 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 4652 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 4657 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 4662 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 4667 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 4672 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 4677 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 4682 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 4687 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Else_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_For :: T_Token+sem_Token_For =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ For+ {-# LINE 4699 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 4704 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_For_1 :: T_Token_1+ sem_Token_For_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 4721 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 4726 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 4731 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 4736 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 4741 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 4746 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 4751 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 4756 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 4761 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 4766 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_For_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_In :: T_Token+sem_Token_In =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ In+ {-# LINE 4778 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 4783 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_In_1 :: T_Token_1+ sem_Token_In_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 4800 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 4805 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 4810 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 4815 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 4820 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 4825 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 4830 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 4835 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 4840 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 4845 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_In_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Do :: T_Token+sem_Token_Do =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Do+ {-# LINE 4857 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 4862 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Do_1 :: T_Token_1+ sem_Token_Do_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 4879 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 4884 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 4889 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 4894 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 4899 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 4904 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 4909 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 4914 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 4919 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 4924 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Do_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_While :: T_Token+sem_Token_While =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ While+ {-# LINE 4936 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 4941 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_While_1 :: T_Token_1+ sem_Token_While_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 4958 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 4963 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 4968 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 4973 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 4978 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 4983 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 4988 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 4993 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 4998 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 5003 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_While_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Until :: T_Token+sem_Token_Until =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Until+ {-# LINE 5015 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 5020 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Until_1 :: T_Token_1+ sem_Token_Until_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 5037 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 5042 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 5047 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 5052 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 5057 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 5062 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 5067 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 5072 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 5077 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 5082 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Until_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Repeat :: T_Token+sem_Token_Repeat =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Repeat+ {-# LINE 5094 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 5099 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Repeat_1 :: T_Token_1+ sem_Token_Repeat_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 5116 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 5121 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 5126 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 5131 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 5136 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 5141 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 5146 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 5151 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 5156 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 5161 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Repeat_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Continue :: T_Token+sem_Token_Continue =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Continue+ {-# LINE 5173 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 5178 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Continue_1 :: T_Token_1+ sem_Token_Continue_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 5195 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 5200 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 5205 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 5210 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 5215 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 5220 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 5225 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 5230 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 5235 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 5240 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Continue_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Break :: T_Token+sem_Token_Break =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Break+ {-# LINE 5252 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 5257 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Break_1 :: T_Token_1+ sem_Token_Break_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 5274 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 5279 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 5284 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 5289 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 5294 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 5299 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 5304 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 5309 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 5314 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 5319 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Break_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Return :: T_Token+sem_Token_Return =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Return+ {-# LINE 5331 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 5336 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Return_1 :: T_Token_1+ sem_Token_Return_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 5353 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 5358 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 5363 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 5368 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 5373 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 5378 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 5383 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 5388 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 5393 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 5398 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Return_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_End :: T_Token+sem_Token_End =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ End+ {-# LINE 5410 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 5415 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_End_1 :: T_Token_1+ sem_Token_End_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 5432 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 5437 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 5442 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 5447 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 5452 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 5457 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 5462 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 5467 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 5472 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 5477 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_End_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_LRound :: T_Token+sem_Token_LRound =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ LRound+ {-# LINE 5489 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 5494 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_LRound_1 :: T_Token_1+ sem_Token_LRound_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 5511 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 5516 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 5521 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 5526 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 5531 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 5536 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 5541 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 5546 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 5551 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 5556 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_LRound_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_RRound :: T_Token+sem_Token_RRound =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ RRound+ {-# LINE 5568 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 5573 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_RRound_1 :: T_Token_1+ sem_Token_RRound_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 5590 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 5595 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 5600 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 5605 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 5610 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 5615 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 5620 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 5625 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 5630 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 5635 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_RRound_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_LCurly :: T_Token+sem_Token_LCurly =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ LCurly+ {-# LINE 5647 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 5652 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_LCurly_1 :: T_Token_1+ sem_Token_LCurly_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 5669 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 5674 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 5679 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 5684 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 5689 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 5694 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 5699 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 5704 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 5709 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 5714 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_LCurly_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_RCurly :: T_Token+sem_Token_RCurly =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ RCurly+ {-# LINE 5726 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 5731 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_RCurly_1 :: T_Token_1+ sem_Token_RCurly_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 5748 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 5753 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 5758 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 5763 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 5768 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 5773 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 5778 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 5783 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 5788 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 5793 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_RCurly_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_LSquare :: T_Token+sem_Token_LSquare =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ LSquare+ {-# LINE 5805 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 5810 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_LSquare_1 :: T_Token_1+ sem_Token_LSquare_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 5827 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 5832 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 5837 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 5842 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 5847 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 5852 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 5857 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 5862 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 5867 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 5872 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_LSquare_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_RSquare :: T_Token+sem_Token_RSquare =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ RSquare+ {-# LINE 5884 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 5889 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_RSquare_1 :: T_Token_1+ sem_Token_RSquare_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 5906 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 5911 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 5916 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 5921 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 5926 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 5931 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 5936 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 5941 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 5946 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 5951 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_RSquare_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Label :: String ->+ String ->+ String ->+ T_Token+sem_Token_Label whitespaceBefore_ lbl_ whitespaceAfter_ =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Label whitespaceBefore_ lbl_ whitespaceAfter_+ {-# LINE 5966 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 294 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceStr _lhsInextTokenPos (show _copy )+ {-# LINE 5971 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Label_1 :: T_Token_1+ sem_Token_Label_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 5988 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 5993 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 5998 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 6003 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 6008 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 6013 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 6018 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 6023 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 6028 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 6033 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOwarnings ->+ ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))+ in sem_Token_Label_1)) of+ { ( sem_Token_1) ->+ ( _lhsOnextTokenPos,sem_Token_1) }) }) }))+sem_Token_Identifier :: String ->+ T_Token+sem_Token_Identifier ident_ =+ (\ _lhsInextTokenPos ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ Identifier ident_+ {-# LINE 6046 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _copy ->+ (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-}+ customAdvanceToken _lhsInextTokenPos _copy+ {-# LINE 6051 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnextTokenPos ->+ (case ((let sem_Token_Identifier_1 :: T_Token_1+ sem_Token_Identifier_1 =+ (\ _lhsIandSyntax+ _lhsIconfig+ _lhsIindentation+ _lhsIlineCommentSyntax+ _lhsImpos+ _lhsImultilineCommentSyntax+ _lhsIneqSyntax+ _lhsInotSyntax+ _lhsIorSyntax+ _lhsIstrSyntax ->+ (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIandSyntax+ {-# LINE 6068 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOandSyntax ->+ (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-}+ _copy+ {-# LINE 6073 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOcopy ->+ (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIindentation+ {-# LINE 6078 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOindentation ->+ (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIlineCommentSyntax+ {-# LINE 6083 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOlineCommentSyntax ->+ (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsImultilineCommentSyntax+ {-# LINE 6088 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOmultilineCommentSyntax ->+ (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIneqSyntax+ {-# LINE 6093 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOneqSyntax ->+ (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsInotSyntax+ {-# LINE 6098 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOnotSyntax ->+ (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIorSyntax+ {-# LINE 6103 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOorSyntax ->+ (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-}+ _lhsIstrSyntax+ {-# LINE 6108 "src/GLuaFixer/AG/LexLint.hs" #-}+ )) of+ { _lhsOstrSyntax ->+ (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-}+ []+ {-# LINE 6113 "src/GLuaFixer/AG/LexLint.hs" #-} )) of { _lhsOwarnings -> ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }))
src/GLuaFixer/LintMessage.hs view
@@ -7,8 +7,9 @@ import Data.Aeson import Data.List (sortOn) import Data.Maybe (isJust)-import GLua.AG.PrettyPrint (renderPSError, renderPos, renderRegion)+import GLua.AG.PrettyPrint (renderPos, renderRegion) import GLua.AG.Token (Token)+import GLua.ParseError (renderParseError) import GLua.Position (LineColPos (..), Region (..)) import System.Environment (lookupEnv) import Text.Parsec (ParseError)@@ -128,7 +129,7 @@ issueDescription :: Issue -> String issueDescription = \case- IssueParseError parseError -> renderPSError parseError+ IssueParseError parseError -> renderParseError parseError Deprecated reason -> "Deprecated: " ++ reason Profanity -> "Watch your profanity" BeginnerMistake msg -> msg