uuagc 0.9.37.1 → 0.9.37.2
raw patch · 6 files changed
+6571/−6562 lines, 6 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- src-derived/ConcreteSyntax.hs +2/−1
- src-derived/Transform.hs +6563/−6557
- src/Parser.hs +3/−1
- src/Version.hs +1/−1
- uuagc.cabal +1/−1
- uuagc.cabal-for-ghc-6.6 +1/−1
src-derived/ConcreteSyntax.hs view
@@ -98,6 +98,7 @@ alternative Set: child pos : {Pos} child name : {NontermIdent}+ child merge : {Bool} child set : NontSet alternative Txt: child pos : {Pos}@@ -120,7 +121,7 @@ | Module (Pos) (String) (String) (String) | Pragma (Pos) (([NontermIdent])) | Sem (Pos) (ClassContext) (NontSet ) (Attrs ) (SemAlts ) - | Set (Pos) (NontermIdent) (NontSet ) + | Set (Pos) (NontermIdent) (Bool) (NontSet ) | Txt (Pos) (Identifier) ((Maybe NontermIdent)) (([String])) | Type (Pos) (ClassContext) (NontermIdent) (([Identifier])) (ComplexType) | Wrapper (Pos) (NontSet )
src-derived/Transform.hs view
@@ -296,6562 +296,6568 @@ wrap ref inp = h "case " ++ [AGField _LHS ref noPos Nothing] ++ h " of { __cont | __cont `seq` True -> " ++ inp ++ h "}" {-# LINE 298 "../src-derived/Transform.hs" #-} -{-# LINE 687 "Transform.ag" #-}--flattenDatas :: DataTypes -> Map NontermIdent (Set NontermIdent)-flattenDatas ds = Map.map flatten ds- where flatten cs = Set.fromList [ nt | (_,NT nt _) <- concatMap snd (Map.toList cs)]--reachableFrom :: Map NontermIdent (Set NontermIdent) -> Set NontermIdent -> Set NontermIdent-reachableFrom table nts = reach nts- where reach nts = let nts' = Set.unions (nts : [ ns | nt <- Set.toList nts- , let ns = Map.findWithDefault Set.empty nt table ])- in if Set.size nts' > Set.size nts- then reach nts'- else nts-invert :: Map NontermIdent (Set NontermIdent) -> Map NontermIdent (Set NontermIdent)-invert m = foldr inv Map.empty (Map.toList m)- where inv (x,ns) m = fold (\n m -> Map.insertWith Set.union n (Set.singleton x) m) m ns--path :: Map NontermIdent (Set NontermIdent) -> NontermIdent -> NontermIdent -> Set NontermIdent-path table from to = let children = Map.findWithDefault Set.empty from table- forward = reachableFrom table children- backward = reachableFrom (invert table)- (Set.singleton to)- in Set.intersection forward backward-{-# LINE 323 "../src-derived/Transform.hs" #-}--{-# LINE 797 "Transform.ag" #-}--pragmaMapUnion :: PragmaMap -> PragmaMap -> PragmaMap-pragmaMapUnion = Map.unionWith (Map.unionWith Set.union)--pragmaMapSingle :: NontermIdent -> ConstructorIdent -> Set Identifier -> PragmaMap-pragmaMapSingle nt con nms = Map.singleton nt (Map.singleton con nms)-{-# LINE 332 "../src-derived/Transform.hs" #-}--{-# LINE 829 "Transform.ag" #-}--orderMapUnion :: AttrOrderMap -> AttrOrderMap -> AttrOrderMap-orderMapUnion = Map.unionWith (Map.unionWith Set.union)--orderMapSingle :: NontermIdent -> ConstructorIdent -> Set Dependency -> AttrOrderMap-orderMapSingle nt con deps = Map.singleton nt (Map.singleton con deps)-{-# LINE 341 "../src-derived/Transform.hs" #-}--{-# LINE 855 "Transform.ag" #-}--mergeParams :: ParamMap -> ParamMap -> ParamMap-mergeParams = Map.unionWith (++)-{-# LINE 347 "../src-derived/Transform.hs" #-}--{-# LINE 878 "Transform.ag" #-}--mergeCtx :: ContextMap -> ContextMap -> ContextMap-mergeCtx- = Map.unionWith nubconcat- where nubconcat a b = nub (a ++ b)-{-# LINE 355 "../src-derived/Transform.hs" #-}--{-# LINE 891 "Transform.ag" #-}--mergeDerivings m1 m2 = foldr (\(n,cs) m -> Map.insertWith Set.union n cs m) m2 (Map.toList m1)-{-# LINE 360 "../src-derived/Transform.hs" #-}--{-# LINE 902 "Transform.ag" #-}--merge x y = foldr f y (Map.toList x)- where f ~(k,v) m = Map.insertWith (Map.union) k v m-{-# LINE 366 "../src-derived/Transform.hs" #-}--{-# LINE 943 "Transform.ag" #-}--checkAttrs allFields nts inherited synthesized decls = foldErrors check decls nts where- check nt decls | not (nt `Map.member` allFields) = (decls,Seq.singleton(UndefNont nt))- | otherwise = let (inh,syn) = Map.findWithDefault (Map.empty,Map.empty) nt decls- (inh',einh) = checkDuplicates (DupInhAttr nt) inherited inh- (syn',esyn) = checkDuplicates (DupSynAttr nt) synthesized syn- in (Map.insert nt (inh',syn') decls,einh >< esyn)-{-# LINE 376 "../src-derived/Transform.hs" #-}--{-# LINE 954 "Transform.ag" #-}--addSelf name atMap = let (eInh,eSyn) = Map.findWithDefault(Map.empty,Map.empty) name atMap- in Map.insert name (eInh, Map.insert (Ident "self" noPos) (NT _SELF []) eSyn)atMap-{-# LINE 382 "../src-derived/Transform.hs" #-}--{-# LINE 1095 "Transform.ag" #-}--makeType :: Set NontermIdent -> Type -> Type-makeType nts tp@(NT x _) | x == _SELF = tp- | Set.member x nts = tp- | otherwise = Haskell (typeToHaskellString Nothing [] tp)-makeType _ tp = tp-{-# LINE 391 "../src-derived/Transform.hs" #-}--{-# LINE 1102 "Transform.ag" #-}--constructGrammar :: Set NontermIdent- -> ParamMap- -> DataTypes- -> Map NontermIdent (Attributes, Attributes)- -> Map NontermIdent (Map Identifier (String, String, String))- -> Derivings- -> Set NontermIdent- -> Map NontermIdent (Map ConstructorIdent [Rule])- -> Map NontermIdent (Map ConstructorIdent [TypeSig])- -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)])- -> TypeSyns- -> PragmaMap- -> AttrOrderMap- -> ContextMap- -> UniqueMap- -> Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))- -> Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))- -> Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression)))- -> Grammar--constructGrammar nts ntParams gram attrs uses derivings wrappers allrules tsigs allinsts tsyns pragmaMap orderMap contextMap uniqueMap augmentsMap aroundsMap mergeMap =- let gr = [ (nt,Map.toList alts) | (nt,alts) <- Map.toList gram]- nonts = map nont gr- nont (nt,alts) = let (inh,syn) = Map.findWithDefault (Map.empty,Map.empty) nt attrs- rmap = Map.findWithDefault Map.empty nt allrules- tsmap = Map.findWithDefault Map.empty nt tsigs- instsmap = Map.findWithDefault Map.empty nt allinsts- params = Map.findWithDefault [] nt ntParams- mergemap = Map.findWithDefault Map.empty nt mergeMap- alt (con,flds) =- let rules = maybe [] id (Map.lookup con rmap)- tsigs = maybe [] id (Map.lookup con tsmap)- insts = maybe [] id (Map.lookup con instsmap)- merges = [ (n, NT t []) | (n, (t, _, _)) <- Map.assocs $ maybe Map.empty id (Map.lookup con mergemap) ]-- -- important: keep order of children- cldrn = map child (flds ++ filter (not . existsAsField) insts ++ merges)- child (nm, tp) =- let tpI = if existsAsInst nm- then fromJust $ lookup nm insts- else tp- (inh,syn) = case tpI of- NT nt _ -> let nt' = maybe nt id (deforestedNt nt)- in Map.findWithDefault (Map.empty,Map.empty) nt' attrs- _ -> (Map.empty,Map.empty)- virt = if existsAsInst nm- then case lookup nm flds of- Just tp' -> Just (Just tp')- Nothing -> Just Nothing- else if existsAsMerge nm- then (Just Nothing)- else Nothing- in Child nm tpI inh syn virt- existsAsInst nm = maybe False (const True) (lookup nm insts)- existsAsField (nm,_) = maybe False (const True) (lookup nm flds)- existsAsMerge nm = maybe False (const True) (lookup nm merges)- in Production con cldrn rules tsigs- in Nonterminal nt params inh syn (map alt alts)- in Grammar tsyns uses derivings wrappers nonts pragmaMap orderMap ntParams contextMap uniqueMap augmentsMap aroundsMap mergeMap-{-# LINE 454 "../src-derived/Transform.hs" #-}--{-# LINE 1164 "Transform.ag" #-}--mapUnionWithSetUnion = Map.unionWith Set.union-mapUnionWithPlusPlus = Map.unionWith (++)-{-# LINE 460 "../src-derived/Transform.hs" #-}--- AG -----------------------------------------------------------{-- visit 0:- inherited attribute:- options : Options- synthesized attributes:- blocks : Blocks- errors : Seq Error- moduleDecl : Maybe (String,String,String)- output : Grammar- pragmas : Options -> Options- alternatives:- alternative AG:- child elems : Elems - visit 0:- local allFields : _- local allConstrs : _- local allRules : _- local allSigs : _- local allInsts : _- local allUniques : _- local allAugments : _- local allArounds : _- local allMerges : _- local augmentSigs : _- local allRulesErrs : _- local allNamesErrs : _- local allSigsErrs : _- local allInstsErrs : _- local allUniquesErrs : _- local allAugmentErrs : _- local allAroundsErrs : _- local allMergesErrs : _- local checkedRulesPre : _- local checkedSigs : _- local checkedInsts : _- local checkedUniques : _- local checkedAugments : _- local checkedArounds : _- local checkedRules : _- local checkedMerges : _- local errs1 : _- local errs2 : _- local errs3 : _- local errs4 : _- local errs5 : _- local errs6 : _- local errs7 : _- local errs8 : _- local errs9 : _- local errs10 : _- local errs11 : _- local allNonterminals : _- local allAttrDecls : _--}--- cata-sem_AG :: AG ->- T_AG -sem_AG (AG _elems ) =- (sem_AG_AG (sem_Elems _elems ) )--- semantic domain-newtype T_AG = T_AG (Options ->- ( Blocks,(Seq Error),(Maybe (String,String,String)),Grammar,(Options -> Options)))-data Inh_AG = Inh_AG {options_Inh_AG :: !(Options)}-data Syn_AG = Syn_AG {blocks_Syn_AG :: !(Blocks),errors_Syn_AG :: !((Seq Error)),moduleDecl_Syn_AG :: !((Maybe (String,String,String))),output_Syn_AG :: !(Grammar),pragmas_Syn_AG :: !((Options -> Options))}-wrap_AG :: T_AG ->- Inh_AG ->- Syn_AG -wrap_AG (T_AG sem ) (Inh_AG _lhsIoptions ) =- (let ( _lhsOblocks,_lhsOerrors,_lhsOmoduleDecl,_lhsOoutput,_lhsOpragmas) = sem _lhsIoptions - in (Syn_AG _lhsOblocks _lhsOerrors _lhsOmoduleDecl _lhsOoutput _lhsOpragmas ))-sem_AG_AG :: T_Elems ->- T_AG -sem_AG_AG (T_Elems elems_ ) =- (T_AG (\ _lhsIoptions ->- (let _lhsOoutput :: Grammar- _lhsOerrors :: (Seq Error)- _elemsOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _elemsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _elemsOdefinedSets :: DefinedSets- _elemsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOblocks :: Blocks- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOpragmas :: (Options -> Options)- _elemsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _elemsOallFields :: DataTypes- _elemsOallNonterminals :: (Set NontermIdent)- _elemsOoptions :: Options- _elemsIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _elemsIattrOrderCollect :: AttrOrderMap- _elemsIblocks :: Blocks- _elemsIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _elemsIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _elemsIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _elemsIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _elemsIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _elemsIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _elemsIcollectedNames :: (Set Identifier)- _elemsIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _elemsIcollectedSetNames :: (Set Identifier)- _elemsIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _elemsIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _elemsIctxCollect :: ContextMap- _elemsIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _elemsIderivings :: Derivings- _elemsIerrors :: (Seq Error)- _elemsImoduleDecl :: (Maybe (String,String,String))- _elemsIparamsCollect :: ParamMap- _elemsIpragmas :: (Options -> Options)- _elemsIsemPragmasCollect :: PragmaMap- _elemsItypeSyns :: TypeSyns- _elemsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _elemsIwrappers :: (Set NontermIdent)- -- "Transform.ag"(line 52, column 8)- _lhsOoutput =- ({-# LINE 52 "Transform.ag" #-}- constructGrammar _allNonterminals- _elemsIparamsCollect- _allFields- _allAttrDecls- _elemsIuseMap- _elemsIderivings- (if wrappers _lhsIoptions then _allNonterminals else _elemsIwrappers)- _checkedRules- _checkedSigs- _checkedInsts- _elemsItypeSyns- _elemsIsemPragmasCollect- _elemsIattrOrderCollect- _elemsIctxCollect- _checkedUniques- _checkedAugments- _checkedArounds- _checkedMerges- {-# LINE 595 "Transform.hs" #-}- )- -- "Transform.ag"(line 253, column 10)- _allFields =- ({-# LINE 253 "Transform.ag" #-}- let f (nt,con,fm) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con fm)- in foldr f (Map.empty) _elemsIcollectedFields- {-# LINE 602 "Transform.hs" #-}- )- -- "Transform.ag"(line 256, column 10)- _allConstrs =- ({-# LINE 256 "Transform.ag" #-}- let f (nt,con,_) = Map.insertWith (++) nt [con]- in foldr f (Map.empty) _elemsIcollectedFields- {-# LINE 609 "Transform.hs" #-}- )- -- "Transform.ag"(line 259, column 10)- _allRules =- ({-# LINE 259 "Transform.ag" #-}- let f (nt,con,r) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con [r])- in foldr f (Map.empty) _elemsIcollectedRules- {-# LINE 616 "Transform.hs" #-}- )- -- "Transform.ag"(line 262, column 10)- _allSigs =- ({-# LINE 262 "Transform.ag" #-}- let f (nt,con,t) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con [t])- typeof nt r = Map.findWithDefault (Haskell "<unknown>") r $ fst $ Map.findWithDefault (Map.empty,Map.empty) nt _allAttrDecls- in foldr f (Map.empty) ( _elemsIcollectedSigs- ++ [ (nt, con, (ident,typeof nt ref)) | (nt, con, us) <- _elemsIcollectedUniques, (ident,ref) <- us ]- )- {-# LINE 626 "Transform.hs" #-}- )- -- "Transform.ag"(line 268, column 10)- _allInsts =- ({-# LINE 268 "Transform.ag" #-}- let f (nt,con,is) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con is)- in foldr f (Map.empty) _elemsIcollectedInsts- {-# LINE 633 "Transform.hs" #-}- )- -- "Transform.ag"(line 271, column 10)- _allUniques =- ({-# LINE 271 "Transform.ag" #-}- let f (nt,con,us) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con us)- in foldr f (Map.empty) _elemsIcollectedUniques- {-# LINE 640 "Transform.hs" #-}- )- -- "Transform.ag"(line 273, column 10)- _allAugments =- ({-# LINE 273 "Transform.ag" #-}- let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as)- in foldr f Map.empty _elemsIcollectedAugments- {-# LINE 647 "Transform.hs" #-}- )- -- "Transform.ag"(line 275, column 10)- _allArounds =- ({-# LINE 275 "Transform.ag" #-}- let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as)- in foldr f Map.empty _elemsIcollectedArounds- {-# LINE 654 "Transform.hs" #-}- )- -- "Transform.ag"(line 277, column 10)- _allMerges =- ({-# LINE 277 "Transform.ag" #-}- let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as)- in foldr f Map.empty _elemsIcollectedMerges- {-# LINE 661 "Transform.hs" #-}- )- -- "Transform.ag"(line 280, column 10)- _augmentSigs =- ({-# LINE 280 "Transform.ag" #-}- let gen mp = []- in Map.map (Map.map gen) _allAugments- {-# LINE 668 "Transform.hs" #-}- )- -- "Transform.ag"(line 283, column 10)- _allRulesErrs =- ({-# LINE 283 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkRules _allAttrDecls _allFields _allInsts _allSigs _allMerges )) _allRules- {-# LINE 674 "Transform.hs" #-}- )- -- "Transform.ag"(line 284, column 10)- _allNamesErrs =- ({-# LINE 284 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . checkRuleNames) _allRules- {-# LINE 680 "Transform.hs" #-}- )- -- "Transform.ag"(line 285, column 10)- _allSigsErrs =- ({-# LINE 285 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkSigs )) _allSigs- {-# LINE 686 "Transform.hs" #-}- )- -- "Transform.ag"(line 286, column 10)- _allInstsErrs =- ({-# LINE 286 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkInsts _allNonterminals _allSigs _allFields )) _allInsts- {-# LINE 692 "Transform.hs" #-}- )- -- "Transform.ag"(line 287, column 10)- _allUniquesErrs =- ({-# LINE 287 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkUniques _allAttrDecls )) _allUniques- {-# LINE 698 "Transform.hs" #-}- )- -- "Transform.ag"(line 288, column 10)- _allAugmentErrs =- ({-# LINE 288 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkAugments _allAttrDecls )) _allAugments- {-# LINE 704 "Transform.hs" #-}- )- -- "Transform.ag"(line 289, column 10)- _allAroundsErrs =- ({-# LINE 289 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkArounds _allFields )) _allArounds- {-# LINE 710 "Transform.hs" #-}- )- -- "Transform.ag"(line 290, column 10)- _allMergesErrs =- ({-# LINE 290 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkMerges _allNonterminals _allInsts _allFields )) _allMerges- {-# LINE 716 "Transform.hs" #-}- )- -- "Transform.ag"(line 292, column 10)- _checkedRulesPre =- ({-# LINE 292 "Transform.ag" #-}- Map.map (Map.map fst) _allRulesErrs- {-# LINE 722 "Transform.hs" #-}- )- -- "Transform.ag"(line 293, column 10)- _checkedSigs =- ({-# LINE 293 "Transform.ag" #-}- Map.map (Map.map fst) _allSigsErrs `unionunionplusplus` _augmentSigs- {-# LINE 728 "Transform.hs" #-}- )- -- "Transform.ag"(line 294, column 10)- _checkedInsts =- ({-# LINE 294 "Transform.ag" #-}- Map.map (Map.map fst) _allInstsErrs- {-# LINE 734 "Transform.hs" #-}- )- -- "Transform.ag"(line 295, column 10)- _checkedUniques =- ({-# LINE 295 "Transform.ag" #-}- Map.map (Map.map fst) _allUniquesErrs- {-# LINE 740 "Transform.hs" #-}- )- -- "Transform.ag"(line 296, column 10)- _checkedAugments =- ({-# LINE 296 "Transform.ag" #-}- Map.map (Map.map fst) _allAugmentErrs- {-# LINE 746 "Transform.hs" #-}- )- -- "Transform.ag"(line 297, column 10)- _checkedArounds =- ({-# LINE 297 "Transform.ag" #-}- Map.map (Map.map fst) _allAroundsErrs- {-# LINE 752 "Transform.hs" #-}- )- -- "Transform.ag"(line 298, column 10)- _checkedRules =- ({-# LINE 298 "Transform.ag" #-}- Map.unionWith (Map.unionWith (++)) _checkedRulesPre (Map.mapWithKey (Map.mapWithKey . (mkUniqueRules _lhsIoptions _allFields _checkedInsts _allAttrDecls )) _checkedUniques )- {-# LINE 758 "Transform.hs" #-}- )- -- "Transform.ag"(line 299, column 10)- _checkedMerges =- ({-# LINE 299 "Transform.ag" #-}- Map.map (Map.map fst) _allMergesErrs- {-# LINE 764 "Transform.hs" #-}- )- -- "Transform.ag"(line 301, column 10)- _errs1 =- ({-# LINE 301 "Transform.ag" #-}- let f = checkForDuplicates (DupSynonym)- in Seq.fromList . f . map fst $ _elemsItypeSyns- {-# LINE 771 "Transform.hs" #-}- )- -- "Transform.ag"(line 304, column 10)- _errs2 =- ({-# LINE 304 "Transform.ag" #-}- let g nt (con,fm) = checkForDuplicates (DupChild nt con) (map fst fm)- f (nt,cfm) = concat . map (g nt) . Map.toList $ cfm- in Seq.fromList . concat . map f . Map.toList $ _allFields- {-# LINE 779 "Transform.hs" #-}- )- -- "Transform.ag"(line 308, column 10)- _errs3 =- ({-# LINE 308 "Transform.ag" #-}- let f (nt,cons) = checkForDuplicates (DupAlt nt) cons- in Seq.empty- {-# LINE 786 "Transform.hs" #-}- )- -- "Transform.ag"(line 312, column 10)- _errs4 =- ({-# LINE 312 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allRulesErrs- {-# LINE 793 "Transform.hs" #-}- )- -- "Transform.ag"(line 315, column 10)- _errs5 =- ({-# LINE 315 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allSigsErrs- {-# LINE 800 "Transform.hs" #-}- )- -- "Transform.ag"(line 318, column 10)- _errs6 =- ({-# LINE 318 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allInstsErrs- {-# LINE 807 "Transform.hs" #-}- )- -- "Transform.ag"(line 321, column 10)- _errs7 =- ({-# LINE 321 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allUniquesErrs- {-# LINE 814 "Transform.hs" #-}- )- -- "Transform.ag"(line 324, column 10)- _errs8 =- ({-# LINE 324 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allAugmentErrs- {-# LINE 821 "Transform.hs" #-}- )- -- "Transform.ag"(line 327, column 10)- _errs9 =- ({-# LINE 327 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allAroundsErrs- {-# LINE 828 "Transform.hs" #-}- )- -- "Transform.ag"(line 330, column 10)- _errs10 =- ({-# LINE 330 "Transform.ag" #-}- let f m s = Map.fold ((><)) s m- in Map.fold f Seq.empty _allNamesErrs- {-# LINE 835 "Transform.hs" #-}- )- -- "Transform.ag"(line 333, column 10)- _errs11 =- ({-# LINE 333 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allMergesErrs- {-# LINE 842 "Transform.hs" #-}- )- -- "Transform.ag"(line 336, column 10)- _lhsOerrors =- ({-# LINE 336 "Transform.ag" #-}- _elemsIerrors >< _errs1 >< _errs2 >< _errs3 >< _errs4 >< _errs5 >< _errs6 >< _errs7 >< _errs8 >< _errs9 >< _errs10 >< _errs11- {-# LINE 848 "Transform.hs" #-}- )- -- "Transform.ag"(line 560, column 10)- _allNonterminals =- ({-# LINE 560 "Transform.ag" #-}- _elemsIcollectedNames `Set.difference` _elemsIcollectedSetNames- {-# LINE 854 "Transform.hs" #-}- )- -- "Transform.ag"(line 580, column 8)- _elemsOallConstructors =- ({-# LINE 580 "Transform.ag" #-}- _elemsIcollectedConstructorsMap- {-# LINE 860 "Transform.hs" #-}- )- -- "Transform.ag"(line 653, column 8)- _elemsOdefSets =- ({-# LINE 653 "Transform.ag" #-}- Map.fromList (map (\x->(x,(Set.singleton x, Set.empty))) (Set.toList _allNonterminals ))- {-# LINE 866 "Transform.hs" #-}- )- -- "Transform.ag"(line 654, column 8)- _elemsOdefinedSets =- ({-# LINE 654 "Transform.ag" #-}- Map.map fst _elemsIdefSets- {-# LINE 872 "Transform.hs" #-}- )- -- "Transform.ag"(line 908, column 8)- _elemsOattrDecls =- ({-# LINE 908 "Transform.ag" #-}- Map.empty- {-# LINE 878 "Transform.hs" #-}- )- -- "Transform.ag"(line 961, column 9)- _allAttrDecls =- ({-# LINE 961 "Transform.ag" #-}- if withSelf _lhsIoptions- then foldr addSelf _elemsIattrDecls (Set.toList _allNonterminals )- else _elemsIattrDecls- {-# LINE 886 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- _elemsIblocks- {-# LINE 892 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1085, column 37)- _lhsOmoduleDecl =- ({-# LINE 1085 "Transform.ag" #-}- _elemsImoduleDecl- {-# LINE 898 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 735, column 34)- _lhsOpragmas =- ({-# LINE 735 "Transform.ag" #-}- _elemsIpragmas- {-# LINE 904 "Transform.hs" #-}- )- -- copy rule (from local)- _elemsOallAttrDecls =- ({-# LINE 810 "Transform.ag" #-}- _allAttrDecls- {-# LINE 910 "Transform.hs" #-}- )- -- copy rule (from local)- _elemsOallFields =- ({-# LINE 128 "Transform.ag" #-}- _allFields- {-# LINE 916 "Transform.hs" #-}- )- -- copy rule (from local)- _elemsOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _allNonterminals- {-# LINE 922 "Transform.hs" #-}- )- -- copy rule (down)- _elemsOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 928 "Transform.hs" #-}- )- ( _elemsIattrDecls,_elemsIattrOrderCollect,_elemsIblocks,_elemsIcollectedArounds,_elemsIcollectedAugments,_elemsIcollectedConstructorsMap,_elemsIcollectedFields,_elemsIcollectedInsts,_elemsIcollectedMerges,_elemsIcollectedNames,_elemsIcollectedRules,_elemsIcollectedSetNames,_elemsIcollectedSigs,_elemsIcollectedUniques,_elemsIctxCollect,_elemsIdefSets,_elemsIderivings,_elemsIerrors,_elemsImoduleDecl,_elemsIparamsCollect,_elemsIpragmas,_elemsIsemPragmasCollect,_elemsItypeSyns,_elemsIuseMap,_elemsIwrappers) =- elems_ _elemsOallAttrDecls _elemsOallConstructors _elemsOallFields _elemsOallNonterminals _elemsOattrDecls _elemsOdefSets _elemsOdefinedSets _elemsOoptions - in ( _lhsOblocks,_lhsOerrors,_lhsOmoduleDecl,_lhsOoutput,_lhsOpragmas))) )--- Alt ----------------------------------------------------------{-- visit 0:- inherited attributes:- allConstructors : Map NontermIdent (Set ConstructorIdent)- allNonterminals : Set NontermIdent- nts : Set NontermIdent- synthesized attributes:- collectedConstructorNames : Set ConstructorIdent- collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]- alternatives:- alternative Alt:- child pos : {Pos}- child names : ConstructorSet - child fields : {Fields}--}--- cata-sem_Alt :: Alt ->- T_Alt -sem_Alt (Alt _pos _names _fields ) =- (sem_Alt_Alt _pos (sem_ConstructorSet _names ) _fields )--- semantic domain-newtype T_Alt = T_Alt ((Map NontermIdent (Set ConstructorIdent)) ->- (Set NontermIdent) ->- (Set NontermIdent) ->- ( (Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)])))-data Inh_Alt = Inh_Alt {allConstructors_Inh_Alt :: !((Map NontermIdent (Set ConstructorIdent))),allNonterminals_Inh_Alt :: !((Set NontermIdent)),nts_Inh_Alt :: !((Set NontermIdent))}-data Syn_Alt = Syn_Alt {collectedConstructorNames_Syn_Alt :: !((Set ConstructorIdent)),collectedFields_Syn_Alt :: !(([(NontermIdent, ConstructorIdent, FieldMap)]))}-wrap_Alt :: T_Alt ->- Inh_Alt ->- Syn_Alt -wrap_Alt (T_Alt sem ) (Inh_Alt _lhsIallConstructors _lhsIallNonterminals _lhsInts ) =- (let ( _lhsOcollectedConstructorNames,_lhsOcollectedFields) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts - in (Syn_Alt _lhsOcollectedConstructorNames _lhsOcollectedFields ))-sem_Alt_Alt :: Pos ->- T_ConstructorSet ->- Fields ->- T_Alt -sem_Alt_Alt pos_ (T_ConstructorSet names_ ) fields_ =- (T_Alt (\ _lhsIallConstructors- _lhsIallNonterminals- _lhsInts ->- (let _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _namesIcollectedConstructorNames :: (Set ConstructorIdent)- _namesIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _namesIerrors :: (Seq Error)- -- "Transform.ag"(line 238, column 10)- _lhsOcollectedFields =- ({-# LINE 238 "Transform.ag" #-}- let fieldTable =- [ (attr, makeType _lhsIallNonterminals tp)- | (attr, tp) <- fields_- ]- in [ (nt, con, fieldTable)- | nt <- Set.toList _lhsInts- , con <- Set.toList (_namesIconstructors (Map.findWithDefault Set.empty nt _lhsIallConstructors))- ]- {-# LINE 991 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 93, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 93 "Transform.ag" #-}- _namesIcollectedConstructorNames- {-# LINE 997 "Transform.hs" #-}- )- ( _namesIcollectedConstructorNames,_namesIconstructors,_namesIerrors) =- names_ - in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) )--- Alts ---------------------------------------------------------{-- visit 0:- inherited attributes:- allConstructors : Map NontermIdent (Set ConstructorIdent)- allNonterminals : Set NontermIdent- nts : Set NontermIdent- synthesized attributes:- collectedConstructorNames : Set ConstructorIdent- collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]- alternatives:- alternative Cons:- child hd : Alt - child tl : Alts - alternative Nil:--}--- cata-sem_Alts :: Alts ->- T_Alts -sem_Alts list =- (Prelude.foldr sem_Alts_Cons sem_Alts_Nil (Prelude.map sem_Alt list) )--- semantic domain-newtype T_Alts = T_Alts ((Map NontermIdent (Set ConstructorIdent)) ->- (Set NontermIdent) ->- (Set NontermIdent) ->- ( (Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)])))-data Inh_Alts = Inh_Alts {allConstructors_Inh_Alts :: !((Map NontermIdent (Set ConstructorIdent))),allNonterminals_Inh_Alts :: !((Set NontermIdent)),nts_Inh_Alts :: !((Set NontermIdent))}-data Syn_Alts = Syn_Alts {collectedConstructorNames_Syn_Alts :: !((Set ConstructorIdent)),collectedFields_Syn_Alts :: !(([(NontermIdent, ConstructorIdent, FieldMap)]))}-wrap_Alts :: T_Alts ->- Inh_Alts ->- Syn_Alts -wrap_Alts (T_Alts sem ) (Inh_Alts _lhsIallConstructors _lhsIallNonterminals _lhsInts ) =- (let ( _lhsOcollectedConstructorNames,_lhsOcollectedFields) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts - in (Syn_Alts _lhsOcollectedConstructorNames _lhsOcollectedFields ))-sem_Alts_Cons :: T_Alt ->- T_Alts ->- T_Alts -sem_Alts_Cons (T_Alt hd_ ) (T_Alts tl_ ) =- (T_Alts (\ _lhsIallConstructors- _lhsIallNonterminals- _lhsInts ->- (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _hdOallNonterminals :: (Set NontermIdent)- _hdOnts :: (Set NontermIdent)- _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _tlOallNonterminals :: (Set NontermIdent)- _tlOnts :: (Set NontermIdent)- _hdIcollectedConstructorNames :: (Set ConstructorIdent)- _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _tlIcollectedConstructorNames :: (Set ConstructorIdent)- _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- -- use rule "Transform.ag"(line 93, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 93 "Transform.ag" #-}- _hdIcollectedConstructorNames `Set.union` _tlIcollectedConstructorNames- {-# LINE 1059 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- _hdIcollectedFields ++ _tlIcollectedFields- {-# LINE 1065 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallConstructors =- ({-# LINE 96 "Transform.ag" #-}- _lhsIallConstructors- {-# LINE 1071 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 1077 "Transform.hs" #-}- )- -- copy rule (down)- _hdOnts =- ({-# LINE 167 "Transform.ag" #-}- _lhsInts- {-# LINE 1083 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallConstructors =- ({-# LINE 96 "Transform.ag" #-}- _lhsIallConstructors- {-# LINE 1089 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 1095 "Transform.hs" #-}- )- -- copy rule (down)- _tlOnts =- ({-# LINE 167 "Transform.ag" #-}- _lhsInts- {-# LINE 1101 "Transform.hs" #-}- )- ( _hdIcollectedConstructorNames,_hdIcollectedFields) =- hd_ _hdOallConstructors _hdOallNonterminals _hdOnts - ( _tlIcollectedConstructorNames,_tlIcollectedFields) =- tl_ _tlOallConstructors _tlOallNonterminals _tlOnts - in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) )-sem_Alts_Nil :: T_Alts -sem_Alts_Nil =- (T_Alts (\ _lhsIallConstructors- _lhsIallNonterminals- _lhsInts ->- (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- -- use rule "Transform.ag"(line 93, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 93 "Transform.ag" #-}- Set.empty- {-# LINE 1119 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 1125 "Transform.hs" #-}- )- in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) )--- Attrs --------------------------------------------------------{-- visit 0:- inherited attributes:- allFields : DataTypes- allNonterminals : Set NontermIdent- nts : Set NontermIdent- options : Options- chained attribute:- attrDecls : Map NontermIdent (Attributes, Attributes)- synthesized attributes:- errors : Seq Error- useMap : Map NontermIdent (Map Identifier (String,String,String))- alternatives:- alternative Attrs:- child pos : {Pos}- child inh : {AttrNames}- child chn : {AttrNames}- child syn : {AttrNames}- visit 0:- local _tup1 : _- local attrDecls : _- local errors : _- local _tup2 : _- local inherited : _- local synthesized : _- local useMap : _- local errors1 : _--}--- cata-sem_Attrs :: Attrs ->- T_Attrs -sem_Attrs (Attrs _pos _inh _chn _syn ) =- (sem_Attrs_Attrs _pos _inh _chn _syn )--- semantic domain-newtype T_Attrs = T_Attrs (DataTypes ->- (Set NontermIdent) ->- (Map NontermIdent (Attributes, Attributes)) ->- (Set NontermIdent) ->- Options ->- ( (Map NontermIdent (Attributes, Attributes)),(Seq Error),(Map NontermIdent (Map Identifier (String,String,String)))))-data Inh_Attrs = Inh_Attrs {allFields_Inh_Attrs :: !(DataTypes),allNonterminals_Inh_Attrs :: !((Set NontermIdent)),attrDecls_Inh_Attrs :: !((Map NontermIdent (Attributes, Attributes))),nts_Inh_Attrs :: !((Set NontermIdent)),options_Inh_Attrs :: !(Options)}-data Syn_Attrs = Syn_Attrs {attrDecls_Syn_Attrs :: !((Map NontermIdent (Attributes, Attributes))),errors_Syn_Attrs :: !((Seq Error)),useMap_Syn_Attrs :: !((Map NontermIdent (Map Identifier (String,String,String))))}-wrap_Attrs :: T_Attrs ->- Inh_Attrs ->- Syn_Attrs -wrap_Attrs (T_Attrs sem ) (Inh_Attrs _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsInts _lhsIoptions ) =- (let ( _lhsOattrDecls,_lhsOerrors,_lhsOuseMap) = sem _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsInts _lhsIoptions - in (Syn_Attrs _lhsOattrDecls _lhsOerrors _lhsOuseMap ))-sem_Attrs_Attrs :: Pos ->- AttrNames ->- AttrNames ->- AttrNames ->- T_Attrs -sem_Attrs_Attrs pos_ inh_ chn_ syn_ =- (T_Attrs (\ _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsInts- _lhsIoptions ->- (let _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOerrors :: (Seq Error)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- -- "Transform.ag"(line 916, column 15)- __tup1 =- ({-# LINE 916 "Transform.ag" #-}- checkAttrs _lhsIallFields (Set.toList _lhsInts) _inherited _synthesized _lhsIattrDecls- {-# LINE 1195 "Transform.hs" #-}- )- -- "Transform.ag"(line 916, column 15)- (_attrDecls,_) =- ({-# LINE 916 "Transform.ag" #-}- __tup1- {-# LINE 1201 "Transform.hs" #-}- )- -- "Transform.ag"(line 916, column 15)- (_,_errors) =- ({-# LINE 916 "Transform.ag" #-}- __tup1- {-# LINE 1207 "Transform.hs" #-}- )- -- "Transform.ag"(line 918, column 15)- __tup2 =- ({-# LINE 918 "Transform.ag" #-}- let splitAttrs xs = unzip [ ((n,makeType _lhsIallNonterminals t),(n,ud))- | (n,t,ud) <- xs- ]- (inh,_) = splitAttrs inh_- (chn,uses1) = splitAttrs chn_- (syn,uses2) = splitAttrs syn_- isUse (n,(e1,e2,_)) = not (null e1 || null e2)- in (inh++chn,chn++syn, Map.fromList (Prelude.filter isUse (uses1++uses2)))- {-# LINE 1220 "Transform.hs" #-}- )- -- "Transform.ag"(line 918, column 15)- (_inherited,_,_) =- ({-# LINE 918 "Transform.ag" #-}- __tup2- {-# LINE 1226 "Transform.hs" #-}- )- -- "Transform.ag"(line 918, column 15)- (_,_synthesized,_) =- ({-# LINE 918 "Transform.ag" #-}- __tup2- {-# LINE 1232 "Transform.hs" #-}- )- -- "Transform.ag"(line 918, column 15)- (_,_,_useMap) =- ({-# LINE 918 "Transform.ag" #-}- __tup2- {-# LINE 1238 "Transform.hs" #-}- )- -- "Transform.ag"(line 926, column 11)- _lhsOuseMap =- ({-# LINE 926 "Transform.ag" #-}- Map.fromList (zip (Set.toList _lhsInts) (repeat _useMap))- {-# LINE 1244 "Transform.hs" #-}- )- -- "Transform.ag"(line 928, column 11)- _errors1 =- ({-# LINE 928 "Transform.ag" #-}- if checkParseTy _lhsIoptions- then let attrs = inh_ ++ syn_ ++ chn_- items = map (\(ident,tp,_) -> (getPos ident, tp)) attrs- errs = map check items- check (pos,Haskell s) =- let exp = Expression pos tks- tks = [tk]- tk = HsToken s pos- in Seq.fromList $ checkTy exp- check _ = Seq.empty- in foldr (Seq.><) Seq.empty errs- else Seq.empty- {-# LINE 1261 "Transform.hs" #-}- )- -- "Transform.ag"(line 940, column 11)- _lhsOerrors =- ({-# LINE 940 "Transform.ag" #-}- _errors Seq.>< _errors1- {-# LINE 1267 "Transform.hs" #-}- )- -- copy rule (from local)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _attrDecls- {-# LINE 1273 "Transform.hs" #-}- )- in ( _lhsOattrDecls,_lhsOerrors,_lhsOuseMap))) )--- ConstructorSet -----------------------------------------------{-- visit 0:- synthesized attributes:- collectedConstructorNames : Set ConstructorIdent- constructors : (Set ConstructorIdent->Set ConstructorIdent)- errors : Seq Error- alternatives:- alternative CAll:- alternative CDifference:- child set1 : ConstructorSet - child set2 : ConstructorSet - alternative CName:- child name : {ConstructorIdent}- alternative CUnion:- child set1 : ConstructorSet - child set2 : ConstructorSet --}--- cata-sem_ConstructorSet :: ConstructorSet ->- T_ConstructorSet -sem_ConstructorSet (CAll ) =- (sem_ConstructorSet_CAll )-sem_ConstructorSet (CDifference _set1 _set2 ) =- (sem_ConstructorSet_CDifference (sem_ConstructorSet _set1 ) (sem_ConstructorSet _set2 ) )-sem_ConstructorSet (CName _name ) =- (sem_ConstructorSet_CName _name )-sem_ConstructorSet (CUnion _set1 _set2 ) =- (sem_ConstructorSet_CUnion (sem_ConstructorSet _set1 ) (sem_ConstructorSet _set2 ) )--- semantic domain-newtype T_ConstructorSet = T_ConstructorSet (( (Set ConstructorIdent),((Set ConstructorIdent->Set ConstructorIdent)),(Seq Error)))-data Inh_ConstructorSet = Inh_ConstructorSet {}-data Syn_ConstructorSet = Syn_ConstructorSet {collectedConstructorNames_Syn_ConstructorSet :: !((Set ConstructorIdent)),constructors_Syn_ConstructorSet :: !(((Set ConstructorIdent->Set ConstructorIdent))),errors_Syn_ConstructorSet :: !((Seq Error))}-wrap_ConstructorSet :: T_ConstructorSet ->- Inh_ConstructorSet ->- Syn_ConstructorSet -wrap_ConstructorSet (T_ConstructorSet sem ) (Inh_ConstructorSet ) =- (let ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors) = sem - in (Syn_ConstructorSet _lhsOcollectedConstructorNames _lhsOconstructors _lhsOerrors ))-sem_ConstructorSet_CAll :: T_ConstructorSet -sem_ConstructorSet_CAll =- (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOerrors :: (Seq Error)- -- "Transform.ag"(line 720, column 17)- _lhsOconstructors =- ({-# LINE 720 "Transform.ag" #-}- \ds -> ds- {-# LINE 1324 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 93, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 93 "Transform.ag" #-}- Set.empty- {-# LINE 1330 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 1336 "Transform.hs" #-}- )- in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )-sem_ConstructorSet_CDifference :: T_ConstructorSet ->- T_ConstructorSet ->- T_ConstructorSet -sem_ConstructorSet_CDifference (T_ConstructorSet set1_ ) (T_ConstructorSet set2_ ) =- (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOerrors :: (Seq Error)- _set1IcollectedConstructorNames :: (Set ConstructorIdent)- _set1Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _set1Ierrors :: (Seq Error)- _set2IcollectedConstructorNames :: (Set ConstructorIdent)- _set2Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _set2Ierrors :: (Seq Error)- -- "Transform.ag"(line 719, column 17)- _lhsOconstructors =- ({-# LINE 719 "Transform.ag" #-}- \ds -> _set1Iconstructors ds `Set.difference` _set2Iconstructors ds- {-# LINE 1356 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 93, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 93 "Transform.ag" #-}- _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames- {-# LINE 1362 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 1368 "Transform.hs" #-}- )- ( _set1IcollectedConstructorNames,_set1Iconstructors,_set1Ierrors) =- set1_ - ( _set2IcollectedConstructorNames,_set2Iconstructors,_set2Ierrors) =- set2_ - in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )-sem_ConstructorSet_CName :: ConstructorIdent ->- T_ConstructorSet -sem_ConstructorSet_CName name_ =- (T_ConstructorSet (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _lhsOerrors :: (Seq Error)- -- "Transform.ag"(line 568, column 11)- _lhsOcollectedConstructorNames =- ({-# LINE 568 "Transform.ag" #-}- Set.singleton name_- {-# LINE 1385 "Transform.hs" #-}- )- -- "Transform.ag"(line 717, column 17)- _lhsOconstructors =- ({-# LINE 717 "Transform.ag" #-}- \ds -> Set.singleton name_- {-# LINE 1391 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 1397 "Transform.hs" #-}- )- in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )-sem_ConstructorSet_CUnion :: T_ConstructorSet ->- T_ConstructorSet ->- T_ConstructorSet -sem_ConstructorSet_CUnion (T_ConstructorSet set1_ ) (T_ConstructorSet set2_ ) =- (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOerrors :: (Seq Error)- _set1IcollectedConstructorNames :: (Set ConstructorIdent)- _set1Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _set1Ierrors :: (Seq Error)- _set2IcollectedConstructorNames :: (Set ConstructorIdent)- _set2Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _set2Ierrors :: (Seq Error)- -- "Transform.ag"(line 718, column 17)- _lhsOconstructors =- ({-# LINE 718 "Transform.ag" #-}- \ds -> _set1Iconstructors ds `Set.union` _set2Iconstructors ds- {-# LINE 1417 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 93, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 93 "Transform.ag" #-}- _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames- {-# LINE 1423 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 1429 "Transform.hs" #-}- )- ( _set1IcollectedConstructorNames,_set1Iconstructors,_set1Ierrors) =- set1_ - ( _set2IcollectedConstructorNames,_set2Iconstructors,_set2Ierrors) =- set2_ - in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )--- Elem ---------------------------------------------------------{-- visit 0:- inherited attributes:- allAttrDecls : Map NontermIdent (Attributes, Attributes)- allConstructors : Map NontermIdent (Set ConstructorIdent)- allFields : DataTypes- allNonterminals : Set NontermIdent- definedSets : DefinedSets- options : Options- chained attributes:- attrDecls : Map NontermIdent (Attributes, Attributes)- defSets : Map Identifier (Set NontermIdent,Set Identifier)- synthesized attributes:- attrOrderCollect : AttrOrderMap- blocks : Blocks- collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]- collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]- collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent)- collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]- collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]- collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]- collectedNames : Set Identifier- collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]- collectedSetNames : Set Identifier- collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]- collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]- ctxCollect : ContextMap- derivings : Derivings- errors : Seq Error- moduleDecl : Maybe (String,String,String)- paramsCollect : ParamMap- pragmas : Options -> Options- semPragmasCollect : PragmaMap- typeSyns : TypeSyns- useMap : Map NontermIdent (Map Identifier (String,String,String))- wrappers : Set NontermIdent- alternatives:- alternative Attr:- child pos : {Pos}- child ctx : {ClassContext}- child names : NontSet - child attrs : Attrs - alternative Data:- child pos : {Pos}- child ctx : {ClassContext}- child names : NontSet - child params : {[Identifier]}- child attrs : Attrs - child alts : Alts - child ext : {Bool}- alternative Deriving:- child pos : {Pos}- child set : NontSet - child classes : {[NontermIdent]}- alternative Module:- child pos : {Pos}- child name : {String}- child exports : {String}- child imports : {String}- alternative Pragma:- child pos : {Pos}- child names : {[NontermIdent]}- alternative Sem:- child pos : {Pos}- child ctx : {ClassContext}- child names : NontSet - child attrs : Attrs - child alts : SemAlts - alternative Set:- child pos : {Pos}- child name : {NontermIdent}- child set : NontSet - visit 0:- local _tup3 : _- local defSets2 : _- local errs : _- alternative Txt:- child pos : {Pos}- child name : {Identifier}- child mbNt : {Maybe NontermIdent}- child lines : {[String]}- visit 0:- local blockInfo : _- local blockValue : _- alternative Type:- child pos : {Pos}- child ctx : {ClassContext}- child name : {NontermIdent}- child params : {[Identifier]}- child type : {ComplexType}- visit 0:- local expanded : _- local argType : _- alternative Wrapper:- child pos : {Pos}- child set : NontSet --}--- cata-sem_Elem :: Elem ->- T_Elem -sem_Elem (Attr _pos _ctx _names _attrs ) =- (sem_Elem_Attr _pos _ctx (sem_NontSet _names ) (sem_Attrs _attrs ) )-sem_Elem (Data _pos _ctx _names _params _attrs _alts _ext ) =- (sem_Elem_Data _pos _ctx (sem_NontSet _names ) _params (sem_Attrs _attrs ) (sem_Alts _alts ) _ext )-sem_Elem (Deriving _pos _set _classes ) =- (sem_Elem_Deriving _pos (sem_NontSet _set ) _classes )-sem_Elem (Module _pos _name _exports _imports ) =- (sem_Elem_Module _pos _name _exports _imports )-sem_Elem (Pragma _pos _names ) =- (sem_Elem_Pragma _pos _names )-sem_Elem (Sem _pos _ctx _names _attrs _alts ) =- (sem_Elem_Sem _pos _ctx (sem_NontSet _names ) (sem_Attrs _attrs ) (sem_SemAlts _alts ) )-sem_Elem (Set _pos _name _set ) =- (sem_Elem_Set _pos _name (sem_NontSet _set ) )-sem_Elem (Txt _pos _name _mbNt _lines ) =- (sem_Elem_Txt _pos _name _mbNt _lines )-sem_Elem (Type _pos _ctx _name _params _type ) =- (sem_Elem_Type _pos _ctx _name _params _type )-sem_Elem (Wrapper _pos _set ) =- (sem_Elem_Wrapper _pos (sem_NontSet _set ) )--- semantic domain-newtype T_Elem = T_Elem ((Map NontermIdent (Attributes, Attributes)) ->- (Map NontermIdent (Set ConstructorIdent)) ->- DataTypes ->- (Set NontermIdent) ->- (Map NontermIdent (Attributes, Attributes)) ->- (Map Identifier (Set NontermIdent,Set Identifier)) ->- DefinedSets ->- Options ->- ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),(Set Identifier),([ (NontermIdent, ConstructorIdent, RuleInfo)]),(Set Identifier),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),ContextMap,(Map Identifier (Set NontermIdent,Set Identifier)),Derivings,(Seq Error),(Maybe (String,String,String)),ParamMap,(Options -> Options),PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent)))-data Inh_Elem = Inh_Elem {allAttrDecls_Inh_Elem :: !((Map NontermIdent (Attributes, Attributes))),allConstructors_Inh_Elem :: !((Map NontermIdent (Set ConstructorIdent))),allFields_Inh_Elem :: !(DataTypes),allNonterminals_Inh_Elem :: !((Set NontermIdent)),attrDecls_Inh_Elem :: !((Map NontermIdent (Attributes, Attributes))),defSets_Inh_Elem :: !((Map Identifier (Set NontermIdent,Set Identifier))),definedSets_Inh_Elem :: !(DefinedSets),options_Inh_Elem :: !(Options)}-data Syn_Elem = Syn_Elem {attrDecls_Syn_Elem :: !((Map NontermIdent (Attributes, Attributes))),attrOrderCollect_Syn_Elem :: !(AttrOrderMap),blocks_Syn_Elem :: !(Blocks),collectedArounds_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConstructorsMap_Syn_Elem :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elem :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedNames_Syn_Elem :: !((Set Identifier)),collectedRules_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSetNames_Syn_Elem :: !((Set Identifier)),collectedSigs_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),ctxCollect_Syn_Elem :: !(ContextMap),defSets_Syn_Elem :: !((Map Identifier (Set NontermIdent,Set Identifier))),derivings_Syn_Elem :: !(Derivings),errors_Syn_Elem :: !((Seq Error)),moduleDecl_Syn_Elem :: !((Maybe (String,String,String))),paramsCollect_Syn_Elem :: !(ParamMap),pragmas_Syn_Elem :: !((Options -> Options)),semPragmasCollect_Syn_Elem :: !(PragmaMap),typeSyns_Syn_Elem :: !(TypeSyns),useMap_Syn_Elem :: !((Map NontermIdent (Map Identifier (String,String,String)))),wrappers_Syn_Elem :: !((Set NontermIdent))}-wrap_Elem :: T_Elem ->- Inh_Elem ->- Syn_Elem -wrap_Elem (T_Elem sem ) (Inh_Elem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions ) =- (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions - in (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers ))-sem_Elem_Attr :: Pos ->- ClassContext ->- T_NontSet ->- T_Attrs ->- T_Elem -sem_Elem_Attr pos_ ctx_ (T_NontSet names_ ) (T_Attrs attrs_ ) =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOctxCollect :: ContextMap- _attrsOnts :: (Set NontermIdent)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _namesOallFields :: DataTypes- _namesOallNonterminals :: (Set NontermIdent)- _namesOdefinedSets :: DefinedSets- _attrsOallFields :: DataTypes- _attrsOallNonterminals :: (Set NontermIdent)- _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _attrsOoptions :: Options- _namesIcollectedNames :: (Set Identifier)- _namesIerrors :: (Seq Error)- _namesInontSet :: (Set NontermIdent)- _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _attrsIerrors :: (Seq Error)- _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- -- "Transform.ag"(line 868, column 7)- _lhsOctxCollect =- ({-# LINE 868 "Transform.ag" #-}- if null ctx_- then Map.empty- else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]- {-# LINE 1634 "Transform.hs" #-}- )- -- "Transform.ag"(line 912, column 10)- _attrsOnts =- ({-# LINE 912 "Transform.ag" #-}- _namesInontSet- {-# LINE 1640 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 809, column 55)- _lhsOattrOrderCollect =- ({-# LINE 809 "Transform.ag" #-}- Map.empty- {-# LINE 1646 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 1652 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 1658 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 1664 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 1670 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 1676 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 1682 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 1688 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _namesIcollectedNames- {-# LINE 1694 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 1700 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 1706 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 1712 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 1718 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 889, column 33)- _lhsOderivings =- ({-# LINE 889 "Transform.ag" #-}- Map.empty- {-# LINE 1724 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _namesIerrors Seq.>< _attrsIerrors- {-# LINE 1730 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1085, column 37)- _lhsOmoduleDecl =- ({-# LINE 1085 "Transform.ag" #-}- mzero- {-# LINE 1736 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 841, column 37)- _lhsOparamsCollect =- ({-# LINE 841 "Transform.ag" #-}- Map.empty- {-# LINE 1742 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 735, column 34)- _lhsOpragmas =- ({-# LINE 735 "Transform.ag" #-}- id- {-# LINE 1748 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 781, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 781 "Transform.ag" #-}- Map.empty- {-# LINE 1754 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 1760 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- _attrsIuseMap- {-# LINE 1766 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 726, column 32)- _lhsOwrappers =- ({-# LINE 726 "Transform.ag" #-}- Set.empty- {-# LINE 1772 "Transform.hs" #-}- )- -- copy rule (up)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _attrsIattrDecls- {-# LINE 1778 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 1784 "Transform.hs" #-}- )- -- copy rule (down)- _namesOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 1790 "Transform.hs" #-}- )- -- copy rule (down)- _namesOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 1796 "Transform.hs" #-}- )- -- copy rule (down)- _namesOdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 1802 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 1808 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 1814 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 1820 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 1826 "Transform.hs" #-}- )- ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =- names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets - ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) =- attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Data :: Pos ->- ClassContext ->- T_NontSet ->- ([Identifier]) ->- T_Attrs ->- T_Alts ->- Bool ->- T_Elem -sem_Elem_Data pos_ ctx_ (T_NontSet names_ ) params_ (T_Attrs attrs_ ) (T_Alts alts_ ) ext_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _altsOnts :: (Set NontermIdent)- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOparamsCollect :: ParamMap- _lhsOctxCollect :: ContextMap- _attrsOnts :: (Set NontermIdent)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _namesOallFields :: DataTypes- _namesOallNonterminals :: (Set NontermIdent)- _namesOdefinedSets :: DefinedSets- _attrsOallFields :: DataTypes- _attrsOallNonterminals :: (Set NontermIdent)- _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _attrsOoptions :: Options- _altsOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _altsOallNonterminals :: (Set NontermIdent)- _namesIcollectedNames :: (Set Identifier)- _namesIerrors :: (Seq Error)- _namesInontSet :: (Set NontermIdent)- _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _attrsIerrors :: (Seq Error)- _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _altsIcollectedConstructorNames :: (Set ConstructorIdent)- _altsIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- -- "Transform.ag"(line 170, column 10)- _altsOnts =- ({-# LINE 170 "Transform.ag" #-}- _namesInontSet- {-# LINE 1898 "Transform.hs" #-}- )- -- "Transform.ag"(line 574, column 11)- _lhsOcollectedConstructorsMap =- ({-# LINE 574 "Transform.ag" #-}- Map.fromList- [ (n, _altsIcollectedConstructorNames)- | n <- Set.toList _namesInontSet- ]- {-# LINE 1907 "Transform.hs" #-}- )- -- "Transform.ag"(line 845, column 7)- _lhsOparamsCollect =- ({-# LINE 845 "Transform.ag" #-}- if null params_- then Map.empty- else Map.fromList [(nt, params_) | nt <- Set.toList _namesInontSet]- {-# LINE 1915 "Transform.hs" #-}- )- -- "Transform.ag"(line 868, column 7)- _lhsOctxCollect =- ({-# LINE 868 "Transform.ag" #-}- if null ctx_- then Map.empty- else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]- {-# LINE 1923 "Transform.hs" #-}- )- -- "Transform.ag"(line 911, column 10)- _attrsOnts =- ({-# LINE 911 "Transform.ag" #-}- _namesInontSet- {-# LINE 1929 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 809, column 55)- _lhsOattrOrderCollect =- ({-# LINE 809 "Transform.ag" #-}- Map.empty- {-# LINE 1935 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 1941 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 1947 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 1953 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- _altsIcollectedFields- {-# LINE 1959 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 1965 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 1971 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _namesIcollectedNames- {-# LINE 1977 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 1983 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 1989 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 1995 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 2001 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 889, column 33)- _lhsOderivings =- ({-# LINE 889 "Transform.ag" #-}- Map.empty- {-# LINE 2007 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _namesIerrors Seq.>< _attrsIerrors- {-# LINE 2013 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1085, column 37)- _lhsOmoduleDecl =- ({-# LINE 1085 "Transform.ag" #-}- mzero- {-# LINE 2019 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 735, column 34)- _lhsOpragmas =- ({-# LINE 735 "Transform.ag" #-}- id- {-# LINE 2025 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 781, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 781 "Transform.ag" #-}- Map.empty- {-# LINE 2031 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 2037 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- _attrsIuseMap- {-# LINE 2043 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 726, column 32)- _lhsOwrappers =- ({-# LINE 726 "Transform.ag" #-}- Set.empty- {-# LINE 2049 "Transform.hs" #-}- )- -- copy rule (up)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _attrsIattrDecls- {-# LINE 2055 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 2061 "Transform.hs" #-}- )- -- copy rule (down)- _namesOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 2067 "Transform.hs" #-}- )- -- copy rule (down)- _namesOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2073 "Transform.hs" #-}- )- -- copy rule (down)- _namesOdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 2079 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 2085 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2091 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 2097 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 2103 "Transform.hs" #-}- )- -- copy rule (down)- _altsOallConstructors =- ({-# LINE 96 "Transform.ag" #-}- _lhsIallConstructors- {-# LINE 2109 "Transform.hs" #-}- )- -- copy rule (down)- _altsOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2115 "Transform.hs" #-}- )- ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =- names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets - ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) =- attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions - ( _altsIcollectedConstructorNames,_altsIcollectedFields) =- alts_ _altsOallConstructors _altsOallNonterminals _altsOnts - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Deriving :: Pos ->- T_NontSet ->- ([NontermIdent]) ->- T_Elem -sem_Elem_Deriving pos_ (T_NontSet set_ ) classes_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOderivings :: Derivings- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _setOallFields :: DataTypes- _setOallNonterminals :: (Set NontermIdent)- _setOdefinedSets :: DefinedSets- _setIcollectedNames :: (Set Identifier)- _setIerrors :: (Seq Error)- _setInontSet :: (Set NontermIdent)- -- "Transform.ag"(line 896, column 14)- _lhsOderivings =- ({-# LINE 896 "Transform.ag" #-}- Map.fromList [(nt,Set.fromList classes_) | nt <- Set.toList _setInontSet]- {-# LINE 2172 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 809, column 55)- _lhsOattrOrderCollect =- ({-# LINE 809 "Transform.ag" #-}- Map.empty- {-# LINE 2178 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 2184 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 2190 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 2196 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 2202 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 2208 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 2214 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 2220 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _setIcollectedNames- {-# LINE 2226 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 2232 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 2238 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 2244 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 2250 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 864, column 34)- _lhsOctxCollect =- ({-# LINE 864 "Transform.ag" #-}- Map.empty- {-# LINE 2256 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _setIerrors- {-# LINE 2262 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1085, column 37)- _lhsOmoduleDecl =- ({-# LINE 1085 "Transform.ag" #-}- mzero- {-# LINE 2268 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 841, column 37)- _lhsOparamsCollect =- ({-# LINE 841 "Transform.ag" #-}- Map.empty- {-# LINE 2274 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 735, column 34)- _lhsOpragmas =- ({-# LINE 735 "Transform.ag" #-}- id- {-# LINE 2280 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 781, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 781 "Transform.ag" #-}- Map.empty- {-# LINE 2286 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 2292 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- Map.empty- {-# LINE 2298 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 726, column 32)- _lhsOwrappers =- ({-# LINE 726 "Transform.ag" #-}- Set.empty- {-# LINE 2304 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 2310 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 2316 "Transform.hs" #-}- )- -- copy rule (down)- _setOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 2322 "Transform.hs" #-}- )- -- copy rule (down)- _setOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2328 "Transform.hs" #-}- )- -- copy rule (down)- _setOdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 2334 "Transform.hs" #-}- )- ( _setIcollectedNames,_setIerrors,_setInontSet) =- set_ _setOallFields _setOallNonterminals _setOdefinedSets - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Module :: Pos ->- String ->- String ->- String ->- T_Elem -sem_Elem_Module pos_ name_ exports_ imports_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- "Transform.ag"(line 1089, column 7)- _lhsOmoduleDecl =- ({-# LINE 1089 "Transform.ag" #-}- Just (name_, exports_, imports_)- {-# LINE 2382 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 809, column 55)- _lhsOattrOrderCollect =- ({-# LINE 809 "Transform.ag" #-}- Map.empty- {-# LINE 2388 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 2394 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 2400 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 2406 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 2412 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 2418 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 2424 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 2430 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- Set.empty- {-# LINE 2436 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 2442 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 2448 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 2454 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 2460 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 864, column 34)- _lhsOctxCollect =- ({-# LINE 864 "Transform.ag" #-}- Map.empty- {-# LINE 2466 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 889, column 33)- _lhsOderivings =- ({-# LINE 889 "Transform.ag" #-}- Map.empty- {-# LINE 2472 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 2478 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 841, column 37)- _lhsOparamsCollect =- ({-# LINE 841 "Transform.ag" #-}- Map.empty- {-# LINE 2484 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 735, column 34)- _lhsOpragmas =- ({-# LINE 735 "Transform.ag" #-}- id- {-# LINE 2490 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 781, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 781 "Transform.ag" #-}- Map.empty- {-# LINE 2496 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 2502 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- Map.empty- {-# LINE 2508 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 726, column 32)- _lhsOwrappers =- ({-# LINE 726 "Transform.ag" #-}- Set.empty- {-# LINE 2514 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 2520 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 2526 "Transform.hs" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Pragma :: Pos ->- ([NontermIdent]) ->- T_Elem -sem_Elem_Pragma pos_ names_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOpragmas :: (Options -> Options)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- "Transform.ag"(line 738, column 13)- _lhsOpragmas =- ({-# LINE 738 "Transform.ag" #-}- let mk n o = case getName n of- "gencatas" -> o { folds = True }- "nogencatas" -> o { folds = False }- "gendatas" -> o { dataTypes = True }- "nogendatas" -> o { dataTypes = False }- "gensems" -> o { semfuns = True }- "nogensems" -> o { semfuns = False }- "gentypesigs" -> o { typeSigs = True }- "nogentypesigs"-> o { typeSigs = False }- "nocycle" -> o { withCycle = False }- "cycle" -> o { withCycle = True }- "nostrictdata" -> o { strictData = False }- "strictdata" -> o { strictData = True }- "nostrictcase" -> o { strictCases = False }- "strictcase" -> o { strictCases = True }- "strictercase" -> o { strictCases = True, stricterCases = True }- "nostrictwrap" -> o { strictWrap = False }- "strictwrap" -> o { strictWrap = True }- "novisit" -> o { visit = False }- "visit" -> o { visit = True }- "nocase" -> o { cases = False }- "case" -> o { cases = True }- "noseq" -> o { withSeq = False }- "seq" -> o { withSeq = True }- "nounbox" -> o { unbox = False }- "unbox" -> o { unbox = True }- "bangpats" -> o { bangpats = True }- "breadthfirst" -> o { breadthFirst = True }- "breadthfirstStrict" -> o { breadthFirstStrict = True }- "nooptimize" -> o { cases = False , visit = False }- "optimize" -> o { cases = True , visit = True }- "strictsem" -> o { strictSems = True }- "gentraces" -> o { genTraces = True }- "genusetraces" -> o { genUseTraces = True }- "splitsems" -> o { splitSems = True }- "gencostcentres" -> o { genCostCentres = True }- "sepsemmods" -> o { sepSemMods = True }- "genlinepragmas" -> o { genLinePragmas = True }- "newtypes" -> o { newtypes = True }- "nonewtypes" -> o { newtypes = False }- _ -> o- in \o -> foldr mk o names_- {-# LINE 2611 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 809, column 55)- _lhsOattrOrderCollect =- ({-# LINE 809 "Transform.ag" #-}- Map.empty- {-# LINE 2617 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 2623 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 2629 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 2635 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 2641 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 2647 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 2653 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 2659 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- Set.empty- {-# LINE 2665 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 2671 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 2677 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 2683 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 2689 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 864, column 34)- _lhsOctxCollect =- ({-# LINE 864 "Transform.ag" #-}- Map.empty- {-# LINE 2695 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 889, column 33)- _lhsOderivings =- ({-# LINE 889 "Transform.ag" #-}- Map.empty- {-# LINE 2701 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 2707 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1085, column 37)- _lhsOmoduleDecl =- ({-# LINE 1085 "Transform.ag" #-}- mzero- {-# LINE 2713 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 841, column 37)- _lhsOparamsCollect =- ({-# LINE 841 "Transform.ag" #-}- Map.empty- {-# LINE 2719 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 781, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 781 "Transform.ag" #-}- Map.empty- {-# LINE 2725 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 2731 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- Map.empty- {-# LINE 2737 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 726, column 32)- _lhsOwrappers =- ({-# LINE 726 "Transform.ag" #-}- Set.empty- {-# LINE 2743 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 2749 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 2755 "Transform.hs" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Sem :: Pos ->- ClassContext ->- T_NontSet ->- T_Attrs ->- T_SemAlts ->- T_Elem -sem_Elem_Sem pos_ ctx_ (T_NontSet names_ ) (T_Attrs attrs_ ) (T_SemAlts alts_ ) =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _altsOnts :: (Set NontermIdent)- _lhsOctxCollect :: ContextMap- _attrsOnts :: (Set NontermIdent)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _namesOallFields :: DataTypes- _namesOallNonterminals :: (Set NontermIdent)- _namesOdefinedSets :: DefinedSets- _attrsOallFields :: DataTypes- _attrsOallNonterminals :: (Set NontermIdent)- _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _attrsOoptions :: Options- _altsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _altsOallFields :: DataTypes- _altsOoptions :: Options- _namesIcollectedNames :: (Set Identifier)- _namesIerrors :: (Seq Error)- _namesInontSet :: (Set NontermIdent)- _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _attrsIerrors :: (Seq Error)- _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _altsIattrOrderCollect :: AttrOrderMap- _altsIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _altsIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _altsIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _altsIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _altsIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _altsIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _altsIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _altsIerrors :: (Seq Error)- _altsIsemPragmasCollect :: PragmaMap- -- "Transform.ag"(line 171, column 10)- _altsOnts =- ({-# LINE 171 "Transform.ag" #-}- _namesInontSet- {-# LINE 2830 "Transform.hs" #-}- )- -- "Transform.ag"(line 868, column 7)- _lhsOctxCollect =- ({-# LINE 868 "Transform.ag" #-}- if null ctx_- then Map.empty- else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]- {-# LINE 2838 "Transform.hs" #-}- )- -- "Transform.ag"(line 913, column 10)- _attrsOnts =- ({-# LINE 913 "Transform.ag" #-}- _namesInontSet- {-# LINE 2844 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 809, column 55)- _lhsOattrOrderCollect =- ({-# LINE 809 "Transform.ag" #-}- _altsIattrOrderCollect- {-# LINE 2850 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 2856 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- _altsIcollectedArounds- {-# LINE 2862 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- _altsIcollectedAugments- {-# LINE 2868 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 2874 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 2880 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- _altsIcollectedInsts- {-# LINE 2886 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- _altsIcollectedMerges- {-# LINE 2892 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _namesIcollectedNames- {-# LINE 2898 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- _altsIcollectedRules- {-# LINE 2904 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 2910 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- _altsIcollectedSigs- {-# LINE 2916 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- _altsIcollectedUniques- {-# LINE 2922 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 889, column 33)- _lhsOderivings =- ({-# LINE 889 "Transform.ag" #-}- Map.empty- {-# LINE 2928 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _namesIerrors Seq.>< _attrsIerrors Seq.>< _altsIerrors- {-# LINE 2934 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1085, column 37)- _lhsOmoduleDecl =- ({-# LINE 1085 "Transform.ag" #-}- mzero- {-# LINE 2940 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 841, column 37)- _lhsOparamsCollect =- ({-# LINE 841 "Transform.ag" #-}- Map.empty- {-# LINE 2946 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 735, column 34)- _lhsOpragmas =- ({-# LINE 735 "Transform.ag" #-}- id- {-# LINE 2952 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 781, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 781 "Transform.ag" #-}- _altsIsemPragmasCollect- {-# LINE 2958 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 2964 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- _attrsIuseMap- {-# LINE 2970 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 726, column 32)- _lhsOwrappers =- ({-# LINE 726 "Transform.ag" #-}- Set.empty- {-# LINE 2976 "Transform.hs" #-}- )- -- copy rule (up)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _attrsIattrDecls- {-# LINE 2982 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 2988 "Transform.hs" #-}- )- -- copy rule (down)- _namesOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 2994 "Transform.hs" #-}- )- -- copy rule (down)- _namesOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 3000 "Transform.hs" #-}- )- -- copy rule (down)- _namesOdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 3006 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 3012 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 3018 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 3024 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 3030 "Transform.hs" #-}- )- -- copy rule (down)- _altsOallAttrDecls =- ({-# LINE 810 "Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 3036 "Transform.hs" #-}- )- -- copy rule (down)- _altsOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 3042 "Transform.hs" #-}- )- -- copy rule (down)- _altsOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 3048 "Transform.hs" #-}- )- ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =- names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets - ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) =- attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions - ( _altsIattrOrderCollect,_altsIcollectedArounds,_altsIcollectedAugments,_altsIcollectedInsts,_altsIcollectedMerges,_altsIcollectedRules,_altsIcollectedSigs,_altsIcollectedUniques,_altsIerrors,_altsIsemPragmasCollect) =- alts_ _altsOallAttrDecls _altsOallFields _altsOnts _altsOoptions - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Set :: Pos ->- NontermIdent ->- T_NontSet ->- T_Elem -sem_Elem_Set pos_ name_ (T_NontSet set_ ) =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOcollectedSetNames :: (Set Identifier)- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _lhsOerrors :: (Seq Error)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _setOallFields :: DataTypes- _setOallNonterminals :: (Set NontermIdent)- _setOdefinedSets :: DefinedSets- _setIcollectedNames :: (Set Identifier)- _setIerrors :: (Seq Error)- _setInontSet :: (Set NontermIdent)- -- "Transform.ag"(line 551, column 10)- _lhsOcollectedSetNames =- ({-# LINE 551 "Transform.ag" #-}- Set.singleton name_- {-# LINE 3105 "Transform.hs" #-}- )- -- "Transform.ag"(line 658, column 13)- __tup3 =- ({-# LINE 658 "Transform.ag" #-}- let allUsedNames = Set.unions [ maybe (Set.singleton n)- snd- (Map.lookup n _lhsIdefSets)- | n <- Set.toList _setIcollectedNames- ]- (nontSet,e1) | Set.member name_ allUsedNames- = (Set.empty, Seq.singleton(CyclicSet name_))- | otherwise = (_setInontSet, Seq.empty)- (res, e2) = checkDuplicate DupSet name_ (nontSet,Set.insert name_ allUsedNames) _lhsIdefSets- in (res, e1 Seq.>< e2)- {-# LINE 3120 "Transform.hs" #-}- )- -- "Transform.ag"(line 658, column 13)- (_defSets2,_) =- ({-# LINE 658 "Transform.ag" #-}- __tup3- {-# LINE 3126 "Transform.hs" #-}- )- -- "Transform.ag"(line 658, column 13)- (_,_errs) =- ({-# LINE 658 "Transform.ag" #-}- __tup3- {-# LINE 3132 "Transform.hs" #-}- )- -- "Transform.ag"(line 668, column 9)- _lhsOdefSets =- ({-# LINE 668 "Transform.ag" #-}- _defSets2- {-# LINE 3138 "Transform.hs" #-}- )- -- "Transform.ag"(line 668, column 9)- _lhsOerrors =- ({-# LINE 669 "Transform.ag" #-}- _errs >< _setIerrors- {-# LINE 3144 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 809, column 55)- _lhsOattrOrderCollect =- ({-# LINE 809 "Transform.ag" #-}- Map.empty- {-# LINE 3150 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 3156 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 3162 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 3168 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 3174 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 3180 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 3186 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 3192 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _setIcollectedNames- {-# LINE 3198 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 3204 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 3210 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 3216 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 864, column 34)- _lhsOctxCollect =- ({-# LINE 864 "Transform.ag" #-}- Map.empty- {-# LINE 3222 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 889, column 33)- _lhsOderivings =- ({-# LINE 889 "Transform.ag" #-}- Map.empty- {-# LINE 3228 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1085, column 37)- _lhsOmoduleDecl =- ({-# LINE 1085 "Transform.ag" #-}- mzero- {-# LINE 3234 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 841, column 37)- _lhsOparamsCollect =- ({-# LINE 841 "Transform.ag" #-}- Map.empty- {-# LINE 3240 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 735, column 34)- _lhsOpragmas =- ({-# LINE 735 "Transform.ag" #-}- id- {-# LINE 3246 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 781, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 781 "Transform.ag" #-}- Map.empty- {-# LINE 3252 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 3258 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- Map.empty- {-# LINE 3264 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 726, column 32)- _lhsOwrappers =- ({-# LINE 726 "Transform.ag" #-}- Set.empty- {-# LINE 3270 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 3276 "Transform.hs" #-}- )- -- copy rule (down)- _setOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 3282 "Transform.hs" #-}- )- -- copy rule (down)- _setOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 3288 "Transform.hs" #-}- )- -- copy rule (down)- _setOdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 3294 "Transform.hs" #-}- )- ( _setIcollectedNames,_setIerrors,_setInontSet) =- set_ _setOallFields _setOallNonterminals _setOdefinedSets - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Txt :: Pos ->- Identifier ->- (Maybe NontermIdent) ->- ([String]) ->- T_Elem -sem_Elem_Txt pos_ name_ mbNt_ lines_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOblocks :: Blocks- _lhsOerrors :: (Seq Error)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- "Transform.ag"(line 180, column 10)- _blockInfo =- ({-# LINE 180 "Transform.ag" #-}- ( let nm = getName name_- in if nm == "imports"- then BlockImport- else if nm == "optpragmas"- then BlockPragma- else BlockOther- , mbNt_- )- {-# LINE 3349 "Transform.hs" #-}- )- -- "Transform.ag"(line 188, column 10)- _blockValue =- ({-# LINE 188 "Transform.ag" #-}- [(lines_, pos_)]- {-# LINE 3355 "Transform.hs" #-}- )- -- "Transform.ag"(line 189, column 10)- _lhsOblocks =- ({-# LINE 189 "Transform.ag" #-}- Map.singleton _blockInfo _blockValue- {-# LINE 3361 "Transform.hs" #-}- )- -- "Transform.ag"(line 190, column 10)- _lhsOerrors =- ({-# LINE 190 "Transform.ag" #-}- if checkParseBlock _lhsIoptions- then let exp = Expression pos_ tks- tks = [tk]- tk = HsToken (unlines lines_) pos_- in Seq.fromList $ checkBlock $ exp- else Seq.empty- {-# LINE 3372 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 809, column 55)- _lhsOattrOrderCollect =- ({-# LINE 809 "Transform.ag" #-}- Map.empty- {-# LINE 3378 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 3384 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 3390 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 3396 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 3402 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 3408 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 3414 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- Set.empty- {-# LINE 3420 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 3426 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 3432 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 3438 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 3444 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 864, column 34)- _lhsOctxCollect =- ({-# LINE 864 "Transform.ag" #-}- Map.empty- {-# LINE 3450 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 889, column 33)- _lhsOderivings =- ({-# LINE 889 "Transform.ag" #-}- Map.empty- {-# LINE 3456 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1085, column 37)- _lhsOmoduleDecl =- ({-# LINE 1085 "Transform.ag" #-}- mzero- {-# LINE 3462 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 841, column 37)- _lhsOparamsCollect =- ({-# LINE 841 "Transform.ag" #-}- Map.empty- {-# LINE 3468 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 735, column 34)- _lhsOpragmas =- ({-# LINE 735 "Transform.ag" #-}- id- {-# LINE 3474 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 781, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 781 "Transform.ag" #-}- Map.empty- {-# LINE 3480 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 3486 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- Map.empty- {-# LINE 3492 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 726, column 32)- _lhsOwrappers =- ({-# LINE 726 "Transform.ag" #-}- Set.empty- {-# LINE 3498 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 3504 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 3510 "Transform.hs" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Type :: Pos ->- ClassContext ->- NontermIdent ->- ([Identifier]) ->- ComplexType ->- T_Elem -sem_Elem_Type pos_ ctx_ name_ params_ type_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedNames :: (Set Identifier)- _lhsOtypeSyns :: TypeSyns- _lhsOparamsCollect :: ParamMap- _lhsOctxCollect :: ContextMap- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- "Transform.ag"(line 248, column 10)- _lhsOcollectedFields =- ({-# LINE 248 "Transform.ag" #-}- map (\(x,y)->(name_, x, y)) _expanded- {-# LINE 3557 "Transform.hs" #-}- )- -- "Transform.ag"(line 554, column 11)- _lhsOcollectedNames =- ({-# LINE 554 "Transform.ag" #-}- Set.singleton name_- {-# LINE 3563 "Transform.hs" #-}- )- -- "Transform.ag"(line 608, column 11)- _expanded =- ({-# LINE 608 "Transform.ag" #-}- case _argType of- List tp -> [(Ident "Cons" pos_, [(Ident "hd" pos_, tp)- ,(Ident "tl" pos_, NT name_ (map getName params_))- ]- )- ,(Ident "Nil" pos_, [])- ]- Maybe tp -> [(Ident "Just" pos_, [(Ident "just" pos_, tp)- ]- )- ,(Ident "Nothing" pos_, [])- ]- Either tp1 tp2 -> [- (Ident "Left" pos_, [(Ident "left" pos_, tp1) ])- , (Ident "Right" pos_, [(Ident "right" pos_, tp2) ])- ]- Map tp1 tp2 -> [ (Ident "Entry" pos_, [ (Ident "key" pos_, tp1)- , (Ident "val" pos_, tp2)- , (Ident "tl" pos_, NT name_ (map getName params_))- ])- , (Ident "Nil" pos_, [])- ]- IntMap tp -> [ (Ident "Entry" pos_, [ (Ident "key" pos_, Haskell "Int")- , (Ident "val" pos_, tp)- , (Ident "tl" pos_, NT name_ (map getName params_))- ])- , (Ident "Nil" pos_, [])- ]- Tuple xs -> [(Ident "Tuple" pos_, xs)]- {-# LINE 3597 "Transform.hs" #-}- )- -- "Transform.ag"(line 637, column 11)- _argType =- ({-# LINE 637 "Transform.ag" #-}- case type_ of- Maybe tp -> Maybe ( makeType _lhsIallNonterminals tp)- Either tp1 tp2 -> Either ( makeType _lhsIallNonterminals tp1) (makeType _lhsIallNonterminals tp2)- List tp -> List ( makeType _lhsIallNonterminals tp)- Tuple xs -> Tuple [(f,makeType _lhsIallNonterminals tp) | (f,tp) <- xs]- Map tp1 tp2 -> Map ( makeType _lhsIallNonterminals tp1) (makeType _lhsIallNonterminals tp2)- IntMap tp -> IntMap ( makeType _lhsIallNonterminals tp)- {-# LINE 3609 "Transform.hs" #-}- )- -- "Transform.ag"(line 644, column 11)- _lhsOtypeSyns =- ({-# LINE 644 "Transform.ag" #-}- [(name_,_argType)]- {-# LINE 3615 "Transform.hs" #-}- )- -- "Transform.ag"(line 851, column 7)- _lhsOparamsCollect =- ({-# LINE 851 "Transform.ag" #-}- if null params_- then Map.empty- else Map.singleton name_ params_- {-# LINE 3623 "Transform.hs" #-}- )- -- "Transform.ag"(line 874, column 7)- _lhsOctxCollect =- ({-# LINE 874 "Transform.ag" #-}- if null ctx_- then Map.empty- else Map.singleton name_ ctx_- {-# LINE 3631 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 809, column 55)- _lhsOattrOrderCollect =- ({-# LINE 809 "Transform.ag" #-}- Map.empty- {-# LINE 3637 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 3643 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 3649 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 3655 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 3661 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 3667 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 3673 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 3679 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 3685 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 3691 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 3697 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 889, column 33)- _lhsOderivings =- ({-# LINE 889 "Transform.ag" #-}- Map.empty- {-# LINE 3703 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 3709 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1085, column 37)- _lhsOmoduleDecl =- ({-# LINE 1085 "Transform.ag" #-}- mzero- {-# LINE 3715 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 735, column 34)- _lhsOpragmas =- ({-# LINE 735 "Transform.ag" #-}- id- {-# LINE 3721 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 781, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 781 "Transform.ag" #-}- Map.empty- {-# LINE 3727 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- Map.empty- {-# LINE 3733 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 726, column 32)- _lhsOwrappers =- ({-# LINE 726 "Transform.ag" #-}- Set.empty- {-# LINE 3739 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 3745 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 3751 "Transform.hs" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Wrapper :: Pos ->- T_NontSet ->- T_Elem -sem_Elem_Wrapper pos_ (T_NontSet set_ ) =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOwrappers :: (Set NontermIdent)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _setOallFields :: DataTypes- _setOallNonterminals :: (Set NontermIdent)- _setOdefinedSets :: DefinedSets- _setIcollectedNames :: (Set Identifier)- _setIerrors :: (Seq Error)- _setInontSet :: (Set NontermIdent)- -- "Transform.ag"(line 729, column 13)- _lhsOwrappers =- ({-# LINE 729 "Transform.ag" #-}- _setInontSet- {-# LINE 3801 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 809, column 55)- _lhsOattrOrderCollect =- ({-# LINE 809 "Transform.ag" #-}- Map.empty- {-# LINE 3807 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 3813 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 3819 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 3825 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 3831 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 3837 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 3843 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 3849 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _setIcollectedNames- {-# LINE 3855 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 3861 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 3867 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 3873 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 3879 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 864, column 34)- _lhsOctxCollect =- ({-# LINE 864 "Transform.ag" #-}- Map.empty- {-# LINE 3885 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 889, column 33)- _lhsOderivings =- ({-# LINE 889 "Transform.ag" #-}- Map.empty- {-# LINE 3891 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _setIerrors- {-# LINE 3897 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1085, column 37)- _lhsOmoduleDecl =- ({-# LINE 1085 "Transform.ag" #-}- mzero- {-# LINE 3903 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 841, column 37)- _lhsOparamsCollect =- ({-# LINE 841 "Transform.ag" #-}- Map.empty- {-# LINE 3909 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 735, column 34)- _lhsOpragmas =- ({-# LINE 735 "Transform.ag" #-}- id- {-# LINE 3915 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 781, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 781 "Transform.ag" #-}- Map.empty- {-# LINE 3921 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 3927 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- Map.empty- {-# LINE 3933 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 3939 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 3945 "Transform.hs" #-}- )- -- copy rule (down)- _setOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 3951 "Transform.hs" #-}- )- -- copy rule (down)- _setOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 3957 "Transform.hs" #-}- )- -- copy rule (down)- _setOdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 3963 "Transform.hs" #-}- )- ( _setIcollectedNames,_setIerrors,_setInontSet) =- set_ _setOallFields _setOallNonterminals _setOdefinedSets - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )--- Elems --------------------------------------------------------{-- visit 0:- inherited attributes:- allAttrDecls : Map NontermIdent (Attributes, Attributes)- allConstructors : Map NontermIdent (Set ConstructorIdent)- allFields : DataTypes- allNonterminals : Set NontermIdent- definedSets : DefinedSets- options : Options- chained attributes:- attrDecls : Map NontermIdent (Attributes, Attributes)- defSets : Map Identifier (Set NontermIdent,Set Identifier)- synthesized attributes:- attrOrderCollect : AttrOrderMap- blocks : Blocks- collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]- collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]- collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent)- collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]- collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]- collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]- collectedNames : Set Identifier- collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]- collectedSetNames : Set Identifier- collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]- collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]- ctxCollect : ContextMap- derivings : Derivings- errors : Seq Error- moduleDecl : Maybe (String,String,String)- paramsCollect : ParamMap- pragmas : Options -> Options- semPragmasCollect : PragmaMap- typeSyns : TypeSyns- useMap : Map NontermIdent (Map Identifier (String,String,String))- wrappers : Set NontermIdent- alternatives:- alternative Cons:- child hd : Elem - child tl : Elems - alternative Nil:--}--- cata-sem_Elems :: Elems ->- T_Elems -sem_Elems list =- (Prelude.foldr sem_Elems_Cons sem_Elems_Nil (Prelude.map sem_Elem list) )--- semantic domain-newtype T_Elems = T_Elems ((Map NontermIdent (Attributes, Attributes)) ->- (Map NontermIdent (Set ConstructorIdent)) ->- DataTypes ->- (Set NontermIdent) ->- (Map NontermIdent (Attributes, Attributes)) ->- (Map Identifier (Set NontermIdent,Set Identifier)) ->- DefinedSets ->- Options ->- ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),(Set Identifier),([ (NontermIdent, ConstructorIdent, RuleInfo)]),(Set Identifier),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),ContextMap,(Map Identifier (Set NontermIdent,Set Identifier)),Derivings,(Seq Error),(Maybe (String,String,String)),ParamMap,(Options -> Options),PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent)))-data Inh_Elems = Inh_Elems {allAttrDecls_Inh_Elems :: !((Map NontermIdent (Attributes, Attributes))),allConstructors_Inh_Elems :: !((Map NontermIdent (Set ConstructorIdent))),allFields_Inh_Elems :: !(DataTypes),allNonterminals_Inh_Elems :: !((Set NontermIdent)),attrDecls_Inh_Elems :: !((Map NontermIdent (Attributes, Attributes))),defSets_Inh_Elems :: !((Map Identifier (Set NontermIdent,Set Identifier))),definedSets_Inh_Elems :: !(DefinedSets),options_Inh_Elems :: !(Options)}-data Syn_Elems = Syn_Elems {attrDecls_Syn_Elems :: !((Map NontermIdent (Attributes, Attributes))),attrOrderCollect_Syn_Elems :: !(AttrOrderMap),blocks_Syn_Elems :: !(Blocks),collectedArounds_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConstructorsMap_Syn_Elems :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elems :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedNames_Syn_Elems :: !((Set Identifier)),collectedRules_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSetNames_Syn_Elems :: !((Set Identifier)),collectedSigs_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),ctxCollect_Syn_Elems :: !(ContextMap),defSets_Syn_Elems :: !((Map Identifier (Set NontermIdent,Set Identifier))),derivings_Syn_Elems :: !(Derivings),errors_Syn_Elems :: !((Seq Error)),moduleDecl_Syn_Elems :: !((Maybe (String,String,String))),paramsCollect_Syn_Elems :: !(ParamMap),pragmas_Syn_Elems :: !((Options -> Options)),semPragmasCollect_Syn_Elems :: !(PragmaMap),typeSyns_Syn_Elems :: !(TypeSyns),useMap_Syn_Elems :: !((Map NontermIdent (Map Identifier (String,String,String)))),wrappers_Syn_Elems :: !((Set NontermIdent))}-wrap_Elems :: T_Elems ->- Inh_Elems ->- Syn_Elems -wrap_Elems (T_Elems sem ) (Inh_Elems _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions ) =- (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions - in (Syn_Elems _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers ))-sem_Elems_Cons :: T_Elem ->- T_Elems ->- T_Elems -sem_Elems_Cons (T_Elem hd_ ) (T_Elems tl_ ) =- (T_Elems (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _hdOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _hdOallFields :: DataTypes- _hdOallNonterminals :: (Set NontermIdent)- _hdOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _hdOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _hdOdefinedSets :: DefinedSets- _hdOoptions :: Options- _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _tlOallFields :: DataTypes- _tlOallNonterminals :: (Set NontermIdent)- _tlOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _tlOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _tlOdefinedSets :: DefinedSets- _tlOoptions :: Options- _hdIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _hdIattrOrderCollect :: AttrOrderMap- _hdIblocks :: Blocks- _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _hdIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _hdIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _hdIcollectedNames :: (Set Identifier)- _hdIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _hdIcollectedSetNames :: (Set Identifier)- _hdIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _hdIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _hdIctxCollect :: ContextMap- _hdIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _hdIderivings :: Derivings- _hdIerrors :: (Seq Error)- _hdImoduleDecl :: (Maybe (String,String,String))- _hdIparamsCollect :: ParamMap- _hdIpragmas :: (Options -> Options)- _hdIsemPragmasCollect :: PragmaMap- _hdItypeSyns :: TypeSyns- _hdIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _hdIwrappers :: (Set NontermIdent)- _tlIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _tlIattrOrderCollect :: AttrOrderMap- _tlIblocks :: Blocks- _tlIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _tlIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _tlIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _tlIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _tlIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _tlIcollectedNames :: (Set Identifier)- _tlIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _tlIcollectedSetNames :: (Set Identifier)- _tlIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _tlIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _tlIctxCollect :: ContextMap- _tlIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _tlIderivings :: Derivings- _tlIerrors :: (Seq Error)- _tlImoduleDecl :: (Maybe (String,String,String))- _tlIparamsCollect :: ParamMap- _tlIpragmas :: (Options -> Options)- _tlIsemPragmasCollect :: PragmaMap- _tlItypeSyns :: TypeSyns- _tlIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _tlIwrappers :: (Set NontermIdent)- -- use rule "Transform.ag"(line 809, column 55)- _lhsOattrOrderCollect =- ({-# LINE 809 "Transform.ag" #-}- _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect- {-# LINE 4141 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- _hdIblocks `mapUnionWithPlusPlus` _tlIblocks- {-# LINE 4147 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- _hdIcollectedArounds ++ _tlIcollectedArounds- {-# LINE 4153 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- _hdIcollectedAugments ++ _tlIcollectedAugments- {-# LINE 4159 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- _hdIcollectedConstructorsMap `mapUnionWithSetUnion` _tlIcollectedConstructorsMap- {-# LINE 4165 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- _hdIcollectedFields ++ _tlIcollectedFields- {-# LINE 4171 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- _hdIcollectedInsts ++ _tlIcollectedInsts- {-# LINE 4177 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- _hdIcollectedMerges ++ _tlIcollectedMerges- {-# LINE 4183 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _hdIcollectedNames `Set.union` _tlIcollectedNames- {-# LINE 4189 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- _hdIcollectedRules ++ _tlIcollectedRules- {-# LINE 4195 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- _hdIcollectedSetNames `Set.union` _tlIcollectedSetNames- {-# LINE 4201 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- _hdIcollectedSigs ++ _tlIcollectedSigs- {-# LINE 4207 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- _hdIcollectedUniques ++ _tlIcollectedUniques- {-# LINE 4213 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 864, column 34)- _lhsOctxCollect =- ({-# LINE 864 "Transform.ag" #-}- _hdIctxCollect `mergeCtx` _tlIctxCollect- {-# LINE 4219 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 889, column 33)- _lhsOderivings =- ({-# LINE 889 "Transform.ag" #-}- _hdIderivings `mergeDerivings` _tlIderivings- {-# LINE 4225 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 4231 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1085, column 37)- _lhsOmoduleDecl =- ({-# LINE 1085 "Transform.ag" #-}- _hdImoduleDecl `mplus` _tlImoduleDecl- {-# LINE 4237 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 841, column 37)- _lhsOparamsCollect =- ({-# LINE 841 "Transform.ag" #-}- _hdIparamsCollect `mergeParams` _tlIparamsCollect- {-# LINE 4243 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 735, column 34)- _lhsOpragmas =- ({-# LINE 735 "Transform.ag" #-}- _hdIpragmas . _tlIpragmas- {-# LINE 4249 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 781, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 781 "Transform.ag" #-}- _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect- {-# LINE 4255 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- _hdItypeSyns ++ _tlItypeSyns- {-# LINE 4261 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- _hdIuseMap `merge` _tlIuseMap- {-# LINE 4267 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 726, column 32)- _lhsOwrappers =- ({-# LINE 726 "Transform.ag" #-}- _hdIwrappers `Set.union` _tlIwrappers- {-# LINE 4273 "Transform.hs" #-}- )- -- copy rule (up)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _tlIattrDecls- {-# LINE 4279 "Transform.hs" #-}- )- -- copy rule (up)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _tlIdefSets- {-# LINE 4285 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallAttrDecls =- ({-# LINE 810 "Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 4291 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallConstructors =- ({-# LINE 96 "Transform.ag" #-}- _lhsIallConstructors- {-# LINE 4297 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4303 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4309 "Transform.hs" #-}- )- -- copy rule (down)- _hdOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 4315 "Transform.hs" #-}- )- -- copy rule (down)- _hdOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 4321 "Transform.hs" #-}- )- -- copy rule (down)- _hdOdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4327 "Transform.hs" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 4333 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallAttrDecls =- ({-# LINE 810 "Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 4339 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallConstructors =- ({-# LINE 96 "Transform.ag" #-}- _lhsIallConstructors- {-# LINE 4345 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4351 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4357 "Transform.hs" #-}- )- -- copy rule (chain)- _tlOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _hdIattrDecls- {-# LINE 4363 "Transform.hs" #-}- )- -- copy rule (chain)- _tlOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _hdIdefSets- {-# LINE 4369 "Transform.hs" #-}- )- -- copy rule (down)- _tlOdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4375 "Transform.hs" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 4381 "Transform.hs" #-}- )- ( _hdIattrDecls,_hdIattrOrderCollect,_hdIblocks,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedConstructorsMap,_hdIcollectedFields,_hdIcollectedInsts,_hdIcollectedMerges,_hdIcollectedNames,_hdIcollectedRules,_hdIcollectedSetNames,_hdIcollectedSigs,_hdIcollectedUniques,_hdIctxCollect,_hdIdefSets,_hdIderivings,_hdIerrors,_hdImoduleDecl,_hdIparamsCollect,_hdIpragmas,_hdIsemPragmasCollect,_hdItypeSyns,_hdIuseMap,_hdIwrappers) =- hd_ _hdOallAttrDecls _hdOallConstructors _hdOallFields _hdOallNonterminals _hdOattrDecls _hdOdefSets _hdOdefinedSets _hdOoptions - ( _tlIattrDecls,_tlIattrOrderCollect,_tlIblocks,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedConstructorsMap,_tlIcollectedFields,_tlIcollectedInsts,_tlIcollectedMerges,_tlIcollectedNames,_tlIcollectedRules,_tlIcollectedSetNames,_tlIcollectedSigs,_tlIcollectedUniques,_tlIctxCollect,_tlIdefSets,_tlIderivings,_tlIerrors,_tlImoduleDecl,_tlIparamsCollect,_tlIpragmas,_tlIsemPragmasCollect,_tlItypeSyns,_tlIuseMap,_tlIwrappers) =- tl_ _tlOallAttrDecls _tlOallConstructors _tlOallFields _tlOallNonterminals _tlOattrDecls _tlOdefSets _tlOdefinedSets _tlOoptions - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elems_Nil :: T_Elems -sem_Elems_Nil =- (T_Elems (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- use rule "Transform.ag"(line 809, column 55)- _lhsOattrOrderCollect =- ({-# LINE 809 "Transform.ag" #-}- Map.empty- {-# LINE 4427 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 45, column 19)- _lhsOblocks =- ({-# LINE 45 "Transform.ag" #-}- Map.empty- {-# LINE 4433 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 4439 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 4445 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 94, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 94 "Transform.ag" #-}- Map.empty- {-# LINE 4451 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 125, column 28)- _lhsOcollectedFields =- ({-# LINE 125 "Transform.ag" #-}- []- {-# LINE 4457 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 4463 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 4469 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- Set.empty- {-# LINE 4475 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 4481 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedSetNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 4487 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 4493 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 4499 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 864, column 34)- _lhsOctxCollect =- ({-# LINE 864 "Transform.ag" #-}- Map.empty- {-# LINE 4505 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 889, column 33)- _lhsOderivings =- ({-# LINE 889 "Transform.ag" #-}- Map.empty- {-# LINE 4511 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 4517 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1085, column 37)- _lhsOmoduleDecl =- ({-# LINE 1085 "Transform.ag" #-}- mzero- {-# LINE 4523 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 841, column 37)- _lhsOparamsCollect =- ({-# LINE 841 "Transform.ag" #-}- Map.empty- {-# LINE 4529 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 735, column 34)- _lhsOpragmas =- ({-# LINE 735 "Transform.ag" #-}- id- {-# LINE 4535 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 781, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 781 "Transform.ag" #-}- Map.empty- {-# LINE 4541 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 595, column 32)- _lhsOtypeSyns =- ({-# LINE 595 "Transform.ag" #-}- []- {-# LINE 4547 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 137, column 15)- _lhsOuseMap =- ({-# LINE 137 "Transform.ag" #-}- Map.empty- {-# LINE 4553 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 726, column 32)- _lhsOwrappers =- ({-# LINE 726 "Transform.ag" #-}- Set.empty- {-# LINE 4559 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 136 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 4565 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 104 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 4571 "Transform.hs" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )--- NontSet ------------------------------------------------------{-- visit 0:- inherited attributes:- allFields : DataTypes- allNonterminals : Set NontermIdent- definedSets : DefinedSets- synthesized attributes:- collectedNames : Set Identifier- errors : Seq Error- nontSet : Set NontermIdent- alternatives:- alternative All:- alternative Difference:- child set1 : NontSet - child set2 : NontSet - alternative Intersect:- child set1 : NontSet - child set2 : NontSet - alternative NamedSet:- child name : {NontermIdent}- visit 0:- local _tup4 : _- local nontSet : _- local errors : _- alternative Path:- child from : {NontermIdent}- child to : {NontermIdent}- alternative Union:- child set1 : NontSet - child set2 : NontSet --}--- cata-sem_NontSet :: NontSet ->- T_NontSet -sem_NontSet (All ) =- (sem_NontSet_All )-sem_NontSet (Difference _set1 _set2 ) =- (sem_NontSet_Difference (sem_NontSet _set1 ) (sem_NontSet _set2 ) )-sem_NontSet (Intersect _set1 _set2 ) =- (sem_NontSet_Intersect (sem_NontSet _set1 ) (sem_NontSet _set2 ) )-sem_NontSet (NamedSet _name ) =- (sem_NontSet_NamedSet _name )-sem_NontSet (Path _from _to ) =- (sem_NontSet_Path _from _to )-sem_NontSet (Union _set1 _set2 ) =- (sem_NontSet_Union (sem_NontSet _set1 ) (sem_NontSet _set2 ) )--- semantic domain-newtype T_NontSet = T_NontSet (DataTypes ->- (Set NontermIdent) ->- DefinedSets ->- ( (Set Identifier),(Seq Error),(Set NontermIdent)))-data Inh_NontSet = Inh_NontSet {allFields_Inh_NontSet :: !(DataTypes),allNonterminals_Inh_NontSet :: !((Set NontermIdent)),definedSets_Inh_NontSet :: !(DefinedSets)}-data Syn_NontSet = Syn_NontSet {collectedNames_Syn_NontSet :: !((Set Identifier)),errors_Syn_NontSet :: !((Seq Error)),nontSet_Syn_NontSet :: !((Set NontermIdent))}-wrap_NontSet :: T_NontSet ->- Inh_NontSet ->- Syn_NontSet -wrap_NontSet (T_NontSet sem ) (Inh_NontSet _lhsIallFields _lhsIallNonterminals _lhsIdefinedSets ) =- (let ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet) = sem _lhsIallFields _lhsIallNonterminals _lhsIdefinedSets - in (Syn_NontSet _lhsOcollectedNames _lhsOerrors _lhsOnontSet ))-sem_NontSet_All :: T_NontSet -sem_NontSet_All =- (T_NontSet (\ _lhsIallFields- _lhsIallNonterminals- _lhsIdefinedSets ->- (let _lhsOnontSet :: (Set NontermIdent)- _lhsOcollectedNames :: (Set Identifier)- _lhsOerrors :: (Seq Error)- -- "Transform.ag"(line 672, column 16)- _lhsOnontSet =- ({-# LINE 672 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4646 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- Set.empty- {-# LINE 4652 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 4658 "Transform.hs" #-}- )- in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )-sem_NontSet_Difference :: T_NontSet ->- T_NontSet ->- T_NontSet -sem_NontSet_Difference (T_NontSet set1_ ) (T_NontSet set2_ ) =- (T_NontSet (\ _lhsIallFields- _lhsIallNonterminals- _lhsIdefinedSets ->- (let _lhsOnontSet :: (Set NontermIdent)- _lhsOcollectedNames :: (Set Identifier)- _lhsOerrors :: (Seq Error)- _set1OallFields :: DataTypes- _set1OallNonterminals :: (Set NontermIdent)- _set1OdefinedSets :: DefinedSets- _set2OallFields :: DataTypes- _set2OallNonterminals :: (Set NontermIdent)- _set2OdefinedSets :: DefinedSets- _set1IcollectedNames :: (Set Identifier)- _set1Ierrors :: (Seq Error)- _set1InontSet :: (Set NontermIdent)- _set2IcollectedNames :: (Set Identifier)- _set2Ierrors :: (Seq Error)- _set2InontSet :: (Set NontermIdent)- -- "Transform.ag"(line 678, column 16)- _lhsOnontSet =- ({-# LINE 678 "Transform.ag" #-}- Set.difference _set1InontSet _set2InontSet- {-# LINE 4687 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _set1IcollectedNames `Set.union` _set2IcollectedNames- {-# LINE 4693 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 4699 "Transform.hs" #-}- )- -- copy rule (down)- _set1OallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4705 "Transform.hs" #-}- )- -- copy rule (down)- _set1OallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4711 "Transform.hs" #-}- )- -- copy rule (down)- _set1OdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4717 "Transform.hs" #-}- )- -- copy rule (down)- _set2OallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4723 "Transform.hs" #-}- )- -- copy rule (down)- _set2OallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4729 "Transform.hs" #-}- )- -- copy rule (down)- _set2OdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4735 "Transform.hs" #-}- )- ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =- set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets - ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =- set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets - in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )-sem_NontSet_Intersect :: T_NontSet ->- T_NontSet ->- T_NontSet -sem_NontSet_Intersect (T_NontSet set1_ ) (T_NontSet set2_ ) =- (T_NontSet (\ _lhsIallFields- _lhsIallNonterminals- _lhsIdefinedSets ->- (let _lhsOnontSet :: (Set NontermIdent)- _lhsOcollectedNames :: (Set Identifier)- _lhsOerrors :: (Seq Error)- _set1OallFields :: DataTypes- _set1OallNonterminals :: (Set NontermIdent)- _set1OdefinedSets :: DefinedSets- _set2OallFields :: DataTypes- _set2OallNonterminals :: (Set NontermIdent)- _set2OdefinedSets :: DefinedSets- _set1IcollectedNames :: (Set Identifier)- _set1Ierrors :: (Seq Error)- _set1InontSet :: (Set NontermIdent)- _set2IcollectedNames :: (Set Identifier)- _set2Ierrors :: (Seq Error)- _set2InontSet :: (Set NontermIdent)- -- "Transform.ag"(line 677, column 16)- _lhsOnontSet =- ({-# LINE 677 "Transform.ag" #-}- Set.intersection _set1InontSet _set2InontSet- {-# LINE 4768 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _set1IcollectedNames `Set.union` _set2IcollectedNames- {-# LINE 4774 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 4780 "Transform.hs" #-}- )- -- copy rule (down)- _set1OallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4786 "Transform.hs" #-}- )- -- copy rule (down)- _set1OallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4792 "Transform.hs" #-}- )- -- copy rule (down)- _set1OdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4798 "Transform.hs" #-}- )- -- copy rule (down)- _set2OallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4804 "Transform.hs" #-}- )- -- copy rule (down)- _set2OallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4810 "Transform.hs" #-}- )- -- copy rule (down)- _set2OdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4816 "Transform.hs" #-}- )- ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =- set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets - ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =- set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets - in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )-sem_NontSet_NamedSet :: NontermIdent ->- T_NontSet -sem_NontSet_NamedSet name_ =- (T_NontSet (\ _lhsIallFields- _lhsIallNonterminals- _lhsIdefinedSets ->- (let _lhsOcollectedNames :: (Set Identifier)- _lhsOerrors :: (Seq Error)- _lhsOnontSet :: (Set NontermIdent)- -- "Transform.ag"(line 557, column 14)- _lhsOcollectedNames =- ({-# LINE 557 "Transform.ag" #-}- Set.singleton name_- {-# LINE 4836 "Transform.hs" #-}- )- -- "Transform.ag"(line 673, column 20)- __tup4 =- ({-# LINE 673 "Transform.ag" #-}- case Map.lookup name_ _lhsIdefinedSets of- Nothing -> (Set.empty, Seq.singleton (UndefNont name_))- Just set -> (set, Seq.empty)- {-# LINE 4844 "Transform.hs" #-}- )- -- "Transform.ag"(line 673, column 20)- (_nontSet,_) =- ({-# LINE 673 "Transform.ag" #-}- __tup4- {-# LINE 4850 "Transform.hs" #-}- )- -- "Transform.ag"(line 673, column 20)- (_,_errors) =- ({-# LINE 673 "Transform.ag" #-}- __tup4- {-# LINE 4856 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _errors- {-# LINE 4862 "Transform.hs" #-}- )- -- copy rule (from local)- _lhsOnontSet =- ({-# LINE 112 "Transform.ag" #-}- _nontSet- {-# LINE 4868 "Transform.hs" #-}- )- in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )-sem_NontSet_Path :: NontermIdent ->- NontermIdent ->- T_NontSet -sem_NontSet_Path from_ to_ =- (T_NontSet (\ _lhsIallFields- _lhsIallNonterminals- _lhsIdefinedSets ->- (let _lhsOnontSet :: (Set NontermIdent)- _lhsOerrors :: (Seq Error)- _lhsOcollectedNames :: (Set Identifier)- -- "Transform.ag"(line 679, column 16)- _lhsOnontSet =- ({-# LINE 679 "Transform.ag" #-}- let table = flattenDatas _lhsIallFields- in path table from_ to_- {-# LINE 4886 "Transform.hs" #-}- )- -- "Transform.ag"(line 681, column 16)- _lhsOerrors =- ({-# LINE 681 "Transform.ag" #-}- let check name | Set.member name _lhsIallNonterminals- = Seq.empty- | otherwise = Seq.singleton (UndefNont name)- in check from_ >< check to_- {-# LINE 4895 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- Set.empty- {-# LINE 4901 "Transform.hs" #-}- )- in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )-sem_NontSet_Union :: T_NontSet ->- T_NontSet ->- T_NontSet -sem_NontSet_Union (T_NontSet set1_ ) (T_NontSet set2_ ) =- (T_NontSet (\ _lhsIallFields- _lhsIallNonterminals- _lhsIdefinedSets ->- (let _lhsOnontSet :: (Set NontermIdent)- _lhsOcollectedNames :: (Set Identifier)- _lhsOerrors :: (Seq Error)- _set1OallFields :: DataTypes- _set1OallNonterminals :: (Set NontermIdent)- _set1OdefinedSets :: DefinedSets- _set2OallFields :: DataTypes- _set2OallNonterminals :: (Set NontermIdent)- _set2OdefinedSets :: DefinedSets- _set1IcollectedNames :: (Set Identifier)- _set1Ierrors :: (Seq Error)- _set1InontSet :: (Set NontermIdent)- _set2IcollectedNames :: (Set Identifier)- _set2Ierrors :: (Seq Error)- _set2InontSet :: (Set NontermIdent)- -- "Transform.ag"(line 676, column 16)- _lhsOnontSet =- ({-# LINE 676 "Transform.ag" #-}- Set.union _set1InontSet _set2InontSet- {-# LINE 4930 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 86, column 50)- _lhsOcollectedNames =- ({-# LINE 86 "Transform.ag" #-}- _set1IcollectedNames `Set.union` _set2IcollectedNames- {-# LINE 4936 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 4942 "Transform.hs" #-}- )- -- copy rule (down)- _set1OallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4948 "Transform.hs" #-}- )- -- copy rule (down)- _set1OallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4954 "Transform.hs" #-}- )- -- copy rule (down)- _set1OdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4960 "Transform.hs" #-}- )- -- copy rule (down)- _set2OallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4966 "Transform.hs" #-}- )- -- copy rule (down)- _set2OallNonterminals =- ({-# LINE 88 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4972 "Transform.hs" #-}- )- -- copy rule (down)- _set2OdefinedSets =- ({-# LINE 107 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4978 "Transform.hs" #-}- )- ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =- set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets - ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =- set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets - in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )--- Pattern ------------------------------------------------------{-- visit 0:- synthesized attributes:- copy : SELF - definedAttrs : [AttrName]- definedInsts : [Identifier]- patunder : [AttrName]->Pattern- stpos : Pos- alternatives:- alternative Alias:- child field : {Identifier}- child attr : {Identifier}- child pat : Pattern - child parts : Patterns - visit 0:- local copy : _- alternative Constr:- child name : {ConstructorIdent}- child pats : Patterns - visit 0:- local copy : _- alternative Irrefutable:- child pat : Pattern - visit 0:- local copy : _- alternative Product:- child pos : {Pos}- child pats : Patterns - visit 0:- local copy : _- alternative Underscore:- child pos : {Pos}- visit 0:- local copy : _--}--- cata-sem_Pattern :: Pattern ->- T_Pattern -sem_Pattern (Alias _field _attr _pat _parts ) =- (sem_Pattern_Alias _field _attr (sem_Pattern _pat ) (sem_Patterns _parts ) )-sem_Pattern (Constr _name _pats ) =- (sem_Pattern_Constr _name (sem_Patterns _pats ) )-sem_Pattern (Irrefutable _pat ) =- (sem_Pattern_Irrefutable (sem_Pattern _pat ) )-sem_Pattern (Product _pos _pats ) =- (sem_Pattern_Product _pos (sem_Patterns _pats ) )-sem_Pattern (Underscore _pos ) =- (sem_Pattern_Underscore _pos )--- semantic domain-newtype T_Pattern = T_Pattern (( Pattern ,([AttrName]),([Identifier]),([AttrName]->Pattern),Pos))-data Inh_Pattern = Inh_Pattern {}-data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern ),definedAttrs_Syn_Pattern :: !(([AttrName])),definedInsts_Syn_Pattern :: !(([Identifier])),patunder_Syn_Pattern :: !(([AttrName]->Pattern)),stpos_Syn_Pattern :: !(Pos)}-wrap_Pattern :: T_Pattern ->- Inh_Pattern ->- Syn_Pattern -wrap_Pattern (T_Pattern sem ) (Inh_Pattern ) =- (let ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos) = sem - in (Syn_Pattern _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder _lhsOstpos ))-sem_Pattern_Alias :: Identifier ->- Identifier ->- T_Pattern ->- T_Patterns ->- T_Pattern -sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) =- (T_Pattern (let _lhsOdefinedAttrs :: ([AttrName])- _lhsOpatunder :: ([AttrName]->Pattern)- _lhsOdefinedInsts :: ([Identifier])- _lhsOstpos :: Pos- _lhsOcopy :: Pattern - _patIcopy :: Pattern - _patIdefinedAttrs :: ([AttrName])- _patIdefinedInsts :: ([Identifier])- _patIpatunder :: ([AttrName]->Pattern)- _patIstpos :: Pos- _partsIcopy :: Patterns - _partsIdefinedAttrs :: ([AttrName])- _partsIdefinedInsts :: ([Identifier])- _partsIpatunder :: ([AttrName]->Patterns)- -- "Transform.ag"(line 1061, column 11)- _lhsOdefinedAttrs =- ({-# LINE 1061 "Transform.ag" #-}- (field_, attr_) : _patIdefinedAttrs- {-# LINE 5068 "Transform.hs" #-}- )- -- "Transform.ag"(line 1062, column 11)- _lhsOpatunder =- ({-# LINE 1062 "Transform.ag" #-}- \us -> if ((field_,attr_) `elem` us) then Underscore noPos else _copy- {-# LINE 5074 "Transform.hs" #-}- )- -- "Transform.ag"(line 1063, column 11)- _lhsOdefinedInsts =- ({-# LINE 1063 "Transform.ag" #-}- (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts- {-# LINE 5080 "Transform.hs" #-}- )- -- "Transform.ag"(line 1078, column 16)- _lhsOstpos =- ({-# LINE 1078 "Transform.ag" #-}- getPos field_- {-# LINE 5086 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Alias field_ attr_ _patIcopy _partsIcopy- {-# LINE 5092 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5098 "Transform.hs" #-}- )- ( _patIcopy,_patIdefinedAttrs,_patIdefinedInsts,_patIpatunder,_patIstpos) =- pat_ - ( _partsIcopy,_partsIdefinedAttrs,_partsIdefinedInsts,_partsIpatunder) =- parts_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )-sem_Pattern_Constr :: ConstructorIdent ->- T_Patterns ->- T_Pattern -sem_Pattern_Constr name_ (T_Patterns pats_ ) =- (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)- _lhsOstpos :: Pos- _lhsOdefinedAttrs :: ([AttrName])- _lhsOdefinedInsts :: ([Identifier])- _lhsOcopy :: Pattern - _patsIcopy :: Patterns - _patsIdefinedAttrs :: ([AttrName])- _patsIdefinedInsts :: ([Identifier])- _patsIpatunder :: ([AttrName]->Patterns)- -- "Transform.ag"(line 1065, column 12)- _lhsOpatunder =- ({-# LINE 1065 "Transform.ag" #-}- \us -> Constr name_ (_patsIpatunder us)- {-# LINE 5122 "Transform.hs" #-}- )- -- "Transform.ag"(line 1076, column 16)- _lhsOstpos =- ({-# LINE 1076 "Transform.ag" #-}- getPos name_- {-# LINE 5128 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1056, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1056 "Transform.ag" #-}- _patsIdefinedAttrs- {-# LINE 5134 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1055, column 55)- _lhsOdefinedInsts =- ({-# LINE 1055 "Transform.ag" #-}- _patsIdefinedInsts- {-# LINE 5140 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Constr name_ _patsIcopy- {-# LINE 5146 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5152 "Transform.hs" #-}- )- ( _patsIcopy,_patsIdefinedAttrs,_patsIdefinedInsts,_patsIpatunder) =- pats_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )-sem_Pattern_Irrefutable :: T_Pattern ->- T_Pattern -sem_Pattern_Irrefutable (T_Pattern pat_ ) =- (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)- _lhsOdefinedAttrs :: ([AttrName])- _lhsOdefinedInsts :: ([Identifier])- _lhsOcopy :: Pattern - _lhsOstpos :: Pos- _patIcopy :: Pattern - _patIdefinedAttrs :: ([AttrName])- _patIdefinedInsts :: ([Identifier])- _patIpatunder :: ([AttrName]->Pattern)- _patIstpos :: Pos- -- "Transform.ag"(line 1067, column 17)- _lhsOpatunder =- ({-# LINE 1067 "Transform.ag" #-}- \us -> Irrefutable (_patIpatunder us)- {-# LINE 5174 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1056, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1056 "Transform.ag" #-}- _patIdefinedAttrs- {-# LINE 5180 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1055, column 55)- _lhsOdefinedInsts =- ({-# LINE 1055 "Transform.ag" #-}- _patIdefinedInsts- {-# LINE 5186 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Irrefutable _patIcopy- {-# LINE 5192 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5198 "Transform.hs" #-}- )- -- copy rule (up)- _lhsOstpos =- ({-# LINE 1073 "Transform.ag" #-}- _patIstpos- {-# LINE 5204 "Transform.hs" #-}- )- ( _patIcopy,_patIdefinedAttrs,_patIdefinedInsts,_patIpatunder,_patIstpos) =- pat_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )-sem_Pattern_Product :: Pos ->- T_Patterns ->- T_Pattern -sem_Pattern_Product pos_ (T_Patterns pats_ ) =- (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)- _lhsOstpos :: Pos- _lhsOdefinedAttrs :: ([AttrName])- _lhsOdefinedInsts :: ([Identifier])- _lhsOcopy :: Pattern - _patsIcopy :: Patterns - _patsIdefinedAttrs :: ([AttrName])- _patsIdefinedInsts :: ([Identifier])- _patsIpatunder :: ([AttrName]->Patterns)- -- "Transform.ag"(line 1066, column 13)- _lhsOpatunder =- ({-# LINE 1066 "Transform.ag" #-}- \us -> Product pos_ (_patsIpatunder us)- {-# LINE 5226 "Transform.hs" #-}- )- -- "Transform.ag"(line 1077, column 16)- _lhsOstpos =- ({-# LINE 1077 "Transform.ag" #-}- pos_- {-# LINE 5232 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1056, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1056 "Transform.ag" #-}- _patsIdefinedAttrs- {-# LINE 5238 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1055, column 55)- _lhsOdefinedInsts =- ({-# LINE 1055 "Transform.ag" #-}- _patsIdefinedInsts- {-# LINE 5244 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Product pos_ _patsIcopy- {-# LINE 5250 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5256 "Transform.hs" #-}- )- ( _patsIcopy,_patsIdefinedAttrs,_patsIdefinedInsts,_patsIpatunder) =- pats_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )-sem_Pattern_Underscore :: Pos ->- T_Pattern -sem_Pattern_Underscore pos_ =- (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)- _lhsOstpos :: Pos- _lhsOdefinedAttrs :: ([AttrName])- _lhsOdefinedInsts :: ([Identifier])- _lhsOcopy :: Pattern - -- "Transform.ag"(line 1064, column 16)- _lhsOpatunder =- ({-# LINE 1064 "Transform.ag" #-}- \us -> _copy- {-# LINE 5273 "Transform.hs" #-}- )- -- "Transform.ag"(line 1079, column 16)- _lhsOstpos =- ({-# LINE 1079 "Transform.ag" #-}- pos_- {-# LINE 5279 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1056, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1056 "Transform.ag" #-}- []- {-# LINE 5285 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1055, column 55)- _lhsOdefinedInsts =- ({-# LINE 1055 "Transform.ag" #-}- []- {-# LINE 5291 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Underscore pos_- {-# LINE 5297 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5303 "Transform.hs" #-}- )- in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )--- Patterns -----------------------------------------------------{-- visit 0:- synthesized attributes:- copy : SELF - definedAttrs : [AttrName]- definedInsts : [Identifier]- patunder : [AttrName]->Patterns- alternatives:- alternative Cons:- child hd : Pattern - child tl : Patterns - visit 0:- local copy : _- alternative Nil:- visit 0:- local copy : _--}--- cata-sem_Patterns :: Patterns ->- T_Patterns -sem_Patterns list =- (Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list) )--- semantic domain-newtype T_Patterns = T_Patterns (( Patterns ,([AttrName]),([Identifier]),([AttrName]->Patterns)))-data Inh_Patterns = Inh_Patterns {}-data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns ),definedAttrs_Syn_Patterns :: !(([AttrName])),definedInsts_Syn_Patterns :: !(([Identifier])),patunder_Syn_Patterns :: !(([AttrName]->Patterns))}-wrap_Patterns :: T_Patterns ->- Inh_Patterns ->- Syn_Patterns -wrap_Patterns (T_Patterns sem ) (Inh_Patterns ) =- (let ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder) = sem - in (Syn_Patterns _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder ))-sem_Patterns_Cons :: T_Pattern ->- T_Patterns ->- T_Patterns -sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) =- (T_Patterns (let _lhsOpatunder :: ([AttrName]->Patterns)- _lhsOdefinedAttrs :: ([AttrName])- _lhsOdefinedInsts :: ([Identifier])- _lhsOcopy :: Patterns - _hdIcopy :: Pattern - _hdIdefinedAttrs :: ([AttrName])- _hdIdefinedInsts :: ([Identifier])- _hdIpatunder :: ([AttrName]->Pattern)- _hdIstpos :: Pos- _tlIcopy :: Patterns - _tlIdefinedAttrs :: ([AttrName])- _tlIdefinedInsts :: ([Identifier])- _tlIpatunder :: ([AttrName]->Patterns)- -- "Transform.ag"(line 1071, column 10)- _lhsOpatunder =- ({-# LINE 1071 "Transform.ag" #-}- \us -> (_hdIpatunder us) : (_tlIpatunder us)- {-# LINE 5360 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1056, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1056 "Transform.ag" #-}- _hdIdefinedAttrs ++ _tlIdefinedAttrs- {-# LINE 5366 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1055, column 55)- _lhsOdefinedInsts =- ({-# LINE 1055 "Transform.ag" #-}- _hdIdefinedInsts ++ _tlIdefinedInsts- {-# LINE 5372 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- (:) _hdIcopy _tlIcopy- {-# LINE 5378 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5384 "Transform.hs" #-}- )- ( _hdIcopy,_hdIdefinedAttrs,_hdIdefinedInsts,_hdIpatunder,_hdIstpos) =- hd_ - ( _tlIcopy,_tlIdefinedAttrs,_tlIdefinedInsts,_tlIpatunder) =- tl_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)) )-sem_Patterns_Nil :: T_Patterns -sem_Patterns_Nil =- (T_Patterns (let _lhsOpatunder :: ([AttrName]->Patterns)- _lhsOdefinedAttrs :: ([AttrName])- _lhsOdefinedInsts :: ([Identifier])- _lhsOcopy :: Patterns - -- "Transform.ag"(line 1070, column 9)- _lhsOpatunder =- ({-# LINE 1070 "Transform.ag" #-}- \us -> []- {-# LINE 5401 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1056, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1056 "Transform.ag" #-}- []- {-# LINE 5407 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1055, column 55)- _lhsOdefinedInsts =- ({-# LINE 1055 "Transform.ag" #-}- []- {-# LINE 5413 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- []- {-# LINE 5419 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5425 "Transform.hs" #-}- )- in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)) )--- SemAlt -------------------------------------------------------{-- visit 0:- inherited attributes:- allAttrDecls : Map NontermIdent (Attributes, Attributes)- allFields : DataTypes- nts : Set NontermIdent- options : Options- synthesized attributes:- attrOrderCollect : AttrOrderMap- collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]- collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]- collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]- collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]- collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]- collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]- collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]- errors : Seq Error- semPragmasCollect : PragmaMap- alternatives:- alternative SemAlt:- child pos : {Pos}- child constructorSet : ConstructorSet - child rules : SemDefs - visit 0:- local pragmaNames : _- local attrOrders : _- local coninfo : _--}--- cata-sem_SemAlt :: SemAlt ->- T_SemAlt -sem_SemAlt (SemAlt _pos _constructorSet _rules ) =- (sem_SemAlt_SemAlt _pos (sem_ConstructorSet _constructorSet ) (sem_SemDefs _rules ) )--- semantic domain-newtype T_SemAlt = T_SemAlt ((Map NontermIdent (Attributes, Attributes)) ->- DataTypes ->- (Set NontermIdent) ->- Options ->- ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),([ (NontermIdent, ConstructorIdent, RuleInfo)]),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),(Seq Error),PragmaMap))-data Inh_SemAlt = Inh_SemAlt {allAttrDecls_Inh_SemAlt :: !((Map NontermIdent (Attributes, Attributes))),allFields_Inh_SemAlt :: !(DataTypes),nts_Inh_SemAlt :: !((Set NontermIdent)),options_Inh_SemAlt :: !(Options)}-data Syn_SemAlt = Syn_SemAlt {attrOrderCollect_Syn_SemAlt :: !(AttrOrderMap),collectedArounds_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedInsts_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedRules_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSigs_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),errors_Syn_SemAlt :: !((Seq Error)),semPragmasCollect_Syn_SemAlt :: !(PragmaMap)}-wrap_SemAlt :: T_SemAlt ->- Inh_SemAlt ->- Syn_SemAlt -wrap_SemAlt (T_SemAlt sem ) (Inh_SemAlt _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions ) =- (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions - in (Syn_SemAlt _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedRules _lhsOcollectedSigs _lhsOcollectedUniques _lhsOerrors _lhsOsemPragmasCollect ))-sem_SemAlt_SemAlt :: Pos ->- T_ConstructorSet ->- T_SemDefs ->- T_SemAlt -sem_SemAlt_SemAlt pos_ (T_ConstructorSet constructorSet_ ) (T_SemDefs rules_ ) =- (T_SemAlt (\ _lhsIallAttrDecls- _lhsIallFields- _lhsInts- _lhsIoptions ->- (let _lhsOsemPragmasCollect :: PragmaMap- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOerrors :: (Seq Error)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _rulesOoptions :: Options- _constructorSetIcollectedConstructorNames :: (Set ConstructorIdent)- _constructorSetIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _constructorSetIerrors :: (Seq Error)- _rulesIaroundInfos :: ([AroundInfo])- _rulesIaugmentInfos :: ([AugmentInfo])- _rulesIdefinedInsts :: ([Identifier])- _rulesIerrors :: (Seq Error)- _rulesImergeInfos :: ([MergeInfo])- _rulesIorderDepsCollect :: (Set Dependency)- _rulesIpragmaNamesCollect :: ([Identifier])- _rulesIruleInfos :: ([RuleInfo])- _rulesIsigInfos :: ([SigInfo])- _rulesIuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 785, column 7)- _pragmaNames =- ({-# LINE 785 "Transform.ag" #-}- Set.fromList _rulesIpragmaNamesCollect- {-# LINE 5513 "Transform.hs" #-}- )- -- "Transform.ag"(line 786, column 7)- _lhsOsemPragmasCollect =- ({-# LINE 786 "Transform.ag" #-}- foldr pragmaMapUnion Map.empty [ pragmaMapSingle nt con _pragmaNames- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5522 "Transform.hs" #-}- )- -- "Transform.ag"(line 814, column 7)- _attrOrders =- ({-# LINE 814 "Transform.ag" #-}- [ orderMapSingle nt con _rulesIorderDepsCollect- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5531 "Transform.hs" #-}- )- -- "Transform.ag"(line 820, column 7)- _lhsOattrOrderCollect =- ({-# LINE 820 "Transform.ag" #-}- foldr orderMapUnion Map.empty _attrOrders- {-# LINE 5537 "Transform.hs" #-}- )- -- "Transform.ag"(line 980, column 12)- _coninfo =- ({-# LINE 980 "Transform.ag" #-}- [ (nt, conset, conkeys)- | nt <- Set.toList _lhsInts- , let conmap = Map.findWithDefault Map.empty nt _lhsIallFields- , let conkeys = Set.fromList (Map.keys conmap)- , let conset = _constructorSetIconstructors conkeys- ]- {-# LINE 5548 "Transform.hs" #-}- )- -- "Transform.ag"(line 987, column 12)- _lhsOerrors =- ({-# LINE 987 "Transform.ag" #-}- Seq.fromList- [ UndefAlt nt con- | (nt, conset, conkeys) <- _coninfo- , con <- Set.toList (Set.difference conset conkeys)- ]- Seq.>< _rulesIerrors- {-# LINE 5559 "Transform.hs" #-}- )- -- "Transform.ag"(line 993, column 12)- _lhsOcollectedRules =- ({-# LINE 993 "Transform.ag" #-}- [ (nt,con,r)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- , r <- _rulesIruleInfos- ]- {-# LINE 5569 "Transform.hs" #-}- )- -- "Transform.ag"(line 999, column 12)- _lhsOcollectedSigs =- ({-# LINE 999 "Transform.ag" #-}- [ (nt,con,ts)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- , ts <- _rulesIsigInfos- ]- {-# LINE 5579 "Transform.hs" #-}- )- -- "Transform.ag"(line 1006, column 12)- _lhsOcollectedInsts =- ({-# LINE 1006 "Transform.ag" #-}- [ (nt,con,_rulesIdefinedInsts)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5588 "Transform.hs" #-}- )- -- "Transform.ag"(line 1012, column 12)- _lhsOcollectedUniques =- ({-# LINE 1012 "Transform.ag" #-}- [ (nt,con,_rulesIuniqueInfos)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5597 "Transform.hs" #-}- )- -- "Transform.ag"(line 1018, column 12)- _lhsOcollectedAugments =- ({-# LINE 1018 "Transform.ag" #-}- [ (nt, con, _rulesIaugmentInfos)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5606 "Transform.hs" #-}- )- -- "Transform.ag"(line 1024, column 12)- _lhsOcollectedArounds =- ({-# LINE 1024 "Transform.ag" #-}- [ (nt, con, _rulesIaroundInfos)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5615 "Transform.hs" #-}- )- -- "Transform.ag"(line 1030, column 12)- _lhsOcollectedMerges =- ({-# LINE 1030 "Transform.ag" #-}- [ (nt, con, _rulesImergeInfos)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5624 "Transform.hs" #-}- )- -- copy rule (down)- _rulesOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 5630 "Transform.hs" #-}- )- ( _constructorSetIcollectedConstructorNames,_constructorSetIconstructors,_constructorSetIerrors) =- constructorSet_ - ( _rulesIaroundInfos,_rulesIaugmentInfos,_rulesIdefinedInsts,_rulesIerrors,_rulesImergeInfos,_rulesIorderDepsCollect,_rulesIpragmaNamesCollect,_rulesIruleInfos,_rulesIsigInfos,_rulesIuniqueInfos) =- rules_ _rulesOoptions - in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) )--- SemAlts ------------------------------------------------------{-- visit 0:- inherited attributes:- allAttrDecls : Map NontermIdent (Attributes, Attributes)- allFields : DataTypes- nts : Set NontermIdent- options : Options- synthesized attributes:- attrOrderCollect : AttrOrderMap- collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]- collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]- collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]- collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]- collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]- collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]- collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]- errors : Seq Error- semPragmasCollect : PragmaMap- alternatives:- alternative Cons:- child hd : SemAlt - child tl : SemAlts - alternative Nil:--}--- cata-sem_SemAlts :: SemAlts ->- T_SemAlts -sem_SemAlts list =- (Prelude.foldr sem_SemAlts_Cons sem_SemAlts_Nil (Prelude.map sem_SemAlt list) )--- semantic domain-newtype T_SemAlts = T_SemAlts ((Map NontermIdent (Attributes, Attributes)) ->- DataTypes ->- (Set NontermIdent) ->- Options ->- ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),([ (NontermIdent, ConstructorIdent, RuleInfo)]),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),(Seq Error),PragmaMap))-data Inh_SemAlts = Inh_SemAlts {allAttrDecls_Inh_SemAlts :: !((Map NontermIdent (Attributes, Attributes))),allFields_Inh_SemAlts :: !(DataTypes),nts_Inh_SemAlts :: !((Set NontermIdent)),options_Inh_SemAlts :: !(Options)}-data Syn_SemAlts = Syn_SemAlts {attrOrderCollect_Syn_SemAlts :: !(AttrOrderMap),collectedArounds_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedInsts_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedRules_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSigs_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),errors_Syn_SemAlts :: !((Seq Error)),semPragmasCollect_Syn_SemAlts :: !(PragmaMap)}-wrap_SemAlts :: T_SemAlts ->- Inh_SemAlts ->- Syn_SemAlts -wrap_SemAlts (T_SemAlts sem ) (Inh_SemAlts _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions ) =- (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions - in (Syn_SemAlts _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedRules _lhsOcollectedSigs _lhsOcollectedUniques _lhsOerrors _lhsOsemPragmasCollect ))-sem_SemAlts_Cons :: T_SemAlt ->- T_SemAlts ->- T_SemAlts -sem_SemAlts_Cons (T_SemAlt hd_ ) (T_SemAlts tl_ ) =- (T_SemAlts (\ _lhsIallAttrDecls- _lhsIallFields- _lhsInts- _lhsIoptions ->- (let _lhsOattrOrderCollect :: AttrOrderMap- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOerrors :: (Seq Error)- _lhsOsemPragmasCollect :: PragmaMap- _hdOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _hdOallFields :: DataTypes- _hdOnts :: (Set NontermIdent)- _hdOoptions :: Options- _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _tlOallFields :: DataTypes- _tlOnts :: (Set NontermIdent)- _tlOoptions :: Options- _hdIattrOrderCollect :: AttrOrderMap- _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _hdIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _hdIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _hdIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _hdIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _hdIerrors :: (Seq Error)- _hdIsemPragmasCollect :: PragmaMap- _tlIattrOrderCollect :: AttrOrderMap- _tlIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _tlIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _tlIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _tlIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _tlIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _tlIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _tlIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _tlIerrors :: (Seq Error)- _tlIsemPragmasCollect :: PragmaMap- -- use rule "Transform.ag"(line 809, column 55)- _lhsOattrOrderCollect =- ({-# LINE 809 "Transform.ag" #-}- _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect- {-# LINE 5731 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- _hdIcollectedArounds ++ _tlIcollectedArounds- {-# LINE 5737 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- _hdIcollectedAugments ++ _tlIcollectedAugments- {-# LINE 5743 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- _hdIcollectedInsts ++ _tlIcollectedInsts- {-# LINE 5749 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- _hdIcollectedMerges ++ _tlIcollectedMerges- {-# LINE 5755 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- _hdIcollectedRules ++ _tlIcollectedRules- {-# LINE 5761 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- _hdIcollectedSigs ++ _tlIcollectedSigs- {-# LINE 5767 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- _hdIcollectedUniques ++ _tlIcollectedUniques- {-# LINE 5773 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 5779 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 781, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 781 "Transform.ag" #-}- _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect- {-# LINE 5785 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallAttrDecls =- ({-# LINE 810 "Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 5791 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 5797 "Transform.hs" #-}- )- -- copy rule (down)- _hdOnts =- ({-# LINE 167 "Transform.ag" #-}- _lhsInts- {-# LINE 5803 "Transform.hs" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 5809 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallAttrDecls =- ({-# LINE 810 "Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 5815 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallFields =- ({-# LINE 128 "Transform.ag" #-}- _lhsIallFields- {-# LINE 5821 "Transform.hs" #-}- )- -- copy rule (down)- _tlOnts =- ({-# LINE 167 "Transform.ag" #-}- _lhsInts- {-# LINE 5827 "Transform.hs" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 5833 "Transform.hs" #-}- )- ( _hdIattrOrderCollect,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedInsts,_hdIcollectedMerges,_hdIcollectedRules,_hdIcollectedSigs,_hdIcollectedUniques,_hdIerrors,_hdIsemPragmasCollect) =- hd_ _hdOallAttrDecls _hdOallFields _hdOnts _hdOoptions - ( _tlIattrOrderCollect,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedInsts,_tlIcollectedMerges,_tlIcollectedRules,_tlIcollectedSigs,_tlIcollectedUniques,_tlIerrors,_tlIsemPragmasCollect) =- tl_ _tlOallAttrDecls _tlOallFields _tlOnts _tlOoptions - in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) )-sem_SemAlts_Nil :: T_SemAlts -sem_SemAlts_Nil =- (T_SemAlts (\ _lhsIallAttrDecls- _lhsIallFields- _lhsInts- _lhsIoptions ->- (let _lhsOattrOrderCollect :: AttrOrderMap- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOerrors :: (Seq Error)- _lhsOsemPragmasCollect :: PragmaMap- -- use rule "Transform.ag"(line 809, column 55)- _lhsOattrOrderCollect =- ({-# LINE 809 "Transform.ag" #-}- Map.empty- {-# LINE 5860 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedArounds =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 5866 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedAugments =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 5872 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedInsts =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 5878 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 157, column 32)- _lhsOcollectedMerges =- ({-# LINE 157 "Transform.ag" #-}- []- {-# LINE 5884 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedRules =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 5890 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedSigs =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 5896 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedUniques =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 5902 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 5908 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 781, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 781 "Transform.ag" #-}- Map.empty- {-# LINE 5914 "Transform.hs" #-}- )- in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) )--- SemDef -------------------------------------------------------{-- visit 0:- inherited attribute:- options : Options- synthesized attributes:- aroundInfos : [AroundInfo]- augmentInfos : [AugmentInfo]- definedInsts : [Identifier]- errors : Seq Error- mergeInfos : [MergeInfo]- orderDepsCollect : Set Dependency- pragmaNamesCollect : [Identifier]- ruleInfos : [RuleInfo]- sigInfos : [SigInfo]- uniqueInfos : [UniqueInfo]- alternatives:- alternative AroundDef:- child ident : {Identifier}- child rhs : {Expression}- alternative AttrOrderBefore:- child before : {[Occurrence]}- child after : {[Occurrence]}- visit 0:- local dependency : _- alternative AugmentDef:- child ident : {Identifier}- child rhs : {Expression}- alternative Def:- child pos : {Pos}- child mbName : {Maybe Identifier}- child pattern : Pattern - child rhs : {Expression}- child owrt : {Bool}- alternative MergeDef:- child target : {Identifier}- child nt : {Identifier}- child sources : {[Identifier]}- child rhs : {Expression}- alternative SemPragma:- child names : {[NontermIdent]}- alternative TypeDef:- child pos : {Pos}- child ident : {Identifier}- child tp : {Type}- alternative UniqueDef:- child ident : {Identifier}- child ref : {Identifier}--}--- cata-sem_SemDef :: SemDef ->- T_SemDef -sem_SemDef (AroundDef _ident _rhs ) =- (sem_SemDef_AroundDef _ident _rhs )-sem_SemDef (AttrOrderBefore _before _after ) =- (sem_SemDef_AttrOrderBefore _before _after )-sem_SemDef (AugmentDef _ident _rhs ) =- (sem_SemDef_AugmentDef _ident _rhs )-sem_SemDef (Def _pos _mbName _pattern _rhs _owrt ) =- (sem_SemDef_Def _pos _mbName (sem_Pattern _pattern ) _rhs _owrt )-sem_SemDef (MergeDef _target _nt _sources _rhs ) =- (sem_SemDef_MergeDef _target _nt _sources _rhs )-sem_SemDef (SemPragma _names ) =- (sem_SemDef_SemPragma _names )-sem_SemDef (TypeDef _pos _ident _tp ) =- (sem_SemDef_TypeDef _pos _ident _tp )-sem_SemDef (UniqueDef _ident _ref ) =- (sem_SemDef_UniqueDef _ident _ref )--- semantic domain-newtype T_SemDef = T_SemDef (Options ->- ( ([AroundInfo]),([AugmentInfo]),([Identifier]),(Seq Error),([MergeInfo]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo])))-data Inh_SemDef = Inh_SemDef {options_Inh_SemDef :: !(Options)}-data Syn_SemDef = Syn_SemDef {aroundInfos_Syn_SemDef :: !(([AroundInfo])),augmentInfos_Syn_SemDef :: !(([AugmentInfo])),definedInsts_Syn_SemDef :: !(([Identifier])),errors_Syn_SemDef :: !((Seq Error)),mergeInfos_Syn_SemDef :: !(([MergeInfo])),orderDepsCollect_Syn_SemDef :: !((Set Dependency)),pragmaNamesCollect_Syn_SemDef :: !(([Identifier])),ruleInfos_Syn_SemDef :: !(([RuleInfo])),sigInfos_Syn_SemDef :: !(([SigInfo])),uniqueInfos_Syn_SemDef :: !(([UniqueInfo]))}-wrap_SemDef :: T_SemDef ->- Inh_SemDef ->- Syn_SemDef -wrap_SemDef (T_SemDef sem ) (Inh_SemDef _lhsIoptions ) =- (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = sem _lhsIoptions - in (Syn_SemDef _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos ))-sem_SemDef_AroundDef :: Identifier ->- Expression ->- T_SemDef -sem_SemDef_AroundDef ident_ rhs_ =- (T_SemDef (\ _lhsIoptions ->- (let _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOerrors :: (Seq Error)- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 1049, column 17)- _lhsOaroundInfos =- ({-# LINE 1049 "Transform.ag" #-}- [ (ident_, rhs_) ]- {-# LINE 6015 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 973, column 40)- _lhsOaugmentInfos =- ({-# LINE 973 "Transform.ag" #-}- []- {-# LINE 6021 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1055, column 55)- _lhsOdefinedInsts =- ({-# LINE 1055 "Transform.ag" #-}- []- {-# LINE 6027 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 6033 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 975, column 40)- _lhsOmergeInfos =- ({-# LINE 975 "Transform.ag" #-}- []- {-# LINE 6039 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 822, column 44)- _lhsOorderDepsCollect =- ({-# LINE 822 "Transform.ag" #-}- Set.empty- {-# LINE 6045 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 791, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 791 "Transform.ag" #-}- []- {-# LINE 6051 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 970, column 40)- _lhsOruleInfos =- ({-# LINE 970 "Transform.ag" #-}- []- {-# LINE 6057 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 971, column 40)- _lhsOsigInfos =- ({-# LINE 971 "Transform.ag" #-}- []- {-# LINE 6063 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 972, column 40)- _lhsOuniqueInfos =- ({-# LINE 972 "Transform.ag" #-}- []- {-# LINE 6069 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )-sem_SemDef_AttrOrderBefore :: ([Occurrence]) ->- ([Occurrence]) ->- T_SemDef -sem_SemDef_AttrOrderBefore before_ after_ =- (T_SemDef (\ _lhsIoptions ->- (let _lhsOorderDepsCollect :: (Set Dependency)- _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOerrors :: (Seq Error)- _lhsOmergeInfos :: ([MergeInfo])- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 826, column 7)- _dependency =- ({-# LINE 826 "Transform.ag" #-}- [ Dependency b a | b <- before_, a <- after_ ]- {-# LINE 6091 "Transform.hs" #-}- )- -- "Transform.ag"(line 827, column 7)- _lhsOorderDepsCollect =- ({-# LINE 827 "Transform.ag" #-}- Set.fromList _dependency- {-# LINE 6097 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 974, column 40)- _lhsOaroundInfos =- ({-# LINE 974 "Transform.ag" #-}- []- {-# LINE 6103 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 973, column 40)- _lhsOaugmentInfos =- ({-# LINE 973 "Transform.ag" #-}- []- {-# LINE 6109 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1055, column 55)- _lhsOdefinedInsts =- ({-# LINE 1055 "Transform.ag" #-}- []- {-# LINE 6115 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 6121 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 975, column 40)- _lhsOmergeInfos =- ({-# LINE 975 "Transform.ag" #-}- []- {-# LINE 6127 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 791, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 791 "Transform.ag" #-}- []- {-# LINE 6133 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 970, column 40)- _lhsOruleInfos =- ({-# LINE 970 "Transform.ag" #-}- []- {-# LINE 6139 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 971, column 40)- _lhsOsigInfos =- ({-# LINE 971 "Transform.ag" #-}- []- {-# LINE 6145 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 972, column 40)- _lhsOuniqueInfos =- ({-# LINE 972 "Transform.ag" #-}- []- {-# LINE 6151 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )-sem_SemDef_AugmentDef :: Identifier ->- Expression ->- T_SemDef -sem_SemDef_AugmentDef ident_ rhs_ =- (T_SemDef (\ _lhsIoptions ->- (let _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOaroundInfos :: ([AroundInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOerrors :: (Seq Error)- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 1046, column 17)- _lhsOaugmentInfos =- ({-# LINE 1046 "Transform.ag" #-}- [ (ident_, rhs_) ]- {-# LINE 6173 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 974, column 40)- _lhsOaroundInfos =- ({-# LINE 974 "Transform.ag" #-}- []- {-# LINE 6179 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1055, column 55)- _lhsOdefinedInsts =- ({-# LINE 1055 "Transform.ag" #-}- []- {-# LINE 6185 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 6191 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 975, column 40)- _lhsOmergeInfos =- ({-# LINE 975 "Transform.ag" #-}- []- {-# LINE 6197 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 822, column 44)- _lhsOorderDepsCollect =- ({-# LINE 822 "Transform.ag" #-}- Set.empty- {-# LINE 6203 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 791, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 791 "Transform.ag" #-}- []- {-# LINE 6209 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 970, column 40)- _lhsOruleInfos =- ({-# LINE 970 "Transform.ag" #-}- []- {-# LINE 6215 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 971, column 40)- _lhsOsigInfos =- ({-# LINE 971 "Transform.ag" #-}- []- {-# LINE 6221 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 972, column 40)- _lhsOuniqueInfos =- ({-# LINE 972 "Transform.ag" #-}- []- {-# LINE 6227 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )-sem_SemDef_Def :: Pos ->- (Maybe Identifier) ->- T_Pattern ->- Expression ->- Bool ->- T_SemDef -sem_SemDef_Def pos_ mbName_ (T_Pattern pattern_ ) rhs_ owrt_ =- (T_SemDef (\ _lhsIoptions ->- (let _lhsOerrors :: (Seq Error)- _lhsOruleInfos :: ([RuleInfo])- _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- _patternIcopy :: Pattern - _patternIdefinedAttrs :: ([AttrName])- _patternIdefinedInsts :: ([Identifier])- _patternIpatunder :: ([AttrName]->Pattern)- _patternIstpos :: Pos- -- "Transform.ag"(line 527, column 3)- _lhsOerrors =- ({-# LINE 527 "Transform.ag" #-}- if checkParseRhs _lhsIoptions- then Seq.fromList $ checkRhs rhs_- else Seq.empty- {-# LINE 6259 "Transform.hs" #-}- )- -- "Transform.ag"(line 1037, column 10)- _lhsOruleInfos =- ({-# LINE 1037 "Transform.ag" #-}- [ (mbName_, _patternIpatunder, rhs_, _patternIdefinedAttrs, owrt_, show _patternIstpos) ]- {-# LINE 6265 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 974, column 40)- _lhsOaroundInfos =- ({-# LINE 974 "Transform.ag" #-}- []- {-# LINE 6271 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 973, column 40)- _lhsOaugmentInfos =- ({-# LINE 973 "Transform.ag" #-}- []- {-# LINE 6277 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1055, column 55)- _lhsOdefinedInsts =- ({-# LINE 1055 "Transform.ag" #-}- _patternIdefinedInsts- {-# LINE 6283 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 975, column 40)- _lhsOmergeInfos =- ({-# LINE 975 "Transform.ag" #-}- []- {-# LINE 6289 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 822, column 44)- _lhsOorderDepsCollect =- ({-# LINE 822 "Transform.ag" #-}- Set.empty- {-# LINE 6295 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 791, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 791 "Transform.ag" #-}- []- {-# LINE 6301 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 971, column 40)- _lhsOsigInfos =- ({-# LINE 971 "Transform.ag" #-}- []- {-# LINE 6307 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 972, column 40)- _lhsOuniqueInfos =- ({-# LINE 972 "Transform.ag" #-}- []- {-# LINE 6313 "Transform.hs" #-}- )- ( _patternIcopy,_patternIdefinedAttrs,_patternIdefinedInsts,_patternIpatunder,_patternIstpos) =- pattern_ - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )-sem_SemDef_MergeDef :: Identifier ->- Identifier ->- ([Identifier]) ->- Expression ->- T_SemDef -sem_SemDef_MergeDef target_ nt_ sources_ rhs_ =- (T_SemDef (\ _lhsIoptions ->- (let _lhsOerrors :: (Seq Error)- _lhsOmergeInfos :: ([MergeInfo])- _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 527, column 3)- _lhsOerrors =- ({-# LINE 527 "Transform.ag" #-}- if checkParseRhs _lhsIoptions- then Seq.fromList $ checkRhs rhs_- else Seq.empty- {-# LINE 6341 "Transform.hs" #-}- )- -- "Transform.ag"(line 1052, column 17)- _lhsOmergeInfos =- ({-# LINE 1052 "Transform.ag" #-}- [ (target_, nt_, sources_, rhs_) ]- {-# LINE 6347 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 974, column 40)- _lhsOaroundInfos =- ({-# LINE 974 "Transform.ag" #-}- []- {-# LINE 6353 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 973, column 40)- _lhsOaugmentInfos =- ({-# LINE 973 "Transform.ag" #-}- []- {-# LINE 6359 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1055, column 55)- _lhsOdefinedInsts =- ({-# LINE 1055 "Transform.ag" #-}- []- {-# LINE 6365 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 822, column 44)- _lhsOorderDepsCollect =- ({-# LINE 822 "Transform.ag" #-}- Set.empty- {-# LINE 6371 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 791, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 791 "Transform.ag" #-}- []- {-# LINE 6377 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 970, column 40)- _lhsOruleInfos =- ({-# LINE 970 "Transform.ag" #-}- []- {-# LINE 6383 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 971, column 40)- _lhsOsigInfos =- ({-# LINE 971 "Transform.ag" #-}- []- {-# LINE 6389 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 972, column 40)- _lhsOuniqueInfos =- ({-# LINE 972 "Transform.ag" #-}- []- {-# LINE 6395 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )-sem_SemDef_SemPragma :: ([NontermIdent]) ->- T_SemDef -sem_SemDef_SemPragma names_ =- (T_SemDef (\ _lhsIoptions ->- (let _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOerrors :: (Seq Error)- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 795, column 7)- _lhsOpragmaNamesCollect =- ({-# LINE 795 "Transform.ag" #-}- names_- {-# LINE 6416 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 974, column 40)- _lhsOaroundInfos =- ({-# LINE 974 "Transform.ag" #-}- []- {-# LINE 6422 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 973, column 40)- _lhsOaugmentInfos =- ({-# LINE 973 "Transform.ag" #-}- []- {-# LINE 6428 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1055, column 55)- _lhsOdefinedInsts =- ({-# LINE 1055 "Transform.ag" #-}- []- {-# LINE 6434 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 6440 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 975, column 40)- _lhsOmergeInfos =- ({-# LINE 975 "Transform.ag" #-}- []- {-# LINE 6446 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 822, column 44)- _lhsOorderDepsCollect =- ({-# LINE 822 "Transform.ag" #-}- Set.empty- {-# LINE 6452 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 970, column 40)- _lhsOruleInfos =- ({-# LINE 970 "Transform.ag" #-}- []- {-# LINE 6458 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 971, column 40)- _lhsOsigInfos =- ({-# LINE 971 "Transform.ag" #-}- []- {-# LINE 6464 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 972, column 40)- _lhsOuniqueInfos =- ({-# LINE 972 "Transform.ag" #-}- []- {-# LINE 6470 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )-sem_SemDef_TypeDef :: Pos ->- Identifier ->- Type ->- T_SemDef -sem_SemDef_TypeDef pos_ ident_ tp_ =- (T_SemDef (\ _lhsIoptions ->- (let _lhsOerrors :: (Seq Error)- _lhsOsigInfos :: ([SigInfo])- _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 534, column 3)- _lhsOerrors =- ({-# LINE 534 "Transform.ag" #-}- if checkParseTy _lhsIoptions- then case tp_ of- Haskell s -> let exp = Expression pos_ tks- tks = [tk]- tk = HsToken s pos_- in Seq.fromList $ checkTy exp- _ -> Seq.empty- else Seq.empty- {-# LINE 6500 "Transform.hs" #-}- )- -- "Transform.ag"(line 1040, column 14)- _lhsOsigInfos =- ({-# LINE 1040 "Transform.ag" #-}- [ (ident_, tp_) ]- {-# LINE 6506 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 974, column 40)- _lhsOaroundInfos =- ({-# LINE 974 "Transform.ag" #-}- []- {-# LINE 6512 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 973, column 40)- _lhsOaugmentInfos =- ({-# LINE 973 "Transform.ag" #-}- []- {-# LINE 6518 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1055, column 55)- _lhsOdefinedInsts =- ({-# LINE 1055 "Transform.ag" #-}- []- {-# LINE 6524 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 975, column 40)- _lhsOmergeInfos =- ({-# LINE 975 "Transform.ag" #-}- []- {-# LINE 6530 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 822, column 44)- _lhsOorderDepsCollect =- ({-# LINE 822 "Transform.ag" #-}- Set.empty- {-# LINE 6536 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 791, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 791 "Transform.ag" #-}- []- {-# LINE 6542 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 970, column 40)- _lhsOruleInfos =- ({-# LINE 970 "Transform.ag" #-}- []- {-# LINE 6548 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 972, column 40)- _lhsOuniqueInfos =- ({-# LINE 972 "Transform.ag" #-}- []- {-# LINE 6554 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )-sem_SemDef_UniqueDef :: Identifier ->- Identifier ->- T_SemDef -sem_SemDef_UniqueDef ident_ ref_ =- (T_SemDef (\ _lhsIoptions ->- (let _lhsOuniqueInfos :: ([UniqueInfo])- _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOerrors :: (Seq Error)- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- -- "Transform.ag"(line 1043, column 16)- _lhsOuniqueInfos =- ({-# LINE 1043 "Transform.ag" #-}- [ (ident_, ref_) ]- {-# LINE 6576 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 974, column 40)- _lhsOaroundInfos =- ({-# LINE 974 "Transform.ag" #-}- []- {-# LINE 6582 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 973, column 40)- _lhsOaugmentInfos =- ({-# LINE 973 "Transform.ag" #-}- []- {-# LINE 6588 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1055, column 55)- _lhsOdefinedInsts =- ({-# LINE 1055 "Transform.ag" #-}- []- {-# LINE 6594 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 6600 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 975, column 40)- _lhsOmergeInfos =- ({-# LINE 975 "Transform.ag" #-}- []- {-# LINE 6606 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 822, column 44)- _lhsOorderDepsCollect =- ({-# LINE 822 "Transform.ag" #-}- Set.empty- {-# LINE 6612 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 791, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 791 "Transform.ag" #-}- []- {-# LINE 6618 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 970, column 40)- _lhsOruleInfos =- ({-# LINE 970 "Transform.ag" #-}- []- {-# LINE 6624 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 971, column 40)- _lhsOsigInfos =- ({-# LINE 971 "Transform.ag" #-}- []- {-# LINE 6630 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )--- SemDefs ------------------------------------------------------{-- visit 0:- inherited attribute:- options : Options- synthesized attributes:- aroundInfos : [AroundInfo]- augmentInfos : [AugmentInfo]- definedInsts : [Identifier]- errors : Seq Error- mergeInfos : [MergeInfo]- orderDepsCollect : Set Dependency- pragmaNamesCollect : [Identifier]- ruleInfos : [RuleInfo]- sigInfos : [SigInfo]- uniqueInfos : [UniqueInfo]- alternatives:- alternative Cons:- child hd : SemDef - child tl : SemDefs - alternative Nil:--}--- cata-sem_SemDefs :: SemDefs ->- T_SemDefs -sem_SemDefs list =- (Prelude.foldr sem_SemDefs_Cons sem_SemDefs_Nil (Prelude.map sem_SemDef list) )--- semantic domain-newtype T_SemDefs = T_SemDefs (Options ->- ( ([AroundInfo]),([AugmentInfo]),([Identifier]),(Seq Error),([MergeInfo]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo])))-data Inh_SemDefs = Inh_SemDefs {options_Inh_SemDefs :: !(Options)}-data Syn_SemDefs = Syn_SemDefs {aroundInfos_Syn_SemDefs :: !(([AroundInfo])),augmentInfos_Syn_SemDefs :: !(([AugmentInfo])),definedInsts_Syn_SemDefs :: !(([Identifier])),errors_Syn_SemDefs :: !((Seq Error)),mergeInfos_Syn_SemDefs :: !(([MergeInfo])),orderDepsCollect_Syn_SemDefs :: !((Set Dependency)),pragmaNamesCollect_Syn_SemDefs :: !(([Identifier])),ruleInfos_Syn_SemDefs :: !(([RuleInfo])),sigInfos_Syn_SemDefs :: !(([SigInfo])),uniqueInfos_Syn_SemDefs :: !(([UniqueInfo]))}-wrap_SemDefs :: T_SemDefs ->- Inh_SemDefs ->- Syn_SemDefs -wrap_SemDefs (T_SemDefs sem ) (Inh_SemDefs _lhsIoptions ) =- (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = sem _lhsIoptions - in (Syn_SemDefs _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos ))-sem_SemDefs_Cons :: T_SemDef ->- T_SemDefs ->- T_SemDefs -sem_SemDefs_Cons (T_SemDef hd_ ) (T_SemDefs tl_ ) =- (T_SemDefs (\ _lhsIoptions ->- (let _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOerrors :: (Seq Error)- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- _hdOoptions :: Options- _tlOoptions :: Options- _hdIaroundInfos :: ([AroundInfo])- _hdIaugmentInfos :: ([AugmentInfo])- _hdIdefinedInsts :: ([Identifier])- _hdIerrors :: (Seq Error)- _hdImergeInfos :: ([MergeInfo])- _hdIorderDepsCollect :: (Set Dependency)- _hdIpragmaNamesCollect :: ([Identifier])- _hdIruleInfos :: ([RuleInfo])- _hdIsigInfos :: ([SigInfo])- _hdIuniqueInfos :: ([UniqueInfo])- _tlIaroundInfos :: ([AroundInfo])- _tlIaugmentInfos :: ([AugmentInfo])- _tlIdefinedInsts :: ([Identifier])- _tlIerrors :: (Seq Error)- _tlImergeInfos :: ([MergeInfo])- _tlIorderDepsCollect :: (Set Dependency)- _tlIpragmaNamesCollect :: ([Identifier])- _tlIruleInfos :: ([RuleInfo])- _tlIsigInfos :: ([SigInfo])- _tlIuniqueInfos :: ([UniqueInfo])- -- use rule "Transform.ag"(line 974, column 40)- _lhsOaroundInfos =- ({-# LINE 974 "Transform.ag" #-}- _hdIaroundInfos ++ _tlIaroundInfos- {-# LINE 6712 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 973, column 40)- _lhsOaugmentInfos =- ({-# LINE 973 "Transform.ag" #-}- _hdIaugmentInfos ++ _tlIaugmentInfos- {-# LINE 6718 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1055, column 55)- _lhsOdefinedInsts =- ({-# LINE 1055 "Transform.ag" #-}- _hdIdefinedInsts ++ _tlIdefinedInsts- {-# LINE 6724 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 6730 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 975, column 40)- _lhsOmergeInfos =- ({-# LINE 975 "Transform.ag" #-}- _hdImergeInfos ++ _tlImergeInfos- {-# LINE 6736 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 822, column 44)- _lhsOorderDepsCollect =- ({-# LINE 822 "Transform.ag" #-}- _hdIorderDepsCollect `Set.union` _tlIorderDepsCollect- {-# LINE 6742 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 791, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 791 "Transform.ag" #-}- _hdIpragmaNamesCollect ++ _tlIpragmaNamesCollect- {-# LINE 6748 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 970, column 40)- _lhsOruleInfos =- ({-# LINE 970 "Transform.ag" #-}- _hdIruleInfos ++ _tlIruleInfos- {-# LINE 6754 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 971, column 40)- _lhsOsigInfos =- ({-# LINE 971 "Transform.ag" #-}- _hdIsigInfos ++ _tlIsigInfos- {-# LINE 6760 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 972, column 40)- _lhsOuniqueInfos =- ({-# LINE 972 "Transform.ag" #-}- _hdIuniqueInfos ++ _tlIuniqueInfos- {-# LINE 6766 "Transform.hs" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 6772 "Transform.hs" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 39 "Transform.ag" #-}- _lhsIoptions- {-# LINE 6778 "Transform.hs" #-}- )- ( _hdIaroundInfos,_hdIaugmentInfos,_hdIdefinedInsts,_hdIerrors,_hdImergeInfos,_hdIorderDepsCollect,_hdIpragmaNamesCollect,_hdIruleInfos,_hdIsigInfos,_hdIuniqueInfos) =- hd_ _hdOoptions - ( _tlIaroundInfos,_tlIaugmentInfos,_tlIdefinedInsts,_tlIerrors,_tlImergeInfos,_tlIorderDepsCollect,_tlIpragmaNamesCollect,_tlIruleInfos,_tlIsigInfos,_tlIuniqueInfos) =- tl_ _tlOoptions - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )-sem_SemDefs_Nil :: T_SemDefs -sem_SemDefs_Nil =- (T_SemDefs (\ _lhsIoptions ->- (let _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOerrors :: (Seq Error)- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- use rule "Transform.ag"(line 974, column 40)- _lhsOaroundInfos =- ({-# LINE 974 "Transform.ag" #-}- []- {-# LINE 6802 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 973, column 40)- _lhsOaugmentInfos =- ({-# LINE 973 "Transform.ag" #-}- []- {-# LINE 6808 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1055, column 55)- _lhsOdefinedInsts =- ({-# LINE 1055 "Transform.ag" #-}- []- {-# LINE 6814 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 43, column 19)- _lhsOerrors =- ({-# LINE 43 "Transform.ag" #-}- Seq.empty- {-# LINE 6820 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 975, column 40)- _lhsOmergeInfos =- ({-# LINE 975 "Transform.ag" #-}- []- {-# LINE 6826 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 822, column 44)- _lhsOorderDepsCollect =- ({-# LINE 822 "Transform.ag" #-}- Set.empty- {-# LINE 6832 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 791, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 791 "Transform.ag" #-}- []- {-# LINE 6838 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 970, column 40)- _lhsOruleInfos =- ({-# LINE 970 "Transform.ag" #-}- []- {-# LINE 6844 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 971, column 40)- _lhsOsigInfos =- ({-# LINE 971 "Transform.ag" #-}- []- {-# LINE 6850 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 972, column 40)- _lhsOuniqueInfos =- ({-# LINE 972 "Transform.ag" #-}- []- {-# LINE 6856 "Transform.hs" #-}+{-# LINE 691 "Transform.ag" #-}++flattenDatas :: DataTypes -> Map NontermIdent (Set NontermIdent)+flattenDatas ds = Map.map flatten ds+ where flatten cs = Set.fromList [ nt | (_,NT nt _) <- concatMap snd (Map.toList cs)]++reachableFrom :: Map NontermIdent (Set NontermIdent) -> Set NontermIdent -> Set NontermIdent+reachableFrom table nts = reach nts+ where reach nts = let nts' = Set.unions (nts : [ ns | nt <- Set.toList nts+ , let ns = Map.findWithDefault Set.empty nt table ])+ in if Set.size nts' > Set.size nts+ then reach nts'+ else nts+invert :: Map NontermIdent (Set NontermIdent) -> Map NontermIdent (Set NontermIdent)+invert m = foldr inv Map.empty (Map.toList m)+ where inv (x,ns) m = fold (\n m -> Map.insertWith Set.union n (Set.singleton x) m) m ns++path :: Map NontermIdent (Set NontermIdent) -> NontermIdent -> NontermIdent -> Set NontermIdent+path table from to = let children = Map.findWithDefault Set.empty from table+ forward = reachableFrom table children+ backward = reachableFrom (invert table)+ (Set.singleton to)+ in Set.intersection forward backward+{-# LINE 323 "../src-derived/Transform.hs" #-}++{-# LINE 801 "Transform.ag" #-}++pragmaMapUnion :: PragmaMap -> PragmaMap -> PragmaMap+pragmaMapUnion = Map.unionWith (Map.unionWith Set.union)++pragmaMapSingle :: NontermIdent -> ConstructorIdent -> Set Identifier -> PragmaMap+pragmaMapSingle nt con nms = Map.singleton nt (Map.singleton con nms)+{-# LINE 332 "../src-derived/Transform.hs" #-}++{-# LINE 833 "Transform.ag" #-}++orderMapUnion :: AttrOrderMap -> AttrOrderMap -> AttrOrderMap+orderMapUnion = Map.unionWith (Map.unionWith Set.union)++orderMapSingle :: NontermIdent -> ConstructorIdent -> Set Dependency -> AttrOrderMap+orderMapSingle nt con deps = Map.singleton nt (Map.singleton con deps)+{-# LINE 341 "../src-derived/Transform.hs" #-}++{-# LINE 859 "Transform.ag" #-}++mergeParams :: ParamMap -> ParamMap -> ParamMap+mergeParams = Map.unionWith (++)+{-# LINE 347 "../src-derived/Transform.hs" #-}++{-# LINE 882 "Transform.ag" #-}++mergeCtx :: ContextMap -> ContextMap -> ContextMap+mergeCtx+ = Map.unionWith nubconcat+ where nubconcat a b = nub (a ++ b)+{-# LINE 355 "../src-derived/Transform.hs" #-}++{-# LINE 895 "Transform.ag" #-}++mergeDerivings m1 m2 = foldr (\(n,cs) m -> Map.insertWith Set.union n cs m) m2 (Map.toList m1)+{-# LINE 360 "../src-derived/Transform.hs" #-}++{-# LINE 906 "Transform.ag" #-}++merge x y = foldr f y (Map.toList x)+ where f ~(k,v) m = Map.insertWith (Map.union) k v m+{-# LINE 366 "../src-derived/Transform.hs" #-}++{-# LINE 947 "Transform.ag" #-}++checkAttrs allFields nts inherited synthesized decls = foldErrors check decls nts where+ check nt decls | not (nt `Map.member` allFields) = (decls,Seq.singleton(UndefNont nt))+ | otherwise = let (inh,syn) = Map.findWithDefault (Map.empty,Map.empty) nt decls+ (inh',einh) = checkDuplicates (DupInhAttr nt) inherited inh+ (syn',esyn) = checkDuplicates (DupSynAttr nt) synthesized syn+ in (Map.insert nt (inh',syn') decls,einh >< esyn)+{-# LINE 376 "../src-derived/Transform.hs" #-}++{-# LINE 958 "Transform.ag" #-}++addSelf name atMap = let (eInh,eSyn) = Map.findWithDefault(Map.empty,Map.empty) name atMap+ in Map.insert name (eInh, Map.insert (Ident "self" noPos) (NT _SELF []) eSyn)atMap+{-# LINE 382 "../src-derived/Transform.hs" #-}++{-# LINE 1099 "Transform.ag" #-}++makeType :: Set NontermIdent -> Type -> Type+makeType nts tp@(NT x _) | x == _SELF = tp+ | Set.member x nts = tp+ | otherwise = Haskell (typeToHaskellString Nothing [] tp)+makeType _ tp = tp+{-# LINE 391 "../src-derived/Transform.hs" #-}++{-# LINE 1106 "Transform.ag" #-}++constructGrammar :: Set NontermIdent+ -> ParamMap+ -> DataTypes+ -> Map NontermIdent (Attributes, Attributes)+ -> Map NontermIdent (Map Identifier (String, String, String))+ -> Derivings+ -> Set NontermIdent+ -> Map NontermIdent (Map ConstructorIdent [Rule])+ -> Map NontermIdent (Map ConstructorIdent [TypeSig])+ -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)])+ -> TypeSyns+ -> PragmaMap+ -> AttrOrderMap+ -> ContextMap+ -> UniqueMap+ -> Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))+ -> Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))+ -> Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression)))+ -> Grammar++constructGrammar nts ntParams gram attrs uses derivings wrappers allrules tsigs allinsts tsyns pragmaMap orderMap contextMap uniqueMap augmentsMap aroundsMap mergeMap =+ let gr = [ (nt,Map.toList alts) | (nt,alts) <- Map.toList gram]+ nonts = map nont gr+ nont (nt,alts) = let (inh,syn) = Map.findWithDefault (Map.empty,Map.empty) nt attrs+ rmap = Map.findWithDefault Map.empty nt allrules+ tsmap = Map.findWithDefault Map.empty nt tsigs+ instsmap = Map.findWithDefault Map.empty nt allinsts+ params = Map.findWithDefault [] nt ntParams+ mergemap = Map.findWithDefault Map.empty nt mergeMap+ alt (con,flds) =+ let rules = maybe [] id (Map.lookup con rmap)+ tsigs = maybe [] id (Map.lookup con tsmap)+ insts = maybe [] id (Map.lookup con instsmap)+ merges = [ (n, NT t []) | (n, (t, _, _)) <- Map.assocs $ maybe Map.empty id (Map.lookup con mergemap) ]++ -- important: keep order of children+ cldrn = map child (flds ++ filter (not . existsAsField) insts ++ merges)+ child (nm, tp) =+ let tpI = if existsAsInst nm+ then fromJust $ lookup nm insts+ else tp+ (inh,syn) = case tpI of+ NT nt _ -> let nt' = maybe nt id (deforestedNt nt)+ in Map.findWithDefault (Map.empty,Map.empty) nt' attrs+ _ -> (Map.empty,Map.empty)+ virt = if existsAsInst nm+ then case lookup nm flds of+ Just tp' -> Just (Just tp')+ Nothing -> Just Nothing+ else if existsAsMerge nm+ then (Just Nothing)+ else Nothing+ in Child nm tpI inh syn virt+ existsAsInst nm = maybe False (const True) (lookup nm insts)+ existsAsField (nm,_) = maybe False (const True) (lookup nm flds)+ existsAsMerge nm = maybe False (const True) (lookup nm merges)+ in Production con cldrn rules tsigs+ in Nonterminal nt params inh syn (map alt alts)+ in Grammar tsyns uses derivings wrappers nonts pragmaMap orderMap ntParams contextMap uniqueMap augmentsMap aroundsMap mergeMap+{-# LINE 454 "../src-derived/Transform.hs" #-}++{-# LINE 1168 "Transform.ag" #-}++mapUnionWithSetUnion = Map.unionWith Set.union+mapUnionWithPlusPlus = Map.unionWith (++)+{-# LINE 460 "../src-derived/Transform.hs" #-}+-- AG ----------------------------------------------------------+{-+ visit 0:+ inherited attribute:+ options : Options+ synthesized attributes:+ blocks : Blocks+ errors : Seq Error+ moduleDecl : Maybe (String,String,String)+ output : Grammar+ pragmas : Options -> Options+ alternatives:+ alternative AG:+ child elems : Elems + visit 0:+ local allFields : _+ local allConstrs : _+ local allRules : _+ local allSigs : _+ local allInsts : _+ local allUniques : _+ local allAugments : _+ local allArounds : _+ local allMerges : _+ local augmentSigs : _+ local allRulesErrs : _+ local allNamesErrs : _+ local allSigsErrs : _+ local allInstsErrs : _+ local allUniquesErrs : _+ local allAugmentErrs : _+ local allAroundsErrs : _+ local allMergesErrs : _+ local checkedRulesPre : _+ local checkedSigs : _+ local checkedInsts : _+ local checkedUniques : _+ local checkedAugments : _+ local checkedArounds : _+ local checkedRules : _+ local checkedMerges : _+ local errs1 : _+ local errs2 : _+ local errs3 : _+ local errs4 : _+ local errs5 : _+ local errs6 : _+ local errs7 : _+ local errs8 : _+ local errs9 : _+ local errs10 : _+ local errs11 : _+ local allNonterminals : _+ local allAttrDecls : _+-}+-- cata+sem_AG :: AG ->+ T_AG +sem_AG (AG _elems ) =+ (sem_AG_AG (sem_Elems _elems ) )+-- semantic domain+newtype T_AG = T_AG (Options ->+ ( Blocks,(Seq Error),(Maybe (String,String,String)),Grammar,(Options -> Options)))+data Inh_AG = Inh_AG {options_Inh_AG :: !(Options)}+data Syn_AG = Syn_AG {blocks_Syn_AG :: !(Blocks),errors_Syn_AG :: !((Seq Error)),moduleDecl_Syn_AG :: !((Maybe (String,String,String))),output_Syn_AG :: !(Grammar),pragmas_Syn_AG :: !((Options -> Options))}+wrap_AG :: T_AG ->+ Inh_AG ->+ Syn_AG +wrap_AG (T_AG sem ) (Inh_AG _lhsIoptions ) =+ (let ( _lhsOblocks,_lhsOerrors,_lhsOmoduleDecl,_lhsOoutput,_lhsOpragmas) = sem _lhsIoptions + in (Syn_AG _lhsOblocks _lhsOerrors _lhsOmoduleDecl _lhsOoutput _lhsOpragmas ))+sem_AG_AG :: T_Elems ->+ T_AG +sem_AG_AG (T_Elems elems_ ) =+ (T_AG (\ _lhsIoptions ->+ (let _lhsOoutput :: Grammar+ _lhsOerrors :: (Seq Error)+ _elemsOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _elemsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _elemsOdefinedSets :: DefinedSets+ _elemsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOblocks :: Blocks+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOpragmas :: (Options -> Options)+ _elemsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _elemsOallFields :: DataTypes+ _elemsOallNonterminals :: (Set NontermIdent)+ _elemsOoptions :: Options+ _elemsIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _elemsIattrOrderCollect :: AttrOrderMap+ _elemsIblocks :: Blocks+ _elemsIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _elemsIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _elemsIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _elemsIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _elemsIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _elemsIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _elemsIcollectedNames :: (Set Identifier)+ _elemsIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _elemsIcollectedSetNames :: (Set Identifier)+ _elemsIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _elemsIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _elemsIctxCollect :: ContextMap+ _elemsIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _elemsIderivings :: Derivings+ _elemsIerrors :: (Seq Error)+ _elemsImoduleDecl :: (Maybe (String,String,String))+ _elemsIparamsCollect :: ParamMap+ _elemsIpragmas :: (Options -> Options)+ _elemsIsemPragmasCollect :: PragmaMap+ _elemsItypeSyns :: TypeSyns+ _elemsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _elemsIwrappers :: (Set NontermIdent)+ -- "Transform.ag"(line 52, column 8)+ _lhsOoutput =+ ({-# LINE 52 "Transform.ag" #-}+ constructGrammar _allNonterminals+ _elemsIparamsCollect+ _allFields+ _allAttrDecls+ _elemsIuseMap+ _elemsIderivings+ (if wrappers _lhsIoptions then _allNonterminals else _elemsIwrappers)+ _checkedRules+ _checkedSigs+ _checkedInsts+ _elemsItypeSyns+ _elemsIsemPragmasCollect+ _elemsIattrOrderCollect+ _elemsIctxCollect+ _checkedUniques+ _checkedAugments+ _checkedArounds+ _checkedMerges+ {-# LINE 595 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 253, column 10)+ _allFields =+ ({-# LINE 253 "Transform.ag" #-}+ let f (nt,con,fm) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con fm)+ in foldr f (Map.empty) _elemsIcollectedFields+ {-# LINE 602 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 256, column 10)+ _allConstrs =+ ({-# LINE 256 "Transform.ag" #-}+ let f (nt,con,_) = Map.insertWith (++) nt [con]+ in foldr f (Map.empty) _elemsIcollectedFields+ {-# LINE 609 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 259, column 10)+ _allRules =+ ({-# LINE 259 "Transform.ag" #-}+ let f (nt,con,r) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con [r])+ in foldr f (Map.empty) _elemsIcollectedRules+ {-# LINE 616 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 262, column 10)+ _allSigs =+ ({-# LINE 262 "Transform.ag" #-}+ let f (nt,con,t) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con [t])+ typeof nt r = Map.findWithDefault (Haskell "<unknown>") r $ fst $ Map.findWithDefault (Map.empty,Map.empty) nt _allAttrDecls+ in foldr f (Map.empty) ( _elemsIcollectedSigs+ ++ [ (nt, con, (ident,typeof nt ref)) | (nt, con, us) <- _elemsIcollectedUniques, (ident,ref) <- us ]+ )+ {-# LINE 626 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 268, column 10)+ _allInsts =+ ({-# LINE 268 "Transform.ag" #-}+ let f (nt,con,is) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con is)+ in foldr f (Map.empty) _elemsIcollectedInsts+ {-# LINE 633 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 271, column 10)+ _allUniques =+ ({-# LINE 271 "Transform.ag" #-}+ let f (nt,con,us) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con us)+ in foldr f (Map.empty) _elemsIcollectedUniques+ {-# LINE 640 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 273, column 10)+ _allAugments =+ ({-# LINE 273 "Transform.ag" #-}+ let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as)+ in foldr f Map.empty _elemsIcollectedAugments+ {-# LINE 647 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 275, column 10)+ _allArounds =+ ({-# LINE 275 "Transform.ag" #-}+ let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as)+ in foldr f Map.empty _elemsIcollectedArounds+ {-# LINE 654 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 277, column 10)+ _allMerges =+ ({-# LINE 277 "Transform.ag" #-}+ let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as)+ in foldr f Map.empty _elemsIcollectedMerges+ {-# LINE 661 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 280, column 10)+ _augmentSigs =+ ({-# LINE 280 "Transform.ag" #-}+ let gen mp = []+ in Map.map (Map.map gen) _allAugments+ {-# LINE 668 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 283, column 10)+ _allRulesErrs =+ ({-# LINE 283 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkRules _allAttrDecls _allFields _allInsts _allSigs _allMerges )) _allRules+ {-# LINE 674 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 284, column 10)+ _allNamesErrs =+ ({-# LINE 284 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . checkRuleNames) _allRules+ {-# LINE 680 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 285, column 10)+ _allSigsErrs =+ ({-# LINE 285 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkSigs )) _allSigs+ {-# LINE 686 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 286, column 10)+ _allInstsErrs =+ ({-# LINE 286 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkInsts _allNonterminals _allSigs _allFields )) _allInsts+ {-# LINE 692 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 287, column 10)+ _allUniquesErrs =+ ({-# LINE 287 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkUniques _allAttrDecls )) _allUniques+ {-# LINE 698 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 288, column 10)+ _allAugmentErrs =+ ({-# LINE 288 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkAugments _allAttrDecls )) _allAugments+ {-# LINE 704 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 289, column 10)+ _allAroundsErrs =+ ({-# LINE 289 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkArounds _allFields )) _allArounds+ {-# LINE 710 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 290, column 10)+ _allMergesErrs =+ ({-# LINE 290 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkMerges _allNonterminals _allInsts _allFields )) _allMerges+ {-# LINE 716 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 292, column 10)+ _checkedRulesPre =+ ({-# LINE 292 "Transform.ag" #-}+ Map.map (Map.map fst) _allRulesErrs+ {-# LINE 722 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 293, column 10)+ _checkedSigs =+ ({-# LINE 293 "Transform.ag" #-}+ Map.map (Map.map fst) _allSigsErrs `unionunionplusplus` _augmentSigs+ {-# LINE 728 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 294, column 10)+ _checkedInsts =+ ({-# LINE 294 "Transform.ag" #-}+ Map.map (Map.map fst) _allInstsErrs+ {-# LINE 734 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 295, column 10)+ _checkedUniques =+ ({-# LINE 295 "Transform.ag" #-}+ Map.map (Map.map fst) _allUniquesErrs+ {-# LINE 740 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 296, column 10)+ _checkedAugments =+ ({-# LINE 296 "Transform.ag" #-}+ Map.map (Map.map fst) _allAugmentErrs+ {-# LINE 746 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 297, column 10)+ _checkedArounds =+ ({-# LINE 297 "Transform.ag" #-}+ Map.map (Map.map fst) _allAroundsErrs+ {-# LINE 752 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 298, column 10)+ _checkedRules =+ ({-# LINE 298 "Transform.ag" #-}+ Map.unionWith (Map.unionWith (++)) _checkedRulesPre (Map.mapWithKey (Map.mapWithKey . (mkUniqueRules _lhsIoptions _allFields _checkedInsts _allAttrDecls )) _checkedUniques )+ {-# LINE 758 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 299, column 10)+ _checkedMerges =+ ({-# LINE 299 "Transform.ag" #-}+ Map.map (Map.map fst) _allMergesErrs+ {-# LINE 764 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 301, column 10)+ _errs1 =+ ({-# LINE 301 "Transform.ag" #-}+ let f = checkForDuplicates (DupSynonym)+ in Seq.fromList . f . map fst $ _elemsItypeSyns+ {-# LINE 771 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 304, column 10)+ _errs2 =+ ({-# LINE 304 "Transform.ag" #-}+ let g nt (con,fm) = checkForDuplicates (DupChild nt con) (map fst fm)+ f (nt,cfm) = concat . map (g nt) . Map.toList $ cfm+ in Seq.fromList . concat . map f . Map.toList $ _allFields+ {-# LINE 779 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 308, column 10)+ _errs3 =+ ({-# LINE 308 "Transform.ag" #-}+ let f (nt,cons) = checkForDuplicates (DupAlt nt) cons+ in Seq.empty+ {-# LINE 786 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 312, column 10)+ _errs4 =+ ({-# LINE 312 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allRulesErrs+ {-# LINE 793 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 315, column 10)+ _errs5 =+ ({-# LINE 315 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allSigsErrs+ {-# LINE 800 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 318, column 10)+ _errs6 =+ ({-# LINE 318 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allInstsErrs+ {-# LINE 807 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 321, column 10)+ _errs7 =+ ({-# LINE 321 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allUniquesErrs+ {-# LINE 814 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 324, column 10)+ _errs8 =+ ({-# LINE 324 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allAugmentErrs+ {-# LINE 821 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 327, column 10)+ _errs9 =+ ({-# LINE 327 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allAroundsErrs+ {-# LINE 828 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 330, column 10)+ _errs10 =+ ({-# LINE 330 "Transform.ag" #-}+ let f m s = Map.fold ((><)) s m+ in Map.fold f Seq.empty _allNamesErrs+ {-# LINE 835 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 333, column 10)+ _errs11 =+ ({-# LINE 333 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allMergesErrs+ {-# LINE 842 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 336, column 10)+ _lhsOerrors =+ ({-# LINE 336 "Transform.ag" #-}+ _elemsIerrors >< _errs1 >< _errs2 >< _errs3 >< _errs4 >< _errs5 >< _errs6 >< _errs7 >< _errs8 >< _errs9 >< _errs10 >< _errs11+ {-# LINE 848 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 560, column 10)+ _allNonterminals =+ ({-# LINE 560 "Transform.ag" #-}+ _elemsIcollectedNames `Set.difference` _elemsIcollectedSetNames+ {-# LINE 854 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 580, column 8)+ _elemsOallConstructors =+ ({-# LINE 580 "Transform.ag" #-}+ _elemsIcollectedConstructorsMap+ {-# LINE 860 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 653, column 8)+ _elemsOdefSets =+ ({-# LINE 653 "Transform.ag" #-}+ Map.fromList (map (\x->(x,(Set.singleton x, Set.empty))) (Set.toList _allNonterminals ))+ {-# LINE 866 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 654, column 8)+ _elemsOdefinedSets =+ ({-# LINE 654 "Transform.ag" #-}+ Map.map fst _elemsIdefSets+ {-# LINE 872 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 912, column 8)+ _elemsOattrDecls =+ ({-# LINE 912 "Transform.ag" #-}+ Map.empty+ {-# LINE 878 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 965, column 9)+ _allAttrDecls =+ ({-# LINE 965 "Transform.ag" #-}+ if withSelf _lhsIoptions+ then foldr addSelf _elemsIattrDecls (Set.toList _allNonterminals )+ else _elemsIattrDecls+ {-# LINE 886 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ _elemsIblocks+ {-# LINE 892 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1089, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1089 "Transform.ag" #-}+ _elemsImoduleDecl+ {-# LINE 898 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 739, column 34)+ _lhsOpragmas =+ ({-# LINE 739 "Transform.ag" #-}+ _elemsIpragmas+ {-# LINE 904 "Transform.hs" #-}+ )+ -- copy rule (from local)+ _elemsOallAttrDecls =+ ({-# LINE 814 "Transform.ag" #-}+ _allAttrDecls+ {-# LINE 910 "Transform.hs" #-}+ )+ -- copy rule (from local)+ _elemsOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _allFields+ {-# LINE 916 "Transform.hs" #-}+ )+ -- copy rule (from local)+ _elemsOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _allNonterminals+ {-# LINE 922 "Transform.hs" #-}+ )+ -- copy rule (down)+ _elemsOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 928 "Transform.hs" #-}+ )+ ( _elemsIattrDecls,_elemsIattrOrderCollect,_elemsIblocks,_elemsIcollectedArounds,_elemsIcollectedAugments,_elemsIcollectedConstructorsMap,_elemsIcollectedFields,_elemsIcollectedInsts,_elemsIcollectedMerges,_elemsIcollectedNames,_elemsIcollectedRules,_elemsIcollectedSetNames,_elemsIcollectedSigs,_elemsIcollectedUniques,_elemsIctxCollect,_elemsIdefSets,_elemsIderivings,_elemsIerrors,_elemsImoduleDecl,_elemsIparamsCollect,_elemsIpragmas,_elemsIsemPragmasCollect,_elemsItypeSyns,_elemsIuseMap,_elemsIwrappers) =+ elems_ _elemsOallAttrDecls _elemsOallConstructors _elemsOallFields _elemsOallNonterminals _elemsOattrDecls _elemsOdefSets _elemsOdefinedSets _elemsOoptions + in ( _lhsOblocks,_lhsOerrors,_lhsOmoduleDecl,_lhsOoutput,_lhsOpragmas))) )+-- Alt ---------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allConstructors : Map NontermIdent (Set ConstructorIdent)+ allNonterminals : Set NontermIdent+ nts : Set NontermIdent+ synthesized attributes:+ collectedConstructorNames : Set ConstructorIdent+ collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]+ alternatives:+ alternative Alt:+ child pos : {Pos}+ child names : ConstructorSet + child fields : {Fields}+-}+-- cata+sem_Alt :: Alt ->+ T_Alt +sem_Alt (Alt _pos _names _fields ) =+ (sem_Alt_Alt _pos (sem_ConstructorSet _names ) _fields )+-- semantic domain+newtype T_Alt = T_Alt ((Map NontermIdent (Set ConstructorIdent)) ->+ (Set NontermIdent) ->+ (Set NontermIdent) ->+ ( (Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)])))+data Inh_Alt = Inh_Alt {allConstructors_Inh_Alt :: !((Map NontermIdent (Set ConstructorIdent))),allNonterminals_Inh_Alt :: !((Set NontermIdent)),nts_Inh_Alt :: !((Set NontermIdent))}+data Syn_Alt = Syn_Alt {collectedConstructorNames_Syn_Alt :: !((Set ConstructorIdent)),collectedFields_Syn_Alt :: !(([(NontermIdent, ConstructorIdent, FieldMap)]))}+wrap_Alt :: T_Alt ->+ Inh_Alt ->+ Syn_Alt +wrap_Alt (T_Alt sem ) (Inh_Alt _lhsIallConstructors _lhsIallNonterminals _lhsInts ) =+ (let ( _lhsOcollectedConstructorNames,_lhsOcollectedFields) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts + in (Syn_Alt _lhsOcollectedConstructorNames _lhsOcollectedFields ))+sem_Alt_Alt :: Pos ->+ T_ConstructorSet ->+ Fields ->+ T_Alt +sem_Alt_Alt pos_ (T_ConstructorSet names_ ) fields_ =+ (T_Alt (\ _lhsIallConstructors+ _lhsIallNonterminals+ _lhsInts ->+ (let _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _namesIcollectedConstructorNames :: (Set ConstructorIdent)+ _namesIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _namesIerrors :: (Seq Error)+ -- "Transform.ag"(line 238, column 10)+ _lhsOcollectedFields =+ ({-# LINE 238 "Transform.ag" #-}+ let fieldTable =+ [ (attr, makeType _lhsIallNonterminals tp)+ | (attr, tp) <- fields_+ ]+ in [ (nt, con, fieldTable)+ | nt <- Set.toList _lhsInts+ , con <- Set.toList (_namesIconstructors (Map.findWithDefault Set.empty nt _lhsIallConstructors))+ ]+ {-# LINE 991 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 93, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 93 "Transform.ag" #-}+ _namesIcollectedConstructorNames+ {-# LINE 997 "Transform.hs" #-}+ )+ ( _namesIcollectedConstructorNames,_namesIconstructors,_namesIerrors) =+ names_ + in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) )+-- Alts --------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allConstructors : Map NontermIdent (Set ConstructorIdent)+ allNonterminals : Set NontermIdent+ nts : Set NontermIdent+ synthesized attributes:+ collectedConstructorNames : Set ConstructorIdent+ collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]+ alternatives:+ alternative Cons:+ child hd : Alt + child tl : Alts + alternative Nil:+-}+-- cata+sem_Alts :: Alts ->+ T_Alts +sem_Alts list =+ (Prelude.foldr sem_Alts_Cons sem_Alts_Nil (Prelude.map sem_Alt list) )+-- semantic domain+newtype T_Alts = T_Alts ((Map NontermIdent (Set ConstructorIdent)) ->+ (Set NontermIdent) ->+ (Set NontermIdent) ->+ ( (Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)])))+data Inh_Alts = Inh_Alts {allConstructors_Inh_Alts :: !((Map NontermIdent (Set ConstructorIdent))),allNonterminals_Inh_Alts :: !((Set NontermIdent)),nts_Inh_Alts :: !((Set NontermIdent))}+data Syn_Alts = Syn_Alts {collectedConstructorNames_Syn_Alts :: !((Set ConstructorIdent)),collectedFields_Syn_Alts :: !(([(NontermIdent, ConstructorIdent, FieldMap)]))}+wrap_Alts :: T_Alts ->+ Inh_Alts ->+ Syn_Alts +wrap_Alts (T_Alts sem ) (Inh_Alts _lhsIallConstructors _lhsIallNonterminals _lhsInts ) =+ (let ( _lhsOcollectedConstructorNames,_lhsOcollectedFields) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts + in (Syn_Alts _lhsOcollectedConstructorNames _lhsOcollectedFields ))+sem_Alts_Cons :: T_Alt ->+ T_Alts ->+ T_Alts +sem_Alts_Cons (T_Alt hd_ ) (T_Alts tl_ ) =+ (T_Alts (\ _lhsIallConstructors+ _lhsIallNonterminals+ _lhsInts ->+ (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _hdOallNonterminals :: (Set NontermIdent)+ _hdOnts :: (Set NontermIdent)+ _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _tlOallNonterminals :: (Set NontermIdent)+ _tlOnts :: (Set NontermIdent)+ _hdIcollectedConstructorNames :: (Set ConstructorIdent)+ _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _tlIcollectedConstructorNames :: (Set ConstructorIdent)+ _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ -- use rule "Transform.ag"(line 93, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 93 "Transform.ag" #-}+ _hdIcollectedConstructorNames `Set.union` _tlIcollectedConstructorNames+ {-# LINE 1059 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ _hdIcollectedFields ++ _tlIcollectedFields+ {-# LINE 1065 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallConstructors =+ ({-# LINE 96 "Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 1071 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 1077 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOnts =+ ({-# LINE 167 "Transform.ag" #-}+ _lhsInts+ {-# LINE 1083 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallConstructors =+ ({-# LINE 96 "Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 1089 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 1095 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOnts =+ ({-# LINE 167 "Transform.ag" #-}+ _lhsInts+ {-# LINE 1101 "Transform.hs" #-}+ )+ ( _hdIcollectedConstructorNames,_hdIcollectedFields) =+ hd_ _hdOallConstructors _hdOallNonterminals _hdOnts + ( _tlIcollectedConstructorNames,_tlIcollectedFields) =+ tl_ _tlOallConstructors _tlOallNonterminals _tlOnts + in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) )+sem_Alts_Nil :: T_Alts +sem_Alts_Nil =+ (T_Alts (\ _lhsIallConstructors+ _lhsIallNonterminals+ _lhsInts ->+ (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ -- use rule "Transform.ag"(line 93, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 93 "Transform.ag" #-}+ Set.empty+ {-# LINE 1119 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 1125 "Transform.hs" #-}+ )+ in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) )+-- Attrs -------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allFields : DataTypes+ allNonterminals : Set NontermIdent+ nts : Set NontermIdent+ options : Options+ chained attribute:+ attrDecls : Map NontermIdent (Attributes, Attributes)+ synthesized attributes:+ errors : Seq Error+ useMap : Map NontermIdent (Map Identifier (String,String,String))+ alternatives:+ alternative Attrs:+ child pos : {Pos}+ child inh : {AttrNames}+ child chn : {AttrNames}+ child syn : {AttrNames}+ visit 0:+ local _tup1 : _+ local attrDecls : _+ local errors : _+ local _tup2 : _+ local inherited : _+ local synthesized : _+ local useMap : _+ local errors1 : _+-}+-- cata+sem_Attrs :: Attrs ->+ T_Attrs +sem_Attrs (Attrs _pos _inh _chn _syn ) =+ (sem_Attrs_Attrs _pos _inh _chn _syn )+-- semantic domain+newtype T_Attrs = T_Attrs (DataTypes ->+ (Set NontermIdent) ->+ (Map NontermIdent (Attributes, Attributes)) ->+ (Set NontermIdent) ->+ Options ->+ ( (Map NontermIdent (Attributes, Attributes)),(Seq Error),(Map NontermIdent (Map Identifier (String,String,String)))))+data Inh_Attrs = Inh_Attrs {allFields_Inh_Attrs :: !(DataTypes),allNonterminals_Inh_Attrs :: !((Set NontermIdent)),attrDecls_Inh_Attrs :: !((Map NontermIdent (Attributes, Attributes))),nts_Inh_Attrs :: !((Set NontermIdent)),options_Inh_Attrs :: !(Options)}+data Syn_Attrs = Syn_Attrs {attrDecls_Syn_Attrs :: !((Map NontermIdent (Attributes, Attributes))),errors_Syn_Attrs :: !((Seq Error)),useMap_Syn_Attrs :: !((Map NontermIdent (Map Identifier (String,String,String))))}+wrap_Attrs :: T_Attrs ->+ Inh_Attrs ->+ Syn_Attrs +wrap_Attrs (T_Attrs sem ) (Inh_Attrs _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsInts _lhsIoptions ) =+ (let ( _lhsOattrDecls,_lhsOerrors,_lhsOuseMap) = sem _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsInts _lhsIoptions + in (Syn_Attrs _lhsOattrDecls _lhsOerrors _lhsOuseMap ))+sem_Attrs_Attrs :: Pos ->+ AttrNames ->+ AttrNames ->+ AttrNames ->+ T_Attrs +sem_Attrs_Attrs pos_ inh_ chn_ syn_ =+ (T_Attrs (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsInts+ _lhsIoptions ->+ (let _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOerrors :: (Seq Error)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ -- "Transform.ag"(line 920, column 15)+ __tup1 =+ ({-# LINE 920 "Transform.ag" #-}+ checkAttrs _lhsIallFields (Set.toList _lhsInts) _inherited _synthesized _lhsIattrDecls+ {-# LINE 1195 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 920, column 15)+ (_attrDecls,_) =+ ({-# LINE 920 "Transform.ag" #-}+ __tup1+ {-# LINE 1201 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 920, column 15)+ (_,_errors) =+ ({-# LINE 920 "Transform.ag" #-}+ __tup1+ {-# LINE 1207 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 922, column 15)+ __tup2 =+ ({-# LINE 922 "Transform.ag" #-}+ let splitAttrs xs = unzip [ ((n,makeType _lhsIallNonterminals t),(n,ud))+ | (n,t,ud) <- xs+ ]+ (inh,_) = splitAttrs inh_+ (chn,uses1) = splitAttrs chn_+ (syn,uses2) = splitAttrs syn_+ isUse (n,(e1,e2,_)) = not (null e1 || null e2)+ in (inh++chn,chn++syn, Map.fromList (Prelude.filter isUse (uses1++uses2)))+ {-# LINE 1220 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 922, column 15)+ (_inherited,_,_) =+ ({-# LINE 922 "Transform.ag" #-}+ __tup2+ {-# LINE 1226 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 922, column 15)+ (_,_synthesized,_) =+ ({-# LINE 922 "Transform.ag" #-}+ __tup2+ {-# LINE 1232 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 922, column 15)+ (_,_,_useMap) =+ ({-# LINE 922 "Transform.ag" #-}+ __tup2+ {-# LINE 1238 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 930, column 11)+ _lhsOuseMap =+ ({-# LINE 930 "Transform.ag" #-}+ Map.fromList (zip (Set.toList _lhsInts) (repeat _useMap))+ {-# LINE 1244 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 932, column 11)+ _errors1 =+ ({-# LINE 932 "Transform.ag" #-}+ if checkParseTy _lhsIoptions+ then let attrs = inh_ ++ syn_ ++ chn_+ items = map (\(ident,tp,_) -> (getPos ident, tp)) attrs+ errs = map check items+ check (pos,Haskell s) =+ let exp = Expression pos tks+ tks = [tk]+ tk = HsToken s pos+ in Seq.fromList $ checkTy exp+ check _ = Seq.empty+ in foldr (Seq.><) Seq.empty errs+ else Seq.empty+ {-# LINE 1261 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 944, column 11)+ _lhsOerrors =+ ({-# LINE 944 "Transform.ag" #-}+ _errors Seq.>< _errors1+ {-# LINE 1267 "Transform.hs" #-}+ )+ -- copy rule (from local)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _attrDecls+ {-# LINE 1273 "Transform.hs" #-}+ )+ in ( _lhsOattrDecls,_lhsOerrors,_lhsOuseMap))) )+-- ConstructorSet ----------------------------------------------+{-+ visit 0:+ synthesized attributes:+ collectedConstructorNames : Set ConstructorIdent+ constructors : (Set ConstructorIdent->Set ConstructorIdent)+ errors : Seq Error+ alternatives:+ alternative CAll:+ alternative CDifference:+ child set1 : ConstructorSet + child set2 : ConstructorSet + alternative CName:+ child name : {ConstructorIdent}+ alternative CUnion:+ child set1 : ConstructorSet + child set2 : ConstructorSet +-}+-- cata+sem_ConstructorSet :: ConstructorSet ->+ T_ConstructorSet +sem_ConstructorSet (CAll ) =+ (sem_ConstructorSet_CAll )+sem_ConstructorSet (CDifference _set1 _set2 ) =+ (sem_ConstructorSet_CDifference (sem_ConstructorSet _set1 ) (sem_ConstructorSet _set2 ) )+sem_ConstructorSet (CName _name ) =+ (sem_ConstructorSet_CName _name )+sem_ConstructorSet (CUnion _set1 _set2 ) =+ (sem_ConstructorSet_CUnion (sem_ConstructorSet _set1 ) (sem_ConstructorSet _set2 ) )+-- semantic domain+newtype T_ConstructorSet = T_ConstructorSet (( (Set ConstructorIdent),((Set ConstructorIdent->Set ConstructorIdent)),(Seq Error)))+data Inh_ConstructorSet = Inh_ConstructorSet {}+data Syn_ConstructorSet = Syn_ConstructorSet {collectedConstructorNames_Syn_ConstructorSet :: !((Set ConstructorIdent)),constructors_Syn_ConstructorSet :: !(((Set ConstructorIdent->Set ConstructorIdent))),errors_Syn_ConstructorSet :: !((Seq Error))}+wrap_ConstructorSet :: T_ConstructorSet ->+ Inh_ConstructorSet ->+ Syn_ConstructorSet +wrap_ConstructorSet (T_ConstructorSet sem ) (Inh_ConstructorSet ) =+ (let ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors) = sem + in (Syn_ConstructorSet _lhsOcollectedConstructorNames _lhsOconstructors _lhsOerrors ))+sem_ConstructorSet_CAll :: T_ConstructorSet +sem_ConstructorSet_CAll =+ (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOerrors :: (Seq Error)+ -- "Transform.ag"(line 724, column 17)+ _lhsOconstructors =+ ({-# LINE 724 "Transform.ag" #-}+ \ds -> ds+ {-# LINE 1324 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 93, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 93 "Transform.ag" #-}+ Set.empty+ {-# LINE 1330 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 1336 "Transform.hs" #-}+ )+ in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )+sem_ConstructorSet_CDifference :: T_ConstructorSet ->+ T_ConstructorSet ->+ T_ConstructorSet +sem_ConstructorSet_CDifference (T_ConstructorSet set1_ ) (T_ConstructorSet set2_ ) =+ (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOerrors :: (Seq Error)+ _set1IcollectedConstructorNames :: (Set ConstructorIdent)+ _set1Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _set1Ierrors :: (Seq Error)+ _set2IcollectedConstructorNames :: (Set ConstructorIdent)+ _set2Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _set2Ierrors :: (Seq Error)+ -- "Transform.ag"(line 723, column 17)+ _lhsOconstructors =+ ({-# LINE 723 "Transform.ag" #-}+ \ds -> _set1Iconstructors ds `Set.difference` _set2Iconstructors ds+ {-# LINE 1356 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 93, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 93 "Transform.ag" #-}+ _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames+ {-# LINE 1362 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 1368 "Transform.hs" #-}+ )+ ( _set1IcollectedConstructorNames,_set1Iconstructors,_set1Ierrors) =+ set1_ + ( _set2IcollectedConstructorNames,_set2Iconstructors,_set2Ierrors) =+ set2_ + in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )+sem_ConstructorSet_CName :: ConstructorIdent ->+ T_ConstructorSet +sem_ConstructorSet_CName name_ =+ (T_ConstructorSet (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _lhsOerrors :: (Seq Error)+ -- "Transform.ag"(line 568, column 11)+ _lhsOcollectedConstructorNames =+ ({-# LINE 568 "Transform.ag" #-}+ Set.singleton name_+ {-# LINE 1385 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 721, column 17)+ _lhsOconstructors =+ ({-# LINE 721 "Transform.ag" #-}+ \ds -> Set.singleton name_+ {-# LINE 1391 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 1397 "Transform.hs" #-}+ )+ in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )+sem_ConstructorSet_CUnion :: T_ConstructorSet ->+ T_ConstructorSet ->+ T_ConstructorSet +sem_ConstructorSet_CUnion (T_ConstructorSet set1_ ) (T_ConstructorSet set2_ ) =+ (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOerrors :: (Seq Error)+ _set1IcollectedConstructorNames :: (Set ConstructorIdent)+ _set1Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _set1Ierrors :: (Seq Error)+ _set2IcollectedConstructorNames :: (Set ConstructorIdent)+ _set2Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _set2Ierrors :: (Seq Error)+ -- "Transform.ag"(line 722, column 17)+ _lhsOconstructors =+ ({-# LINE 722 "Transform.ag" #-}+ \ds -> _set1Iconstructors ds `Set.union` _set2Iconstructors ds+ {-# LINE 1417 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 93, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 93 "Transform.ag" #-}+ _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames+ {-# LINE 1423 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 1429 "Transform.hs" #-}+ )+ ( _set1IcollectedConstructorNames,_set1Iconstructors,_set1Ierrors) =+ set1_ + ( _set2IcollectedConstructorNames,_set2Iconstructors,_set2Ierrors) =+ set2_ + in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )+-- Elem --------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allAttrDecls : Map NontermIdent (Attributes, Attributes)+ allConstructors : Map NontermIdent (Set ConstructorIdent)+ allFields : DataTypes+ allNonterminals : Set NontermIdent+ definedSets : DefinedSets+ options : Options+ chained attributes:+ attrDecls : Map NontermIdent (Attributes, Attributes)+ defSets : Map Identifier (Set NontermIdent,Set Identifier)+ synthesized attributes:+ attrOrderCollect : AttrOrderMap+ blocks : Blocks+ collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]+ collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]+ collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent)+ collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]+ collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]+ collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]+ collectedNames : Set Identifier+ collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]+ collectedSetNames : Set Identifier+ collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]+ collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]+ ctxCollect : ContextMap+ derivings : Derivings+ errors : Seq Error+ moduleDecl : Maybe (String,String,String)+ paramsCollect : ParamMap+ pragmas : Options -> Options+ semPragmasCollect : PragmaMap+ typeSyns : TypeSyns+ useMap : Map NontermIdent (Map Identifier (String,String,String))+ wrappers : Set NontermIdent+ alternatives:+ alternative Attr:+ child pos : {Pos}+ child ctx : {ClassContext}+ child names : NontSet + child attrs : Attrs + alternative Data:+ child pos : {Pos}+ child ctx : {ClassContext}+ child names : NontSet + child params : {[Identifier]}+ child attrs : Attrs + child alts : Alts + child ext : {Bool}+ alternative Deriving:+ child pos : {Pos}+ child set : NontSet + child classes : {[NontermIdent]}+ alternative Module:+ child pos : {Pos}+ child name : {String}+ child exports : {String}+ child imports : {String}+ alternative Pragma:+ child pos : {Pos}+ child names : {[NontermIdent]}+ alternative Sem:+ child pos : {Pos}+ child ctx : {ClassContext}+ child names : NontSet + child attrs : Attrs + child alts : SemAlts + alternative Set:+ child pos : {Pos}+ child name : {NontermIdent}+ child merge : {Bool}+ child set : NontSet + visit 0:+ local _tup3 : _+ local defSets2 : _+ local errs : _+ alternative Txt:+ child pos : {Pos}+ child name : {Identifier}+ child mbNt : {Maybe NontermIdent}+ child lines : {[String]}+ visit 0:+ local blockInfo : _+ local blockValue : _+ alternative Type:+ child pos : {Pos}+ child ctx : {ClassContext}+ child name : {NontermIdent}+ child params : {[Identifier]}+ child type : {ComplexType}+ visit 0:+ local expanded : _+ local argType : _+ alternative Wrapper:+ child pos : {Pos}+ child set : NontSet +-}+-- cata+sem_Elem :: Elem ->+ T_Elem +sem_Elem (Attr _pos _ctx _names _attrs ) =+ (sem_Elem_Attr _pos _ctx (sem_NontSet _names ) (sem_Attrs _attrs ) )+sem_Elem (Data _pos _ctx _names _params _attrs _alts _ext ) =+ (sem_Elem_Data _pos _ctx (sem_NontSet _names ) _params (sem_Attrs _attrs ) (sem_Alts _alts ) _ext )+sem_Elem (Deriving _pos _set _classes ) =+ (sem_Elem_Deriving _pos (sem_NontSet _set ) _classes )+sem_Elem (Module _pos _name _exports _imports ) =+ (sem_Elem_Module _pos _name _exports _imports )+sem_Elem (Pragma _pos _names ) =+ (sem_Elem_Pragma _pos _names )+sem_Elem (Sem _pos _ctx _names _attrs _alts ) =+ (sem_Elem_Sem _pos _ctx (sem_NontSet _names ) (sem_Attrs _attrs ) (sem_SemAlts _alts ) )+sem_Elem (Set _pos _name _merge _set ) =+ (sem_Elem_Set _pos _name _merge (sem_NontSet _set ) )+sem_Elem (Txt _pos _name _mbNt _lines ) =+ (sem_Elem_Txt _pos _name _mbNt _lines )+sem_Elem (Type _pos _ctx _name _params _type ) =+ (sem_Elem_Type _pos _ctx _name _params _type )+sem_Elem (Wrapper _pos _set ) =+ (sem_Elem_Wrapper _pos (sem_NontSet _set ) )+-- semantic domain+newtype T_Elem = T_Elem ((Map NontermIdent (Attributes, Attributes)) ->+ (Map NontermIdent (Set ConstructorIdent)) ->+ DataTypes ->+ (Set NontermIdent) ->+ (Map NontermIdent (Attributes, Attributes)) ->+ (Map Identifier (Set NontermIdent,Set Identifier)) ->+ DefinedSets ->+ Options ->+ ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),(Set Identifier),([ (NontermIdent, ConstructorIdent, RuleInfo)]),(Set Identifier),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),ContextMap,(Map Identifier (Set NontermIdent,Set Identifier)),Derivings,(Seq Error),(Maybe (String,String,String)),ParamMap,(Options -> Options),PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent)))+data Inh_Elem = Inh_Elem {allAttrDecls_Inh_Elem :: !((Map NontermIdent (Attributes, Attributes))),allConstructors_Inh_Elem :: !((Map NontermIdent (Set ConstructorIdent))),allFields_Inh_Elem :: !(DataTypes),allNonterminals_Inh_Elem :: !((Set NontermIdent)),attrDecls_Inh_Elem :: !((Map NontermIdent (Attributes, Attributes))),defSets_Inh_Elem :: !((Map Identifier (Set NontermIdent,Set Identifier))),definedSets_Inh_Elem :: !(DefinedSets),options_Inh_Elem :: !(Options)}+data Syn_Elem = Syn_Elem {attrDecls_Syn_Elem :: !((Map NontermIdent (Attributes, Attributes))),attrOrderCollect_Syn_Elem :: !(AttrOrderMap),blocks_Syn_Elem :: !(Blocks),collectedArounds_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConstructorsMap_Syn_Elem :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elem :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedNames_Syn_Elem :: !((Set Identifier)),collectedRules_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSetNames_Syn_Elem :: !((Set Identifier)),collectedSigs_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),ctxCollect_Syn_Elem :: !(ContextMap),defSets_Syn_Elem :: !((Map Identifier (Set NontermIdent,Set Identifier))),derivings_Syn_Elem :: !(Derivings),errors_Syn_Elem :: !((Seq Error)),moduleDecl_Syn_Elem :: !((Maybe (String,String,String))),paramsCollect_Syn_Elem :: !(ParamMap),pragmas_Syn_Elem :: !((Options -> Options)),semPragmasCollect_Syn_Elem :: !(PragmaMap),typeSyns_Syn_Elem :: !(TypeSyns),useMap_Syn_Elem :: !((Map NontermIdent (Map Identifier (String,String,String)))),wrappers_Syn_Elem :: !((Set NontermIdent))}+wrap_Elem :: T_Elem ->+ Inh_Elem ->+ Syn_Elem +wrap_Elem (T_Elem sem ) (Inh_Elem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions ) =+ (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions + in (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers ))+sem_Elem_Attr :: Pos ->+ ClassContext ->+ T_NontSet ->+ T_Attrs ->+ T_Elem +sem_Elem_Attr pos_ ctx_ (T_NontSet names_ ) (T_Attrs attrs_ ) =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOctxCollect :: ContextMap+ _attrsOnts :: (Set NontermIdent)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _namesOallFields :: DataTypes+ _namesOallNonterminals :: (Set NontermIdent)+ _namesOdefinedSets :: DefinedSets+ _attrsOallFields :: DataTypes+ _attrsOallNonterminals :: (Set NontermIdent)+ _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsOoptions :: Options+ _namesIcollectedNames :: (Set Identifier)+ _namesIerrors :: (Seq Error)+ _namesInontSet :: (Set NontermIdent)+ _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsIerrors :: (Seq Error)+ _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ -- "Transform.ag"(line 872, column 7)+ _lhsOctxCollect =+ ({-# LINE 872 "Transform.ag" #-}+ if null ctx_+ then Map.empty+ else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]+ {-# LINE 1635 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 916, column 10)+ _attrsOnts =+ ({-# LINE 916 "Transform.ag" #-}+ _namesInontSet+ {-# LINE 1641 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 813, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 813 "Transform.ag" #-}+ Map.empty+ {-# LINE 1647 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 1653 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 1659 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 1665 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 1671 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 1677 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 1683 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 1689 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _namesIcollectedNames+ {-# LINE 1695 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 1701 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 1707 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 1713 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 1719 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 893, column 33)+ _lhsOderivings =+ ({-# LINE 893 "Transform.ag" #-}+ Map.empty+ {-# LINE 1725 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _namesIerrors Seq.>< _attrsIerrors+ {-# LINE 1731 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1089, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1089 "Transform.ag" #-}+ mzero+ {-# LINE 1737 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 845, column 37)+ _lhsOparamsCollect =+ ({-# LINE 845 "Transform.ag" #-}+ Map.empty+ {-# LINE 1743 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 739, column 34)+ _lhsOpragmas =+ ({-# LINE 739 "Transform.ag" #-}+ id+ {-# LINE 1749 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 785, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 785 "Transform.ag" #-}+ Map.empty+ {-# LINE 1755 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 1761 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ _attrsIuseMap+ {-# LINE 1767 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 1773 "Transform.hs" #-}+ )+ -- copy rule (up)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _attrsIattrDecls+ {-# LINE 1779 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 1785 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 1791 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 1797 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 1803 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 1809 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 1815 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 1821 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 1827 "Transform.hs" #-}+ )+ ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =+ names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets + ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) =+ attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Data :: Pos ->+ ClassContext ->+ T_NontSet ->+ ([Identifier]) ->+ T_Attrs ->+ T_Alts ->+ Bool ->+ T_Elem +sem_Elem_Data pos_ ctx_ (T_NontSet names_ ) params_ (T_Attrs attrs_ ) (T_Alts alts_ ) ext_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _altsOnts :: (Set NontermIdent)+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOparamsCollect :: ParamMap+ _lhsOctxCollect :: ContextMap+ _attrsOnts :: (Set NontermIdent)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _namesOallFields :: DataTypes+ _namesOallNonterminals :: (Set NontermIdent)+ _namesOdefinedSets :: DefinedSets+ _attrsOallFields :: DataTypes+ _attrsOallNonterminals :: (Set NontermIdent)+ _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsOoptions :: Options+ _altsOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _altsOallNonterminals :: (Set NontermIdent)+ _namesIcollectedNames :: (Set Identifier)+ _namesIerrors :: (Seq Error)+ _namesInontSet :: (Set NontermIdent)+ _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsIerrors :: (Seq Error)+ _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _altsIcollectedConstructorNames :: (Set ConstructorIdent)+ _altsIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ -- "Transform.ag"(line 170, column 10)+ _altsOnts =+ ({-# LINE 170 "Transform.ag" #-}+ _namesInontSet+ {-# LINE 1899 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 574, column 11)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 574 "Transform.ag" #-}+ Map.fromList+ [ (n, _altsIcollectedConstructorNames)+ | n <- Set.toList _namesInontSet+ ]+ {-# LINE 1908 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 849, column 7)+ _lhsOparamsCollect =+ ({-# LINE 849 "Transform.ag" #-}+ if null params_+ then Map.empty+ else Map.fromList [(nt, params_) | nt <- Set.toList _namesInontSet]+ {-# LINE 1916 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 872, column 7)+ _lhsOctxCollect =+ ({-# LINE 872 "Transform.ag" #-}+ if null ctx_+ then Map.empty+ else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]+ {-# LINE 1924 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 915, column 10)+ _attrsOnts =+ ({-# LINE 915 "Transform.ag" #-}+ _namesInontSet+ {-# LINE 1930 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 813, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 813 "Transform.ag" #-}+ Map.empty+ {-# LINE 1936 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 1942 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 1948 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 1954 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ _altsIcollectedFields+ {-# LINE 1960 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 1966 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 1972 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _namesIcollectedNames+ {-# LINE 1978 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 1984 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 1990 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 1996 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 2002 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 893, column 33)+ _lhsOderivings =+ ({-# LINE 893 "Transform.ag" #-}+ Map.empty+ {-# LINE 2008 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _namesIerrors Seq.>< _attrsIerrors+ {-# LINE 2014 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1089, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1089 "Transform.ag" #-}+ mzero+ {-# LINE 2020 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 739, column 34)+ _lhsOpragmas =+ ({-# LINE 739 "Transform.ag" #-}+ id+ {-# LINE 2026 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 785, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 785 "Transform.ag" #-}+ Map.empty+ {-# LINE 2032 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 2038 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ _attrsIuseMap+ {-# LINE 2044 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 2050 "Transform.hs" #-}+ )+ -- copy rule (up)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _attrsIattrDecls+ {-# LINE 2056 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 2062 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 2068 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 2074 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 2080 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 2086 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 2092 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 2098 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 2104 "Transform.hs" #-}+ )+ -- copy rule (down)+ _altsOallConstructors =+ ({-# LINE 96 "Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 2110 "Transform.hs" #-}+ )+ -- copy rule (down)+ _altsOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 2116 "Transform.hs" #-}+ )+ ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =+ names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets + ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) =+ attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions + ( _altsIcollectedConstructorNames,_altsIcollectedFields) =+ alts_ _altsOallConstructors _altsOallNonterminals _altsOnts + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Deriving :: Pos ->+ T_NontSet ->+ ([NontermIdent]) ->+ T_Elem +sem_Elem_Deriving pos_ (T_NontSet set_ ) classes_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOderivings :: Derivings+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _setOallFields :: DataTypes+ _setOallNonterminals :: (Set NontermIdent)+ _setOdefinedSets :: DefinedSets+ _setIcollectedNames :: (Set Identifier)+ _setIerrors :: (Seq Error)+ _setInontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 900, column 14)+ _lhsOderivings =+ ({-# LINE 900 "Transform.ag" #-}+ Map.fromList [(nt,Set.fromList classes_) | nt <- Set.toList _setInontSet]+ {-# LINE 2173 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 813, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 813 "Transform.ag" #-}+ Map.empty+ {-# LINE 2179 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 2185 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 2191 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 2197 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 2203 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 2209 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 2215 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 2221 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _setIcollectedNames+ {-# LINE 2227 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 2233 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 2239 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 2245 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 2251 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 868, column 34)+ _lhsOctxCollect =+ ({-# LINE 868 "Transform.ag" #-}+ Map.empty+ {-# LINE 2257 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _setIerrors+ {-# LINE 2263 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1089, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1089 "Transform.ag" #-}+ mzero+ {-# LINE 2269 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 845, column 37)+ _lhsOparamsCollect =+ ({-# LINE 845 "Transform.ag" #-}+ Map.empty+ {-# LINE 2275 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 739, column 34)+ _lhsOpragmas =+ ({-# LINE 739 "Transform.ag" #-}+ id+ {-# LINE 2281 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 785, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 785 "Transform.ag" #-}+ Map.empty+ {-# LINE 2287 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 2293 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 2299 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 2305 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 2311 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 2317 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 2323 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 2329 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 2335 "Transform.hs" #-}+ )+ ( _setIcollectedNames,_setIerrors,_setInontSet) =+ set_ _setOallFields _setOallNonterminals _setOdefinedSets + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Module :: Pos ->+ String ->+ String ->+ String ->+ T_Elem +sem_Elem_Module pos_ name_ exports_ imports_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- "Transform.ag"(line 1093, column 7)+ _lhsOmoduleDecl =+ ({-# LINE 1093 "Transform.ag" #-}+ Just (name_, exports_, imports_)+ {-# LINE 2383 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 813, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 813 "Transform.ag" #-}+ Map.empty+ {-# LINE 2389 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 2395 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 2401 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 2407 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 2413 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 2419 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 2425 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 2431 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ Set.empty+ {-# LINE 2437 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 2443 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 2449 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 2455 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 2461 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 868, column 34)+ _lhsOctxCollect =+ ({-# LINE 868 "Transform.ag" #-}+ Map.empty+ {-# LINE 2467 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 893, column 33)+ _lhsOderivings =+ ({-# LINE 893 "Transform.ag" #-}+ Map.empty+ {-# LINE 2473 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 2479 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 845, column 37)+ _lhsOparamsCollect =+ ({-# LINE 845 "Transform.ag" #-}+ Map.empty+ {-# LINE 2485 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 739, column 34)+ _lhsOpragmas =+ ({-# LINE 739 "Transform.ag" #-}+ id+ {-# LINE 2491 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 785, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 785 "Transform.ag" #-}+ Map.empty+ {-# LINE 2497 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 2503 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 2509 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 2515 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 2521 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 2527 "Transform.hs" #-}+ )+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Pragma :: Pos ->+ ([NontermIdent]) ->+ T_Elem +sem_Elem_Pragma pos_ names_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOpragmas :: (Options -> Options)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- "Transform.ag"(line 742, column 13)+ _lhsOpragmas =+ ({-# LINE 742 "Transform.ag" #-}+ let mk n o = case getName n of+ "gencatas" -> o { folds = True }+ "nogencatas" -> o { folds = False }+ "gendatas" -> o { dataTypes = True }+ "nogendatas" -> o { dataTypes = False }+ "gensems" -> o { semfuns = True }+ "nogensems" -> o { semfuns = False }+ "gentypesigs" -> o { typeSigs = True }+ "nogentypesigs"-> o { typeSigs = False }+ "nocycle" -> o { withCycle = False }+ "cycle" -> o { withCycle = True }+ "nostrictdata" -> o { strictData = False }+ "strictdata" -> o { strictData = True }+ "nostrictcase" -> o { strictCases = False }+ "strictcase" -> o { strictCases = True }+ "strictercase" -> o { strictCases = True, stricterCases = True }+ "nostrictwrap" -> o { strictWrap = False }+ "strictwrap" -> o { strictWrap = True }+ "novisit" -> o { visit = False }+ "visit" -> o { visit = True }+ "nocase" -> o { cases = False }+ "case" -> o { cases = True }+ "noseq" -> o { withSeq = False }+ "seq" -> o { withSeq = True }+ "nounbox" -> o { unbox = False }+ "unbox" -> o { unbox = True }+ "bangpats" -> o { bangpats = True }+ "breadthfirst" -> o { breadthFirst = True }+ "breadthfirstStrict" -> o { breadthFirstStrict = True }+ "nooptimize" -> o { cases = False , visit = False }+ "optimize" -> o { cases = True , visit = True }+ "strictsem" -> o { strictSems = True }+ "gentraces" -> o { genTraces = True }+ "genusetraces" -> o { genUseTraces = True }+ "splitsems" -> o { splitSems = True }+ "gencostcentres" -> o { genCostCentres = True }+ "sepsemmods" -> o { sepSemMods = True }+ "genlinepragmas" -> o { genLinePragmas = True }+ "newtypes" -> o { newtypes = True }+ "nonewtypes" -> o { newtypes = False }+ _ -> o+ in \o -> foldr mk o names_+ {-# LINE 2612 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 813, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 813 "Transform.ag" #-}+ Map.empty+ {-# LINE 2618 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 2624 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 2630 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 2636 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 2642 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 2648 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 2654 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 2660 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ Set.empty+ {-# LINE 2666 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 2672 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 2678 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 2684 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 2690 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 868, column 34)+ _lhsOctxCollect =+ ({-# LINE 868 "Transform.ag" #-}+ Map.empty+ {-# LINE 2696 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 893, column 33)+ _lhsOderivings =+ ({-# LINE 893 "Transform.ag" #-}+ Map.empty+ {-# LINE 2702 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 2708 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1089, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1089 "Transform.ag" #-}+ mzero+ {-# LINE 2714 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 845, column 37)+ _lhsOparamsCollect =+ ({-# LINE 845 "Transform.ag" #-}+ Map.empty+ {-# LINE 2720 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 785, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 785 "Transform.ag" #-}+ Map.empty+ {-# LINE 2726 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 2732 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 2738 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 2744 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 2750 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 2756 "Transform.hs" #-}+ )+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Sem :: Pos ->+ ClassContext ->+ T_NontSet ->+ T_Attrs ->+ T_SemAlts ->+ T_Elem +sem_Elem_Sem pos_ ctx_ (T_NontSet names_ ) (T_Attrs attrs_ ) (T_SemAlts alts_ ) =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _altsOnts :: (Set NontermIdent)+ _lhsOctxCollect :: ContextMap+ _attrsOnts :: (Set NontermIdent)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _namesOallFields :: DataTypes+ _namesOallNonterminals :: (Set NontermIdent)+ _namesOdefinedSets :: DefinedSets+ _attrsOallFields :: DataTypes+ _attrsOallNonterminals :: (Set NontermIdent)+ _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsOoptions :: Options+ _altsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _altsOallFields :: DataTypes+ _altsOoptions :: Options+ _namesIcollectedNames :: (Set Identifier)+ _namesIerrors :: (Seq Error)+ _namesInontSet :: (Set NontermIdent)+ _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsIerrors :: (Seq Error)+ _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _altsIattrOrderCollect :: AttrOrderMap+ _altsIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _altsIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _altsIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _altsIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _altsIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _altsIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _altsIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _altsIerrors :: (Seq Error)+ _altsIsemPragmasCollect :: PragmaMap+ -- "Transform.ag"(line 171, column 10)+ _altsOnts =+ ({-# LINE 171 "Transform.ag" #-}+ _namesInontSet+ {-# LINE 2831 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 872, column 7)+ _lhsOctxCollect =+ ({-# LINE 872 "Transform.ag" #-}+ if null ctx_+ then Map.empty+ else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]+ {-# LINE 2839 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 917, column 10)+ _attrsOnts =+ ({-# LINE 917 "Transform.ag" #-}+ _namesInontSet+ {-# LINE 2845 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 813, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 813 "Transform.ag" #-}+ _altsIattrOrderCollect+ {-# LINE 2851 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 2857 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ _altsIcollectedArounds+ {-# LINE 2863 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ _altsIcollectedAugments+ {-# LINE 2869 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 2875 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 2881 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ _altsIcollectedInsts+ {-# LINE 2887 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ _altsIcollectedMerges+ {-# LINE 2893 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _namesIcollectedNames+ {-# LINE 2899 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ _altsIcollectedRules+ {-# LINE 2905 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 2911 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ _altsIcollectedSigs+ {-# LINE 2917 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ _altsIcollectedUniques+ {-# LINE 2923 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 893, column 33)+ _lhsOderivings =+ ({-# LINE 893 "Transform.ag" #-}+ Map.empty+ {-# LINE 2929 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _namesIerrors Seq.>< _attrsIerrors Seq.>< _altsIerrors+ {-# LINE 2935 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1089, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1089 "Transform.ag" #-}+ mzero+ {-# LINE 2941 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 845, column 37)+ _lhsOparamsCollect =+ ({-# LINE 845 "Transform.ag" #-}+ Map.empty+ {-# LINE 2947 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 739, column 34)+ _lhsOpragmas =+ ({-# LINE 739 "Transform.ag" #-}+ id+ {-# LINE 2953 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 785, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 785 "Transform.ag" #-}+ _altsIsemPragmasCollect+ {-# LINE 2959 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 2965 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ _attrsIuseMap+ {-# LINE 2971 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 2977 "Transform.hs" #-}+ )+ -- copy rule (up)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _attrsIattrDecls+ {-# LINE 2983 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 2989 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 2995 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 3001 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 3007 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 3013 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 3019 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 3025 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 3031 "Transform.hs" #-}+ )+ -- copy rule (down)+ _altsOallAttrDecls =+ ({-# LINE 814 "Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 3037 "Transform.hs" #-}+ )+ -- copy rule (down)+ _altsOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 3043 "Transform.hs" #-}+ )+ -- copy rule (down)+ _altsOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 3049 "Transform.hs" #-}+ )+ ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =+ names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets + ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) =+ attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions + ( _altsIattrOrderCollect,_altsIcollectedArounds,_altsIcollectedAugments,_altsIcollectedInsts,_altsIcollectedMerges,_altsIcollectedRules,_altsIcollectedSigs,_altsIcollectedUniques,_altsIerrors,_altsIsemPragmasCollect) =+ alts_ _altsOallAttrDecls _altsOallFields _altsOnts _altsOoptions + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Set :: Pos ->+ NontermIdent ->+ Bool ->+ T_NontSet ->+ T_Elem +sem_Elem_Set pos_ name_ merge_ (T_NontSet set_ ) =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _lhsOerrors :: (Seq Error)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _setOallFields :: DataTypes+ _setOallNonterminals :: (Set NontermIdent)+ _setOdefinedSets :: DefinedSets+ _setIcollectedNames :: (Set Identifier)+ _setIerrors :: (Seq Error)+ _setInontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 551, column 10)+ _lhsOcollectedSetNames =+ ({-# LINE 551 "Transform.ag" #-}+ Set.singleton name_+ {-# LINE 3107 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 658, column 13)+ __tup3 =+ ({-# LINE 658 "Transform.ag" #-}+ let allUsedNames = Set.unions [ maybe (Set.singleton n)+ snd+ (Map.lookup n _lhsIdefSets)+ | n <- Set.toList _setIcollectedNames+ ]+ (nontSet,e1) | Set.member name_ allUsedNames+ = (Set.empty, Seq.singleton(CyclicSet name_))+ | otherwise = (_setInontSet, Seq.empty)+ (res, e2) = let toAdd = (nontSet,Set.insert name_ allUsedNames)+ union (a,b) (c,d) = (a `Set.union` c, b `Set.union` d)+ in if Set.member name_ _lhsIallNonterminals || not merge_+ then checkDuplicate DupSet name_ toAdd _lhsIdefSets+ else (Map.insertWith union name_ toAdd _lhsIdefSets, Seq.empty)+ in (res, e1 Seq.>< e2)+ {-# LINE 3126 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 658, column 13)+ (_defSets2,_) =+ ({-# LINE 658 "Transform.ag" #-}+ __tup3+ {-# LINE 3132 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 658, column 13)+ (_,_errs) =+ ({-# LINE 658 "Transform.ag" #-}+ __tup3+ {-# LINE 3138 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 672, column 9)+ _lhsOdefSets =+ ({-# LINE 672 "Transform.ag" #-}+ _defSets2+ {-# LINE 3144 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 672, column 9)+ _lhsOerrors =+ ({-# LINE 673 "Transform.ag" #-}+ _errs >< _setIerrors+ {-# LINE 3150 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 813, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 813 "Transform.ag" #-}+ Map.empty+ {-# LINE 3156 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 3162 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 3168 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 3174 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 3180 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 3186 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 3192 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 3198 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _setIcollectedNames+ {-# LINE 3204 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 3210 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 3216 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 3222 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 868, column 34)+ _lhsOctxCollect =+ ({-# LINE 868 "Transform.ag" #-}+ Map.empty+ {-# LINE 3228 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 893, column 33)+ _lhsOderivings =+ ({-# LINE 893 "Transform.ag" #-}+ Map.empty+ {-# LINE 3234 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1089, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1089 "Transform.ag" #-}+ mzero+ {-# LINE 3240 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 845, column 37)+ _lhsOparamsCollect =+ ({-# LINE 845 "Transform.ag" #-}+ Map.empty+ {-# LINE 3246 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 739, column 34)+ _lhsOpragmas =+ ({-# LINE 739 "Transform.ag" #-}+ id+ {-# LINE 3252 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 785, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 785 "Transform.ag" #-}+ Map.empty+ {-# LINE 3258 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 3264 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 3270 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 3276 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 3282 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 3288 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 3294 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 3300 "Transform.hs" #-}+ )+ ( _setIcollectedNames,_setIerrors,_setInontSet) =+ set_ _setOallFields _setOallNonterminals _setOdefinedSets + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Txt :: Pos ->+ Identifier ->+ (Maybe NontermIdent) ->+ ([String]) ->+ T_Elem +sem_Elem_Txt pos_ name_ mbNt_ lines_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOblocks :: Blocks+ _lhsOerrors :: (Seq Error)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- "Transform.ag"(line 180, column 10)+ _blockInfo =+ ({-# LINE 180 "Transform.ag" #-}+ ( let nm = getName name_+ in if nm == "imports"+ then BlockImport+ else if nm == "optpragmas"+ then BlockPragma+ else BlockOther+ , mbNt_+ )+ {-# LINE 3355 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 188, column 10)+ _blockValue =+ ({-# LINE 188 "Transform.ag" #-}+ [(lines_, pos_)]+ {-# LINE 3361 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 189, column 10)+ _lhsOblocks =+ ({-# LINE 189 "Transform.ag" #-}+ Map.singleton _blockInfo _blockValue+ {-# LINE 3367 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 190, column 10)+ _lhsOerrors =+ ({-# LINE 190 "Transform.ag" #-}+ if checkParseBlock _lhsIoptions+ then let exp = Expression pos_ tks+ tks = [tk]+ tk = HsToken (unlines lines_) pos_+ in Seq.fromList $ checkBlock $ exp+ else Seq.empty+ {-# LINE 3378 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 813, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 813 "Transform.ag" #-}+ Map.empty+ {-# LINE 3384 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 3390 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 3396 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 3402 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 3408 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 3414 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 3420 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ Set.empty+ {-# LINE 3426 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 3432 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 3438 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 3444 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 3450 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 868, column 34)+ _lhsOctxCollect =+ ({-# LINE 868 "Transform.ag" #-}+ Map.empty+ {-# LINE 3456 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 893, column 33)+ _lhsOderivings =+ ({-# LINE 893 "Transform.ag" #-}+ Map.empty+ {-# LINE 3462 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1089, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1089 "Transform.ag" #-}+ mzero+ {-# LINE 3468 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 845, column 37)+ _lhsOparamsCollect =+ ({-# LINE 845 "Transform.ag" #-}+ Map.empty+ {-# LINE 3474 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 739, column 34)+ _lhsOpragmas =+ ({-# LINE 739 "Transform.ag" #-}+ id+ {-# LINE 3480 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 785, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 785 "Transform.ag" #-}+ Map.empty+ {-# LINE 3486 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 3492 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 3498 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 3504 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 3510 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 3516 "Transform.hs" #-}+ )+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Type :: Pos ->+ ClassContext ->+ NontermIdent ->+ ([Identifier]) ->+ ComplexType ->+ T_Elem +sem_Elem_Type pos_ ctx_ name_ params_ type_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOtypeSyns :: TypeSyns+ _lhsOparamsCollect :: ParamMap+ _lhsOctxCollect :: ContextMap+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- "Transform.ag"(line 248, column 10)+ _lhsOcollectedFields =+ ({-# LINE 248 "Transform.ag" #-}+ map (\(x,y)->(name_, x, y)) _expanded+ {-# LINE 3563 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 554, column 11)+ _lhsOcollectedNames =+ ({-# LINE 554 "Transform.ag" #-}+ Set.singleton name_+ {-# LINE 3569 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 608, column 11)+ _expanded =+ ({-# LINE 608 "Transform.ag" #-}+ case _argType of+ List tp -> [(Ident "Cons" pos_, [(Ident "hd" pos_, tp)+ ,(Ident "tl" pos_, NT name_ (map getName params_))+ ]+ )+ ,(Ident "Nil" pos_, [])+ ]+ Maybe tp -> [(Ident "Just" pos_, [(Ident "just" pos_, tp)+ ]+ )+ ,(Ident "Nothing" pos_, [])+ ]+ Either tp1 tp2 -> [+ (Ident "Left" pos_, [(Ident "left" pos_, tp1) ])+ , (Ident "Right" pos_, [(Ident "right" pos_, tp2) ])+ ]+ Map tp1 tp2 -> [ (Ident "Entry" pos_, [ (Ident "key" pos_, tp1)+ , (Ident "val" pos_, tp2)+ , (Ident "tl" pos_, NT name_ (map getName params_))+ ])+ , (Ident "Nil" pos_, [])+ ]+ IntMap tp -> [ (Ident "Entry" pos_, [ (Ident "key" pos_, Haskell "Int")+ , (Ident "val" pos_, tp)+ , (Ident "tl" pos_, NT name_ (map getName params_))+ ])+ , (Ident "Nil" pos_, [])+ ]+ Tuple xs -> [(Ident "Tuple" pos_, xs)]+ {-# LINE 3603 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 637, column 11)+ _argType =+ ({-# LINE 637 "Transform.ag" #-}+ case type_ of+ Maybe tp -> Maybe ( makeType _lhsIallNonterminals tp)+ Either tp1 tp2 -> Either ( makeType _lhsIallNonterminals tp1) (makeType _lhsIallNonterminals tp2)+ List tp -> List ( makeType _lhsIallNonterminals tp)+ Tuple xs -> Tuple [(f,makeType _lhsIallNonterminals tp) | (f,tp) <- xs]+ Map tp1 tp2 -> Map ( makeType _lhsIallNonterminals tp1) (makeType _lhsIallNonterminals tp2)+ IntMap tp -> IntMap ( makeType _lhsIallNonterminals tp)+ {-# LINE 3615 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 644, column 11)+ _lhsOtypeSyns =+ ({-# LINE 644 "Transform.ag" #-}+ [(name_,_argType)]+ {-# LINE 3621 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 855, column 7)+ _lhsOparamsCollect =+ ({-# LINE 855 "Transform.ag" #-}+ if null params_+ then Map.empty+ else Map.singleton name_ params_+ {-# LINE 3629 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 878, column 7)+ _lhsOctxCollect =+ ({-# LINE 878 "Transform.ag" #-}+ if null ctx_+ then Map.empty+ else Map.singleton name_ ctx_+ {-# LINE 3637 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 813, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 813 "Transform.ag" #-}+ Map.empty+ {-# LINE 3643 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 3649 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 3655 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 3661 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 3667 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 3673 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 3679 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 3685 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 3691 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 3697 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 3703 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 893, column 33)+ _lhsOderivings =+ ({-# LINE 893 "Transform.ag" #-}+ Map.empty+ {-# LINE 3709 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 3715 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1089, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1089 "Transform.ag" #-}+ mzero+ {-# LINE 3721 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 739, column 34)+ _lhsOpragmas =+ ({-# LINE 739 "Transform.ag" #-}+ id+ {-# LINE 3727 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 785, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 785 "Transform.ag" #-}+ Map.empty+ {-# LINE 3733 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 3739 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 3745 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 3751 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 3757 "Transform.hs" #-}+ )+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Wrapper :: Pos ->+ T_NontSet ->+ T_Elem +sem_Elem_Wrapper pos_ (T_NontSet set_ ) =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _setOallFields :: DataTypes+ _setOallNonterminals :: (Set NontermIdent)+ _setOdefinedSets :: DefinedSets+ _setIcollectedNames :: (Set Identifier)+ _setIerrors :: (Seq Error)+ _setInontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 733, column 13)+ _lhsOwrappers =+ ({-# LINE 733 "Transform.ag" #-}+ _setInontSet+ {-# LINE 3807 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 813, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 813 "Transform.ag" #-}+ Map.empty+ {-# LINE 3813 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 3819 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 3825 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 3831 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 3837 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 3843 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 3849 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 3855 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _setIcollectedNames+ {-# LINE 3861 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 3867 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 3873 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 3879 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 3885 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 868, column 34)+ _lhsOctxCollect =+ ({-# LINE 868 "Transform.ag" #-}+ Map.empty+ {-# LINE 3891 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 893, column 33)+ _lhsOderivings =+ ({-# LINE 893 "Transform.ag" #-}+ Map.empty+ {-# LINE 3897 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _setIerrors+ {-# LINE 3903 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1089, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1089 "Transform.ag" #-}+ mzero+ {-# LINE 3909 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 845, column 37)+ _lhsOparamsCollect =+ ({-# LINE 845 "Transform.ag" #-}+ Map.empty+ {-# LINE 3915 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 739, column 34)+ _lhsOpragmas =+ ({-# LINE 739 "Transform.ag" #-}+ id+ {-# LINE 3921 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 785, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 785 "Transform.ag" #-}+ Map.empty+ {-# LINE 3927 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 3933 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 3939 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 3945 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 3951 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 3957 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 3963 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 3969 "Transform.hs" #-}+ )+ ( _setIcollectedNames,_setIerrors,_setInontSet) =+ set_ _setOallFields _setOallNonterminals _setOdefinedSets + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+-- Elems -------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allAttrDecls : Map NontermIdent (Attributes, Attributes)+ allConstructors : Map NontermIdent (Set ConstructorIdent)+ allFields : DataTypes+ allNonterminals : Set NontermIdent+ definedSets : DefinedSets+ options : Options+ chained attributes:+ attrDecls : Map NontermIdent (Attributes, Attributes)+ defSets : Map Identifier (Set NontermIdent,Set Identifier)+ synthesized attributes:+ attrOrderCollect : AttrOrderMap+ blocks : Blocks+ collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]+ collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]+ collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent)+ collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]+ collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]+ collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]+ collectedNames : Set Identifier+ collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]+ collectedSetNames : Set Identifier+ collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]+ collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]+ ctxCollect : ContextMap+ derivings : Derivings+ errors : Seq Error+ moduleDecl : Maybe (String,String,String)+ paramsCollect : ParamMap+ pragmas : Options -> Options+ semPragmasCollect : PragmaMap+ typeSyns : TypeSyns+ useMap : Map NontermIdent (Map Identifier (String,String,String))+ wrappers : Set NontermIdent+ alternatives:+ alternative Cons:+ child hd : Elem + child tl : Elems + alternative Nil:+-}+-- cata+sem_Elems :: Elems ->+ T_Elems +sem_Elems list =+ (Prelude.foldr sem_Elems_Cons sem_Elems_Nil (Prelude.map sem_Elem list) )+-- semantic domain+newtype T_Elems = T_Elems ((Map NontermIdent (Attributes, Attributes)) ->+ (Map NontermIdent (Set ConstructorIdent)) ->+ DataTypes ->+ (Set NontermIdent) ->+ (Map NontermIdent (Attributes, Attributes)) ->+ (Map Identifier (Set NontermIdent,Set Identifier)) ->+ DefinedSets ->+ Options ->+ ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),(Set Identifier),([ (NontermIdent, ConstructorIdent, RuleInfo)]),(Set Identifier),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),ContextMap,(Map Identifier (Set NontermIdent,Set Identifier)),Derivings,(Seq Error),(Maybe (String,String,String)),ParamMap,(Options -> Options),PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent)))+data Inh_Elems = Inh_Elems {allAttrDecls_Inh_Elems :: !((Map NontermIdent (Attributes, Attributes))),allConstructors_Inh_Elems :: !((Map NontermIdent (Set ConstructorIdent))),allFields_Inh_Elems :: !(DataTypes),allNonterminals_Inh_Elems :: !((Set NontermIdent)),attrDecls_Inh_Elems :: !((Map NontermIdent (Attributes, Attributes))),defSets_Inh_Elems :: !((Map Identifier (Set NontermIdent,Set Identifier))),definedSets_Inh_Elems :: !(DefinedSets),options_Inh_Elems :: !(Options)}+data Syn_Elems = Syn_Elems {attrDecls_Syn_Elems :: !((Map NontermIdent (Attributes, Attributes))),attrOrderCollect_Syn_Elems :: !(AttrOrderMap),blocks_Syn_Elems :: !(Blocks),collectedArounds_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConstructorsMap_Syn_Elems :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elems :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedNames_Syn_Elems :: !((Set Identifier)),collectedRules_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSetNames_Syn_Elems :: !((Set Identifier)),collectedSigs_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),ctxCollect_Syn_Elems :: !(ContextMap),defSets_Syn_Elems :: !((Map Identifier (Set NontermIdent,Set Identifier))),derivings_Syn_Elems :: !(Derivings),errors_Syn_Elems :: !((Seq Error)),moduleDecl_Syn_Elems :: !((Maybe (String,String,String))),paramsCollect_Syn_Elems :: !(ParamMap),pragmas_Syn_Elems :: !((Options -> Options)),semPragmasCollect_Syn_Elems :: !(PragmaMap),typeSyns_Syn_Elems :: !(TypeSyns),useMap_Syn_Elems :: !((Map NontermIdent (Map Identifier (String,String,String)))),wrappers_Syn_Elems :: !((Set NontermIdent))}+wrap_Elems :: T_Elems ->+ Inh_Elems ->+ Syn_Elems +wrap_Elems (T_Elems sem ) (Inh_Elems _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions ) =+ (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions + in (Syn_Elems _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers ))+sem_Elems_Cons :: T_Elem ->+ T_Elems ->+ T_Elems +sem_Elems_Cons (T_Elem hd_ ) (T_Elems tl_ ) =+ (T_Elems (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _hdOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _hdOallFields :: DataTypes+ _hdOallNonterminals :: (Set NontermIdent)+ _hdOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _hdOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _hdOdefinedSets :: DefinedSets+ _hdOoptions :: Options+ _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _tlOallFields :: DataTypes+ _tlOallNonterminals :: (Set NontermIdent)+ _tlOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _tlOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _tlOdefinedSets :: DefinedSets+ _tlOoptions :: Options+ _hdIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _hdIattrOrderCollect :: AttrOrderMap+ _hdIblocks :: Blocks+ _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _hdIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _hdIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _hdIcollectedNames :: (Set Identifier)+ _hdIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _hdIcollectedSetNames :: (Set Identifier)+ _hdIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _hdIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _hdIctxCollect :: ContextMap+ _hdIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _hdIderivings :: Derivings+ _hdIerrors :: (Seq Error)+ _hdImoduleDecl :: (Maybe (String,String,String))+ _hdIparamsCollect :: ParamMap+ _hdIpragmas :: (Options -> Options)+ _hdIsemPragmasCollect :: PragmaMap+ _hdItypeSyns :: TypeSyns+ _hdIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _hdIwrappers :: (Set NontermIdent)+ _tlIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _tlIattrOrderCollect :: AttrOrderMap+ _tlIblocks :: Blocks+ _tlIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _tlIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _tlIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _tlIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _tlIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _tlIcollectedNames :: (Set Identifier)+ _tlIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _tlIcollectedSetNames :: (Set Identifier)+ _tlIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _tlIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _tlIctxCollect :: ContextMap+ _tlIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _tlIderivings :: Derivings+ _tlIerrors :: (Seq Error)+ _tlImoduleDecl :: (Maybe (String,String,String))+ _tlIparamsCollect :: ParamMap+ _tlIpragmas :: (Options -> Options)+ _tlIsemPragmasCollect :: PragmaMap+ _tlItypeSyns :: TypeSyns+ _tlIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _tlIwrappers :: (Set NontermIdent)+ -- use rule "Transform.ag"(line 813, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 813 "Transform.ag" #-}+ _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect+ {-# LINE 4147 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ _hdIblocks `mapUnionWithPlusPlus` _tlIblocks+ {-# LINE 4153 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ _hdIcollectedArounds ++ _tlIcollectedArounds+ {-# LINE 4159 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ _hdIcollectedAugments ++ _tlIcollectedAugments+ {-# LINE 4165 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ _hdIcollectedConstructorsMap `mapUnionWithSetUnion` _tlIcollectedConstructorsMap+ {-# LINE 4171 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ _hdIcollectedFields ++ _tlIcollectedFields+ {-# LINE 4177 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ _hdIcollectedInsts ++ _tlIcollectedInsts+ {-# LINE 4183 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ _hdIcollectedMerges ++ _tlIcollectedMerges+ {-# LINE 4189 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _hdIcollectedNames `Set.union` _tlIcollectedNames+ {-# LINE 4195 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ _hdIcollectedRules ++ _tlIcollectedRules+ {-# LINE 4201 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ _hdIcollectedSetNames `Set.union` _tlIcollectedSetNames+ {-# LINE 4207 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ _hdIcollectedSigs ++ _tlIcollectedSigs+ {-# LINE 4213 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ _hdIcollectedUniques ++ _tlIcollectedUniques+ {-# LINE 4219 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 868, column 34)+ _lhsOctxCollect =+ ({-# LINE 868 "Transform.ag" #-}+ _hdIctxCollect `mergeCtx` _tlIctxCollect+ {-# LINE 4225 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 893, column 33)+ _lhsOderivings =+ ({-# LINE 893 "Transform.ag" #-}+ _hdIderivings `mergeDerivings` _tlIderivings+ {-# LINE 4231 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 4237 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1089, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1089 "Transform.ag" #-}+ _hdImoduleDecl `mplus` _tlImoduleDecl+ {-# LINE 4243 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 845, column 37)+ _lhsOparamsCollect =+ ({-# LINE 845 "Transform.ag" #-}+ _hdIparamsCollect `mergeParams` _tlIparamsCollect+ {-# LINE 4249 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 739, column 34)+ _lhsOpragmas =+ ({-# LINE 739 "Transform.ag" #-}+ _hdIpragmas . _tlIpragmas+ {-# LINE 4255 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 785, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 785 "Transform.ag" #-}+ _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect+ {-# LINE 4261 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ _hdItypeSyns ++ _tlItypeSyns+ {-# LINE 4267 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ _hdIuseMap `merge` _tlIuseMap+ {-# LINE 4273 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ _hdIwrappers `Set.union` _tlIwrappers+ {-# LINE 4279 "Transform.hs" #-}+ )+ -- copy rule (up)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _tlIattrDecls+ {-# LINE 4285 "Transform.hs" #-}+ )+ -- copy rule (up)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _tlIdefSets+ {-# LINE 4291 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallAttrDecls =+ ({-# LINE 814 "Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 4297 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallConstructors =+ ({-# LINE 96 "Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 4303 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4309 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4315 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 4321 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 4327 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4333 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 4339 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallAttrDecls =+ ({-# LINE 814 "Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 4345 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallConstructors =+ ({-# LINE 96 "Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 4351 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4357 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4363 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _tlOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _hdIattrDecls+ {-# LINE 4369 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _tlOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _hdIdefSets+ {-# LINE 4375 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4381 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 4387 "Transform.hs" #-}+ )+ ( _hdIattrDecls,_hdIattrOrderCollect,_hdIblocks,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedConstructorsMap,_hdIcollectedFields,_hdIcollectedInsts,_hdIcollectedMerges,_hdIcollectedNames,_hdIcollectedRules,_hdIcollectedSetNames,_hdIcollectedSigs,_hdIcollectedUniques,_hdIctxCollect,_hdIdefSets,_hdIderivings,_hdIerrors,_hdImoduleDecl,_hdIparamsCollect,_hdIpragmas,_hdIsemPragmasCollect,_hdItypeSyns,_hdIuseMap,_hdIwrappers) =+ hd_ _hdOallAttrDecls _hdOallConstructors _hdOallFields _hdOallNonterminals _hdOattrDecls _hdOdefSets _hdOdefinedSets _hdOoptions + ( _tlIattrDecls,_tlIattrOrderCollect,_tlIblocks,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedConstructorsMap,_tlIcollectedFields,_tlIcollectedInsts,_tlIcollectedMerges,_tlIcollectedNames,_tlIcollectedRules,_tlIcollectedSetNames,_tlIcollectedSigs,_tlIcollectedUniques,_tlIctxCollect,_tlIdefSets,_tlIderivings,_tlIerrors,_tlImoduleDecl,_tlIparamsCollect,_tlIpragmas,_tlIsemPragmasCollect,_tlItypeSyns,_tlIuseMap,_tlIwrappers) =+ tl_ _tlOallAttrDecls _tlOallConstructors _tlOallFields _tlOallNonterminals _tlOattrDecls _tlOdefSets _tlOdefinedSets _tlOoptions + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elems_Nil :: T_Elems +sem_Elems_Nil =+ (T_Elems (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- use rule "Transform.ag"(line 813, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 813 "Transform.ag" #-}+ Map.empty+ {-# LINE 4433 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 4439 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 4445 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 4451 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 4457 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 4463 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 4469 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 4475 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ Set.empty+ {-# LINE 4481 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 4487 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 4493 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 4499 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 4505 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 868, column 34)+ _lhsOctxCollect =+ ({-# LINE 868 "Transform.ag" #-}+ Map.empty+ {-# LINE 4511 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 893, column 33)+ _lhsOderivings =+ ({-# LINE 893 "Transform.ag" #-}+ Map.empty+ {-# LINE 4517 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 4523 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1089, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1089 "Transform.ag" #-}+ mzero+ {-# LINE 4529 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 845, column 37)+ _lhsOparamsCollect =+ ({-# LINE 845 "Transform.ag" #-}+ Map.empty+ {-# LINE 4535 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 739, column 34)+ _lhsOpragmas =+ ({-# LINE 739 "Transform.ag" #-}+ id+ {-# LINE 4541 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 785, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 785 "Transform.ag" #-}+ Map.empty+ {-# LINE 4547 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 4553 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 4559 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 730, column 32)+ _lhsOwrappers =+ ({-# LINE 730 "Transform.ag" #-}+ Set.empty+ {-# LINE 4565 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 4571 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 4577 "Transform.hs" #-}+ )+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+-- NontSet -----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allFields : DataTypes+ allNonterminals : Set NontermIdent+ definedSets : DefinedSets+ synthesized attributes:+ collectedNames : Set Identifier+ errors : Seq Error+ nontSet : Set NontermIdent+ alternatives:+ alternative All:+ alternative Difference:+ child set1 : NontSet + child set2 : NontSet + alternative Intersect:+ child set1 : NontSet + child set2 : NontSet + alternative NamedSet:+ child name : {NontermIdent}+ visit 0:+ local _tup4 : _+ local nontSet : _+ local errors : _+ alternative Path:+ child from : {NontermIdent}+ child to : {NontermIdent}+ alternative Union:+ child set1 : NontSet + child set2 : NontSet +-}+-- cata+sem_NontSet :: NontSet ->+ T_NontSet +sem_NontSet (All ) =+ (sem_NontSet_All )+sem_NontSet (Difference _set1 _set2 ) =+ (sem_NontSet_Difference (sem_NontSet _set1 ) (sem_NontSet _set2 ) )+sem_NontSet (Intersect _set1 _set2 ) =+ (sem_NontSet_Intersect (sem_NontSet _set1 ) (sem_NontSet _set2 ) )+sem_NontSet (NamedSet _name ) =+ (sem_NontSet_NamedSet _name )+sem_NontSet (Path _from _to ) =+ (sem_NontSet_Path _from _to )+sem_NontSet (Union _set1 _set2 ) =+ (sem_NontSet_Union (sem_NontSet _set1 ) (sem_NontSet _set2 ) )+-- semantic domain+newtype T_NontSet = T_NontSet (DataTypes ->+ (Set NontermIdent) ->+ DefinedSets ->+ ( (Set Identifier),(Seq Error),(Set NontermIdent)))+data Inh_NontSet = Inh_NontSet {allFields_Inh_NontSet :: !(DataTypes),allNonterminals_Inh_NontSet :: !((Set NontermIdent)),definedSets_Inh_NontSet :: !(DefinedSets)}+data Syn_NontSet = Syn_NontSet {collectedNames_Syn_NontSet :: !((Set Identifier)),errors_Syn_NontSet :: !((Seq Error)),nontSet_Syn_NontSet :: !((Set NontermIdent))}+wrap_NontSet :: T_NontSet ->+ Inh_NontSet ->+ Syn_NontSet +wrap_NontSet (T_NontSet sem ) (Inh_NontSet _lhsIallFields _lhsIallNonterminals _lhsIdefinedSets ) =+ (let ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet) = sem _lhsIallFields _lhsIallNonterminals _lhsIdefinedSets + in (Syn_NontSet _lhsOcollectedNames _lhsOerrors _lhsOnontSet ))+sem_NontSet_All :: T_NontSet +sem_NontSet_All =+ (T_NontSet (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIdefinedSets ->+ (let _lhsOnontSet :: (Set NontermIdent)+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOerrors :: (Seq Error)+ -- "Transform.ag"(line 676, column 16)+ _lhsOnontSet =+ ({-# LINE 676 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4652 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ Set.empty+ {-# LINE 4658 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 4664 "Transform.hs" #-}+ )+ in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )+sem_NontSet_Difference :: T_NontSet ->+ T_NontSet ->+ T_NontSet +sem_NontSet_Difference (T_NontSet set1_ ) (T_NontSet set2_ ) =+ (T_NontSet (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIdefinedSets ->+ (let _lhsOnontSet :: (Set NontermIdent)+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOerrors :: (Seq Error)+ _set1OallFields :: DataTypes+ _set1OallNonterminals :: (Set NontermIdent)+ _set1OdefinedSets :: DefinedSets+ _set2OallFields :: DataTypes+ _set2OallNonterminals :: (Set NontermIdent)+ _set2OdefinedSets :: DefinedSets+ _set1IcollectedNames :: (Set Identifier)+ _set1Ierrors :: (Seq Error)+ _set1InontSet :: (Set NontermIdent)+ _set2IcollectedNames :: (Set Identifier)+ _set2Ierrors :: (Seq Error)+ _set2InontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 682, column 16)+ _lhsOnontSet =+ ({-# LINE 682 "Transform.ag" #-}+ Set.difference _set1InontSet _set2InontSet+ {-# LINE 4693 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _set1IcollectedNames `Set.union` _set2IcollectedNames+ {-# LINE 4699 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 4705 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4711 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4717 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4723 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4729 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4735 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4741 "Transform.hs" #-}+ )+ ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =+ set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets + ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =+ set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets + in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )+sem_NontSet_Intersect :: T_NontSet ->+ T_NontSet ->+ T_NontSet +sem_NontSet_Intersect (T_NontSet set1_ ) (T_NontSet set2_ ) =+ (T_NontSet (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIdefinedSets ->+ (let _lhsOnontSet :: (Set NontermIdent)+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOerrors :: (Seq Error)+ _set1OallFields :: DataTypes+ _set1OallNonterminals :: (Set NontermIdent)+ _set1OdefinedSets :: DefinedSets+ _set2OallFields :: DataTypes+ _set2OallNonterminals :: (Set NontermIdent)+ _set2OdefinedSets :: DefinedSets+ _set1IcollectedNames :: (Set Identifier)+ _set1Ierrors :: (Seq Error)+ _set1InontSet :: (Set NontermIdent)+ _set2IcollectedNames :: (Set Identifier)+ _set2Ierrors :: (Seq Error)+ _set2InontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 681, column 16)+ _lhsOnontSet =+ ({-# LINE 681 "Transform.ag" #-}+ Set.intersection _set1InontSet _set2InontSet+ {-# LINE 4774 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _set1IcollectedNames `Set.union` _set2IcollectedNames+ {-# LINE 4780 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 4786 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4792 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4798 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4804 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4810 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4816 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4822 "Transform.hs" #-}+ )+ ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =+ set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets + ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =+ set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets + in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )+sem_NontSet_NamedSet :: NontermIdent ->+ T_NontSet +sem_NontSet_NamedSet name_ =+ (T_NontSet (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIdefinedSets ->+ (let _lhsOcollectedNames :: (Set Identifier)+ _lhsOerrors :: (Seq Error)+ _lhsOnontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 557, column 14)+ _lhsOcollectedNames =+ ({-# LINE 557 "Transform.ag" #-}+ Set.singleton name_+ {-# LINE 4842 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 677, column 20)+ __tup4 =+ ({-# LINE 677 "Transform.ag" #-}+ case Map.lookup name_ _lhsIdefinedSets of+ Nothing -> (Set.empty, Seq.singleton (UndefNont name_))+ Just set -> (set, Seq.empty)+ {-# LINE 4850 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 677, column 20)+ (_nontSet,_) =+ ({-# LINE 677 "Transform.ag" #-}+ __tup4+ {-# LINE 4856 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 677, column 20)+ (_,_errors) =+ ({-# LINE 677 "Transform.ag" #-}+ __tup4+ {-# LINE 4862 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _errors+ {-# LINE 4868 "Transform.hs" #-}+ )+ -- copy rule (from local)+ _lhsOnontSet =+ ({-# LINE 112 "Transform.ag" #-}+ _nontSet+ {-# LINE 4874 "Transform.hs" #-}+ )+ in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )+sem_NontSet_Path :: NontermIdent ->+ NontermIdent ->+ T_NontSet +sem_NontSet_Path from_ to_ =+ (T_NontSet (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIdefinedSets ->+ (let _lhsOnontSet :: (Set NontermIdent)+ _lhsOerrors :: (Seq Error)+ _lhsOcollectedNames :: (Set Identifier)+ -- "Transform.ag"(line 683, column 16)+ _lhsOnontSet =+ ({-# LINE 683 "Transform.ag" #-}+ let table = flattenDatas _lhsIallFields+ in path table from_ to_+ {-# LINE 4892 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 685, column 16)+ _lhsOerrors =+ ({-# LINE 685 "Transform.ag" #-}+ let check name | Set.member name _lhsIallNonterminals+ = Seq.empty+ | otherwise = Seq.singleton (UndefNont name)+ in check from_ >< check to_+ {-# LINE 4901 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ Set.empty+ {-# LINE 4907 "Transform.hs" #-}+ )+ in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )+sem_NontSet_Union :: T_NontSet ->+ T_NontSet ->+ T_NontSet +sem_NontSet_Union (T_NontSet set1_ ) (T_NontSet set2_ ) =+ (T_NontSet (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIdefinedSets ->+ (let _lhsOnontSet :: (Set NontermIdent)+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOerrors :: (Seq Error)+ _set1OallFields :: DataTypes+ _set1OallNonterminals :: (Set NontermIdent)+ _set1OdefinedSets :: DefinedSets+ _set2OallFields :: DataTypes+ _set2OallNonterminals :: (Set NontermIdent)+ _set2OdefinedSets :: DefinedSets+ _set1IcollectedNames :: (Set Identifier)+ _set1Ierrors :: (Seq Error)+ _set1InontSet :: (Set NontermIdent)+ _set2IcollectedNames :: (Set Identifier)+ _set2Ierrors :: (Seq Error)+ _set2InontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 680, column 16)+ _lhsOnontSet =+ ({-# LINE 680 "Transform.ag" #-}+ Set.union _set1InontSet _set2InontSet+ {-# LINE 4936 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _set1IcollectedNames `Set.union` _set2IcollectedNames+ {-# LINE 4942 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 4948 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4954 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4960 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4966 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4972 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4978 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4984 "Transform.hs" #-}+ )+ ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =+ set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets + ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =+ set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets + in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )+-- Pattern -----------------------------------------------------+{-+ visit 0:+ synthesized attributes:+ copy : SELF + definedAttrs : [AttrName]+ definedInsts : [Identifier]+ patunder : [AttrName]->Pattern+ stpos : Pos+ alternatives:+ alternative Alias:+ child field : {Identifier}+ child attr : {Identifier}+ child pat : Pattern + child parts : Patterns + visit 0:+ local copy : _+ alternative Constr:+ child name : {ConstructorIdent}+ child pats : Patterns + visit 0:+ local copy : _+ alternative Irrefutable:+ child pat : Pattern + visit 0:+ local copy : _+ alternative Product:+ child pos : {Pos}+ child pats : Patterns + visit 0:+ local copy : _+ alternative Underscore:+ child pos : {Pos}+ visit 0:+ local copy : _+-}+-- cata+sem_Pattern :: Pattern ->+ T_Pattern +sem_Pattern (Alias _field _attr _pat _parts ) =+ (sem_Pattern_Alias _field _attr (sem_Pattern _pat ) (sem_Patterns _parts ) )+sem_Pattern (Constr _name _pats ) =+ (sem_Pattern_Constr _name (sem_Patterns _pats ) )+sem_Pattern (Irrefutable _pat ) =+ (sem_Pattern_Irrefutable (sem_Pattern _pat ) )+sem_Pattern (Product _pos _pats ) =+ (sem_Pattern_Product _pos (sem_Patterns _pats ) )+sem_Pattern (Underscore _pos ) =+ (sem_Pattern_Underscore _pos )+-- semantic domain+newtype T_Pattern = T_Pattern (( Pattern ,([AttrName]),([Identifier]),([AttrName]->Pattern),Pos))+data Inh_Pattern = Inh_Pattern {}+data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern ),definedAttrs_Syn_Pattern :: !(([AttrName])),definedInsts_Syn_Pattern :: !(([Identifier])),patunder_Syn_Pattern :: !(([AttrName]->Pattern)),stpos_Syn_Pattern :: !(Pos)}+wrap_Pattern :: T_Pattern ->+ Inh_Pattern ->+ Syn_Pattern +wrap_Pattern (T_Pattern sem ) (Inh_Pattern ) =+ (let ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos) = sem + in (Syn_Pattern _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder _lhsOstpos ))+sem_Pattern_Alias :: Identifier ->+ Identifier ->+ T_Pattern ->+ T_Patterns ->+ T_Pattern +sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) =+ (T_Pattern (let _lhsOdefinedAttrs :: ([AttrName])+ _lhsOpatunder :: ([AttrName]->Pattern)+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOstpos :: Pos+ _lhsOcopy :: Pattern + _patIcopy :: Pattern + _patIdefinedAttrs :: ([AttrName])+ _patIdefinedInsts :: ([Identifier])+ _patIpatunder :: ([AttrName]->Pattern)+ _patIstpos :: Pos+ _partsIcopy :: Patterns + _partsIdefinedAttrs :: ([AttrName])+ _partsIdefinedInsts :: ([Identifier])+ _partsIpatunder :: ([AttrName]->Patterns)+ -- "Transform.ag"(line 1065, column 11)+ _lhsOdefinedAttrs =+ ({-# LINE 1065 "Transform.ag" #-}+ (field_, attr_) : _patIdefinedAttrs+ {-# LINE 5074 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1066, column 11)+ _lhsOpatunder =+ ({-# LINE 1066 "Transform.ag" #-}+ \us -> if ((field_,attr_) `elem` us) then Underscore noPos else _copy+ {-# LINE 5080 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1067, column 11)+ _lhsOdefinedInsts =+ ({-# LINE 1067 "Transform.ag" #-}+ (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts+ {-# LINE 5086 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1082, column 16)+ _lhsOstpos =+ ({-# LINE 1082 "Transform.ag" #-}+ getPos field_+ {-# LINE 5092 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Alias field_ attr_ _patIcopy _partsIcopy+ {-# LINE 5098 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5104 "Transform.hs" #-}+ )+ ( _patIcopy,_patIdefinedAttrs,_patIdefinedInsts,_patIpatunder,_patIstpos) =+ pat_ + ( _partsIcopy,_partsIdefinedAttrs,_partsIdefinedInsts,_partsIpatunder) =+ parts_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )+sem_Pattern_Constr :: ConstructorIdent ->+ T_Patterns ->+ T_Pattern +sem_Pattern_Constr name_ (T_Patterns pats_ ) =+ (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)+ _lhsOstpos :: Pos+ _lhsOdefinedAttrs :: ([AttrName])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOcopy :: Pattern + _patsIcopy :: Patterns + _patsIdefinedAttrs :: ([AttrName])+ _patsIdefinedInsts :: ([Identifier])+ _patsIpatunder :: ([AttrName]->Patterns)+ -- "Transform.ag"(line 1069, column 12)+ _lhsOpatunder =+ ({-# LINE 1069 "Transform.ag" #-}+ \us -> Constr name_ (_patsIpatunder us)+ {-# LINE 5128 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1080, column 16)+ _lhsOstpos =+ ({-# LINE 1080 "Transform.ag" #-}+ getPos name_+ {-# LINE 5134 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1060, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1060 "Transform.ag" #-}+ _patsIdefinedAttrs+ {-# LINE 5140 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1059, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1059 "Transform.ag" #-}+ _patsIdefinedInsts+ {-# LINE 5146 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Constr name_ _patsIcopy+ {-# LINE 5152 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5158 "Transform.hs" #-}+ )+ ( _patsIcopy,_patsIdefinedAttrs,_patsIdefinedInsts,_patsIpatunder) =+ pats_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )+sem_Pattern_Irrefutable :: T_Pattern ->+ T_Pattern +sem_Pattern_Irrefutable (T_Pattern pat_ ) =+ (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)+ _lhsOdefinedAttrs :: ([AttrName])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOcopy :: Pattern + _lhsOstpos :: Pos+ _patIcopy :: Pattern + _patIdefinedAttrs :: ([AttrName])+ _patIdefinedInsts :: ([Identifier])+ _patIpatunder :: ([AttrName]->Pattern)+ _patIstpos :: Pos+ -- "Transform.ag"(line 1071, column 17)+ _lhsOpatunder =+ ({-# LINE 1071 "Transform.ag" #-}+ \us -> Irrefutable (_patIpatunder us)+ {-# LINE 5180 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1060, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1060 "Transform.ag" #-}+ _patIdefinedAttrs+ {-# LINE 5186 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1059, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1059 "Transform.ag" #-}+ _patIdefinedInsts+ {-# LINE 5192 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Irrefutable _patIcopy+ {-# LINE 5198 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5204 "Transform.hs" #-}+ )+ -- copy rule (up)+ _lhsOstpos =+ ({-# LINE 1077 "Transform.ag" #-}+ _patIstpos+ {-# LINE 5210 "Transform.hs" #-}+ )+ ( _patIcopy,_patIdefinedAttrs,_patIdefinedInsts,_patIpatunder,_patIstpos) =+ pat_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )+sem_Pattern_Product :: Pos ->+ T_Patterns ->+ T_Pattern +sem_Pattern_Product pos_ (T_Patterns pats_ ) =+ (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)+ _lhsOstpos :: Pos+ _lhsOdefinedAttrs :: ([AttrName])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOcopy :: Pattern + _patsIcopy :: Patterns + _patsIdefinedAttrs :: ([AttrName])+ _patsIdefinedInsts :: ([Identifier])+ _patsIpatunder :: ([AttrName]->Patterns)+ -- "Transform.ag"(line 1070, column 13)+ _lhsOpatunder =+ ({-# LINE 1070 "Transform.ag" #-}+ \us -> Product pos_ (_patsIpatunder us)+ {-# LINE 5232 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1081, column 16)+ _lhsOstpos =+ ({-# LINE 1081 "Transform.ag" #-}+ pos_+ {-# LINE 5238 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1060, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1060 "Transform.ag" #-}+ _patsIdefinedAttrs+ {-# LINE 5244 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1059, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1059 "Transform.ag" #-}+ _patsIdefinedInsts+ {-# LINE 5250 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Product pos_ _patsIcopy+ {-# LINE 5256 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5262 "Transform.hs" #-}+ )+ ( _patsIcopy,_patsIdefinedAttrs,_patsIdefinedInsts,_patsIpatunder) =+ pats_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )+sem_Pattern_Underscore :: Pos ->+ T_Pattern +sem_Pattern_Underscore pos_ =+ (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)+ _lhsOstpos :: Pos+ _lhsOdefinedAttrs :: ([AttrName])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOcopy :: Pattern + -- "Transform.ag"(line 1068, column 16)+ _lhsOpatunder =+ ({-# LINE 1068 "Transform.ag" #-}+ \us -> _copy+ {-# LINE 5279 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1083, column 16)+ _lhsOstpos =+ ({-# LINE 1083 "Transform.ag" #-}+ pos_+ {-# LINE 5285 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1060, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1060 "Transform.ag" #-}+ []+ {-# LINE 5291 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1059, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1059 "Transform.ag" #-}+ []+ {-# LINE 5297 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Underscore pos_+ {-# LINE 5303 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5309 "Transform.hs" #-}+ )+ in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )+-- Patterns ----------------------------------------------------+{-+ visit 0:+ synthesized attributes:+ copy : SELF + definedAttrs : [AttrName]+ definedInsts : [Identifier]+ patunder : [AttrName]->Patterns+ alternatives:+ alternative Cons:+ child hd : Pattern + child tl : Patterns + visit 0:+ local copy : _+ alternative Nil:+ visit 0:+ local copy : _+-}+-- cata+sem_Patterns :: Patterns ->+ T_Patterns +sem_Patterns list =+ (Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list) )+-- semantic domain+newtype T_Patterns = T_Patterns (( Patterns ,([AttrName]),([Identifier]),([AttrName]->Patterns)))+data Inh_Patterns = Inh_Patterns {}+data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns ),definedAttrs_Syn_Patterns :: !(([AttrName])),definedInsts_Syn_Patterns :: !(([Identifier])),patunder_Syn_Patterns :: !(([AttrName]->Patterns))}+wrap_Patterns :: T_Patterns ->+ Inh_Patterns ->+ Syn_Patterns +wrap_Patterns (T_Patterns sem ) (Inh_Patterns ) =+ (let ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder) = sem + in (Syn_Patterns _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder ))+sem_Patterns_Cons :: T_Pattern ->+ T_Patterns ->+ T_Patterns +sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) =+ (T_Patterns (let _lhsOpatunder :: ([AttrName]->Patterns)+ _lhsOdefinedAttrs :: ([AttrName])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOcopy :: Patterns + _hdIcopy :: Pattern + _hdIdefinedAttrs :: ([AttrName])+ _hdIdefinedInsts :: ([Identifier])+ _hdIpatunder :: ([AttrName]->Pattern)+ _hdIstpos :: Pos+ _tlIcopy :: Patterns + _tlIdefinedAttrs :: ([AttrName])+ _tlIdefinedInsts :: ([Identifier])+ _tlIpatunder :: ([AttrName]->Patterns)+ -- "Transform.ag"(line 1075, column 10)+ _lhsOpatunder =+ ({-# LINE 1075 "Transform.ag" #-}+ \us -> (_hdIpatunder us) : (_tlIpatunder us)+ {-# LINE 5366 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1060, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1060 "Transform.ag" #-}+ _hdIdefinedAttrs ++ _tlIdefinedAttrs+ {-# LINE 5372 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1059, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1059 "Transform.ag" #-}+ _hdIdefinedInsts ++ _tlIdefinedInsts+ {-# LINE 5378 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ (:) _hdIcopy _tlIcopy+ {-# LINE 5384 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5390 "Transform.hs" #-}+ )+ ( _hdIcopy,_hdIdefinedAttrs,_hdIdefinedInsts,_hdIpatunder,_hdIstpos) =+ hd_ + ( _tlIcopy,_tlIdefinedAttrs,_tlIdefinedInsts,_tlIpatunder) =+ tl_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)) )+sem_Patterns_Nil :: T_Patterns +sem_Patterns_Nil =+ (T_Patterns (let _lhsOpatunder :: ([AttrName]->Patterns)+ _lhsOdefinedAttrs :: ([AttrName])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOcopy :: Patterns + -- "Transform.ag"(line 1074, column 9)+ _lhsOpatunder =+ ({-# LINE 1074 "Transform.ag" #-}+ \us -> []+ {-# LINE 5407 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1060, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1060 "Transform.ag" #-}+ []+ {-# LINE 5413 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1059, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1059 "Transform.ag" #-}+ []+ {-# LINE 5419 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ []+ {-# LINE 5425 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5431 "Transform.hs" #-}+ )+ in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)) )+-- SemAlt ------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allAttrDecls : Map NontermIdent (Attributes, Attributes)+ allFields : DataTypes+ nts : Set NontermIdent+ options : Options+ synthesized attributes:+ attrOrderCollect : AttrOrderMap+ collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]+ collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]+ collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]+ collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]+ collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]+ collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]+ collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]+ errors : Seq Error+ semPragmasCollect : PragmaMap+ alternatives:+ alternative SemAlt:+ child pos : {Pos}+ child constructorSet : ConstructorSet + child rules : SemDefs + visit 0:+ local pragmaNames : _+ local attrOrders : _+ local coninfo : _+-}+-- cata+sem_SemAlt :: SemAlt ->+ T_SemAlt +sem_SemAlt (SemAlt _pos _constructorSet _rules ) =+ (sem_SemAlt_SemAlt _pos (sem_ConstructorSet _constructorSet ) (sem_SemDefs _rules ) )+-- semantic domain+newtype T_SemAlt = T_SemAlt ((Map NontermIdent (Attributes, Attributes)) ->+ DataTypes ->+ (Set NontermIdent) ->+ Options ->+ ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),([ (NontermIdent, ConstructorIdent, RuleInfo)]),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),(Seq Error),PragmaMap))+data Inh_SemAlt = Inh_SemAlt {allAttrDecls_Inh_SemAlt :: !((Map NontermIdent (Attributes, Attributes))),allFields_Inh_SemAlt :: !(DataTypes),nts_Inh_SemAlt :: !((Set NontermIdent)),options_Inh_SemAlt :: !(Options)}+data Syn_SemAlt = Syn_SemAlt {attrOrderCollect_Syn_SemAlt :: !(AttrOrderMap),collectedArounds_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedInsts_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedRules_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSigs_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),errors_Syn_SemAlt :: !((Seq Error)),semPragmasCollect_Syn_SemAlt :: !(PragmaMap)}+wrap_SemAlt :: T_SemAlt ->+ Inh_SemAlt ->+ Syn_SemAlt +wrap_SemAlt (T_SemAlt sem ) (Inh_SemAlt _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions ) =+ (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions + in (Syn_SemAlt _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedRules _lhsOcollectedSigs _lhsOcollectedUniques _lhsOerrors _lhsOsemPragmasCollect ))+sem_SemAlt_SemAlt :: Pos ->+ T_ConstructorSet ->+ T_SemDefs ->+ T_SemAlt +sem_SemAlt_SemAlt pos_ (T_ConstructorSet constructorSet_ ) (T_SemDefs rules_ ) =+ (T_SemAlt (\ _lhsIallAttrDecls+ _lhsIallFields+ _lhsInts+ _lhsIoptions ->+ (let _lhsOsemPragmasCollect :: PragmaMap+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOerrors :: (Seq Error)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _rulesOoptions :: Options+ _constructorSetIcollectedConstructorNames :: (Set ConstructorIdent)+ _constructorSetIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _constructorSetIerrors :: (Seq Error)+ _rulesIaroundInfos :: ([AroundInfo])+ _rulesIaugmentInfos :: ([AugmentInfo])+ _rulesIdefinedInsts :: ([Identifier])+ _rulesIerrors :: (Seq Error)+ _rulesImergeInfos :: ([MergeInfo])+ _rulesIorderDepsCollect :: (Set Dependency)+ _rulesIpragmaNamesCollect :: ([Identifier])+ _rulesIruleInfos :: ([RuleInfo])+ _rulesIsigInfos :: ([SigInfo])+ _rulesIuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 789, column 7)+ _pragmaNames =+ ({-# LINE 789 "Transform.ag" #-}+ Set.fromList _rulesIpragmaNamesCollect+ {-# LINE 5519 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 790, column 7)+ _lhsOsemPragmasCollect =+ ({-# LINE 790 "Transform.ag" #-}+ foldr pragmaMapUnion Map.empty [ pragmaMapSingle nt con _pragmaNames+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5528 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 818, column 7)+ _attrOrders =+ ({-# LINE 818 "Transform.ag" #-}+ [ orderMapSingle nt con _rulesIorderDepsCollect+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5537 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 824, column 7)+ _lhsOattrOrderCollect =+ ({-# LINE 824 "Transform.ag" #-}+ foldr orderMapUnion Map.empty _attrOrders+ {-# LINE 5543 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 984, column 12)+ _coninfo =+ ({-# LINE 984 "Transform.ag" #-}+ [ (nt, conset, conkeys)+ | nt <- Set.toList _lhsInts+ , let conmap = Map.findWithDefault Map.empty nt _lhsIallFields+ , let conkeys = Set.fromList (Map.keys conmap)+ , let conset = _constructorSetIconstructors conkeys+ ]+ {-# LINE 5554 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 991, column 12)+ _lhsOerrors =+ ({-# LINE 991 "Transform.ag" #-}+ Seq.fromList+ [ UndefAlt nt con+ | (nt, conset, conkeys) <- _coninfo+ , con <- Set.toList (Set.difference conset conkeys)+ ]+ Seq.>< _rulesIerrors+ {-# LINE 5565 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 997, column 12)+ _lhsOcollectedRules =+ ({-# LINE 997 "Transform.ag" #-}+ [ (nt,con,r)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ , r <- _rulesIruleInfos+ ]+ {-# LINE 5575 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1003, column 12)+ _lhsOcollectedSigs =+ ({-# LINE 1003 "Transform.ag" #-}+ [ (nt,con,ts)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ , ts <- _rulesIsigInfos+ ]+ {-# LINE 5585 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1010, column 12)+ _lhsOcollectedInsts =+ ({-# LINE 1010 "Transform.ag" #-}+ [ (nt,con,_rulesIdefinedInsts)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5594 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1016, column 12)+ _lhsOcollectedUniques =+ ({-# LINE 1016 "Transform.ag" #-}+ [ (nt,con,_rulesIuniqueInfos)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5603 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1022, column 12)+ _lhsOcollectedAugments =+ ({-# LINE 1022 "Transform.ag" #-}+ [ (nt, con, _rulesIaugmentInfos)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5612 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1028, column 12)+ _lhsOcollectedArounds =+ ({-# LINE 1028 "Transform.ag" #-}+ [ (nt, con, _rulesIaroundInfos)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5621 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1034, column 12)+ _lhsOcollectedMerges =+ ({-# LINE 1034 "Transform.ag" #-}+ [ (nt, con, _rulesImergeInfos)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5630 "Transform.hs" #-}+ )+ -- copy rule (down)+ _rulesOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 5636 "Transform.hs" #-}+ )+ ( _constructorSetIcollectedConstructorNames,_constructorSetIconstructors,_constructorSetIerrors) =+ constructorSet_ + ( _rulesIaroundInfos,_rulesIaugmentInfos,_rulesIdefinedInsts,_rulesIerrors,_rulesImergeInfos,_rulesIorderDepsCollect,_rulesIpragmaNamesCollect,_rulesIruleInfos,_rulesIsigInfos,_rulesIuniqueInfos) =+ rules_ _rulesOoptions + in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) )+-- SemAlts -----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allAttrDecls : Map NontermIdent (Attributes, Attributes)+ allFields : DataTypes+ nts : Set NontermIdent+ options : Options+ synthesized attributes:+ attrOrderCollect : AttrOrderMap+ collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]+ collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]+ collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]+ collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]+ collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]+ collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]+ collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]+ errors : Seq Error+ semPragmasCollect : PragmaMap+ alternatives:+ alternative Cons:+ child hd : SemAlt + child tl : SemAlts + alternative Nil:+-}+-- cata+sem_SemAlts :: SemAlts ->+ T_SemAlts +sem_SemAlts list =+ (Prelude.foldr sem_SemAlts_Cons sem_SemAlts_Nil (Prelude.map sem_SemAlt list) )+-- semantic domain+newtype T_SemAlts = T_SemAlts ((Map NontermIdent (Attributes, Attributes)) ->+ DataTypes ->+ (Set NontermIdent) ->+ Options ->+ ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),([ (NontermIdent, ConstructorIdent, RuleInfo)]),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),(Seq Error),PragmaMap))+data Inh_SemAlts = Inh_SemAlts {allAttrDecls_Inh_SemAlts :: !((Map NontermIdent (Attributes, Attributes))),allFields_Inh_SemAlts :: !(DataTypes),nts_Inh_SemAlts :: !((Set NontermIdent)),options_Inh_SemAlts :: !(Options)}+data Syn_SemAlts = Syn_SemAlts {attrOrderCollect_Syn_SemAlts :: !(AttrOrderMap),collectedArounds_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedInsts_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedRules_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSigs_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),errors_Syn_SemAlts :: !((Seq Error)),semPragmasCollect_Syn_SemAlts :: !(PragmaMap)}+wrap_SemAlts :: T_SemAlts ->+ Inh_SemAlts ->+ Syn_SemAlts +wrap_SemAlts (T_SemAlts sem ) (Inh_SemAlts _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions ) =+ (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions + in (Syn_SemAlts _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedRules _lhsOcollectedSigs _lhsOcollectedUniques _lhsOerrors _lhsOsemPragmasCollect ))+sem_SemAlts_Cons :: T_SemAlt ->+ T_SemAlts ->+ T_SemAlts +sem_SemAlts_Cons (T_SemAlt hd_ ) (T_SemAlts tl_ ) =+ (T_SemAlts (\ _lhsIallAttrDecls+ _lhsIallFields+ _lhsInts+ _lhsIoptions ->+ (let _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOerrors :: (Seq Error)+ _lhsOsemPragmasCollect :: PragmaMap+ _hdOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _hdOallFields :: DataTypes+ _hdOnts :: (Set NontermIdent)+ _hdOoptions :: Options+ _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _tlOallFields :: DataTypes+ _tlOnts :: (Set NontermIdent)+ _tlOoptions :: Options+ _hdIattrOrderCollect :: AttrOrderMap+ _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _hdIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _hdIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _hdIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _hdIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _hdIerrors :: (Seq Error)+ _hdIsemPragmasCollect :: PragmaMap+ _tlIattrOrderCollect :: AttrOrderMap+ _tlIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _tlIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _tlIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _tlIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _tlIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _tlIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _tlIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _tlIerrors :: (Seq Error)+ _tlIsemPragmasCollect :: PragmaMap+ -- use rule "Transform.ag"(line 813, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 813 "Transform.ag" #-}+ _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect+ {-# LINE 5737 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ _hdIcollectedArounds ++ _tlIcollectedArounds+ {-# LINE 5743 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ _hdIcollectedAugments ++ _tlIcollectedAugments+ {-# LINE 5749 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ _hdIcollectedInsts ++ _tlIcollectedInsts+ {-# LINE 5755 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ _hdIcollectedMerges ++ _tlIcollectedMerges+ {-# LINE 5761 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ _hdIcollectedRules ++ _tlIcollectedRules+ {-# LINE 5767 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ _hdIcollectedSigs ++ _tlIcollectedSigs+ {-# LINE 5773 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ _hdIcollectedUniques ++ _tlIcollectedUniques+ {-# LINE 5779 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 5785 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 785, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 785 "Transform.ag" #-}+ _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect+ {-# LINE 5791 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallAttrDecls =+ ({-# LINE 814 "Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 5797 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 5803 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOnts =+ ({-# LINE 167 "Transform.ag" #-}+ _lhsInts+ {-# LINE 5809 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 5815 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallAttrDecls =+ ({-# LINE 814 "Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 5821 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 5827 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOnts =+ ({-# LINE 167 "Transform.ag" #-}+ _lhsInts+ {-# LINE 5833 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 5839 "Transform.hs" #-}+ )+ ( _hdIattrOrderCollect,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedInsts,_hdIcollectedMerges,_hdIcollectedRules,_hdIcollectedSigs,_hdIcollectedUniques,_hdIerrors,_hdIsemPragmasCollect) =+ hd_ _hdOallAttrDecls _hdOallFields _hdOnts _hdOoptions + ( _tlIattrOrderCollect,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedInsts,_tlIcollectedMerges,_tlIcollectedRules,_tlIcollectedSigs,_tlIcollectedUniques,_tlIerrors,_tlIsemPragmasCollect) =+ tl_ _tlOallAttrDecls _tlOallFields _tlOnts _tlOoptions + in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) )+sem_SemAlts_Nil :: T_SemAlts +sem_SemAlts_Nil =+ (T_SemAlts (\ _lhsIallAttrDecls+ _lhsIallFields+ _lhsInts+ _lhsIoptions ->+ (let _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOerrors :: (Seq Error)+ _lhsOsemPragmasCollect :: PragmaMap+ -- use rule "Transform.ag"(line 813, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 813 "Transform.ag" #-}+ Map.empty+ {-# LINE 5866 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 5872 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 5878 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 5884 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 5890 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 5896 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 5902 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 5908 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 5914 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 785, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 785 "Transform.ag" #-}+ Map.empty+ {-# LINE 5920 "Transform.hs" #-}+ )+ in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) )+-- SemDef ------------------------------------------------------+{-+ visit 0:+ inherited attribute:+ options : Options+ synthesized attributes:+ aroundInfos : [AroundInfo]+ augmentInfos : [AugmentInfo]+ definedInsts : [Identifier]+ errors : Seq Error+ mergeInfos : [MergeInfo]+ orderDepsCollect : Set Dependency+ pragmaNamesCollect : [Identifier]+ ruleInfos : [RuleInfo]+ sigInfos : [SigInfo]+ uniqueInfos : [UniqueInfo]+ alternatives:+ alternative AroundDef:+ child ident : {Identifier}+ child rhs : {Expression}+ alternative AttrOrderBefore:+ child before : {[Occurrence]}+ child after : {[Occurrence]}+ visit 0:+ local dependency : _+ alternative AugmentDef:+ child ident : {Identifier}+ child rhs : {Expression}+ alternative Def:+ child pos : {Pos}+ child mbName : {Maybe Identifier}+ child pattern : Pattern + child rhs : {Expression}+ child owrt : {Bool}+ alternative MergeDef:+ child target : {Identifier}+ child nt : {Identifier}+ child sources : {[Identifier]}+ child rhs : {Expression}+ alternative SemPragma:+ child names : {[NontermIdent]}+ alternative TypeDef:+ child pos : {Pos}+ child ident : {Identifier}+ child tp : {Type}+ alternative UniqueDef:+ child ident : {Identifier}+ child ref : {Identifier}+-}+-- cata+sem_SemDef :: SemDef ->+ T_SemDef +sem_SemDef (AroundDef _ident _rhs ) =+ (sem_SemDef_AroundDef _ident _rhs )+sem_SemDef (AttrOrderBefore _before _after ) =+ (sem_SemDef_AttrOrderBefore _before _after )+sem_SemDef (AugmentDef _ident _rhs ) =+ (sem_SemDef_AugmentDef _ident _rhs )+sem_SemDef (Def _pos _mbName _pattern _rhs _owrt ) =+ (sem_SemDef_Def _pos _mbName (sem_Pattern _pattern ) _rhs _owrt )+sem_SemDef (MergeDef _target _nt _sources _rhs ) =+ (sem_SemDef_MergeDef _target _nt _sources _rhs )+sem_SemDef (SemPragma _names ) =+ (sem_SemDef_SemPragma _names )+sem_SemDef (TypeDef _pos _ident _tp ) =+ (sem_SemDef_TypeDef _pos _ident _tp )+sem_SemDef (UniqueDef _ident _ref ) =+ (sem_SemDef_UniqueDef _ident _ref )+-- semantic domain+newtype T_SemDef = T_SemDef (Options ->+ ( ([AroundInfo]),([AugmentInfo]),([Identifier]),(Seq Error),([MergeInfo]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo])))+data Inh_SemDef = Inh_SemDef {options_Inh_SemDef :: !(Options)}+data Syn_SemDef = Syn_SemDef {aroundInfos_Syn_SemDef :: !(([AroundInfo])),augmentInfos_Syn_SemDef :: !(([AugmentInfo])),definedInsts_Syn_SemDef :: !(([Identifier])),errors_Syn_SemDef :: !((Seq Error)),mergeInfos_Syn_SemDef :: !(([MergeInfo])),orderDepsCollect_Syn_SemDef :: !((Set Dependency)),pragmaNamesCollect_Syn_SemDef :: !(([Identifier])),ruleInfos_Syn_SemDef :: !(([RuleInfo])),sigInfos_Syn_SemDef :: !(([SigInfo])),uniqueInfos_Syn_SemDef :: !(([UniqueInfo]))}+wrap_SemDef :: T_SemDef ->+ Inh_SemDef ->+ Syn_SemDef +wrap_SemDef (T_SemDef sem ) (Inh_SemDef _lhsIoptions ) =+ (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = sem _lhsIoptions + in (Syn_SemDef _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos ))+sem_SemDef_AroundDef :: Identifier ->+ Expression ->+ T_SemDef +sem_SemDef_AroundDef ident_ rhs_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 1053, column 17)+ _lhsOaroundInfos =+ ({-# LINE 1053 "Transform.ag" #-}+ [ (ident_, rhs_) ]+ {-# LINE 6021 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 977, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 977 "Transform.ag" #-}+ []+ {-# LINE 6027 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1059, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1059 "Transform.ag" #-}+ []+ {-# LINE 6033 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 6039 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 979, column 40)+ _lhsOmergeInfos =+ ({-# LINE 979 "Transform.ag" #-}+ []+ {-# LINE 6045 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 826, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 826 "Transform.ag" #-}+ Set.empty+ {-# LINE 6051 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 795, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 795 "Transform.ag" #-}+ []+ {-# LINE 6057 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 974, column 40)+ _lhsOruleInfos =+ ({-# LINE 974 "Transform.ag" #-}+ []+ {-# LINE 6063 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 975, column 40)+ _lhsOsigInfos =+ ({-# LINE 975 "Transform.ag" #-}+ []+ {-# LINE 6069 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 976, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 976 "Transform.ag" #-}+ []+ {-# LINE 6075 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_AttrOrderBefore :: ([Occurrence]) ->+ ([Occurrence]) ->+ T_SemDef +sem_SemDef_AttrOrderBefore before_ after_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 830, column 7)+ _dependency =+ ({-# LINE 830 "Transform.ag" #-}+ [ Dependency b a | b <- before_, a <- after_ ]+ {-# LINE 6097 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 831, column 7)+ _lhsOorderDepsCollect =+ ({-# LINE 831 "Transform.ag" #-}+ Set.fromList _dependency+ {-# LINE 6103 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 978, column 40)+ _lhsOaroundInfos =+ ({-# LINE 978 "Transform.ag" #-}+ []+ {-# LINE 6109 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 977, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 977 "Transform.ag" #-}+ []+ {-# LINE 6115 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1059, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1059 "Transform.ag" #-}+ []+ {-# LINE 6121 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 6127 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 979, column 40)+ _lhsOmergeInfos =+ ({-# LINE 979 "Transform.ag" #-}+ []+ {-# LINE 6133 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 795, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 795 "Transform.ag" #-}+ []+ {-# LINE 6139 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 974, column 40)+ _lhsOruleInfos =+ ({-# LINE 974 "Transform.ag" #-}+ []+ {-# LINE 6145 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 975, column 40)+ _lhsOsigInfos =+ ({-# LINE 975 "Transform.ag" #-}+ []+ {-# LINE 6151 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 976, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 976 "Transform.ag" #-}+ []+ {-# LINE 6157 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_AugmentDef :: Identifier ->+ Expression ->+ T_SemDef +sem_SemDef_AugmentDef ident_ rhs_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 1050, column 17)+ _lhsOaugmentInfos =+ ({-# LINE 1050 "Transform.ag" #-}+ [ (ident_, rhs_) ]+ {-# LINE 6179 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 978, column 40)+ _lhsOaroundInfos =+ ({-# LINE 978 "Transform.ag" #-}+ []+ {-# LINE 6185 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1059, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1059 "Transform.ag" #-}+ []+ {-# LINE 6191 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 6197 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 979, column 40)+ _lhsOmergeInfos =+ ({-# LINE 979 "Transform.ag" #-}+ []+ {-# LINE 6203 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 826, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 826 "Transform.ag" #-}+ Set.empty+ {-# LINE 6209 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 795, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 795 "Transform.ag" #-}+ []+ {-# LINE 6215 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 974, column 40)+ _lhsOruleInfos =+ ({-# LINE 974 "Transform.ag" #-}+ []+ {-# LINE 6221 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 975, column 40)+ _lhsOsigInfos =+ ({-# LINE 975 "Transform.ag" #-}+ []+ {-# LINE 6227 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 976, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 976 "Transform.ag" #-}+ []+ {-# LINE 6233 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_Def :: Pos ->+ (Maybe Identifier) ->+ T_Pattern ->+ Expression ->+ Bool ->+ T_SemDef +sem_SemDef_Def pos_ mbName_ (T_Pattern pattern_ ) rhs_ owrt_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ _patternIcopy :: Pattern + _patternIdefinedAttrs :: ([AttrName])+ _patternIdefinedInsts :: ([Identifier])+ _patternIpatunder :: ([AttrName]->Pattern)+ _patternIstpos :: Pos+ -- "Transform.ag"(line 527, column 3)+ _lhsOerrors =+ ({-# LINE 527 "Transform.ag" #-}+ if checkParseRhs _lhsIoptions+ then Seq.fromList $ checkRhs rhs_+ else Seq.empty+ {-# LINE 6265 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1041, column 10)+ _lhsOruleInfos =+ ({-# LINE 1041 "Transform.ag" #-}+ [ (mbName_, _patternIpatunder, rhs_, _patternIdefinedAttrs, owrt_, show _patternIstpos) ]+ {-# LINE 6271 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 978, column 40)+ _lhsOaroundInfos =+ ({-# LINE 978 "Transform.ag" #-}+ []+ {-# LINE 6277 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 977, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 977 "Transform.ag" #-}+ []+ {-# LINE 6283 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1059, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1059 "Transform.ag" #-}+ _patternIdefinedInsts+ {-# LINE 6289 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 979, column 40)+ _lhsOmergeInfos =+ ({-# LINE 979 "Transform.ag" #-}+ []+ {-# LINE 6295 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 826, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 826 "Transform.ag" #-}+ Set.empty+ {-# LINE 6301 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 795, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 795 "Transform.ag" #-}+ []+ {-# LINE 6307 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 975, column 40)+ _lhsOsigInfos =+ ({-# LINE 975 "Transform.ag" #-}+ []+ {-# LINE 6313 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 976, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 976 "Transform.ag" #-}+ []+ {-# LINE 6319 "Transform.hs" #-}+ )+ ( _patternIcopy,_patternIdefinedAttrs,_patternIdefinedInsts,_patternIpatunder,_patternIstpos) =+ pattern_ + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_MergeDef :: Identifier ->+ Identifier ->+ ([Identifier]) ->+ Expression ->+ T_SemDef +sem_SemDef_MergeDef target_ nt_ sources_ rhs_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 527, column 3)+ _lhsOerrors =+ ({-# LINE 527 "Transform.ag" #-}+ if checkParseRhs _lhsIoptions+ then Seq.fromList $ checkRhs rhs_+ else Seq.empty+ {-# LINE 6347 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1056, column 17)+ _lhsOmergeInfos =+ ({-# LINE 1056 "Transform.ag" #-}+ [ (target_, nt_, sources_, rhs_) ]+ {-# LINE 6353 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 978, column 40)+ _lhsOaroundInfos =+ ({-# LINE 978 "Transform.ag" #-}+ []+ {-# LINE 6359 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 977, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 977 "Transform.ag" #-}+ []+ {-# LINE 6365 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1059, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1059 "Transform.ag" #-}+ []+ {-# LINE 6371 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 826, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 826 "Transform.ag" #-}+ Set.empty+ {-# LINE 6377 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 795, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 795 "Transform.ag" #-}+ []+ {-# LINE 6383 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 974, column 40)+ _lhsOruleInfos =+ ({-# LINE 974 "Transform.ag" #-}+ []+ {-# LINE 6389 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 975, column 40)+ _lhsOsigInfos =+ ({-# LINE 975 "Transform.ag" #-}+ []+ {-# LINE 6395 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 976, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 976 "Transform.ag" #-}+ []+ {-# LINE 6401 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_SemPragma :: ([NontermIdent]) ->+ T_SemDef +sem_SemDef_SemPragma names_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 799, column 7)+ _lhsOpragmaNamesCollect =+ ({-# LINE 799 "Transform.ag" #-}+ names_+ {-# LINE 6422 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 978, column 40)+ _lhsOaroundInfos =+ ({-# LINE 978 "Transform.ag" #-}+ []+ {-# LINE 6428 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 977, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 977 "Transform.ag" #-}+ []+ {-# LINE 6434 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1059, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1059 "Transform.ag" #-}+ []+ {-# LINE 6440 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 6446 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 979, column 40)+ _lhsOmergeInfos =+ ({-# LINE 979 "Transform.ag" #-}+ []+ {-# LINE 6452 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 826, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 826 "Transform.ag" #-}+ Set.empty+ {-# LINE 6458 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 974, column 40)+ _lhsOruleInfos =+ ({-# LINE 974 "Transform.ag" #-}+ []+ {-# LINE 6464 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 975, column 40)+ _lhsOsigInfos =+ ({-# LINE 975 "Transform.ag" #-}+ []+ {-# LINE 6470 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 976, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 976 "Transform.ag" #-}+ []+ {-# LINE 6476 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_TypeDef :: Pos ->+ Identifier ->+ Type ->+ T_SemDef +sem_SemDef_TypeDef pos_ ident_ tp_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOsigInfos :: ([SigInfo])+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 534, column 3)+ _lhsOerrors =+ ({-# LINE 534 "Transform.ag" #-}+ if checkParseTy _lhsIoptions+ then case tp_ of+ Haskell s -> let exp = Expression pos_ tks+ tks = [tk]+ tk = HsToken s pos_+ in Seq.fromList $ checkTy exp+ _ -> Seq.empty+ else Seq.empty+ {-# LINE 6506 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1044, column 14)+ _lhsOsigInfos =+ ({-# LINE 1044 "Transform.ag" #-}+ [ (ident_, tp_) ]+ {-# LINE 6512 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 978, column 40)+ _lhsOaroundInfos =+ ({-# LINE 978 "Transform.ag" #-}+ []+ {-# LINE 6518 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 977, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 977 "Transform.ag" #-}+ []+ {-# LINE 6524 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1059, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1059 "Transform.ag" #-}+ []+ {-# LINE 6530 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 979, column 40)+ _lhsOmergeInfos =+ ({-# LINE 979 "Transform.ag" #-}+ []+ {-# LINE 6536 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 826, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 826 "Transform.ag" #-}+ Set.empty+ {-# LINE 6542 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 795, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 795 "Transform.ag" #-}+ []+ {-# LINE 6548 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 974, column 40)+ _lhsOruleInfos =+ ({-# LINE 974 "Transform.ag" #-}+ []+ {-# LINE 6554 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 976, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 976 "Transform.ag" #-}+ []+ {-# LINE 6560 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_UniqueDef :: Identifier ->+ Identifier ->+ T_SemDef +sem_SemDef_UniqueDef ident_ ref_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOuniqueInfos :: ([UniqueInfo])+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ -- "Transform.ag"(line 1047, column 16)+ _lhsOuniqueInfos =+ ({-# LINE 1047 "Transform.ag" #-}+ [ (ident_, ref_) ]+ {-# LINE 6582 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 978, column 40)+ _lhsOaroundInfos =+ ({-# LINE 978 "Transform.ag" #-}+ []+ {-# LINE 6588 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 977, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 977 "Transform.ag" #-}+ []+ {-# LINE 6594 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1059, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1059 "Transform.ag" #-}+ []+ {-# LINE 6600 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 6606 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 979, column 40)+ _lhsOmergeInfos =+ ({-# LINE 979 "Transform.ag" #-}+ []+ {-# LINE 6612 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 826, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 826 "Transform.ag" #-}+ Set.empty+ {-# LINE 6618 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 795, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 795 "Transform.ag" #-}+ []+ {-# LINE 6624 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 974, column 40)+ _lhsOruleInfos =+ ({-# LINE 974 "Transform.ag" #-}+ []+ {-# LINE 6630 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 975, column 40)+ _lhsOsigInfos =+ ({-# LINE 975 "Transform.ag" #-}+ []+ {-# LINE 6636 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+-- SemDefs -----------------------------------------------------+{-+ visit 0:+ inherited attribute:+ options : Options+ synthesized attributes:+ aroundInfos : [AroundInfo]+ augmentInfos : [AugmentInfo]+ definedInsts : [Identifier]+ errors : Seq Error+ mergeInfos : [MergeInfo]+ orderDepsCollect : Set Dependency+ pragmaNamesCollect : [Identifier]+ ruleInfos : [RuleInfo]+ sigInfos : [SigInfo]+ uniqueInfos : [UniqueInfo]+ alternatives:+ alternative Cons:+ child hd : SemDef + child tl : SemDefs + alternative Nil:+-}+-- cata+sem_SemDefs :: SemDefs ->+ T_SemDefs +sem_SemDefs list =+ (Prelude.foldr sem_SemDefs_Cons sem_SemDefs_Nil (Prelude.map sem_SemDef list) )+-- semantic domain+newtype T_SemDefs = T_SemDefs (Options ->+ ( ([AroundInfo]),([AugmentInfo]),([Identifier]),(Seq Error),([MergeInfo]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo])))+data Inh_SemDefs = Inh_SemDefs {options_Inh_SemDefs :: !(Options)}+data Syn_SemDefs = Syn_SemDefs {aroundInfos_Syn_SemDefs :: !(([AroundInfo])),augmentInfos_Syn_SemDefs :: !(([AugmentInfo])),definedInsts_Syn_SemDefs :: !(([Identifier])),errors_Syn_SemDefs :: !((Seq Error)),mergeInfos_Syn_SemDefs :: !(([MergeInfo])),orderDepsCollect_Syn_SemDefs :: !((Set Dependency)),pragmaNamesCollect_Syn_SemDefs :: !(([Identifier])),ruleInfos_Syn_SemDefs :: !(([RuleInfo])),sigInfos_Syn_SemDefs :: !(([SigInfo])),uniqueInfos_Syn_SemDefs :: !(([UniqueInfo]))}+wrap_SemDefs :: T_SemDefs ->+ Inh_SemDefs ->+ Syn_SemDefs +wrap_SemDefs (T_SemDefs sem ) (Inh_SemDefs _lhsIoptions ) =+ (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = sem _lhsIoptions + in (Syn_SemDefs _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos ))+sem_SemDefs_Cons :: T_SemDef ->+ T_SemDefs ->+ T_SemDefs +sem_SemDefs_Cons (T_SemDef hd_ ) (T_SemDefs tl_ ) =+ (T_SemDefs (\ _lhsIoptions ->+ (let _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ _hdOoptions :: Options+ _tlOoptions :: Options+ _hdIaroundInfos :: ([AroundInfo])+ _hdIaugmentInfos :: ([AugmentInfo])+ _hdIdefinedInsts :: ([Identifier])+ _hdIerrors :: (Seq Error)+ _hdImergeInfos :: ([MergeInfo])+ _hdIorderDepsCollect :: (Set Dependency)+ _hdIpragmaNamesCollect :: ([Identifier])+ _hdIruleInfos :: ([RuleInfo])+ _hdIsigInfos :: ([SigInfo])+ _hdIuniqueInfos :: ([UniqueInfo])+ _tlIaroundInfos :: ([AroundInfo])+ _tlIaugmentInfos :: ([AugmentInfo])+ _tlIdefinedInsts :: ([Identifier])+ _tlIerrors :: (Seq Error)+ _tlImergeInfos :: ([MergeInfo])+ _tlIorderDepsCollect :: (Set Dependency)+ _tlIpragmaNamesCollect :: ([Identifier])+ _tlIruleInfos :: ([RuleInfo])+ _tlIsigInfos :: ([SigInfo])+ _tlIuniqueInfos :: ([UniqueInfo])+ -- use rule "Transform.ag"(line 978, column 40)+ _lhsOaroundInfos =+ ({-# LINE 978 "Transform.ag" #-}+ _hdIaroundInfos ++ _tlIaroundInfos+ {-# LINE 6718 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 977, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 977 "Transform.ag" #-}+ _hdIaugmentInfos ++ _tlIaugmentInfos+ {-# LINE 6724 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1059, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1059 "Transform.ag" #-}+ _hdIdefinedInsts ++ _tlIdefinedInsts+ {-# LINE 6730 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 6736 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 979, column 40)+ _lhsOmergeInfos =+ ({-# LINE 979 "Transform.ag" #-}+ _hdImergeInfos ++ _tlImergeInfos+ {-# LINE 6742 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 826, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 826 "Transform.ag" #-}+ _hdIorderDepsCollect `Set.union` _tlIorderDepsCollect+ {-# LINE 6748 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 795, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 795 "Transform.ag" #-}+ _hdIpragmaNamesCollect ++ _tlIpragmaNamesCollect+ {-# LINE 6754 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 974, column 40)+ _lhsOruleInfos =+ ({-# LINE 974 "Transform.ag" #-}+ _hdIruleInfos ++ _tlIruleInfos+ {-# LINE 6760 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 975, column 40)+ _lhsOsigInfos =+ ({-# LINE 975 "Transform.ag" #-}+ _hdIsigInfos ++ _tlIsigInfos+ {-# LINE 6766 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 976, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 976 "Transform.ag" #-}+ _hdIuniqueInfos ++ _tlIuniqueInfos+ {-# LINE 6772 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 6778 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 6784 "Transform.hs" #-}+ )+ ( _hdIaroundInfos,_hdIaugmentInfos,_hdIdefinedInsts,_hdIerrors,_hdImergeInfos,_hdIorderDepsCollect,_hdIpragmaNamesCollect,_hdIruleInfos,_hdIsigInfos,_hdIuniqueInfos) =+ hd_ _hdOoptions + ( _tlIaroundInfos,_tlIaugmentInfos,_tlIdefinedInsts,_tlIerrors,_tlImergeInfos,_tlIorderDepsCollect,_tlIpragmaNamesCollect,_tlIruleInfos,_tlIsigInfos,_tlIuniqueInfos) =+ tl_ _tlOoptions + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDefs_Nil :: T_SemDefs +sem_SemDefs_Nil =+ (T_SemDefs (\ _lhsIoptions ->+ (let _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- use rule "Transform.ag"(line 978, column 40)+ _lhsOaroundInfos =+ ({-# LINE 978 "Transform.ag" #-}+ []+ {-# LINE 6808 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 977, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 977 "Transform.ag" #-}+ []+ {-# LINE 6814 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1059, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1059 "Transform.ag" #-}+ []+ {-# LINE 6820 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 6826 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 979, column 40)+ _lhsOmergeInfos =+ ({-# LINE 979 "Transform.ag" #-}+ []+ {-# LINE 6832 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 826, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 826 "Transform.ag" #-}+ Set.empty+ {-# LINE 6838 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 795, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 795 "Transform.ag" #-}+ []+ {-# LINE 6844 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 974, column 40)+ _lhsOruleInfos =+ ({-# LINE 974 "Transform.ag" #-}+ []+ {-# LINE 6850 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 975, column 40)+ _lhsOsigInfos =+ ({-# LINE 975 "Transform.ag" #-}+ []+ {-# LINE 6856 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 976, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 976 "Transform.ag" #-}+ []+ {-# LINE 6862 "Transform.hs" #-} ) in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )
src/Parser.hs view
@@ -130,7 +130,9 @@ <*> pSemAlts <|> Set <$> pSET <*> pIdentifierU- <* pEquals+ <*> ( False <$ pEquals+ <|> True <$ pColon+ ) <*> pNontSet <|> Deriving <$> pDERIVING
src/Version.hs view
@@ -1,4 +1,4 @@ module Version where banner :: String -banner = "Attribute Grammar compiler / HUT project. Version 0.9.37.1" +banner = "Attribute Grammar compiler / HUT project. Version 0.9.37.2"
uuagc.cabal view
@@ -1,7 +1,7 @@ cabal-version: >=1.2 build-type: Simple name: uuagc-version: 0.9.37.1+version: 0.9.37.2 license: GPL license-file: LICENSE maintainer: Arie Middelkoop <ariem@cs.uu.nl>
uuagc.cabal-for-ghc-6.6 view
@@ -1,5 +1,5 @@ name: uuagc-version: 0.9.37.1+version: 0.9.37.2 license: GPL license-file: LICENSE maintainer: Arie Middelkoop <ariem@cs.uu.nl>