{-# LANGUAGE CPP #-}
{-# LANGUAGE DeriveGeneric #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}

-- UUAGC 0.9.55 (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 Text.ParserCombinators.UU.BasicInstances hiding (pos)
{-# LINE 19 "src/GLuaFixer/AG/LexLint.hs" #-}

{-# LINE 15 "src/GLuaFixer/AG/LexLint.ag" #-}

import Data.List
import GLua.AG.Token
import GLua.TokenTypes
import GLuaFixer.LintMessage
import GLuaFixer.LintSettings
{-# LINE 28 "src/GLuaFixer/AG/LexLint.hs" #-}
{-# LINE 25 "src/GLuaFixer/AG/LexLint.ag" #-}

----------------------------------------
--  C-style / Lua-style syntax inconsistencies
----------------------------------------
-- For detecting the usage of Lua/C syntax inconsistently
data SyntaxUsed = SyntaxUsed {luaUsed :: Bool, cUsed :: Bool} deriving (Show)

instance Semigroup SyntaxUsed where
  (SyntaxUsed l1 c1) <> (SyntaxUsed l2 c2) = SyntaxUsed (l1 || l2) (c1 || c2)

-- Monoid instance
instance Monoid SyntaxUsed where
  mempty = SyntaxUsed False False

mTokenWarning :: Region -> Issue -> FilePath -> LintMessage
mTokenWarning pos issue = LintMessage LintWarning pos issue

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 76 "src/GLuaFixer/AG/LexLint.hs" #-}

{-# LINE 237 "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 uu-parsinglib's LineColPos walks over tabs as though they are 8 spaces. Note
-- that this also applies when the code is lexed by the Parsec lexer.
fixedLexPositions :: [MToken] -> [MToken]
fixedLexPositions p = copy_Syn_MTokenList (wrap_MTokenList (sem_MTokenList p) (inh_MTokenList defaultLintSettings))
{-# LINE 104 "src/GLuaFixer/AG/LexLint.hs" #-}
-- MToken ------------------------------------------------------
-- cata
sem_MToken
  :: MToken
  -> T_MToken
sem_MToken :: MToken -> T_MToken
sem_MToken (MToken Region
_mpos Token
_mtok) =
  (T_Region -> T_Token -> T_MToken
sem_MToken_MToken (Region -> T_Region
sem_Region Region
_mpos) (Token -> T_Token
sem_Token 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 {Inh_MToken -> SyntaxUsed
andSyntax_Inh_MToken :: SyntaxUsed, Inh_MToken -> LintSettings
config_Inh_MToken :: LintSettings, Inh_MToken -> SyntaxUsed
indentation_Inh_MToken :: SyntaxUsed, Inh_MToken -> SyntaxUsed
lineCommentSyntax_Inh_MToken :: SyntaxUsed, Inh_MToken -> SyntaxUsed
multilineCommentSyntax_Inh_MToken :: SyntaxUsed, Inh_MToken -> SyntaxUsed
neqSyntax_Inh_MToken :: SyntaxUsed, Inh_MToken -> LineColPos
nextTokenPos_Inh_MToken :: LineColPos, Inh_MToken -> SyntaxUsed
notSyntax_Inh_MToken :: SyntaxUsed, Inh_MToken -> SyntaxUsed
orSyntax_Inh_MToken :: SyntaxUsed, Inh_MToken -> SyntaxUsed
strSyntax_Inh_MToken :: SyntaxUsed}
data Syn_MToken = Syn_MToken {Syn_MToken -> SyntaxUsed
andSyntax_Syn_MToken :: SyntaxUsed, Syn_MToken -> MToken
copy_Syn_MToken :: MToken, Syn_MToken -> SyntaxUsed
indentation_Syn_MToken :: SyntaxUsed, Syn_MToken -> SyntaxUsed
lineCommentSyntax_Syn_MToken :: SyntaxUsed, Syn_MToken -> SyntaxUsed
multilineCommentSyntax_Syn_MToken :: SyntaxUsed, Syn_MToken -> SyntaxUsed
neqSyntax_Syn_MToken :: SyntaxUsed, Syn_MToken -> LineColPos
nextTokenPos_Syn_MToken :: LineColPos, Syn_MToken -> SyntaxUsed
notSyntax_Syn_MToken :: SyntaxUsed, Syn_MToken -> SyntaxUsed
orSyntax_Syn_MToken :: SyntaxUsed, Syn_MToken -> SyntaxUsed
strSyntax_Syn_MToken :: SyntaxUsed, Syn_MToken -> [String -> LintMessage]
warnings_Syn_MToken :: ([FilePath -> LintMessage])}
wrap_MToken
  :: T_MToken
  -> Inh_MToken
  -> Syn_MToken
wrap_MToken :: T_MToken -> Inh_MToken -> Syn_MToken
wrap_MToken T_MToken
sem (Inh_MToken SyntaxUsed
_lhsIandSyntax LintSettings
_lhsIconfig SyntaxUsed
_lhsIindentation SyntaxUsed
_lhsIlineCommentSyntax SyntaxUsed
_lhsImultilineCommentSyntax SyntaxUsed
_lhsIneqSyntax LineColPos
_lhsInextTokenPos SyntaxUsed
_lhsInotSyntax SyntaxUsed
_lhsIorSyntax SyntaxUsed
_lhsIstrSyntax) =
  ( let
      (SyntaxUsed
_lhsOandSyntax, MToken
_lhsOcopy, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [String -> LintMessage]
_lhsOwarnings) = T_MToken
sem SyntaxUsed
_lhsIandSyntax LintSettings
_lhsIconfig SyntaxUsed
_lhsIindentation SyntaxUsed
_lhsIlineCommentSyntax SyntaxUsed
_lhsImultilineCommentSyntax SyntaxUsed
_lhsIneqSyntax LineColPos
_lhsInextTokenPos SyntaxUsed
_lhsInotSyntax SyntaxUsed
_lhsIorSyntax SyntaxUsed
_lhsIstrSyntax
    in
      (SyntaxUsed
-> MToken
-> SyntaxUsed
-> SyntaxUsed
-> SyntaxUsed
-> SyntaxUsed
-> LineColPos
-> SyntaxUsed
-> SyntaxUsed
-> SyntaxUsed
-> [String -> LintMessage]
-> Syn_MToken
Syn_MToken SyntaxUsed
_lhsOandSyntax MToken
_lhsOcopy SyntaxUsed
_lhsOindentation SyntaxUsed
_lhsOlineCommentSyntax SyntaxUsed
_lhsOmultilineCommentSyntax SyntaxUsed
_lhsOneqSyntax LineColPos
_lhsOnextTokenPos SyntaxUsed
_lhsOnotSyntax SyntaxUsed
_lhsOorSyntax SyntaxUsed
_lhsOstrSyntax [String -> LintMessage]
_lhsOwarnings)
  )
sem_MToken_MToken
  :: T_Region
  -> T_Token
  -> T_MToken
sem_MToken_MToken :: T_Region -> T_Token -> T_MToken
sem_MToken_MToken T_Region
mpos_ T_Token
mtok_ =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( LintSettings
_lhsIconfig
                 )
               ) of
            LintSettings
_mtokOconfig ->
              ( case ( ( SyntaxUsed
_lhsIandSyntax
                       )
                     ) of
                  SyntaxUsed
_mposOandSyntax ->
                    ( case ( ( SyntaxUsed
_lhsIstrSyntax
                             )
                           ) of
                        SyntaxUsed
_mposOstrSyntax ->
                          ( case ( ( SyntaxUsed
_lhsIorSyntax
                                   )
                                 ) of
                              SyntaxUsed
_mposOorSyntax ->
                                ( case ( ( SyntaxUsed
_lhsInotSyntax
                                         )
                                       ) of
                                    SyntaxUsed
_mposOnotSyntax ->
                                      ( case ( ( LineColPos
_lhsInextTokenPos
                                               )
                                             ) of
                                          LineColPos
_mposOnextTokenPos ->
                                            ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_mposOneqSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_mposOmultilineCommentSyntax ->
                                                        ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                                                 )
                                                               ) of
                                                            SyntaxUsed
_mposOlineCommentSyntax ->
                                                              ( case ( ( SyntaxUsed
_lhsIindentation
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_mposOindentation ->
                                                                    ( case ( ( LintSettings
_lhsIconfig
                                                                             )
                                                                           ) of
                                                                        LintSettings
_mposOconfig ->
                                                                          ( case (T_Region
mpos_ SyntaxUsed
_mposOandSyntax LintSettings
_mposOconfig SyntaxUsed
_mposOindentation SyntaxUsed
_mposOlineCommentSyntax SyntaxUsed
_mposOmultilineCommentSyntax SyntaxUsed
_mposOneqSyntax LineColPos
_mposOnextTokenPos SyntaxUsed
_mposOnotSyntax SyntaxUsed
_mposOorSyntax SyntaxUsed
_mposOstrSyntax) of
                                                                              (SyntaxUsed
_mposIandSyntax, Region
_mposIcopy, SyntaxUsed
_mposIindentation, SyntaxUsed
_mposIlineCommentSyntax, SyntaxUsed
_mposImultilineCommentSyntax, SyntaxUsed
_mposIneqSyntax, LineColPos
_mposInextTokenPos, SyntaxUsed
_mposInotSyntax, SyntaxUsed
_mposIorSyntax, SyntaxUsed
_mposIstrSyntax, [String -> LintMessage]
_mposIwarnings) ->
                                                                                ( case ( ( SyntaxUsed
_mposIandSyntax
                                                                                         )
                                                                                       ) of
                                                                                    SyntaxUsed
_mtokOandSyntax ->
                                                                                      ( case ( ( SyntaxUsed
_mposIstrSyntax
                                                                                               )
                                                                                             ) of
                                                                                          SyntaxUsed
_mtokOstrSyntax ->
                                                                                            ( case ( ( SyntaxUsed
_mposIorSyntax
                                                                                                     )
                                                                                                   ) of
                                                                                                SyntaxUsed
_mtokOorSyntax ->
                                                                                                  ( case ( ( SyntaxUsed
_mposInotSyntax
                                                                                                           )
                                                                                                         ) of
                                                                                                      SyntaxUsed
_mtokOnotSyntax ->
                                                                                                        ( case ( ( LineColPos
_mposInextTokenPos
                                                                                                                 )
                                                                                                               ) of
                                                                                                            LineColPos
_mtokOnextTokenPos ->
                                                                                                              ( case ( ( SyntaxUsed
_mposIneqSyntax
                                                                                                                       )
                                                                                                                     ) of
                                                                                                                  SyntaxUsed
_mtokOneqSyntax ->
                                                                                                                    ( case ( ( SyntaxUsed
_mposImultilineCommentSyntax
                                                                                                                             )
                                                                                                                           ) of
                                                                                                                        SyntaxUsed
_mtokOmultilineCommentSyntax ->
                                                                                                                          ( case ( ( SyntaxUsed
_mposIlineCommentSyntax
                                                                                                                                   )
                                                                                                                                 ) of
                                                                                                                              SyntaxUsed
_mtokOlineCommentSyntax ->
                                                                                                                                ( case ( ( SyntaxUsed
_mposIindentation
                                                                                                                                         )
                                                                                                                                       ) of
                                                                                                                                    SyntaxUsed
_mtokOindentation ->
                                                                                                                                      ( case (T_Token
mtok_ SyntaxUsed
_mtokOandSyntax LintSettings
_mtokOconfig SyntaxUsed
_mtokOindentation SyntaxUsed
_mtokOlineCommentSyntax SyntaxUsed
_mtokOmultilineCommentSyntax SyntaxUsed
_mtokOneqSyntax LineColPos
_mtokOnextTokenPos SyntaxUsed
_mtokOnotSyntax SyntaxUsed
_mtokOorSyntax SyntaxUsed
_mtokOstrSyntax) of
                                                                                                                                          (SyntaxUsed
_mtokIandSyntax, Token
_mtokIcopy, [String -> LintMessage]
_mtokIcustomWarnings, SyntaxUsed
_mtokIindentation, SyntaxUsed
_mtokIlineCommentSyntax, SyntaxUsed
_mtokImultilineCommentSyntax, SyntaxUsed
_mtokIneqSyntax, LineColPos
_mtokInextTokenPos, SyntaxUsed
_mtokInotSyntax, SyntaxUsed
_mtokIorSyntax, SyntaxUsed
_mtokIstrSyntax, [Issue]
_mtokItokenWarnings, [String -> LintMessage]
_mtokIwarnings) ->
                                                                                                                                            ( case ( ( SyntaxUsed
_mtokIandSyntax
                                                                                                                                                     )
                                                                                                                                                   ) of
                                                                                                                                                SyntaxUsed
_lhsOandSyntax ->
                                                                                                                                                  ( case ( ( LineColPos -> LineColPos -> Region
Region LineColPos
_lhsInextTokenPos (LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_mtokIcopy)
                                                                                                                                                           )
                                                                                                                                                         ) of
                                                                                                                                                      Region
_mpos ->
                                                                                                                                                        ( case ( ( Region -> Token -> MToken
MToken Region
_mpos Token
_mtokIcopy
                                                                                                                                                                 )
                                                                                                                                                               ) of
                                                                                                                                                            MToken
_copy ->
                                                                                                                                                              ( case ( ( MToken
_copy
                                                                                                                                                                       )
                                                                                                                                                                     ) of
                                                                                                                                                                  MToken
_lhsOcopy ->
                                                                                                                                                                    ( case ( ( SyntaxUsed
_mtokIindentation
                                                                                                                                                                             )
                                                                                                                                                                           ) of
                                                                                                                                                                        SyntaxUsed
_lhsOindentation ->
                                                                                                                                                                          ( case ( ( SyntaxUsed
_mtokIlineCommentSyntax
                                                                                                                                                                                   )
                                                                                                                                                                                 ) of
                                                                                                                                                                              SyntaxUsed
_lhsOlineCommentSyntax ->
                                                                                                                                                                                ( case ( ( SyntaxUsed
_mtokImultilineCommentSyntax
                                                                                                                                                                                         )
                                                                                                                                                                                       ) of
                                                                                                                                                                                    SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                                                                                                                                                      ( case ( ( SyntaxUsed
_mtokIneqSyntax
                                                                                                                                                                                               )
                                                                                                                                                                                             ) of
                                                                                                                                                                                          SyntaxUsed
_lhsOneqSyntax ->
                                                                                                                                                                                            ( case ( ( LineColPos
_mtokInextTokenPos
                                                                                                                                                                                                     )
                                                                                                                                                                                                   ) of
                                                                                                                                                                                                LineColPos
_lhsOnextTokenPos ->
                                                                                                                                                                                                  ( case ( ( SyntaxUsed
_mtokInotSyntax
                                                                                                                                                                                                           )
                                                                                                                                                                                                         ) of
                                                                                                                                                                                                      SyntaxUsed
_lhsOnotSyntax ->
                                                                                                                                                                                                        ( case ( ( SyntaxUsed
_mtokIorSyntax
                                                                                                                                                                                                                 )
                                                                                                                                                                                                               ) of
                                                                                                                                                                                                            SyntaxUsed
_lhsOorSyntax ->
                                                                                                                                                                                                              ( case ( ( SyntaxUsed
_mtokIstrSyntax
                                                                                                                                                                                                                       )
                                                                                                                                                                                                                     ) of
                                                                                                                                                                                                                  SyntaxUsed
_lhsOstrSyntax ->
                                                                                                                                                                                                                    ( case ( ( [String -> LintMessage]
_mtokIcustomWarnings forall a. [a] -> [a] -> [a]
++ forall a b. (a -> b) -> [a] -> [b]
map (Region -> Issue -> String -> LintMessage
mTokenWarning Region
_mpos) [Issue]
_mtokItokenWarnings
                                                                                                                                                                                                                             )
                                                                                                                                                                                                                           ) of
                                                                                                                                                                                                                        [String -> LintMessage]
_lhsOwarnings ->
                                                                                                                                                                                                                          (SyntaxUsed
_lhsOandSyntax, MToken
_lhsOcopy, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [String -> LintMessage]
_lhsOwarnings)
                                                                                                                                                                                                                    )
                                                                                                                                                                                                              )
                                                                                                                                                                                                        )
                                                                                                                                                                                                  )
                                                                                                                                                                                            )
                                                                                                                                                                                      )
                                                                                                                                                                                )
                                                                                                                                                                          )
                                                                                                                                                                    )
                                                                                                                                                              )
                                                                                                                                                        )
                                                                                                                                                  )
                                                                                                                                            )
                                                                                                                                      )
                                                                                                                                )
                                                                                                                          )
                                                                                                                    )
                                                                                                              )
                                                                                                        )
                                                                                                  )
                                                                                            )
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )

-- MTokenList --------------------------------------------------
-- cata
sem_MTokenList
  :: MTokenList
  -> T_MTokenList
sem_MTokenList :: [MToken] -> T_MTokenList
sem_MTokenList [MToken]
list =
  (forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
Prelude.foldr T_MToken -> T_MTokenList -> T_MTokenList
sem_MTokenList_Cons T_MTokenList
sem_MTokenList_Nil (forall a b. (a -> b) -> [a] -> [b]
Prelude.map MToken -> T_MToken
sem_MToken [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 {Inh_MTokenList -> SyntaxUsed
andSyntax_Inh_MTokenList :: SyntaxUsed, Inh_MTokenList -> LintSettings
config_Inh_MTokenList :: LintSettings, Inh_MTokenList -> SyntaxUsed
indentation_Inh_MTokenList :: SyntaxUsed, Inh_MTokenList -> SyntaxUsed
lineCommentSyntax_Inh_MTokenList :: SyntaxUsed, Inh_MTokenList -> SyntaxUsed
multilineCommentSyntax_Inh_MTokenList :: SyntaxUsed, Inh_MTokenList -> SyntaxUsed
neqSyntax_Inh_MTokenList :: SyntaxUsed, Inh_MTokenList -> LineColPos
nextTokenPos_Inh_MTokenList :: LineColPos, Inh_MTokenList -> SyntaxUsed
notSyntax_Inh_MTokenList :: SyntaxUsed, Inh_MTokenList -> SyntaxUsed
orSyntax_Inh_MTokenList :: SyntaxUsed, Inh_MTokenList -> SyntaxUsed
strSyntax_Inh_MTokenList :: SyntaxUsed}
data Syn_MTokenList = Syn_MTokenList {Syn_MTokenList -> SyntaxUsed
andSyntax_Syn_MTokenList :: SyntaxUsed, Syn_MTokenList -> [MToken]
copy_Syn_MTokenList :: MTokenList, Syn_MTokenList -> SyntaxUsed
indentation_Syn_MTokenList :: SyntaxUsed, Syn_MTokenList -> SyntaxUsed
lineCommentSyntax_Syn_MTokenList :: SyntaxUsed, Syn_MTokenList -> SyntaxUsed
multilineCommentSyntax_Syn_MTokenList :: SyntaxUsed, Syn_MTokenList -> SyntaxUsed
neqSyntax_Syn_MTokenList :: SyntaxUsed, Syn_MTokenList -> LineColPos
nextTokenPos_Syn_MTokenList :: LineColPos, Syn_MTokenList -> SyntaxUsed
notSyntax_Syn_MTokenList :: SyntaxUsed, Syn_MTokenList -> SyntaxUsed
orSyntax_Syn_MTokenList :: SyntaxUsed, Syn_MTokenList -> SyntaxUsed
strSyntax_Syn_MTokenList :: SyntaxUsed, Syn_MTokenList -> [String -> LintMessage]
warnings_Syn_MTokenList :: ([FilePath -> LintMessage])}
wrap_MTokenList
  :: T_MTokenList
  -> Inh_MTokenList
  -> Syn_MTokenList
wrap_MTokenList :: T_MTokenList -> Inh_MTokenList -> Syn_MTokenList
wrap_MTokenList T_MTokenList
sem (Inh_MTokenList SyntaxUsed
_lhsIandSyntax LintSettings
_lhsIconfig SyntaxUsed
_lhsIindentation SyntaxUsed
_lhsIlineCommentSyntax SyntaxUsed
_lhsImultilineCommentSyntax SyntaxUsed
_lhsIneqSyntax LineColPos
_lhsInextTokenPos SyntaxUsed
_lhsInotSyntax SyntaxUsed
_lhsIorSyntax SyntaxUsed
_lhsIstrSyntax) =
  ( let
      (SyntaxUsed
_lhsOandSyntax, [MToken]
_lhsOcopy, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [String -> LintMessage]
_lhsOwarnings) = T_MTokenList
sem SyntaxUsed
_lhsIandSyntax LintSettings
_lhsIconfig SyntaxUsed
_lhsIindentation SyntaxUsed
_lhsIlineCommentSyntax SyntaxUsed
_lhsImultilineCommentSyntax SyntaxUsed
_lhsIneqSyntax LineColPos
_lhsInextTokenPos SyntaxUsed
_lhsInotSyntax SyntaxUsed
_lhsIorSyntax SyntaxUsed
_lhsIstrSyntax
    in
      (SyntaxUsed
-> [MToken]
-> SyntaxUsed
-> SyntaxUsed
-> SyntaxUsed
-> SyntaxUsed
-> LineColPos
-> SyntaxUsed
-> SyntaxUsed
-> SyntaxUsed
-> [String -> LintMessage]
-> Syn_MTokenList
Syn_MTokenList SyntaxUsed
_lhsOandSyntax [MToken]
_lhsOcopy SyntaxUsed
_lhsOindentation SyntaxUsed
_lhsOlineCommentSyntax SyntaxUsed
_lhsOmultilineCommentSyntax SyntaxUsed
_lhsOneqSyntax LineColPos
_lhsOnextTokenPos SyntaxUsed
_lhsOnotSyntax SyntaxUsed
_lhsOorSyntax SyntaxUsed
_lhsOstrSyntax [String -> LintMessage]
_lhsOwarnings)
  )
sem_MTokenList_Cons
  :: T_MToken
  -> T_MTokenList
  -> T_MTokenList
sem_MTokenList_Cons :: T_MToken -> T_MTokenList -> T_MTokenList
sem_MTokenList_Cons T_MToken
hd_ T_MTokenList
tl_ =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( LintSettings
_lhsIconfig
                 )
               ) of
            LintSettings
_tlOconfig ->
              ( case ( ( LintSettings
_lhsIconfig
                       )
                     ) of
                  LintSettings
_hdOconfig ->
                    ( case ( ( SyntaxUsed
_lhsIandSyntax
                             )
                           ) of
                        SyntaxUsed
_hdOandSyntax ->
                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                   )
                                 ) of
                              SyntaxUsed
_hdOstrSyntax ->
                                ( case ( ( SyntaxUsed
_lhsIorSyntax
                                         )
                                       ) of
                                    SyntaxUsed
_hdOorSyntax ->
                                      ( case ( ( SyntaxUsed
_lhsInotSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_hdOnotSyntax ->
                                            ( case ( ( LineColPos
_lhsInextTokenPos
                                                     )
                                                   ) of
                                                LineColPos
_hdOnextTokenPos ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_hdOneqSyntax ->
                                                        ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                                 )
                                                               ) of
                                                            SyntaxUsed
_hdOmultilineCommentSyntax ->
                                                              ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_hdOlineCommentSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIindentation
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_hdOindentation ->
                                                                          ( case (T_MToken
hd_ SyntaxUsed
_hdOandSyntax LintSettings
_hdOconfig SyntaxUsed
_hdOindentation SyntaxUsed
_hdOlineCommentSyntax SyntaxUsed
_hdOmultilineCommentSyntax SyntaxUsed
_hdOneqSyntax LineColPos
_hdOnextTokenPos SyntaxUsed
_hdOnotSyntax SyntaxUsed
_hdOorSyntax SyntaxUsed
_hdOstrSyntax) of
                                                                              (SyntaxUsed
_hdIandSyntax, MToken
_hdIcopy, SyntaxUsed
_hdIindentation, SyntaxUsed
_hdIlineCommentSyntax, SyntaxUsed
_hdImultilineCommentSyntax, SyntaxUsed
_hdIneqSyntax, LineColPos
_hdInextTokenPos, SyntaxUsed
_hdInotSyntax, SyntaxUsed
_hdIorSyntax, SyntaxUsed
_hdIstrSyntax, [String -> LintMessage]
_hdIwarnings) ->
                                                                                ( case ( ( SyntaxUsed
_hdIandSyntax
                                                                                         )
                                                                                       ) of
                                                                                    SyntaxUsed
_tlOandSyntax ->
                                                                                      ( case ( ( SyntaxUsed
_hdIstrSyntax
                                                                                               )
                                                                                             ) of
                                                                                          SyntaxUsed
_tlOstrSyntax ->
                                                                                            ( case ( ( SyntaxUsed
_hdIorSyntax
                                                                                                     )
                                                                                                   ) of
                                                                                                SyntaxUsed
_tlOorSyntax ->
                                                                                                  ( case ( ( SyntaxUsed
_hdInotSyntax
                                                                                                           )
                                                                                                         ) of
                                                                                                      SyntaxUsed
_tlOnotSyntax ->
                                                                                                        ( case ( ( LineColPos
_hdInextTokenPos
                                                                                                                 )
                                                                                                               ) of
                                                                                                            LineColPos
_tlOnextTokenPos ->
                                                                                                              ( case ( ( SyntaxUsed
_hdIneqSyntax
                                                                                                                       )
                                                                                                                     ) of
                                                                                                                  SyntaxUsed
_tlOneqSyntax ->
                                                                                                                    ( case ( ( SyntaxUsed
_hdImultilineCommentSyntax
                                                                                                                             )
                                                                                                                           ) of
                                                                                                                        SyntaxUsed
_tlOmultilineCommentSyntax ->
                                                                                                                          ( case ( ( SyntaxUsed
_hdIlineCommentSyntax
                                                                                                                                   )
                                                                                                                                 ) of
                                                                                                                              SyntaxUsed
_tlOlineCommentSyntax ->
                                                                                                                                ( case ( ( SyntaxUsed
_hdIindentation
                                                                                                                                         )
                                                                                                                                       ) of
                                                                                                                                    SyntaxUsed
_tlOindentation ->
                                                                                                                                      ( case (T_MTokenList
tl_ SyntaxUsed
_tlOandSyntax LintSettings
_tlOconfig SyntaxUsed
_tlOindentation SyntaxUsed
_tlOlineCommentSyntax SyntaxUsed
_tlOmultilineCommentSyntax SyntaxUsed
_tlOneqSyntax LineColPos
_tlOnextTokenPos SyntaxUsed
_tlOnotSyntax SyntaxUsed
_tlOorSyntax SyntaxUsed
_tlOstrSyntax) of
                                                                                                                                          (SyntaxUsed
_tlIandSyntax, [MToken]
_tlIcopy, SyntaxUsed
_tlIindentation, SyntaxUsed
_tlIlineCommentSyntax, SyntaxUsed
_tlImultilineCommentSyntax, SyntaxUsed
_tlIneqSyntax, LineColPos
_tlInextTokenPos, SyntaxUsed
_tlInotSyntax, SyntaxUsed
_tlIorSyntax, SyntaxUsed
_tlIstrSyntax, [String -> LintMessage]
_tlIwarnings) ->
                                                                                                                                            ( case ( ( SyntaxUsed
_tlIandSyntax
                                                                                                                                                     )
                                                                                                                                                   ) of
                                                                                                                                                SyntaxUsed
_lhsOandSyntax ->
                                                                                                                                                  ( case ( ( (:) MToken
_hdIcopy [MToken]
_tlIcopy
                                                                                                                                                           )
                                                                                                                                                         ) of
                                                                                                                                                      [MToken]
_copy ->
                                                                                                                                                        ( case ( ( [MToken]
_copy
                                                                                                                                                                 )
                                                                                                                                                               ) of
                                                                                                                                                            [MToken]
_lhsOcopy ->
                                                                                                                                                              ( case ( ( SyntaxUsed
_tlIindentation
                                                                                                                                                                       )
                                                                                                                                                                     ) of
                                                                                                                                                                  SyntaxUsed
_lhsOindentation ->
                                                                                                                                                                    ( case ( ( SyntaxUsed
_tlIlineCommentSyntax
                                                                                                                                                                             )
                                                                                                                                                                           ) of
                                                                                                                                                                        SyntaxUsed
_lhsOlineCommentSyntax ->
                                                                                                                                                                          ( case ( ( SyntaxUsed
_tlImultilineCommentSyntax
                                                                                                                                                                                   )
                                                                                                                                                                                 ) of
                                                                                                                                                                              SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                                                                                                                                                ( case ( ( SyntaxUsed
_tlIneqSyntax
                                                                                                                                                                                         )
                                                                                                                                                                                       ) of
                                                                                                                                                                                    SyntaxUsed
_lhsOneqSyntax ->
                                                                                                                                                                                      ( case ( ( LineColPos
_tlInextTokenPos
                                                                                                                                                                                               )
                                                                                                                                                                                             ) of
                                                                                                                                                                                          LineColPos
_lhsOnextTokenPos ->
                                                                                                                                                                                            ( case ( ( SyntaxUsed
_tlInotSyntax
                                                                                                                                                                                                     )
                                                                                                                                                                                                   ) of
                                                                                                                                                                                                SyntaxUsed
_lhsOnotSyntax ->
                                                                                                                                                                                                  ( case ( ( SyntaxUsed
_tlIorSyntax
                                                                                                                                                                                                           )
                                                                                                                                                                                                         ) of
                                                                                                                                                                                                      SyntaxUsed
_lhsOorSyntax ->
                                                                                                                                                                                                        ( case ( ( SyntaxUsed
_tlIstrSyntax
                                                                                                                                                                                                                 )
                                                                                                                                                                                                               ) of
                                                                                                                                                                                                            SyntaxUsed
_lhsOstrSyntax ->
                                                                                                                                                                                                              ( case ( ( [String -> LintMessage]
_hdIwarnings forall a. [a] -> [a] -> [a]
++ [String -> LintMessage]
_tlIwarnings
                                                                                                                                                                                                                       )
                                                                                                                                                                                                                     ) of
                                                                                                                                                                                                                  [String -> LintMessage]
_lhsOwarnings ->
                                                                                                                                                                                                                    (SyntaxUsed
_lhsOandSyntax, [MToken]
_lhsOcopy, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [String -> LintMessage]
_lhsOwarnings)
                                                                                                                                                                                                              )
                                                                                                                                                                                                        )
                                                                                                                                                                                                  )
                                                                                                                                                                                            )
                                                                                                                                                                                      )
                                                                                                                                                                                )
                                                                                                                                                                          )
                                                                                                                                                                    )
                                                                                                                                                              )
                                                                                                                                                        )
                                                                                                                                                  )
                                                                                                                                            )
                                                                                                                                      )
                                                                                                                                )
                                                                                                                          )
                                                                                                                    )
                                                                                                              )
                                                                                                        )
                                                                                                  )
                                                                                            )
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_MTokenList_Nil :: T_MTokenList
sem_MTokenList_Nil :: T_MTokenList
sem_MTokenList_Nil =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( []
                       )
                     ) of
                  [MToken]
_copy ->
                    ( case ( ( [MToken]
_copy
                             )
                           ) of
                        [MToken]
_lhsOcopy ->
                          ( case ( ( SyntaxUsed
_lhsIindentation
                                   )
                                 ) of
                              SyntaxUsed
_lhsOindentation ->
                                ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOlineCommentSyntax ->
                                      ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOneqSyntax ->
                                                  ( case ( ( LineColPos
_lhsInextTokenPos
                                                           )
                                                         ) of
                                                      LineColPos
_lhsOnextTokenPos ->
                                                        ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                 )
                                                               ) of
                                                            SyntaxUsed
_lhsOnotSyntax ->
                                                              ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOorSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOstrSyntax ->
                                                                          ( case ( ( []
                                                                                   )
                                                                                 ) of
                                                                              [String -> LintMessage]
_lhsOwarnings ->
                                                                                (SyntaxUsed
_lhsOandSyntax, [MToken]
_lhsOcopy, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [String -> LintMessage]
_lhsOwarnings)
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )

-- Region ------------------------------------------------------
-- cata
sem_Region
  :: Region
  -> T_Region
sem_Region :: Region -> T_Region
sem_Region (Region LineColPos
_start LineColPos
_end) =
  (LineColPos -> LineColPos -> T_Region
sem_Region_Region LineColPos
_start LineColPos
_end)

-- semantic domain
type T_Region =
  SyntaxUsed
  -> LintSettings
  -> SyntaxUsed
  -> SyntaxUsed
  -> SyntaxUsed
  -> SyntaxUsed
  -> LineColPos
  -> SyntaxUsed
  -> SyntaxUsed
  -> SyntaxUsed
  -> (SyntaxUsed, Region, SyntaxUsed, SyntaxUsed, SyntaxUsed, SyntaxUsed, LineColPos, SyntaxUsed, SyntaxUsed, SyntaxUsed, ([FilePath -> LintMessage]))
data Inh_Region = Inh_Region {Inh_Region -> SyntaxUsed
andSyntax_Inh_Region :: SyntaxUsed, Inh_Region -> LintSettings
config_Inh_Region :: LintSettings, Inh_Region -> SyntaxUsed
indentation_Inh_Region :: SyntaxUsed, Inh_Region -> SyntaxUsed
lineCommentSyntax_Inh_Region :: SyntaxUsed, Inh_Region -> SyntaxUsed
multilineCommentSyntax_Inh_Region :: SyntaxUsed, Inh_Region -> SyntaxUsed
neqSyntax_Inh_Region :: SyntaxUsed, Inh_Region -> LineColPos
nextTokenPos_Inh_Region :: LineColPos, Inh_Region -> SyntaxUsed
notSyntax_Inh_Region :: SyntaxUsed, Inh_Region -> SyntaxUsed
orSyntax_Inh_Region :: SyntaxUsed, Inh_Region -> SyntaxUsed
strSyntax_Inh_Region :: SyntaxUsed}
data Syn_Region = Syn_Region {Syn_Region -> SyntaxUsed
andSyntax_Syn_Region :: SyntaxUsed, Syn_Region -> Region
copy_Syn_Region :: Region, Syn_Region -> SyntaxUsed
indentation_Syn_Region :: SyntaxUsed, Syn_Region -> SyntaxUsed
lineCommentSyntax_Syn_Region :: SyntaxUsed, Syn_Region -> SyntaxUsed
multilineCommentSyntax_Syn_Region :: SyntaxUsed, Syn_Region -> SyntaxUsed
neqSyntax_Syn_Region :: SyntaxUsed, Syn_Region -> LineColPos
nextTokenPos_Syn_Region :: LineColPos, Syn_Region -> SyntaxUsed
notSyntax_Syn_Region :: SyntaxUsed, Syn_Region -> SyntaxUsed
orSyntax_Syn_Region :: SyntaxUsed, Syn_Region -> SyntaxUsed
strSyntax_Syn_Region :: SyntaxUsed, Syn_Region -> [String -> LintMessage]
warnings_Syn_Region :: ([FilePath -> LintMessage])}
wrap_Region
  :: T_Region
  -> Inh_Region
  -> Syn_Region
wrap_Region :: T_Region -> Inh_Region -> Syn_Region
wrap_Region T_Region
sem (Inh_Region SyntaxUsed
_lhsIandSyntax LintSettings
_lhsIconfig SyntaxUsed
_lhsIindentation SyntaxUsed
_lhsIlineCommentSyntax SyntaxUsed
_lhsImultilineCommentSyntax SyntaxUsed
_lhsIneqSyntax LineColPos
_lhsInextTokenPos SyntaxUsed
_lhsInotSyntax SyntaxUsed
_lhsIorSyntax SyntaxUsed
_lhsIstrSyntax) =
  ( let
      (SyntaxUsed
_lhsOandSyntax, Region
_lhsOcopy, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [String -> LintMessage]
_lhsOwarnings) = T_Region
sem SyntaxUsed
_lhsIandSyntax LintSettings
_lhsIconfig SyntaxUsed
_lhsIindentation SyntaxUsed
_lhsIlineCommentSyntax SyntaxUsed
_lhsImultilineCommentSyntax SyntaxUsed
_lhsIneqSyntax LineColPos
_lhsInextTokenPos SyntaxUsed
_lhsInotSyntax SyntaxUsed
_lhsIorSyntax SyntaxUsed
_lhsIstrSyntax
    in
      (SyntaxUsed
-> Region
-> SyntaxUsed
-> SyntaxUsed
-> SyntaxUsed
-> SyntaxUsed
-> LineColPos
-> SyntaxUsed
-> SyntaxUsed
-> SyntaxUsed
-> [String -> LintMessage]
-> Syn_Region
Syn_Region SyntaxUsed
_lhsOandSyntax Region
_lhsOcopy SyntaxUsed
_lhsOindentation SyntaxUsed
_lhsOlineCommentSyntax SyntaxUsed
_lhsOmultilineCommentSyntax SyntaxUsed
_lhsOneqSyntax LineColPos
_lhsOnextTokenPos SyntaxUsed
_lhsOnotSyntax SyntaxUsed
_lhsOorSyntax SyntaxUsed
_lhsOstrSyntax [String -> LintMessage]
_lhsOwarnings)
  )
sem_Region_Region
  :: LineColPos
  -> LineColPos
  -> T_Region
sem_Region_Region :: LineColPos -> LineColPos -> T_Region
sem_Region_Region LineColPos
start_ LineColPos
end_ =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( LineColPos -> LineColPos -> Region
Region LineColPos
start_ LineColPos
end_
                       )
                     ) of
                  Region
_copy ->
                    ( case ( ( Region
_copy
                             )
                           ) of
                        Region
_lhsOcopy ->
                          ( case ( ( SyntaxUsed
_lhsIindentation
                                   )
                                 ) of
                              SyntaxUsed
_lhsOindentation ->
                                ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOlineCommentSyntax ->
                                      ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOneqSyntax ->
                                                  ( case ( ( LineColPos
_lhsInextTokenPos
                                                           )
                                                         ) of
                                                      LineColPos
_lhsOnextTokenPos ->
                                                        ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                 )
                                                               ) of
                                                            SyntaxUsed
_lhsOnotSyntax ->
                                                              ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOorSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOstrSyntax ->
                                                                          ( case ( ( []
                                                                                   )
                                                                                 ) of
                                                                              [String -> LintMessage]
_lhsOwarnings ->
                                                                                (SyntaxUsed
_lhsOandSyntax, Region
_lhsOcopy, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [String -> LintMessage]
_lhsOwarnings)
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )

-- Token -------------------------------------------------------
-- cata
sem_Token
  :: Token
  -> T_Token
sem_Token :: Token -> T_Token
sem_Token (Whitespace String
_space) =
  (String -> T_Token
sem_Token_Whitespace String
_space)
sem_Token (DashComment String
_comment) =
  (String -> T_Token
sem_Token_DashComment String
_comment)
sem_Token (DashBlockComment Int
_depth String
_comment) =
  (Int -> String -> T_Token
sem_Token_DashBlockComment Int
_depth String
_comment)
sem_Token (SlashComment String
_comment) =
  (String -> T_Token
sem_Token_SlashComment String
_comment)
sem_Token (SlashBlockComment String
_comment) =
  (String -> T_Token
sem_Token_SlashBlockComment String
_comment)
sem_Token (Token
Semicolon) =
  (T_Token
sem_Token_Semicolon)
sem_Token (TNumber String
_num) =
  (String -> T_Token
sem_Token_TNumber String
_num)
sem_Token (DQString String
_str) =
  (String -> T_Token
sem_Token_DQString String
_str)
sem_Token (SQString String
_str) =
  (String -> T_Token
sem_Token_SQString String
_str)
sem_Token (MLString String
_str) =
  (String -> T_Token
sem_Token_MLString String
_str)
sem_Token (Token
TTrue) =
  (T_Token
sem_Token_TTrue)
sem_Token (Token
TFalse) =
  (T_Token
sem_Token_TFalse)
sem_Token (Token
Nil) =
  (T_Token
sem_Token_Nil)
sem_Token (Token
VarArg) =
  (T_Token
sem_Token_VarArg)
sem_Token (Token
Plus) =
  (T_Token
sem_Token_Plus)
sem_Token (Token
Minus) =
  (T_Token
sem_Token_Minus)
sem_Token (Token
Multiply) =
  (T_Token
sem_Token_Multiply)
sem_Token (Token
Divide) =
  (T_Token
sem_Token_Divide)
sem_Token (Token
Modulus) =
  (T_Token
sem_Token_Modulus)
sem_Token (Token
Power) =
  (T_Token
sem_Token_Power)
sem_Token (Token
TEq) =
  (T_Token
sem_Token_TEq)
sem_Token (Token
TNEq) =
  (T_Token
sem_Token_TNEq)
sem_Token (Token
TCNEq) =
  (T_Token
sem_Token_TCNEq)
sem_Token (Token
TLEQ) =
  (T_Token
sem_Token_TLEQ)
sem_Token (Token
TGEQ) =
  (T_Token
sem_Token_TGEQ)
sem_Token (Token
TLT) =
  (T_Token
sem_Token_TLT)
sem_Token (Token
TGT) =
  (T_Token
sem_Token_TGT)
sem_Token (Token
Equals) =
  (T_Token
sem_Token_Equals)
sem_Token (Token
Concatenate) =
  (T_Token
sem_Token_Concatenate)
sem_Token (Token
Colon) =
  (T_Token
sem_Token_Colon)
sem_Token (Token
Dot) =
  (T_Token
sem_Token_Dot)
sem_Token (Token
Comma) =
  (T_Token
sem_Token_Comma)
sem_Token (Token
Hash) =
  (T_Token
sem_Token_Hash)
sem_Token (Token
Not) =
  (T_Token
sem_Token_Not)
sem_Token (Token
CNot) =
  (T_Token
sem_Token_CNot)
sem_Token (Token
And) =
  (T_Token
sem_Token_And)
sem_Token (Token
CAnd) =
  (T_Token
sem_Token_CAnd)
sem_Token (Token
Or) =
  (T_Token
sem_Token_Or)
sem_Token (Token
COr) =
  (T_Token
sem_Token_COr)
sem_Token (Token
Function) =
  (T_Token
sem_Token_Function)
sem_Token (Token
Local) =
  (T_Token
sem_Token_Local)
sem_Token (Token
If) =
  (T_Token
sem_Token_If)
sem_Token (Token
Then) =
  (T_Token
sem_Token_Then)
sem_Token (Token
Elseif) =
  (T_Token
sem_Token_Elseif)
sem_Token (Token
Else) =
  (T_Token
sem_Token_Else)
sem_Token (Token
For) =
  (T_Token
sem_Token_For)
sem_Token (Token
In) =
  (T_Token
sem_Token_In)
sem_Token (Token
Do) =
  (T_Token
sem_Token_Do)
sem_Token (Token
While) =
  (T_Token
sem_Token_While)
sem_Token (Token
Until) =
  (T_Token
sem_Token_Until)
sem_Token (Token
Repeat) =
  (T_Token
sem_Token_Repeat)
sem_Token (Token
Continue) =
  (T_Token
sem_Token_Continue)
sem_Token (Token
Break) =
  (T_Token
sem_Token_Break)
sem_Token (Token
Return) =
  (T_Token
sem_Token_Return)
sem_Token (Token
End) =
  (T_Token
sem_Token_End)
sem_Token (Token
LRound) =
  (T_Token
sem_Token_LRound)
sem_Token (Token
RRound) =
  (T_Token
sem_Token_RRound)
sem_Token (Token
LCurly) =
  (T_Token
sem_Token_LCurly)
sem_Token (Token
RCurly) =
  (T_Token
sem_Token_RCurly)
sem_Token (Token
LSquare) =
  (T_Token
sem_Token_LSquare)
sem_Token (Token
RSquare) =
  (T_Token
sem_Token_RSquare)
sem_Token (Label String
_whitespaceBefore String
_lbl String
_whitespaceAfter) =
  (String -> String -> String -> T_Token
sem_Token_Label String
_whitespaceBefore String
_lbl String
_whitespaceAfter)
sem_Token (Identifier String
_ident) =
  (String -> T_Token
sem_Token_Identifier String
_ident)

-- semantic domain
type T_Token =
  SyntaxUsed
  -> LintSettings
  -> SyntaxUsed
  -> SyntaxUsed
  -> SyntaxUsed
  -> SyntaxUsed
  -> LineColPos
  -> SyntaxUsed
  -> SyntaxUsed
  -> SyntaxUsed
  -> (SyntaxUsed, Token, ([FilePath -> LintMessage]), SyntaxUsed, SyntaxUsed, SyntaxUsed, SyntaxUsed, LineColPos, SyntaxUsed, SyntaxUsed, SyntaxUsed, ([Issue]), ([FilePath -> LintMessage]))
data Inh_Token = Inh_Token {Inh_Token -> SyntaxUsed
andSyntax_Inh_Token :: SyntaxUsed, Inh_Token -> LintSettings
config_Inh_Token :: LintSettings, Inh_Token -> SyntaxUsed
indentation_Inh_Token :: SyntaxUsed, Inh_Token -> SyntaxUsed
lineCommentSyntax_Inh_Token :: SyntaxUsed, Inh_Token -> SyntaxUsed
multilineCommentSyntax_Inh_Token :: SyntaxUsed, Inh_Token -> SyntaxUsed
neqSyntax_Inh_Token :: SyntaxUsed, Inh_Token -> LineColPos
nextTokenPos_Inh_Token :: LineColPos, Inh_Token -> SyntaxUsed
notSyntax_Inh_Token :: SyntaxUsed, Inh_Token -> SyntaxUsed
orSyntax_Inh_Token :: SyntaxUsed, Inh_Token -> SyntaxUsed
strSyntax_Inh_Token :: SyntaxUsed}
data Syn_Token = Syn_Token {Syn_Token -> SyntaxUsed
andSyntax_Syn_Token :: SyntaxUsed, Syn_Token -> Token
copy_Syn_Token :: Token, Syn_Token -> [String -> LintMessage]
customWarnings_Syn_Token :: ([FilePath -> LintMessage]), Syn_Token -> SyntaxUsed
indentation_Syn_Token :: SyntaxUsed, Syn_Token -> SyntaxUsed
lineCommentSyntax_Syn_Token :: SyntaxUsed, Syn_Token -> SyntaxUsed
multilineCommentSyntax_Syn_Token :: SyntaxUsed, Syn_Token -> SyntaxUsed
neqSyntax_Syn_Token :: SyntaxUsed, Syn_Token -> LineColPos
nextTokenPos_Syn_Token :: LineColPos, Syn_Token -> SyntaxUsed
notSyntax_Syn_Token :: SyntaxUsed, Syn_Token -> SyntaxUsed
orSyntax_Syn_Token :: SyntaxUsed, Syn_Token -> SyntaxUsed
strSyntax_Syn_Token :: SyntaxUsed, Syn_Token -> [Issue]
tokenWarnings_Syn_Token :: ([Issue]), Syn_Token -> [String -> LintMessage]
warnings_Syn_Token :: ([FilePath -> LintMessage])}
wrap_Token
  :: T_Token
  -> Inh_Token
  -> Syn_Token
wrap_Token :: T_Token -> Inh_Token -> Syn_Token
wrap_Token T_Token
sem (Inh_Token SyntaxUsed
_lhsIandSyntax LintSettings
_lhsIconfig SyntaxUsed
_lhsIindentation SyntaxUsed
_lhsIlineCommentSyntax SyntaxUsed
_lhsImultilineCommentSyntax SyntaxUsed
_lhsIneqSyntax LineColPos
_lhsInextTokenPos SyntaxUsed
_lhsInotSyntax SyntaxUsed
_lhsIorSyntax SyntaxUsed
_lhsIstrSyntax) =
  ( let
      (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings) = T_Token
sem SyntaxUsed
_lhsIandSyntax LintSettings
_lhsIconfig SyntaxUsed
_lhsIindentation SyntaxUsed
_lhsIlineCommentSyntax SyntaxUsed
_lhsImultilineCommentSyntax SyntaxUsed
_lhsIneqSyntax LineColPos
_lhsInextTokenPos SyntaxUsed
_lhsInotSyntax SyntaxUsed
_lhsIorSyntax SyntaxUsed
_lhsIstrSyntax
    in
      (SyntaxUsed
-> Token
-> [String -> LintMessage]
-> SyntaxUsed
-> SyntaxUsed
-> SyntaxUsed
-> SyntaxUsed
-> LineColPos
-> SyntaxUsed
-> SyntaxUsed
-> SyntaxUsed
-> [Issue]
-> [String -> LintMessage]
-> Syn_Token
Syn_Token SyntaxUsed
_lhsOandSyntax Token
_lhsOcopy [String -> LintMessage]
_lhsOcustomWarnings SyntaxUsed
_lhsOindentation SyntaxUsed
_lhsOlineCommentSyntax SyntaxUsed
_lhsOmultilineCommentSyntax SyntaxUsed
_lhsOneqSyntax LineColPos
_lhsOnextTokenPos SyntaxUsed
_lhsOnotSyntax SyntaxUsed
_lhsOorSyntax SyntaxUsed
_lhsOstrSyntax [Issue]
_lhsOtokenWarnings [String -> LintMessage]
_lhsOwarnings)
  )
sem_Token_Whitespace
  :: String
  -> T_Token
sem_Token_Whitespace :: String -> T_Token
sem_Token_Whitespace String
space_ =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( String -> Token
Whitespace String
space_
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_customWarnings_augmented_syn ->
                                ( case ( ( LineColPos
_lhsInextTokenPos
                                         )
                                       ) of
                                    LineColPos
_curTokenPos ->
                                      ( case ( ( LineColPos -> String -> LineColPos
customAdvanceStr LineColPos
_curTokenPos String
space_
                                               )
                                             ) of
                                          LineColPos
_nextTokenPos ->
                                            ( case ( ( LineColPos -> LineColPos -> Region
Region (LineColPos -> String -> LineColPos
indentationStart LineColPos
_curTokenPos String
space_) LineColPos
_nextTokenPos
                                                     )
                                                   ) of
                                                Region
_indentationRg ->
                                                  ( case ( ( LineColPos -> String -> (LineColPos, String)
locateTrailingWhitespace LineColPos
_curTokenPos String
space_
                                                           )
                                                         ) of
                                                      (LineColPos, String)
_whitespaceStart ->
                                                        ( case ( ( (LineColPos, String) -> LineColPos
endOfTrailingWhitespace (LineColPos, String)
_whitespaceStart
                                                                 )
                                                               ) of
                                                            LineColPos
_whitespaceEnd ->
                                                              ( case ( ( SyntaxUsed
_lhsIindentation forall a. Semigroup a => a -> a -> a
<> Bool -> Bool -> SyntaxUsed
SyntaxUsed (forall a. Eq a => [a] -> [a] -> Bool
isInfixOf String
"\n " String
space_) (forall a. Eq a => [a] -> [a] -> Bool
isInfixOf String
"\n\t" String
space_)
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_whitespaceUsed ->
                                                                    ( case ( ( SyntaxUsed -> Bool
luaUsed SyntaxUsed
_whitespaceUsed Bool -> Bool -> Bool
&& SyntaxUsed -> Bool
cUsed SyntaxUsed
_whitespaceUsed
                                                                             )
                                                                           ) of
                                                                        Bool
_inconsistent ->
                                                                          ( case ( ( if Bool -> Bool
not (LintSettings -> Bool
lint_trailingWhitespace LintSettings
_lhsIconfig) Bool -> Bool -> Bool
|| (Bool -> Bool
not (forall a. Eq a => [a] -> [a] -> Bool
isInfixOf String
" \n" String
space_) Bool -> Bool -> Bool
&& Bool -> Bool
not (forall a. Eq a => [a] -> [a] -> Bool
isInfixOf String
"\t\n" String
space_)) then forall a. a -> a
id else (:) forall a b. (a -> b) -> a -> b
$ Region -> Issue -> String -> LintMessage
mTokenWarning (LineColPos -> LineColPos -> Region
Region (forall a b. (a, b) -> a
fst (LineColPos, String)
_whitespaceStart) LineColPos
_whitespaceEnd) Issue
TrailingWhitespace
                                                                                   )
                                                                                 ) of
                                                                              [String -> LintMessage] -> [String -> LintMessage]
_customWarnings_augmented_f2 ->
                                                                                ( case ( ( if Bool -> Bool
not (LintSettings -> Bool
lint_whitespaceStyle LintSettings
_lhsIconfig) Bool -> Bool -> Bool
|| Bool -> Bool
not Bool
_inconsistent
                                                                                            then forall a. a -> a
id
                                                                                            else (:) forall a b. (a -> b) -> a -> b
$ Region -> Issue -> String -> LintMessage
mTokenWarning Region
_indentationRg Issue
InconsistentTabsSpaces
                                                                                         )
                                                                                       ) of
                                                                                    [String -> LintMessage] -> [String -> LintMessage]
_customWarnings_augmented_f1 ->
                                                                                      ( case ( ( forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
foldr forall a b. (a -> b) -> a -> b
($) [String -> LintMessage]
_customWarnings_augmented_syn [[String -> LintMessage] -> [String -> LintMessage]
_customWarnings_augmented_f1, [String -> LintMessage] -> [String -> LintMessage]
_customWarnings_augmented_f2]
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOcustomWarnings ->
                                                                                            ( case ( ( if Bool
_inconsistent then forall a. Monoid a => a
mempty else SyntaxUsed
_whitespaceUsed
                                                                                                     )
                                                                                                   ) of
                                                                                                SyntaxUsed
_indentation ->
                                                                                                  ( case ( ( SyntaxUsed
_indentation
                                                                                                           )
                                                                                                         ) of
                                                                                                      SyntaxUsed
_lhsOindentation ->
                                                                                                        ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                                                                                                 )
                                                                                                               ) of
                                                                                                            SyntaxUsed
_lhsOlineCommentSyntax ->
                                                                                                              ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                                                                                       )
                                                                                                                     ) of
                                                                                                                  SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                                                                                    ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                                                                                             )
                                                                                                                           ) of
                                                                                                                        SyntaxUsed
_lhsOneqSyntax ->
                                                                                                                          ( case ( ( LineColPos
_nextTokenPos
                                                                                                                                   )
                                                                                                                                 ) of
                                                                                                                              LineColPos
_lhsOnextTokenPos ->
                                                                                                                                ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                                                                                         )
                                                                                                                                       ) of
                                                                                                                                    SyntaxUsed
_lhsOnotSyntax ->
                                                                                                                                      ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                                                                                               )
                                                                                                                                             ) of
                                                                                                                                          SyntaxUsed
_lhsOorSyntax ->
                                                                                                                                            ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                                                                                     )
                                                                                                                                                   ) of
                                                                                                                                                SyntaxUsed
_lhsOstrSyntax ->
                                                                                                                                                  ( case ( ( []
                                                                                                                                                           )
                                                                                                                                                         ) of
                                                                                                                                                      [Issue]
_lhsOtokenWarnings ->
                                                                                                                                                        ( case ( ( []
                                                                                                                                                                 )
                                                                                                                                                               ) of
                                                                                                                                                            [String -> LintMessage]
_lhsOwarnings ->
                                                                                                                                                              (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                                                                                        )
                                                                                                                                                  )
                                                                                                                                            )
                                                                                                                                      )
                                                                                                                                )
                                                                                                                          )
                                                                                                                    )
                                                                                                              )
                                                                                                        )
                                                                                                  )
                                                                                            )
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_DashComment
  :: String
  -> T_Token
sem_Token_DashComment :: String -> T_Token
sem_Token_DashComment String
comment_ =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( String -> Token
DashComment String
comment_
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. LintSettings -> Bool
lint_syntaxInconsistencies forall a b. (a -> b) -> a -> b
$ LintSettings
_lhsIconfig) Bool -> Bool -> Bool
|| (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. SyntaxUsed -> Bool
cUsed forall a b. (a -> b) -> a -> b
$ SyntaxUsed
_lhsIlineCommentSyntax)
                                               )
                                             ) of
                                          Bool
_consistent ->
                                            ( case ( ( Bool -> Bool -> SyntaxUsed
SyntaxUsed Bool
_consistent Bool
False
                                                     )
                                                   ) of
                                                SyntaxUsed
_lineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lineCommentSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOlineCommentSyntax ->
                                                        ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                                 )
                                                               ) of
                                                            SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                              ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOneqSyntax ->
                                                                    ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                             )
                                                                           ) of
                                                                        LineColPos
_lhsOnextTokenPos ->
                                                                          ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOnotSyntax ->
                                                                                ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                                         )
                                                                                       ) of
                                                                                    SyntaxUsed
_lhsOorSyntax ->
                                                                                      ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                               )
                                                                                             ) of
                                                                                          SyntaxUsed
_lhsOstrSyntax ->
                                                                                            ( case ( ( []
                                                                                                     )
                                                                                                   ) of
                                                                                                [Issue]
_tokenWarnings_augmented_syn ->
                                                                                                  ( case ( ( if Bool
_consistent
                                                                                                              then forall a. a -> a
id
                                                                                                              else (:) forall a b. (a -> b) -> a -> b
$ String -> String -> Issue
SyntaxInconsistency String
"--" String
"//"
                                                                                                           )
                                                                                                         ) of
                                                                                                      [Issue] -> [Issue]
_tokenWarnings_augmented_f1 ->
                                                                                                        ( case ( ( forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
foldr forall a b. (a -> b) -> a -> b
($) [Issue]
_tokenWarnings_augmented_syn [[Issue] -> [Issue]
_tokenWarnings_augmented_f1]
                                                                                                                 )
                                                                                                               ) of
                                                                                                            [Issue]
_lhsOtokenWarnings ->
                                                                                                              ( case ( ( []
                                                                                                                       )
                                                                                                                     ) of
                                                                                                                  [String -> LintMessage]
_lhsOwarnings ->
                                                                                                                    (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                                              )
                                                                                                        )
                                                                                                  )
                                                                                            )
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_DashBlockComment
  :: Int
  -> String
  -> T_Token
sem_Token_DashBlockComment :: Int -> String -> T_Token
sem_Token_DashBlockComment Int
depth_ String
comment_ =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Int -> String -> Token
DashBlockComment Int
depth_ String
comment_
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. LintSettings -> Bool
lint_syntaxInconsistencies forall a b. (a -> b) -> a -> b
$ LintSettings
_lhsIconfig) Bool -> Bool -> Bool
|| (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. SyntaxUsed -> Bool
cUsed forall a b. (a -> b) -> a -> b
$ SyntaxUsed
_lhsImultilineCommentSyntax)
                                                     )
                                                   ) of
                                                Bool
_consistent ->
                                                  ( case ( ( Bool -> Bool -> SyntaxUsed
SyntaxUsed Bool
_consistent Bool
False
                                                           )
                                                         ) of
                                                      SyntaxUsed
_multilineCommentSyntax ->
                                                        ( case ( ( SyntaxUsed
_multilineCommentSyntax
                                                                 )
                                                               ) of
                                                            SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                              ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOneqSyntax ->
                                                                    ( case ( ( String -> ShowS
showString String
"--[" forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> ShowS
showString (forall a. Int -> a -> [a]
replicate Int
depth_ Char
'-') forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> ShowS
showChar Char
'[' forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> ShowS
showString String
comment_ forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> ShowS
showChar Char
']' forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> ShowS
showString (forall a. Int -> a -> [a]
replicate Int
depth_ Char
'-') forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> ShowS
showChar Char
']' forall a b. (a -> b) -> a -> b
$ String
""
                                                                             )
                                                                           ) of
                                                                        String
_str ->
                                                                          ( case ( ( LineColPos -> String -> LineColPos
customAdvanceStr LineColPos
_lhsInextTokenPos String
_str
                                                                                   )
                                                                                 ) of
                                                                              LineColPos
_lhsOnextTokenPos ->
                                                                                ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                                         )
                                                                                       ) of
                                                                                    SyntaxUsed
_lhsOnotSyntax ->
                                                                                      ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                                               )
                                                                                             ) of
                                                                                          SyntaxUsed
_lhsOorSyntax ->
                                                                                            ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                                     )
                                                                                                   ) of
                                                                                                SyntaxUsed
_lhsOstrSyntax ->
                                                                                                  ( case ( ( []
                                                                                                           )
                                                                                                         ) of
                                                                                                      [Issue]
_tokenWarnings_augmented_syn ->
                                                                                                        ( case ( ( if Bool
_consistent
                                                                                                                    then forall a. a -> a
id
                                                                                                                    else (:) forall a b. (a -> b) -> a -> b
$ String -> String -> Issue
SyntaxInconsistency String
"--[[ ]]" String
"/* */"
                                                                                                                 )
                                                                                                               ) of
                                                                                                            [Issue] -> [Issue]
_tokenWarnings_augmented_f1 ->
                                                                                                              ( case ( ( forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
foldr forall a b. (a -> b) -> a -> b
($) [Issue]
_tokenWarnings_augmented_syn [[Issue] -> [Issue]
_tokenWarnings_augmented_f1]
                                                                                                                       )
                                                                                                                     ) of
                                                                                                                  [Issue]
_lhsOtokenWarnings ->
                                                                                                                    ( case ( ( []
                                                                                                                             )
                                                                                                                           ) of
                                                                                                                        [String -> LintMessage]
_lhsOwarnings ->
                                                                                                                          (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                                                    )
                                                                                                              )
                                                                                                        )
                                                                                                  )
                                                                                            )
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_SlashComment
  :: String
  -> T_Token
sem_Token_SlashComment :: String -> T_Token
sem_Token_SlashComment String
comment_ =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( String -> Token
SlashComment String
comment_
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. LintSettings -> Bool
lint_syntaxInconsistencies forall a b. (a -> b) -> a -> b
$ LintSettings
_lhsIconfig) Bool -> Bool -> Bool
|| (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. SyntaxUsed -> Bool
luaUsed forall a b. (a -> b) -> a -> b
$ SyntaxUsed
_lhsIlineCommentSyntax)
                                               )
                                             ) of
                                          Bool
_consistent ->
                                            ( case ( ( Bool -> Bool -> SyntaxUsed
SyntaxUsed Bool
False Bool
_consistent
                                                     )
                                                   ) of
                                                SyntaxUsed
_lineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lineCommentSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOlineCommentSyntax ->
                                                        ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                                 )
                                                               ) of
                                                            SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                              ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOneqSyntax ->
                                                                    ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                             )
                                                                           ) of
                                                                        LineColPos
_lhsOnextTokenPos ->
                                                                          ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOnotSyntax ->
                                                                                ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                                         )
                                                                                       ) of
                                                                                    SyntaxUsed
_lhsOorSyntax ->
                                                                                      ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                               )
                                                                                             ) of
                                                                                          SyntaxUsed
_lhsOstrSyntax ->
                                                                                            ( case ( ( []
                                                                                                     )
                                                                                                   ) of
                                                                                                [Issue]
_tokenWarnings_augmented_syn ->
                                                                                                  ( case ( ( if Bool
_consistent
                                                                                                              then forall a. a -> a
id
                                                                                                              else (:) forall a b. (a -> b) -> a -> b
$ String -> String -> Issue
SyntaxInconsistency String
"//" String
"--"
                                                                                                           )
                                                                                                         ) of
                                                                                                      [Issue] -> [Issue]
_tokenWarnings_augmented_f1 ->
                                                                                                        ( case ( ( forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
foldr forall a b. (a -> b) -> a -> b
($) [Issue]
_tokenWarnings_augmented_syn [[Issue] -> [Issue]
_tokenWarnings_augmented_f1]
                                                                                                                 )
                                                                                                               ) of
                                                                                                            [Issue]
_lhsOtokenWarnings ->
                                                                                                              ( case ( ( []
                                                                                                                       )
                                                                                                                     ) of
                                                                                                                  [String -> LintMessage]
_lhsOwarnings ->
                                                                                                                    (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                                              )
                                                                                                        )
                                                                                                  )
                                                                                            )
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_SlashBlockComment
  :: String
  -> T_Token
sem_Token_SlashBlockComment :: String -> T_Token
sem_Token_SlashBlockComment String
comment_ =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( String -> Token
SlashBlockComment String
comment_
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. LintSettings -> Bool
lint_syntaxInconsistencies forall a b. (a -> b) -> a -> b
$ LintSettings
_lhsIconfig) Bool -> Bool -> Bool
|| (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. SyntaxUsed -> Bool
luaUsed forall a b. (a -> b) -> a -> b
$ SyntaxUsed
_lhsImultilineCommentSyntax)
                                                     )
                                                   ) of
                                                Bool
_consistent ->
                                                  ( case ( ( Bool -> Bool -> SyntaxUsed
SyntaxUsed Bool
False Bool
_consistent
                                                           )
                                                         ) of
                                                      SyntaxUsed
_multilineCommentSyntax ->
                                                        ( case ( ( SyntaxUsed
_multilineCommentSyntax
                                                                 )
                                                               ) of
                                                            SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                              ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOneqSyntax ->
                                                                    ( case ( ( String -> ShowS
showString String
"/*" forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> ShowS
showString String
comment_ forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> ShowS
showString String
"*/" forall a b. (a -> b) -> a -> b
$ String
""
                                                                             )
                                                                           ) of
                                                                        String
_str ->
                                                                          ( case ( ( LineColPos -> String -> LineColPos
customAdvanceStr LineColPos
_lhsInextTokenPos String
_str
                                                                                   )
                                                                                 ) of
                                                                              LineColPos
_lhsOnextTokenPos ->
                                                                                ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                                         )
                                                                                       ) of
                                                                                    SyntaxUsed
_lhsOnotSyntax ->
                                                                                      ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                                               )
                                                                                             ) of
                                                                                          SyntaxUsed
_lhsOorSyntax ->
                                                                                            ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                                     )
                                                                                                   ) of
                                                                                                SyntaxUsed
_lhsOstrSyntax ->
                                                                                                  ( case ( ( []
                                                                                                           )
                                                                                                         ) of
                                                                                                      [Issue]
_tokenWarnings_augmented_syn ->
                                                                                                        ( case ( ( if Bool
_consistent
                                                                                                                    then forall a. a -> a
id
                                                                                                                    else (:) forall a b. (a -> b) -> a -> b
$ String -> String -> Issue
SyntaxInconsistency String
"/* */" String
"--[[ ]]"
                                                                                                                 )
                                                                                                               ) of
                                                                                                            [Issue] -> [Issue]
_tokenWarnings_augmented_f1 ->
                                                                                                              ( case ( ( forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
foldr forall a b. (a -> b) -> a -> b
($) [Issue]
_tokenWarnings_augmented_syn [[Issue] -> [Issue]
_tokenWarnings_augmented_f1]
                                                                                                                       )
                                                                                                                     ) of
                                                                                                                  [Issue]
_lhsOtokenWarnings ->
                                                                                                                    ( case ( ( []
                                                                                                                             )
                                                                                                                           ) of
                                                                                                                        [String -> LintMessage]
_lhsOwarnings ->
                                                                                                                          (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                                                    )
                                                                                                              )
                                                                                                        )
                                                                                                  )
                                                                                            )
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Semicolon :: T_Token
sem_Token_Semicolon :: T_Token
sem_Token_Semicolon =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Semicolon
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_TNumber
  :: String
  -> T_Token
sem_Token_TNumber :: String -> T_Token
sem_Token_TNumber String
num_ =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( String -> Token
TNumber String
num_
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_DQString
  :: String
  -> T_Token
sem_Token_DQString :: String -> T_Token
sem_Token_DQString String
str_ =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( String -> Token
DQString String
str_
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> String -> LineColPos
customAdvanceStr LineColPos
_lhsInextTokenPos String
str_
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. LintSettings -> Bool
lint_syntaxInconsistencies forall a b. (a -> b) -> a -> b
$ LintSettings
_lhsIconfig) Bool -> Bool -> Bool
|| (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. SyntaxUsed -> Bool
cUsed forall a b. (a -> b) -> a -> b
$ SyntaxUsed
_lhsIstrSyntax)
                                                                                   )
                                                                                 ) of
                                                                              Bool
_consistent ->
                                                                                ( case ( ( Bool -> Bool -> SyntaxUsed
SyntaxUsed Bool
_consistent Bool
False
                                                                                         )
                                                                                       ) of
                                                                                    SyntaxUsed
_strSyntax ->
                                                                                      ( case ( ( SyntaxUsed
_strSyntax
                                                                                               )
                                                                                             ) of
                                                                                          SyntaxUsed
_lhsOstrSyntax ->
                                                                                            ( case ( ( []
                                                                                                     )
                                                                                                   ) of
                                                                                                [Issue]
_tokenWarnings_augmented_syn ->
                                                                                                  ( case ( ( if Bool
_consistent
                                                                                                              then forall a. a -> a
id
                                                                                                              else (:) forall a b. (a -> b) -> a -> b
$ String -> String -> Issue
SyntaxInconsistency String
"double quoted strings" String
"single quoted strings"
                                                                                                           )
                                                                                                         ) of
                                                                                                      [Issue] -> [Issue]
_tokenWarnings_augmented_f1 ->
                                                                                                        ( case ( ( forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
foldr forall a b. (a -> b) -> a -> b
($) [Issue]
_tokenWarnings_augmented_syn [[Issue] -> [Issue]
_tokenWarnings_augmented_f1]
                                                                                                                 )
                                                                                                               ) of
                                                                                                            [Issue]
_lhsOtokenWarnings ->
                                                                                                              ( case ( ( []
                                                                                                                       )
                                                                                                                     ) of
                                                                                                                  [String -> LintMessage]
_lhsOwarnings ->
                                                                                                                    (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                                              )
                                                                                                        )
                                                                                                  )
                                                                                            )
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_SQString
  :: String
  -> T_Token
sem_Token_SQString :: String -> T_Token
sem_Token_SQString String
str_ =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( String -> Token
SQString String
str_
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> String -> LineColPos
customAdvanceStr LineColPos
_lhsInextTokenPos String
str_
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. LintSettings -> Bool
lint_syntaxInconsistencies forall a b. (a -> b) -> a -> b
$ LintSettings
_lhsIconfig) Bool -> Bool -> Bool
|| (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. SyntaxUsed -> Bool
luaUsed forall a b. (a -> b) -> a -> b
$ SyntaxUsed
_lhsIstrSyntax) Bool -> Bool -> Bool
|| String -> Bool
isSingleChar String
str_
                                                                                   )
                                                                                 ) of
                                                                              Bool
_consistent ->
                                                                                ( case ( ( Bool -> Bool -> SyntaxUsed
SyntaxUsed Bool
False (Bool
_consistent Bool -> Bool -> Bool
&& Bool -> Bool
not (String -> Bool
isSingleChar String
str_))
                                                                                         )
                                                                                       ) of
                                                                                    SyntaxUsed
_strSyntax ->
                                                                                      ( case ( ( SyntaxUsed
_strSyntax
                                                                                               )
                                                                                             ) of
                                                                                          SyntaxUsed
_lhsOstrSyntax ->
                                                                                            ( case ( ( []
                                                                                                     )
                                                                                                   ) of
                                                                                                [Issue]
_tokenWarnings_augmented_syn ->
                                                                                                  ( case ( ( if Bool
_consistent
                                                                                                              then forall a. a -> a
id
                                                                                                              else (:) forall a b. (a -> b) -> a -> b
$ String -> String -> Issue
SyntaxInconsistency String
"single quoted strings" String
"double quoted strings"
                                                                                                           )
                                                                                                         ) of
                                                                                                      [Issue] -> [Issue]
_tokenWarnings_augmented_f1 ->
                                                                                                        ( case ( ( forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
foldr forall a b. (a -> b) -> a -> b
($) [Issue]
_tokenWarnings_augmented_syn [[Issue] -> [Issue]
_tokenWarnings_augmented_f1]
                                                                                                                 )
                                                                                                               ) of
                                                                                                            [Issue]
_lhsOtokenWarnings ->
                                                                                                              ( case ( ( []
                                                                                                                       )
                                                                                                                     ) of
                                                                                                                  [String -> LintMessage]
_lhsOwarnings ->
                                                                                                                    (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                                              )
                                                                                                        )
                                                                                                  )
                                                                                            )
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_MLString
  :: String
  -> T_Token
sem_Token_MLString :: String -> T_Token
sem_Token_MLString String
str_ =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( String -> Token
MLString String
str_
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> String -> LineColPos
customAdvanceStr LineColPos
_lhsInextTokenPos String
str_
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_TTrue :: T_Token
sem_Token_TTrue :: T_Token
sem_Token_TTrue =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
TTrue
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_TFalse :: T_Token
sem_Token_TFalse :: T_Token
sem_Token_TFalse =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
TFalse
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Nil :: T_Token
sem_Token_Nil :: T_Token
sem_Token_Nil =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Nil
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_VarArg :: T_Token
sem_Token_VarArg :: T_Token
sem_Token_VarArg =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
VarArg
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Plus :: T_Token
sem_Token_Plus :: T_Token
sem_Token_Plus =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Plus
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Minus :: T_Token
sem_Token_Minus :: T_Token
sem_Token_Minus =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Minus
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Multiply :: T_Token
sem_Token_Multiply :: T_Token
sem_Token_Multiply =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Multiply
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Divide :: T_Token
sem_Token_Divide :: T_Token
sem_Token_Divide =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Divide
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Modulus :: T_Token
sem_Token_Modulus :: T_Token
sem_Token_Modulus =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Modulus
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Power :: T_Token
sem_Token_Power :: T_Token
sem_Token_Power =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Power
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_TEq :: T_Token
sem_Token_TEq :: T_Token
sem_Token_TEq =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
TEq
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_TNEq :: T_Token
sem_Token_TNEq :: T_Token
sem_Token_TNEq =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
TNEq
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. LintSettings -> Bool
lint_syntaxInconsistencies forall a b. (a -> b) -> a -> b
$ LintSettings
_lhsIconfig) Bool -> Bool -> Bool
|| (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. SyntaxUsed -> Bool
cUsed forall a b. (a -> b) -> a -> b
$ SyntaxUsed
_lhsIneqSyntax)
                                                           )
                                                         ) of
                                                      Bool
_consistent ->
                                                        ( case ( ( Bool -> Bool -> SyntaxUsed
SyntaxUsed Bool
_consistent Bool
False
                                                                 )
                                                               ) of
                                                            SyntaxUsed
_neqSyntax ->
                                                              ( case ( ( SyntaxUsed
_neqSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOneqSyntax ->
                                                                    ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                             )
                                                                           ) of
                                                                        LineColPos
_lhsOnextTokenPos ->
                                                                          ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOnotSyntax ->
                                                                                ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                                         )
                                                                                       ) of
                                                                                    SyntaxUsed
_lhsOorSyntax ->
                                                                                      ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                               )
                                                                                             ) of
                                                                                          SyntaxUsed
_lhsOstrSyntax ->
                                                                                            ( case ( ( []
                                                                                                     )
                                                                                                   ) of
                                                                                                [Issue]
_tokenWarnings_augmented_syn ->
                                                                                                  ( case ( ( if Bool
_consistent
                                                                                                              then forall a. a -> a
id
                                                                                                              else (:) forall a b. (a -> b) -> a -> b
$ String -> String -> Issue
SyntaxInconsistency String
"~=" String
"!="
                                                                                                           )
                                                                                                         ) of
                                                                                                      [Issue] -> [Issue]
_tokenWarnings_augmented_f1 ->
                                                                                                        ( case ( ( forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
foldr forall a b. (a -> b) -> a -> b
($) [Issue]
_tokenWarnings_augmented_syn [[Issue] -> [Issue]
_tokenWarnings_augmented_f1]
                                                                                                                 )
                                                                                                               ) of
                                                                                                            [Issue]
_lhsOtokenWarnings ->
                                                                                                              ( case ( ( []
                                                                                                                       )
                                                                                                                     ) of
                                                                                                                  [String -> LintMessage]
_lhsOwarnings ->
                                                                                                                    (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                                              )
                                                                                                        )
                                                                                                  )
                                                                                            )
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_TCNEq :: T_Token
sem_Token_TCNEq :: T_Token
sem_Token_TCNEq =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
TCNEq
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. LintSettings -> Bool
lint_syntaxInconsistencies forall a b. (a -> b) -> a -> b
$ LintSettings
_lhsIconfig) Bool -> Bool -> Bool
|| (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. SyntaxUsed -> Bool
luaUsed forall a b. (a -> b) -> a -> b
$ SyntaxUsed
_lhsIneqSyntax)
                                                           )
                                                         ) of
                                                      Bool
_consistent ->
                                                        ( case ( ( Bool -> Bool -> SyntaxUsed
SyntaxUsed Bool
False Bool
_consistent
                                                                 )
                                                               ) of
                                                            SyntaxUsed
_neqSyntax ->
                                                              ( case ( ( SyntaxUsed
_neqSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOneqSyntax ->
                                                                    ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                             )
                                                                           ) of
                                                                        LineColPos
_lhsOnextTokenPos ->
                                                                          ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOnotSyntax ->
                                                                                ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                                         )
                                                                                       ) of
                                                                                    SyntaxUsed
_lhsOorSyntax ->
                                                                                      ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                               )
                                                                                             ) of
                                                                                          SyntaxUsed
_lhsOstrSyntax ->
                                                                                            ( case ( ( []
                                                                                                     )
                                                                                                   ) of
                                                                                                [Issue]
_tokenWarnings_augmented_syn ->
                                                                                                  ( case ( ( if Bool
_consistent
                                                                                                              then forall a. a -> a
id
                                                                                                              else (:) forall a b. (a -> b) -> a -> b
$ String -> String -> Issue
SyntaxInconsistency String
"!=" String
"~="
                                                                                                           )
                                                                                                         ) of
                                                                                                      [Issue] -> [Issue]
_tokenWarnings_augmented_f1 ->
                                                                                                        ( case ( ( forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
foldr forall a b. (a -> b) -> a -> b
($) [Issue]
_tokenWarnings_augmented_syn [[Issue] -> [Issue]
_tokenWarnings_augmented_f1]
                                                                                                                 )
                                                                                                               ) of
                                                                                                            [Issue]
_lhsOtokenWarnings ->
                                                                                                              ( case ( ( []
                                                                                                                       )
                                                                                                                     ) of
                                                                                                                  [String -> LintMessage]
_lhsOwarnings ->
                                                                                                                    (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                                              )
                                                                                                        )
                                                                                                  )
                                                                                            )
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_TLEQ :: T_Token
sem_Token_TLEQ :: T_Token
sem_Token_TLEQ =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
TLEQ
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_TGEQ :: T_Token
sem_Token_TGEQ :: T_Token
sem_Token_TGEQ =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
TGEQ
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_TLT :: T_Token
sem_Token_TLT :: T_Token
sem_Token_TLT =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
TLT
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_TGT :: T_Token
sem_Token_TGT :: T_Token
sem_Token_TGT =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
TGT
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Equals :: T_Token
sem_Token_Equals :: T_Token
sem_Token_Equals =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Equals
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Concatenate :: T_Token
sem_Token_Concatenate :: T_Token
sem_Token_Concatenate =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Concatenate
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Colon :: T_Token
sem_Token_Colon :: T_Token
sem_Token_Colon =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Colon
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Dot :: T_Token
sem_Token_Dot :: T_Token
sem_Token_Dot =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Dot
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Comma :: T_Token
sem_Token_Comma :: T_Token
sem_Token_Comma =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Comma
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Hash :: T_Token
sem_Token_Hash :: T_Token
sem_Token_Hash =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Hash
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Not :: T_Token
sem_Token_Not :: T_Token
sem_Token_Not =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Not
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. LintSettings -> Bool
lint_syntaxInconsistencies forall a b. (a -> b) -> a -> b
$ LintSettings
_lhsIconfig) Bool -> Bool -> Bool
|| (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. SyntaxUsed -> Bool
cUsed forall a b. (a -> b) -> a -> b
$ SyntaxUsed
_lhsInotSyntax)
                                                                       )
                                                                     ) of
                                                                  Bool
_consistent ->
                                                                    ( case ( ( Bool -> Bool -> SyntaxUsed
SyntaxUsed Bool
_consistent Bool
False
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_notSyntax ->
                                                                          ( case ( ( SyntaxUsed
_notSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOnotSyntax ->
                                                                                ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                                         )
                                                                                       ) of
                                                                                    SyntaxUsed
_lhsOorSyntax ->
                                                                                      ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                               )
                                                                                             ) of
                                                                                          SyntaxUsed
_lhsOstrSyntax ->
                                                                                            ( case ( ( []
                                                                                                     )
                                                                                                   ) of
                                                                                                [Issue]
_tokenWarnings_augmented_syn ->
                                                                                                  ( case ( ( if Bool
_consistent
                                                                                                              then forall a. a -> a
id
                                                                                                              else (:) forall a b. (a -> b) -> a -> b
$ String -> String -> Issue
SyntaxInconsistency String
"not" String
"!"
                                                                                                           )
                                                                                                         ) of
                                                                                                      [Issue] -> [Issue]
_tokenWarnings_augmented_f1 ->
                                                                                                        ( case ( ( forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
foldr forall a b. (a -> b) -> a -> b
($) [Issue]
_tokenWarnings_augmented_syn [[Issue] -> [Issue]
_tokenWarnings_augmented_f1]
                                                                                                                 )
                                                                                                               ) of
                                                                                                            [Issue]
_lhsOtokenWarnings ->
                                                                                                              ( case ( ( []
                                                                                                                       )
                                                                                                                     ) of
                                                                                                                  [String -> LintMessage]
_lhsOwarnings ->
                                                                                                                    (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                                              )
                                                                                                        )
                                                                                                  )
                                                                                            )
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_CNot :: T_Token
sem_Token_CNot :: T_Token
sem_Token_CNot =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
CNot
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. LintSettings -> Bool
lint_syntaxInconsistencies forall a b. (a -> b) -> a -> b
$ LintSettings
_lhsIconfig) Bool -> Bool -> Bool
|| (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. SyntaxUsed -> Bool
luaUsed forall a b. (a -> b) -> a -> b
$ SyntaxUsed
_lhsInotSyntax)
                                                                       )
                                                                     ) of
                                                                  Bool
_consistent ->
                                                                    ( case ( ( Bool -> Bool -> SyntaxUsed
SyntaxUsed Bool
False Bool
_consistent
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_notSyntax ->
                                                                          ( case ( ( SyntaxUsed
_notSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOnotSyntax ->
                                                                                ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                                         )
                                                                                       ) of
                                                                                    SyntaxUsed
_lhsOorSyntax ->
                                                                                      ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                               )
                                                                                             ) of
                                                                                          SyntaxUsed
_lhsOstrSyntax ->
                                                                                            ( case ( ( []
                                                                                                     )
                                                                                                   ) of
                                                                                                [Issue]
_tokenWarnings_augmented_syn ->
                                                                                                  ( case ( ( if Bool
_consistent
                                                                                                              then forall a. a -> a
id
                                                                                                              else (:) forall a b. (a -> b) -> a -> b
$ String -> String -> Issue
SyntaxInconsistency String
"!" String
"not"
                                                                                                           )
                                                                                                         ) of
                                                                                                      [Issue] -> [Issue]
_tokenWarnings_augmented_f1 ->
                                                                                                        ( case ( ( forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
foldr forall a b. (a -> b) -> a -> b
($) [Issue]
_tokenWarnings_augmented_syn [[Issue] -> [Issue]
_tokenWarnings_augmented_f1]
                                                                                                                 )
                                                                                                               ) of
                                                                                                            [Issue]
_lhsOtokenWarnings ->
                                                                                                              ( case ( ( []
                                                                                                                       )
                                                                                                                     ) of
                                                                                                                  [String -> LintMessage]
_lhsOwarnings ->
                                                                                                                    (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                                              )
                                                                                                        )
                                                                                                  )
                                                                                            )
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_And :: T_Token
sem_Token_And :: T_Token
sem_Token_And =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. LintSettings -> Bool
lint_syntaxInconsistencies forall a b. (a -> b) -> a -> b
$ LintSettings
_lhsIconfig) Bool -> Bool -> Bool
|| (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. SyntaxUsed -> Bool
cUsed forall a b. (a -> b) -> a -> b
$ SyntaxUsed
_lhsIandSyntax)
                 )
               ) of
            Bool
_consistent ->
              ( case ( ( Bool -> Bool -> SyntaxUsed
SyntaxUsed Bool
_consistent Bool
False
                       )
                     ) of
                  SyntaxUsed
_andSyntax ->
                    ( case ( ( SyntaxUsed
_andSyntax
                             )
                           ) of
                        SyntaxUsed
_lhsOandSyntax ->
                          ( case ( ( Token
And
                                   )
                                 ) of
                              Token
_copy ->
                                ( case ( ( Token
_copy
                                         )
                                       ) of
                                    Token
_lhsOcopy ->
                                      ( case ( ( []
                                               )
                                             ) of
                                          [String -> LintMessage]
_lhsOcustomWarnings ->
                                            ( case ( ( SyntaxUsed
_lhsIindentation
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOindentation ->
                                                  ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOlineCommentSyntax ->
                                                        ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                                 )
                                                               ) of
                                                            SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                              ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOneqSyntax ->
                                                                    ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                             )
                                                                           ) of
                                                                        LineColPos
_lhsOnextTokenPos ->
                                                                          ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOnotSyntax ->
                                                                                ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                                         )
                                                                                       ) of
                                                                                    SyntaxUsed
_lhsOorSyntax ->
                                                                                      ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                               )
                                                                                             ) of
                                                                                          SyntaxUsed
_lhsOstrSyntax ->
                                                                                            ( case ( ( []
                                                                                                     )
                                                                                                   ) of
                                                                                                [Issue]
_tokenWarnings_augmented_syn ->
                                                                                                  ( case ( ( if Bool
_consistent
                                                                                                              then forall a. a -> a
id
                                                                                                              else (:) forall a b. (a -> b) -> a -> b
$ String -> String -> Issue
SyntaxInconsistency String
"and" String
"&&"
                                                                                                           )
                                                                                                         ) of
                                                                                                      [Issue] -> [Issue]
_tokenWarnings_augmented_f1 ->
                                                                                                        ( case ( ( forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
foldr forall a b. (a -> b) -> a -> b
($) [Issue]
_tokenWarnings_augmented_syn [[Issue] -> [Issue]
_tokenWarnings_augmented_f1]
                                                                                                                 )
                                                                                                               ) of
                                                                                                            [Issue]
_lhsOtokenWarnings ->
                                                                                                              ( case ( ( []
                                                                                                                       )
                                                                                                                     ) of
                                                                                                                  [String -> LintMessage]
_lhsOwarnings ->
                                                                                                                    (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                                              )
                                                                                                        )
                                                                                                  )
                                                                                            )
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_CAnd :: T_Token
sem_Token_CAnd :: T_Token
sem_Token_CAnd =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. LintSettings -> Bool
lint_syntaxInconsistencies forall a b. (a -> b) -> a -> b
$ LintSettings
_lhsIconfig) Bool -> Bool -> Bool
|| (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. SyntaxUsed -> Bool
luaUsed forall a b. (a -> b) -> a -> b
$ SyntaxUsed
_lhsIandSyntax)
                 )
               ) of
            Bool
_consistent ->
              ( case ( ( Bool -> Bool -> SyntaxUsed
SyntaxUsed Bool
False Bool
_consistent
                       )
                     ) of
                  SyntaxUsed
_andSyntax ->
                    ( case ( ( SyntaxUsed
_andSyntax
                             )
                           ) of
                        SyntaxUsed
_lhsOandSyntax ->
                          ( case ( ( Token
CAnd
                                   )
                                 ) of
                              Token
_copy ->
                                ( case ( ( Token
_copy
                                         )
                                       ) of
                                    Token
_lhsOcopy ->
                                      ( case ( ( []
                                               )
                                             ) of
                                          [String -> LintMessage]
_lhsOcustomWarnings ->
                                            ( case ( ( SyntaxUsed
_lhsIindentation
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOindentation ->
                                                  ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOlineCommentSyntax ->
                                                        ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                                 )
                                                               ) of
                                                            SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                              ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOneqSyntax ->
                                                                    ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                             )
                                                                           ) of
                                                                        LineColPos
_lhsOnextTokenPos ->
                                                                          ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOnotSyntax ->
                                                                                ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                                         )
                                                                                       ) of
                                                                                    SyntaxUsed
_lhsOorSyntax ->
                                                                                      ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                               )
                                                                                             ) of
                                                                                          SyntaxUsed
_lhsOstrSyntax ->
                                                                                            ( case ( ( []
                                                                                                     )
                                                                                                   ) of
                                                                                                [Issue]
_tokenWarnings_augmented_syn ->
                                                                                                  ( case ( ( if Bool
_consistent
                                                                                                              then forall a. a -> a
id
                                                                                                              else (:) forall a b. (a -> b) -> a -> b
$ String -> String -> Issue
SyntaxInconsistency String
"&&" String
"and"
                                                                                                           )
                                                                                                         ) of
                                                                                                      [Issue] -> [Issue]
_tokenWarnings_augmented_f1 ->
                                                                                                        ( case ( ( forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
foldr forall a b. (a -> b) -> a -> b
($) [Issue]
_tokenWarnings_augmented_syn [[Issue] -> [Issue]
_tokenWarnings_augmented_f1]
                                                                                                                 )
                                                                                                               ) of
                                                                                                            [Issue]
_lhsOtokenWarnings ->
                                                                                                              ( case ( ( []
                                                                                                                       )
                                                                                                                     ) of
                                                                                                                  [String -> LintMessage]
_lhsOwarnings ->
                                                                                                                    (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                                              )
                                                                                                        )
                                                                                                  )
                                                                                            )
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Or :: T_Token
sem_Token_Or :: T_Token
sem_Token_Or =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Or
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. LintSettings -> Bool
lint_syntaxInconsistencies forall a b. (a -> b) -> a -> b
$ LintSettings
_lhsIconfig) Bool -> Bool -> Bool
|| (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. SyntaxUsed -> Bool
cUsed forall a b. (a -> b) -> a -> b
$ SyntaxUsed
_lhsIorSyntax)
                                                                             )
                                                                           ) of
                                                                        Bool
_consistent ->
                                                                          ( case ( ( Bool -> Bool -> SyntaxUsed
SyntaxUsed Bool
_consistent Bool
False
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_orSyntax ->
                                                                                ( case ( ( SyntaxUsed
_orSyntax
                                                                                         )
                                                                                       ) of
                                                                                    SyntaxUsed
_lhsOorSyntax ->
                                                                                      ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                               )
                                                                                             ) of
                                                                                          SyntaxUsed
_lhsOstrSyntax ->
                                                                                            ( case ( ( []
                                                                                                     )
                                                                                                   ) of
                                                                                                [Issue]
_tokenWarnings_augmented_syn ->
                                                                                                  ( case ( ( if Bool
_consistent
                                                                                                              then forall a. a -> a
id
                                                                                                              else (:) forall a b. (a -> b) -> a -> b
$ String -> String -> Issue
SyntaxInconsistency String
"or" String
"||"
                                                                                                           )
                                                                                                         ) of
                                                                                                      [Issue] -> [Issue]
_tokenWarnings_augmented_f1 ->
                                                                                                        ( case ( ( forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
foldr forall a b. (a -> b) -> a -> b
($) [Issue]
_tokenWarnings_augmented_syn [[Issue] -> [Issue]
_tokenWarnings_augmented_f1]
                                                                                                                 )
                                                                                                               ) of
                                                                                                            [Issue]
_lhsOtokenWarnings ->
                                                                                                              ( case ( ( []
                                                                                                                       )
                                                                                                                     ) of
                                                                                                                  [String -> LintMessage]
_lhsOwarnings ->
                                                                                                                    (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                                              )
                                                                                                        )
                                                                                                  )
                                                                                            )
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_COr :: T_Token
sem_Token_COr :: T_Token
sem_Token_COr =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
COr
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. LintSettings -> Bool
lint_syntaxInconsistencies forall a b. (a -> b) -> a -> b
$ LintSettings
_lhsIconfig) Bool -> Bool -> Bool
|| (Bool -> Bool
not forall b c a. (b -> c) -> (a -> b) -> a -> c
. SyntaxUsed -> Bool
luaUsed forall a b. (a -> b) -> a -> b
$ SyntaxUsed
_lhsIorSyntax)
                                                                             )
                                                                           ) of
                                                                        Bool
_consistent ->
                                                                          ( case ( ( Bool -> Bool -> SyntaxUsed
SyntaxUsed Bool
False Bool
_consistent
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_orSyntax ->
                                                                                ( case ( ( SyntaxUsed
_orSyntax
                                                                                         )
                                                                                       ) of
                                                                                    SyntaxUsed
_lhsOorSyntax ->
                                                                                      ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                               )
                                                                                             ) of
                                                                                          SyntaxUsed
_lhsOstrSyntax ->
                                                                                            ( case ( ( []
                                                                                                     )
                                                                                                   ) of
                                                                                                [Issue]
_tokenWarnings_augmented_syn ->
                                                                                                  ( case ( ( if Bool
_consistent
                                                                                                              then forall a. a -> a
id
                                                                                                              else (:) forall a b. (a -> b) -> a -> b
$ String -> String -> Issue
SyntaxInconsistency String
"||" String
"or"
                                                                                                           )
                                                                                                         ) of
                                                                                                      [Issue] -> [Issue]
_tokenWarnings_augmented_f1 ->
                                                                                                        ( case ( ( forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
foldr forall a b. (a -> b) -> a -> b
($) [Issue]
_tokenWarnings_augmented_syn [[Issue] -> [Issue]
_tokenWarnings_augmented_f1]
                                                                                                                 )
                                                                                                               ) of
                                                                                                            [Issue]
_lhsOtokenWarnings ->
                                                                                                              ( case ( ( []
                                                                                                                       )
                                                                                                                     ) of
                                                                                                                  [String -> LintMessage]
_lhsOwarnings ->
                                                                                                                    (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                                              )
                                                                                                        )
                                                                                                  )
                                                                                            )
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Function :: T_Token
sem_Token_Function :: T_Token
sem_Token_Function =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Function
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Local :: T_Token
sem_Token_Local :: T_Token
sem_Token_Local =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Local
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_If :: T_Token
sem_Token_If :: T_Token
sem_Token_If =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
If
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Then :: T_Token
sem_Token_Then :: T_Token
sem_Token_Then =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Then
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Elseif :: T_Token
sem_Token_Elseif :: T_Token
sem_Token_Elseif =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Elseif
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Else :: T_Token
sem_Token_Else :: T_Token
sem_Token_Else =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Else
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_For :: T_Token
sem_Token_For :: T_Token
sem_Token_For =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
For
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_In :: T_Token
sem_Token_In :: T_Token
sem_Token_In =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
In
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Do :: T_Token
sem_Token_Do :: T_Token
sem_Token_Do =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Do
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_While :: T_Token
sem_Token_While :: T_Token
sem_Token_While =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
While
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Until :: T_Token
sem_Token_Until :: T_Token
sem_Token_Until =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Until
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Repeat :: T_Token
sem_Token_Repeat :: T_Token
sem_Token_Repeat =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Repeat
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Continue :: T_Token
sem_Token_Continue :: T_Token
sem_Token_Continue =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Continue
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Break :: T_Token
sem_Token_Break :: T_Token
sem_Token_Break =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Break
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Return :: T_Token
sem_Token_Return :: T_Token
sem_Token_Return =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
Return
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_End :: T_Token
sem_Token_End :: T_Token
sem_Token_End =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
End
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_LRound :: T_Token
sem_Token_LRound :: T_Token
sem_Token_LRound =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
LRound
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_RRound :: T_Token
sem_Token_RRound :: T_Token
sem_Token_RRound =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
RRound
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_LCurly :: T_Token
sem_Token_LCurly :: T_Token
sem_Token_LCurly =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
LCurly
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_RCurly :: T_Token
sem_Token_RCurly :: T_Token
sem_Token_RCurly =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
RCurly
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_LSquare :: T_Token
sem_Token_LSquare :: T_Token
sem_Token_LSquare =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
LSquare
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_RSquare :: T_Token
sem_Token_RSquare :: T_Token
sem_Token_RSquare =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( Token
RSquare
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Label
  :: String
  -> String
  -> String
  -> T_Token
sem_Token_Label :: String -> String -> String -> T_Token
sem_Token_Label String
whitespaceBefore_ String
lbl_ String
whitespaceAfter_ =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( String -> String -> String -> Token
Label String
whitespaceBefore_ String
lbl_ String
whitespaceAfter_
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> String -> LineColPos
customAdvanceStr LineColPos
_lhsInextTokenPos (forall a. Show a => a -> String
show Token
_copy)
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_Token_Identifier
  :: String
  -> T_Token
sem_Token_Identifier :: String -> T_Token
sem_Token_Identifier String
ident_ =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( String -> Token
Identifier String
ident_
                       )
                     ) of
                  Token
_copy ->
                    ( case ( ( Token
_copy
                             )
                           ) of
                        Token
_lhsOcopy ->
                          ( case ( ( []
                                   )
                                 ) of
                              [String -> LintMessage]
_lhsOcustomWarnings ->
                                ( case ( ( SyntaxUsed
_lhsIindentation
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOindentation ->
                                      ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOlineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_lhsOneqSyntax ->
                                                        ( case ( ( LineColPos -> Token -> LineColPos
customAdvanceToken LineColPos
_lhsInextTokenPos Token
_copy
                                                                 )
                                                               ) of
                                                            LineColPos
_lhsOnextTokenPos ->
                                                              ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOnotSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOorSyntax ->
                                                                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                                   )
                                                                                 ) of
                                                                              SyntaxUsed
_lhsOstrSyntax ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [Issue]
_lhsOtokenWarnings ->
                                                                                      ( case ( ( []
                                                                                               )
                                                                                             ) of
                                                                                          [String -> LintMessage]
_lhsOwarnings ->
                                                                                            (SyntaxUsed
_lhsOandSyntax, Token
_lhsOcopy, [String -> LintMessage]
_lhsOcustomWarnings, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )

-- TokenList ---------------------------------------------------
-- cata
sem_TokenList
  :: TokenList
  -> T_TokenList
sem_TokenList :: TokenList -> T_TokenList
sem_TokenList TokenList
list =
  (forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
Prelude.foldr T_Token -> T_TokenList -> T_TokenList
sem_TokenList_Cons T_TokenList
sem_TokenList_Nil (forall a b. (a -> b) -> [a] -> [b]
Prelude.map Token -> T_Token
sem_Token TokenList
list))

-- semantic domain
type T_TokenList =
  SyntaxUsed
  -> LintSettings
  -> SyntaxUsed
  -> SyntaxUsed
  -> SyntaxUsed
  -> SyntaxUsed
  -> LineColPos
  -> SyntaxUsed
  -> SyntaxUsed
  -> SyntaxUsed
  -> (SyntaxUsed, TokenList, SyntaxUsed, SyntaxUsed, SyntaxUsed, SyntaxUsed, LineColPos, SyntaxUsed, SyntaxUsed, SyntaxUsed, ([Issue]), ([FilePath -> LintMessage]))
data Inh_TokenList = Inh_TokenList {Inh_TokenList -> SyntaxUsed
andSyntax_Inh_TokenList :: SyntaxUsed, Inh_TokenList -> LintSettings
config_Inh_TokenList :: LintSettings, Inh_TokenList -> SyntaxUsed
indentation_Inh_TokenList :: SyntaxUsed, Inh_TokenList -> SyntaxUsed
lineCommentSyntax_Inh_TokenList :: SyntaxUsed, Inh_TokenList -> SyntaxUsed
multilineCommentSyntax_Inh_TokenList :: SyntaxUsed, Inh_TokenList -> SyntaxUsed
neqSyntax_Inh_TokenList :: SyntaxUsed, Inh_TokenList -> LineColPos
nextTokenPos_Inh_TokenList :: LineColPos, Inh_TokenList -> SyntaxUsed
notSyntax_Inh_TokenList :: SyntaxUsed, Inh_TokenList -> SyntaxUsed
orSyntax_Inh_TokenList :: SyntaxUsed, Inh_TokenList -> SyntaxUsed
strSyntax_Inh_TokenList :: SyntaxUsed}
data Syn_TokenList = Syn_TokenList {Syn_TokenList -> SyntaxUsed
andSyntax_Syn_TokenList :: SyntaxUsed, Syn_TokenList -> TokenList
copy_Syn_TokenList :: TokenList, Syn_TokenList -> SyntaxUsed
indentation_Syn_TokenList :: SyntaxUsed, Syn_TokenList -> SyntaxUsed
lineCommentSyntax_Syn_TokenList :: SyntaxUsed, Syn_TokenList -> SyntaxUsed
multilineCommentSyntax_Syn_TokenList :: SyntaxUsed, Syn_TokenList -> SyntaxUsed
neqSyntax_Syn_TokenList :: SyntaxUsed, Syn_TokenList -> LineColPos
nextTokenPos_Syn_TokenList :: LineColPos, Syn_TokenList -> SyntaxUsed
notSyntax_Syn_TokenList :: SyntaxUsed, Syn_TokenList -> SyntaxUsed
orSyntax_Syn_TokenList :: SyntaxUsed, Syn_TokenList -> SyntaxUsed
strSyntax_Syn_TokenList :: SyntaxUsed, Syn_TokenList -> [Issue]
tokenWarnings_Syn_TokenList :: ([Issue]), Syn_TokenList -> [String -> LintMessage]
warnings_Syn_TokenList :: ([FilePath -> LintMessage])}
wrap_TokenList
  :: T_TokenList
  -> Inh_TokenList
  -> Syn_TokenList
wrap_TokenList :: T_TokenList -> Inh_TokenList -> Syn_TokenList
wrap_TokenList T_TokenList
sem (Inh_TokenList SyntaxUsed
_lhsIandSyntax LintSettings
_lhsIconfig SyntaxUsed
_lhsIindentation SyntaxUsed
_lhsIlineCommentSyntax SyntaxUsed
_lhsImultilineCommentSyntax SyntaxUsed
_lhsIneqSyntax LineColPos
_lhsInextTokenPos SyntaxUsed
_lhsInotSyntax SyntaxUsed
_lhsIorSyntax SyntaxUsed
_lhsIstrSyntax) =
  ( let
      (SyntaxUsed
_lhsOandSyntax, TokenList
_lhsOcopy, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings) = T_TokenList
sem SyntaxUsed
_lhsIandSyntax LintSettings
_lhsIconfig SyntaxUsed
_lhsIindentation SyntaxUsed
_lhsIlineCommentSyntax SyntaxUsed
_lhsImultilineCommentSyntax SyntaxUsed
_lhsIneqSyntax LineColPos
_lhsInextTokenPos SyntaxUsed
_lhsInotSyntax SyntaxUsed
_lhsIorSyntax SyntaxUsed
_lhsIstrSyntax
    in
      (SyntaxUsed
-> TokenList
-> SyntaxUsed
-> SyntaxUsed
-> SyntaxUsed
-> SyntaxUsed
-> LineColPos
-> SyntaxUsed
-> SyntaxUsed
-> SyntaxUsed
-> [Issue]
-> [String -> LintMessage]
-> Syn_TokenList
Syn_TokenList SyntaxUsed
_lhsOandSyntax TokenList
_lhsOcopy SyntaxUsed
_lhsOindentation SyntaxUsed
_lhsOlineCommentSyntax SyntaxUsed
_lhsOmultilineCommentSyntax SyntaxUsed
_lhsOneqSyntax LineColPos
_lhsOnextTokenPos SyntaxUsed
_lhsOnotSyntax SyntaxUsed
_lhsOorSyntax SyntaxUsed
_lhsOstrSyntax [Issue]
_lhsOtokenWarnings [String -> LintMessage]
_lhsOwarnings)
  )
sem_TokenList_Cons
  :: T_Token
  -> T_TokenList
  -> T_TokenList
sem_TokenList_Cons :: T_Token -> T_TokenList -> T_TokenList
sem_TokenList_Cons T_Token
hd_ T_TokenList
tl_ =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( LintSettings
_lhsIconfig
                 )
               ) of
            LintSettings
_tlOconfig ->
              ( case ( ( LintSettings
_lhsIconfig
                       )
                     ) of
                  LintSettings
_hdOconfig ->
                    ( case ( ( SyntaxUsed
_lhsIandSyntax
                             )
                           ) of
                        SyntaxUsed
_hdOandSyntax ->
                          ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                   )
                                 ) of
                              SyntaxUsed
_hdOstrSyntax ->
                                ( case ( ( SyntaxUsed
_lhsIorSyntax
                                         )
                                       ) of
                                    SyntaxUsed
_hdOorSyntax ->
                                      ( case ( ( SyntaxUsed
_lhsInotSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_hdOnotSyntax ->
                                            ( case ( ( LineColPos
_lhsInextTokenPos
                                                     )
                                                   ) of
                                                LineColPos
_hdOnextTokenPos ->
                                                  ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                           )
                                                         ) of
                                                      SyntaxUsed
_hdOneqSyntax ->
                                                        ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                                                 )
                                                               ) of
                                                            SyntaxUsed
_hdOmultilineCommentSyntax ->
                                                              ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_hdOlineCommentSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIindentation
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_hdOindentation ->
                                                                          ( case (T_Token
hd_ SyntaxUsed
_hdOandSyntax LintSettings
_hdOconfig SyntaxUsed
_hdOindentation SyntaxUsed
_hdOlineCommentSyntax SyntaxUsed
_hdOmultilineCommentSyntax SyntaxUsed
_hdOneqSyntax LineColPos
_hdOnextTokenPos SyntaxUsed
_hdOnotSyntax SyntaxUsed
_hdOorSyntax SyntaxUsed
_hdOstrSyntax) of
                                                                              (SyntaxUsed
_hdIandSyntax, Token
_hdIcopy, [String -> LintMessage]
_hdIcustomWarnings, SyntaxUsed
_hdIindentation, SyntaxUsed
_hdIlineCommentSyntax, SyntaxUsed
_hdImultilineCommentSyntax, SyntaxUsed
_hdIneqSyntax, LineColPos
_hdInextTokenPos, SyntaxUsed
_hdInotSyntax, SyntaxUsed
_hdIorSyntax, SyntaxUsed
_hdIstrSyntax, [Issue]
_hdItokenWarnings, [String -> LintMessage]
_hdIwarnings) ->
                                                                                ( case ( ( SyntaxUsed
_hdIandSyntax
                                                                                         )
                                                                                       ) of
                                                                                    SyntaxUsed
_tlOandSyntax ->
                                                                                      ( case ( ( SyntaxUsed
_hdIstrSyntax
                                                                                               )
                                                                                             ) of
                                                                                          SyntaxUsed
_tlOstrSyntax ->
                                                                                            ( case ( ( SyntaxUsed
_hdIorSyntax
                                                                                                     )
                                                                                                   ) of
                                                                                                SyntaxUsed
_tlOorSyntax ->
                                                                                                  ( case ( ( SyntaxUsed
_hdInotSyntax
                                                                                                           )
                                                                                                         ) of
                                                                                                      SyntaxUsed
_tlOnotSyntax ->
                                                                                                        ( case ( ( LineColPos
_hdInextTokenPos
                                                                                                                 )
                                                                                                               ) of
                                                                                                            LineColPos
_tlOnextTokenPos ->
                                                                                                              ( case ( ( SyntaxUsed
_hdIneqSyntax
                                                                                                                       )
                                                                                                                     ) of
                                                                                                                  SyntaxUsed
_tlOneqSyntax ->
                                                                                                                    ( case ( ( SyntaxUsed
_hdImultilineCommentSyntax
                                                                                                                             )
                                                                                                                           ) of
                                                                                                                        SyntaxUsed
_tlOmultilineCommentSyntax ->
                                                                                                                          ( case ( ( SyntaxUsed
_hdIlineCommentSyntax
                                                                                                                                   )
                                                                                                                                 ) of
                                                                                                                              SyntaxUsed
_tlOlineCommentSyntax ->
                                                                                                                                ( case ( ( SyntaxUsed
_hdIindentation
                                                                                                                                         )
                                                                                                                                       ) of
                                                                                                                                    SyntaxUsed
_tlOindentation ->
                                                                                                                                      ( case (T_TokenList
tl_ SyntaxUsed
_tlOandSyntax LintSettings
_tlOconfig SyntaxUsed
_tlOindentation SyntaxUsed
_tlOlineCommentSyntax SyntaxUsed
_tlOmultilineCommentSyntax SyntaxUsed
_tlOneqSyntax LineColPos
_tlOnextTokenPos SyntaxUsed
_tlOnotSyntax SyntaxUsed
_tlOorSyntax SyntaxUsed
_tlOstrSyntax) of
                                                                                                                                          (SyntaxUsed
_tlIandSyntax, TokenList
_tlIcopy, SyntaxUsed
_tlIindentation, SyntaxUsed
_tlIlineCommentSyntax, SyntaxUsed
_tlImultilineCommentSyntax, SyntaxUsed
_tlIneqSyntax, LineColPos
_tlInextTokenPos, SyntaxUsed
_tlInotSyntax, SyntaxUsed
_tlIorSyntax, SyntaxUsed
_tlIstrSyntax, [Issue]
_tlItokenWarnings, [String -> LintMessage]
_tlIwarnings) ->
                                                                                                                                            ( case ( ( SyntaxUsed
_tlIandSyntax
                                                                                                                                                     )
                                                                                                                                                   ) of
                                                                                                                                                SyntaxUsed
_lhsOandSyntax ->
                                                                                                                                                  ( case ( ( (:) Token
_hdIcopy TokenList
_tlIcopy
                                                                                                                                                           )
                                                                                                                                                         ) of
                                                                                                                                                      TokenList
_copy ->
                                                                                                                                                        ( case ( ( TokenList
_copy
                                                                                                                                                                 )
                                                                                                                                                               ) of
                                                                                                                                                            TokenList
_lhsOcopy ->
                                                                                                                                                              ( case ( ( SyntaxUsed
_tlIindentation
                                                                                                                                                                       )
                                                                                                                                                                     ) of
                                                                                                                                                                  SyntaxUsed
_lhsOindentation ->
                                                                                                                                                                    ( case ( ( SyntaxUsed
_tlIlineCommentSyntax
                                                                                                                                                                             )
                                                                                                                                                                           ) of
                                                                                                                                                                        SyntaxUsed
_lhsOlineCommentSyntax ->
                                                                                                                                                                          ( case ( ( SyntaxUsed
_tlImultilineCommentSyntax
                                                                                                                                                                                   )
                                                                                                                                                                                 ) of
                                                                                                                                                                              SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                                                                                                                                                                ( case ( ( SyntaxUsed
_tlIneqSyntax
                                                                                                                                                                                         )
                                                                                                                                                                                       ) of
                                                                                                                                                                                    SyntaxUsed
_lhsOneqSyntax ->
                                                                                                                                                                                      ( case ( ( LineColPos
_tlInextTokenPos
                                                                                                                                                                                               )
                                                                                                                                                                                             ) of
                                                                                                                                                                                          LineColPos
_lhsOnextTokenPos ->
                                                                                                                                                                                            ( case ( ( SyntaxUsed
_tlInotSyntax
                                                                                                                                                                                                     )
                                                                                                                                                                                                   ) of
                                                                                                                                                                                                SyntaxUsed
_lhsOnotSyntax ->
                                                                                                                                                                                                  ( case ( ( SyntaxUsed
_tlIorSyntax
                                                                                                                                                                                                           )
                                                                                                                                                                                                         ) of
                                                                                                                                                                                                      SyntaxUsed
_lhsOorSyntax ->
                                                                                                                                                                                                        ( case ( ( SyntaxUsed
_tlIstrSyntax
                                                                                                                                                                                                                 )
                                                                                                                                                                                                               ) of
                                                                                                                                                                                                            SyntaxUsed
_lhsOstrSyntax ->
                                                                                                                                                                                                              ( case ( ( [Issue]
_hdItokenWarnings forall a. [a] -> [a] -> [a]
++ [Issue]
_tlItokenWarnings
                                                                                                                                                                                                                       )
                                                                                                                                                                                                                     ) of
                                                                                                                                                                                                                  [Issue]
_lhsOtokenWarnings ->
                                                                                                                                                                                                                    ( case ( ( [String -> LintMessage]
_hdIwarnings forall a. [a] -> [a] -> [a]
++ [String -> LintMessage]
_tlIwarnings
                                                                                                                                                                                                                             )
                                                                                                                                                                                                                           ) of
                                                                                                                                                                                                                        [String -> LintMessage]
_lhsOwarnings ->
                                                                                                                                                                                                                          (SyntaxUsed
_lhsOandSyntax, TokenList
_lhsOcopy, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                                                                                                                                                    )
                                                                                                                                                                                                              )
                                                                                                                                                                                                        )
                                                                                                                                                                                                  )
                                                                                                                                                                                            )
                                                                                                                                                                                      )
                                                                                                                                                                                )
                                                                                                                                                                          )
                                                                                                                                                                    )
                                                                                                                                                              )
                                                                                                                                                        )
                                                                                                                                                  )
                                                                                                                                            )
                                                                                                                                      )
                                                                                                                                )
                                                                                                                          )
                                                                                                                    )
                                                                                                              )
                                                                                                        )
                                                                                                  )
                                                                                            )
                                                                                      )
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )
sem_TokenList_Nil :: T_TokenList
sem_TokenList_Nil :: T_TokenList
sem_TokenList_Nil =
  ( \SyntaxUsed
_lhsIandSyntax
     LintSettings
_lhsIconfig
     SyntaxUsed
_lhsIindentation
     SyntaxUsed
_lhsIlineCommentSyntax
     SyntaxUsed
_lhsImultilineCommentSyntax
     SyntaxUsed
_lhsIneqSyntax
     LineColPos
_lhsInextTokenPos
     SyntaxUsed
_lhsInotSyntax
     SyntaxUsed
_lhsIorSyntax
     SyntaxUsed
_lhsIstrSyntax ->
        ( case ( ( SyntaxUsed
_lhsIandSyntax
                 )
               ) of
            SyntaxUsed
_lhsOandSyntax ->
              ( case ( ( []
                       )
                     ) of
                  TokenList
_copy ->
                    ( case ( ( TokenList
_copy
                             )
                           ) of
                        TokenList
_lhsOcopy ->
                          ( case ( ( SyntaxUsed
_lhsIindentation
                                   )
                                 ) of
                              SyntaxUsed
_lhsOindentation ->
                                ( case ( ( SyntaxUsed
_lhsIlineCommentSyntax
                                         )
                                       ) of
                                    SyntaxUsed
_lhsOlineCommentSyntax ->
                                      ( case ( ( SyntaxUsed
_lhsImultilineCommentSyntax
                                               )
                                             ) of
                                          SyntaxUsed
_lhsOmultilineCommentSyntax ->
                                            ( case ( ( SyntaxUsed
_lhsIneqSyntax
                                                     )
                                                   ) of
                                                SyntaxUsed
_lhsOneqSyntax ->
                                                  ( case ( ( LineColPos
_lhsInextTokenPos
                                                           )
                                                         ) of
                                                      LineColPos
_lhsOnextTokenPos ->
                                                        ( case ( ( SyntaxUsed
_lhsInotSyntax
                                                                 )
                                                               ) of
                                                            SyntaxUsed
_lhsOnotSyntax ->
                                                              ( case ( ( SyntaxUsed
_lhsIorSyntax
                                                                       )
                                                                     ) of
                                                                  SyntaxUsed
_lhsOorSyntax ->
                                                                    ( case ( ( SyntaxUsed
_lhsIstrSyntax
                                                                             )
                                                                           ) of
                                                                        SyntaxUsed
_lhsOstrSyntax ->
                                                                          ( case ( ( []
                                                                                   )
                                                                                 ) of
                                                                              [Issue]
_lhsOtokenWarnings ->
                                                                                ( case ( ( []
                                                                                         )
                                                                                       ) of
                                                                                    [String -> LintMessage]
_lhsOwarnings ->
                                                                                      (SyntaxUsed
_lhsOandSyntax, TokenList
_lhsOcopy, SyntaxUsed
_lhsOindentation, SyntaxUsed
_lhsOlineCommentSyntax, SyntaxUsed
_lhsOmultilineCommentSyntax, SyntaxUsed
_lhsOneqSyntax, LineColPos
_lhsOnextTokenPos, SyntaxUsed
_lhsOnotSyntax, SyntaxUsed
_lhsOorSyntax, SyntaxUsed
_lhsOstrSyntax, [Issue]
_lhsOtokenWarnings, [String -> LintMessage]
_lhsOwarnings)
                                                                                )
                                                                          )
                                                                    )
                                                              )
                                                        )
                                                  )
                                            )
                                      )
                                )
                          )
                    )
              )
        )
  )