uuagc-bootstrap 0.9.40.1 → 0.9.40.2
raw patch · 20 files changed
+36116/−34888 lines, 20 filesdep −uuagc-bootstrapnew-uploaderPVP ok
version bump matches the API change (PVP)
Dependencies removed: uuagc-bootstrap
API changes (from Hackage documentation)
Files
- src-derived/AG2AspectAG.hs +319/−265
- src-derived/AbstractSyntaxDump.hs +97/−49
- src-derived/CodeSyntaxDump.hs +98/−48
- src-derived/DefaultRules.hs +368/−328
- src-derived/Desugar.hs +371/−331
- src-derived/ExecutionPlan2Hs.hs +9075/−8993
- src-derived/GenerateCode.hs +7537/−7481
- src-derived/InterfacesRules.hs +133/−131
- src-derived/KWOrder.hs +273/−209
- src-derived/Order.hs +5303/−5255
- src-derived/PrintCode.hs +4071/−3923
- src-derived/PrintErrorMessages.hs +185/−111
- src-derived/PrintOcamlCode.hs +375/−227
- src-derived/PrintVisitCode.hs +98/−42
- src-derived/ResolveLocals.hs +300/−252
- src-derived/SemHsTokens.hs +161/−139
- src-derived/TfmToVisage.hs +134/−89
- src-derived/Transform.hs +7089/−6985
- src-derived/Visage.hs +67/−25
- uuagc-bootstrap.cabal +62/−5
src-derived/AG2AspectAG.hs view
@@ -563,6 +563,8 @@ Map.findWithDefault Map.empty _chnt _lhsIsynMap {-# LINE 565 "dist/build/AG2AspectAG" #-} )+ ___node =+ (Syn_Child _lhsOidCL _lhsOppCSF _lhsOppDL _lhsOppL _lhsOppLI _lhsOppR _lhsOprdInh) in ( _lhsOidCL,_lhsOppCSF,_lhsOppDL,_lhsOppL,_lhsOppLI,_lhsOppR,_lhsOprdInh)))) -- Children ---------------------------------------------------- {-@@ -671,156 +673,158 @@ _lhsOppDL = ({-# LINE 237 "src-ag/AG2AspectAG.ag" #-} _hdIppDL ++ _tlIppDL- {-# LINE 675 "dist/build/AG2AspectAG" #-}+ {-# LINE 677 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 481, column 31) _lhsOidCL = ({-# LINE 481 "src-ag/AG2AspectAG.ag" #-} _hdIidCL ++ _tlIidCL- {-# LINE 681 "dist/build/AG2AspectAG" #-}+ {-# LINE 683 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 816, column 34) _lhsOppCSF = ({-# LINE 816 "src-ag/AG2AspectAG.ag" #-} _hdIppCSF ++ _tlIppCSF- {-# LINE 687 "dist/build/AG2AspectAG" #-}+ {-# LINE 689 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 258, column 79) _lhsOppL = ({-# LINE 258 "src-ag/AG2AspectAG.ag" #-} _hdIppL >-< _tlIppL- {-# LINE 693 "dist/build/AG2AspectAG" #-}+ {-# LINE 695 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 258, column 112) _lhsOppLI = ({-# LINE 258 "src-ag/AG2AspectAG.ag" #-} _hdIppLI ++ _tlIppLI- {-# LINE 699 "dist/build/AG2AspectAG" #-}+ {-# LINE 701 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 412, column 79) _lhsOppR = ({-# LINE 412 "src-ag/AG2AspectAG.ag" #-} _hdIppR >-< _tlIppR- {-# LINE 705 "dist/build/AG2AspectAG" #-}+ {-# LINE 707 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 64, column 57) _lhsOprdInh = ({-# LINE 64 "src-ag/AG2AspectAG.ag" #-} _hdIprdInh `Map.union` _tlIprdInh- {-# LINE 711 "dist/build/AG2AspectAG" #-}+ {-# LINE 713 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOext = ({-# LINE 118 "src-ag/AG2AspectAG.ag" #-} _lhsIext- {-# LINE 717 "dist/build/AG2AspectAG" #-}+ {-# LINE 719 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 723 "dist/build/AG2AspectAG" #-}+ {-# LINE 725 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOinhNoGroup = ({-# LINE 54 "src-ag/AG2AspectAG.ag" #-} _lhsIinhNoGroup- {-# LINE 729 "dist/build/AG2AspectAG" #-}+ {-# LINE 731 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOo_noGroup = ({-# LINE 44 "src-ag/AG2AspectAG.ag" #-} _lhsIo_noGroup- {-# LINE 735 "dist/build/AG2AspectAG" #-}+ {-# LINE 737 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOo_rename = ({-# LINE 40 "src-ag/AG2AspectAG.ag" #-} _lhsIo_rename- {-# LINE 741 "dist/build/AG2AspectAG" #-}+ {-# LINE 743 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOppNt = ({-# LINE 186 "src-ag/AG2AspectAG.ag" #-} _lhsIppNt- {-# LINE 747 "dist/build/AG2AspectAG" #-}+ {-# LINE 749 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOppProd = ({-# LINE 191 "src-ag/AG2AspectAG.ag" #-} _lhsIppProd- {-# LINE 753 "dist/build/AG2AspectAG" #-}+ {-# LINE 755 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 759 "dist/build/AG2AspectAG" #-}+ {-# LINE 761 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOsynNoGroup = ({-# LINE 54 "src-ag/AG2AspectAG.ag" #-} _lhsIsynNoGroup- {-# LINE 765 "dist/build/AG2AspectAG" #-}+ {-# LINE 767 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOext = ({-# LINE 118 "src-ag/AG2AspectAG.ag" #-} _lhsIext- {-# LINE 771 "dist/build/AG2AspectAG" #-}+ {-# LINE 773 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 777 "dist/build/AG2AspectAG" #-}+ {-# LINE 779 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOinhNoGroup = ({-# LINE 54 "src-ag/AG2AspectAG.ag" #-} _lhsIinhNoGroup- {-# LINE 783 "dist/build/AG2AspectAG" #-}+ {-# LINE 785 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOo_noGroup = ({-# LINE 44 "src-ag/AG2AspectAG.ag" #-} _lhsIo_noGroup- {-# LINE 789 "dist/build/AG2AspectAG" #-}+ {-# LINE 791 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOo_rename = ({-# LINE 40 "src-ag/AG2AspectAG.ag" #-} _lhsIo_rename- {-# LINE 795 "dist/build/AG2AspectAG" #-}+ {-# LINE 797 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOppNt = ({-# LINE 186 "src-ag/AG2AspectAG.ag" #-} _lhsIppNt- {-# LINE 801 "dist/build/AG2AspectAG" #-}+ {-# LINE 803 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOppProd = ({-# LINE 191 "src-ag/AG2AspectAG.ag" #-} _lhsIppProd- {-# LINE 807 "dist/build/AG2AspectAG" #-}+ {-# LINE 809 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 813 "dist/build/AG2AspectAG" #-}+ {-# LINE 815 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOsynNoGroup = ({-# LINE 54 "src-ag/AG2AspectAG.ag" #-} _lhsIsynNoGroup- {-# LINE 819 "dist/build/AG2AspectAG" #-}+ {-# LINE 821 "dist/build/AG2AspectAG" #-} ) ( _hdIidCL,_hdIppCSF,_hdIppDL,_hdIppL,_hdIppLI,_hdIppR,_hdIprdInh) = hd_ _hdOext _hdOinhMap _hdOinhNoGroup _hdOo_noGroup _hdOo_rename _hdOppNt _hdOppProd _hdOsynMap _hdOsynNoGroup ( _tlIidCL,_tlIppCSF,_tlIppDL,_tlIppL,_tlIppLI,_tlIppR,_tlIprdInh) = tl_ _tlOext _tlOinhMap _tlOinhNoGroup _tlOo_noGroup _tlOo_rename _tlOppNt _tlOppProd _tlOsynMap _tlOsynNoGroup+ ___node =+ (Syn_Children _lhsOidCL _lhsOppCSF _lhsOppDL _lhsOppL _lhsOppLI _lhsOppR _lhsOprdInh) in ( _lhsOidCL,_lhsOppCSF,_lhsOppDL,_lhsOppL,_lhsOppLI,_lhsOppR,_lhsOprdInh)))) sem_Children_Nil :: T_Children sem_Children_Nil =@@ -844,44 +848,46 @@ _lhsOppDL = ({-# LINE 238 "src-ag/AG2AspectAG.ag" #-} []- {-# LINE 848 "dist/build/AG2AspectAG" #-}+ {-# LINE 852 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 481, column 31) _lhsOidCL = ({-# LINE 481 "src-ag/AG2AspectAG.ag" #-} []- {-# LINE 854 "dist/build/AG2AspectAG" #-}+ {-# LINE 858 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 816, column 34) _lhsOppCSF = ({-# LINE 816 "src-ag/AG2AspectAG.ag" #-} []- {-# LINE 860 "dist/build/AG2AspectAG" #-}+ {-# LINE 864 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 258, column 79) _lhsOppL = ({-# LINE 258 "src-ag/AG2AspectAG.ag" #-} empty- {-# LINE 866 "dist/build/AG2AspectAG" #-}+ {-# LINE 870 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 258, column 112) _lhsOppLI = ({-# LINE 258 "src-ag/AG2AspectAG.ag" #-} []- {-# LINE 872 "dist/build/AG2AspectAG" #-}+ {-# LINE 876 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 412, column 79) _lhsOppR = ({-# LINE 412 "src-ag/AG2AspectAG.ag" #-} empty- {-# LINE 878 "dist/build/AG2AspectAG" #-}+ {-# LINE 882 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 64, column 57) _lhsOprdInh = ({-# LINE 64 "src-ag/AG2AspectAG.ag" #-} Map.empty- {-# LINE 884 "dist/build/AG2AspectAG" #-}+ {-# LINE 888 "dist/build/AG2AspectAG" #-} )+ ___node =+ (Syn_Children _lhsOidCL _lhsOppCSF _lhsOppDL _lhsOppL _lhsOppLI _lhsOppR _lhsOprdInh) in ( _lhsOidCL,_lhsOppCSF,_lhsOppDL,_lhsOppL,_lhsOppLI,_lhsOppR,_lhsOprdInh)))) -- Expression -------------------------------------------------- {-@@ -924,8 +930,10 @@ _lhsOppRE = ({-# LINE 478 "src-ag/AG2AspectAG.ag" #-} rhsRule _lhsIppNt _lhsIppProd tks_- {-# LINE 928 "dist/build/AG2AspectAG" #-}+ {-# LINE 934 "dist/build/AG2AspectAG" #-} )+ ___node =+ (Syn_Expression _lhsOppRE) in ( _lhsOppRE)))) -- Grammar ----------------------------------------------------- {-@@ -1029,52 +1037,52 @@ _nontsOo_rename = ({-# LINE 42 "src-ag/AG2AspectAG.ag" #-} rename _lhsIoptions- {-# LINE 1033 "dist/build/AG2AspectAG" #-}+ {-# LINE 1041 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 46, column 14) _o_noGroup = ({-# LINE 46 "src-ag/AG2AspectAG.ag" #-} sort $ noGroup _lhsIoptions- {-# LINE 1039 "dist/build/AG2AspectAG" #-}+ {-# LINE 1047 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 47, column 14) _nontsOo_noGroup = ({-# LINE 47 "src-ag/AG2AspectAG.ag" #-} _o_noGroup- {-# LINE 1045 "dist/build/AG2AspectAG" #-}+ {-# LINE 1053 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 79, column 23) _newAtts = ({-# LINE 79 "src-ag/AG2AspectAG.ag" #-} case _lhsIagi of (_,_,atts) -> ( Map.unions . (\(a,b) -> a++b) . unzip . Map.elems) atts- {-# LINE 1052 "dist/build/AG2AspectAG" #-}+ {-# LINE 1060 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 81, column 23) _nontsOnewAtts = ({-# LINE 81 "src-ag/AG2AspectAG.ag" #-} _newAtts- {-# LINE 1058 "dist/build/AG2AspectAG" #-}+ {-# LINE 1066 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 87, column 23) _newProds = ({-# LINE 87 "src-ag/AG2AspectAG.ag" #-} case _lhsIagi of (_,prods,_) -> prods- {-# LINE 1065 "dist/build/AG2AspectAG" #-}+ {-# LINE 1073 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 89, column 23) _nontsOnewProds = ({-# LINE 89 "src-ag/AG2AspectAG.ag" #-} _newProds- {-# LINE 1071 "dist/build/AG2AspectAG" #-}+ {-# LINE 1079 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 111, column 23) _nontsOnewNTs = ({-# LINE 111 "src-ag/AG2AspectAG.ag" #-} case _lhsIagi of (newNTs,_,_) -> Set.difference newNTs _nontsIextendedNTs- {-# LINE 1078 "dist/build/AG2AspectAG" #-}+ {-# LINE 1086 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 126, column 25) _lhsOimp =@@ -1086,7 +1094,7 @@ "import Data.HList.TypeCastGeneric1" >-< maybe empty ("import qualified" >#<) _lhsIext >-< maybe empty (\ext -> "import" >#< ext >#< ppListSep "(" ")" "," (_nontsIppDI ++ _nontsIppLI ++ _ppAI )) _lhsIext- {-# LINE 1090 "dist/build/AG2AspectAG" #-}+ {-# LINE 1098 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 139, column 25) _lhsOpp =@@ -1109,19 +1117,19 @@ (if wrappers _lhsIoptions then "-- wrappers" >-< _nontsIppW else empty)- {-# LINE 1113 "dist/build/AG2AspectAG" #-}+ {-# LINE 1121 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 201, column 25) _nontsOderivs = ({-# LINE 201 "src-ag/AG2AspectAG.ag" #-} derivings_- {-# LINE 1119 "dist/build/AG2AspectAG" #-}+ {-# LINE 1127 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 250, column 34) _nontsOtSyns = ({-# LINE 250 "src-ag/AG2AspectAG.ag" #-} typeSyns_- {-# LINE 1125 "dist/build/AG2AspectAG" #-}+ {-# LINE 1133 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 299, column 25) _ppA =@@ -1132,7 +1140,7 @@ Nothing -> defAtt "inh" >-< defAtt "syn" otherwise -> empty) >-< _nontsIppA- {-# LINE 1136 "dist/build/AG2AspectAG" #-}+ {-# LINE 1144 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 306, column 25) _ppAI =@@ -1144,13 +1152,13 @@ Nothing -> [] otherwise -> [ attName "inh", attName "syn", attTName "inh", attTName "syn" ]) ++ _nontsIppAI- {-# LINE 1148 "dist/build/AG2AspectAG" #-}+ {-# LINE 1156 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 386, column 25) _ppNtL = ({-# LINE 386 "src-ag/AG2AspectAG.ag" #-} _nontsIppNtL- {-# LINE 1154 "dist/build/AG2AspectAG" #-}+ {-# LINE 1162 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 387, column 25) _ppR =@@ -1158,28 +1166,30 @@ ntsList "group" _ppNtL >-< vlist (map (\att -> ntsList att (filterNts att _ppNtL )) (filterAtts _newAtts _o_noGroup )) >-< _nontsIppR- {-# LINE 1162 "dist/build/AG2AspectAG" #-}+ {-# LINE 1170 "dist/build/AG2AspectAG" #-} ) -- "src-ag/DistChildAttr.ag"(line 15, column 13) _nontsOinhMap = ({-# LINE 15 "src-ag/DistChildAttr.ag" #-} _nontsIinhMap'- {-# LINE 1168 "dist/build/AG2AspectAG" #-}+ {-# LINE 1176 "dist/build/AG2AspectAG" #-} ) -- "src-ag/DistChildAttr.ag"(line 16, column 13) _nontsOsynMap = ({-# LINE 16 "src-ag/DistChildAttr.ag" #-} _nontsIsynMap'- {-# LINE 1174 "dist/build/AG2AspectAG" #-}+ {-# LINE 1182 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _nontsOext = ({-# LINE 118 "src-ag/AG2AspectAG.ag" #-} _lhsIext- {-# LINE 1180 "dist/build/AG2AspectAG" #-}+ {-# LINE 1188 "dist/build/AG2AspectAG" #-} ) ( _nontsIextendedNTs,_nontsIinhMap',_nontsIppA,_nontsIppAI,_nontsIppCata,_nontsIppD,_nontsIppDI,_nontsIppL,_nontsIppLI,_nontsIppNtL,_nontsIppR,_nontsIppSF,_nontsIppW,_nontsIsynMap') = nonts_ _nontsOderivs _nontsOext _nontsOinhMap _nontsOnewAtts _nontsOnewNTs _nontsOnewProds _nontsOo_noGroup _nontsOo_rename _nontsOsynMap _nontsOtSyns+ ___node =+ (Syn_Grammar _lhsOimp _lhsOpp) in ( _lhsOimp,_lhsOpp)))) -- HsToken ----------------------------------------------------- {-@@ -1237,38 +1247,44 @@ (Maybe String) -> T_HsToken sem_HsToken_AGField field_ attr_ pos_ rdesc_ =- (T_HsToken (let+ (T_HsToken (let ___node =+ (Syn_HsToken) in ( ))) sem_HsToken_AGLocal :: Identifier -> Pos -> (Maybe String) -> T_HsToken sem_HsToken_AGLocal var_ pos_ rdesc_ =- (T_HsToken (let+ (T_HsToken (let ___node =+ (Syn_HsToken) in ( ))) sem_HsToken_CharToken :: String -> Pos -> T_HsToken sem_HsToken_CharToken value_ pos_ =- (T_HsToken (let+ (T_HsToken (let ___node =+ (Syn_HsToken) in ( ))) sem_HsToken_Err :: String -> Pos -> T_HsToken sem_HsToken_Err mesg_ pos_ =- (T_HsToken (let+ (T_HsToken (let ___node =+ (Syn_HsToken) in ( ))) sem_HsToken_HsToken :: String -> Pos -> T_HsToken sem_HsToken_HsToken value_ pos_ =- (T_HsToken (let+ (T_HsToken (let ___node =+ (Syn_HsToken) in ( ))) sem_HsToken_StrToken :: String -> Pos -> T_HsToken sem_HsToken_StrToken value_ pos_ =- (T_HsToken (let+ (T_HsToken (let ___node =+ (Syn_HsToken) in ( ))) -- HsTokens ---------------------------------------------------- {-@@ -1297,11 +1313,13 @@ T_HsTokens -> T_HsTokens sem_HsTokens_Cons (T_HsToken hd_) (T_HsTokens tl_) =- (T_HsTokens (let+ (T_HsTokens (let ___node =+ (Syn_HsTokens) in ( ))) sem_HsTokens_Nil :: T_HsTokens sem_HsTokens_Nil =- (T_HsTokens (let+ (T_HsTokens (let ___node =+ (Syn_HsTokens) in ( ))) -- HsTokensRoot ------------------------------------------------ {-@@ -1327,7 +1345,8 @@ sem_HsTokensRoot_HsTokensRoot :: T_HsTokens -> T_HsTokensRoot sem_HsTokensRoot_HsTokensRoot (T_HsTokens tokens_) =- (T_HsTokensRoot (let+ (T_HsTokensRoot (let ___node =+ (Syn_HsTokensRoot) in ( ))) -- Nonterminal ------------------------------------------------- {-@@ -1455,25 +1474,25 @@ _inhNoGroup = ({-# LINE 50 "src-ag/AG2AspectAG.ag" #-} Map.filterWithKey (\att _ -> elem (getName att) _lhsIo_noGroup) _prodsIprdInh- {-# LINE 1459 "dist/build/AG2AspectAG" #-}+ {-# LINE 1478 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 51, column 18) _synNoGroup = ({-# LINE 51 "src-ag/AG2AspectAG.ag" #-} Map.filterWithKey (\att _ -> elem (getName att) _lhsIo_noGroup) syn_- {-# LINE 1465 "dist/build/AG2AspectAG" #-}+ {-# LINE 1484 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 56, column 18) _prodsOinhNoGroup = ({-# LINE 56 "src-ag/AG2AspectAG.ag" #-} map show $ Map.keys _inhNoGroup- {-# LINE 1471 "dist/build/AG2AspectAG" #-}+ {-# LINE 1490 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 57, column 18) _prodsOsynNoGroup = ({-# LINE 57 "src-ag/AG2AspectAG.ag" #-} map show $ Map.keys _synNoGroup- {-# LINE 1477 "dist/build/AG2AspectAG" #-}+ {-# LINE 1496 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 93, column 17) _prodsOnewProds =@@ -1481,7 +1500,7 @@ case Map.lookup nt_ _lhsInewProds of Just prds -> prds Nothing -> Map.empty- {-# LINE 1485 "dist/build/AG2AspectAG" #-}+ {-# LINE 1504 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 106, column 31) _lhsOextendedNTs =@@ -1489,19 +1508,19 @@ if _prodsIhasMoreProds then Set.singleton nt_ else Set.empty- {-# LINE 1493 "dist/build/AG2AspectAG" #-}+ {-# LINE 1512 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 172, column 25) _ppNt = ({-# LINE 172 "src-ag/AG2AspectAG.ag" #-} pp nt_- {-# LINE 1499 "dist/build/AG2AspectAG" #-}+ {-# LINE 1518 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 189, column 25) _prodsOppNt = ({-# LINE 189 "src-ag/AG2AspectAG.ag" #-} _ppNt- {-# LINE 1505 "dist/build/AG2AspectAG" #-}+ {-# LINE 1524 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 207, column 25) _lhsOppD =@@ -1515,7 +1534,7 @@ Nothing -> empty Just tp -> "type " >|< _ppNt >|< " = " >|< ppShow tp else empty- {-# LINE 1519 "dist/build/AG2AspectAG" #-}+ {-# LINE 1538 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 220, column 25) _lhsOppDI =@@ -1523,13 +1542,13 @@ if (not $ Set.member nt_ _lhsInewNTs) then [ _ppNt ] else [ ]- {-# LINE 1527 "dist/build/AG2AspectAG" #-}+ {-# LINE 1546 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 261, column 25) _ntLabel = ({-# LINE 261 "src-ag/AG2AspectAG.ag" #-} "nt_" >|< _ppNt- {-# LINE 1533 "dist/build/AG2AspectAG" #-}+ {-# LINE 1552 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 263, column 25) _lhsOppL =@@ -1538,7 +1557,7 @@ then _ntLabel >|< " = proxy :: Proxy " >|< _ppNt else empty) >-< _prodsIppL- {-# LINE 1542 "dist/build/AG2AspectAG" #-}+ {-# LINE 1561 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 268, column 25) _lhsOppLI =@@ -1547,7 +1566,7 @@ then [ _ntLabel ] else [ ]) ++ _prodsIppLI- {-# LINE 1551 "dist/build/AG2AspectAG" #-}+ {-# LINE 1570 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 319, column 25) _lhsOppA =@@ -1557,7 +1576,7 @@ defAttRec (pp "SynG") _ppNt syn_ _synNoGroup else empty) >-< _prodsIppA- {-# LINE 1561 "dist/build/AG2AspectAG" #-}+ {-# LINE 1580 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 332, column 25) _lhsOppAI =@@ -1565,43 +1584,43 @@ if (not $ Set.member nt_ _lhsInewNTs) then [ ppName [(pp "InhG"), _ppNt ] >#< pp "(..)", ppName [(pp "SynG"), _ppNt ] >#< pp "(..)" ] else [ ]- {-# LINE 1569 "dist/build/AG2AspectAG" #-}+ {-# LINE 1588 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 400, column 25) _lhsOppNtL = ({-# LINE 400 "src-ag/AG2AspectAG.ag" #-} [ ("nt_" >|< nt_, Map.union inh_ syn_) ]- {-# LINE 1575 "dist/build/AG2AspectAG" #-}+ {-# LINE 1594 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 409, column 25) _prodsOnewNT = ({-# LINE 409 "src-ag/AG2AspectAG.ag" #-} Set.member nt_ _lhsInewNTs- {-# LINE 1581 "dist/build/AG2AspectAG" #-}+ {-# LINE 1600 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 419, column 25) _lhsOppR = ({-# LINE 419 "src-ag/AG2AspectAG.ag" #-} pp "----" >|< pp nt_ >-< _prodsIppR- {-# LINE 1587 "dist/build/AG2AspectAG" #-}+ {-# LINE 1606 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 729, column 25) _lhsOppCata = ({-# LINE 729 "src-ag/AG2AspectAG.ag" #-} "----" >|< _ppNt >-< _prodsIppCata- {-# LINE 1593 "dist/build/AG2AspectAG" #-}+ {-# LINE 1612 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 760, column 25) _prodsOsyn = ({-# LINE 760 "src-ag/AG2AspectAG.ag" #-} syn_- {-# LINE 1599 "dist/build/AG2AspectAG" #-}+ {-# LINE 1618 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 761, column 25) _prodsOinh = ({-# LINE 761 "src-ag/AG2AspectAG.ag" #-} inh_- {-# LINE 1605 "dist/build/AG2AspectAG" #-}+ {-# LINE 1624 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 772, column 25) _lhsOppSF =@@ -1622,65 +1641,67 @@ "instance SemType T_" >|< _ppNt >|< " " >|< _ppNt >-< "-- sem_" >|< _ppNt >|< " :: " >|< _ppNt >|< " -> T_" >|< _ppNt >-< _prodsIppSPF- {-# LINE 1626 "dist/build/AG2AspectAG" #-}+ {-# LINE 1645 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 840, column 25) _lhsOppW = ({-# LINE 840 "src-ag/AG2AspectAG.ag" #-} ppName [pp "wrap", _ppNt ] >|< " sem " >|< attVars inh_ >|< " = " >-< " sem " >|< attFields inh_ _inhNoGroup _ppNt- {-# LINE 1633 "dist/build/AG2AspectAG" #-}+ {-# LINE 1652 "dist/build/AG2AspectAG" #-} ) -- "src-ag/DistChildAttr.ag"(line 7, column 18) _lhsOinhMap' = ({-# LINE 7 "src-ag/DistChildAttr.ag" #-} Map.singleton nt_ inh_- {-# LINE 1639 "dist/build/AG2AspectAG" #-}+ {-# LINE 1658 "dist/build/AG2AspectAG" #-} ) -- "src-ag/DistChildAttr.ag"(line 8, column 18) _lhsOsynMap' = ({-# LINE 8 "src-ag/DistChildAttr.ag" #-} Map.singleton nt_ syn_- {-# LINE 1645 "dist/build/AG2AspectAG" #-}+ {-# LINE 1664 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _prodsOext = ({-# LINE 118 "src-ag/AG2AspectAG.ag" #-} _lhsIext- {-# LINE 1651 "dist/build/AG2AspectAG" #-}+ {-# LINE 1670 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _prodsOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 1657 "dist/build/AG2AspectAG" #-}+ {-# LINE 1676 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _prodsOnewAtts = ({-# LINE 77 "src-ag/AG2AspectAG.ag" #-} _lhsInewAtts- {-# LINE 1663 "dist/build/AG2AspectAG" #-}+ {-# LINE 1682 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _prodsOo_noGroup = ({-# LINE 44 "src-ag/AG2AspectAG.ag" #-} _lhsIo_noGroup- {-# LINE 1669 "dist/build/AG2AspectAG" #-}+ {-# LINE 1688 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _prodsOo_rename = ({-# LINE 40 "src-ag/AG2AspectAG.ag" #-} _lhsIo_rename- {-# LINE 1675 "dist/build/AG2AspectAG" #-}+ {-# LINE 1694 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _prodsOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 1681 "dist/build/AG2AspectAG" #-}+ {-# LINE 1700 "dist/build/AG2AspectAG" #-} ) ( _prodsIhasMoreProds,_prodsIppA,_prodsIppCata,_prodsIppDL,_prodsIppL,_prodsIppLI,_prodsIppR,_prodsIppRA,_prodsIppSF,_prodsIppSPF,_prodsIprdInh) = prods_ _prodsOext _prodsOinh _prodsOinhMap _prodsOinhNoGroup _prodsOnewAtts _prodsOnewNT _prodsOnewProds _prodsOo_noGroup _prodsOo_rename _prodsOppNt _prodsOsyn _prodsOsynMap _prodsOsynNoGroup+ ___node =+ (Syn_Nonterminal _lhsOextendedNTs _lhsOinhMap' _lhsOppA _lhsOppAI _lhsOppCata _lhsOppD _lhsOppDI _lhsOppL _lhsOppLI _lhsOppNtL _lhsOppR _lhsOppSF _lhsOppW _lhsOsynMap') in ( _lhsOextendedNTs,_lhsOinhMap',_lhsOppA,_lhsOppAI,_lhsOppCata,_lhsOppD,_lhsOppDI,_lhsOppL,_lhsOppLI,_lhsOppNtL,_lhsOppR,_lhsOppSF,_lhsOppW,_lhsOsynMap')))) -- Nonterminals ------------------------------------------------ {-@@ -1822,210 +1843,212 @@ _lhsOextendedNTs = ({-# LINE 104 "src-ag/AG2AspectAG.ag" #-} _hdIextendedNTs `Set.union` _tlIextendedNTs- {-# LINE 1826 "dist/build/AG2AspectAG" #-}+ {-# LINE 1847 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53) _lhsOinhMap' = ({-# LINE 4 "src-ag/DistChildAttr.ag" #-} _hdIinhMap' `Map.union` _tlIinhMap'- {-# LINE 1832 "dist/build/AG2AspectAG" #-}+ {-# LINE 1853 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 316, column 64) _lhsOppA = ({-# LINE 316 "src-ag/AG2AspectAG.ag" #-} _hdIppA >-< _tlIppA- {-# LINE 1838 "dist/build/AG2AspectAG" #-}+ {-# LINE 1859 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 329, column 42) _lhsOppAI = ({-# LINE 329 "src-ag/AG2AspectAG.ag" #-} _hdIppAI ++ _tlIppAI- {-# LINE 1844 "dist/build/AG2AspectAG" #-}+ {-# LINE 1865 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 726, column 67) _lhsOppCata = ({-# LINE 726 "src-ag/AG2AspectAG.ag" #-} _hdIppCata >-< _tlIppCata- {-# LINE 1850 "dist/build/AG2AspectAG" #-}+ {-# LINE 1871 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 204, column 52) _lhsOppD = ({-# LINE 204 "src-ag/AG2AspectAG.ag" #-} _hdIppD >-< _tlIppD- {-# LINE 1856 "dist/build/AG2AspectAG" #-}+ {-# LINE 1877 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 204, column 86) _lhsOppDI = ({-# LINE 204 "src-ag/AG2AspectAG.ag" #-} _hdIppDI ++ _tlIppDI- {-# LINE 1862 "dist/build/AG2AspectAG" #-}+ {-# LINE 1883 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 258, column 79) _lhsOppL = ({-# LINE 258 "src-ag/AG2AspectAG.ag" #-} _hdIppL >-< _tlIppL- {-# LINE 1868 "dist/build/AG2AspectAG" #-}+ {-# LINE 1889 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 258, column 112) _lhsOppLI = ({-# LINE 258 "src-ag/AG2AspectAG.ag" #-} _hdIppLI ++ _tlIppLI- {-# LINE 1874 "dist/build/AG2AspectAG" #-}+ {-# LINE 1895 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 397, column 44) _lhsOppNtL = ({-# LINE 397 "src-ag/AG2AspectAG.ag" #-} _hdIppNtL ++ _tlIppNtL- {-# LINE 1880 "dist/build/AG2AspectAG" #-}+ {-# LINE 1901 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 412, column 79) _lhsOppR = ({-# LINE 412 "src-ag/AG2AspectAG.ag" #-} _hdIppR >-< _tlIppR- {-# LINE 1886 "dist/build/AG2AspectAG" #-}+ {-# LINE 1907 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 767, column 66) _lhsOppSF = ({-# LINE 767 "src-ag/AG2AspectAG.ag" #-} _hdIppSF >-< _tlIppSF- {-# LINE 1892 "dist/build/AG2AspectAG" #-}+ {-# LINE 1913 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 837, column 42) _lhsOppW = ({-# LINE 837 "src-ag/AG2AspectAG.ag" #-} _hdIppW >-< _tlIppW- {-# LINE 1898 "dist/build/AG2AspectAG" #-}+ {-# LINE 1919 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53) _lhsOsynMap' = ({-# LINE 4 "src-ag/DistChildAttr.ag" #-} _hdIsynMap' `Map.union` _tlIsynMap'- {-# LINE 1904 "dist/build/AG2AspectAG" #-}+ {-# LINE 1925 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOderivs = ({-# LINE 198 "src-ag/AG2AspectAG.ag" #-} _lhsIderivs- {-# LINE 1910 "dist/build/AG2AspectAG" #-}+ {-# LINE 1931 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOext = ({-# LINE 118 "src-ag/AG2AspectAG.ag" #-} _lhsIext- {-# LINE 1916 "dist/build/AG2AspectAG" #-}+ {-# LINE 1937 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 1922 "dist/build/AG2AspectAG" #-}+ {-# LINE 1943 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOnewAtts = ({-# LINE 77 "src-ag/AG2AspectAG.ag" #-} _lhsInewAtts- {-# LINE 1928 "dist/build/AG2AspectAG" #-}+ {-# LINE 1949 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOnewNTs = ({-# LINE 98 "src-ag/AG2AspectAG.ag" #-} _lhsInewNTs- {-# LINE 1934 "dist/build/AG2AspectAG" #-}+ {-# LINE 1955 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOnewProds = ({-# LINE 84 "src-ag/AG2AspectAG.ag" #-} _lhsInewProds- {-# LINE 1940 "dist/build/AG2AspectAG" #-}+ {-# LINE 1961 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOo_noGroup = ({-# LINE 44 "src-ag/AG2AspectAG.ag" #-} _lhsIo_noGroup- {-# LINE 1946 "dist/build/AG2AspectAG" #-}+ {-# LINE 1967 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOo_rename = ({-# LINE 40 "src-ag/AG2AspectAG.ag" #-} _lhsIo_rename- {-# LINE 1952 "dist/build/AG2AspectAG" #-}+ {-# LINE 1973 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 1958 "dist/build/AG2AspectAG" #-}+ {-# LINE 1979 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOtSyns = ({-# LINE 247 "src-ag/AG2AspectAG.ag" #-} _lhsItSyns- {-# LINE 1964 "dist/build/AG2AspectAG" #-}+ {-# LINE 1985 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOderivs = ({-# LINE 198 "src-ag/AG2AspectAG.ag" #-} _lhsIderivs- {-# LINE 1970 "dist/build/AG2AspectAG" #-}+ {-# LINE 1991 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOext = ({-# LINE 118 "src-ag/AG2AspectAG.ag" #-} _lhsIext- {-# LINE 1976 "dist/build/AG2AspectAG" #-}+ {-# LINE 1997 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 1982 "dist/build/AG2AspectAG" #-}+ {-# LINE 2003 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOnewAtts = ({-# LINE 77 "src-ag/AG2AspectAG.ag" #-} _lhsInewAtts- {-# LINE 1988 "dist/build/AG2AspectAG" #-}+ {-# LINE 2009 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOnewNTs = ({-# LINE 98 "src-ag/AG2AspectAG.ag" #-} _lhsInewNTs- {-# LINE 1994 "dist/build/AG2AspectAG" #-}+ {-# LINE 2015 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOnewProds = ({-# LINE 84 "src-ag/AG2AspectAG.ag" #-} _lhsInewProds- {-# LINE 2000 "dist/build/AG2AspectAG" #-}+ {-# LINE 2021 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOo_noGroup = ({-# LINE 44 "src-ag/AG2AspectAG.ag" #-} _lhsIo_noGroup- {-# LINE 2006 "dist/build/AG2AspectAG" #-}+ {-# LINE 2027 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOo_rename = ({-# LINE 40 "src-ag/AG2AspectAG.ag" #-} _lhsIo_rename- {-# LINE 2012 "dist/build/AG2AspectAG" #-}+ {-# LINE 2033 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 2018 "dist/build/AG2AspectAG" #-}+ {-# LINE 2039 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOtSyns = ({-# LINE 247 "src-ag/AG2AspectAG.ag" #-} _lhsItSyns- {-# LINE 2024 "dist/build/AG2AspectAG" #-}+ {-# LINE 2045 "dist/build/AG2AspectAG" #-} ) ( _hdIextendedNTs,_hdIinhMap',_hdIppA,_hdIppAI,_hdIppCata,_hdIppD,_hdIppDI,_hdIppL,_hdIppLI,_hdIppNtL,_hdIppR,_hdIppSF,_hdIppW,_hdIsynMap') = hd_ _hdOderivs _hdOext _hdOinhMap _hdOnewAtts _hdOnewNTs _hdOnewProds _hdOo_noGroup _hdOo_rename _hdOsynMap _hdOtSyns ( _tlIextendedNTs,_tlIinhMap',_tlIppA,_tlIppAI,_tlIppCata,_tlIppD,_tlIppDI,_tlIppL,_tlIppLI,_tlIppNtL,_tlIppR,_tlIppSF,_tlIppW,_tlIsynMap') = tl_ _tlOderivs _tlOext _tlOinhMap _tlOnewAtts _tlOnewNTs _tlOnewProds _tlOo_noGroup _tlOo_rename _tlOsynMap _tlOtSyns+ ___node =+ (Syn_Nonterminals _lhsOextendedNTs _lhsOinhMap' _lhsOppA _lhsOppAI _lhsOppCata _lhsOppD _lhsOppDI _lhsOppL _lhsOppLI _lhsOppNtL _lhsOppR _lhsOppSF _lhsOppW _lhsOsynMap') in ( _lhsOextendedNTs,_lhsOinhMap',_lhsOppA,_lhsOppAI,_lhsOppCata,_lhsOppD,_lhsOppDI,_lhsOppL,_lhsOppLI,_lhsOppNtL,_lhsOppR,_lhsOppSF,_lhsOppW,_lhsOsynMap')))) sem_Nonterminals_Nil :: T_Nonterminals sem_Nonterminals_Nil =@@ -2057,86 +2080,88 @@ _lhsOextendedNTs = ({-# LINE 104 "src-ag/AG2AspectAG.ag" #-} Set.empty- {-# LINE 2061 "dist/build/AG2AspectAG" #-}+ {-# LINE 2084 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53) _lhsOinhMap' = ({-# LINE 4 "src-ag/DistChildAttr.ag" #-} Map.empty- {-# LINE 2067 "dist/build/AG2AspectAG" #-}+ {-# LINE 2090 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 316, column 64) _lhsOppA = ({-# LINE 316 "src-ag/AG2AspectAG.ag" #-} empty- {-# LINE 2073 "dist/build/AG2AspectAG" #-}+ {-# LINE 2096 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 329, column 42) _lhsOppAI = ({-# LINE 329 "src-ag/AG2AspectAG.ag" #-} []- {-# LINE 2079 "dist/build/AG2AspectAG" #-}+ {-# LINE 2102 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 726, column 67) _lhsOppCata = ({-# LINE 726 "src-ag/AG2AspectAG.ag" #-} empty- {-# LINE 2085 "dist/build/AG2AspectAG" #-}+ {-# LINE 2108 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 204, column 52) _lhsOppD = ({-# LINE 204 "src-ag/AG2AspectAG.ag" #-} empty- {-# LINE 2091 "dist/build/AG2AspectAG" #-}+ {-# LINE 2114 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 204, column 86) _lhsOppDI = ({-# LINE 204 "src-ag/AG2AspectAG.ag" #-} []- {-# LINE 2097 "dist/build/AG2AspectAG" #-}+ {-# LINE 2120 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 258, column 79) _lhsOppL = ({-# LINE 258 "src-ag/AG2AspectAG.ag" #-} empty- {-# LINE 2103 "dist/build/AG2AspectAG" #-}+ {-# LINE 2126 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 258, column 112) _lhsOppLI = ({-# LINE 258 "src-ag/AG2AspectAG.ag" #-} []- {-# LINE 2109 "dist/build/AG2AspectAG" #-}+ {-# LINE 2132 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 397, column 44) _lhsOppNtL = ({-# LINE 397 "src-ag/AG2AspectAG.ag" #-} []- {-# LINE 2115 "dist/build/AG2AspectAG" #-}+ {-# LINE 2138 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 412, column 79) _lhsOppR = ({-# LINE 412 "src-ag/AG2AspectAG.ag" #-} empty- {-# LINE 2121 "dist/build/AG2AspectAG" #-}+ {-# LINE 2144 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 767, column 66) _lhsOppSF = ({-# LINE 767 "src-ag/AG2AspectAG.ag" #-} empty- {-# LINE 2127 "dist/build/AG2AspectAG" #-}+ {-# LINE 2150 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 837, column 42) _lhsOppW = ({-# LINE 837 "src-ag/AG2AspectAG.ag" #-} empty- {-# LINE 2133 "dist/build/AG2AspectAG" #-}+ {-# LINE 2156 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53) _lhsOsynMap' = ({-# LINE 4 "src-ag/DistChildAttr.ag" #-} Map.empty- {-# LINE 2139 "dist/build/AG2AspectAG" #-}+ {-# LINE 2162 "dist/build/AG2AspectAG" #-} )+ ___node =+ (Syn_Nonterminals _lhsOextendedNTs _lhsOinhMap' _lhsOppA _lhsOppAI _lhsOppCata _lhsOppD _lhsOppDI _lhsOppL _lhsOppLI _lhsOppNtL _lhsOppR _lhsOppSF _lhsOppW _lhsOsynMap') in ( _lhsOextendedNTs,_lhsOinhMap',_lhsOppA,_lhsOppAI,_lhsOppCata,_lhsOppD,_lhsOppDI,_lhsOppL,_lhsOppLI,_lhsOppNtL,_lhsOppR,_lhsOppSF,_lhsOppW,_lhsOsynMap')))) -- Pattern ----------------------------------------------------- {-@@ -2206,22 +2231,24 @@ _lhsOinfo = ({-# LINE 376 "src-ag/AG2AspectAG.ag" #-} (field_, attr_)- {-# LINE 2210 "dist/build/AG2AspectAG" #-}+ {-# LINE 2235 "dist/build/AG2AspectAG" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Alias field_ attr_ _patIcopy- {-# LINE 2216 "dist/build/AG2AspectAG" #-}+ {-# LINE 2241 "dist/build/AG2AspectAG" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 2222 "dist/build/AG2AspectAG" #-}+ {-# LINE 2247 "dist/build/AG2AspectAG" #-} ) ( _patIcopy,_patIinfo) = pat_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOinfo) in ( _lhsOcopy,_lhsOinfo))) sem_Pattern_Constr :: ConstructorIdent -> T_Patterns ->@@ -2234,22 +2261,24 @@ _lhsOinfo = ({-# LINE 377 "src-ag/AG2AspectAG.ag" #-} error "Pattern Constr undefined!!"- {-# LINE 2238 "dist/build/AG2AspectAG" #-}+ {-# LINE 2265 "dist/build/AG2AspectAG" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Constr name_ _patsIcopy- {-# LINE 2244 "dist/build/AG2AspectAG" #-}+ {-# LINE 2271 "dist/build/AG2AspectAG" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 2250 "dist/build/AG2AspectAG" #-}+ {-# LINE 2277 "dist/build/AG2AspectAG" #-} ) ( _patsIcopy) = pats_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOinfo) in ( _lhsOcopy,_lhsOinfo))) sem_Pattern_Irrefutable :: T_Pattern -> T_Pattern@@ -2262,22 +2291,24 @@ _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Irrefutable _patIcopy- {-# LINE 2266 "dist/build/AG2AspectAG" #-}+ {-# LINE 2295 "dist/build/AG2AspectAG" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 2272 "dist/build/AG2AspectAG" #-}+ {-# LINE 2301 "dist/build/AG2AspectAG" #-} ) -- copy rule (up) _lhsOinfo = ({-# LINE 374 "src-ag/AG2AspectAG.ag" #-} _patIinfo- {-# LINE 2278 "dist/build/AG2AspectAG" #-}+ {-# LINE 2307 "dist/build/AG2AspectAG" #-} ) ( _patIcopy,_patIinfo) = pat_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOinfo) in ( _lhsOcopy,_lhsOinfo))) sem_Pattern_Product :: Pos -> T_Patterns ->@@ -2290,22 +2321,24 @@ _lhsOinfo = ({-# LINE 378 "src-ag/AG2AspectAG.ag" #-} error "Pattern Product undefined!!"- {-# LINE 2294 "dist/build/AG2AspectAG" #-}+ {-# LINE 2325 "dist/build/AG2AspectAG" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Product pos_ _patsIcopy- {-# LINE 2300 "dist/build/AG2AspectAG" #-}+ {-# LINE 2331 "dist/build/AG2AspectAG" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 2306 "dist/build/AG2AspectAG" #-}+ {-# LINE 2337 "dist/build/AG2AspectAG" #-} ) ( _patsIcopy) = pats_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOinfo) in ( _lhsOcopy,_lhsOinfo))) sem_Pattern_Underscore :: Pos -> T_Pattern@@ -2316,20 +2349,22 @@ _lhsOinfo = ({-# LINE 379 "src-ag/AG2AspectAG.ag" #-} error "Pattern Underscore undefined!!"- {-# LINE 2320 "dist/build/AG2AspectAG" #-}+ {-# LINE 2353 "dist/build/AG2AspectAG" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Underscore pos_- {-# LINE 2326 "dist/build/AG2AspectAG" #-}+ {-# LINE 2359 "dist/build/AG2AspectAG" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 2332 "dist/build/AG2AspectAG" #-}+ {-# LINE 2365 "dist/build/AG2AspectAG" #-} )+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOinfo) in ( _lhsOcopy,_lhsOinfo))) -- Patterns ---------------------------------------------------- {-@@ -2373,18 +2408,20 @@ _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} (:) _hdIcopy _tlIcopy- {-# LINE 2377 "dist/build/AG2AspectAG" #-}+ {-# LINE 2412 "dist/build/AG2AspectAG" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 2383 "dist/build/AG2AspectAG" #-}+ {-# LINE 2418 "dist/build/AG2AspectAG" #-} ) ( _hdIcopy,_hdIinfo) = hd_ ( _tlIcopy) = tl_+ ___node =+ (Syn_Patterns _lhsOcopy) in ( _lhsOcopy))) sem_Patterns_Nil :: T_Patterns sem_Patterns_Nil =@@ -2393,14 +2430,16 @@ _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} []- {-# LINE 2397 "dist/build/AG2AspectAG" #-}+ {-# LINE 2434 "dist/build/AG2AspectAG" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 2403 "dist/build/AG2AspectAG" #-}+ {-# LINE 2440 "dist/build/AG2AspectAG" #-} )+ ___node =+ (Syn_Patterns _lhsOcopy) in ( _lhsOcopy))) -- Production -------------------------------------------------- {-@@ -2540,19 +2579,19 @@ _lhsOhasMoreProds = ({-# LINE 102 "src-ag/AG2AspectAG.ag" #-} not $ Map.member con_ _lhsInewProds- {-# LINE 2544 "dist/build/AG2AspectAG" #-}+ {-# LINE 2583 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 175, column 25) _ppProd = ({-# LINE 175 "src-ag/AG2AspectAG.ag" #-} pp con_- {-# LINE 2550 "dist/build/AG2AspectAG" #-}+ {-# LINE 2589 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 176, column 25) _prodName = ({-# LINE 176 "src-ag/AG2AspectAG.ag" #-} ppName [_lhsIppNt, _ppProd ]- {-# LINE 2556 "dist/build/AG2AspectAG" #-}+ {-# LINE 2595 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 177, column 25) _conName =@@ -2560,25 +2599,25 @@ if _lhsIo_rename then _prodName else _ppProd- {-# LINE 2564 "dist/build/AG2AspectAG" #-}+ {-# LINE 2603 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 194, column 25) _childrenOppProd = ({-# LINE 194 "src-ag/AG2AspectAG.ag" #-} _ppProd- {-# LINE 2570 "dist/build/AG2AspectAG" #-}+ {-# LINE 2609 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 195, column 25) _rulesOppProd = ({-# LINE 195 "src-ag/AG2AspectAG.ag" #-} _ppProd- {-# LINE 2576 "dist/build/AG2AspectAG" #-}+ {-# LINE 2615 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 227, column 25) _lhsOppD = ({-# LINE 227 "src-ag/AG2AspectAG.ag" #-} _conName >|< ppListSep " {" "}" ", " _childrenIppDL- {-# LINE 2582 "dist/build/AG2AspectAG" #-}+ {-# LINE 2621 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 274, column 25) _lhsOppL =@@ -2586,7 +2625,7 @@ if (Map.member con_ _lhsInewProds) then _childrenIppL else empty- {-# LINE 2590 "dist/build/AG2AspectAG" #-}+ {-# LINE 2629 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 278, column 25) _lhsOppLI =@@ -2594,19 +2633,19 @@ if (not $ Map.member con_ _lhsInewProds) then _childrenIppLI else []- {-# LINE 2598 "dist/build/AG2AspectAG" #-}+ {-# LINE 2637 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 326, column 25) _lhsOppA = ({-# LINE 326 "src-ag/AG2AspectAG.ag" #-} defLocalAtts _prodName (length _rulesIlocals) 1 $ sort _rulesIlocals- {-# LINE 2604 "dist/build/AG2AspectAG" #-}+ {-# LINE 2643 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 422, column 25) _newProd = ({-# LINE 422 "src-ag/AG2AspectAG.ag" #-} Map.member con_ _lhsInewProds- {-# LINE 2610 "dist/build/AG2AspectAG" #-}+ {-# LINE 2649 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 423, column 41) (_ppR,_ppRA) =@@ -2629,7 +2668,7 @@ _childrenIppR _rulesIppRL _lhsIinhNoGroup _lhsIsynNoGroup _childrenIidCL _rulesIlocals in ( vlist [instR,locR,inhGR,synGR,inhR,synR,inhMR,synMR] , instRA ++ locRA ++ inhGRA ++ synGRA ++ inhMRA ++ synMRA ++ inhRA ++ synRA)- {-# LINE 2633 "dist/build/AG2AspectAG" #-}+ {-# LINE 2672 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 733, column 25) _lhsOppCata =@@ -2647,7 +2686,7 @@ ppListSep "" "" " `ext` " (atts ++ macro ++ extend ) >-< "semP_" >|< _prodName >|< pp " = knit atts_" >|< _prodName- {-# LINE 2651 "dist/build/AG2AspectAG" #-}+ {-# LINE 2690 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 797, column 25) _lhsOppSF =@@ -2660,7 +2699,7 @@ ppParams f = f $ map (((>|<) (pp "_")) . fst) chi in "sem_" >|< _lhsIppNt >|< " (" >|< ppPattern >|< ") = sem_" >|< _prodName >|< " (" >|< map (fst . snd) chi >|< "emptyRecord)"- {-# LINE 2664 "dist/build/AG2AspectAG" #-}+ {-# LINE 2703 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 809, column 25) _lhsOppSPF =@@ -2669,120 +2708,122 @@ ppParams f = f $ map (((>|<) (pp "_")) . fst) chi in "sem_" >|< _lhsIppNt >|< "_" >|< con_ >#< ppParams ppSpaced >|< " = semP_" >|< _prodName >|< " (" >|< map (snd . snd) chi >|< "emptyRecord)"- {-# LINE 2673 "dist/build/AG2AspectAG" #-}+ {-# LINE 2712 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 204, column 86) _lhsOppDI = ({-# LINE 204 "src-ag/AG2AspectAG.ag" #-} []- {-# LINE 2679 "dist/build/AG2AspectAG" #-}+ {-# LINE 2718 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 412, column 79) _lhsOppR = ({-# LINE 412 "src-ag/AG2AspectAG.ag" #-} _ppR- {-# LINE 2685 "dist/build/AG2AspectAG" #-}+ {-# LINE 2724 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 413, column 43) _lhsOppRA = ({-# LINE 413 "src-ag/AG2AspectAG.ag" #-} _ppRA- {-# LINE 2691 "dist/build/AG2AspectAG" #-}+ {-# LINE 2730 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 64, column 57) _lhsOprdInh = ({-# LINE 64 "src-ag/AG2AspectAG.ag" #-} _childrenIprdInh- {-# LINE 2697 "dist/build/AG2AspectAG" #-}+ {-# LINE 2736 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _childrenOext = ({-# LINE 118 "src-ag/AG2AspectAG.ag" #-} _lhsIext- {-# LINE 2703 "dist/build/AG2AspectAG" #-}+ {-# LINE 2742 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _childrenOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 2709 "dist/build/AG2AspectAG" #-}+ {-# LINE 2748 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _childrenOinhNoGroup = ({-# LINE 54 "src-ag/AG2AspectAG.ag" #-} _lhsIinhNoGroup- {-# LINE 2715 "dist/build/AG2AspectAG" #-}+ {-# LINE 2754 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _childrenOo_noGroup = ({-# LINE 44 "src-ag/AG2AspectAG.ag" #-} _lhsIo_noGroup- {-# LINE 2721 "dist/build/AG2AspectAG" #-}+ {-# LINE 2760 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _childrenOo_rename = ({-# LINE 40 "src-ag/AG2AspectAG.ag" #-} _lhsIo_rename- {-# LINE 2727 "dist/build/AG2AspectAG" #-}+ {-# LINE 2766 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _childrenOppNt = ({-# LINE 186 "src-ag/AG2AspectAG.ag" #-} _lhsIppNt- {-# LINE 2733 "dist/build/AG2AspectAG" #-}+ {-# LINE 2772 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _childrenOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 2739 "dist/build/AG2AspectAG" #-}+ {-# LINE 2778 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _childrenOsynNoGroup = ({-# LINE 54 "src-ag/AG2AspectAG.ag" #-} _lhsIsynNoGroup- {-# LINE 2745 "dist/build/AG2AspectAG" #-}+ {-# LINE 2784 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _rulesOext = ({-# LINE 118 "src-ag/AG2AspectAG.ag" #-} _lhsIext- {-# LINE 2751 "dist/build/AG2AspectAG" #-}+ {-# LINE 2790 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _rulesOinhNoGroup = ({-# LINE 54 "src-ag/AG2AspectAG.ag" #-} _lhsIinhNoGroup- {-# LINE 2757 "dist/build/AG2AspectAG" #-}+ {-# LINE 2796 "dist/build/AG2AspectAG" #-} ) -- copy rule (from local) _rulesOnewProd = ({-# LINE 406 "src-ag/AG2AspectAG.ag" #-} _newProd- {-# LINE 2763 "dist/build/AG2AspectAG" #-}+ {-# LINE 2802 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _rulesOo_noGroup = ({-# LINE 44 "src-ag/AG2AspectAG.ag" #-} _lhsIo_noGroup- {-# LINE 2769 "dist/build/AG2AspectAG" #-}+ {-# LINE 2808 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _rulesOppNt = ({-# LINE 186 "src-ag/AG2AspectAG.ag" #-} _lhsIppNt- {-# LINE 2775 "dist/build/AG2AspectAG" #-}+ {-# LINE 2814 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _rulesOsynNoGroup = ({-# LINE 54 "src-ag/AG2AspectAG.ag" #-} _lhsIsynNoGroup- {-# LINE 2781 "dist/build/AG2AspectAG" #-}+ {-# LINE 2820 "dist/build/AG2AspectAG" #-} ) ( _childrenIidCL,_childrenIppCSF,_childrenIppDL,_childrenIppL,_childrenIppLI,_childrenIppR,_childrenIprdInh) = children_ _childrenOext _childrenOinhMap _childrenOinhNoGroup _childrenOo_noGroup _childrenOo_rename _childrenOppNt _childrenOppProd _childrenOsynMap _childrenOsynNoGroup ( _rulesIlocals,_rulesIppRL) = rules_ _rulesOext _rulesOinhNoGroup _rulesOnewProd _rulesOo_noGroup _rulesOppNt _rulesOppProd _rulesOsynNoGroup+ ___node =+ (Syn_Production _lhsOhasMoreProds _lhsOppA _lhsOppCata _lhsOppD _lhsOppDI _lhsOppL _lhsOppLI _lhsOppR _lhsOppRA _lhsOppSF _lhsOppSPF _lhsOprdInh) in ( _lhsOhasMoreProds,_lhsOppA,_lhsOppCata,_lhsOppD,_lhsOppDI,_lhsOppL,_lhsOppLI,_lhsOppR,_lhsOppRA,_lhsOppSF,_lhsOppSPF,_lhsOprdInh)))) -- Productions ------------------------------------------------- {-@@ -2928,228 +2969,230 @@ _hdOinhNoGroup = ({-# LINE 61 "src-ag/AG2AspectAG.ag" #-} filter (flip Map.member _hdIprdInh . identifier) _lhsIinhNoGroup- {-# LINE 2932 "dist/build/AG2AspectAG" #-}+ {-# LINE 2973 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 233, column 33) _lhsOppDL = ({-# LINE 233 "src-ag/AG2AspectAG.ag" #-} _hdIppD : _tlIppDL- {-# LINE 2938 "dist/build/AG2AspectAG" #-}+ {-# LINE 2979 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 100, column 51) _lhsOhasMoreProds = ({-# LINE 100 "src-ag/AG2AspectAG.ag" #-} _hdIhasMoreProds || _tlIhasMoreProds- {-# LINE 2944 "dist/build/AG2AspectAG" #-}+ {-# LINE 2985 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 316, column 64) _lhsOppA = ({-# LINE 316 "src-ag/AG2AspectAG.ag" #-} _hdIppA >-< _tlIppA- {-# LINE 2950 "dist/build/AG2AspectAG" #-}+ {-# LINE 2991 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 726, column 67) _lhsOppCata = ({-# LINE 726 "src-ag/AG2AspectAG.ag" #-} _hdIppCata >-< _tlIppCata- {-# LINE 2956 "dist/build/AG2AspectAG" #-}+ {-# LINE 2997 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 258, column 79) _lhsOppL = ({-# LINE 258 "src-ag/AG2AspectAG.ag" #-} _hdIppL >-< _tlIppL- {-# LINE 2962 "dist/build/AG2AspectAG" #-}+ {-# LINE 3003 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 258, column 112) _lhsOppLI = ({-# LINE 258 "src-ag/AG2AspectAG.ag" #-} _hdIppLI ++ _tlIppLI- {-# LINE 2968 "dist/build/AG2AspectAG" #-}+ {-# LINE 3009 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 412, column 79) _lhsOppR = ({-# LINE 412 "src-ag/AG2AspectAG.ag" #-} _hdIppR >-< _tlIppR- {-# LINE 2974 "dist/build/AG2AspectAG" #-}+ {-# LINE 3015 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 413, column 43) _lhsOppRA = ({-# LINE 413 "src-ag/AG2AspectAG.ag" #-} _hdIppRA ++ _tlIppRA- {-# LINE 2980 "dist/build/AG2AspectAG" #-}+ {-# LINE 3021 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 767, column 66) _lhsOppSF = ({-# LINE 767 "src-ag/AG2AspectAG.ag" #-} _hdIppSF >-< _tlIppSF- {-# LINE 2986 "dist/build/AG2AspectAG" #-}+ {-# LINE 3027 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 768, column 42) _lhsOppSPF = ({-# LINE 768 "src-ag/AG2AspectAG.ag" #-} _hdIppSPF >-< _tlIppSPF- {-# LINE 2992 "dist/build/AG2AspectAG" #-}+ {-# LINE 3033 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 64, column 57) _lhsOprdInh = ({-# LINE 64 "src-ag/AG2AspectAG.ag" #-} _hdIprdInh `Map.union` _tlIprdInh- {-# LINE 2998 "dist/build/AG2AspectAG" #-}+ {-# LINE 3039 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOext = ({-# LINE 118 "src-ag/AG2AspectAG.ag" #-} _lhsIext- {-# LINE 3004 "dist/build/AG2AspectAG" #-}+ {-# LINE 3045 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOinh = ({-# LINE 757 "src-ag/AG2AspectAG.ag" #-} _lhsIinh- {-# LINE 3010 "dist/build/AG2AspectAG" #-}+ {-# LINE 3051 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 3016 "dist/build/AG2AspectAG" #-}+ {-# LINE 3057 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOnewAtts = ({-# LINE 77 "src-ag/AG2AspectAG.ag" #-} _lhsInewAtts- {-# LINE 3022 "dist/build/AG2AspectAG" #-}+ {-# LINE 3063 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOnewNT = ({-# LINE 405 "src-ag/AG2AspectAG.ag" #-} _lhsInewNT- {-# LINE 3028 "dist/build/AG2AspectAG" #-}+ {-# LINE 3069 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOnewProds = ({-# LINE 85 "src-ag/AG2AspectAG.ag" #-} _lhsInewProds- {-# LINE 3034 "dist/build/AG2AspectAG" #-}+ {-# LINE 3075 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOo_noGroup = ({-# LINE 44 "src-ag/AG2AspectAG.ag" #-} _lhsIo_noGroup- {-# LINE 3040 "dist/build/AG2AspectAG" #-}+ {-# LINE 3081 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOo_rename = ({-# LINE 40 "src-ag/AG2AspectAG.ag" #-} _lhsIo_rename- {-# LINE 3046 "dist/build/AG2AspectAG" #-}+ {-# LINE 3087 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOppNt = ({-# LINE 186 "src-ag/AG2AspectAG.ag" #-} _lhsIppNt- {-# LINE 3052 "dist/build/AG2AspectAG" #-}+ {-# LINE 3093 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOsyn = ({-# LINE 757 "src-ag/AG2AspectAG.ag" #-} _lhsIsyn- {-# LINE 3058 "dist/build/AG2AspectAG" #-}+ {-# LINE 3099 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 3064 "dist/build/AG2AspectAG" #-}+ {-# LINE 3105 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOsynNoGroup = ({-# LINE 54 "src-ag/AG2AspectAG.ag" #-} _lhsIsynNoGroup- {-# LINE 3070 "dist/build/AG2AspectAG" #-}+ {-# LINE 3111 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOext = ({-# LINE 118 "src-ag/AG2AspectAG.ag" #-} _lhsIext- {-# LINE 3076 "dist/build/AG2AspectAG" #-}+ {-# LINE 3117 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOinh = ({-# LINE 757 "src-ag/AG2AspectAG.ag" #-} _lhsIinh- {-# LINE 3082 "dist/build/AG2AspectAG" #-}+ {-# LINE 3123 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 3088 "dist/build/AG2AspectAG" #-}+ {-# LINE 3129 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOinhNoGroup = ({-# LINE 54 "src-ag/AG2AspectAG.ag" #-} _lhsIinhNoGroup- {-# LINE 3094 "dist/build/AG2AspectAG" #-}+ {-# LINE 3135 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOnewAtts = ({-# LINE 77 "src-ag/AG2AspectAG.ag" #-} _lhsInewAtts- {-# LINE 3100 "dist/build/AG2AspectAG" #-}+ {-# LINE 3141 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOnewNT = ({-# LINE 405 "src-ag/AG2AspectAG.ag" #-} _lhsInewNT- {-# LINE 3106 "dist/build/AG2AspectAG" #-}+ {-# LINE 3147 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOnewProds = ({-# LINE 85 "src-ag/AG2AspectAG.ag" #-} _lhsInewProds- {-# LINE 3112 "dist/build/AG2AspectAG" #-}+ {-# LINE 3153 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOo_noGroup = ({-# LINE 44 "src-ag/AG2AspectAG.ag" #-} _lhsIo_noGroup- {-# LINE 3118 "dist/build/AG2AspectAG" #-}+ {-# LINE 3159 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOo_rename = ({-# LINE 40 "src-ag/AG2AspectAG.ag" #-} _lhsIo_rename- {-# LINE 3124 "dist/build/AG2AspectAG" #-}+ {-# LINE 3165 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOppNt = ({-# LINE 186 "src-ag/AG2AspectAG.ag" #-} _lhsIppNt- {-# LINE 3130 "dist/build/AG2AspectAG" #-}+ {-# LINE 3171 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOsyn = ({-# LINE 757 "src-ag/AG2AspectAG.ag" #-} _lhsIsyn- {-# LINE 3136 "dist/build/AG2AspectAG" #-}+ {-# LINE 3177 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 3142 "dist/build/AG2AspectAG" #-}+ {-# LINE 3183 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOsynNoGroup = ({-# LINE 54 "src-ag/AG2AspectAG.ag" #-} _lhsIsynNoGroup- {-# LINE 3148 "dist/build/AG2AspectAG" #-}+ {-# LINE 3189 "dist/build/AG2AspectAG" #-} ) ( _hdIhasMoreProds,_hdIppA,_hdIppCata,_hdIppD,_hdIppDI,_hdIppL,_hdIppLI,_hdIppR,_hdIppRA,_hdIppSF,_hdIppSPF,_hdIprdInh) = hd_ _hdOext _hdOinh _hdOinhMap _hdOinhNoGroup _hdOnewAtts _hdOnewNT _hdOnewProds _hdOo_noGroup _hdOo_rename _hdOppNt _hdOsyn _hdOsynMap _hdOsynNoGroup ( _tlIhasMoreProds,_tlIppA,_tlIppCata,_tlIppDL,_tlIppL,_tlIppLI,_tlIppR,_tlIppRA,_tlIppSF,_tlIppSPF,_tlIprdInh) = tl_ _tlOext _tlOinh _tlOinhMap _tlOinhNoGroup _tlOnewAtts _tlOnewNT _tlOnewProds _tlOo_noGroup _tlOo_rename _tlOppNt _tlOsyn _tlOsynMap _tlOsynNoGroup+ ___node =+ (Syn_Productions _lhsOhasMoreProds _lhsOppA _lhsOppCata _lhsOppDL _lhsOppL _lhsOppLI _lhsOppR _lhsOppRA _lhsOppSF _lhsOppSPF _lhsOprdInh) in ( _lhsOhasMoreProds,_lhsOppA,_lhsOppCata,_lhsOppDL,_lhsOppL,_lhsOppLI,_lhsOppR,_lhsOppRA,_lhsOppSF,_lhsOppSPF,_lhsOprdInh)))) sem_Productions_Nil :: T_Productions sem_Productions_Nil =@@ -3181,68 +3224,70 @@ _lhsOppDL = ({-# LINE 234 "src-ag/AG2AspectAG.ag" #-} []- {-# LINE 3185 "dist/build/AG2AspectAG" #-}+ {-# LINE 3228 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 100, column 51) _lhsOhasMoreProds = ({-# LINE 100 "src-ag/AG2AspectAG.ag" #-} False- {-# LINE 3191 "dist/build/AG2AspectAG" #-}+ {-# LINE 3234 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 316, column 64) _lhsOppA = ({-# LINE 316 "src-ag/AG2AspectAG.ag" #-} empty- {-# LINE 3197 "dist/build/AG2AspectAG" #-}+ {-# LINE 3240 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 726, column 67) _lhsOppCata = ({-# LINE 726 "src-ag/AG2AspectAG.ag" #-} empty- {-# LINE 3203 "dist/build/AG2AspectAG" #-}+ {-# LINE 3246 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 258, column 79) _lhsOppL = ({-# LINE 258 "src-ag/AG2AspectAG.ag" #-} empty- {-# LINE 3209 "dist/build/AG2AspectAG" #-}+ {-# LINE 3252 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 258, column 112) _lhsOppLI = ({-# LINE 258 "src-ag/AG2AspectAG.ag" #-} []- {-# LINE 3215 "dist/build/AG2AspectAG" #-}+ {-# LINE 3258 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 412, column 79) _lhsOppR = ({-# LINE 412 "src-ag/AG2AspectAG.ag" #-} empty- {-# LINE 3221 "dist/build/AG2AspectAG" #-}+ {-# LINE 3264 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 413, column 43) _lhsOppRA = ({-# LINE 413 "src-ag/AG2AspectAG.ag" #-} []- {-# LINE 3227 "dist/build/AG2AspectAG" #-}+ {-# LINE 3270 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 767, column 66) _lhsOppSF = ({-# LINE 767 "src-ag/AG2AspectAG.ag" #-} empty- {-# LINE 3233 "dist/build/AG2AspectAG" #-}+ {-# LINE 3276 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 768, column 42) _lhsOppSPF = ({-# LINE 768 "src-ag/AG2AspectAG.ag" #-} empty- {-# LINE 3239 "dist/build/AG2AspectAG" #-}+ {-# LINE 3282 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 64, column 57) _lhsOprdInh = ({-# LINE 64 "src-ag/AG2AspectAG.ag" #-} Map.empty- {-# LINE 3245 "dist/build/AG2AspectAG" #-}+ {-# LINE 3288 "dist/build/AG2AspectAG" #-} )+ ___node =+ (Syn_Productions _lhsOhasMoreProds _lhsOppA _lhsOppCata _lhsOppDL _lhsOppL _lhsOppLI _lhsOppR _lhsOppRA _lhsOppSF _lhsOppSPF _lhsOprdInh) in ( _lhsOhasMoreProds,_lhsOppA,_lhsOppCata,_lhsOppDL,_lhsOppL,_lhsOppLI,_lhsOppR,_lhsOppRA,_lhsOppSF,_lhsOppSPF,_lhsOprdInh)))) -- Rule -------------------------------------------------------- {-@@ -3325,7 +3370,7 @@ if (show (fst _patternIinfo) == "loc") then [ snd _patternIinfo ] else [ ]- {-# LINE 3329 "dist/build/AG2AspectAG" #-}+ {-# LINE 3374 "dist/build/AG2AspectAG" #-} ) -- "src-ag/AG2AspectAG.ag"(line 466, column 33) _lhsOppRL =@@ -3333,24 +3378,26 @@ if (not explicit_ && not _lhsInewProd) then [] else [ ppRule _patternIinfo owrt_ (defRule _lhsIppNt _patternIinfo _lhsIo_noGroup _rhsIppRE) ]- {-# LINE 3337 "dist/build/AG2AspectAG" #-}+ {-# LINE 3382 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _rhsOppNt = ({-# LINE 186 "src-ag/AG2AspectAG.ag" #-} _lhsIppNt- {-# LINE 3343 "dist/build/AG2AspectAG" #-}+ {-# LINE 3388 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _rhsOppProd = ({-# LINE 191 "src-ag/AG2AspectAG.ag" #-} _lhsIppProd- {-# LINE 3349 "dist/build/AG2AspectAG" #-}+ {-# LINE 3394 "dist/build/AG2AspectAG" #-} ) ( _patternIcopy,_patternIinfo) = pattern_ ( _rhsIppRE) = rhs_ _rhsOppNt _rhsOppProd+ ___node =+ (Syn_Rule _lhsOlocals _lhsOppRL) in ( _lhsOlocals,_lhsOppRL)))) -- Rules ------------------------------------------------------- {-@@ -3429,102 +3476,104 @@ _lhsOppRL = ({-# LINE 462 "src-ag/AG2AspectAG.ag" #-} _hdIppRL ++ _tlIppRL- {-# LINE 3433 "dist/build/AG2AspectAG" #-}+ {-# LINE 3480 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 365, column 30) _lhsOlocals = ({-# LINE 365 "src-ag/AG2AspectAG.ag" #-} _hdIlocals ++ _tlIlocals- {-# LINE 3439 "dist/build/AG2AspectAG" #-}+ {-# LINE 3486 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOext = ({-# LINE 118 "src-ag/AG2AspectAG.ag" #-} _lhsIext- {-# LINE 3445 "dist/build/AG2AspectAG" #-}+ {-# LINE 3492 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOinhNoGroup = ({-# LINE 54 "src-ag/AG2AspectAG.ag" #-} _lhsIinhNoGroup- {-# LINE 3451 "dist/build/AG2AspectAG" #-}+ {-# LINE 3498 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOnewProd = ({-# LINE 406 "src-ag/AG2AspectAG.ag" #-} _lhsInewProd- {-# LINE 3457 "dist/build/AG2AspectAG" #-}+ {-# LINE 3504 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOo_noGroup = ({-# LINE 44 "src-ag/AG2AspectAG.ag" #-} _lhsIo_noGroup- {-# LINE 3463 "dist/build/AG2AspectAG" #-}+ {-# LINE 3510 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOppNt = ({-# LINE 186 "src-ag/AG2AspectAG.ag" #-} _lhsIppNt- {-# LINE 3469 "dist/build/AG2AspectAG" #-}+ {-# LINE 3516 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOppProd = ({-# LINE 191 "src-ag/AG2AspectAG.ag" #-} _lhsIppProd- {-# LINE 3475 "dist/build/AG2AspectAG" #-}+ {-# LINE 3522 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _hdOsynNoGroup = ({-# LINE 54 "src-ag/AG2AspectAG.ag" #-} _lhsIsynNoGroup- {-# LINE 3481 "dist/build/AG2AspectAG" #-}+ {-# LINE 3528 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOext = ({-# LINE 118 "src-ag/AG2AspectAG.ag" #-} _lhsIext- {-# LINE 3487 "dist/build/AG2AspectAG" #-}+ {-# LINE 3534 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOinhNoGroup = ({-# LINE 54 "src-ag/AG2AspectAG.ag" #-} _lhsIinhNoGroup- {-# LINE 3493 "dist/build/AG2AspectAG" #-}+ {-# LINE 3540 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOnewProd = ({-# LINE 406 "src-ag/AG2AspectAG.ag" #-} _lhsInewProd- {-# LINE 3499 "dist/build/AG2AspectAG" #-}+ {-# LINE 3546 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOo_noGroup = ({-# LINE 44 "src-ag/AG2AspectAG.ag" #-} _lhsIo_noGroup- {-# LINE 3505 "dist/build/AG2AspectAG" #-}+ {-# LINE 3552 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOppNt = ({-# LINE 186 "src-ag/AG2AspectAG.ag" #-} _lhsIppNt- {-# LINE 3511 "dist/build/AG2AspectAG" #-}+ {-# LINE 3558 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOppProd = ({-# LINE 191 "src-ag/AG2AspectAG.ag" #-} _lhsIppProd- {-# LINE 3517 "dist/build/AG2AspectAG" #-}+ {-# LINE 3564 "dist/build/AG2AspectAG" #-} ) -- copy rule (down) _tlOsynNoGroup = ({-# LINE 54 "src-ag/AG2AspectAG.ag" #-} _lhsIsynNoGroup- {-# LINE 3523 "dist/build/AG2AspectAG" #-}+ {-# LINE 3570 "dist/build/AG2AspectAG" #-} ) ( _hdIlocals,_hdIppRL) = hd_ _hdOext _hdOinhNoGroup _hdOnewProd _hdOo_noGroup _hdOppNt _hdOppProd _hdOsynNoGroup ( _tlIlocals,_tlIppRL) = tl_ _tlOext _tlOinhNoGroup _tlOnewProd _tlOo_noGroup _tlOppNt _tlOppProd _tlOsynNoGroup+ ___node =+ (Syn_Rules _lhsOlocals _lhsOppRL) in ( _lhsOlocals,_lhsOppRL)))) sem_Rules_Nil :: T_Rules sem_Rules_Nil =@@ -3541,14 +3590,16 @@ _lhsOppRL = ({-# LINE 463 "src-ag/AG2AspectAG.ag" #-} []- {-# LINE 3545 "dist/build/AG2AspectAG" #-}+ {-# LINE 3594 "dist/build/AG2AspectAG" #-} ) -- use rule "src-ag/AG2AspectAG.ag"(line 365, column 30) _lhsOlocals = ({-# LINE 365 "src-ag/AG2AspectAG.ag" #-} []- {-# LINE 3551 "dist/build/AG2AspectAG" #-}+ {-# LINE 3600 "dist/build/AG2AspectAG" #-} )+ ___node =+ (Syn_Rules _lhsOlocals _lhsOppRL) in ( _lhsOlocals,_lhsOppRL)))) -- TypeSig ----------------------------------------------------- {-@@ -3576,7 +3627,8 @@ Type -> T_TypeSig sem_TypeSig_TypeSig name_ tp_ =- (T_TypeSig (let+ (T_TypeSig (let ___node =+ (Syn_TypeSig) in ( ))) -- TypeSigs ---------------------------------------------------- {-@@ -3605,9 +3657,11 @@ T_TypeSigs -> T_TypeSigs sem_TypeSigs_Cons (T_TypeSig hd_) (T_TypeSigs tl_) =- (T_TypeSigs (let+ (T_TypeSigs (let ___node =+ (Syn_TypeSigs) in ( ))) sem_TypeSigs_Nil :: T_TypeSigs sem_TypeSigs_Nil =- (T_TypeSigs (let+ (T_TypeSigs (let ___node =+ (Syn_TypeSigs) in ( )))
src-derived/AbstractSyntaxDump.hs view
@@ -76,6 +76,8 @@ ppNestInfo ["Child","Child"] [pp name_, ppShow tp_] [ppF "kind" $ ppShow kind_] [] {-# LINE 78 "dist/build/AbstractSyntaxDump" #-} )+ ___node =+ (Syn_Child _lhsOpp) in ( _lhsOpp))) -- Children ---------------------------------------------------- {-@@ -117,18 +119,20 @@ _lhsOppL = ({-# LINE 67 "src-ag/AbstractSyntaxDump.ag" #-} _hdIpp : _tlIppL- {-# LINE 121 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 123 "dist/build/AbstractSyntaxDump" #-} ) -- use rule "src-ag/AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "src-ag/AbstractSyntaxDump.ag" #-} _hdIpp >-< _tlIpp- {-# LINE 127 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 129 "dist/build/AbstractSyntaxDump" #-} ) ( _hdIpp) = hd_ ( _tlIpp,_tlIppL) = tl_+ ___node =+ (Syn_Children _lhsOpp _lhsOppL) in ( _lhsOpp,_lhsOppL))) sem_Children_Nil :: T_Children sem_Children_Nil =@@ -138,14 +142,16 @@ _lhsOppL = ({-# LINE 68 "src-ag/AbstractSyntaxDump.ag" #-} []- {-# LINE 142 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 146 "dist/build/AbstractSyntaxDump" #-} ) -- use rule "src-ag/AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "src-ag/AbstractSyntaxDump.ag" #-} empty- {-# LINE 148 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 152 "dist/build/AbstractSyntaxDump" #-} )+ ___node =+ (Syn_Children _lhsOpp _lhsOppL) in ( _lhsOpp,_lhsOppL))) -- Expression -------------------------------------------------- {-@@ -181,8 +187,10 @@ _lhsOpp = ({-# LINE 50 "src-ag/AbstractSyntaxDump.ag" #-} ppNestInfo ["Expression","Expression"] [ppShow pos_] [ppF "txt" $ vlist . showTokens . tokensToStrings $ tks_] []- {-# LINE 185 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 191 "dist/build/AbstractSyntaxDump" #-} )+ ___node =+ (Syn_Expression _lhsOpp) in ( _lhsOpp))) -- Grammar ----------------------------------------------------- {-@@ -250,10 +258,12 @@ , ppF "wrappers" $ ppShow $ wrappers_ , ppF "nonts" $ ppVList _nontsIppL ] []- {-# LINE 254 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 262 "dist/build/AbstractSyntaxDump" #-} ) ( _nontsIpp,_nontsIppL) = nonts_+ ___node =+ (Syn_Grammar _lhsOpp) in ( _lhsOpp))) -- Nonterminal ------------------------------------------------- {-@@ -297,10 +307,12 @@ _lhsOpp = ({-# LINE 29 "src-ag/AbstractSyntaxDump.ag" #-} ppNestInfo ["Nonterminal","Nonterminal"] (pp nt_ : map pp params_) [ppF "inh" $ ppMap inh_, ppF "syn" $ ppMap syn_, ppF "prods" $ ppVList _prodsIppL] []- {-# LINE 301 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 311 "dist/build/AbstractSyntaxDump" #-} ) ( _prodsIpp,_prodsIppL) = prods_+ ___node =+ (Syn_Nonterminal _lhsOpp) in ( _lhsOpp))) -- Nonterminals ------------------------------------------------ {-@@ -342,18 +354,20 @@ _lhsOppL = ({-# LINE 75 "src-ag/AbstractSyntaxDump.ag" #-} _hdIpp : _tlIppL- {-# LINE 346 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 358 "dist/build/AbstractSyntaxDump" #-} ) -- use rule "src-ag/AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "src-ag/AbstractSyntaxDump.ag" #-} _hdIpp >-< _tlIpp- {-# LINE 352 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 364 "dist/build/AbstractSyntaxDump" #-} ) ( _hdIpp) = hd_ ( _tlIpp,_tlIppL) = tl_+ ___node =+ (Syn_Nonterminals _lhsOpp _lhsOppL) in ( _lhsOpp,_lhsOppL))) sem_Nonterminals_Nil :: T_Nonterminals sem_Nonterminals_Nil =@@ -363,14 +377,16 @@ _lhsOppL = ({-# LINE 76 "src-ag/AbstractSyntaxDump.ag" #-} []- {-# LINE 367 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 381 "dist/build/AbstractSyntaxDump" #-} ) -- use rule "src-ag/AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "src-ag/AbstractSyntaxDump.ag" #-} empty- {-# LINE 373 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 387 "dist/build/AbstractSyntaxDump" #-} )+ ___node =+ (Syn_Nonterminals _lhsOpp _lhsOppL) in ( _lhsOpp,_lhsOppL))) -- Pattern ----------------------------------------------------- {-@@ -440,22 +456,24 @@ _lhsOpp = ({-# LINE 46 "src-ag/AbstractSyntaxDump.ag" #-} ppNestInfo ["Pattern","Alias"] [pp field_, pp attr_] [ppF "pat" $ _patIpp] []- {-# LINE 444 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 460 "dist/build/AbstractSyntaxDump" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Alias field_ attr_ _patIcopy- {-# LINE 450 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 466 "dist/build/AbstractSyntaxDump" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 456 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 472 "dist/build/AbstractSyntaxDump" #-} ) ( _patIcopy,_patIpp) = pat_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOpp) in ( _lhsOcopy,_lhsOpp))) sem_Pattern_Constr :: ConstructorIdent -> T_Patterns ->@@ -470,22 +488,24 @@ _lhsOpp = ({-# LINE 44 "src-ag/AbstractSyntaxDump.ag" #-} ppNestInfo ["Pattern","Constr"] [pp name_] [ppF "pats" $ ppVList _patsIppL] []- {-# LINE 474 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 492 "dist/build/AbstractSyntaxDump" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Constr name_ _patsIcopy- {-# LINE 480 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 498 "dist/build/AbstractSyntaxDump" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 486 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 504 "dist/build/AbstractSyntaxDump" #-} ) ( _patsIcopy,_patsIpp,_patsIppL) = pats_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOpp) in ( _lhsOcopy,_lhsOpp))) sem_Pattern_Irrefutable :: T_Pattern -> T_Pattern@@ -498,22 +518,24 @@ _lhsOpp = ({-# LINE 17 "src-ag/AbstractSyntaxDump.ag" #-} _patIpp- {-# LINE 502 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 522 "dist/build/AbstractSyntaxDump" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Irrefutable _patIcopy- {-# LINE 508 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 528 "dist/build/AbstractSyntaxDump" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 514 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 534 "dist/build/AbstractSyntaxDump" #-} ) ( _patIcopy,_patIpp) = pat_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOpp) in ( _lhsOcopy,_lhsOpp))) sem_Pattern_Product :: Pos -> T_Patterns ->@@ -528,22 +550,24 @@ _lhsOpp = ({-# LINE 45 "src-ag/AbstractSyntaxDump.ag" #-} ppNestInfo ["Pattern","Product"] [ppShow pos_] [ppF "pats" $ ppVList _patsIppL] []- {-# LINE 532 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 554 "dist/build/AbstractSyntaxDump" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Product pos_ _patsIcopy- {-# LINE 538 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 560 "dist/build/AbstractSyntaxDump" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 544 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 566 "dist/build/AbstractSyntaxDump" #-} ) ( _patsIcopy,_patsIpp,_patsIppL) = pats_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOpp) in ( _lhsOcopy,_lhsOpp))) sem_Pattern_Underscore :: Pos -> T_Pattern@@ -554,20 +578,22 @@ _lhsOpp = ({-# LINE 47 "src-ag/AbstractSyntaxDump.ag" #-} ppNestInfo ["Pattern","Underscore"] [ppShow pos_] [] []- {-# LINE 558 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 582 "dist/build/AbstractSyntaxDump" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Underscore pos_- {-# LINE 564 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 588 "dist/build/AbstractSyntaxDump" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 570 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 594 "dist/build/AbstractSyntaxDump" #-} )+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOpp) in ( _lhsOcopy,_lhsOpp))) -- Patterns ---------------------------------------------------- {-@@ -617,30 +643,32 @@ _lhsOppL = ({-# LINE 55 "src-ag/AbstractSyntaxDump.ag" #-} _hdIpp : _tlIppL- {-# LINE 621 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 647 "dist/build/AbstractSyntaxDump" #-} ) -- use rule "src-ag/AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "src-ag/AbstractSyntaxDump.ag" #-} _hdIpp >-< _tlIpp- {-# LINE 627 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 653 "dist/build/AbstractSyntaxDump" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} (:) _hdIcopy _tlIcopy- {-# LINE 633 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 659 "dist/build/AbstractSyntaxDump" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 639 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 665 "dist/build/AbstractSyntaxDump" #-} ) ( _hdIcopy,_hdIpp) = hd_ ( _tlIcopy,_tlIpp,_tlIppL) = tl_+ ___node =+ (Syn_Patterns _lhsOcopy _lhsOpp _lhsOppL) in ( _lhsOcopy,_lhsOpp,_lhsOppL))) sem_Patterns_Nil :: T_Patterns sem_Patterns_Nil =@@ -651,26 +679,28 @@ _lhsOppL = ({-# LINE 56 "src-ag/AbstractSyntaxDump.ag" #-} []- {-# LINE 655 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 683 "dist/build/AbstractSyntaxDump" #-} ) -- use rule "src-ag/AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "src-ag/AbstractSyntaxDump.ag" #-} empty- {-# LINE 661 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 689 "dist/build/AbstractSyntaxDump" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} []- {-# LINE 667 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 695 "dist/build/AbstractSyntaxDump" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 673 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 701 "dist/build/AbstractSyntaxDump" #-} )+ ___node =+ (Syn_Patterns _lhsOcopy _lhsOpp _lhsOppL) in ( _lhsOcopy,_lhsOpp,_lhsOppL))) -- Production -------------------------------------------------- {-@@ -722,7 +752,7 @@ _lhsOpp = ({-# LINE 32 "src-ag/AbstractSyntaxDump.ag" #-} ppNestInfo ["Production","Production"] [pp con_] [ppF "children" $ ppVList _childrenIppL,ppF "rules" $ ppVList _rulesIppL,ppF "typeSigs" $ ppVList _typeSigsIppL] []- {-# LINE 726 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 756 "dist/build/AbstractSyntaxDump" #-} ) ( _childrenIpp,_childrenIppL) = children_@@ -730,6 +760,8 @@ rules_ ( _typeSigsIpp,_typeSigsIppL) = typeSigs_+ ___node =+ (Syn_Production _lhsOpp) in ( _lhsOpp))) -- Productions ------------------------------------------------- {-@@ -771,18 +803,20 @@ _lhsOppL = ({-# LINE 71 "src-ag/AbstractSyntaxDump.ag" #-} _hdIpp : _tlIppL- {-# LINE 775 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 807 "dist/build/AbstractSyntaxDump" #-} ) -- use rule "src-ag/AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "src-ag/AbstractSyntaxDump.ag" #-} _hdIpp >-< _tlIpp- {-# LINE 781 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 813 "dist/build/AbstractSyntaxDump" #-} ) ( _hdIpp) = hd_ ( _tlIpp,_tlIppL) = tl_+ ___node =+ (Syn_Productions _lhsOpp _lhsOppL) in ( _lhsOpp,_lhsOppL))) sem_Productions_Nil :: T_Productions sem_Productions_Nil =@@ -792,14 +826,16 @@ _lhsOppL = ({-# LINE 72 "src-ag/AbstractSyntaxDump.ag" #-} []- {-# LINE 796 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 830 "dist/build/AbstractSyntaxDump" #-} ) -- use rule "src-ag/AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "src-ag/AbstractSyntaxDump.ag" #-} empty- {-# LINE 802 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 836 "dist/build/AbstractSyntaxDump" #-} )+ ___node =+ (Syn_Productions _lhsOpp _lhsOppL) in ( _lhsOpp,_lhsOppL))) -- Rule -------------------------------------------------------- {-@@ -854,12 +890,14 @@ _lhsOpp = ({-# LINE 38 "src-ag/AbstractSyntaxDump.ag" #-} ppNestInfo ["Rule","Rule"] [ppShow owrt_, pp origin_] [ppF "pattern" $ _patternIpp, ppF "rhs" $ _rhsIpp] []- {-# LINE 858 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 894 "dist/build/AbstractSyntaxDump" #-} ) ( _patternIcopy,_patternIpp) = pattern_ ( _rhsIpp) = rhs_+ ___node =+ (Syn_Rule _lhsOpp) in ( _lhsOpp))) -- Rules ------------------------------------------------------- {-@@ -901,18 +939,20 @@ _lhsOppL = ({-# LINE 63 "src-ag/AbstractSyntaxDump.ag" #-} _hdIpp : _tlIppL- {-# LINE 905 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 943 "dist/build/AbstractSyntaxDump" #-} ) -- use rule "src-ag/AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "src-ag/AbstractSyntaxDump.ag" #-} _hdIpp >-< _tlIpp- {-# LINE 911 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 949 "dist/build/AbstractSyntaxDump" #-} ) ( _hdIpp) = hd_ ( _tlIpp,_tlIppL) = tl_+ ___node =+ (Syn_Rules _lhsOpp _lhsOppL) in ( _lhsOpp,_lhsOppL))) sem_Rules_Nil :: T_Rules sem_Rules_Nil =@@ -922,14 +962,16 @@ _lhsOppL = ({-# LINE 64 "src-ag/AbstractSyntaxDump.ag" #-} []- {-# LINE 926 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 966 "dist/build/AbstractSyntaxDump" #-} ) -- use rule "src-ag/AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "src-ag/AbstractSyntaxDump.ag" #-} empty- {-# LINE 932 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 972 "dist/build/AbstractSyntaxDump" #-} )+ ___node =+ (Syn_Rules _lhsOpp _lhsOppL) in ( _lhsOpp,_lhsOppL))) -- TypeSig ----------------------------------------------------- {-@@ -965,8 +1007,10 @@ _lhsOpp = ({-# LINE 41 "src-ag/AbstractSyntaxDump.ag" #-} ppNestInfo ["TypeSig","TypeSig"] [pp name_, ppShow tp_] [] []- {-# LINE 969 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 1011 "dist/build/AbstractSyntaxDump" #-} )+ ___node =+ (Syn_TypeSig _lhsOpp) in ( _lhsOpp))) -- TypeSigs ---------------------------------------------------- {-@@ -1008,18 +1052,20 @@ _lhsOppL = ({-# LINE 59 "src-ag/AbstractSyntaxDump.ag" #-} _hdIpp : _tlIppL- {-# LINE 1012 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 1056 "dist/build/AbstractSyntaxDump" #-} ) -- use rule "src-ag/AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "src-ag/AbstractSyntaxDump.ag" #-} _hdIpp >-< _tlIpp- {-# LINE 1018 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 1062 "dist/build/AbstractSyntaxDump" #-} ) ( _hdIpp) = hd_ ( _tlIpp,_tlIppL) = tl_+ ___node =+ (Syn_TypeSigs _lhsOpp _lhsOppL) in ( _lhsOpp,_lhsOppL))) sem_TypeSigs_Nil :: T_TypeSigs sem_TypeSigs_Nil =@@ -1029,12 +1075,14 @@ _lhsOppL = ({-# LINE 60 "src-ag/AbstractSyntaxDump.ag" #-} []- {-# LINE 1033 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 1079 "dist/build/AbstractSyntaxDump" #-} ) -- use rule "src-ag/AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "src-ag/AbstractSyntaxDump.ag" #-} empty- {-# LINE 1039 "dist/build/AbstractSyntaxDump" #-}+ {-# LINE 1085 "dist/build/AbstractSyntaxDump" #-} )+ ___node =+ (Syn_TypeSigs _lhsOpp _lhsOppL) in ( _lhsOpp,_lhsOppL)))
src-derived/CodeSyntaxDump.hs view
@@ -117,6 +117,8 @@ ) ( _nontsIpp,_nontsIppL) = nonts_+ ___node =+ (Syn_CGrammar _lhsOpp) in ( _lhsOpp))) -- CInterface -------------------------------------------------- {-@@ -152,10 +154,12 @@ _lhsOpp = ({-# LINE 57 "src-ag/CodeSyntaxDump.ag" #-} ppNestInfo ["CInterface","CInterface"] [] [ppF "seg" $ ppVList _segIppL] []- {-# LINE 156 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 158 "dist/build/CodeSyntaxDump" #-} ) ( _segIpp,_segIppL) = seg_+ ___node =+ (Syn_CInterface _lhsOpp) in ( _lhsOpp))) -- CNonterminal ------------------------------------------------ {-@@ -202,12 +206,14 @@ _lhsOpp = ({-# LINE 54 "src-ag/CodeSyntaxDump.ag" #-} ppNestInfo ["CNonterminal","CNonterminal"] (pp nt_ : map pp params_) [ppF "inh" $ ppMap inh_, ppF "syn" $ ppMap syn_, ppF "prods" $ ppVList _prodsIppL, ppF "inter" _interIpp] []- {-# LINE 206 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 210 "dist/build/CodeSyntaxDump" #-} ) ( _prodsIpp,_prodsIppL) = prods_ ( _interIpp) = inter_+ ___node =+ (Syn_CNonterminal _lhsOpp) in ( _lhsOpp))) -- CNonterminals ----------------------------------------------- {-@@ -249,18 +255,20 @@ _lhsOppL = ({-# LINE 102 "src-ag/CodeSyntaxDump.ag" #-} _hdIpp : _tlIppL- {-# LINE 253 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 259 "dist/build/CodeSyntaxDump" #-} ) -- use rule "src-ag/CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "src-ag/CodeSyntaxDump.ag" #-} _hdIpp >-< _tlIpp- {-# LINE 259 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 265 "dist/build/CodeSyntaxDump" #-} ) ( _hdIpp) = hd_ ( _tlIpp,_tlIppL) = tl_+ ___node =+ (Syn_CNonterminals _lhsOpp _lhsOppL) in ( _lhsOpp,_lhsOppL))) sem_CNonterminals_Nil :: T_CNonterminals sem_CNonterminals_Nil =@@ -270,14 +278,16 @@ _lhsOppL = ({-# LINE 103 "src-ag/CodeSyntaxDump.ag" #-} []- {-# LINE 274 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 282 "dist/build/CodeSyntaxDump" #-} ) -- use rule "src-ag/CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "src-ag/CodeSyntaxDump.ag" #-} empty- {-# LINE 280 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 288 "dist/build/CodeSyntaxDump" #-} )+ ___node =+ (Syn_CNonterminals _lhsOpp _lhsOppL) in ( _lhsOpp,_lhsOppL))) -- CProduction ------------------------------------------------- {-@@ -319,10 +329,12 @@ _lhsOpp = ({-# LINE 63 "src-ag/CodeSyntaxDump.ag" #-} ppNestInfo ["CProduction","CProduction"] [pp con_] [ppF "visits" $ ppVList _visitsIppL, ppF "children" $ ppVList (map ppChild children_),ppF "terminals" $ ppVList (map ppShow terminals_)] []- {-# LINE 323 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 333 "dist/build/CodeSyntaxDump" #-} ) ( _visitsIpp,_visitsIppL) = visits_+ ___node =+ (Syn_CProduction _lhsOpp) in ( _lhsOpp))) -- CProductions ------------------------------------------------ {-@@ -364,18 +376,20 @@ _lhsOppL = ({-# LINE 94 "src-ag/CodeSyntaxDump.ag" #-} _hdIpp : _tlIppL- {-# LINE 368 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 380 "dist/build/CodeSyntaxDump" #-} ) -- use rule "src-ag/CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "src-ag/CodeSyntaxDump.ag" #-} _hdIpp >-< _tlIpp- {-# LINE 374 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 386 "dist/build/CodeSyntaxDump" #-} ) ( _hdIpp) = hd_ ( _tlIpp,_tlIppL) = tl_+ ___node =+ (Syn_CProductions _lhsOpp _lhsOppL) in ( _lhsOpp,_lhsOppL))) sem_CProductions_Nil :: T_CProductions sem_CProductions_Nil =@@ -385,14 +399,16 @@ _lhsOppL = ({-# LINE 95 "src-ag/CodeSyntaxDump.ag" #-} []- {-# LINE 389 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 403 "dist/build/CodeSyntaxDump" #-} ) -- use rule "src-ag/CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "src-ag/CodeSyntaxDump.ag" #-} empty- {-# LINE 395 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 409 "dist/build/CodeSyntaxDump" #-} )+ ___node =+ (Syn_CProductions _lhsOpp _lhsOppL) in ( _lhsOpp,_lhsOppL))) -- CRule ------------------------------------------------------- {-@@ -455,8 +471,10 @@ _lhsOpp = ({-# LINE 70 "src-ag/CodeSyntaxDump.ag" #-} ppNestInfo ["CRule","CChildVisit"] [pp name_] [ppF "nt" $ pp nt_, ppF "nr" $ ppShow nr_, ppF "inh" $ ppMap inh_, ppF "syn" $ ppMap syn_, ppF "last" $ ppBool isLast_] []- {-# LINE 459 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 475 "dist/build/CodeSyntaxDump" #-} )+ ___node =+ (Syn_CRule _lhsOpp) in ( _lhsOpp))) sem_CRule_CRule :: Identifier -> Bool ->@@ -483,10 +501,12 @@ _lhsOpp = ({-# LINE 69 "src-ag/CodeSyntaxDump.ag" #-} ppNestInfo ["CRule","CRule"] [pp name_] [ppF "isIn" $ ppBool isIn_, ppF "hasCode" $ ppBool hasCode_, ppF "nt" $ pp nt_, ppF "con" $ pp con_, ppF "field" $ pp field_, ppF "childnt" $ ppMaybeShow childnt_, ppF "tp" $ ppMaybeShow tp_, ppF "pattern" $ if isIn_ then pp "<no pat because In>" else _patternIpp, ppF "rhs" $ ppStrings rhs_, ppF "defines" $ ppVertexMap defines_, ppF "owrt" $ ppBool owrt_, ppF "origin" $ pp origin_] []- {-# LINE 487 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 505 "dist/build/CodeSyntaxDump" #-} ) ( _patternIcopy,_patternIpp) = pattern_+ ___node =+ (Syn_CRule _lhsOpp) in ( _lhsOpp))) -- CSegment ---------------------------------------------------- {-@@ -522,8 +542,10 @@ _lhsOpp = ({-# LINE 60 "src-ag/CodeSyntaxDump.ag" #-} ppNestInfo ["CSegment","CSegment"] [] [ppF "inh" $ ppMap inh_, ppF "syn" $ ppMap syn_] []- {-# LINE 526 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 546 "dist/build/CodeSyntaxDump" #-} )+ ___node =+ (Syn_CSegment _lhsOpp) in ( _lhsOpp))) -- CSegments --------------------------------------------------- {-@@ -565,18 +587,20 @@ _lhsOppL = ({-# LINE 98 "src-ag/CodeSyntaxDump.ag" #-} _hdIpp : _tlIppL- {-# LINE 569 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 591 "dist/build/CodeSyntaxDump" #-} ) -- use rule "src-ag/CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "src-ag/CodeSyntaxDump.ag" #-} _hdIpp >-< _tlIpp- {-# LINE 575 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 597 "dist/build/CodeSyntaxDump" #-} ) ( _hdIpp) = hd_ ( _tlIpp,_tlIppL) = tl_+ ___node =+ (Syn_CSegments _lhsOpp _lhsOppL) in ( _lhsOpp,_lhsOppL))) sem_CSegments_Nil :: T_CSegments sem_CSegments_Nil =@@ -586,14 +610,16 @@ _lhsOppL = ({-# LINE 99 "src-ag/CodeSyntaxDump.ag" #-} []- {-# LINE 590 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 614 "dist/build/CodeSyntaxDump" #-} ) -- use rule "src-ag/CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "src-ag/CodeSyntaxDump.ag" #-} empty- {-# LINE 596 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 620 "dist/build/CodeSyntaxDump" #-} )+ ___node =+ (Syn_CSegments _lhsOpp _lhsOppL) in ( _lhsOpp,_lhsOppL))) -- CVisit ------------------------------------------------------ {-@@ -637,12 +663,14 @@ _lhsOpp = ({-# LINE 66 "src-ag/CodeSyntaxDump.ag" #-} ppNestInfo ["CVisit","CVisit"] [] [ppF "inh" $ ppMap inh_, ppF "syn" $ ppMap syn_, ppF "sequence" $ ppVList _vssIppL, ppF "intra" $ ppVList _intraIppL, ppF "ordered" $ ppBool ordered_] []- {-# LINE 641 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 667 "dist/build/CodeSyntaxDump" #-} ) ( _vssIppL) = vss_ ( _intraIppL) = intra_+ ___node =+ (Syn_CVisit _lhsOpp) in ( _lhsOpp))) -- CVisits ----------------------------------------------------- {-@@ -684,18 +712,20 @@ _lhsOppL = ({-# LINE 90 "src-ag/CodeSyntaxDump.ag" #-} _hdIpp : _tlIppL- {-# LINE 688 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 716 "dist/build/CodeSyntaxDump" #-} ) -- use rule "src-ag/CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "src-ag/CodeSyntaxDump.ag" #-} _hdIpp >-< _tlIpp- {-# LINE 694 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 722 "dist/build/CodeSyntaxDump" #-} ) ( _hdIpp) = hd_ ( _tlIpp,_tlIppL) = tl_+ ___node =+ (Syn_CVisits _lhsOpp _lhsOppL) in ( _lhsOpp,_lhsOppL))) sem_CVisits_Nil :: T_CVisits sem_CVisits_Nil =@@ -705,14 +735,16 @@ _lhsOppL = ({-# LINE 91 "src-ag/CodeSyntaxDump.ag" #-} []- {-# LINE 709 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 739 "dist/build/CodeSyntaxDump" #-} ) -- use rule "src-ag/CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "src-ag/CodeSyntaxDump.ag" #-} empty- {-# LINE 715 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 745 "dist/build/CodeSyntaxDump" #-} )+ ___node =+ (Syn_CVisits _lhsOpp _lhsOppL) in ( _lhsOpp,_lhsOppL))) -- Pattern ----------------------------------------------------- {-@@ -782,22 +814,24 @@ _lhsOpp = ({-# LINE 75 "src-ag/CodeSyntaxDump.ag" #-} ppNestInfo ["Pattern","Alias"] [pp field_, pp attr_] [ppF "pat" $ _patIpp] []- {-# LINE 786 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 818 "dist/build/CodeSyntaxDump" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Alias field_ attr_ _patIcopy- {-# LINE 792 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 824 "dist/build/CodeSyntaxDump" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 798 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 830 "dist/build/CodeSyntaxDump" #-} ) ( _patIcopy,_patIpp) = pat_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOpp) in ( _lhsOcopy,_lhsOpp))) sem_Pattern_Constr :: ConstructorIdent -> T_Patterns ->@@ -812,22 +846,24 @@ _lhsOpp = ({-# LINE 73 "src-ag/CodeSyntaxDump.ag" #-} ppNestInfo ["Pattern","Constr"] [pp name_] [ppF "pats" $ ppVList _patsIppL] []- {-# LINE 816 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 850 "dist/build/CodeSyntaxDump" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Constr name_ _patsIcopy- {-# LINE 822 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 856 "dist/build/CodeSyntaxDump" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 828 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 862 "dist/build/CodeSyntaxDump" #-} ) ( _patsIcopy,_patsIpp,_patsIppL) = pats_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOpp) in ( _lhsOcopy,_lhsOpp))) sem_Pattern_Irrefutable :: T_Pattern -> T_Pattern@@ -840,22 +876,24 @@ _lhsOpp = ({-# LINE 44 "src-ag/CodeSyntaxDump.ag" #-} _patIpp- {-# LINE 844 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 880 "dist/build/CodeSyntaxDump" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Irrefutable _patIcopy- {-# LINE 850 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 886 "dist/build/CodeSyntaxDump" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 856 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 892 "dist/build/CodeSyntaxDump" #-} ) ( _patIcopy,_patIpp) = pat_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOpp) in ( _lhsOcopy,_lhsOpp))) sem_Pattern_Product :: Pos -> T_Patterns ->@@ -870,22 +908,24 @@ _lhsOpp = ({-# LINE 74 "src-ag/CodeSyntaxDump.ag" #-} ppNestInfo ["Pattern","Product"] [ppShow pos_] [ppF "pats" $ ppVList _patsIppL] []- {-# LINE 874 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 912 "dist/build/CodeSyntaxDump" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Product pos_ _patsIcopy- {-# LINE 880 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 918 "dist/build/CodeSyntaxDump" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 886 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 924 "dist/build/CodeSyntaxDump" #-} ) ( _patsIcopy,_patsIpp,_patsIppL) = pats_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOpp) in ( _lhsOcopy,_lhsOpp))) sem_Pattern_Underscore :: Pos -> T_Pattern@@ -896,20 +936,22 @@ _lhsOpp = ({-# LINE 76 "src-ag/CodeSyntaxDump.ag" #-} ppNestInfo ["Pattern","Underscore"] [ppShow pos_] [] []- {-# LINE 900 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 940 "dist/build/CodeSyntaxDump" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Underscore pos_- {-# LINE 906 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 946 "dist/build/CodeSyntaxDump" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 912 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 952 "dist/build/CodeSyntaxDump" #-} )+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOpp) in ( _lhsOcopy,_lhsOpp))) -- Patterns ---------------------------------------------------- {-@@ -959,30 +1001,32 @@ _lhsOppL = ({-# LINE 82 "src-ag/CodeSyntaxDump.ag" #-} _hdIpp : _tlIppL- {-# LINE 963 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 1005 "dist/build/CodeSyntaxDump" #-} ) -- use rule "src-ag/CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "src-ag/CodeSyntaxDump.ag" #-} _hdIpp >-< _tlIpp- {-# LINE 969 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 1011 "dist/build/CodeSyntaxDump" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} (:) _hdIcopy _tlIcopy- {-# LINE 975 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 1017 "dist/build/CodeSyntaxDump" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 981 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 1023 "dist/build/CodeSyntaxDump" #-} ) ( _hdIcopy,_hdIpp) = hd_ ( _tlIcopy,_tlIpp,_tlIppL) = tl_+ ___node =+ (Syn_Patterns _lhsOcopy _lhsOpp _lhsOppL) in ( _lhsOcopy,_lhsOpp,_lhsOppL))) sem_Patterns_Nil :: T_Patterns sem_Patterns_Nil =@@ -993,26 +1037,28 @@ _lhsOppL = ({-# LINE 83 "src-ag/CodeSyntaxDump.ag" #-} []- {-# LINE 997 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 1041 "dist/build/CodeSyntaxDump" #-} ) -- use rule "src-ag/CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "src-ag/CodeSyntaxDump.ag" #-} empty- {-# LINE 1003 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 1047 "dist/build/CodeSyntaxDump" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} []- {-# LINE 1009 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 1053 "dist/build/CodeSyntaxDump" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1015 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 1059 "dist/build/CodeSyntaxDump" #-} )+ ___node =+ (Syn_Patterns _lhsOcopy _lhsOpp _lhsOppL) in ( _lhsOcopy,_lhsOpp,_lhsOppL))) -- Sequence ---------------------------------------------------- {-@@ -1051,12 +1097,14 @@ _lhsOppL = ({-# LINE 86 "src-ag/CodeSyntaxDump.ag" #-} _hdIpp : _tlIppL- {-# LINE 1055 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 1101 "dist/build/CodeSyntaxDump" #-} ) ( _hdIpp) = hd_ ( _tlIppL) = tl_+ ___node =+ (Syn_Sequence _lhsOppL) in ( _lhsOppL))) sem_Sequence_Nil :: T_Sequence sem_Sequence_Nil =@@ -1065,6 +1113,8 @@ _lhsOppL = ({-# LINE 87 "src-ag/CodeSyntaxDump.ag" #-} []- {-# LINE 1069 "dist/build/CodeSyntaxDump" #-}+ {-# LINE 1117 "dist/build/CodeSyntaxDump" #-} )+ ___node =+ (Syn_Sequence _lhsOppL) in ( _lhsOppL)))
src-derived/DefaultRules.hs view
@@ -541,7 +541,9 @@ {-# LINE 542 "dist/build/DefaultRules" #-} )) of { !_lhsOsynthesized ->- ( _lhsOerrors,_lhsOfield,_lhsOinherited,_lhsOname,_lhsOoutput,_lhsOsynthesized) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_Child _lhsOerrors _lhsOfield _lhsOinherited _lhsOname _lhsOoutput _lhsOsynthesized)) of+ { ___node ->+ ( _lhsOerrors,_lhsOfield,_lhsOinherited,_lhsOname,_lhsOoutput,_lhsOsynthesized) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))) -- Children ---------------------------------------------------- {- visit 0:@@ -604,109 +606,111 @@ (!_lhsIsynMap) -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 608 "dist/build/DefaultRules" #-}+ {-# LINE 610 "dist/build/DefaultRules" #-} )) of { !_tlOsynMap -> (case (({-# LINE 41 "src-ag/DefaultRules.ag" #-} _lhsIparams- {-# LINE 613 "dist/build/DefaultRules" #-}+ {-# LINE 615 "dist/build/DefaultRules" #-} )) of { !_tlOparams -> (case (({-# LINE 38 "src-ag/DefaultRules.ag" #-} _lhsInt- {-# LINE 618 "dist/build/DefaultRules" #-}+ {-# LINE 620 "dist/build/DefaultRules" #-} )) of { !_tlOnt -> (case (({-# LINE 757 "src-ag/DefaultRules.ag" #-} _lhsImerged- {-# LINE 623 "dist/build/DefaultRules" #-}+ {-# LINE 625 "dist/build/DefaultRules" #-} )) of { !_tlOmerged -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 628 "dist/build/DefaultRules" #-}+ {-# LINE 630 "dist/build/DefaultRules" #-} )) of { !_tlOinhMap -> (case (({-# LINE 55 "src-ag/DefaultRules.ag" #-} _lhsIcr- {-# LINE 633 "dist/build/DefaultRules" #-}+ {-# LINE 635 "dist/build/DefaultRules" #-} )) of { !_tlOcr -> (case (({-# LINE 39 "src-ag/DefaultRules.ag" #-} _lhsIcon- {-# LINE 638 "dist/build/DefaultRules" #-}+ {-# LINE 640 "dist/build/DefaultRules" #-} )) of { !_tlOcon -> (case (tl_ _tlOcon _tlOcr _tlOinhMap _tlOmerged _tlOnt _tlOparams _tlOsynMap) of { ( !_tlIerrors,!_tlIfields,!_tlIinputs,!_tlIoutput,!_tlIoutputs) -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 645 "dist/build/DefaultRules" #-}+ {-# LINE 647 "dist/build/DefaultRules" #-} )) of { !_hdOsynMap -> (case (({-# LINE 41 "src-ag/DefaultRules.ag" #-} _lhsIparams- {-# LINE 650 "dist/build/DefaultRules" #-}+ {-# LINE 652 "dist/build/DefaultRules" #-} )) of { !_hdOparams -> (case (({-# LINE 38 "src-ag/DefaultRules.ag" #-} _lhsInt- {-# LINE 655 "dist/build/DefaultRules" #-}+ {-# LINE 657 "dist/build/DefaultRules" #-} )) of { !_hdOnt -> (case (({-# LINE 757 "src-ag/DefaultRules.ag" #-} _lhsImerged- {-# LINE 660 "dist/build/DefaultRules" #-}+ {-# LINE 662 "dist/build/DefaultRules" #-} )) of { !_hdOmerged -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 665 "dist/build/DefaultRules" #-}+ {-# LINE 667 "dist/build/DefaultRules" #-} )) of { !_hdOinhMap -> (case (({-# LINE 55 "src-ag/DefaultRules.ag" #-} _lhsIcr- {-# LINE 670 "dist/build/DefaultRules" #-}+ {-# LINE 672 "dist/build/DefaultRules" #-} )) of { !_hdOcr -> (case (({-# LINE 39 "src-ag/DefaultRules.ag" #-} _lhsIcon- {-# LINE 675 "dist/build/DefaultRules" #-}+ {-# LINE 677 "dist/build/DefaultRules" #-} )) of { !_hdOcon -> (case (hd_ _hdOcon _hdOcr _hdOinhMap _hdOmerged _hdOnt _hdOparams _hdOsynMap) of { ( !_hdIerrors,!_hdIfield,!_hdIinherited,!_hdIname,!_hdIoutput,!_hdIsynthesized) -> (case (({-# LINE 142 "src-ag/DefaultRules.ag" #-} _hdIerrors Seq.>< _tlIerrors- {-# LINE 682 "dist/build/DefaultRules" #-}+ {-# LINE 684 "dist/build/DefaultRules" #-} )) of { !_lhsOerrors -> (case (({-# LINE 511 "src-ag/DefaultRules.ag" #-} _hdIfield : _tlIfields- {-# LINE 687 "dist/build/DefaultRules" #-}+ {-# LINE 689 "dist/build/DefaultRules" #-} )) of { !_lhsOfields -> (case (({-# LINE 189 "src-ag/DefaultRules.ag" #-} (_hdIname, _hdIinherited) : _tlIinputs- {-# LINE 692 "dist/build/DefaultRules" #-}+ {-# LINE 694 "dist/build/DefaultRules" #-} )) of { !_lhsOinputs -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} (:) _hdIoutput _tlIoutput- {-# LINE 697 "dist/build/DefaultRules" #-}+ {-# LINE 699 "dist/build/DefaultRules" #-} )) of { !_output -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} _output- {-# LINE 702 "dist/build/DefaultRules" #-}+ {-# LINE 704 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput -> (case (({-# LINE 190 "src-ag/DefaultRules.ag" #-} (_hdIname, _hdIsynthesized) : _tlIoutputs- {-# LINE 707 "dist/build/DefaultRules" #-}+ {-# LINE 709 "dist/build/DefaultRules" #-} )) of { !_lhsOoutputs ->- ( _lhsOerrors,_lhsOfields,_lhsOinputs,_lhsOoutput,_lhsOoutputs) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_Children _lhsOerrors _lhsOfields _lhsOinputs _lhsOoutput _lhsOoutputs)) of+ { ___node ->+ ( _lhsOerrors,_lhsOfields,_lhsOinputs,_lhsOoutput,_lhsOoutputs) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))) sem_Children_Nil :: T_Children sem_Children_Nil = (T_Children (\ (!_lhsIcon)@@ -718,35 +722,37 @@ (!_lhsIsynMap) -> (case (({-# LINE 142 "src-ag/DefaultRules.ag" #-} Seq.empty- {-# LINE 722 "dist/build/DefaultRules" #-}+ {-# LINE 726 "dist/build/DefaultRules" #-} )) of { !_lhsOerrors -> (case (({-# LINE 512 "src-ag/DefaultRules.ag" #-} []- {-# LINE 727 "dist/build/DefaultRules" #-}+ {-# LINE 731 "dist/build/DefaultRules" #-} )) of { !_lhsOfields -> (case (({-# LINE 191 "src-ag/DefaultRules.ag" #-} []- {-# LINE 732 "dist/build/DefaultRules" #-}+ {-# LINE 736 "dist/build/DefaultRules" #-} )) of { !_lhsOinputs -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} []- {-# LINE 737 "dist/build/DefaultRules" #-}+ {-# LINE 741 "dist/build/DefaultRules" #-} )) of { !_output -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} _output- {-# LINE 742 "dist/build/DefaultRules" #-}+ {-# LINE 746 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput -> (case (({-# LINE 192 "src-ag/DefaultRules.ag" #-} []- {-# LINE 747 "dist/build/DefaultRules" #-}+ {-# LINE 751 "dist/build/DefaultRules" #-} )) of { !_lhsOoutputs ->- ( _lhsOerrors,_lhsOfields,_lhsOinputs,_lhsOoutput,_lhsOoutputs) }) }) }) }) }) })))+ (case ((Syn_Children _lhsOerrors _lhsOfields _lhsOinputs _lhsOoutput _lhsOoutputs)) of+ { ___node ->+ ( _lhsOerrors,_lhsOfields,_lhsOinputs,_lhsOoutput,_lhsOoutputs) }) }) }) }) }) }) }))) -- Grammar ----------------------------------------------------- {- visit 0:@@ -809,94 +815,96 @@ (T_Grammar (\ (!_lhsIoptions) -> (case (({-# LINE 50 "src-ag/DefaultRules.ag" #-} _lhsIoptions- {-# LINE 813 "dist/build/DefaultRules" #-}+ {-# LINE 819 "dist/build/DefaultRules" #-} )) of { !_nontsOoptions -> (case (nonts_) of { ( !_nontsIcollect_nts,!_nontsIinhMap',!_nontsIsynMap',!T_Nonterminals_1 nonts_1) -> (case (({-# LINE 16 "src-ag/DistChildAttr.ag" #-} _nontsIsynMap'- {-# LINE 820 "dist/build/DefaultRules" #-}+ {-# LINE 826 "dist/build/DefaultRules" #-} )) of { !_nontsOsynMap -> (case (({-# LINE 15 "src-ag/DistChildAttr.ag" #-} _nontsIinhMap'- {-# LINE 825 "dist/build/DefaultRules" #-}+ {-# LINE 831 "dist/build/DefaultRules" #-} )) of { !_nontsOinhMap -> (case (({-# LINE 759 "src-ag/DefaultRules.ag" #-} mergeMap_- {-# LINE 830 "dist/build/DefaultRules" #-}+ {-# LINE 836 "dist/build/DefaultRules" #-} )) of { !_nontsOmergesIn -> (case (({-# LINE 678 "src-ag/DefaultRules.ag" #-} manualAttrOrderMap_- {-# LINE 835 "dist/build/DefaultRules" #-}+ {-# LINE 841 "dist/build/DefaultRules" #-} )) of { !_nontsOmanualAttrOrderMap -> (case (({-# LINE 178 "src-ag/DefaultRules.ag" #-} typeSyns_- {-# LINE 840 "dist/build/DefaultRules" #-}+ {-# LINE 846 "dist/build/DefaultRules" #-} )) of { !_nontsOtypeSyns -> (case (({-# LINE 176 "src-ag/DefaultRules.ag" #-} useMap_- {-# LINE 845 "dist/build/DefaultRules" #-}+ {-# LINE 851 "dist/build/DefaultRules" #-} )) of { !_nontsOuseMap -> (case (({-# LINE 66 "src-ag/DefaultRules.ag" #-} wrappers_- {-# LINE 850 "dist/build/DefaultRules" #-}+ {-# LINE 856 "dist/build/DefaultRules" #-} )) of { !_nontsOwrappers -> (case (({-# LINE 58 "src-ag/DefaultRules.ag" #-} modcopy _lhsIoptions- {-# LINE 855 "dist/build/DefaultRules" #-}+ {-# LINE 861 "dist/build/DefaultRules" #-} )) of { !_nontsOcr -> (case (({-# LINE 57 "src-ag/DefaultRules.ag" #-} rename _lhsIoptions- {-# LINE 860 "dist/build/DefaultRules" #-}+ {-# LINE 866 "dist/build/DefaultRules" #-} )) of { !_nontsOo_rename -> (case (({-# LINE 751 "src-ag/DefaultRules.ag" #-} aroundsMap_- {-# LINE 865 "dist/build/DefaultRules" #-}+ {-# LINE 871 "dist/build/DefaultRules" #-} )) of { !_nontsOaroundsIn -> (case (({-# LINE 744 "src-ag/DefaultRules.ag" #-} augmentsMap_- {-# LINE 870 "dist/build/DefaultRules" #-}+ {-# LINE 876 "dist/build/DefaultRules" #-} )) of { !_nontsOaugmentsIn -> (case (({-# LINE 564 "src-ag/DefaultRules.ag" #-} 1- {-# LINE 875 "dist/build/DefaultRules" #-}+ {-# LINE 881 "dist/build/DefaultRules" #-} )) of { !_nontsOuniq -> (case (({-# LINE 154 "src-ag/DefaultRules.ag" #-} _nontsIcollect_nts- {-# LINE 880 "dist/build/DefaultRules" #-}+ {-# LINE 886 "dist/build/DefaultRules" #-} )) of { !_nontsOnonterminals -> (case (nonts_1 _nontsOaroundsIn _nontsOaugmentsIn _nontsOcr _nontsOinhMap _nontsOmanualAttrOrderMap _nontsOmergesIn _nontsOnonterminals _nontsOo_rename _nontsOoptions _nontsOsynMap _nontsOtypeSyns _nontsOuniq _nontsOuseMap _nontsOwrappers) of { ( !_nontsIerrors,!_nontsIoutput,!_nontsIuniq) -> (case (({-# LINE 142 "src-ag/DefaultRules.ag" #-} _nontsIerrors- {-# LINE 887 "dist/build/DefaultRules" #-}+ {-# LINE 893 "dist/build/DefaultRules" #-} )) of { !_lhsOerrors -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} Grammar typeSyns_ useMap_ derivings_ wrappers_ _nontsIoutput pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ quantMap_ uniqueMap_ augmentsMap_ aroundsMap_ mergeMap_- {-# LINE 892 "dist/build/DefaultRules" #-}+ {-# LINE 898 "dist/build/DefaultRules" #-} )) of { !_output -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} _output- {-# LINE 897 "dist/build/DefaultRules" #-}+ {-# LINE 903 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput ->- ( _lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_Grammar _lhsOerrors _lhsOoutput)) of+ { ___node ->+ ( _lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))) -- Nonterminal ------------------------------------------------- {- visit 0:@@ -978,17 +986,17 @@ sem_Nonterminal_Nonterminal !nt_ !params_ !inh_ !syn_ !(T_Productions prods_) = (T_Nonterminal (case (({-# LINE 150 "src-ag/DefaultRules.ag" #-} Set.singleton nt_- {-# LINE 982 "dist/build/DefaultRules" #-}+ {-# LINE 990 "dist/build/DefaultRules" #-} )) of { !_lhsOcollect_nts -> (case (({-# LINE 7 "src-ag/DistChildAttr.ag" #-} Map.singleton nt_ inh_- {-# LINE 987 "dist/build/DefaultRules" #-}+ {-# LINE 995 "dist/build/DefaultRules" #-} )) of { !_lhsOinhMap' -> (case (({-# LINE 8 "src-ag/DistChildAttr.ag" #-} Map.singleton nt_ syn_- {-# LINE 992 "dist/build/DefaultRules" #-}+ {-# LINE 1000 "dist/build/DefaultRules" #-} )) of { !_lhsOsynMap' -> (case ((let sem_Nonterminal_Nonterminal_1 :: T_Nonterminal_1@@ -1009,144 +1017,144 @@ (!_lhsIwrappers) -> (case (({-# LINE 64 "src-ag/DefaultRules.ag" #-} _lhsIwrappers- {-# LINE 1013 "dist/build/DefaultRules" #-}+ {-# LINE 1021 "dist/build/DefaultRules" #-} )) of { !_prodsOwrappers -> (case (({-# LINE 71 "src-ag/DefaultRules.ag" #-} _lhsItypeSyns- {-# LINE 1018 "dist/build/DefaultRules" #-}+ {-# LINE 1026 "dist/build/DefaultRules" #-} )) of { !_prodsOtypeSyns -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 1023 "dist/build/DefaultRules" #-}+ {-# LINE 1031 "dist/build/DefaultRules" #-} )) of { !_prodsOsynMap -> (case (({-# LINE 50 "src-ag/DefaultRules.ag" #-} _lhsIoptions- {-# LINE 1028 "dist/build/DefaultRules" #-}+ {-# LINE 1036 "dist/build/DefaultRules" #-} )) of { !_prodsOoptions -> (case (({-# LINE 51 "src-ag/DefaultRules.ag" #-} _lhsIo_rename- {-# LINE 1033 "dist/build/DefaultRules" #-}+ {-# LINE 1041 "dist/build/DefaultRules" #-} )) of { !_prodsOo_rename -> (case (({-# LINE 760 "src-ag/DefaultRules.ag" #-} Map.findWithDefault Map.empty nt_ _lhsImergesIn- {-# LINE 1038 "dist/build/DefaultRules" #-}+ {-# LINE 1046 "dist/build/DefaultRules" #-} )) of { !_mergesIn -> (case (({-# LINE 756 "src-ag/DefaultRules.ag" #-} _mergesIn- {-# LINE 1043 "dist/build/DefaultRules" #-}+ {-# LINE 1051 "dist/build/DefaultRules" #-} )) of { !_prodsOmergesIn -> (case (({-# LINE 674 "src-ag/DefaultRules.ag" #-} _lhsImanualAttrOrderMap- {-# LINE 1048 "dist/build/DefaultRules" #-}+ {-# LINE 1056 "dist/build/DefaultRules" #-} )) of { !_prodsOmanualAttrOrderMap -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 1053 "dist/build/DefaultRules" #-}+ {-# LINE 1061 "dist/build/DefaultRules" #-} )) of { !_prodsOinhMap -> (case (({-# LINE 52 "src-ag/DefaultRules.ag" #-} _lhsIcr- {-# LINE 1058 "dist/build/DefaultRules" #-}+ {-# LINE 1066 "dist/build/DefaultRules" #-} )) of { !_prodsOcr -> (case (({-# LINE 534 "src-ag/DefaultRules.ag" #-} Map.map (elimSelfId nt_ params_) syn_- {-# LINE 1063 "dist/build/DefaultRules" #-}+ {-# LINE 1071 "dist/build/DefaultRules" #-} )) of { !_syn1 -> (case (({-# LINE 533 "src-ag/DefaultRules.ag" #-} Map.map (elimSelfId nt_ params_) inh_- {-# LINE 1068 "dist/build/DefaultRules" #-}+ {-# LINE 1076 "dist/build/DefaultRules" #-} )) of { !_inh1 -> (case (({-# LINE 180 "src-ag/DefaultRules.ag" #-} nt_- {-# LINE 1073 "dist/build/DefaultRules" #-}+ {-# LINE 1081 "dist/build/DefaultRules" #-} )) of { !_prodsOnt -> (case (({-# LINE 168 "src-ag/DefaultRules.ag" #-} Map.findWithDefault Map.empty nt_ _lhsIuseMap- {-# LINE 1078 "dist/build/DefaultRules" #-}+ {-# LINE 1086 "dist/build/DefaultRules" #-} )) of { !_prodsOuseMap -> (case (({-# LINE 167 "src-ag/DefaultRules.ag" #-} syn_- {-# LINE 1083 "dist/build/DefaultRules" #-}+ {-# LINE 1091 "dist/build/DefaultRules" #-} )) of { !_prodsOsynOrig -> (case (({-# LINE 165 "src-ag/DefaultRules.ag" #-} _syn1- {-# LINE 1088 "dist/build/DefaultRules" #-}+ {-# LINE 1096 "dist/build/DefaultRules" #-} )) of { !_prodsOsyn -> (case (({-# LINE 164 "src-ag/DefaultRules.ag" #-} _inh1- {-# LINE 1093 "dist/build/DefaultRules" #-}+ {-# LINE 1101 "dist/build/DefaultRules" #-} )) of { !_prodsOinh -> (case (({-# LINE 561 "src-ag/DefaultRules.ag" #-} _lhsIuniq- {-# LINE 1098 "dist/build/DefaultRules" #-}+ {-# LINE 1106 "dist/build/DefaultRules" #-} )) of { !_prodsOuniq -> (case (({-# LINE 152 "src-ag/DefaultRules.ag" #-} _lhsInonterminals- {-# LINE 1103 "dist/build/DefaultRules" #-}+ {-# LINE 1111 "dist/build/DefaultRules" #-} )) of { !_prodsOnonterminals -> (case (({-# LINE 745 "src-ag/DefaultRules.ag" #-} Map.findWithDefault Map.empty nt_ _lhsIaugmentsIn- {-# LINE 1108 "dist/build/DefaultRules" #-}+ {-# LINE 1116 "dist/build/DefaultRules" #-} )) of { !_augmentsIn -> (case (({-# LINE 742 "src-ag/DefaultRules.ag" #-} _augmentsIn- {-# LINE 1113 "dist/build/DefaultRules" #-}+ {-# LINE 1121 "dist/build/DefaultRules" #-} )) of { !_prodsOaugmentsIn -> (case (({-# LINE 752 "src-ag/DefaultRules.ag" #-} Map.findWithDefault Map.empty nt_ _lhsIaroundsIn- {-# LINE 1118 "dist/build/DefaultRules" #-}+ {-# LINE 1126 "dist/build/DefaultRules" #-} )) of { !_aroundsIn -> (case (({-# LINE 749 "src-ag/DefaultRules.ag" #-} _aroundsIn- {-# LINE 1123 "dist/build/DefaultRules" #-}+ {-# LINE 1131 "dist/build/DefaultRules" #-} )) of { !_prodsOaroundsIn -> (case (({-# LINE 166 "src-ag/DefaultRules.ag" #-} inh_- {-# LINE 1128 "dist/build/DefaultRules" #-}+ {-# LINE 1136 "dist/build/DefaultRules" #-} )) of { !_prodsOinhOrig -> (case (({-# LINE 43 "src-ag/DefaultRules.ag" #-} params_- {-# LINE 1133 "dist/build/DefaultRules" #-}+ {-# LINE 1141 "dist/build/DefaultRules" #-} )) of { !_prodsOparams -> (case (prods_ _prodsOaroundsIn _prodsOaugmentsIn _prodsOcr _prodsOinh _prodsOinhMap _prodsOinhOrig _prodsOmanualAttrOrderMap _prodsOmergesIn _prodsOnonterminals _prodsOnt _prodsOo_rename _prodsOoptions _prodsOparams _prodsOsyn _prodsOsynMap _prodsOsynOrig _prodsOtypeSyns _prodsOuniq _prodsOuseMap _prodsOwrappers) of { ( !_prodsIerrors,!_prodsIoutput,!_prodsIuniq) -> (case (({-# LINE 142 "src-ag/DefaultRules.ag" #-} _prodsIerrors- {-# LINE 1140 "dist/build/DefaultRules" #-}+ {-# LINE 1148 "dist/build/DefaultRules" #-} )) of { !_lhsOerrors -> (case (({-# LINE 573 "src-ag/DefaultRules.ag" #-} Nonterminal nt_ params_ _inh1 _syn1 _prodsIoutput- {-# LINE 1145 "dist/build/DefaultRules" #-}+ {-# LINE 1153 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput -> (case (({-# LINE 561 "src-ag/DefaultRules.ag" #-} _prodsIuniq- {-# LINE 1150 "dist/build/DefaultRules" #-}+ {-# LINE 1158 "dist/build/DefaultRules" #-} )) of { !_lhsOuniq -> ( _lhsOerrors,_lhsOoutput,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))@@ -1231,17 +1239,17 @@ { ( !_hdIcollect_nts,!_hdIinhMap',!_hdIsynMap',!T_Nonterminal_1 hd_1) -> (case (({-# LINE 148 "src-ag/DefaultRules.ag" #-} _hdIcollect_nts `Set.union` _tlIcollect_nts- {-# LINE 1235 "dist/build/DefaultRules" #-}+ {-# LINE 1243 "dist/build/DefaultRules" #-} )) of { !_lhsOcollect_nts -> (case (({-# LINE 4 "src-ag/DistChildAttr.ag" #-} _hdIinhMap' `Map.union` _tlIinhMap'- {-# LINE 1240 "dist/build/DefaultRules" #-}+ {-# LINE 1248 "dist/build/DefaultRules" #-} )) of { !_lhsOinhMap' -> (case (({-# LINE 4 "src-ag/DistChildAttr.ag" #-} _hdIsynMap' `Map.union` _tlIsynMap'- {-# LINE 1245 "dist/build/DefaultRules" #-}+ {-# LINE 1253 "dist/build/DefaultRules" #-} )) of { !_lhsOsynMap' -> (case ((let sem_Nonterminals_Cons_1 :: T_Nonterminals_1@@ -1262,166 +1270,166 @@ (!_lhsIwrappers) -> (case (({-# LINE 64 "src-ag/DefaultRules.ag" #-} _lhsIwrappers- {-# LINE 1266 "dist/build/DefaultRules" #-}+ {-# LINE 1274 "dist/build/DefaultRules" #-} )) of { !_tlOwrappers -> (case (({-# LINE 160 "src-ag/DefaultRules.ag" #-} _lhsIuseMap- {-# LINE 1271 "dist/build/DefaultRules" #-}+ {-# LINE 1279 "dist/build/DefaultRules" #-} )) of { !_tlOuseMap -> (case (({-# LINE 71 "src-ag/DefaultRules.ag" #-} _lhsItypeSyns- {-# LINE 1276 "dist/build/DefaultRules" #-}+ {-# LINE 1284 "dist/build/DefaultRules" #-} )) of { !_tlOtypeSyns -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 1281 "dist/build/DefaultRules" #-}+ {-# LINE 1289 "dist/build/DefaultRules" #-} )) of { !_tlOsynMap -> (case (({-# LINE 50 "src-ag/DefaultRules.ag" #-} _lhsIoptions- {-# LINE 1286 "dist/build/DefaultRules" #-}+ {-# LINE 1294 "dist/build/DefaultRules" #-} )) of { !_tlOoptions -> (case (({-# LINE 51 "src-ag/DefaultRules.ag" #-} _lhsIo_rename- {-# LINE 1291 "dist/build/DefaultRules" #-}+ {-# LINE 1299 "dist/build/DefaultRules" #-} )) of { !_tlOo_rename -> (case (({-# LINE 755 "src-ag/DefaultRules.ag" #-} _lhsImergesIn- {-# LINE 1296 "dist/build/DefaultRules" #-}+ {-# LINE 1304 "dist/build/DefaultRules" #-} )) of { !_tlOmergesIn -> (case (({-# LINE 674 "src-ag/DefaultRules.ag" #-} _lhsImanualAttrOrderMap- {-# LINE 1301 "dist/build/DefaultRules" #-}+ {-# LINE 1309 "dist/build/DefaultRules" #-} )) of { !_tlOmanualAttrOrderMap -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 1306 "dist/build/DefaultRules" #-}+ {-# LINE 1314 "dist/build/DefaultRules" #-} )) of { !_tlOinhMap -> (case (({-# LINE 52 "src-ag/DefaultRules.ag" #-} _lhsIcr- {-# LINE 1311 "dist/build/DefaultRules" #-}+ {-# LINE 1319 "dist/build/DefaultRules" #-} )) of { !_tlOcr -> (case (({-# LINE 64 "src-ag/DefaultRules.ag" #-} _lhsIwrappers- {-# LINE 1316 "dist/build/DefaultRules" #-}+ {-# LINE 1324 "dist/build/DefaultRules" #-} )) of { !_hdOwrappers -> (case (({-# LINE 160 "src-ag/DefaultRules.ag" #-} _lhsIuseMap- {-# LINE 1321 "dist/build/DefaultRules" #-}+ {-# LINE 1329 "dist/build/DefaultRules" #-} )) of { !_hdOuseMap -> (case (({-# LINE 71 "src-ag/DefaultRules.ag" #-} _lhsItypeSyns- {-# LINE 1326 "dist/build/DefaultRules" #-}+ {-# LINE 1334 "dist/build/DefaultRules" #-} )) of { !_hdOtypeSyns -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 1331 "dist/build/DefaultRules" #-}+ {-# LINE 1339 "dist/build/DefaultRules" #-} )) of { !_hdOsynMap -> (case (({-# LINE 50 "src-ag/DefaultRules.ag" #-} _lhsIoptions- {-# LINE 1336 "dist/build/DefaultRules" #-}+ {-# LINE 1344 "dist/build/DefaultRules" #-} )) of { !_hdOoptions -> (case (({-# LINE 51 "src-ag/DefaultRules.ag" #-} _lhsIo_rename- {-# LINE 1341 "dist/build/DefaultRules" #-}+ {-# LINE 1349 "dist/build/DefaultRules" #-} )) of { !_hdOo_rename -> (case (({-# LINE 755 "src-ag/DefaultRules.ag" #-} _lhsImergesIn- {-# LINE 1346 "dist/build/DefaultRules" #-}+ {-# LINE 1354 "dist/build/DefaultRules" #-} )) of { !_hdOmergesIn -> (case (({-# LINE 674 "src-ag/DefaultRules.ag" #-} _lhsImanualAttrOrderMap- {-# LINE 1351 "dist/build/DefaultRules" #-}+ {-# LINE 1359 "dist/build/DefaultRules" #-} )) of { !_hdOmanualAttrOrderMap -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 1356 "dist/build/DefaultRules" #-}+ {-# LINE 1364 "dist/build/DefaultRules" #-} )) of { !_hdOinhMap -> (case (({-# LINE 52 "src-ag/DefaultRules.ag" #-} _lhsIcr- {-# LINE 1361 "dist/build/DefaultRules" #-}+ {-# LINE 1369 "dist/build/DefaultRules" #-} )) of { !_hdOcr -> (case (({-# LINE 561 "src-ag/DefaultRules.ag" #-} _lhsIuniq- {-# LINE 1366 "dist/build/DefaultRules" #-}+ {-# LINE 1374 "dist/build/DefaultRules" #-} )) of { !_hdOuniq -> (case (({-# LINE 152 "src-ag/DefaultRules.ag" #-} _lhsInonterminals- {-# LINE 1371 "dist/build/DefaultRules" #-}+ {-# LINE 1379 "dist/build/DefaultRules" #-} )) of { !_hdOnonterminals -> (case (({-# LINE 741 "src-ag/DefaultRules.ag" #-} _lhsIaugmentsIn- {-# LINE 1376 "dist/build/DefaultRules" #-}+ {-# LINE 1384 "dist/build/DefaultRules" #-} )) of { !_hdOaugmentsIn -> (case (({-# LINE 748 "src-ag/DefaultRules.ag" #-} _lhsIaroundsIn- {-# LINE 1381 "dist/build/DefaultRules" #-}+ {-# LINE 1389 "dist/build/DefaultRules" #-} )) of { !_hdOaroundsIn -> (case (hd_1 _hdOaroundsIn _hdOaugmentsIn _hdOcr _hdOinhMap _hdOmanualAttrOrderMap _hdOmergesIn _hdOnonterminals _hdOo_rename _hdOoptions _hdOsynMap _hdOtypeSyns _hdOuniq _hdOuseMap _hdOwrappers) of { ( !_hdIerrors,!_hdIoutput,!_hdIuniq) -> (case (({-# LINE 561 "src-ag/DefaultRules.ag" #-} _hdIuniq- {-# LINE 1388 "dist/build/DefaultRules" #-}+ {-# LINE 1396 "dist/build/DefaultRules" #-} )) of { !_tlOuniq -> (case (({-# LINE 152 "src-ag/DefaultRules.ag" #-} _lhsInonterminals- {-# LINE 1393 "dist/build/DefaultRules" #-}+ {-# LINE 1401 "dist/build/DefaultRules" #-} )) of { !_tlOnonterminals -> (case (({-# LINE 741 "src-ag/DefaultRules.ag" #-} _lhsIaugmentsIn- {-# LINE 1398 "dist/build/DefaultRules" #-}+ {-# LINE 1406 "dist/build/DefaultRules" #-} )) of { !_tlOaugmentsIn -> (case (({-# LINE 748 "src-ag/DefaultRules.ag" #-} _lhsIaroundsIn- {-# LINE 1403 "dist/build/DefaultRules" #-}+ {-# LINE 1411 "dist/build/DefaultRules" #-} )) of { !_tlOaroundsIn -> (case (tl_1 _tlOaroundsIn _tlOaugmentsIn _tlOcr _tlOinhMap _tlOmanualAttrOrderMap _tlOmergesIn _tlOnonterminals _tlOo_rename _tlOoptions _tlOsynMap _tlOtypeSyns _tlOuniq _tlOuseMap _tlOwrappers) of { ( !_tlIerrors,!_tlIoutput,!_tlIuniq) -> (case (({-# LINE 142 "src-ag/DefaultRules.ag" #-} _hdIerrors Seq.>< _tlIerrors- {-# LINE 1410 "dist/build/DefaultRules" #-}+ {-# LINE 1418 "dist/build/DefaultRules" #-} )) of { !_lhsOerrors -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} (:) _hdIoutput _tlIoutput- {-# LINE 1415 "dist/build/DefaultRules" #-}+ {-# LINE 1423 "dist/build/DefaultRules" #-} )) of { !_output -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} _output- {-# LINE 1420 "dist/build/DefaultRules" #-}+ {-# LINE 1428 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput -> (case (({-# LINE 561 "src-ag/DefaultRules.ag" #-} _tlIuniq- {-# LINE 1425 "dist/build/DefaultRules" #-}+ {-# LINE 1433 "dist/build/DefaultRules" #-} )) of { !_lhsOuniq -> ( _lhsOerrors,_lhsOoutput,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))@@ -1432,17 +1440,17 @@ sem_Nonterminals_Nil = (T_Nonterminals (case (({-# LINE 148 "src-ag/DefaultRules.ag" #-} Set.empty- {-# LINE 1436 "dist/build/DefaultRules" #-}+ {-# LINE 1444 "dist/build/DefaultRules" #-} )) of { !_lhsOcollect_nts -> (case (({-# LINE 4 "src-ag/DistChildAttr.ag" #-} Map.empty- {-# LINE 1441 "dist/build/DefaultRules" #-}+ {-# LINE 1449 "dist/build/DefaultRules" #-} )) of { !_lhsOinhMap' -> (case (({-# LINE 4 "src-ag/DistChildAttr.ag" #-} Map.empty- {-# LINE 1446 "dist/build/DefaultRules" #-}+ {-# LINE 1454 "dist/build/DefaultRules" #-} )) of { !_lhsOsynMap' -> (case ((let sem_Nonterminals_Nil_1 :: T_Nonterminals_1@@ -1463,22 +1471,22 @@ (!_lhsIwrappers) -> (case (({-# LINE 142 "src-ag/DefaultRules.ag" #-} Seq.empty- {-# LINE 1467 "dist/build/DefaultRules" #-}+ {-# LINE 1475 "dist/build/DefaultRules" #-} )) of { !_lhsOerrors -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} []- {-# LINE 1472 "dist/build/DefaultRules" #-}+ {-# LINE 1480 "dist/build/DefaultRules" #-} )) of { !_output -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} _output- {-# LINE 1477 "dist/build/DefaultRules" #-}+ {-# LINE 1485 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput -> (case (({-# LINE 561 "src-ag/DefaultRules.ag" #-} _lhsIuniq- {-# LINE 1482 "dist/build/DefaultRules" #-}+ {-# LINE 1490 "dist/build/DefaultRules" #-} )) of { !_lhsOuniq -> ( _lhsOerrors,_lhsOoutput,_lhsOuniq) }) }) }) })))@@ -1563,59 +1571,61 @@ (!_lhsInt) -> (case (({-# LINE 523 "src-ag/DefaultRules.ag" #-} True- {-# LINE 1567 "dist/build/DefaultRules" #-}+ {-# LINE 1575 "dist/build/DefaultRules" #-} )) of { !_lhsOcontainsVars -> (case (({-# LINE 38 "src-ag/DefaultRules.ag" #-} _lhsInt- {-# LINE 1572 "dist/build/DefaultRules" #-}+ {-# LINE 1580 "dist/build/DefaultRules" #-} )) of { !_patOnt -> (case (({-# LINE 39 "src-ag/DefaultRules.ag" #-} _lhsIcon- {-# LINE 1577 "dist/build/DefaultRules" #-}+ {-# LINE 1585 "dist/build/DefaultRules" #-} )) of { !_patOcon -> (case (pat_ _patOcon _patOnt) of { ( !_patIcontainsVars,!_patIcopy,!_patIdefinedAttrs,!_patIerrors,!_patIlocals,!_patIoutput) -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Alias field_ attr_ _patIcopy- {-# LINE 1584 "dist/build/DefaultRules" #-}+ {-# LINE 1592 "dist/build/DefaultRules" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1589 "dist/build/DefaultRules" #-}+ {-# LINE 1597 "dist/build/DefaultRules" #-} )) of { !_lhsOcopy -> (case (({-# LINE 505 "src-ag/DefaultRules.ag" #-} Set.insert (field_,attr_) _patIdefinedAttrs- {-# LINE 1594 "dist/build/DefaultRules" #-}+ {-# LINE 1602 "dist/build/DefaultRules" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 142 "src-ag/DefaultRules.ag" #-} _patIerrors- {-# LINE 1599 "dist/build/DefaultRules" #-}+ {-# LINE 1607 "dist/build/DefaultRules" #-} )) of { !_lhsOerrors -> (case (({-# LINE 506 "src-ag/DefaultRules.ag" #-} if field_ == _LOC then Set.insert attr_ _patIlocals else _patIlocals- {-# LINE 1606 "dist/build/DefaultRules" #-}+ {-# LINE 1614 "dist/build/DefaultRules" #-} )) of { !_lhsOlocals -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} Alias field_ attr_ _patIoutput- {-# LINE 1611 "dist/build/DefaultRules" #-}+ {-# LINE 1619 "dist/build/DefaultRules" #-} )) of { !_output -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} _output- {-# LINE 1616 "dist/build/DefaultRules" #-}+ {-# LINE 1624 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput ->- ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_Pattern _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput)) of+ { ___node ->+ ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }))) sem_Pattern_Constr :: ConstructorIdent -> T_Patterns -> T_Pattern@@ -1624,57 +1634,59 @@ (!_lhsInt) -> (case (({-# LINE 38 "src-ag/DefaultRules.ag" #-} _lhsInt- {-# LINE 1628 "dist/build/DefaultRules" #-}+ {-# LINE 1638 "dist/build/DefaultRules" #-} )) of { !_patsOnt -> (case (({-# LINE 39 "src-ag/DefaultRules.ag" #-} _lhsIcon- {-# LINE 1633 "dist/build/DefaultRules" #-}+ {-# LINE 1643 "dist/build/DefaultRules" #-} )) of { !_patsOcon -> (case (pats_ _patsOcon _patsOnt) of { ( !_patsIcontainsVars,!_patsIcopy,!_patsIdefinedAttrs,!_patsIerrors,!_patsIlocals,!_patsIoutput) -> (case (({-# LINE 520 "src-ag/DefaultRules.ag" #-} _patsIcontainsVars- {-# LINE 1640 "dist/build/DefaultRules" #-}+ {-# LINE 1650 "dist/build/DefaultRules" #-} )) of { !_lhsOcontainsVars -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Constr name_ _patsIcopy- {-# LINE 1645 "dist/build/DefaultRules" #-}+ {-# LINE 1655 "dist/build/DefaultRules" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1650 "dist/build/DefaultRules" #-}+ {-# LINE 1660 "dist/build/DefaultRules" #-} )) of { !_lhsOcopy -> (case (({-# LINE 500 "src-ag/DefaultRules.ag" #-} _patsIdefinedAttrs- {-# LINE 1655 "dist/build/DefaultRules" #-}+ {-# LINE 1665 "dist/build/DefaultRules" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 142 "src-ag/DefaultRules.ag" #-} _patsIerrors- {-# LINE 1660 "dist/build/DefaultRules" #-}+ {-# LINE 1670 "dist/build/DefaultRules" #-} )) of { !_lhsOerrors -> (case (({-# LINE 499 "src-ag/DefaultRules.ag" #-} _patsIlocals- {-# LINE 1665 "dist/build/DefaultRules" #-}+ {-# LINE 1675 "dist/build/DefaultRules" #-} )) of { !_lhsOlocals -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} Constr name_ _patsIoutput- {-# LINE 1670 "dist/build/DefaultRules" #-}+ {-# LINE 1680 "dist/build/DefaultRules" #-} )) of { !_output -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} _output- {-# LINE 1675 "dist/build/DefaultRules" #-}+ {-# LINE 1685 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput ->- ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_Pattern _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput)) of+ { ___node ->+ ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }))) sem_Pattern_Irrefutable :: T_Pattern -> T_Pattern sem_Pattern_Irrefutable !(T_Pattern pat_) =@@ -1682,57 +1694,59 @@ (!_lhsInt) -> (case (({-# LINE 38 "src-ag/DefaultRules.ag" #-} _lhsInt- {-# LINE 1686 "dist/build/DefaultRules" #-}+ {-# LINE 1698 "dist/build/DefaultRules" #-} )) of { !_patOnt -> (case (({-# LINE 39 "src-ag/DefaultRules.ag" #-} _lhsIcon- {-# LINE 1691 "dist/build/DefaultRules" #-}+ {-# LINE 1703 "dist/build/DefaultRules" #-} )) of { !_patOcon -> (case (pat_ _patOcon _patOnt) of { ( !_patIcontainsVars,!_patIcopy,!_patIdefinedAttrs,!_patIerrors,!_patIlocals,!_patIoutput) -> (case (({-# LINE 520 "src-ag/DefaultRules.ag" #-} _patIcontainsVars- {-# LINE 1698 "dist/build/DefaultRules" #-}+ {-# LINE 1710 "dist/build/DefaultRules" #-} )) of { !_lhsOcontainsVars -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Irrefutable _patIcopy- {-# LINE 1703 "dist/build/DefaultRules" #-}+ {-# LINE 1715 "dist/build/DefaultRules" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1708 "dist/build/DefaultRules" #-}+ {-# LINE 1720 "dist/build/DefaultRules" #-} )) of { !_lhsOcopy -> (case (({-# LINE 500 "src-ag/DefaultRules.ag" #-} _patIdefinedAttrs- {-# LINE 1713 "dist/build/DefaultRules" #-}+ {-# LINE 1725 "dist/build/DefaultRules" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 142 "src-ag/DefaultRules.ag" #-} _patIerrors- {-# LINE 1718 "dist/build/DefaultRules" #-}+ {-# LINE 1730 "dist/build/DefaultRules" #-} )) of { !_lhsOerrors -> (case (({-# LINE 499 "src-ag/DefaultRules.ag" #-} _patIlocals- {-# LINE 1723 "dist/build/DefaultRules" #-}+ {-# LINE 1735 "dist/build/DefaultRules" #-} )) of { !_lhsOlocals -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} Irrefutable _patIoutput- {-# LINE 1728 "dist/build/DefaultRules" #-}+ {-# LINE 1740 "dist/build/DefaultRules" #-} )) of { !_output -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} _output- {-# LINE 1733 "dist/build/DefaultRules" #-}+ {-# LINE 1745 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput ->- ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_Pattern _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput)) of+ { ___node ->+ ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }))) sem_Pattern_Product :: Pos -> T_Patterns -> T_Pattern@@ -1741,57 +1755,59 @@ (!_lhsInt) -> (case (({-# LINE 38 "src-ag/DefaultRules.ag" #-} _lhsInt- {-# LINE 1745 "dist/build/DefaultRules" #-}+ {-# LINE 1759 "dist/build/DefaultRules" #-} )) of { !_patsOnt -> (case (({-# LINE 39 "src-ag/DefaultRules.ag" #-} _lhsIcon- {-# LINE 1750 "dist/build/DefaultRules" #-}+ {-# LINE 1764 "dist/build/DefaultRules" #-} )) of { !_patsOcon -> (case (pats_ _patsOcon _patsOnt) of { ( !_patsIcontainsVars,!_patsIcopy,!_patsIdefinedAttrs,!_patsIerrors,!_patsIlocals,!_patsIoutput) -> (case (({-# LINE 520 "src-ag/DefaultRules.ag" #-} _patsIcontainsVars- {-# LINE 1757 "dist/build/DefaultRules" #-}+ {-# LINE 1771 "dist/build/DefaultRules" #-} )) of { !_lhsOcontainsVars -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Product pos_ _patsIcopy- {-# LINE 1762 "dist/build/DefaultRules" #-}+ {-# LINE 1776 "dist/build/DefaultRules" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1767 "dist/build/DefaultRules" #-}+ {-# LINE 1781 "dist/build/DefaultRules" #-} )) of { !_lhsOcopy -> (case (({-# LINE 500 "src-ag/DefaultRules.ag" #-} _patsIdefinedAttrs- {-# LINE 1772 "dist/build/DefaultRules" #-}+ {-# LINE 1786 "dist/build/DefaultRules" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 142 "src-ag/DefaultRules.ag" #-} _patsIerrors- {-# LINE 1777 "dist/build/DefaultRules" #-}+ {-# LINE 1791 "dist/build/DefaultRules" #-} )) of { !_lhsOerrors -> (case (({-# LINE 499 "src-ag/DefaultRules.ag" #-} _patsIlocals- {-# LINE 1782 "dist/build/DefaultRules" #-}+ {-# LINE 1796 "dist/build/DefaultRules" #-} )) of { !_lhsOlocals -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} Product pos_ _patsIoutput- {-# LINE 1787 "dist/build/DefaultRules" #-}+ {-# LINE 1801 "dist/build/DefaultRules" #-} )) of { !_output -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} _output- {-# LINE 1792 "dist/build/DefaultRules" #-}+ {-# LINE 1806 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput ->- ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_Pattern _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput)) of+ { ___node ->+ ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }))) sem_Pattern_Underscore :: Pos -> T_Pattern sem_Pattern_Underscore !pos_ =@@ -1799,45 +1815,47 @@ (!_lhsInt) -> (case (({-# LINE 520 "src-ag/DefaultRules.ag" #-} False- {-# LINE 1803 "dist/build/DefaultRules" #-}+ {-# LINE 1819 "dist/build/DefaultRules" #-} )) of { !_lhsOcontainsVars -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Underscore pos_- {-# LINE 1808 "dist/build/DefaultRules" #-}+ {-# LINE 1824 "dist/build/DefaultRules" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1813 "dist/build/DefaultRules" #-}+ {-# LINE 1829 "dist/build/DefaultRules" #-} )) of { !_lhsOcopy -> (case (({-# LINE 500 "src-ag/DefaultRules.ag" #-} Set.empty- {-# LINE 1818 "dist/build/DefaultRules" #-}+ {-# LINE 1834 "dist/build/DefaultRules" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 142 "src-ag/DefaultRules.ag" #-} Seq.empty- {-# LINE 1823 "dist/build/DefaultRules" #-}+ {-# LINE 1839 "dist/build/DefaultRules" #-} )) of { !_lhsOerrors -> (case (({-# LINE 499 "src-ag/DefaultRules.ag" #-} Set.empty- {-# LINE 1828 "dist/build/DefaultRules" #-}+ {-# LINE 1844 "dist/build/DefaultRules" #-} )) of { !_lhsOlocals -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} Underscore pos_- {-# LINE 1833 "dist/build/DefaultRules" #-}+ {-# LINE 1849 "dist/build/DefaultRules" #-} )) of { !_output -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} _output- {-# LINE 1838 "dist/build/DefaultRules" #-}+ {-# LINE 1854 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput ->- ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) })))+ (case ((Syn_Pattern _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput)) of+ { ___node ->+ ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) }) }))) -- Patterns ---------------------------------------------------- {- visit 0:@@ -1888,114 +1906,118 @@ (!_lhsInt) -> (case (({-# LINE 38 "src-ag/DefaultRules.ag" #-} _lhsInt- {-# LINE 1892 "dist/build/DefaultRules" #-}+ {-# LINE 1910 "dist/build/DefaultRules" #-} )) of { !_tlOnt -> (case (({-# LINE 39 "src-ag/DefaultRules.ag" #-} _lhsIcon- {-# LINE 1897 "dist/build/DefaultRules" #-}+ {-# LINE 1915 "dist/build/DefaultRules" #-} )) of { !_tlOcon -> (case (tl_ _tlOcon _tlOnt) of { ( !_tlIcontainsVars,!_tlIcopy,!_tlIdefinedAttrs,!_tlIerrors,!_tlIlocals,!_tlIoutput) -> (case (({-# LINE 38 "src-ag/DefaultRules.ag" #-} _lhsInt- {-# LINE 1904 "dist/build/DefaultRules" #-}+ {-# LINE 1922 "dist/build/DefaultRules" #-} )) of { !_hdOnt -> (case (({-# LINE 39 "src-ag/DefaultRules.ag" #-} _lhsIcon- {-# LINE 1909 "dist/build/DefaultRules" #-}+ {-# LINE 1927 "dist/build/DefaultRules" #-} )) of { !_hdOcon -> (case (hd_ _hdOcon _hdOnt) of { ( !_hdIcontainsVars,!_hdIcopy,!_hdIdefinedAttrs,!_hdIerrors,!_hdIlocals,!_hdIoutput) -> (case (({-# LINE 520 "src-ag/DefaultRules.ag" #-} _hdIcontainsVars || _tlIcontainsVars- {-# LINE 1916 "dist/build/DefaultRules" #-}+ {-# LINE 1934 "dist/build/DefaultRules" #-} )) of { !_lhsOcontainsVars -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} (:) _hdIcopy _tlIcopy- {-# LINE 1921 "dist/build/DefaultRules" #-}+ {-# LINE 1939 "dist/build/DefaultRules" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1926 "dist/build/DefaultRules" #-}+ {-# LINE 1944 "dist/build/DefaultRules" #-} )) of { !_lhsOcopy -> (case (({-# LINE 500 "src-ag/DefaultRules.ag" #-} _hdIdefinedAttrs `Set.union` _tlIdefinedAttrs- {-# LINE 1931 "dist/build/DefaultRules" #-}+ {-# LINE 1949 "dist/build/DefaultRules" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 142 "src-ag/DefaultRules.ag" #-} _hdIerrors Seq.>< _tlIerrors- {-# LINE 1936 "dist/build/DefaultRules" #-}+ {-# LINE 1954 "dist/build/DefaultRules" #-} )) of { !_lhsOerrors -> (case (({-# LINE 499 "src-ag/DefaultRules.ag" #-} _hdIlocals `Set.union` _tlIlocals- {-# LINE 1941 "dist/build/DefaultRules" #-}+ {-# LINE 1959 "dist/build/DefaultRules" #-} )) of { !_lhsOlocals -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} (:) _hdIoutput _tlIoutput- {-# LINE 1946 "dist/build/DefaultRules" #-}+ {-# LINE 1964 "dist/build/DefaultRules" #-} )) of { !_output -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} _output- {-# LINE 1951 "dist/build/DefaultRules" #-}+ {-# LINE 1969 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput ->- ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_Patterns _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput)) of+ { ___node ->+ ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))) sem_Patterns_Nil :: T_Patterns sem_Patterns_Nil = (T_Patterns (\ (!_lhsIcon) (!_lhsInt) -> (case (({-# LINE 520 "src-ag/DefaultRules.ag" #-} False- {-# LINE 1961 "dist/build/DefaultRules" #-}+ {-# LINE 1981 "dist/build/DefaultRules" #-} )) of { !_lhsOcontainsVars -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} []- {-# LINE 1966 "dist/build/DefaultRules" #-}+ {-# LINE 1986 "dist/build/DefaultRules" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1971 "dist/build/DefaultRules" #-}+ {-# LINE 1991 "dist/build/DefaultRules" #-} )) of { !_lhsOcopy -> (case (({-# LINE 500 "src-ag/DefaultRules.ag" #-} Set.empty- {-# LINE 1976 "dist/build/DefaultRules" #-}+ {-# LINE 1996 "dist/build/DefaultRules" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 142 "src-ag/DefaultRules.ag" #-} Seq.empty- {-# LINE 1981 "dist/build/DefaultRules" #-}+ {-# LINE 2001 "dist/build/DefaultRules" #-} )) of { !_lhsOerrors -> (case (({-# LINE 499 "src-ag/DefaultRules.ag" #-} Set.empty- {-# LINE 1986 "dist/build/DefaultRules" #-}+ {-# LINE 2006 "dist/build/DefaultRules" #-} )) of { !_lhsOlocals -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} []- {-# LINE 1991 "dist/build/DefaultRules" #-}+ {-# LINE 2011 "dist/build/DefaultRules" #-} )) of { !_output -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} _output- {-# LINE 1996 "dist/build/DefaultRules" #-}+ {-# LINE 2016 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput ->- ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) })))+ (case ((Syn_Patterns _lhsOcontainsVars _lhsOcopy _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput)) of+ { ___node ->+ ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) }) }))) -- Production -------------------------------------------------- {- visit 0:@@ -2113,74 +2135,74 @@ (!_lhsIwrappers) -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 2117 "dist/build/DefaultRules" #-}+ {-# LINE 2139 "dist/build/DefaultRules" #-} )) of { !_childrenOsynMap -> (case (({-# LINE 761 "src-ag/DefaultRules.ag" #-} Map.findWithDefault Map.empty con_ _lhsImergesIn- {-# LINE 2122 "dist/build/DefaultRules" #-}+ {-# LINE 2144 "dist/build/DefaultRules" #-} )) of { !_mergesIn -> (case (({-# LINE 762 "src-ag/DefaultRules.ag" #-} Set.fromList [ c | (_,cs,_) <- Map.elems _mergesIn , c <- cs ]- {-# LINE 2127 "dist/build/DefaultRules" #-}+ {-# LINE 2149 "dist/build/DefaultRules" #-} )) of { !_merged -> (case (({-# LINE 757 "src-ag/DefaultRules.ag" #-} _merged- {-# LINE 2132 "dist/build/DefaultRules" #-}+ {-# LINE 2154 "dist/build/DefaultRules" #-} )) of { !_childrenOmerged -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 2137 "dist/build/DefaultRules" #-}+ {-# LINE 2159 "dist/build/DefaultRules" #-} )) of { !_childrenOinhMap -> (case (({-# LINE 688 "src-ag/DefaultRules.ag" #-} Set.toList $ Map.findWithDefault Set.empty con_ $ Map.findWithDefault Map.empty _lhsInt _lhsImanualAttrOrderMap- {-# LINE 2142 "dist/build/DefaultRules" #-}+ {-# LINE 2164 "dist/build/DefaultRules" #-} )) of { !_orderDeps -> (case (({-# LINE 561 "src-ag/DefaultRules.ag" #-} _lhsIuniq- {-# LINE 2147 "dist/build/DefaultRules" #-}+ {-# LINE 2169 "dist/build/DefaultRules" #-} )) of { !_rulesOuniq -> (case (({-# LINE 50 "src-ag/DefaultRules.ag" #-} _lhsIoptions- {-# LINE 2152 "dist/build/DefaultRules" #-}+ {-# LINE 2174 "dist/build/DefaultRules" #-} )) of { !_rulesOoptions -> (case (({-# LINE 38 "src-ag/DefaultRules.ag" #-} _lhsInt- {-# LINE 2157 "dist/build/DefaultRules" #-}+ {-# LINE 2179 "dist/build/DefaultRules" #-} )) of { !_rulesOnt -> (case (({-# LINE 171 "src-ag/DefaultRules.ag" #-} con_- {-# LINE 2162 "dist/build/DefaultRules" #-}+ {-# LINE 2184 "dist/build/DefaultRules" #-} )) of { !_rulesOcon -> (case (rules_ _rulesOcon _rulesOnt _rulesOoptions _rulesOuniq) of { ( !_rulesIdefinedAttrs,!_rulesIerrors,!_rulesIlocals,!_rulesIoutput,!_rulesIruleNames,!_rulesIuniq) -> (case (({-# LINE 41 "src-ag/DefaultRules.ag" #-} _lhsIparams- {-# LINE 2169 "dist/build/DefaultRules" #-}+ {-# LINE 2191 "dist/build/DefaultRules" #-} )) of { !_childrenOparams -> (case (({-# LINE 38 "src-ag/DefaultRules.ag" #-} _lhsInt- {-# LINE 2174 "dist/build/DefaultRules" #-}+ {-# LINE 2196 "dist/build/DefaultRules" #-} )) of { !_childrenOnt -> (case (({-# LINE 55 "src-ag/DefaultRules.ag" #-} _lhsIcr- {-# LINE 2179 "dist/build/DefaultRules" #-}+ {-# LINE 2201 "dist/build/DefaultRules" #-} )) of { !_childrenOcr -> (case (({-# LINE 172 "src-ag/DefaultRules.ag" #-} con_- {-# LINE 2184 "dist/build/DefaultRules" #-}+ {-# LINE 2206 "dist/build/DefaultRules" #-} )) of { !_childrenOcon -> (case (children_ _childrenOcon _childrenOcr _childrenOinhMap _childrenOmerged _childrenOnt _childrenOparams _childrenOsynMap) of@@ -2221,7 +2243,7 @@ [ checkIn occA ++ checkOut occB | (Dependency occA occB) <- _orderDeps ]- {-# LINE 2225 "dist/build/DefaultRules" #-}+ {-# LINE 2247 "dist/build/DefaultRules" #-} )) of { !_orderErrs -> (case (({-# LINE 354 "src-ag/DefaultRules.ag" #-}@@ -2284,72 +2306,74 @@ locals (lhs_env, (_LHS, others)) in (uRules++selfLocRules++selfRules++rules5++rules1, errors1><errs5)- {-# LINE 2288 "dist/build/DefaultRules" #-}+ {-# LINE 2310 "dist/build/DefaultRules" #-} )) of { !__tup2 -> (case (({-# LINE 354 "src-ag/DefaultRules.ag" #-} __tup2- {-# LINE 2293 "dist/build/DefaultRules" #-}+ {-# LINE 2315 "dist/build/DefaultRules" #-} )) of { !(_,!_errs) -> (case (({-# LINE 352 "src-ag/DefaultRules.ag" #-} _childrenIerrors >< _errs >< _rulesIerrors >< _orderErrs- {-# LINE 2298 "dist/build/DefaultRules" #-}+ {-# LINE 2320 "dist/build/DefaultRules" #-} )) of { !_lhsOerrors -> (case (({-# LINE 41 "src-ag/DefaultRules.ag" #-} _lhsIparams- {-# LINE 2303 "dist/build/DefaultRules" #-}+ {-# LINE 2325 "dist/build/DefaultRules" #-} )) of { !_typeSigsOparams -> (case (({-# LINE 38 "src-ag/DefaultRules.ag" #-} _lhsInt- {-# LINE 2308 "dist/build/DefaultRules" #-}+ {-# LINE 2330 "dist/build/DefaultRules" #-} )) of { !_typeSigsOnt -> (case (({-# LINE 753 "src-ag/DefaultRules.ag" #-} Map.findWithDefault Map.empty con_ _lhsIaroundsIn- {-# LINE 2313 "dist/build/DefaultRules" #-}+ {-# LINE 2335 "dist/build/DefaultRules" #-} )) of { !_aroundsIn -> (case (({-# LINE 746 "src-ag/DefaultRules.ag" #-} Map.findWithDefault Map.empty con_ _lhsIaugmentsIn- {-# LINE 2318 "dist/build/DefaultRules" #-}+ {-# LINE 2340 "dist/build/DefaultRules" #-} )) of { !_augmentsIn -> (case (({-# LINE 354 "src-ag/DefaultRules.ag" #-} __tup2- {-# LINE 2323 "dist/build/DefaultRules" #-}+ {-# LINE 2345 "dist/build/DefaultRules" #-} )) of { !(!_newRls,_) -> (case (({-# LINE 577 "src-ag/DefaultRules.ag" #-} foldr addAugments (_rulesIoutput ++ _newRls) (Map.assocs _augmentsIn )- {-# LINE 2328 "dist/build/DefaultRules" #-}+ {-# LINE 2350 "dist/build/DefaultRules" #-} )) of { !_extra1 -> (case (({-# LINE 578 "src-ag/DefaultRules.ag" #-} foldr addArounds _extra1 (Map.assocs _aroundsIn )- {-# LINE 2333 "dist/build/DefaultRules" #-}+ {-# LINE 2355 "dist/build/DefaultRules" #-} )) of { !_extra2 -> (case (({-# LINE 579 "src-ag/DefaultRules.ag" #-} foldr addMerges _extra2 (Map.assocs _mergesIn )- {-# LINE 2338 "dist/build/DefaultRules" #-}+ {-# LINE 2360 "dist/build/DefaultRules" #-} )) of { !_extra3 -> (case (typeSigs_ _typeSigsOnt _typeSigsOparams) of { ( !_typeSigsIoutput) -> (case (({-# LINE 580 "src-ag/DefaultRules.ag" #-} Production con_ params_ constraints_ _childrenIoutput _extra3 _typeSigsIoutput macro_- {-# LINE 2345 "dist/build/DefaultRules" #-}+ {-# LINE 2367 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput -> (case (({-# LINE 561 "src-ag/DefaultRules.ag" #-} _rulesIuniq- {-# LINE 2350 "dist/build/DefaultRules" #-}+ {-# LINE 2372 "dist/build/DefaultRules" #-} )) of { !_lhsOuniq ->- ( _lhsOerrors,_lhsOoutput,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_Production _lhsOerrors _lhsOoutput _lhsOuniq)) of+ { ___node ->+ ( _lhsOerrors,_lhsOoutput,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))) -- Productions ------------------------------------------------- {- visit 0:@@ -2449,229 +2473,231 @@ (!_lhsIwrappers) -> (case (({-# LINE 64 "src-ag/DefaultRules.ag" #-} _lhsIwrappers- {-# LINE 2453 "dist/build/DefaultRules" #-}+ {-# LINE 2477 "dist/build/DefaultRules" #-} )) of { !_tlOwrappers -> (case (({-# LINE 161 "src-ag/DefaultRules.ag" #-} _lhsIuseMap- {-# LINE 2458 "dist/build/DefaultRules" #-}+ {-# LINE 2482 "dist/build/DefaultRules" #-} )) of { !_tlOuseMap -> (case (({-# LINE 71 "src-ag/DefaultRules.ag" #-} _lhsItypeSyns- {-# LINE 2463 "dist/build/DefaultRules" #-}+ {-# LINE 2487 "dist/build/DefaultRules" #-} )) of { !_tlOtypeSyns -> (case (({-# LINE 161 "src-ag/DefaultRules.ag" #-} _lhsIsynOrig- {-# LINE 2468 "dist/build/DefaultRules" #-}+ {-# LINE 2492 "dist/build/DefaultRules" #-} )) of { !_tlOsynOrig -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 2473 "dist/build/DefaultRules" #-}+ {-# LINE 2497 "dist/build/DefaultRules" #-} )) of { !_tlOsynMap -> (case (({-# LINE 161 "src-ag/DefaultRules.ag" #-} _lhsIsyn- {-# LINE 2478 "dist/build/DefaultRules" #-}+ {-# LINE 2502 "dist/build/DefaultRules" #-} )) of { !_tlOsyn -> (case (({-# LINE 50 "src-ag/DefaultRules.ag" #-} _lhsIoptions- {-# LINE 2483 "dist/build/DefaultRules" #-}+ {-# LINE 2507 "dist/build/DefaultRules" #-} )) of { !_tlOoptions -> (case (({-# LINE 51 "src-ag/DefaultRules.ag" #-} _lhsIo_rename- {-# LINE 2488 "dist/build/DefaultRules" #-}+ {-# LINE 2512 "dist/build/DefaultRules" #-} )) of { !_tlOo_rename -> (case (({-# LINE 38 "src-ag/DefaultRules.ag" #-} _lhsInt- {-# LINE 2493 "dist/build/DefaultRules" #-}+ {-# LINE 2517 "dist/build/DefaultRules" #-} )) of { !_tlOnt -> (case (({-# LINE 756 "src-ag/DefaultRules.ag" #-} _lhsImergesIn- {-# LINE 2498 "dist/build/DefaultRules" #-}+ {-# LINE 2522 "dist/build/DefaultRules" #-} )) of { !_tlOmergesIn -> (case (({-# LINE 674 "src-ag/DefaultRules.ag" #-} _lhsImanualAttrOrderMap- {-# LINE 2503 "dist/build/DefaultRules" #-}+ {-# LINE 2527 "dist/build/DefaultRules" #-} )) of { !_tlOmanualAttrOrderMap -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 2508 "dist/build/DefaultRules" #-}+ {-# LINE 2532 "dist/build/DefaultRules" #-} )) of { !_tlOinhMap -> (case (({-# LINE 161 "src-ag/DefaultRules.ag" #-} _lhsIinh- {-# LINE 2513 "dist/build/DefaultRules" #-}+ {-# LINE 2537 "dist/build/DefaultRules" #-} )) of { !_tlOinh -> (case (({-# LINE 52 "src-ag/DefaultRules.ag" #-} _lhsIcr- {-# LINE 2518 "dist/build/DefaultRules" #-}+ {-# LINE 2542 "dist/build/DefaultRules" #-} )) of { !_tlOcr -> (case (({-# LINE 64 "src-ag/DefaultRules.ag" #-} _lhsIwrappers- {-# LINE 2523 "dist/build/DefaultRules" #-}+ {-# LINE 2547 "dist/build/DefaultRules" #-} )) of { !_hdOwrappers -> (case (({-# LINE 161 "src-ag/DefaultRules.ag" #-} _lhsIuseMap- {-# LINE 2528 "dist/build/DefaultRules" #-}+ {-# LINE 2552 "dist/build/DefaultRules" #-} )) of { !_hdOuseMap -> (case (({-# LINE 71 "src-ag/DefaultRules.ag" #-} _lhsItypeSyns- {-# LINE 2533 "dist/build/DefaultRules" #-}+ {-# LINE 2557 "dist/build/DefaultRules" #-} )) of { !_hdOtypeSyns -> (case (({-# LINE 161 "src-ag/DefaultRules.ag" #-} _lhsIsynOrig- {-# LINE 2538 "dist/build/DefaultRules" #-}+ {-# LINE 2562 "dist/build/DefaultRules" #-} )) of { !_hdOsynOrig -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 2543 "dist/build/DefaultRules" #-}+ {-# LINE 2567 "dist/build/DefaultRules" #-} )) of { !_hdOsynMap -> (case (({-# LINE 161 "src-ag/DefaultRules.ag" #-} _lhsIsyn- {-# LINE 2548 "dist/build/DefaultRules" #-}+ {-# LINE 2572 "dist/build/DefaultRules" #-} )) of { !_hdOsyn -> (case (({-# LINE 50 "src-ag/DefaultRules.ag" #-} _lhsIoptions- {-# LINE 2553 "dist/build/DefaultRules" #-}+ {-# LINE 2577 "dist/build/DefaultRules" #-} )) of { !_hdOoptions -> (case (({-# LINE 51 "src-ag/DefaultRules.ag" #-} _lhsIo_rename- {-# LINE 2558 "dist/build/DefaultRules" #-}+ {-# LINE 2582 "dist/build/DefaultRules" #-} )) of { !_hdOo_rename -> (case (({-# LINE 38 "src-ag/DefaultRules.ag" #-} _lhsInt- {-# LINE 2563 "dist/build/DefaultRules" #-}+ {-# LINE 2587 "dist/build/DefaultRules" #-} )) of { !_hdOnt -> (case (({-# LINE 756 "src-ag/DefaultRules.ag" #-} _lhsImergesIn- {-# LINE 2568 "dist/build/DefaultRules" #-}+ {-# LINE 2592 "dist/build/DefaultRules" #-} )) of { !_hdOmergesIn -> (case (({-# LINE 674 "src-ag/DefaultRules.ag" #-} _lhsImanualAttrOrderMap- {-# LINE 2573 "dist/build/DefaultRules" #-}+ {-# LINE 2597 "dist/build/DefaultRules" #-} )) of { !_hdOmanualAttrOrderMap -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 2578 "dist/build/DefaultRules" #-}+ {-# LINE 2602 "dist/build/DefaultRules" #-} )) of { !_hdOinhMap -> (case (({-# LINE 161 "src-ag/DefaultRules.ag" #-} _lhsIinh- {-# LINE 2583 "dist/build/DefaultRules" #-}+ {-# LINE 2607 "dist/build/DefaultRules" #-} )) of { !_hdOinh -> (case (({-# LINE 52 "src-ag/DefaultRules.ag" #-} _lhsIcr- {-# LINE 2588 "dist/build/DefaultRules" #-}+ {-# LINE 2612 "dist/build/DefaultRules" #-} )) of { !_hdOcr -> (case (({-# LINE 561 "src-ag/DefaultRules.ag" #-} _lhsIuniq- {-# LINE 2593 "dist/build/DefaultRules" #-}+ {-# LINE 2617 "dist/build/DefaultRules" #-} )) of { !_hdOuniq -> (case (({-# LINE 41 "src-ag/DefaultRules.ag" #-} _lhsIparams- {-# LINE 2598 "dist/build/DefaultRules" #-}+ {-# LINE 2622 "dist/build/DefaultRules" #-} )) of { !_hdOparams -> (case (({-# LINE 152 "src-ag/DefaultRules.ag" #-} _lhsInonterminals- {-# LINE 2603 "dist/build/DefaultRules" #-}+ {-# LINE 2627 "dist/build/DefaultRules" #-} )) of { !_hdOnonterminals -> (case (({-# LINE 161 "src-ag/DefaultRules.ag" #-} _lhsIinhOrig- {-# LINE 2608 "dist/build/DefaultRules" #-}+ {-# LINE 2632 "dist/build/DefaultRules" #-} )) of { !_hdOinhOrig -> (case (({-# LINE 742 "src-ag/DefaultRules.ag" #-} _lhsIaugmentsIn- {-# LINE 2613 "dist/build/DefaultRules" #-}+ {-# LINE 2637 "dist/build/DefaultRules" #-} )) of { !_hdOaugmentsIn -> (case (({-# LINE 749 "src-ag/DefaultRules.ag" #-} _lhsIaroundsIn- {-# LINE 2618 "dist/build/DefaultRules" #-}+ {-# LINE 2642 "dist/build/DefaultRules" #-} )) of { !_hdOaroundsIn -> (case (hd_ _hdOaroundsIn _hdOaugmentsIn _hdOcr _hdOinh _hdOinhMap _hdOinhOrig _hdOmanualAttrOrderMap _hdOmergesIn _hdOnonterminals _hdOnt _hdOo_rename _hdOoptions _hdOparams _hdOsyn _hdOsynMap _hdOsynOrig _hdOtypeSyns _hdOuniq _hdOuseMap _hdOwrappers) of { ( !_hdIerrors,!_hdIoutput,!_hdIuniq) -> (case (({-# LINE 561 "src-ag/DefaultRules.ag" #-} _hdIuniq- {-# LINE 2625 "dist/build/DefaultRules" #-}+ {-# LINE 2649 "dist/build/DefaultRules" #-} )) of { !_tlOuniq -> (case (({-# LINE 41 "src-ag/DefaultRules.ag" #-} _lhsIparams- {-# LINE 2630 "dist/build/DefaultRules" #-}+ {-# LINE 2654 "dist/build/DefaultRules" #-} )) of { !_tlOparams -> (case (({-# LINE 152 "src-ag/DefaultRules.ag" #-} _lhsInonterminals- {-# LINE 2635 "dist/build/DefaultRules" #-}+ {-# LINE 2659 "dist/build/DefaultRules" #-} )) of { !_tlOnonterminals -> (case (({-# LINE 161 "src-ag/DefaultRules.ag" #-} _lhsIinhOrig- {-# LINE 2640 "dist/build/DefaultRules" #-}+ {-# LINE 2664 "dist/build/DefaultRules" #-} )) of { !_tlOinhOrig -> (case (({-# LINE 742 "src-ag/DefaultRules.ag" #-} _lhsIaugmentsIn- {-# LINE 2645 "dist/build/DefaultRules" #-}+ {-# LINE 2669 "dist/build/DefaultRules" #-} )) of { !_tlOaugmentsIn -> (case (({-# LINE 749 "src-ag/DefaultRules.ag" #-} _lhsIaroundsIn- {-# LINE 2650 "dist/build/DefaultRules" #-}+ {-# LINE 2674 "dist/build/DefaultRules" #-} )) of { !_tlOaroundsIn -> (case (tl_ _tlOaroundsIn _tlOaugmentsIn _tlOcr _tlOinh _tlOinhMap _tlOinhOrig _tlOmanualAttrOrderMap _tlOmergesIn _tlOnonterminals _tlOnt _tlOo_rename _tlOoptions _tlOparams _tlOsyn _tlOsynMap _tlOsynOrig _tlOtypeSyns _tlOuniq _tlOuseMap _tlOwrappers) of { ( !_tlIerrors,!_tlIoutput,!_tlIuniq) -> (case (({-# LINE 142 "src-ag/DefaultRules.ag" #-} _hdIerrors Seq.>< _tlIerrors- {-# LINE 2657 "dist/build/DefaultRules" #-}+ {-# LINE 2681 "dist/build/DefaultRules" #-} )) of { !_lhsOerrors -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} (:) _hdIoutput _tlIoutput- {-# LINE 2662 "dist/build/DefaultRules" #-}+ {-# LINE 2686 "dist/build/DefaultRules" #-} )) of { !_output -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} _output- {-# LINE 2667 "dist/build/DefaultRules" #-}+ {-# LINE 2691 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput -> (case (({-# LINE 561 "src-ag/DefaultRules.ag" #-} _tlIuniq- {-# LINE 2672 "dist/build/DefaultRules" #-}+ {-# LINE 2696 "dist/build/DefaultRules" #-} )) of { !_lhsOuniq ->- ( _lhsOerrors,_lhsOoutput,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_Productions _lhsOerrors _lhsOoutput _lhsOuniq)) of+ { ___node ->+ ( _lhsOerrors,_lhsOoutput,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))) sem_Productions_Nil :: T_Productions sem_Productions_Nil = (T_Productions (\ (!_lhsIaroundsIn)@@ -2696,25 +2722,27 @@ (!_lhsIwrappers) -> (case (({-# LINE 142 "src-ag/DefaultRules.ag" #-} Seq.empty- {-# LINE 2700 "dist/build/DefaultRules" #-}+ {-# LINE 2726 "dist/build/DefaultRules" #-} )) of { !_lhsOerrors -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} []- {-# LINE 2705 "dist/build/DefaultRules" #-}+ {-# LINE 2731 "dist/build/DefaultRules" #-} )) of { !_output -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} _output- {-# LINE 2710 "dist/build/DefaultRules" #-}+ {-# LINE 2736 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput -> (case (({-# LINE 561 "src-ag/DefaultRules.ag" #-} _lhsIuniq- {-# LINE 2715 "dist/build/DefaultRules" #-}+ {-# LINE 2741 "dist/build/DefaultRules" #-} )) of { !_lhsOuniq ->- ( _lhsOerrors,_lhsOoutput,_lhsOuniq) }) }) }) })))+ (case ((Syn_Productions _lhsOerrors _lhsOoutput _lhsOuniq)) of+ { ___node ->+ ( _lhsOerrors,_lhsOoutput,_lhsOuniq) }) }) }) }) }))) -- Rule -------------------------------------------------------- {- visit 0:@@ -2790,96 +2818,98 @@ (!_lhsIuniq) -> (case (({-# LINE 38 "src-ag/DefaultRules.ag" #-} _lhsInt- {-# LINE 2794 "dist/build/DefaultRules" #-}+ {-# LINE 2822 "dist/build/DefaultRules" #-} )) of { !_patternOnt -> (case (({-# LINE 39 "src-ag/DefaultRules.ag" #-} _lhsIcon- {-# LINE 2799 "dist/build/DefaultRules" #-}+ {-# LINE 2827 "dist/build/DefaultRules" #-} )) of { !_patternOcon -> (case (pattern_ _patternOcon _patternOnt) of { ( !_patternIcontainsVars,!_patternIcopy,!_patternIdefinedAttrs,!_patternIerrors,!_patternIlocals,!_patternIoutput) -> (case (({-# LINE 520 "src-ag/DefaultRules.ag" #-} _patternIcontainsVars- {-# LINE 2806 "dist/build/DefaultRules" #-}+ {-# LINE 2834 "dist/build/DefaultRules" #-} )) of { !_lhsOcontainsVars -> (case (({-# LINE 500 "src-ag/DefaultRules.ag" #-} _patternIdefinedAttrs- {-# LINE 2811 "dist/build/DefaultRules" #-}+ {-# LINE 2839 "dist/build/DefaultRules" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 142 "src-ag/DefaultRules.ag" #-} _patternIerrors- {-# LINE 2816 "dist/build/DefaultRules" #-}+ {-# LINE 2844 "dist/build/DefaultRules" #-} )) of { !_lhsOerrors -> (case (({-# LINE 526 "src-ag/DefaultRules.ag" #-} pure_- {-# LINE 2821 "dist/build/DefaultRules" #-}+ {-# LINE 2849 "dist/build/DefaultRules" #-} )) of { !_lhsOisPure -> (case (({-# LINE 499 "src-ag/DefaultRules.ag" #-} _patternIlocals- {-# LINE 2826 "dist/build/DefaultRules" #-}+ {-# LINE 2854 "dist/build/DefaultRules" #-} )) of { !_lhsOlocals -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} Rule mbName_ _patternIoutput rhs_ owrt_ origin_ explicit_ pure_ identity_ mbError_ eager_- {-# LINE 2831 "dist/build/DefaultRules" #-}+ {-# LINE 2859 "dist/build/DefaultRules" #-} )) of { !_output -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} _output- {-# LINE 2836 "dist/build/DefaultRules" #-}+ {-# LINE 2864 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput -> (case (({-# LINE 593 "src-ag/DefaultRules.ag" #-} mkRuleAlias _output- {-# LINE 2841 "dist/build/DefaultRules" #-}+ {-# LINE 2869 "dist/build/DefaultRules" #-} )) of { !__tup3 -> (case (({-# LINE 593 "src-ag/DefaultRules.ag" #-} __tup3- {-# LINE 2846 "dist/build/DefaultRules" #-}+ {-# LINE 2874 "dist/build/DefaultRules" #-} )) of { !(!_output1,_) -> (case (({-# LINE 594 "src-ag/DefaultRules.ag" #-} if needsMultiRules _lhsIoptions then multiRule _output1 _lhsIuniq else ([_output1 ], _lhsIuniq)- {-# LINE 2853 "dist/build/DefaultRules" #-}+ {-# LINE 2881 "dist/build/DefaultRules" #-} )) of { !__tup4 -> (case (({-# LINE 594 "src-ag/DefaultRules.ag" #-} __tup4- {-# LINE 2858 "dist/build/DefaultRules" #-}+ {-# LINE 2886 "dist/build/DefaultRules" #-} )) of { !(!_outputs,_) -> (case (({-# LINE 593 "src-ag/DefaultRules.ag" #-} __tup3- {-# LINE 2863 "dist/build/DefaultRules" #-}+ {-# LINE 2891 "dist/build/DefaultRules" #-} )) of { !(_,!_mbAlias) -> (case (({-# LINE 597 "src-ag/DefaultRules.ag" #-} maybe [] return _mbAlias ++ _outputs- {-# LINE 2868 "dist/build/DefaultRules" #-}+ {-# LINE 2896 "dist/build/DefaultRules" #-} )) of { !_lhsOoutputs -> (case (({-# LINE 682 "src-ag/DefaultRules.ag" #-} case mbName_ of Nothing -> Set.empty Just nm -> Set.singleton nm- {-# LINE 2875 "dist/build/DefaultRules" #-}+ {-# LINE 2903 "dist/build/DefaultRules" #-} )) of { !_lhsOruleNames -> (case (({-# LINE 594 "src-ag/DefaultRules.ag" #-} __tup4- {-# LINE 2880 "dist/build/DefaultRules" #-}+ {-# LINE 2908 "dist/build/DefaultRules" #-} )) of { !(_,!_lhsOuniq) ->- ( _lhsOcontainsVars,_lhsOdefinedAttrs,_lhsOerrors,_lhsOisPure,_lhsOlocals,_lhsOoutput,_lhsOoutputs,_lhsOruleNames,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_Rule _lhsOcontainsVars _lhsOdefinedAttrs _lhsOerrors _lhsOisPure _lhsOlocals _lhsOoutput _lhsOoutputs _lhsOruleNames _lhsOuniq)) of+ { ___node ->+ ( _lhsOcontainsVars,_lhsOdefinedAttrs,_lhsOerrors,_lhsOisPure,_lhsOlocals,_lhsOoutput,_lhsOoutputs,_lhsOruleNames,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))) -- Rules ------------------------------------------------------- {- visit 0:@@ -2932,79 +2962,81 @@ (!_lhsIuniq) -> (case (({-# LINE 561 "src-ag/DefaultRules.ag" #-} _lhsIuniq- {-# LINE 2936 "dist/build/DefaultRules" #-}+ {-# LINE 2966 "dist/build/DefaultRules" #-} )) of { !_hdOuniq -> (case (({-# LINE 50 "src-ag/DefaultRules.ag" #-} _lhsIoptions- {-# LINE 2941 "dist/build/DefaultRules" #-}+ {-# LINE 2971 "dist/build/DefaultRules" #-} )) of { !_hdOoptions -> (case (({-# LINE 38 "src-ag/DefaultRules.ag" #-} _lhsInt- {-# LINE 2946 "dist/build/DefaultRules" #-}+ {-# LINE 2976 "dist/build/DefaultRules" #-} )) of { !_hdOnt -> (case (({-# LINE 39 "src-ag/DefaultRules.ag" #-} _lhsIcon- {-# LINE 2951 "dist/build/DefaultRules" #-}+ {-# LINE 2981 "dist/build/DefaultRules" #-} )) of { !_hdOcon -> (case (hd_ _hdOcon _hdOnt _hdOoptions _hdOuniq) of { ( !_hdIcontainsVars,!_hdIdefinedAttrs,!_hdIerrors,!_hdIisPure,!_hdIlocals,!_hdIoutput,!_hdIoutputs,!_hdIruleNames,!_hdIuniq) -> (case (({-# LINE 561 "src-ag/DefaultRules.ag" #-} _hdIuniq- {-# LINE 2958 "dist/build/DefaultRules" #-}+ {-# LINE 2988 "dist/build/DefaultRules" #-} )) of { !_tlOuniq -> (case (({-# LINE 50 "src-ag/DefaultRules.ag" #-} _lhsIoptions- {-# LINE 2963 "dist/build/DefaultRules" #-}+ {-# LINE 2993 "dist/build/DefaultRules" #-} )) of { !_tlOoptions -> (case (({-# LINE 38 "src-ag/DefaultRules.ag" #-} _lhsInt- {-# LINE 2968 "dist/build/DefaultRules" #-}+ {-# LINE 2998 "dist/build/DefaultRules" #-} )) of { !_tlOnt -> (case (({-# LINE 39 "src-ag/DefaultRules.ag" #-} _lhsIcon- {-# LINE 2973 "dist/build/DefaultRules" #-}+ {-# LINE 3003 "dist/build/DefaultRules" #-} )) of { !_tlOcon -> (case (tl_ _tlOcon _tlOnt _tlOoptions _tlOuniq) of { ( !_tlIdefinedAttrs,!_tlIerrors,!_tlIlocals,!_tlIoutput,!_tlIruleNames,!_tlIuniq) -> (case (({-# LINE 500 "src-ag/DefaultRules.ag" #-} _hdIdefinedAttrs `Set.union` _tlIdefinedAttrs- {-# LINE 2980 "dist/build/DefaultRules" #-}+ {-# LINE 3010 "dist/build/DefaultRules" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 142 "src-ag/DefaultRules.ag" #-} _hdIerrors Seq.>< _tlIerrors- {-# LINE 2985 "dist/build/DefaultRules" #-}+ {-# LINE 3015 "dist/build/DefaultRules" #-} )) of { !_lhsOerrors -> (case (({-# LINE 499 "src-ag/DefaultRules.ag" #-} _hdIlocals `Set.union` _tlIlocals- {-# LINE 2990 "dist/build/DefaultRules" #-}+ {-# LINE 3020 "dist/build/DefaultRules" #-} )) of { !_lhsOlocals -> (case (({-# LINE 589 "src-ag/DefaultRules.ag" #-} if _hdIcontainsVars && _hdIisPure then _hdIoutputs ++ _tlIoutput else _tlIoutput- {-# LINE 2995 "dist/build/DefaultRules" #-}+ {-# LINE 3025 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput -> (case (({-# LINE 680 "src-ag/DefaultRules.ag" #-} _hdIruleNames `Set.union` _tlIruleNames- {-# LINE 3000 "dist/build/DefaultRules" #-}+ {-# LINE 3030 "dist/build/DefaultRules" #-} )) of { !_lhsOruleNames -> (case (({-# LINE 561 "src-ag/DefaultRules.ag" #-} _tlIuniq- {-# LINE 3005 "dist/build/DefaultRules" #-}+ {-# LINE 3035 "dist/build/DefaultRules" #-} )) of { !_lhsOuniq ->- ( _lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput,_lhsOruleNames,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_Rules _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput _lhsOruleNames _lhsOuniq)) of+ { ___node ->+ ( _lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput,_lhsOruleNames,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))) sem_Rules_Nil :: T_Rules sem_Rules_Nil = (T_Rules (\ (!_lhsIcon)@@ -3013,40 +3045,42 @@ (!_lhsIuniq) -> (case (({-# LINE 500 "src-ag/DefaultRules.ag" #-} Set.empty- {-# LINE 3017 "dist/build/DefaultRules" #-}+ {-# LINE 3049 "dist/build/DefaultRules" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 142 "src-ag/DefaultRules.ag" #-} Seq.empty- {-# LINE 3022 "dist/build/DefaultRules" #-}+ {-# LINE 3054 "dist/build/DefaultRules" #-} )) of { !_lhsOerrors -> (case (({-# LINE 499 "src-ag/DefaultRules.ag" #-} Set.empty- {-# LINE 3027 "dist/build/DefaultRules" #-}+ {-# LINE 3059 "dist/build/DefaultRules" #-} )) of { !_lhsOlocals -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} []- {-# LINE 3032 "dist/build/DefaultRules" #-}+ {-# LINE 3064 "dist/build/DefaultRules" #-} )) of { !_output -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} _output- {-# LINE 3037 "dist/build/DefaultRules" #-}+ {-# LINE 3069 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput -> (case (({-# LINE 680 "src-ag/DefaultRules.ag" #-} Set.empty- {-# LINE 3042 "dist/build/DefaultRules" #-}+ {-# LINE 3074 "dist/build/DefaultRules" #-} )) of { !_lhsOruleNames -> (case (({-# LINE 561 "src-ag/DefaultRules.ag" #-} _lhsIuniq- {-# LINE 3047 "dist/build/DefaultRules" #-}+ {-# LINE 3079 "dist/build/DefaultRules" #-} )) of { !_lhsOuniq ->- ( _lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput,_lhsOruleNames,_lhsOuniq) }) }) }) }) }) }) })))+ (case ((Syn_Rules _lhsOdefinedAttrs _lhsOerrors _lhsOlocals _lhsOoutput _lhsOruleNames _lhsOuniq)) of+ { ___node ->+ ( _lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput,_lhsOruleNames,_lhsOuniq) }) }) }) }) }) }) }) }))) -- TypeSig ----------------------------------------------------- {- visit 0:@@ -3087,15 +3121,17 @@ (!_lhsIparams) -> (case (({-# LINE 545 "src-ag/DefaultRules.ag" #-} elimSelfId _lhsInt _lhsIparams tp_- {-# LINE 3091 "dist/build/DefaultRules" #-}+ {-# LINE 3125 "dist/build/DefaultRules" #-} )) of { !_tp1 -> (case (({-# LINE 586 "src-ag/DefaultRules.ag" #-} TypeSig name_ _tp1- {-# LINE 3096 "dist/build/DefaultRules" #-}+ {-# LINE 3130 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput ->- ( _lhsOoutput) }) })))+ (case ((Syn_TypeSig _lhsOoutput)) of+ { ___node ->+ ( _lhsOoutput) }) }) }))) -- TypeSigs ---------------------------------------------------- {- visit 0:@@ -3139,22 +3175,22 @@ (!_lhsIparams) -> (case (({-# LINE 41 "src-ag/DefaultRules.ag" #-} _lhsIparams- {-# LINE 3143 "dist/build/DefaultRules" #-}+ {-# LINE 3179 "dist/build/DefaultRules" #-} )) of { !_tlOparams -> (case (({-# LINE 38 "src-ag/DefaultRules.ag" #-} _lhsInt- {-# LINE 3148 "dist/build/DefaultRules" #-}+ {-# LINE 3184 "dist/build/DefaultRules" #-} )) of { !_tlOnt -> (case (({-# LINE 41 "src-ag/DefaultRules.ag" #-} _lhsIparams- {-# LINE 3153 "dist/build/DefaultRules" #-}+ {-# LINE 3189 "dist/build/DefaultRules" #-} )) of { !_hdOparams -> (case (({-# LINE 38 "src-ag/DefaultRules.ag" #-} _lhsInt- {-# LINE 3158 "dist/build/DefaultRules" #-}+ {-# LINE 3194 "dist/build/DefaultRules" #-} )) of { !_hdOnt -> (case (tl_ _tlOnt _tlOparams) of@@ -3163,27 +3199,31 @@ { ( !_hdIoutput) -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} (:) _hdIoutput _tlIoutput- {-# LINE 3167 "dist/build/DefaultRules" #-}+ {-# LINE 3203 "dist/build/DefaultRules" #-} )) of { !_output -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} _output- {-# LINE 3172 "dist/build/DefaultRules" #-}+ {-# LINE 3208 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput ->- ( _lhsOoutput) }) }) }) }) }) }) }) })))+ (case ((Syn_TypeSigs _lhsOoutput)) of+ { ___node ->+ ( _lhsOoutput) }) }) }) }) }) }) }) }) }))) sem_TypeSigs_Nil :: T_TypeSigs sem_TypeSigs_Nil = (T_TypeSigs (\ (!_lhsInt) (!_lhsIparams) -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} []- {-# LINE 3182 "dist/build/DefaultRules" #-}+ {-# LINE 3220 "dist/build/DefaultRules" #-} )) of { !_output -> (case (({-# LINE 568 "src-ag/DefaultRules.ag" #-} _output- {-# LINE 3187 "dist/build/DefaultRules" #-}+ {-# LINE 3225 "dist/build/DefaultRules" #-} )) of { !_lhsOoutput ->- ( _lhsOoutput) }) })))+ (case ((Syn_TypeSigs _lhsOoutput)) of+ { ___node ->+ ( _lhsOoutput) }) }) })))
src-derived/Desugar.hs view
@@ -197,7 +197,9 @@ {-# LINE 198 "dist/build/Desugar" #-} )) of { !_lhsOoutput ->- ( _lhsOchildInhs,_lhsOchildSyns,_lhsOoutput) }) }) }) }) }) })))+ (case ((Syn_Child _lhsOchildInhs _lhsOchildSyns _lhsOoutput)) of+ { ___node ->+ ( _lhsOchildInhs,_lhsOchildSyns,_lhsOoutput) }) }) }) }) }) }) }))) -- Children ---------------------------------------------------- {- visit 0:@@ -249,69 +251,71 @@ (!_lhsIsynMap) -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 253 "dist/build/Desugar" #-}+ {-# LINE 255 "dist/build/Desugar" #-} )) of { !_tlOinhMap -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 258 "dist/build/Desugar" #-}+ {-# LINE 260 "dist/build/Desugar" #-} )) of { !_hdOinhMap -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 263 "dist/build/Desugar" #-}+ {-# LINE 265 "dist/build/Desugar" #-} )) of { !_tlOsynMap -> (case (({-# LINE 36 "src-ag/Desugar.ag" #-} _lhsIoptions- {-# LINE 268 "dist/build/Desugar" #-}+ {-# LINE 270 "dist/build/Desugar" #-} )) of { !_tlOoptions -> (case (({-# LINE 289 "src-ag/Desugar.ag" #-} _lhsImainName- {-# LINE 273 "dist/build/Desugar" #-}+ {-# LINE 275 "dist/build/Desugar" #-} )) of { !_tlOmainName -> (case (tl_ _tlOinhMap _tlOmainName _tlOoptions _tlOsynMap) of { ( !_tlIchildInhs,!_tlIchildSyns,!_tlIoutput) -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 280 "dist/build/Desugar" #-}+ {-# LINE 282 "dist/build/Desugar" #-} )) of { !_hdOsynMap -> (case (({-# LINE 36 "src-ag/Desugar.ag" #-} _lhsIoptions- {-# LINE 285 "dist/build/Desugar" #-}+ {-# LINE 287 "dist/build/Desugar" #-} )) of { !_hdOoptions -> (case (({-# LINE 289 "src-ag/Desugar.ag" #-} _lhsImainName- {-# LINE 290 "dist/build/Desugar" #-}+ {-# LINE 292 "dist/build/Desugar" #-} )) of { !_hdOmainName -> (case (hd_ _hdOinhMap _hdOmainName _hdOoptions _hdOsynMap) of { ( !_hdIchildInhs,!_hdIchildSyns,!_hdIoutput) -> (case (({-# LINE 125 "src-ag/Desugar.ag" #-} _hdIchildInhs ++ _tlIchildInhs- {-# LINE 297 "dist/build/Desugar" #-}+ {-# LINE 299 "dist/build/Desugar" #-} )) of { !_lhsOchildInhs -> (case (({-# LINE 125 "src-ag/Desugar.ag" #-} _hdIchildSyns ++ _tlIchildSyns- {-# LINE 302 "dist/build/Desugar" #-}+ {-# LINE 304 "dist/build/Desugar" #-} )) of { !_lhsOchildSyns -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} (:) _hdIoutput _tlIoutput- {-# LINE 307 "dist/build/Desugar" #-}+ {-# LINE 309 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} _output- {-# LINE 312 "dist/build/Desugar" #-}+ {-# LINE 314 "dist/build/Desugar" #-} )) of { !_lhsOoutput ->- ( _lhsOchildInhs,_lhsOchildSyns,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_Children _lhsOchildInhs _lhsOchildSyns _lhsOoutput)) of+ { ___node ->+ ( _lhsOchildInhs,_lhsOchildSyns,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))) sem_Children_Nil :: T_Children sem_Children_Nil = (T_Children (\ (!_lhsIinhMap)@@ -320,25 +324,27 @@ (!_lhsIsynMap) -> (case (({-# LINE 125 "src-ag/Desugar.ag" #-} []- {-# LINE 324 "dist/build/Desugar" #-}+ {-# LINE 328 "dist/build/Desugar" #-} )) of { !_lhsOchildInhs -> (case (({-# LINE 125 "src-ag/Desugar.ag" #-} []- {-# LINE 329 "dist/build/Desugar" #-}+ {-# LINE 333 "dist/build/Desugar" #-} )) of { !_lhsOchildSyns -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} []- {-# LINE 334 "dist/build/Desugar" #-}+ {-# LINE 338 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} _output- {-# LINE 339 "dist/build/Desugar" #-}+ {-# LINE 343 "dist/build/Desugar" #-} )) of { !_lhsOoutput ->- ( _lhsOchildInhs,_lhsOchildSyns,_lhsOoutput) }) }) }) })))+ (case ((Syn_Children _lhsOchildInhs _lhsOchildSyns _lhsOoutput)) of+ { ___node ->+ ( _lhsOchildInhs,_lhsOchildSyns,_lhsOoutput) }) }) }) }) }))) -- Expression -------------------------------------------------- {- visit 0:@@ -402,25 +408,27 @@ sem = sem_HsTokensRoot (HsTokensRoot tks_) syn = wrap_HsTokensRoot sem inh in (tks_Syn_HsTokensRoot syn, errors_Syn_HsTokensRoot syn)- {-# LINE 406 "dist/build/Desugar" #-}+ {-# LINE 412 "dist/build/Desugar" #-} )) of { !__tup1 -> (case (({-# LINE 49 "src-ag/Desugar.ag" #-} __tup1- {-# LINE 411 "dist/build/Desugar" #-}+ {-# LINE 417 "dist/build/Desugar" #-} )) of { !(_,!_lhsOerrors) -> (case (({-# LINE 49 "src-ag/Desugar.ag" #-} __tup1- {-# LINE 416 "dist/build/Desugar" #-}+ {-# LINE 422 "dist/build/Desugar" #-} )) of { !(!_tks',_) -> (case (({-# LINE 59 "src-ag/Desugar.ag" #-} Expression pos_ _tks'- {-# LINE 421 "dist/build/Desugar" #-}+ {-# LINE 427 "dist/build/Desugar" #-} )) of { !_lhsOoutput ->- ( _lhsOerrors,_lhsOoutput) }) }) }) })))+ (case ((Syn_Expression _lhsOerrors _lhsOoutput)) of+ { ___node ->+ ( _lhsOerrors,_lhsOoutput) }) }) }) }) }))) -- Grammar ----------------------------------------------------- {- visit 0:@@ -490,44 +498,44 @@ { ( !_nontsIinhMap',!_nontsIsynMap',!T_Nonterminals_1 nonts_1) -> (case (({-# LINE 36 "src-ag/Desugar.ag" #-} _lhsIoptions- {-# LINE 494 "dist/build/Desugar" #-}+ {-# LINE 502 "dist/build/Desugar" #-} )) of { !_nontsOoptions -> (case (({-# LINE 289 "src-ag/Desugar.ag" #-} _lhsImainName- {-# LINE 499 "dist/build/Desugar" #-}+ {-# LINE 507 "dist/build/Desugar" #-} )) of { !_nontsOmainName -> (case (({-# LINE 215 "src-ag/Desugar.ag" #-} _lhsIforcedIrrefutables- {-# LINE 504 "dist/build/Desugar" #-}+ {-# LINE 512 "dist/build/Desugar" #-} )) of { !_nontsOforcedIrrefutables -> (case (({-# LINE 16 "src-ag/DistChildAttr.ag" #-} _nontsIsynMap'- {-# LINE 509 "dist/build/Desugar" #-}+ {-# LINE 517 "dist/build/Desugar" #-} )) of { !_nontsOsynMap -> (case (({-# LINE 15 "src-ag/DistChildAttr.ag" #-} _nontsIinhMap'- {-# LINE 514 "dist/build/Desugar" #-}+ {-# LINE 522 "dist/build/Desugar" #-} )) of { !_nontsOinhMap -> (case (({-# LINE 235 "src-ag/Desugar.ag" #-} augmentsMap_- {-# LINE 519 "dist/build/Desugar" #-}+ {-# LINE 527 "dist/build/Desugar" #-} )) of { !_nontsOaugmentsIn -> (case (nonts_1 _nontsOaugmentsIn _nontsOforcedIrrefutables _nontsOinhMap _nontsOmainName _nontsOoptions _nontsOsynMap) of { ( !_nontsIallAttributes,!_nontsIaugmentsOut,!_nontsIerrors,!_nontsIoutput) -> (case (({-# LINE 196 "src-ag/Desugar.ag" #-} _nontsIallAttributes- {-# LINE 526 "dist/build/Desugar" #-}+ {-# LINE 534 "dist/build/Desugar" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} _nontsIerrors- {-# LINE 531 "dist/build/Desugar" #-}+ {-# LINE 539 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 319 "src-ag/Desugar.ag" #-}@@ -545,10 +553,12 @@ _nontsIaugmentsOut aroundsMap_ mergeMap_- {-# LINE 549 "dist/build/Desugar" #-}+ {-# LINE 557 "dist/build/Desugar" #-} )) of { !_lhsOoutput ->- ( _lhsOallAttributes,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_Grammar _lhsOallAttributes _lhsOerrors _lhsOoutput)) of+ { ___node ->+ ( _lhsOallAttributes,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }))) -- HsToken ----------------------------------------------------- {- visit 0:@@ -648,37 +658,39 @@ (!_lhsIuseFieldIdent) -> (case (({-# LINE 79 "src-ag/Desugar.ag" #-} findField field_ attr_ _lhsIchildSyns- {-# LINE 652 "dist/build/Desugar" #-}+ {-# LINE 662 "dist/build/Desugar" #-} )) of { !_mField -> (case (({-# LINE 81 "src-ag/Desugar.ag" #-} maybe field_ id _mField- {-# LINE 657 "dist/build/Desugar" #-}+ {-# LINE 667 "dist/build/Desugar" #-} )) of { !_field' -> (case (({-# LINE 84 "src-ag/Desugar.ag" #-} if _lhsIuseFieldIdent || length (getName field_) < length (getName _field' ) then _lhsIaddLines + 1 else _lhsIaddLines- {-# LINE 664 "dist/build/Desugar" #-}+ {-# LINE 674 "dist/build/Desugar" #-} )) of { !_lhsOaddLines -> (case (({-# LINE 82 "src-ag/Desugar.ag" #-} maybe (Seq.singleton (UndefAttr _lhsInt _lhsIcon field_ (Ident "<ANY>" (getPos field_)) False)) (const Seq.empty) _mField- {-# LINE 669 "dist/build/Desugar" #-}+ {-# LINE 679 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 88 "src-ag/Desugar.ag" #-} AGField _field' attr_ (addl _lhsIaddLines pos_) (if _lhsIuseFieldIdent then Just _lhsIruleDescr else Nothing)- {-# LINE 674 "dist/build/Desugar" #-}+ {-# LINE 684 "dist/build/Desugar" #-} )) of { !_tks -> (case (({-# LINE 70 "src-ag/Desugar.ag" #-} _tks- {-# LINE 679 "dist/build/Desugar" #-}+ {-# LINE 689 "dist/build/Desugar" #-} )) of { !_lhsOtks ->- ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) }) }) })))+ (case ((Syn_HsToken _lhsOaddLines _lhsOerrors _lhsOtks)) of+ { ___node ->+ ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) }) }) }) }))) sem_HsToken_AGLocal :: Identifier -> Pos -> (Maybe String) ->@@ -695,25 +707,27 @@ if _lhsIuseFieldIdent then _lhsIaddLines + 1 else _lhsIaddLines- {-# LINE 699 "dist/build/Desugar" #-}+ {-# LINE 711 "dist/build/Desugar" #-} )) of { !_lhsOaddLines -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} Seq.empty- {-# LINE 704 "dist/build/Desugar" #-}+ {-# LINE 716 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 77 "src-ag/Desugar.ag" #-} AGLocal var_ (addl _lhsIaddLines pos_) (if _lhsIuseFieldIdent then Just _lhsIruleDescr else Nothing)- {-# LINE 709 "dist/build/Desugar" #-}+ {-# LINE 721 "dist/build/Desugar" #-} )) of { !_tks -> (case (({-# LINE 70 "src-ag/Desugar.ag" #-} _tks- {-# LINE 714 "dist/build/Desugar" #-}+ {-# LINE 726 "dist/build/Desugar" #-} )) of { !_lhsOtks ->- ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) })))+ (case ((Syn_HsToken _lhsOaddLines _lhsOerrors _lhsOtks)) of+ { ___node ->+ ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) }) }))) sem_HsToken_CharToken :: String -> Pos -> T_HsToken@@ -727,25 +741,27 @@ (!_lhsIuseFieldIdent) -> (case (({-# LINE 64 "src-ag/Desugar.ag" #-} _lhsIaddLines- {-# LINE 731 "dist/build/Desugar" #-}+ {-# LINE 745 "dist/build/Desugar" #-} )) of { !_lhsOaddLines -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} Seq.empty- {-# LINE 736 "dist/build/Desugar" #-}+ {-# LINE 750 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 92 "src-ag/Desugar.ag" #-} CharToken value_ (addl _lhsIaddLines pos_)- {-# LINE 741 "dist/build/Desugar" #-}+ {-# LINE 755 "dist/build/Desugar" #-} )) of { !_tks -> (case (({-# LINE 70 "src-ag/Desugar.ag" #-} _tks- {-# LINE 746 "dist/build/Desugar" #-}+ {-# LINE 760 "dist/build/Desugar" #-} )) of { !_lhsOtks ->- ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) })))+ (case ((Syn_HsToken _lhsOaddLines _lhsOerrors _lhsOtks)) of+ { ___node ->+ ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) }) }))) sem_HsToken_Err :: String -> Pos -> T_HsToken@@ -759,25 +775,27 @@ (!_lhsIuseFieldIdent) -> (case (({-# LINE 64 "src-ag/Desugar.ag" #-} _lhsIaddLines- {-# LINE 763 "dist/build/Desugar" #-}+ {-# LINE 779 "dist/build/Desugar" #-} )) of { !_lhsOaddLines -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} Seq.empty- {-# LINE 768 "dist/build/Desugar" #-}+ {-# LINE 784 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 96 "src-ag/Desugar.ag" #-} Err mesg_ (addl _lhsIaddLines pos_)- {-# LINE 773 "dist/build/Desugar" #-}+ {-# LINE 789 "dist/build/Desugar" #-} )) of { !_tks -> (case (({-# LINE 70 "src-ag/Desugar.ag" #-} _tks- {-# LINE 778 "dist/build/Desugar" #-}+ {-# LINE 794 "dist/build/Desugar" #-} )) of { !_lhsOtks ->- ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) })))+ (case ((Syn_HsToken _lhsOaddLines _lhsOerrors _lhsOtks)) of+ { ___node ->+ ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) }) }))) sem_HsToken_HsToken :: String -> Pos -> T_HsToken@@ -791,25 +809,27 @@ (!_lhsIuseFieldIdent) -> (case (({-# LINE 64 "src-ag/Desugar.ag" #-} _lhsIaddLines- {-# LINE 795 "dist/build/Desugar" #-}+ {-# LINE 813 "dist/build/Desugar" #-} )) of { !_lhsOaddLines -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} Seq.empty- {-# LINE 800 "dist/build/Desugar" #-}+ {-# LINE 818 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 90 "src-ag/Desugar.ag" #-} HsToken value_ (addl _lhsIaddLines pos_)- {-# LINE 805 "dist/build/Desugar" #-}+ {-# LINE 823 "dist/build/Desugar" #-} )) of { !_tks -> (case (({-# LINE 70 "src-ag/Desugar.ag" #-} _tks- {-# LINE 810 "dist/build/Desugar" #-}+ {-# LINE 828 "dist/build/Desugar" #-} )) of { !_lhsOtks ->- ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) })))+ (case ((Syn_HsToken _lhsOaddLines _lhsOerrors _lhsOtks)) of+ { ___node ->+ ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) }) }))) sem_HsToken_StrToken :: String -> Pos -> T_HsToken@@ -823,25 +843,27 @@ (!_lhsIuseFieldIdent) -> (case (({-# LINE 64 "src-ag/Desugar.ag" #-} _lhsIaddLines- {-# LINE 827 "dist/build/Desugar" #-}+ {-# LINE 847 "dist/build/Desugar" #-} )) of { !_lhsOaddLines -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} Seq.empty- {-# LINE 832 "dist/build/Desugar" #-}+ {-# LINE 852 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 94 "src-ag/Desugar.ag" #-} StrToken value_ (addl _lhsIaddLines pos_)- {-# LINE 837 "dist/build/Desugar" #-}+ {-# LINE 857 "dist/build/Desugar" #-} )) of { !_tks -> (case (({-# LINE 70 "src-ag/Desugar.ag" #-} _tks- {-# LINE 842 "dist/build/Desugar" #-}+ {-# LINE 862 "dist/build/Desugar" #-} )) of { !_lhsOtks ->- ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) })))+ (case ((Syn_HsToken _lhsOaddLines _lhsOerrors _lhsOtks)) of+ { ___node ->+ ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) }) }))) -- HsTokens ---------------------------------------------------- {- visit 0:@@ -902,99 +924,101 @@ (!_lhsIuseFieldIdent) -> (case (({-# LINE 62 "src-ag/Desugar.ag" #-} _lhsIuseFieldIdent- {-# LINE 906 "dist/build/Desugar" #-}+ {-# LINE 928 "dist/build/Desugar" #-} )) of { !_tlOuseFieldIdent -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildSyns- {-# LINE 911 "dist/build/Desugar" #-}+ {-# LINE 933 "dist/build/Desugar" #-} )) of { !_tlOchildSyns -> (case (({-# LINE 62 "src-ag/Desugar.ag" #-} _lhsIuseFieldIdent- {-# LINE 916 "dist/build/Desugar" #-}+ {-# LINE 938 "dist/build/Desugar" #-} )) of { !_hdOuseFieldIdent -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildSyns- {-# LINE 921 "dist/build/Desugar" #-}+ {-# LINE 943 "dist/build/Desugar" #-} )) of { !_hdOchildSyns -> (case (({-# LINE 64 "src-ag/Desugar.ag" #-} _lhsIaddLines- {-# LINE 926 "dist/build/Desugar" #-}+ {-# LINE 948 "dist/build/Desugar" #-} )) of { !_hdOaddLines -> (case (({-# LINE 168 "src-ag/Desugar.ag" #-} _lhsIruleDescr- {-# LINE 931 "dist/build/Desugar" #-}+ {-# LINE 953 "dist/build/Desugar" #-} )) of { !_hdOruleDescr -> (case (({-# LINE 152 "src-ag/Desugar.ag" #-} _lhsInt- {-# LINE 936 "dist/build/Desugar" #-}+ {-# LINE 958 "dist/build/Desugar" #-} )) of { !_hdOnt -> (case (({-# LINE 153 "src-ag/Desugar.ag" #-} _lhsIcon- {-# LINE 941 "dist/build/Desugar" #-}+ {-# LINE 963 "dist/build/Desugar" #-} )) of { !_hdOcon -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildInhs- {-# LINE 946 "dist/build/Desugar" #-}+ {-# LINE 968 "dist/build/Desugar" #-} )) of { !_hdOchildInhs -> (case (hd_ _hdOaddLines _hdOchildInhs _hdOchildSyns _hdOcon _hdOnt _hdOruleDescr _hdOuseFieldIdent) of { ( !_hdIaddLines,!_hdIerrors,!_hdItks) -> (case (({-# LINE 64 "src-ag/Desugar.ag" #-} _hdIaddLines- {-# LINE 953 "dist/build/Desugar" #-}+ {-# LINE 975 "dist/build/Desugar" #-} )) of { !_tlOaddLines -> (case (({-# LINE 168 "src-ag/Desugar.ag" #-} _lhsIruleDescr- {-# LINE 958 "dist/build/Desugar" #-}+ {-# LINE 980 "dist/build/Desugar" #-} )) of { !_tlOruleDescr -> (case (({-# LINE 152 "src-ag/Desugar.ag" #-} _lhsInt- {-# LINE 963 "dist/build/Desugar" #-}+ {-# LINE 985 "dist/build/Desugar" #-} )) of { !_tlOnt -> (case (({-# LINE 153 "src-ag/Desugar.ag" #-} _lhsIcon- {-# LINE 968 "dist/build/Desugar" #-}+ {-# LINE 990 "dist/build/Desugar" #-} )) of { !_tlOcon -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildInhs- {-# LINE 973 "dist/build/Desugar" #-}+ {-# LINE 995 "dist/build/Desugar" #-} )) of { !_tlOchildInhs -> (case (tl_ _tlOaddLines _tlOchildInhs _tlOchildSyns _tlOcon _tlOnt _tlOruleDescr _tlOuseFieldIdent) of { ( !_tlIaddLines,!_tlIerrors,!_tlItks) -> (case (({-# LINE 64 "src-ag/Desugar.ag" #-} _tlIaddLines- {-# LINE 980 "dist/build/Desugar" #-}+ {-# LINE 1002 "dist/build/Desugar" #-} )) of { !_lhsOaddLines -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} _hdIerrors Seq.>< _tlIerrors- {-# LINE 985 "dist/build/Desugar" #-}+ {-# LINE 1007 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 70 "src-ag/Desugar.ag" #-} (:) _hdItks _tlItks- {-# LINE 990 "dist/build/Desugar" #-}+ {-# LINE 1012 "dist/build/Desugar" #-} )) of { !_tks -> (case (({-# LINE 70 "src-ag/Desugar.ag" #-} _tks- {-# LINE 995 "dist/build/Desugar" #-}+ {-# LINE 1017 "dist/build/Desugar" #-} )) of { !_lhsOtks ->- ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_HsTokens _lhsOaddLines _lhsOerrors _lhsOtks)) of+ { ___node ->+ ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))) sem_HsTokens_Nil :: T_HsTokens sem_HsTokens_Nil = (T_HsTokens (\ (!_lhsIaddLines)@@ -1006,25 +1030,27 @@ (!_lhsIuseFieldIdent) -> (case (({-# LINE 64 "src-ag/Desugar.ag" #-} _lhsIaddLines- {-# LINE 1010 "dist/build/Desugar" #-}+ {-# LINE 1034 "dist/build/Desugar" #-} )) of { !_lhsOaddLines -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} Seq.empty- {-# LINE 1015 "dist/build/Desugar" #-}+ {-# LINE 1039 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 70 "src-ag/Desugar.ag" #-} []- {-# LINE 1020 "dist/build/Desugar" #-}+ {-# LINE 1044 "dist/build/Desugar" #-} )) of { !_tks -> (case (({-# LINE 70 "src-ag/Desugar.ag" #-} _tks- {-# LINE 1025 "dist/build/Desugar" #-}+ {-# LINE 1049 "dist/build/Desugar" #-} )) of { !_lhsOtks ->- ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) })))+ (case ((Syn_HsTokens _lhsOaddLines _lhsOerrors _lhsOtks)) of+ { ___node ->+ ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) }) }))) -- HsTokensRoot ------------------------------------------------ {- visit 0:@@ -1074,52 +1100,54 @@ (!_lhsIuseFieldIdent) -> (case (({-# LINE 152 "src-ag/Desugar.ag" #-} _lhsInt- {-# LINE 1078 "dist/build/Desugar" #-}+ {-# LINE 1104 "dist/build/Desugar" #-} )) of { !_tokensOnt -> (case (({-# LINE 153 "src-ag/Desugar.ag" #-} _lhsIcon- {-# LINE 1083 "dist/build/Desugar" #-}+ {-# LINE 1109 "dist/build/Desugar" #-} )) of { !_tokensOcon -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildSyns- {-# LINE 1088 "dist/build/Desugar" #-}+ {-# LINE 1114 "dist/build/Desugar" #-} )) of { !_tokensOchildSyns -> (case (({-# LINE 62 "src-ag/Desugar.ag" #-} _lhsIuseFieldIdent- {-# LINE 1093 "dist/build/Desugar" #-}+ {-# LINE 1119 "dist/build/Desugar" #-} )) of { !_tokensOuseFieldIdent -> (case (({-# LINE 168 "src-ag/Desugar.ag" #-} _lhsIruleDescr- {-# LINE 1098 "dist/build/Desugar" #-}+ {-# LINE 1124 "dist/build/Desugar" #-} )) of { !_tokensOruleDescr -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildInhs- {-# LINE 1103 "dist/build/Desugar" #-}+ {-# LINE 1129 "dist/build/Desugar" #-} )) of { !_tokensOchildInhs -> (case (({-# LINE 67 "src-ag/Desugar.ag" #-} 0- {-# LINE 1108 "dist/build/Desugar" #-}+ {-# LINE 1134 "dist/build/Desugar" #-} )) of { !_tokensOaddLines -> (case (tokens_ _tokensOaddLines _tokensOchildInhs _tokensOchildSyns _tokensOcon _tokensOnt _tokensOruleDescr _tokensOuseFieldIdent) of { ( !_tokensIaddLines,!_tokensIerrors,!_tokensItks) -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} _tokensIerrors- {-# LINE 1115 "dist/build/Desugar" #-}+ {-# LINE 1141 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 69 "src-ag/Desugar.ag" #-} _tokensItks- {-# LINE 1120 "dist/build/Desugar" #-}+ {-# LINE 1146 "dist/build/Desugar" #-} )) of { !_lhsOtks ->- ( _lhsOerrors,_lhsOtks) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_HsTokensRoot _lhsOerrors _lhsOtks)) of+ { ___node ->+ ( _lhsOerrors,_lhsOtks) }) }) }) }) }) }) }) }) }) }) }))) -- Nonterminal ------------------------------------------------- {- visit 0:@@ -1183,12 +1211,12 @@ sem_Nonterminal_Nonterminal !nt_ !params_ !inh_ !syn_ !(T_Productions prods_) = (T_Nonterminal (case (({-# LINE 7 "src-ag/DistChildAttr.ag" #-} Map.singleton nt_ inh_- {-# LINE 1187 "dist/build/Desugar" #-}+ {-# LINE 1215 "dist/build/Desugar" #-} )) of { !_lhsOinhMap' -> (case (({-# LINE 8 "src-ag/DistChildAttr.ag" #-} Map.singleton nt_ syn_- {-# LINE 1192 "dist/build/Desugar" #-}+ {-# LINE 1220 "dist/build/Desugar" #-} )) of { !_lhsOsynMap' -> (case ((let sem_Nonterminal_Nonterminal_1 :: T_Nonterminal_1@@ -1201,69 +1229,69 @@ (!_lhsIsynMap) -> (case (({-# LINE 157 "src-ag/Desugar.ag" #-} nt_- {-# LINE 1205 "dist/build/Desugar" #-}+ {-# LINE 1233 "dist/build/Desugar" #-} )) of { !_prodsOnt -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 1210 "dist/build/Desugar" #-}+ {-# LINE 1238 "dist/build/Desugar" #-} )) of { !_prodsOsynMap -> (case (({-# LINE 36 "src-ag/Desugar.ag" #-} _lhsIoptions- {-# LINE 1215 "dist/build/Desugar" #-}+ {-# LINE 1243 "dist/build/Desugar" #-} )) of { !_prodsOoptions -> (case (({-# LINE 289 "src-ag/Desugar.ag" #-} _lhsImainName- {-# LINE 1220 "dist/build/Desugar" #-}+ {-# LINE 1248 "dist/build/Desugar" #-} )) of { !_prodsOmainName -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 1225 "dist/build/Desugar" #-}+ {-# LINE 1253 "dist/build/Desugar" #-} )) of { !_prodsOinhMap -> (case (({-# LINE 215 "src-ag/Desugar.ag" #-} _lhsIforcedIrrefutables- {-# LINE 1230 "dist/build/Desugar" #-}+ {-# LINE 1258 "dist/build/Desugar" #-} )) of { !_prodsOforcedIrrefutables -> (case (({-# LINE 239 "src-ag/Desugar.ag" #-} Map.findWithDefault Map.empty nt_ _lhsIaugmentsIn- {-# LINE 1235 "dist/build/Desugar" #-}+ {-# LINE 1263 "dist/build/Desugar" #-} )) of { !_augmentsIn -> (case (({-# LINE 230 "src-ag/Desugar.ag" #-} _augmentsIn- {-# LINE 1240 "dist/build/Desugar" #-}+ {-# LINE 1268 "dist/build/Desugar" #-} )) of { !_prodsOaugmentsIn -> (case (prods_ _prodsOaugmentsIn _prodsOforcedIrrefutables _prodsOinhMap _prodsOmainName _prodsOnt _prodsOoptions _prodsOsynMap) of { ( !_prodsIallAttributes,!_prodsIaugmentsOut,!_prodsIerrors,!_prodsIoutput) -> (case (({-# LINE 196 "src-ag/Desugar.ag" #-} _prodsIallAttributes- {-# LINE 1247 "dist/build/Desugar" #-}+ {-# LINE 1275 "dist/build/Desugar" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 240 "src-ag/Desugar.ag" #-} Map.singleton nt_ _prodsIaugmentsOut- {-# LINE 1252 "dist/build/Desugar" #-}+ {-# LINE 1280 "dist/build/Desugar" #-} )) of { !_augmentsOut -> (case (({-# LINE 229 "src-ag/Desugar.ag" #-} _augmentsOut- {-# LINE 1257 "dist/build/Desugar" #-}+ {-# LINE 1285 "dist/build/Desugar" #-} )) of { !_lhsOaugmentsOut -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} _prodsIerrors- {-# LINE 1262 "dist/build/Desugar" #-}+ {-# LINE 1290 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 292 "src-ag/Desugar.ag" #-} addLateAttr _lhsIoptions _lhsImainName- {-# LINE 1267 "dist/build/Desugar" #-}+ {-# LINE 1295 "dist/build/Desugar" #-} )) of { !_extraInh -> (case (({-# LINE 308 "src-ag/Desugar.ag" #-}@@ -1272,7 +1300,7 @@ (_extraInh `Map.union` inh_) syn_ _prodsIoutput- {-# LINE 1276 "dist/build/Desugar" #-}+ {-# LINE 1304 "dist/build/Desugar" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOaugmentsOut,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))@@ -1341,12 +1369,12 @@ { ( !_hdIinhMap',!_hdIsynMap',!T_Nonterminal_1 hd_1) -> (case (({-# LINE 4 "src-ag/DistChildAttr.ag" #-} _hdIinhMap' `Map.union` _tlIinhMap'- {-# LINE 1345 "dist/build/Desugar" #-}+ {-# LINE 1373 "dist/build/Desugar" #-} )) of { !_lhsOinhMap' -> (case (({-# LINE 4 "src-ag/DistChildAttr.ag" #-} _hdIsynMap' `Map.union` _tlIsynMap'- {-# LINE 1350 "dist/build/Desugar" #-}+ {-# LINE 1378 "dist/build/Desugar" #-} )) of { !_lhsOsynMap' -> (case ((let sem_Nonterminals_Cons_1 :: T_Nonterminals_1@@ -1359,91 +1387,91 @@ (!_lhsIsynMap) -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 1363 "dist/build/Desugar" #-}+ {-# LINE 1391 "dist/build/Desugar" #-} )) of { !_tlOsynMap -> (case (({-# LINE 36 "src-ag/Desugar.ag" #-} _lhsIoptions- {-# LINE 1368 "dist/build/Desugar" #-}+ {-# LINE 1396 "dist/build/Desugar" #-} )) of { !_tlOoptions -> (case (({-# LINE 289 "src-ag/Desugar.ag" #-} _lhsImainName- {-# LINE 1373 "dist/build/Desugar" #-}+ {-# LINE 1401 "dist/build/Desugar" #-} )) of { !_tlOmainName -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 1378 "dist/build/Desugar" #-}+ {-# LINE 1406 "dist/build/Desugar" #-} )) of { !_tlOinhMap -> (case (({-# LINE 215 "src-ag/Desugar.ag" #-} _lhsIforcedIrrefutables- {-# LINE 1383 "dist/build/Desugar" #-}+ {-# LINE 1411 "dist/build/Desugar" #-} )) of { !_tlOforcedIrrefutables -> (case (({-# LINE 228 "src-ag/Desugar.ag" #-} _lhsIaugmentsIn- {-# LINE 1388 "dist/build/Desugar" #-}+ {-# LINE 1416 "dist/build/Desugar" #-} )) of { !_tlOaugmentsIn -> (case (tl_1 _tlOaugmentsIn _tlOforcedIrrefutables _tlOinhMap _tlOmainName _tlOoptions _tlOsynMap) of { ( !_tlIallAttributes,!_tlIaugmentsOut,!_tlIerrors,!_tlIoutput) -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 1395 "dist/build/Desugar" #-}+ {-# LINE 1423 "dist/build/Desugar" #-} )) of { !_hdOsynMap -> (case (({-# LINE 36 "src-ag/Desugar.ag" #-} _lhsIoptions- {-# LINE 1400 "dist/build/Desugar" #-}+ {-# LINE 1428 "dist/build/Desugar" #-} )) of { !_hdOoptions -> (case (({-# LINE 289 "src-ag/Desugar.ag" #-} _lhsImainName- {-# LINE 1405 "dist/build/Desugar" #-}+ {-# LINE 1433 "dist/build/Desugar" #-} )) of { !_hdOmainName -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 1410 "dist/build/Desugar" #-}+ {-# LINE 1438 "dist/build/Desugar" #-} )) of { !_hdOinhMap -> (case (({-# LINE 215 "src-ag/Desugar.ag" #-} _lhsIforcedIrrefutables- {-# LINE 1415 "dist/build/Desugar" #-}+ {-# LINE 1443 "dist/build/Desugar" #-} )) of { !_hdOforcedIrrefutables -> (case (({-# LINE 228 "src-ag/Desugar.ag" #-} _lhsIaugmentsIn- {-# LINE 1420 "dist/build/Desugar" #-}+ {-# LINE 1448 "dist/build/Desugar" #-} )) of { !_hdOaugmentsIn -> (case (hd_1 _hdOaugmentsIn _hdOforcedIrrefutables _hdOinhMap _hdOmainName _hdOoptions _hdOsynMap) of { ( !_hdIallAttributes,!_hdIaugmentsOut,!_hdIerrors,!_hdIoutput) -> (case (({-# LINE 196 "src-ag/Desugar.ag" #-} _hdIallAttributes `mergeAttributes` _tlIallAttributes- {-# LINE 1427 "dist/build/Desugar" #-}+ {-# LINE 1455 "dist/build/Desugar" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 229 "src-ag/Desugar.ag" #-} _hdIaugmentsOut `Map.union` _tlIaugmentsOut- {-# LINE 1432 "dist/build/Desugar" #-}+ {-# LINE 1460 "dist/build/Desugar" #-} )) of { !_lhsOaugmentsOut -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} _hdIerrors Seq.>< _tlIerrors- {-# LINE 1437 "dist/build/Desugar" #-}+ {-# LINE 1465 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} (:) _hdIoutput _tlIoutput- {-# LINE 1442 "dist/build/Desugar" #-}+ {-# LINE 1470 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} _output- {-# LINE 1447 "dist/build/Desugar" #-}+ {-# LINE 1475 "dist/build/Desugar" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOaugmentsOut,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))@@ -1454,12 +1482,12 @@ sem_Nonterminals_Nil = (T_Nonterminals (case (({-# LINE 4 "src-ag/DistChildAttr.ag" #-} Map.empty- {-# LINE 1458 "dist/build/Desugar" #-}+ {-# LINE 1486 "dist/build/Desugar" #-} )) of { !_lhsOinhMap' -> (case (({-# LINE 4 "src-ag/DistChildAttr.ag" #-} Map.empty- {-# LINE 1463 "dist/build/Desugar" #-}+ {-# LINE 1491 "dist/build/Desugar" #-} )) of { !_lhsOsynMap' -> (case ((let sem_Nonterminals_Nil_1 :: T_Nonterminals_1@@ -1472,27 +1500,27 @@ (!_lhsIsynMap) -> (case (({-# LINE 196 "src-ag/Desugar.ag" #-} Map.empty- {-# LINE 1476 "dist/build/Desugar" #-}+ {-# LINE 1504 "dist/build/Desugar" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 229 "src-ag/Desugar.ag" #-} Map.empty- {-# LINE 1481 "dist/build/Desugar" #-}+ {-# LINE 1509 "dist/build/Desugar" #-} )) of { !_lhsOaugmentsOut -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} Seq.empty- {-# LINE 1486 "dist/build/Desugar" #-}+ {-# LINE 1514 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} []- {-# LINE 1491 "dist/build/Desugar" #-}+ {-# LINE 1519 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} _output- {-# LINE 1496 "dist/build/Desugar" #-}+ {-# LINE 1524 "dist/build/Desugar" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOaugmentsOut,_lhsOerrors,_lhsOoutput) }) }) }) }) })))@@ -1592,14 +1620,14 @@ sem_Pattern_Alias !field_ !attr_ !(T_Pattern pat_) = (T_Pattern (case (({-# LINE 182 "src-ag/Desugar.ag" #-} Set.singleton (field_, attr_)- {-# LINE 1596 "dist/build/Desugar" #-}+ {-# LINE 1624 "dist/build/Desugar" #-} )) of { !_def -> (case (pat_) of { ( !_patIdefsCollect,!T_Pattern_1 pat_1) -> (case (({-# LINE 183 "src-ag/Desugar.ag" #-} _def `Set.union` _patIdefsCollect- {-# LINE 1603 "dist/build/Desugar" #-}+ {-# LINE 1631 "dist/build/Desugar" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Pattern_Alias_1 :: T_Pattern_1@@ -1612,60 +1640,60 @@ (!_lhsInt) -> (case (({-# LINE 152 "src-ag/Desugar.ag" #-} _lhsInt- {-# LINE 1616 "dist/build/Desugar" #-}+ {-# LINE 1644 "dist/build/Desugar" #-} )) of { !_patOnt -> (case (({-# LINE 153 "src-ag/Desugar.ag" #-} _lhsIcon- {-# LINE 1621 "dist/build/Desugar" #-}+ {-# LINE 1649 "dist/build/Desugar" #-} )) of { !_patOcon -> (case (({-# LINE 215 "src-ag/Desugar.ag" #-} _lhsIforcedIrrefutables- {-# LINE 1626 "dist/build/Desugar" #-}+ {-# LINE 1654 "dist/build/Desugar" #-} )) of { !_patOforcedIrrefutables -> (case (({-# LINE 185 "src-ag/Desugar.ag" #-} _lhsIdefs- {-# LINE 1631 "dist/build/Desugar" #-}+ {-# LINE 1659 "dist/build/Desugar" #-} )) of { !_patOdefs -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildSyns- {-# LINE 1636 "dist/build/Desugar" #-}+ {-# LINE 1664 "dist/build/Desugar" #-} )) of { !_patOchildSyns -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildInhs- {-# LINE 1641 "dist/build/Desugar" #-}+ {-# LINE 1669 "dist/build/Desugar" #-} )) of { !_patOchildInhs -> (case (pat_1 _patOchildInhs _patOchildSyns _patOcon _patOdefs _patOforcedIrrefutables _patOnt) of { ( !_patIallAttributes,!_patIcopy,!_patIerrors,!_patIoutput) -> (case (({-# LINE 200 "src-ag/Desugar.ag" #-} (Map.singleton _lhsInt $ Map.singleton _lhsIcon $ Set.singleton (field_, attr_)) `mergeAttributes` _patIallAttributes- {-# LINE 1648 "dist/build/Desugar" #-}+ {-# LINE 1676 "dist/build/Desugar" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Alias field_ attr_ _patIcopy- {-# LINE 1653 "dist/build/Desugar" #-}+ {-# LINE 1681 "dist/build/Desugar" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1658 "dist/build/Desugar" #-}+ {-# LINE 1686 "dist/build/Desugar" #-} )) of { !_lhsOcopy -> (case (({-# LINE 110 "src-ag/Desugar.ag" #-} maybeError field_ (UndefAttr _lhsInt _lhsIcon (Ident "<ANY>" (getPos field_)) attr_ True) $ findField field_ attr_ _lhsIchildInhs- {-# LINE 1664 "dist/build/Desugar" #-}+ {-# LINE 1692 "dist/build/Desugar" #-} )) of { !__tup2 -> (case (({-# LINE 110 "src-ag/Desugar.ag" #-} __tup2- {-# LINE 1669 "dist/build/Desugar" #-}+ {-# LINE 1697 "dist/build/Desugar" #-} )) of { !(!_field',_) -> (case (({-# LINE 112 "src-ag/Desugar.ag" #-}@@ -1674,29 +1702,29 @@ else if (_field' , attr_) `Set.member` _lhsIdefs then Seq.singleton $ DupRule _lhsInt _lhsIcon field_ attr_ _field' else Seq.empty- {-# LINE 1678 "dist/build/Desugar" #-}+ {-# LINE 1706 "dist/build/Desugar" #-} )) of { !_err2 -> (case (({-# LINE 110 "src-ag/Desugar.ag" #-} __tup2- {-# LINE 1683 "dist/build/Desugar" #-}+ {-# LINE 1711 "dist/build/Desugar" #-} )) of { !(_,!_err1) -> (case (({-# LINE 117 "src-ag/Desugar.ag" #-} _err1 Seq.>< _err2 Seq.>< _patIerrors- {-# LINE 1688 "dist/build/Desugar" #-}+ {-# LINE 1716 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 118 "src-ag/Desugar.ag" #-} Alias _field' attr_ _patIoutput- {-# LINE 1693 "dist/build/Desugar" #-}+ {-# LINE 1721 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 219 "src-ag/Desugar.ag" #-} if Set.member (field_, attr_) $ Map.findWithDefault Set.empty _lhsIcon $ Map.findWithDefault Map.empty _lhsInt $ _lhsIforcedIrrefutables then Irrefutable _output else _output- {-# LINE 1700 "dist/build/Desugar" #-}+ {-# LINE 1728 "dist/build/Desugar" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOcopy,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))@@ -1711,7 +1739,7 @@ { ( !_patsIdefsCollect,!T_Patterns_1 pats_1) -> (case (({-# LINE 179 "src-ag/Desugar.ag" #-} _patsIdefsCollect- {-# LINE 1715 "dist/build/Desugar" #-}+ {-# LINE 1743 "dist/build/Desugar" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Pattern_Constr_1 :: T_Pattern_1@@ -1724,64 +1752,64 @@ (!_lhsInt) -> (case (({-# LINE 152 "src-ag/Desugar.ag" #-} _lhsInt- {-# LINE 1728 "dist/build/Desugar" #-}+ {-# LINE 1756 "dist/build/Desugar" #-} )) of { !_patsOnt -> (case (({-# LINE 153 "src-ag/Desugar.ag" #-} _lhsIcon- {-# LINE 1733 "dist/build/Desugar" #-}+ {-# LINE 1761 "dist/build/Desugar" #-} )) of { !_patsOcon -> (case (({-# LINE 215 "src-ag/Desugar.ag" #-} _lhsIforcedIrrefutables- {-# LINE 1738 "dist/build/Desugar" #-}+ {-# LINE 1766 "dist/build/Desugar" #-} )) of { !_patsOforcedIrrefutables -> (case (({-# LINE 185 "src-ag/Desugar.ag" #-} _lhsIdefs- {-# LINE 1743 "dist/build/Desugar" #-}+ {-# LINE 1771 "dist/build/Desugar" #-} )) of { !_patsOdefs -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildSyns- {-# LINE 1748 "dist/build/Desugar" #-}+ {-# LINE 1776 "dist/build/Desugar" #-} )) of { !_patsOchildSyns -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildInhs- {-# LINE 1753 "dist/build/Desugar" #-}+ {-# LINE 1781 "dist/build/Desugar" #-} )) of { !_patsOchildInhs -> (case (pats_1 _patsOchildInhs _patsOchildSyns _patsOcon _patsOdefs _patsOforcedIrrefutables _patsOnt) of { ( !_patsIallAttributes,!_patsIcopy,!_patsIerrors,!_patsIoutput) -> (case (({-# LINE 196 "src-ag/Desugar.ag" #-} _patsIallAttributes- {-# LINE 1760 "dist/build/Desugar" #-}+ {-# LINE 1788 "dist/build/Desugar" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Constr name_ _patsIcopy- {-# LINE 1765 "dist/build/Desugar" #-}+ {-# LINE 1793 "dist/build/Desugar" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1770 "dist/build/Desugar" #-}+ {-# LINE 1798 "dist/build/Desugar" #-} )) of { !_lhsOcopy -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} _patsIerrors- {-# LINE 1775 "dist/build/Desugar" #-}+ {-# LINE 1803 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} Constr name_ _patsIoutput- {-# LINE 1780 "dist/build/Desugar" #-}+ {-# LINE 1808 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} _output- {-# LINE 1785 "dist/build/Desugar" #-}+ {-# LINE 1813 "dist/build/Desugar" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOcopy,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) })))@@ -1795,7 +1823,7 @@ { ( !_patIdefsCollect,!T_Pattern_1 pat_1) -> (case (({-# LINE 179 "src-ag/Desugar.ag" #-} _patIdefsCollect- {-# LINE 1799 "dist/build/Desugar" #-}+ {-# LINE 1827 "dist/build/Desugar" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Pattern_Irrefutable_1 :: T_Pattern_1@@ -1808,64 +1836,64 @@ (!_lhsInt) -> (case (({-# LINE 202 "src-ag/Desugar.ag" #-} Map.empty- {-# LINE 1812 "dist/build/Desugar" #-}+ {-# LINE 1840 "dist/build/Desugar" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 152 "src-ag/Desugar.ag" #-} _lhsInt- {-# LINE 1817 "dist/build/Desugar" #-}+ {-# LINE 1845 "dist/build/Desugar" #-} )) of { !_patOnt -> (case (({-# LINE 215 "src-ag/Desugar.ag" #-} _lhsIforcedIrrefutables- {-# LINE 1822 "dist/build/Desugar" #-}+ {-# LINE 1850 "dist/build/Desugar" #-} )) of { !_patOforcedIrrefutables -> (case (({-# LINE 185 "src-ag/Desugar.ag" #-} _lhsIdefs- {-# LINE 1827 "dist/build/Desugar" #-}+ {-# LINE 1855 "dist/build/Desugar" #-} )) of { !_patOdefs -> (case (({-# LINE 153 "src-ag/Desugar.ag" #-} _lhsIcon- {-# LINE 1832 "dist/build/Desugar" #-}+ {-# LINE 1860 "dist/build/Desugar" #-} )) of { !_patOcon -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildSyns- {-# LINE 1837 "dist/build/Desugar" #-}+ {-# LINE 1865 "dist/build/Desugar" #-} )) of { !_patOchildSyns -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildInhs- {-# LINE 1842 "dist/build/Desugar" #-}+ {-# LINE 1870 "dist/build/Desugar" #-} )) of { !_patOchildInhs -> (case (pat_1 _patOchildInhs _patOchildSyns _patOcon _patOdefs _patOforcedIrrefutables _patOnt) of { ( !_patIallAttributes,!_patIcopy,!_patIerrors,!_patIoutput) -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Irrefutable _patIcopy- {-# LINE 1849 "dist/build/Desugar" #-}+ {-# LINE 1877 "dist/build/Desugar" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1854 "dist/build/Desugar" #-}+ {-# LINE 1882 "dist/build/Desugar" #-} )) of { !_lhsOcopy -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} _patIerrors- {-# LINE 1859 "dist/build/Desugar" #-}+ {-# LINE 1887 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} Irrefutable _patIoutput- {-# LINE 1864 "dist/build/Desugar" #-}+ {-# LINE 1892 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} _output- {-# LINE 1869 "dist/build/Desugar" #-}+ {-# LINE 1897 "dist/build/Desugar" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOcopy,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) })))@@ -1880,7 +1908,7 @@ { ( !_patsIdefsCollect,!T_Patterns_1 pats_1) -> (case (({-# LINE 179 "src-ag/Desugar.ag" #-} _patsIdefsCollect- {-# LINE 1884 "dist/build/Desugar" #-}+ {-# LINE 1912 "dist/build/Desugar" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Pattern_Product_1 :: T_Pattern_1@@ -1893,64 +1921,64 @@ (!_lhsInt) -> (case (({-# LINE 152 "src-ag/Desugar.ag" #-} _lhsInt- {-# LINE 1897 "dist/build/Desugar" #-}+ {-# LINE 1925 "dist/build/Desugar" #-} )) of { !_patsOnt -> (case (({-# LINE 153 "src-ag/Desugar.ag" #-} _lhsIcon- {-# LINE 1902 "dist/build/Desugar" #-}+ {-# LINE 1930 "dist/build/Desugar" #-} )) of { !_patsOcon -> (case (({-# LINE 215 "src-ag/Desugar.ag" #-} _lhsIforcedIrrefutables- {-# LINE 1907 "dist/build/Desugar" #-}+ {-# LINE 1935 "dist/build/Desugar" #-} )) of { !_patsOforcedIrrefutables -> (case (({-# LINE 185 "src-ag/Desugar.ag" #-} _lhsIdefs- {-# LINE 1912 "dist/build/Desugar" #-}+ {-# LINE 1940 "dist/build/Desugar" #-} )) of { !_patsOdefs -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildSyns- {-# LINE 1917 "dist/build/Desugar" #-}+ {-# LINE 1945 "dist/build/Desugar" #-} )) of { !_patsOchildSyns -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildInhs- {-# LINE 1922 "dist/build/Desugar" #-}+ {-# LINE 1950 "dist/build/Desugar" #-} )) of { !_patsOchildInhs -> (case (pats_1 _patsOchildInhs _patsOchildSyns _patsOcon _patsOdefs _patsOforcedIrrefutables _patsOnt) of { ( !_patsIallAttributes,!_patsIcopy,!_patsIerrors,!_patsIoutput) -> (case (({-# LINE 196 "src-ag/Desugar.ag" #-} _patsIallAttributes- {-# LINE 1929 "dist/build/Desugar" #-}+ {-# LINE 1957 "dist/build/Desugar" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Product pos_ _patsIcopy- {-# LINE 1934 "dist/build/Desugar" #-}+ {-# LINE 1962 "dist/build/Desugar" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1939 "dist/build/Desugar" #-}+ {-# LINE 1967 "dist/build/Desugar" #-} )) of { !_lhsOcopy -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} _patsIerrors- {-# LINE 1944 "dist/build/Desugar" #-}+ {-# LINE 1972 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} Product pos_ _patsIoutput- {-# LINE 1949 "dist/build/Desugar" #-}+ {-# LINE 1977 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} _output- {-# LINE 1954 "dist/build/Desugar" #-}+ {-# LINE 1982 "dist/build/Desugar" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOcopy,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) })))@@ -1962,7 +1990,7 @@ sem_Pattern_Underscore !pos_ = (T_Pattern (case (({-# LINE 179 "src-ag/Desugar.ag" #-} Set.empty- {-# LINE 1966 "dist/build/Desugar" #-}+ {-# LINE 1994 "dist/build/Desugar" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Pattern_Underscore_1 :: T_Pattern_1@@ -1975,32 +2003,32 @@ (!_lhsInt) -> (case (({-# LINE 196 "src-ag/Desugar.ag" #-} Map.empty- {-# LINE 1979 "dist/build/Desugar" #-}+ {-# LINE 2007 "dist/build/Desugar" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Underscore pos_- {-# LINE 1984 "dist/build/Desugar" #-}+ {-# LINE 2012 "dist/build/Desugar" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1989 "dist/build/Desugar" #-}+ {-# LINE 2017 "dist/build/Desugar" #-} )) of { !_lhsOcopy -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} Seq.empty- {-# LINE 1994 "dist/build/Desugar" #-}+ {-# LINE 2022 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} Underscore pos_- {-# LINE 1999 "dist/build/Desugar" #-}+ {-# LINE 2027 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} _output- {-# LINE 2004 "dist/build/Desugar" #-}+ {-# LINE 2032 "dist/build/Desugar" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOcopy,_lhsOerrors,_lhsOoutput) }) }) }) }) }) })))@@ -2070,7 +2098,7 @@ { ( !_hdIdefsCollect,!T_Pattern_1 hd_1) -> (case (({-# LINE 179 "src-ag/Desugar.ag" #-} _hdIdefsCollect `Set.union` _tlIdefsCollect- {-# LINE 2074 "dist/build/Desugar" #-}+ {-# LINE 2102 "dist/build/Desugar" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Patterns_Cons_1 :: T_Patterns_1@@ -2083,96 +2111,96 @@ (!_lhsInt) -> (case (({-# LINE 152 "src-ag/Desugar.ag" #-} _lhsInt- {-# LINE 2087 "dist/build/Desugar" #-}+ {-# LINE 2115 "dist/build/Desugar" #-} )) of { !_tlOnt -> (case (({-# LINE 153 "src-ag/Desugar.ag" #-} _lhsIcon- {-# LINE 2092 "dist/build/Desugar" #-}+ {-# LINE 2120 "dist/build/Desugar" #-} )) of { !_tlOcon -> (case (({-# LINE 152 "src-ag/Desugar.ag" #-} _lhsInt- {-# LINE 2097 "dist/build/Desugar" #-}+ {-# LINE 2125 "dist/build/Desugar" #-} )) of { !_hdOnt -> (case (({-# LINE 153 "src-ag/Desugar.ag" #-} _lhsIcon- {-# LINE 2102 "dist/build/Desugar" #-}+ {-# LINE 2130 "dist/build/Desugar" #-} )) of { !_hdOcon -> (case (({-# LINE 215 "src-ag/Desugar.ag" #-} _lhsIforcedIrrefutables- {-# LINE 2107 "dist/build/Desugar" #-}+ {-# LINE 2135 "dist/build/Desugar" #-} )) of { !_tlOforcedIrrefutables -> (case (({-# LINE 185 "src-ag/Desugar.ag" #-} _lhsIdefs- {-# LINE 2112 "dist/build/Desugar" #-}+ {-# LINE 2140 "dist/build/Desugar" #-} )) of { !_tlOdefs -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildSyns- {-# LINE 2117 "dist/build/Desugar" #-}+ {-# LINE 2145 "dist/build/Desugar" #-} )) of { !_tlOchildSyns -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildInhs- {-# LINE 2122 "dist/build/Desugar" #-}+ {-# LINE 2150 "dist/build/Desugar" #-} )) of { !_tlOchildInhs -> (case (tl_1 _tlOchildInhs _tlOchildSyns _tlOcon _tlOdefs _tlOforcedIrrefutables _tlOnt) of { ( !_tlIallAttributes,!_tlIcopy,!_tlIerrors,!_tlIoutput) -> (case (({-# LINE 215 "src-ag/Desugar.ag" #-} _lhsIforcedIrrefutables- {-# LINE 2129 "dist/build/Desugar" #-}+ {-# LINE 2157 "dist/build/Desugar" #-} )) of { !_hdOforcedIrrefutables -> (case (({-# LINE 185 "src-ag/Desugar.ag" #-} _lhsIdefs- {-# LINE 2134 "dist/build/Desugar" #-}+ {-# LINE 2162 "dist/build/Desugar" #-} )) of { !_hdOdefs -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildSyns- {-# LINE 2139 "dist/build/Desugar" #-}+ {-# LINE 2167 "dist/build/Desugar" #-} )) of { !_hdOchildSyns -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildInhs- {-# LINE 2144 "dist/build/Desugar" #-}+ {-# LINE 2172 "dist/build/Desugar" #-} )) of { !_hdOchildInhs -> (case (hd_1 _hdOchildInhs _hdOchildSyns _hdOcon _hdOdefs _hdOforcedIrrefutables _hdOnt) of { ( !_hdIallAttributes,!_hdIcopy,!_hdIerrors,!_hdIoutput) -> (case (({-# LINE 196 "src-ag/Desugar.ag" #-} _hdIallAttributes `mergeAttributes` _tlIallAttributes- {-# LINE 2151 "dist/build/Desugar" #-}+ {-# LINE 2179 "dist/build/Desugar" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} (:) _hdIcopy _tlIcopy- {-# LINE 2156 "dist/build/Desugar" #-}+ {-# LINE 2184 "dist/build/Desugar" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 2161 "dist/build/Desugar" #-}+ {-# LINE 2189 "dist/build/Desugar" #-} )) of { !_lhsOcopy -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} _hdIerrors Seq.>< _tlIerrors- {-# LINE 2166 "dist/build/Desugar" #-}+ {-# LINE 2194 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} (:) _hdIoutput _tlIoutput- {-# LINE 2171 "dist/build/Desugar" #-}+ {-# LINE 2199 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} _output- {-# LINE 2176 "dist/build/Desugar" #-}+ {-# LINE 2204 "dist/build/Desugar" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOcopy,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))@@ -2183,7 +2211,7 @@ sem_Patterns_Nil = (T_Patterns (case (({-# LINE 179 "src-ag/Desugar.ag" #-} Set.empty- {-# LINE 2187 "dist/build/Desugar" #-}+ {-# LINE 2215 "dist/build/Desugar" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Patterns_Nil_1 :: T_Patterns_1@@ -2196,32 +2224,32 @@ (!_lhsInt) -> (case (({-# LINE 196 "src-ag/Desugar.ag" #-} Map.empty- {-# LINE 2200 "dist/build/Desugar" #-}+ {-# LINE 2228 "dist/build/Desugar" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} []- {-# LINE 2205 "dist/build/Desugar" #-}+ {-# LINE 2233 "dist/build/Desugar" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 2210 "dist/build/Desugar" #-}+ {-# LINE 2238 "dist/build/Desugar" #-} )) of { !_lhsOcopy -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} Seq.empty- {-# LINE 2215 "dist/build/Desugar" #-}+ {-# LINE 2243 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} []- {-# LINE 2220 "dist/build/Desugar" #-}+ {-# LINE 2248 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} _output- {-# LINE 2225 "dist/build/Desugar" #-}+ {-# LINE 2253 "dist/build/Desugar" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOcopy,_lhsOerrors,_lhsOoutput) }) }) }) }) }) })))@@ -2301,118 +2329,120 @@ (!_lhsIsynMap) -> (case (({-# LINE 152 "src-ag/Desugar.ag" #-} _lhsInt- {-# LINE 2305 "dist/build/Desugar" #-}+ {-# LINE 2333 "dist/build/Desugar" #-} )) of { !_rulesOnt -> (case (({-# LINE 161 "src-ag/Desugar.ag" #-} con_- {-# LINE 2310 "dist/build/Desugar" #-}+ {-# LINE 2338 "dist/build/Desugar" #-} )) of { !_rulesOcon -> (case (rules_) of { ( !_rulesIdefsCollect,!T_Rules_1 rules_1) -> (case (({-# LINE 36 "src-ag/Desugar.ag" #-} _lhsIoptions- {-# LINE 2317 "dist/build/Desugar" #-}+ {-# LINE 2345 "dist/build/Desugar" #-} )) of { !_rulesOoptions -> (case (({-# LINE 215 "src-ag/Desugar.ag" #-} _lhsIforcedIrrefutables- {-# LINE 2322 "dist/build/Desugar" #-}+ {-# LINE 2350 "dist/build/Desugar" #-} )) of { !_rulesOforcedIrrefutables -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 2327 "dist/build/Desugar" #-}+ {-# LINE 2355 "dist/build/Desugar" #-} )) of { !_childrenOsynMap -> (case (({-# LINE 36 "src-ag/Desugar.ag" #-} _lhsIoptions- {-# LINE 2332 "dist/build/Desugar" #-}+ {-# LINE 2360 "dist/build/Desugar" #-} )) of { !_childrenOoptions -> (case (({-# LINE 289 "src-ag/Desugar.ag" #-} _lhsImainName- {-# LINE 2337 "dist/build/Desugar" #-}+ {-# LINE 2365 "dist/build/Desugar" #-} )) of { !_childrenOmainName -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 2342 "dist/build/Desugar" #-}+ {-# LINE 2370 "dist/build/Desugar" #-} )) of { !_childrenOinhMap -> (case (children_ _childrenOinhMap _childrenOmainName _childrenOoptions _childrenOsynMap) of { ( !_childrenIchildInhs,!_childrenIchildSyns,!_childrenIoutput) -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _childrenIchildSyns- {-# LINE 2349 "dist/build/Desugar" #-}+ {-# LINE 2377 "dist/build/Desugar" #-} )) of { !_rulesOchildSyns -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _childrenIchildInhs- {-# LINE 2354 "dist/build/Desugar" #-}+ {-# LINE 2382 "dist/build/Desugar" #-} )) of { !_rulesOchildInhs -> (case (({-# LINE 188 "src-ag/Desugar.ag" #-} _rulesIdefsCollect- {-# LINE 2359 "dist/build/Desugar" #-}+ {-# LINE 2387 "dist/build/Desugar" #-} )) of { !_rulesOdefs -> (case (rules_1 _rulesOchildInhs _rulesOchildSyns _rulesOcon _rulesOdefs _rulesOforcedIrrefutables _rulesOnt _rulesOoptions) of { ( !_rulesIallAttributes,!_rulesIerrors,!_rulesIoutput) -> (case (({-# LINE 196 "src-ag/Desugar.ag" #-} _rulesIallAttributes- {-# LINE 2366 "dist/build/Desugar" #-}+ {-# LINE 2394 "dist/build/Desugar" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 244 "src-ag/Desugar.ag" #-} Map.findWithDefault Map.empty con_ _lhsIaugmentsIn- {-# LINE 2371 "dist/build/Desugar" #-}+ {-# LINE 2399 "dist/build/Desugar" #-} )) of { !_augmentsIn -> (case (({-# LINE 247 "src-ag/Desugar.ag" #-} Map.mapAccum (desugarExprs _lhsIoptions _lhsInt con_ _childrenIchildInhs _childrenIchildSyns) Seq.empty _augmentsIn- {-# LINE 2376 "dist/build/Desugar" #-}+ {-# LINE 2404 "dist/build/Desugar" #-} )) of { !__tup3 -> (case (({-# LINE 247 "src-ag/Desugar.ag" #-} __tup3- {-# LINE 2381 "dist/build/Desugar" #-}+ {-# LINE 2409 "dist/build/Desugar" #-} )) of { !(_,!_augmentsOut1) -> (case (({-# LINE 245 "src-ag/Desugar.ag" #-} Map.singleton con_ _augmentsOut1- {-# LINE 2386 "dist/build/Desugar" #-}+ {-# LINE 2414 "dist/build/Desugar" #-} )) of { !_augmentsOut -> (case (({-# LINE 231 "src-ag/Desugar.ag" #-} _augmentsOut- {-# LINE 2391 "dist/build/Desugar" #-}+ {-# LINE 2419 "dist/build/Desugar" #-} )) of { !_lhsOaugmentsOut -> (case (({-# LINE 247 "src-ag/Desugar.ag" #-} __tup3- {-# LINE 2396 "dist/build/Desugar" #-}+ {-# LINE 2424 "dist/build/Desugar" #-} )) of { !(!_augmentErrs,_) -> (case (({-# LINE 283 "src-ag/Desugar.ag" #-} _rulesIerrors Seq.>< _augmentErrs- {-# LINE 2401 "dist/build/Desugar" #-}+ {-# LINE 2429 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (typeSigs_) of { ( !_typeSigsIoutput) -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} Production con_ params_ constraints_ _childrenIoutput _rulesIoutput _typeSigsIoutput macro_- {-# LINE 2408 "dist/build/Desugar" #-}+ {-# LINE 2436 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} _output- {-# LINE 2413 "dist/build/Desugar" #-}+ {-# LINE 2441 "dist/build/Desugar" #-} )) of { !_lhsOoutput ->- ( _lhsOallAttributes,_lhsOaugmentsOut,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_Production _lhsOallAttributes _lhsOaugmentsOut _lhsOerrors _lhsOoutput)) of+ { ___node ->+ ( _lhsOallAttributes,_lhsOaugmentsOut,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))) -- Productions ------------------------------------------------- {- visit 0:@@ -2474,104 +2504,106 @@ (!_lhsIsynMap) -> (case (({-# LINE 152 "src-ag/Desugar.ag" #-} _lhsInt- {-# LINE 2478 "dist/build/Desugar" #-}+ {-# LINE 2508 "dist/build/Desugar" #-} )) of { !_tlOnt -> (case (({-# LINE 152 "src-ag/Desugar.ag" #-} _lhsInt- {-# LINE 2483 "dist/build/Desugar" #-}+ {-# LINE 2513 "dist/build/Desugar" #-} )) of { !_hdOnt -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 2488 "dist/build/Desugar" #-}+ {-# LINE 2518 "dist/build/Desugar" #-} )) of { !_tlOsynMap -> (case (({-# LINE 36 "src-ag/Desugar.ag" #-} _lhsIoptions- {-# LINE 2493 "dist/build/Desugar" #-}+ {-# LINE 2523 "dist/build/Desugar" #-} )) of { !_tlOoptions -> (case (({-# LINE 289 "src-ag/Desugar.ag" #-} _lhsImainName- {-# LINE 2498 "dist/build/Desugar" #-}+ {-# LINE 2528 "dist/build/Desugar" #-} )) of { !_tlOmainName -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 2503 "dist/build/Desugar" #-}+ {-# LINE 2533 "dist/build/Desugar" #-} )) of { !_tlOinhMap -> (case (({-# LINE 215 "src-ag/Desugar.ag" #-} _lhsIforcedIrrefutables- {-# LINE 2508 "dist/build/Desugar" #-}+ {-# LINE 2538 "dist/build/Desugar" #-} )) of { !_tlOforcedIrrefutables -> (case (({-# LINE 230 "src-ag/Desugar.ag" #-} _lhsIaugmentsIn- {-# LINE 2513 "dist/build/Desugar" #-}+ {-# LINE 2543 "dist/build/Desugar" #-} )) of { !_tlOaugmentsIn -> (case (tl_ _tlOaugmentsIn _tlOforcedIrrefutables _tlOinhMap _tlOmainName _tlOnt _tlOoptions _tlOsynMap) of { ( !_tlIallAttributes,!_tlIaugmentsOut,!_tlIerrors,!_tlIoutput) -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 2520 "dist/build/Desugar" #-}+ {-# LINE 2550 "dist/build/Desugar" #-} )) of { !_hdOsynMap -> (case (({-# LINE 36 "src-ag/Desugar.ag" #-} _lhsIoptions- {-# LINE 2525 "dist/build/Desugar" #-}+ {-# LINE 2555 "dist/build/Desugar" #-} )) of { !_hdOoptions -> (case (({-# LINE 289 "src-ag/Desugar.ag" #-} _lhsImainName- {-# LINE 2530 "dist/build/Desugar" #-}+ {-# LINE 2560 "dist/build/Desugar" #-} )) of { !_hdOmainName -> (case (({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 2535 "dist/build/Desugar" #-}+ {-# LINE 2565 "dist/build/Desugar" #-} )) of { !_hdOinhMap -> (case (({-# LINE 215 "src-ag/Desugar.ag" #-} _lhsIforcedIrrefutables- {-# LINE 2540 "dist/build/Desugar" #-}+ {-# LINE 2570 "dist/build/Desugar" #-} )) of { !_hdOforcedIrrefutables -> (case (({-# LINE 230 "src-ag/Desugar.ag" #-} _lhsIaugmentsIn- {-# LINE 2545 "dist/build/Desugar" #-}+ {-# LINE 2575 "dist/build/Desugar" #-} )) of { !_hdOaugmentsIn -> (case (hd_ _hdOaugmentsIn _hdOforcedIrrefutables _hdOinhMap _hdOmainName _hdOnt _hdOoptions _hdOsynMap) of { ( !_hdIallAttributes,!_hdIaugmentsOut,!_hdIerrors,!_hdIoutput) -> (case (({-# LINE 196 "src-ag/Desugar.ag" #-} _hdIallAttributes `mergeAttributes` _tlIallAttributes- {-# LINE 2552 "dist/build/Desugar" #-}+ {-# LINE 2582 "dist/build/Desugar" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 231 "src-ag/Desugar.ag" #-} _hdIaugmentsOut `Map.union` _tlIaugmentsOut- {-# LINE 2557 "dist/build/Desugar" #-}+ {-# LINE 2587 "dist/build/Desugar" #-} )) of { !_lhsOaugmentsOut -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} _hdIerrors Seq.>< _tlIerrors- {-# LINE 2562 "dist/build/Desugar" #-}+ {-# LINE 2592 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} (:) _hdIoutput _tlIoutput- {-# LINE 2567 "dist/build/Desugar" #-}+ {-# LINE 2597 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} _output- {-# LINE 2572 "dist/build/Desugar" #-}+ {-# LINE 2602 "dist/build/Desugar" #-} )) of { !_lhsOoutput ->- ( _lhsOallAttributes,_lhsOaugmentsOut,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_Productions _lhsOallAttributes _lhsOaugmentsOut _lhsOerrors _lhsOoutput)) of+ { ___node ->+ ( _lhsOallAttributes,_lhsOaugmentsOut,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))) sem_Productions_Nil :: T_Productions sem_Productions_Nil = (T_Productions (\ (!_lhsIaugmentsIn)@@ -2583,30 +2615,32 @@ (!_lhsIsynMap) -> (case (({-# LINE 196 "src-ag/Desugar.ag" #-} Map.empty- {-# LINE 2587 "dist/build/Desugar" #-}+ {-# LINE 2619 "dist/build/Desugar" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 231 "src-ag/Desugar.ag" #-} Map.empty- {-# LINE 2592 "dist/build/Desugar" #-}+ {-# LINE 2624 "dist/build/Desugar" #-} )) of { !_lhsOaugmentsOut -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} Seq.empty- {-# LINE 2597 "dist/build/Desugar" #-}+ {-# LINE 2629 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} []- {-# LINE 2602 "dist/build/Desugar" #-}+ {-# LINE 2634 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} _output- {-# LINE 2607 "dist/build/Desugar" #-}+ {-# LINE 2639 "dist/build/Desugar" #-} )) of { !_lhsOoutput ->- ( _lhsOallAttributes,_lhsOaugmentsOut,_lhsOerrors,_lhsOoutput) }) }) }) }) })))+ (case ((Syn_Productions _lhsOallAttributes _lhsOaugmentsOut _lhsOerrors _lhsOoutput)) of+ { ___node ->+ ( _lhsOallAttributes,_lhsOaugmentsOut,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }))) -- Rule -------------------------------------------------------- {- visit 0:@@ -2681,7 +2715,7 @@ { ( !_patternIdefsCollect,!T_Pattern_1 pattern_1) -> (case (({-# LINE 179 "src-ag/Desugar.ag" #-} _patternIdefsCollect- {-# LINE 2685 "dist/build/Desugar" #-}+ {-# LINE 2719 "dist/build/Desugar" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Rule_Rule_1 :: T_Rule_1@@ -2695,91 +2729,91 @@ (!_lhsIoptions) -> (case (({-# LINE 152 "src-ag/Desugar.ag" #-} _lhsInt- {-# LINE 2699 "dist/build/Desugar" #-}+ {-# LINE 2733 "dist/build/Desugar" #-} )) of { !_patternOnt -> (case (({-# LINE 153 "src-ag/Desugar.ag" #-} _lhsIcon- {-# LINE 2704 "dist/build/Desugar" #-}+ {-# LINE 2738 "dist/build/Desugar" #-} )) of { !_patternOcon -> (case (({-# LINE 215 "src-ag/Desugar.ag" #-} _lhsIforcedIrrefutables- {-# LINE 2709 "dist/build/Desugar" #-}+ {-# LINE 2743 "dist/build/Desugar" #-} )) of { !_patternOforcedIrrefutables -> (case (({-# LINE 185 "src-ag/Desugar.ag" #-} _lhsIdefs- {-# LINE 2714 "dist/build/Desugar" #-}+ {-# LINE 2748 "dist/build/Desugar" #-} )) of { !_patternOdefs -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildSyns- {-# LINE 2719 "dist/build/Desugar" #-}+ {-# LINE 2753 "dist/build/Desugar" #-} )) of { !_patternOchildSyns -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildInhs- {-# LINE 2724 "dist/build/Desugar" #-}+ {-# LINE 2758 "dist/build/Desugar" #-} )) of { !_patternOchildInhs -> (case (pattern_1 _patternOchildInhs _patternOchildSyns _patternOcon _patternOdefs _patternOforcedIrrefutables _patternOnt) of { ( !_patternIallAttributes,!_patternIcopy,!_patternIerrors,!_patternIoutput) -> (case (({-# LINE 196 "src-ag/Desugar.ag" #-} _patternIallAttributes- {-# LINE 2731 "dist/build/Desugar" #-}+ {-# LINE 2765 "dist/build/Desugar" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 172 "src-ag/Desugar.ag" #-} show _lhsInt ++ " :: " ++ show _lhsIcon ++ " :: " ++ (concat $ intersperse "," $ map (\(f,a) -> show f ++ "." ++ show a) $ Set.toList _patternIdefsCollect)- {-# LINE 2736 "dist/build/Desugar" #-}+ {-# LINE 2770 "dist/build/Desugar" #-} )) of { !_ruleDescr -> (case (({-# LINE 168 "src-ag/Desugar.ag" #-} _ruleDescr- {-# LINE 2741 "dist/build/Desugar" #-}+ {-# LINE 2775 "dist/build/Desugar" #-} )) of { !_rhsOruleDescr -> (case (({-# LINE 36 "src-ag/Desugar.ag" #-} _lhsIoptions- {-# LINE 2746 "dist/build/Desugar" #-}+ {-# LINE 2780 "dist/build/Desugar" #-} )) of { !_rhsOoptions -> (case (({-# LINE 152 "src-ag/Desugar.ag" #-} _lhsInt- {-# LINE 2751 "dist/build/Desugar" #-}+ {-# LINE 2785 "dist/build/Desugar" #-} )) of { !_rhsOnt -> (case (({-# LINE 153 "src-ag/Desugar.ag" #-} _lhsIcon- {-# LINE 2756 "dist/build/Desugar" #-}+ {-# LINE 2790 "dist/build/Desugar" #-} )) of { !_rhsOcon -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildSyns- {-# LINE 2761 "dist/build/Desugar" #-}+ {-# LINE 2795 "dist/build/Desugar" #-} )) of { !_rhsOchildSyns -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildInhs- {-# LINE 2766 "dist/build/Desugar" #-}+ {-# LINE 2800 "dist/build/Desugar" #-} )) of { !_rhsOchildInhs -> (case (rhs_ _rhsOchildInhs _rhsOchildSyns _rhsOcon _rhsOnt _rhsOoptions _rhsOruleDescr) of { ( !_rhsIerrors,!_rhsIoutput) -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} _patternIerrors Seq.>< _rhsIerrors- {-# LINE 2773 "dist/build/Desugar" #-}+ {-# LINE 2807 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} Rule mbName_ _patternIoutput _rhsIoutput owrt_ origin_ explicit_ pure_ identity_ mbError_ eager_- {-# LINE 2778 "dist/build/Desugar" #-}+ {-# LINE 2812 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} _output- {-# LINE 2783 "dist/build/Desugar" #-}+ {-# LINE 2817 "dist/build/Desugar" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))@@ -2848,7 +2882,7 @@ { ( !_hdIdefsCollect,!T_Rule_1 hd_1) -> (case (({-# LINE 179 "src-ag/Desugar.ag" #-} _hdIdefsCollect `Set.union` _tlIdefsCollect- {-# LINE 2852 "dist/build/Desugar" #-}+ {-# LINE 2886 "dist/build/Desugar" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Rules_Cons_1 :: T_Rules_1@@ -2862,96 +2896,96 @@ (!_lhsIoptions) -> (case (({-# LINE 152 "src-ag/Desugar.ag" #-} _lhsInt- {-# LINE 2866 "dist/build/Desugar" #-}+ {-# LINE 2900 "dist/build/Desugar" #-} )) of { !_tlOnt -> (case (({-# LINE 153 "src-ag/Desugar.ag" #-} _lhsIcon- {-# LINE 2871 "dist/build/Desugar" #-}+ {-# LINE 2905 "dist/build/Desugar" #-} )) of { !_tlOcon -> (case (({-# LINE 152 "src-ag/Desugar.ag" #-} _lhsInt- {-# LINE 2876 "dist/build/Desugar" #-}+ {-# LINE 2910 "dist/build/Desugar" #-} )) of { !_hdOnt -> (case (({-# LINE 153 "src-ag/Desugar.ag" #-} _lhsIcon- {-# LINE 2881 "dist/build/Desugar" #-}+ {-# LINE 2915 "dist/build/Desugar" #-} )) of { !_hdOcon -> (case (({-# LINE 36 "src-ag/Desugar.ag" #-} _lhsIoptions- {-# LINE 2886 "dist/build/Desugar" #-}+ {-# LINE 2920 "dist/build/Desugar" #-} )) of { !_tlOoptions -> (case (({-# LINE 215 "src-ag/Desugar.ag" #-} _lhsIforcedIrrefutables- {-# LINE 2891 "dist/build/Desugar" #-}+ {-# LINE 2925 "dist/build/Desugar" #-} )) of { !_tlOforcedIrrefutables -> (case (({-# LINE 185 "src-ag/Desugar.ag" #-} _lhsIdefs- {-# LINE 2896 "dist/build/Desugar" #-}+ {-# LINE 2930 "dist/build/Desugar" #-} )) of { !_tlOdefs -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildSyns- {-# LINE 2901 "dist/build/Desugar" #-}+ {-# LINE 2935 "dist/build/Desugar" #-} )) of { !_tlOchildSyns -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildInhs- {-# LINE 2906 "dist/build/Desugar" #-}+ {-# LINE 2940 "dist/build/Desugar" #-} )) of { !_tlOchildInhs -> (case (tl_1 _tlOchildInhs _tlOchildSyns _tlOcon _tlOdefs _tlOforcedIrrefutables _tlOnt _tlOoptions) of { ( !_tlIallAttributes,!_tlIerrors,!_tlIoutput) -> (case (({-# LINE 36 "src-ag/Desugar.ag" #-} _lhsIoptions- {-# LINE 2913 "dist/build/Desugar" #-}+ {-# LINE 2947 "dist/build/Desugar" #-} )) of { !_hdOoptions -> (case (({-# LINE 215 "src-ag/Desugar.ag" #-} _lhsIforcedIrrefutables- {-# LINE 2918 "dist/build/Desugar" #-}+ {-# LINE 2952 "dist/build/Desugar" #-} )) of { !_hdOforcedIrrefutables -> (case (({-# LINE 185 "src-ag/Desugar.ag" #-} _lhsIdefs- {-# LINE 2923 "dist/build/Desugar" #-}+ {-# LINE 2957 "dist/build/Desugar" #-} )) of { !_hdOdefs -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildSyns- {-# LINE 2928 "dist/build/Desugar" #-}+ {-# LINE 2962 "dist/build/Desugar" #-} )) of { !_hdOchildSyns -> (case (({-# LINE 126 "src-ag/Desugar.ag" #-} _lhsIchildInhs- {-# LINE 2933 "dist/build/Desugar" #-}+ {-# LINE 2967 "dist/build/Desugar" #-} )) of { !_hdOchildInhs -> (case (hd_1 _hdOchildInhs _hdOchildSyns _hdOcon _hdOdefs _hdOforcedIrrefutables _hdOnt _hdOoptions) of { ( !_hdIallAttributes,!_hdIerrors,!_hdIoutput) -> (case (({-# LINE 196 "src-ag/Desugar.ag" #-} _hdIallAttributes `mergeAttributes` _tlIallAttributes- {-# LINE 2940 "dist/build/Desugar" #-}+ {-# LINE 2974 "dist/build/Desugar" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} _hdIerrors Seq.>< _tlIerrors- {-# LINE 2945 "dist/build/Desugar" #-}+ {-# LINE 2979 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} (:) _hdIoutput _tlIoutput- {-# LINE 2950 "dist/build/Desugar" #-}+ {-# LINE 2984 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} _output- {-# LINE 2955 "dist/build/Desugar" #-}+ {-# LINE 2989 "dist/build/Desugar" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))@@ -2962,7 +2996,7 @@ sem_Rules_Nil = (T_Rules (case (({-# LINE 179 "src-ag/Desugar.ag" #-} Set.empty- {-# LINE 2966 "dist/build/Desugar" #-}+ {-# LINE 3000 "dist/build/Desugar" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Rules_Nil_1 :: T_Rules_1@@ -2976,22 +3010,22 @@ (!_lhsIoptions) -> (case (({-# LINE 196 "src-ag/Desugar.ag" #-} Map.empty- {-# LINE 2980 "dist/build/Desugar" #-}+ {-# LINE 3014 "dist/build/Desugar" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 38 "src-ag/Desugar.ag" #-} Seq.empty- {-# LINE 2985 "dist/build/Desugar" #-}+ {-# LINE 3019 "dist/build/Desugar" #-} )) of { !_lhsOerrors -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} []- {-# LINE 2990 "dist/build/Desugar" #-}+ {-# LINE 3024 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} _output- {-# LINE 2995 "dist/build/Desugar" #-}+ {-# LINE 3029 "dist/build/Desugar" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOerrors,_lhsOoutput) }) }) }) })))@@ -3031,15 +3065,17 @@ sem_TypeSig_TypeSig !name_ !tp_ = (T_TypeSig (case (({-# LINE 40 "src-ag/Desugar.ag" #-} TypeSig name_ tp_- {-# LINE 3035 "dist/build/Desugar" #-}+ {-# LINE 3069 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} _output- {-# LINE 3040 "dist/build/Desugar" #-}+ {-# LINE 3074 "dist/build/Desugar" #-} )) of { !_lhsOoutput ->- ( _lhsOoutput) }) }))+ (case ((Syn_TypeSig _lhsOoutput)) of+ { ___node ->+ ( _lhsOoutput) }) }) })) -- TypeSigs ---------------------------------------------------- {- visit 0:@@ -3080,25 +3116,29 @@ { ( !_hdIoutput) -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} (:) _hdIoutput _tlIoutput- {-# LINE 3084 "dist/build/Desugar" #-}+ {-# LINE 3120 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} _output- {-# LINE 3089 "dist/build/Desugar" #-}+ {-# LINE 3125 "dist/build/Desugar" #-} )) of { !_lhsOoutput ->- ( _lhsOoutput) }) }) }) }))+ (case ((Syn_TypeSigs _lhsOoutput)) of+ { ___node ->+ ( _lhsOoutput) }) }) }) }) })) sem_TypeSigs_Nil :: T_TypeSigs sem_TypeSigs_Nil = (T_TypeSigs (case (({-# LINE 40 "src-ag/Desugar.ag" #-} []- {-# LINE 3097 "dist/build/Desugar" #-}+ {-# LINE 3135 "dist/build/Desugar" #-} )) of { !_output -> (case (({-# LINE 40 "src-ag/Desugar.ag" #-} _output- {-# LINE 3102 "dist/build/Desugar" #-}+ {-# LINE 3140 "dist/build/Desugar" #-} )) of { !_lhsOoutput ->- ( _lhsOoutput) }) }))+ (case ((Syn_TypeSigs _lhsOoutput)) of+ { ___node ->+ ( _lhsOoutput) }) }) }))
src-derived/ExecutionPlan2Hs.hs view
@@ -598,8997 +598,9079 @@ _argpats {-# LINE 600 "dist/build/ExecutionPlan2Hs" #-} )- in ( _lhsOargnamesw,_lhsOargpats,_lhsOargtps,_lhsOchildTypes,_lhsOchildintros,_lhsOdatatype,_lhsOterminaldefs))))-sem_EChild_ETerm :: Identifier ->- Type ->- T_EChild-sem_EChild_ETerm name_ tp_ =- (T_EChild (\ _lhsIallInitStates- _lhsIcon- _lhsIimportBlocks- _lhsImainFile- _lhsImainName- _lhsImoduleHeader- _lhsInt- _lhsIoptions- _lhsIpragmaBlocks- _lhsItextBlocks ->- (let _lhsOdatatype :: PP_Doc- _lhsOargnamesw :: ( PP_Doc )- _lhsOargtps :: ( PP_Doc )- _lhsOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))- _lhsOterminaldefs :: (Set String)- _lhsOchildTypes :: (Map Identifier Type)- _lhsOargpats :: ( PP_Doc )- -- "src-ag/ExecutionPlan2Hs.ag"(line 204, column 7)- _tpDoc =- ({-# LINE 204 "src-ag/ExecutionPlan2Hs.ag" #-}- _addStrict $ pp_parens $ ppTp $ removeDeforested tp_- {-# LINE 628 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 205, column 7)- _strNm =- ({-# LINE 205 "src-ag/ExecutionPlan2Hs.ag" #-}- recordFieldname _lhsInt _lhsIcon name_- {-# LINE 634 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 206, column 7)- _field =- ({-# LINE 206 "src-ag/ExecutionPlan2Hs.ag" #-}- if dataRecords _lhsIoptions- then _strNm >#< "::" >#< _tpDoc- else _tpDoc- {-# LINE 642 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 209, column 7)- _addStrict =- ({-# LINE 209 "src-ag/ExecutionPlan2Hs.ag" #-}- \x -> if strictData _lhsIoptions then "!" >|< x else x- {-# LINE 648 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 214, column 13)- _lhsOdatatype =- ({-# LINE 214 "src-ag/ExecutionPlan2Hs.ag" #-}- _field- {-# LINE 654 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 305, column 12)- _lhsOargnamesw =- ({-# LINE 305 "src-ag/ExecutionPlan2Hs.ag" #-}- text $ fieldname name_- {-# LINE 660 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 576, column 12)- _lhsOargtps =- ({-# LINE 576 "src-ag/ExecutionPlan2Hs.ag" #-}- (pp_parens $ show tp_) >#< "->"- {-# LINE 666 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 577, column 12)- _argpats =- ({-# LINE 577 "src-ag/ExecutionPlan2Hs.ag" #-}- _addbang $ text $ fieldname name_- {-# LINE 672 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 899, column 12)- _lhsOchildintros =- ({-# LINE 899 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.singleton name_ (\_ _ -> Right (empty, Set.empty, Map.empty))- {-# LINE 678 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1287, column 3)- _lhsOterminaldefs =- ({-# LINE 1287 "src-ag/ExecutionPlan2Hs.ag" #-}- Set.singleton $ fieldname name_- {-# LINE 684 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1519, column 37)- _addbang =- ({-# LINE 1519 "src-ag/ExecutionPlan2Hs.ag" #-}- \x -> if bangpats _lhsIoptions then "!" >|< x else x- {-# LINE 690 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1570, column 3)- _lhsOchildTypes =- ({-# LINE 1570 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.singleton name_ tp_- {-# LINE 696 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (from local)- _lhsOargpats =- ({-# LINE 563 "src-ag/ExecutionPlan2Hs.ag" #-}- _argpats- {-# LINE 702 "dist/build/ExecutionPlan2Hs" #-}- )- in ( _lhsOargnamesw,_lhsOargpats,_lhsOargtps,_lhsOchildTypes,_lhsOchildintros,_lhsOdatatype,_lhsOterminaldefs))))--- EChildren ----------------------------------------------------{-- visit 0:- inherited attributes:- allInitStates : Map NontermIdent Int- con : ConstructorIdent- importBlocks : PP_Doc- mainFile : String- mainName : String- moduleHeader : String -> String -> String -> Bool -> String- nt : NontermIdent- options : Options- pragmaBlocks : String- textBlocks : PP_Doc- synthesized attributes:- argnamesw : [PP_Doc]- argpats : [PP_Doc] - argtps : [PP_Doc] - childTypes : Map Identifier Type- childintros : Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))- datatype : [PP_Doc]- terminaldefs : Set String- alternatives:- alternative Cons:- child hd : EChild - child tl : EChildren - alternative Nil:--}--- cata-sem_EChildren :: EChildren ->- T_EChildren-sem_EChildren list =- (Prelude.foldr sem_EChildren_Cons sem_EChildren_Nil (Prelude.map sem_EChild list))--- semantic domain-newtype T_EChildren = T_EChildren ((Map NontermIdent Int) ->- ConstructorIdent ->- PP_Doc ->- String ->- String ->- (String -> String -> String -> Bool -> String) ->- NontermIdent ->- Options ->- String ->- PP_Doc ->- ( ([PP_Doc]),( [PP_Doc] ),( [PP_Doc] ),(Map Identifier Type),(Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))),([PP_Doc]),(Set String)))-data Inh_EChildren = Inh_EChildren {allInitStates_Inh_EChildren :: (Map NontermIdent Int),con_Inh_EChildren :: ConstructorIdent,importBlocks_Inh_EChildren :: PP_Doc,mainFile_Inh_EChildren :: String,mainName_Inh_EChildren :: String,moduleHeader_Inh_EChildren :: (String -> String -> String -> Bool -> String),nt_Inh_EChildren :: NontermIdent,options_Inh_EChildren :: Options,pragmaBlocks_Inh_EChildren :: String,textBlocks_Inh_EChildren :: PP_Doc}-data Syn_EChildren = Syn_EChildren {argnamesw_Syn_EChildren :: ([PP_Doc]),argpats_Syn_EChildren :: ( [PP_Doc] ),argtps_Syn_EChildren :: ( [PP_Doc] ),childTypes_Syn_EChildren :: (Map Identifier Type),childintros_Syn_EChildren :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))),datatype_Syn_EChildren :: ([PP_Doc]),terminaldefs_Syn_EChildren :: (Set String)}-wrap_EChildren :: T_EChildren ->- Inh_EChildren ->- Syn_EChildren-wrap_EChildren (T_EChildren sem) (Inh_EChildren _lhsIallInitStates _lhsIcon _lhsIimportBlocks _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInt _lhsIoptions _lhsIpragmaBlocks _lhsItextBlocks) =- (let ( _lhsOargnamesw,_lhsOargpats,_lhsOargtps,_lhsOchildTypes,_lhsOchildintros,_lhsOdatatype,_lhsOterminaldefs) = sem _lhsIallInitStates _lhsIcon _lhsIimportBlocks _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInt _lhsIoptions _lhsIpragmaBlocks _lhsItextBlocks- in (Syn_EChildren _lhsOargnamesw _lhsOargpats _lhsOargtps _lhsOchildTypes _lhsOchildintros _lhsOdatatype _lhsOterminaldefs))-sem_EChildren_Cons :: T_EChild ->- T_EChildren ->- T_EChildren-sem_EChildren_Cons (T_EChild hd_) (T_EChildren tl_) =- (T_EChildren (\ _lhsIallInitStates- _lhsIcon- _lhsIimportBlocks- _lhsImainFile- _lhsImainName- _lhsImoduleHeader- _lhsInt- _lhsIoptions- _lhsIpragmaBlocks- _lhsItextBlocks ->- (let _lhsOargnamesw :: ([PP_Doc])- _lhsOargpats :: ( [PP_Doc] )- _lhsOargtps :: ( [PP_Doc] )- _lhsOchildTypes :: (Map Identifier Type)- _lhsOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))- _lhsOdatatype :: ([PP_Doc])- _lhsOterminaldefs :: (Set String)- _hdOallInitStates :: (Map NontermIdent Int)- _hdOcon :: ConstructorIdent- _hdOimportBlocks :: PP_Doc- _hdOmainFile :: String- _hdOmainName :: String- _hdOmoduleHeader :: (String -> String -> String -> Bool -> String)- _hdOnt :: NontermIdent- _hdOoptions :: Options- _hdOpragmaBlocks :: String- _hdOtextBlocks :: PP_Doc- _tlOallInitStates :: (Map NontermIdent Int)- _tlOcon :: ConstructorIdent- _tlOimportBlocks :: PP_Doc- _tlOmainFile :: String- _tlOmainName :: String- _tlOmoduleHeader :: (String -> String -> String -> Bool -> String)- _tlOnt :: NontermIdent- _tlOoptions :: Options- _tlOpragmaBlocks :: String- _tlOtextBlocks :: PP_Doc- _hdIargnamesw :: ( PP_Doc )- _hdIargpats :: ( PP_Doc )- _hdIargtps :: ( PP_Doc )- _hdIchildTypes :: (Map Identifier Type)- _hdIchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))- _hdIdatatype :: PP_Doc- _hdIterminaldefs :: (Set String)- _tlIargnamesw :: ([PP_Doc])- _tlIargpats :: ( [PP_Doc] )- _tlIargtps :: ( [PP_Doc] )- _tlIchildTypes :: (Map Identifier Type)- _tlIchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))- _tlIdatatype :: ([PP_Doc])- _tlIterminaldefs :: (Set String)- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 298, column 32)- _lhsOargnamesw =- ({-# LINE 298 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIargnamesw : _tlIargnamesw- {-# LINE 817 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 565, column 30)- _lhsOargpats =- ({-# LINE 565 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIargpats : _tlIargpats- {-# LINE 823 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 564, column 30)- _lhsOargtps =- ({-# LINE 564 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIargtps : _tlIargtps- {-# LINE 829 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1563, column 40)- _lhsOchildTypes =- ({-# LINE 1563 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIchildTypes `mappend` _tlIchildTypes- {-# LINE 835 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 890, column 41)- _lhsOchildintros =- ({-# LINE 890 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIchildintros `Map.union` _tlIchildintros- {-# LINE 841 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 199, column 31)- _lhsOdatatype =- ({-# LINE 199 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIdatatype : _tlIdatatype- {-# LINE 847 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1284, column 42)- _lhsOterminaldefs =- ({-# LINE 1284 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIterminaldefs `Set.union` _tlIterminaldefs- {-# LINE 853 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallInitStates =- ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInitStates- {-# LINE 859 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOcon =- ({-# LINE 66 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIcon- {-# LINE 865 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOimportBlocks =- ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIimportBlocks- {-# LINE 871 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOmainFile =- ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainFile- {-# LINE 877 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOmainName =- ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainName- {-# LINE 883 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOmoduleHeader =- ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImoduleHeader- {-# LINE 889 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOnt =- ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsInt- {-# LINE 895 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 901 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOpragmaBlocks =- ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIpragmaBlocks- {-# LINE 907 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOtextBlocks =- ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsItextBlocks- {-# LINE 913 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallInitStates =- ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInitStates- {-# LINE 919 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOcon =- ({-# LINE 66 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIcon- {-# LINE 925 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOimportBlocks =- ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIimportBlocks- {-# LINE 931 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOmainFile =- ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainFile- {-# LINE 937 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOmainName =- ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainName- {-# LINE 943 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOmoduleHeader =- ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImoduleHeader- {-# LINE 949 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOnt =- ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsInt- {-# LINE 955 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 961 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOpragmaBlocks =- ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIpragmaBlocks- {-# LINE 967 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOtextBlocks =- ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsItextBlocks- {-# LINE 973 "dist/build/ExecutionPlan2Hs" #-}- )- ( _hdIargnamesw,_hdIargpats,_hdIargtps,_hdIchildTypes,_hdIchildintros,_hdIdatatype,_hdIterminaldefs) =- hd_ _hdOallInitStates _hdOcon _hdOimportBlocks _hdOmainFile _hdOmainName _hdOmoduleHeader _hdOnt _hdOoptions _hdOpragmaBlocks _hdOtextBlocks- ( _tlIargnamesw,_tlIargpats,_tlIargtps,_tlIchildTypes,_tlIchildintros,_tlIdatatype,_tlIterminaldefs) =- tl_ _tlOallInitStates _tlOcon _tlOimportBlocks _tlOmainFile _tlOmainName _tlOmoduleHeader _tlOnt _tlOoptions _tlOpragmaBlocks _tlOtextBlocks- in ( _lhsOargnamesw,_lhsOargpats,_lhsOargtps,_lhsOchildTypes,_lhsOchildintros,_lhsOdatatype,_lhsOterminaldefs))))-sem_EChildren_Nil :: T_EChildren-sem_EChildren_Nil =- (T_EChildren (\ _lhsIallInitStates- _lhsIcon- _lhsIimportBlocks- _lhsImainFile- _lhsImainName- _lhsImoduleHeader- _lhsInt- _lhsIoptions- _lhsIpragmaBlocks- _lhsItextBlocks ->- (let _lhsOargnamesw :: ([PP_Doc])- _lhsOargpats :: ( [PP_Doc] )- _lhsOargtps :: ( [PP_Doc] )- _lhsOchildTypes :: (Map Identifier Type)- _lhsOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))- _lhsOdatatype :: ([PP_Doc])- _lhsOterminaldefs :: (Set String)- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 298, column 32)- _lhsOargnamesw =- ({-# LINE 298 "src-ag/ExecutionPlan2Hs.ag" #-}- []- {-# LINE 1003 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 565, column 30)- _lhsOargpats =- ({-# LINE 565 "src-ag/ExecutionPlan2Hs.ag" #-}- []- {-# LINE 1009 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 564, column 30)- _lhsOargtps =- ({-# LINE 564 "src-ag/ExecutionPlan2Hs.ag" #-}- []- {-# LINE 1015 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1563, column 40)- _lhsOchildTypes =- ({-# LINE 1563 "src-ag/ExecutionPlan2Hs.ag" #-}- mempty- {-# LINE 1021 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 890, column 41)- _lhsOchildintros =- ({-# LINE 890 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 1027 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 199, column 31)- _lhsOdatatype =- ({-# LINE 199 "src-ag/ExecutionPlan2Hs.ag" #-}- []- {-# LINE 1033 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1284, column 42)- _lhsOterminaldefs =- ({-# LINE 1284 "src-ag/ExecutionPlan2Hs.ag" #-}- Set.empty- {-# LINE 1039 "dist/build/ExecutionPlan2Hs" #-}- )- in ( _lhsOargnamesw,_lhsOargpats,_lhsOargtps,_lhsOchildTypes,_lhsOchildintros,_lhsOdatatype,_lhsOterminaldefs))))--- ENonterminal -------------------------------------------------{-- visit 0:- inherited attributes:- allFromToStates : Map VisitIdentifier (Int,Int)- allInitStates : Map NontermIdent Int- allVisitKinds : Map VisitIdentifier VisitKind- allchildvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))- avisitdefs : Map VisitIdentifier (Set Identifier)- avisituses : Map VisitIdentifier (Set Identifier)- derivings : Derivings- importBlocks : PP_Doc- inhmap : Map NontermIdent Attributes- localAttrTypes : Map NontermIdent (Map ConstructorIdent (Map Identifier Type))- mainFile : String- mainName : String- moduleHeader : String -> String -> String -> Bool -> String- options : Options- pragmaBlocks : String- synmap : Map NontermIdent Attributes- textBlocks : PP_Doc- typeSyns : TypeSyns- wrappers : Set NontermIdent- synthesized attributes:- appendCommon : PP_Doc - appendMain : PP_Doc - childvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))- errors : Seq Error- fromToStates : Map VisitIdentifier (Int,Int)- genProdIO : IO ()- imports : [PP_Doc]- initStates : Map NontermIdent Int- output : PP_Doc- semFunBndDefs : Seq PP_Doc- semFunBndTps : Seq PP_Doc- visitKinds : Map VisitIdentifier VisitKind- visitdefs : Map VisitIdentifier (Set Identifier)- visituses : Map VisitIdentifier (Set Identifier)- alternatives:- alternative ENonterminal:- child nt : {NontermIdent}- child params : {[Identifier]}- child classCtxs : {ClassContext}- child initial : {StateIdentifier}- child initialv : {Maybe VisitIdentifier}- child nextVisits : {Map StateIdentifier StateCtx}- child prevVisits : {Map StateIdentifier StateCtx}- child prods : EProductions - child recursive : {Bool}- child hoInfo : {HigherOrderInfo}- visit 0:- local hasWrapper : _- local classPP : _- local aliasPre : _- local datatype : _- local derivings : _- local fsemname : _- local semname : _- local frecarg : _- local sem_tp : _- local quantPP : _- local sem_nt : _- local inlineNt : _- local semPragma : _- local outedges : _- local inedges : _- local allstates : _- local stvisits : _- local t_type : _- local t_params : _- local t_init : _- local t_states : _- local k_type : _- local k_states : _- local wr_inh : _- local wr_syn : _- local genwrap : _- local synAttrs : _- local wr_inhs : _- local wr_inhs1 : _- local wr_filter : _- local wr_syns : _- local inhlist : _- local inhlist1 : _- local synlist : _- local wrapname : _- local inhname : _- local synname : _- local firstVisitInfo : _- local wrapper : _- local wrapPragma : _- local semFunBndDef : _- local semFunBndTp : _- local semFunBndNm : _- local addbang : _- local addbangWrap : _- local ntType : _--}--- cata-sem_ENonterminal :: ENonterminal ->- T_ENonterminal-sem_ENonterminal (ENonterminal _nt _params _classCtxs _initial _initialv _nextVisits _prevVisits _prods _recursive _hoInfo) =- (sem_ENonterminal_ENonterminal _nt _params _classCtxs _initial _initialv _nextVisits _prevVisits (sem_EProductions _prods) _recursive _hoInfo)--- semantic domain-newtype T_ENonterminal = T_ENonterminal ((Map VisitIdentifier (Int,Int)) ->- (Map NontermIdent Int) ->- (Map VisitIdentifier VisitKind) ->- (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))) ->- (Map VisitIdentifier (Set Identifier)) ->- (Map VisitIdentifier (Set Identifier)) ->- Derivings ->- PP_Doc ->- (Map NontermIdent Attributes) ->- (Map NontermIdent (Map ConstructorIdent (Map Identifier Type))) ->- String ->- String ->- (String -> String -> String -> Bool -> String) ->- Options ->- String ->- (Map NontermIdent Attributes) ->- PP_Doc ->- TypeSyns ->- (Set NontermIdent) ->- ( ( PP_Doc ),( PP_Doc ),(Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),(Seq Error),(Map VisitIdentifier (Int,Int)),(IO ()),([PP_Doc]),(Map NontermIdent Int),PP_Doc,(Seq PP_Doc),(Seq PP_Doc),(Map VisitIdentifier VisitKind),(Map VisitIdentifier (Set Identifier)),(Map VisitIdentifier (Set Identifier))))-data Inh_ENonterminal = Inh_ENonterminal {allFromToStates_Inh_ENonterminal :: (Map VisitIdentifier (Int,Int)),allInitStates_Inh_ENonterminal :: (Map NontermIdent Int),allVisitKinds_Inh_ENonterminal :: (Map VisitIdentifier VisitKind),allchildvisit_Inh_ENonterminal :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),avisitdefs_Inh_ENonterminal :: (Map VisitIdentifier (Set Identifier)),avisituses_Inh_ENonterminal :: (Map VisitIdentifier (Set Identifier)),derivings_Inh_ENonterminal :: Derivings,importBlocks_Inh_ENonterminal :: PP_Doc,inhmap_Inh_ENonterminal :: (Map NontermIdent Attributes),localAttrTypes_Inh_ENonterminal :: (Map NontermIdent (Map ConstructorIdent (Map Identifier Type))),mainFile_Inh_ENonterminal :: String,mainName_Inh_ENonterminal :: String,moduleHeader_Inh_ENonterminal :: (String -> String -> String -> Bool -> String),options_Inh_ENonterminal :: Options,pragmaBlocks_Inh_ENonterminal :: String,synmap_Inh_ENonterminal :: (Map NontermIdent Attributes),textBlocks_Inh_ENonterminal :: PP_Doc,typeSyns_Inh_ENonterminal :: TypeSyns,wrappers_Inh_ENonterminal :: (Set NontermIdent)}-data Syn_ENonterminal = Syn_ENonterminal {appendCommon_Syn_ENonterminal :: ( PP_Doc ),appendMain_Syn_ENonterminal :: ( PP_Doc ),childvisit_Syn_ENonterminal :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),errors_Syn_ENonterminal :: (Seq Error),fromToStates_Syn_ENonterminal :: (Map VisitIdentifier (Int,Int)),genProdIO_Syn_ENonterminal :: (IO ()),imports_Syn_ENonterminal :: ([PP_Doc]),initStates_Syn_ENonterminal :: (Map NontermIdent Int),output_Syn_ENonterminal :: PP_Doc,semFunBndDefs_Syn_ENonterminal :: (Seq PP_Doc),semFunBndTps_Syn_ENonterminal :: (Seq PP_Doc),visitKinds_Syn_ENonterminal :: (Map VisitIdentifier VisitKind),visitdefs_Syn_ENonterminal :: (Map VisitIdentifier (Set Identifier)),visituses_Syn_ENonterminal :: (Map VisitIdentifier (Set Identifier))}-wrap_ENonterminal :: T_ENonterminal ->- Inh_ENonterminal ->- Syn_ENonterminal-wrap_ENonterminal (T_ENonterminal sem) (Inh_ENonterminal _lhsIallFromToStates _lhsIallInitStates _lhsIallVisitKinds _lhsIallchildvisit _lhsIavisitdefs _lhsIavisituses _lhsIderivings _lhsIimportBlocks _lhsIinhmap _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsIoptions _lhsIpragmaBlocks _lhsIsynmap _lhsItextBlocks _lhsItypeSyns _lhsIwrappers) =- (let ( _lhsOappendCommon,_lhsOappendMain,_lhsOchildvisit,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOinitStates,_lhsOoutput,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses) = sem _lhsIallFromToStates _lhsIallInitStates _lhsIallVisitKinds _lhsIallchildvisit _lhsIavisitdefs _lhsIavisituses _lhsIderivings _lhsIimportBlocks _lhsIinhmap _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsIoptions _lhsIpragmaBlocks _lhsIsynmap _lhsItextBlocks _lhsItypeSyns _lhsIwrappers- in (Syn_ENonterminal _lhsOappendCommon _lhsOappendMain _lhsOchildvisit _lhsOerrors _lhsOfromToStates _lhsOgenProdIO _lhsOimports _lhsOinitStates _lhsOoutput _lhsOsemFunBndDefs _lhsOsemFunBndTps _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses))-sem_ENonterminal_ENonterminal :: NontermIdent ->- ([Identifier]) ->- ClassContext ->- StateIdentifier ->- (Maybe VisitIdentifier) ->- (Map StateIdentifier StateCtx) ->- (Map StateIdentifier StateCtx) ->- T_EProductions ->- Bool ->- HigherOrderInfo ->- T_ENonterminal-sem_ENonterminal_ENonterminal nt_ params_ classCtxs_ initial_ initialv_ nextVisits_ prevVisits_ (T_EProductions prods_) recursive_ hoInfo_ =- (T_ENonterminal (\ _lhsIallFromToStates- _lhsIallInitStates- _lhsIallVisitKinds- _lhsIallchildvisit- _lhsIavisitdefs- _lhsIavisituses- _lhsIderivings- _lhsIimportBlocks- _lhsIinhmap- _lhsIlocalAttrTypes- _lhsImainFile- _lhsImainName- _lhsImoduleHeader- _lhsIoptions- _lhsIpragmaBlocks- _lhsIsynmap- _lhsItextBlocks- _lhsItypeSyns- _lhsIwrappers ->- (let _prodsOrename :: Bool- _prodsOnt :: NontermIdent- _prodsOparams :: ([Identifier])- _prodsOclassCtxs :: ClassContext- _lhsOoutput :: PP_Doc- _prodsOinhmap :: Attributes- _prodsOsynmap :: Attributes- _prodsOallInhmap :: (Map NontermIdent Attributes)- _prodsOallSynmap :: (Map NontermIdent Attributes)- _lhsOsemFunBndDefs :: (Seq PP_Doc)- _lhsOsemFunBndTps :: (Seq PP_Doc)- _prodsOinitial :: StateIdentifier- _prodsOallstates :: (Set StateIdentifier)- _lhsOappendMain :: ( PP_Doc )- _lhsOappendCommon :: ( PP_Doc )- _prodsOnextVisits :: (Map StateIdentifier StateCtx)- _prodsOprevVisits :: (Map StateIdentifier StateCtx)- _prodsOlocalAttrTypes :: (Map ConstructorIdent (Map Identifier Type))- _lhsOinitStates :: (Map NontermIdent Int)- _lhsOchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _lhsOerrors :: (Seq Error)- _lhsOfromToStates :: (Map VisitIdentifier (Int,Int))- _lhsOgenProdIO :: (IO ())- _lhsOimports :: ([PP_Doc])- _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)- _lhsOvisitdefs :: (Map VisitIdentifier (Set Identifier))- _lhsOvisituses :: (Map VisitIdentifier (Set Identifier))- _prodsOallFromToStates :: (Map VisitIdentifier (Int,Int))- _prodsOallInitStates :: (Map NontermIdent Int)- _prodsOallVisitKinds :: (Map VisitIdentifier VisitKind)- _prodsOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _prodsOavisitdefs :: (Map VisitIdentifier (Set Identifier))- _prodsOavisituses :: (Map VisitIdentifier (Set Identifier))- _prodsOimportBlocks :: PP_Doc- _prodsOmainFile :: String- _prodsOmainName :: String- _prodsOmoduleHeader :: (String -> String -> String -> Bool -> String)- _prodsOntType :: Type- _prodsOoptions :: Options- _prodsOpragmaBlocks :: String- _prodsOtextBlocks :: PP_Doc- _prodsIallvisits :: ([VisitStateState])- _prodsIchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _prodsIcount :: Int- _prodsIdatatype :: ([PP_Doc])- _prodsIerrors :: (Seq Error)- _prodsIfromToStates :: (Map VisitIdentifier (Int,Int))- _prodsIgenProdIO :: (IO ())- _prodsIimports :: ([PP_Doc])- _prodsIsemFunBndDefs :: (Seq PP_Doc)- _prodsIsemFunBndTps :: (Seq PP_Doc)- _prodsIsem_nt :: PP_Doc- _prodsIsem_prod :: PP_Doc- _prodsIt_visits :: PP_Doc- _prodsIvisitKinds :: (Map VisitIdentifier VisitKind)- _prodsIvisitdefs :: (Map VisitIdentifier (Set Identifier))- _prodsIvisituses :: (Map VisitIdentifier (Set Identifier))- -- "src-ag/ExecutionPlan2Hs.ag"(line 55, column 18)- _prodsOrename =- ({-# LINE 55 "src-ag/ExecutionPlan2Hs.ag" #-}- rename _lhsIoptions- {-# LINE 1266 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 63, column 18)- _prodsOnt =- ({-# LINE 63 "src-ag/ExecutionPlan2Hs.ag" #-}- nt_- {-# LINE 1272 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 75, column 3)- _prodsOparams =- ({-# LINE 75 "src-ag/ExecutionPlan2Hs.ag" #-}- params_- {-# LINE 1278 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 79, column 3)- _prodsOclassCtxs =- ({-# LINE 79 "src-ag/ExecutionPlan2Hs.ag" #-}- classCtxs_- {-# LINE 1284 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 96, column 18)- _lhsOoutput =- ({-# LINE 96 "src-ag/ExecutionPlan2Hs.ag" #-}- ("-- " ++ getName nt_ ++ " " ++ replicate (60 - length (getName nt_)) '-')- >-< (if dataTypes _lhsIoptions- then "-- data"- >-< _datatype- >-< ""- else empty)- >-< (if _hasWrapper- then "-- wrapper"- >-< _wr_inh- >-< _wr_syn- >-< _wrapper- >-< ""- else empty)- >-< (if folds _lhsIoptions- then "-- cata"- >-< _sem_nt- >-< ""- else empty)- >-< (if semfuns _lhsIoptions- then "-- semantic domain"- >-< _t_init- >-< _t_states- >-< _k_states- >-< _prodsIt_visits- >-< _prodsIsem_prod- >-< ""- else empty)- {-# LINE 1316 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 123, column 18)- _hasWrapper =- ({-# LINE 123 "src-ag/ExecutionPlan2Hs.ag" #-}- nt_ `Set.member` _lhsIwrappers- {-# LINE 1322 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 136, column 18)- _classPP =- ({-# LINE 136 "src-ag/ExecutionPlan2Hs.ag" #-}- ppClasses $ classCtxsToDocs classCtxs_- {-# LINE 1328 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 137, column 18)- _aliasPre =- ({-# LINE 137 "src-ag/ExecutionPlan2Hs.ag" #-}- "type" >#< _classPP >#< nt_ >#< _t_params >#< "="- {-# LINE 1334 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 138, column 18)- _datatype =- ({-# LINE 138 "src-ag/ExecutionPlan2Hs.ag" #-}- case lookup nt_ _lhsItypeSyns of- Nothing -> "data" >#< _classPP >#< nt_ >#< _t_params- >-< ( if null _prodsIdatatype- then empty- else indent 2 $ vlist $ ( ("=" >#< head _prodsIdatatype)- : (map ("|" >#<) $ tail _prodsIdatatype))- )- >-< indent 2 _derivings- Just (List t) -> _aliasPre >#< "[" >#< show t >#< "]"- Just (Maybe t) -> _aliasPre >#< "Maybe" >#< show t- Just (Tuple ts) -> _aliasPre >#< pp_parens (ppCommas $ map (show . snd) ts)- Just (Either l r) -> _aliasPre >#< "Either" >#< show l >#< show r- Just (Map k v) -> _aliasPre >#< "Data.Map" >#< pp_parens (show k) >#< show v- Just (IntMap t) -> _aliasPre >#< "Data.IntMap.IntMap" >#< show t- Just (OrdSet t) -> _aliasPre >#< "Data.Set.Set" >#< show t- Just IntSet -> _aliasPre >#< "Data.IntSet.IntSet"- {-# LINE 1355 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 155, column 18)- _derivings =- ({-# LINE 155 "src-ag/ExecutionPlan2Hs.ag" #-}- case Map.lookup nt_ _lhsIderivings of- Nothing -> empty- Just s -> if Set.null s- then empty- else "deriving" >#< (pp_parens $ ppCommas $ map pp $ Set.toList s)- {-# LINE 1365 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 228, column 18)- _fsemname =- ({-# LINE 228 "src-ag/ExecutionPlan2Hs.ag" #-}- \x -> "sem_" ++ show x- {-# LINE 1371 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 229, column 18)- _semname =- ({-# LINE 229 "src-ag/ExecutionPlan2Hs.ag" #-}- _fsemname nt_- {-# LINE 1377 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 230, column 18)- _frecarg =- ({-# LINE 230 "src-ag/ExecutionPlan2Hs.ag" #-}- \t x -> case t of- NT nt _ _ -> pp_parens (_fsemname nt >#< x)- _ -> pp x- {-# LINE 1385 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 236, column 18)- _sem_tp =- ({-# LINE 236 "src-ag/ExecutionPlan2Hs.ag" #-}- _quantPP >#< _classPP >#< nt_ >#< _t_params >#< "->" >#< _t_type >#< _t_params- {-# LINE 1391 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 237, column 18)- _quantPP =- ({-# LINE 237 "src-ag/ExecutionPlan2Hs.ag" #-}- ppQuants params_- {-# LINE 1397 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 238, column 18)- _sem_nt =- ({-# LINE 238 "src-ag/ExecutionPlan2Hs.ag" #-}- _semPragma- >-< _semname >#< "::" >#< _sem_tp- >-< case lookup nt_ _lhsItypeSyns of- Nothing -> _prodsIsem_nt- Just (List t) -> _semname >#< "list" >#< "=" >#< "Prelude.foldr" >#< _semname >|< "_Cons"- >#< _semname >|< "_Nil"- >#< case t of- NT nt _ _ -> pp_parens ("Prelude.map" >#< _fsemname nt >#< "list")- _ -> pp "list"- Just (Maybe t) -> _semname >#< "Prelude.Nothing" >#< "=" >#< _semname >|< "_Nothing"- >-< _semname >#< pp_parens ("Prelude.Just just") >#< "="- >#< _semname >|< "_Just" >#< _frecarg t "just"- Just (Tuple ts) -> _semname >#< pp_parens (ppCommas $ map fst ts) >#< "="- >#< _semname >|< "_Tuple" >#< ppSpaced (map (\t -> _frecarg (snd t) (show $ fst t)) ts)- Just (Either l r) -> _semname >#< "(Prelude.Left left)" >#< "=" >#< _semname >|< "_Left" >#< _frecarg l "left"- >-< _semname >#< "(Prelude.Right right)" >#< "=" >#< _semname >|< "_Right" >#< _frecarg r "right"- Just (Map k v) -> _semname >#< "m" >#< "=" >#< "Data.Map.foldrWithKey"- >#< _semname >|< "_Entry" >#< _semname >|< "_Nil"- >#< case v of- NT nt _ _ -> pp_parens ("Data.Map.map" >#< _fsemname nt >#< "m")- _ -> pp "m"- Just (IntMap v) -> _semname >#< "m" >#< "=" >#< "Data.IntMap.foldWithKey"- >#< _semname >|< "_Entry" >#< _semname >|< "_Nil"- >#< case v of- NT nt _ _ -> pp_parens ("Data.IntMap.map" >#< _fsemname nt >#< "m")- _ -> pp "m"- Just (OrdSet t) -> _semname >#< "s" >#< "=" >#< "Prelude.foldr" >#< _semname >|< "_Entry"- >#< _semname >|< "_Nil"- >#< pp_parens (- ( case t of- NT nt _ _ -> pp_parens ("Prelude.map" >#< _fsemname nt)- _ -> empty- ) >#< pp_parens ("Data.IntSet.elems" >#< "s")- )- Just IntSet -> _semname >#< "s" >#< "=" >#< "Prelude.foldr" >#< _semname >|< "_Entry"- >#< _semname >|< "_Nil"- >#< pp_parens ("Data.IntSet.elems" >#< "s")- {-# LINE 1439 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 278, column 17)- _inlineNt =- ({-# LINE 278 "src-ag/ExecutionPlan2Hs.ag" #-}- not (lateHigherOrderBinding _lhsIoptions) && not recursive_ && (_prodsIcount == 1 || (aggressiveInlinePragmas _lhsIoptions && not _hasWrapper ))- {-# LINE 1445 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 279, column 17)- _semPragma =- ({-# LINE 279 "src-ag/ExecutionPlan2Hs.ag" #-}- if noInlinePragmas _lhsIoptions- then empty- else if _inlineNt- then ppInline _semname- else if helpInlining _lhsIoptions && not (lateHigherOrderBinding _lhsIoptions)- then ppInlinable _semname- else ppNoInline _semname- {-# LINE 1457 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 325, column 19)- (Just _prodsOinhmap) =- ({-# LINE 325 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.lookup nt_ _lhsIinhmap- {-# LINE 1463 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 326, column 19)- (Just _prodsOsynmap) =- ({-# LINE 326 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.lookup nt_ _lhsIsynmap- {-# LINE 1469 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 327, column 18)- _prodsOallInhmap =- ({-# LINE 327 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinhmap- {-# LINE 1475 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 328, column 18)- _prodsOallSynmap =- ({-# LINE 328 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIsynmap- {-# LINE 1481 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 349, column 18)- _outedges =- ({-# LINE 349 "src-ag/ExecutionPlan2Hs.ag" #-}- Set.fromList $ map (\(_,f,_) -> f) _prodsIallvisits- {-# LINE 1487 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 350, column 18)- _inedges =- ({-# LINE 350 "src-ag/ExecutionPlan2Hs.ag" #-}- Set.fromList $ map (\(_,_,t) -> t) _prodsIallvisits- {-# LINE 1493 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 351, column 18)- _allstates =- ({-# LINE 351 "src-ag/ExecutionPlan2Hs.ag" #-}- Set.insert initial_ $ _inedges `Set.union` _outedges- {-# LINE 1499 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 352, column 18)- _stvisits =- ({-# LINE 352 "src-ag/ExecutionPlan2Hs.ag" #-}- \st -> filter (\(v,f,t) -> f == st) _prodsIallvisits- {-# LINE 1505 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 353, column 18)- _t_type =- ({-# LINE 353 "src-ag/ExecutionPlan2Hs.ag" #-}- "T_" >|< nt_- {-# LINE 1511 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 354, column 18)- _t_params =- ({-# LINE 354 "src-ag/ExecutionPlan2Hs.ag" #-}- ppSpaced params_- {-# LINE 1517 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 355, column 18)- _t_init =- ({-# LINE 355 "src-ag/ExecutionPlan2Hs.ag" #-}- "newtype" >#< _t_type >#< _t_params >#< "=" >#< _t_type >#<- pp_braces (- "attach_">|< _t_type >#< "::"- >#< ppMonadType _lhsIoptions >#< pp_parens (_t_type >|< "_s" >|< initial_ >#< _t_params ))- {-# LINE 1526 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 359, column 18)- _t_states =- ({-# LINE 359 "src-ag/ExecutionPlan2Hs.ag" #-}- vlist $ map (\st ->- let nt_st = nt_ >|< "_s" >|< st- t_st = "T_" >|< nt_st- k_st = "K_" >|< nt_st- c_st = "C_" >|< nt_st- inv_st = "inv_" >|< nt_st- nextVisit = Map.findWithDefault ManyVis st nextVisits_- in case nextVisit of- NoneVis -> "data" >#< t_st >#< _t_params >#< "=" >#< c_st- OneVis vId -> "newtype" >#< t_st >#< _t_params >#< "=" >#< c_st- >#< (pp_braces $ inv_st >#< "::" >#< pp_parens (conNmTVisit nt_ vId >#< _t_params ))- ManyVis -> "data" >#< t_st >#< _t_params >#< "where" >#< c_st >#< "::"- >#< (pp_braces $ inv_st >#< "::" >#< "!" >|< pp_parens ("forall t." >#< k_st >#< _t_params >#< "t" >#< "->" >#< "t"))- >#< "->" >#< t_st >#< _t_params- ) $ Set.toList _allstates- {-# LINE 1546 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 377, column 18)- _k_type =- ({-# LINE 377 "src-ag/ExecutionPlan2Hs.ag" #-}- "K_" ++ show nt_- {-# LINE 1552 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 378, column 18)- _k_states =- ({-# LINE 378 "src-ag/ExecutionPlan2Hs.ag" #-}- vlist $ map (\st ->- let nt_st = nt_ >|< "_s" >|< st- k_st = "K_" >|< nt_st- outg = filter (\(v,f,t) -> f == st) _prodsIallvisits- visitlist = vlist $ map (\(v,f,t) ->- _k_type >|< "_v" >|< v >#< "::" >#< k_st >#< _t_params >#< pp_parens (_t_type >|< "_v" >|< v >#< _t_params )- ) outg- nextVisit = Map.findWithDefault ManyVis st nextVisits_- decl = "data" >#< k_st >#< "k" >#< _t_params >#< "where" >-< indent 3 visitlist- in case nextVisit of- NoneVis -> empty- OneVis _ -> empty- ManyVis -> decl- ) $ Set.toList _allstates- {-# LINE 1571 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 445, column 18)- _wr_inh =- ({-# LINE 445 "src-ag/ExecutionPlan2Hs.ag" #-}- _genwrap "Inh" _wr_inhs- {-# LINE 1577 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 446, column 18)- _wr_syn =- ({-# LINE 446 "src-ag/ExecutionPlan2Hs.ag" #-}- _genwrap "Syn" _wr_syns- {-# LINE 1583 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 447, column 18)- _genwrap =- ({-# LINE 447 "src-ag/ExecutionPlan2Hs.ag" #-}- \nm attr -> "data" >#< nm >|< "_" >|< nt_ >#< _t_params >#< "=" >#< nm >|< "_" >|< nt_ >#< "{"- >#< (ppCommas $ map (\(i,t) -> i >|< "_" >|< nm >|< "_" >|< nt_ >#< "::"- >#< (_addbang $ pp_parens $ typeToHaskellString (Just nt_) [] t)) attr) >#< "}"- {-# LINE 1591 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 450, column 18)- _synAttrs =- ({-# LINE 450 "src-ag/ExecutionPlan2Hs.ag" #-}- fromJust $ Map.lookup nt_ _lhsIinhmap- {-# LINE 1597 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 451, column 18)- _wr_inhs =- ({-# LINE 451 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.toList $ _wr_filter $ _synAttrs- {-# LINE 1603 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 452, column 18)- _wr_inhs1 =- ({-# LINE 452 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.toList _synAttrs- {-# LINE 1609 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 453, column 18)- _wr_filter =- ({-# LINE 453 "src-ag/ExecutionPlan2Hs.ag" #-}- if kennedyWarren _lhsIoptions && lateHigherOrderBinding _lhsIoptions- then Map.delete idLateBindingAttr- else id- {-# LINE 1617 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 456, column 18)- _wr_syns =- ({-# LINE 456 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.toList $ fromJust $ Map.lookup nt_ _lhsIsynmap- {-# LINE 1623 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 457, column 18)- _inhlist =- ({-# LINE 457 "src-ag/ExecutionPlan2Hs.ag" #-}- map (lhsname True . fst) _wr_inhs- {-# LINE 1629 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 458, column 18)- _inhlist1 =- ({-# LINE 458 "src-ag/ExecutionPlan2Hs.ag" #-}- map (lhsname True . fst) _wr_inhs1- {-# LINE 1635 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 459, column 18)- _synlist =- ({-# LINE 459 "src-ag/ExecutionPlan2Hs.ag" #-}- map (lhsname False . fst) _wr_syns- {-# LINE 1641 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 460, column 18)- _wrapname =- ({-# LINE 460 "src-ag/ExecutionPlan2Hs.ag" #-}- "wrap_" ++ show nt_- {-# LINE 1647 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 461, column 18)- _inhname =- ({-# LINE 461 "src-ag/ExecutionPlan2Hs.ag" #-}- "Inh_" ++ show nt_- {-# LINE 1653 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 462, column 18)- _synname =- ({-# LINE 462 "src-ag/ExecutionPlan2Hs.ag" #-}- "Syn_" ++ show nt_- {-# LINE 1659 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 463, column 18)- _firstVisitInfo =- ({-# LINE 463 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.findWithDefault ManyVis initial_ nextVisits_- {-# LINE 1665 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 464, column 18)- _wrapper =- ({-# LINE 464 "src-ag/ExecutionPlan2Hs.ag" #-}- _wrapPragma- >-< (_wrapname >#< "::" >#< _quantPP >#< _classPP >#< _t_type >#< _t_params >#< "->"- >#< _inhname >#< _t_params >#< "->" >#< ( if monadicWrappers _lhsIoptions then ppMonadType _lhsIoptions else empty) >#< pp_parens (_synname >#< _t_params ))- >-< (_wrapname >#< (_addbang $ pp_parens (_t_type >#< pp "act"))- >#< (_addbang $ pp_parens (_inhname- >#< (ppSpaced $ map (_addbangWrap . pp) _inhlist )) >#< "="))- >-<- indent 3 (case initialv_ of- Nothing -> _synname >#< " { }"- Just initv ->- let inCon = conNmTVisitIn nt_ initv- outCon = conNmTVisitOut nt_ initv- pat = _addbang $ pp_parens $ pat0- pat0 = outCon >#< ppSpaced _synlist- arg = inCon >#< ppSpaced _inhlist1- ind = case _firstVisitInfo of- NoneVis -> error "wrapper: initial state should have a next visit but it has none"- OneVis _ -> empty- ManyVis -> _k_type >|< "_v" >|< initv- extra = if dummyTokenVisit _lhsIoptions- then pp $ dummyArg _lhsIoptions True- else empty- convert = case Map.lookup initv _lhsIallVisitKinds of- Just kind -> case kind of- VisitPure _ -> text "return"- VisitMonadic -> empty- unMonad | monadicWrappers _lhsIoptions = empty- | otherwise = unMon _lhsIoptions- in unMonad >#< "("- >-< indent 2 (- "do" >#< ( _addbang (pp "sem") >#< "<-" >#< "act"- >-< "let" >#< _addbangWrap (pp "arg") >#< "=" >#< arg- >-< pat >#< "<-" >#< convert >#< pp_parens ("inv_" >|< nt_ >|< "_s" >|< initial_ >#< "sem" >#< ind >#< "arg" >#< extra)- >-< "return" >#< pp_parens (_synname >#< ppSpaced _synlist )- )- )- >-< ")" )- >-< if kennedyWarren _lhsIoptions && lateHigherOrderBinding _lhsIoptions- then indent 2 ("where" >#< lhsname True idLateBindingAttr >#< "=" >#< lateBindingFieldNm _lhsImainName)- else empty- {-# LINE 1710 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 505, column 18)- _wrapPragma =- ({-# LINE 505 "src-ag/ExecutionPlan2Hs.ag" #-}- if parallelInvoke _lhsIoptions && not (monadicWrappers _lhsIoptions)- then ppNoInline _wrapname- else if noInlinePragmas _lhsIoptions- then empty- else ppInlinable _wrapname- {-# LINE 1720 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 517, column 3)- _lhsOsemFunBndDefs =- ({-# LINE 517 "src-ag/ExecutionPlan2Hs.ag" #-}- _semFunBndDef Seq.<| _prodsIsemFunBndDefs- {-# LINE 1726 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 518, column 3)- _lhsOsemFunBndTps =- ({-# LINE 518 "src-ag/ExecutionPlan2Hs.ag" #-}- _semFunBndTp Seq.<| _prodsIsemFunBndTps- {-# LINE 1732 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 519, column 3)- _semFunBndDef =- ({-# LINE 519 "src-ag/ExecutionPlan2Hs.ag" #-}- _semFunBndNm >#< "=" >#< _semname- {-# LINE 1738 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 520, column 3)- _semFunBndTp =- ({-# LINE 520 "src-ag/ExecutionPlan2Hs.ag" #-}- _semFunBndNm >#< "::" >#< _sem_tp- {-# LINE 1744 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 521, column 3)- _semFunBndNm =- ({-# LINE 521 "src-ag/ExecutionPlan2Hs.ag" #-}- lateSemNtLabel nt_- {-# LINE 1750 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 559, column 18)- _prodsOinitial =- ({-# LINE 559 "src-ag/ExecutionPlan2Hs.ag" #-}- initial_- {-# LINE 1756 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 560, column 18)- _prodsOallstates =- ({-# LINE 560 "src-ag/ExecutionPlan2Hs.ag" #-}- _allstates- {-# LINE 1762 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1450, column 18)- _lhsOappendMain =- ({-# LINE 1450 "src-ag/ExecutionPlan2Hs.ag" #-}- (if nt_ `Set.member` _lhsIwrappers- then _wr_inh- >-< _wr_syn- >-< _wrapper- else empty)- >-< _sem_nt- {-# LINE 1773 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1456, column 18)- _lhsOappendCommon =- ({-# LINE 1456 "src-ag/ExecutionPlan2Hs.ag" #-}- (if dataTypes _lhsIoptions then _datatype else empty)- >-< _t_init- >-< _t_states- >-< _k_states- >-< _prodsIt_visits- {-# LINE 1783 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1516, column 37)- _addbang =- ({-# LINE 1516 "src-ag/ExecutionPlan2Hs.ag" #-}- \x -> if bangpats _lhsIoptions then "!" >|< x else x- {-# LINE 1789 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1524, column 37)- _addbangWrap =- ({-# LINE 1524 "src-ag/ExecutionPlan2Hs.ag" #-}- if strictWrap _lhsIoptions then _addbang else id- {-# LINE 1795 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1536, column 3)- _prodsOnextVisits =- ({-# LINE 1536 "src-ag/ExecutionPlan2Hs.ag" #-}- nextVisits_- {-# LINE 1801 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1537, column 3)- _prodsOprevVisits =- ({-# LINE 1537 "src-ag/ExecutionPlan2Hs.ag" #-}- prevVisits_- {-# LINE 1807 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1581, column 3)- _prodsOlocalAttrTypes =- ({-# LINE 1581 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.findWithDefault Map.empty nt_ _lhsIlocalAttrTypes- {-# LINE 1813 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1608, column 3)- _lhsOinitStates =- ({-# LINE 1608 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.singleton nt_ initial_- {-# LINE 1819 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1622, column 3)- _ntType =- ({-# LINE 1622 "src-ag/ExecutionPlan2Hs.ag" #-}- NT nt_ (map show params_) False- {-# LINE 1825 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1187, column 37)- _lhsOchildvisit =- ({-# LINE 1187 "src-ag/ExecutionPlan2Hs.ag" #-}- _prodsIchildvisit- {-# LINE 1831 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)- _lhsOerrors =- ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}- _prodsIerrors- {-# LINE 1837 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1544, column 22)- _lhsOfromToStates =- ({-# LINE 1544 "src-ag/ExecutionPlan2Hs.ag" #-}- _prodsIfromToStates- {-# LINE 1843 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1464, column 49)- _lhsOgenProdIO =- ({-# LINE 1464 "src-ag/ExecutionPlan2Hs.ag" #-}- _prodsIgenProdIO- {-# LINE 1849 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1463, column 47)- _lhsOimports =- ({-# LINE 1463 "src-ag/ExecutionPlan2Hs.ag" #-}- _prodsIimports- {-# LINE 1855 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)- _lhsOvisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _prodsIvisitKinds- {-# LINE 1861 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1322, column 36)- _lhsOvisitdefs =- ({-# LINE 1322 "src-ag/ExecutionPlan2Hs.ag" #-}- _prodsIvisitdefs- {-# LINE 1867 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1323, column 36)- _lhsOvisituses =- ({-# LINE 1323 "src-ag/ExecutionPlan2Hs.ag" #-}- _prodsIvisituses- {-# LINE 1873 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _prodsOallFromToStates =- ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallFromToStates- {-# LINE 1879 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _prodsOallInitStates =- ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInitStates- {-# LINE 1885 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _prodsOallVisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallVisitKinds- {-# LINE 1891 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _prodsOallchildvisit =- ({-# LINE 1186 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallchildvisit- {-# LINE 1897 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _prodsOavisitdefs =- ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisitdefs- {-# LINE 1903 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _prodsOavisituses =- ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisituses- {-# LINE 1909 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _prodsOimportBlocks =- ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIimportBlocks- {-# LINE 1915 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _prodsOmainFile =- ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainFile- {-# LINE 1921 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _prodsOmainName =- ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainName- {-# LINE 1927 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _prodsOmoduleHeader =- ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImoduleHeader- {-# LINE 1933 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (from local)- _prodsOntType =- ({-# LINE 1620 "src-ag/ExecutionPlan2Hs.ag" #-}- _ntType- {-# LINE 1939 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _prodsOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 1945 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _prodsOpragmaBlocks =- ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIpragmaBlocks- {-# LINE 1951 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _prodsOtextBlocks =- ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsItextBlocks- {-# LINE 1957 "dist/build/ExecutionPlan2Hs" #-}- )- ( _prodsIallvisits,_prodsIchildvisit,_prodsIcount,_prodsIdatatype,_prodsIerrors,_prodsIfromToStates,_prodsIgenProdIO,_prodsIimports,_prodsIsemFunBndDefs,_prodsIsemFunBndTps,_prodsIsem_nt,_prodsIsem_prod,_prodsIt_visits,_prodsIvisitKinds,_prodsIvisitdefs,_prodsIvisituses) =- prods_ _prodsOallFromToStates _prodsOallInhmap _prodsOallInitStates _prodsOallSynmap _prodsOallVisitKinds _prodsOallchildvisit _prodsOallstates _prodsOavisitdefs _prodsOavisituses _prodsOclassCtxs _prodsOimportBlocks _prodsOinhmap _prodsOinitial _prodsOlocalAttrTypes _prodsOmainFile _prodsOmainName _prodsOmoduleHeader _prodsOnextVisits _prodsOnt _prodsOntType _prodsOoptions _prodsOparams _prodsOpragmaBlocks _prodsOprevVisits _prodsOrename _prodsOsynmap _prodsOtextBlocks- in ( _lhsOappendCommon,_lhsOappendMain,_lhsOchildvisit,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOinitStates,_lhsOoutput,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses))))--- ENonterminals ------------------------------------------------{-- visit 0:- inherited attributes:- allFromToStates : Map VisitIdentifier (Int,Int)- allInitStates : Map NontermIdent Int- allVisitKinds : Map VisitIdentifier VisitKind- allchildvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))- avisitdefs : Map VisitIdentifier (Set Identifier)- avisituses : Map VisitIdentifier (Set Identifier)- derivings : Derivings- importBlocks : PP_Doc- inhmap : Map NontermIdent Attributes- localAttrTypes : Map NontermIdent (Map ConstructorIdent (Map Identifier Type))- mainFile : String- mainName : String- moduleHeader : String -> String -> String -> Bool -> String- options : Options- pragmaBlocks : String- synmap : Map NontermIdent Attributes- textBlocks : PP_Doc- typeSyns : TypeSyns- wrappers : Set NontermIdent- synthesized attributes:- appendCommon : [PP_Doc]- appendMain : [PP_Doc]- childvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))- errors : Seq Error- fromToStates : Map VisitIdentifier (Int,Int)- genProdIO : IO ()- imports : [PP_Doc]- initStates : Map NontermIdent Int- output : PP_Doc- semFunBndDefs : Seq PP_Doc- semFunBndTps : Seq PP_Doc- visitKinds : Map VisitIdentifier VisitKind- visitdefs : Map VisitIdentifier (Set Identifier)- visituses : Map VisitIdentifier (Set Identifier)- alternatives:- alternative Cons:- child hd : ENonterminal - child tl : ENonterminals - alternative Nil:--}--- cata-sem_ENonterminals :: ENonterminals ->- T_ENonterminals-sem_ENonterminals list =- (Prelude.foldr sem_ENonterminals_Cons sem_ENonterminals_Nil (Prelude.map sem_ENonterminal list))--- semantic domain-newtype T_ENonterminals = T_ENonterminals ((Map VisitIdentifier (Int,Int)) ->- (Map NontermIdent Int) ->- (Map VisitIdentifier VisitKind) ->- (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))) ->- (Map VisitIdentifier (Set Identifier)) ->- (Map VisitIdentifier (Set Identifier)) ->- Derivings ->- PP_Doc ->- (Map NontermIdent Attributes) ->- (Map NontermIdent (Map ConstructorIdent (Map Identifier Type))) ->- String ->- String ->- (String -> String -> String -> Bool -> String) ->- Options ->- String ->- (Map NontermIdent Attributes) ->- PP_Doc ->- TypeSyns ->- (Set NontermIdent) ->- ( ([PP_Doc]),([PP_Doc]),(Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),(Seq Error),(Map VisitIdentifier (Int,Int)),(IO ()),([PP_Doc]),(Map NontermIdent Int),PP_Doc,(Seq PP_Doc),(Seq PP_Doc),(Map VisitIdentifier VisitKind),(Map VisitIdentifier (Set Identifier)),(Map VisitIdentifier (Set Identifier))))-data Inh_ENonterminals = Inh_ENonterminals {allFromToStates_Inh_ENonterminals :: (Map VisitIdentifier (Int,Int)),allInitStates_Inh_ENonterminals :: (Map NontermIdent Int),allVisitKinds_Inh_ENonterminals :: (Map VisitIdentifier VisitKind),allchildvisit_Inh_ENonterminals :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),avisitdefs_Inh_ENonterminals :: (Map VisitIdentifier (Set Identifier)),avisituses_Inh_ENonterminals :: (Map VisitIdentifier (Set Identifier)),derivings_Inh_ENonterminals :: Derivings,importBlocks_Inh_ENonterminals :: PP_Doc,inhmap_Inh_ENonterminals :: (Map NontermIdent Attributes),localAttrTypes_Inh_ENonterminals :: (Map NontermIdent (Map ConstructorIdent (Map Identifier Type))),mainFile_Inh_ENonterminals :: String,mainName_Inh_ENonterminals :: String,moduleHeader_Inh_ENonterminals :: (String -> String -> String -> Bool -> String),options_Inh_ENonterminals :: Options,pragmaBlocks_Inh_ENonterminals :: String,synmap_Inh_ENonterminals :: (Map NontermIdent Attributes),textBlocks_Inh_ENonterminals :: PP_Doc,typeSyns_Inh_ENonterminals :: TypeSyns,wrappers_Inh_ENonterminals :: (Set NontermIdent)}-data Syn_ENonterminals = Syn_ENonterminals {appendCommon_Syn_ENonterminals :: ([PP_Doc]),appendMain_Syn_ENonterminals :: ([PP_Doc]),childvisit_Syn_ENonterminals :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),errors_Syn_ENonterminals :: (Seq Error),fromToStates_Syn_ENonterminals :: (Map VisitIdentifier (Int,Int)),genProdIO_Syn_ENonterminals :: (IO ()),imports_Syn_ENonterminals :: ([PP_Doc]),initStates_Syn_ENonterminals :: (Map NontermIdent Int),output_Syn_ENonterminals :: PP_Doc,semFunBndDefs_Syn_ENonterminals :: (Seq PP_Doc),semFunBndTps_Syn_ENonterminals :: (Seq PP_Doc),visitKinds_Syn_ENonterminals :: (Map VisitIdentifier VisitKind),visitdefs_Syn_ENonterminals :: (Map VisitIdentifier (Set Identifier)),visituses_Syn_ENonterminals :: (Map VisitIdentifier (Set Identifier))}-wrap_ENonterminals :: T_ENonterminals ->- Inh_ENonterminals ->- Syn_ENonterminals-wrap_ENonterminals (T_ENonterminals sem) (Inh_ENonterminals _lhsIallFromToStates _lhsIallInitStates _lhsIallVisitKinds _lhsIallchildvisit _lhsIavisitdefs _lhsIavisituses _lhsIderivings _lhsIimportBlocks _lhsIinhmap _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsIoptions _lhsIpragmaBlocks _lhsIsynmap _lhsItextBlocks _lhsItypeSyns _lhsIwrappers) =- (let ( _lhsOappendCommon,_lhsOappendMain,_lhsOchildvisit,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOinitStates,_lhsOoutput,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses) = sem _lhsIallFromToStates _lhsIallInitStates _lhsIallVisitKinds _lhsIallchildvisit _lhsIavisitdefs _lhsIavisituses _lhsIderivings _lhsIimportBlocks _lhsIinhmap _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsIoptions _lhsIpragmaBlocks _lhsIsynmap _lhsItextBlocks _lhsItypeSyns _lhsIwrappers- in (Syn_ENonterminals _lhsOappendCommon _lhsOappendMain _lhsOchildvisit _lhsOerrors _lhsOfromToStates _lhsOgenProdIO _lhsOimports _lhsOinitStates _lhsOoutput _lhsOsemFunBndDefs _lhsOsemFunBndTps _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses))-sem_ENonterminals_Cons :: T_ENonterminal ->- T_ENonterminals ->- T_ENonterminals-sem_ENonterminals_Cons (T_ENonterminal hd_) (T_ENonterminals tl_) =- (T_ENonterminals (\ _lhsIallFromToStates- _lhsIallInitStates- _lhsIallVisitKinds- _lhsIallchildvisit- _lhsIavisitdefs- _lhsIavisituses- _lhsIderivings- _lhsIimportBlocks- _lhsIinhmap- _lhsIlocalAttrTypes- _lhsImainFile- _lhsImainName- _lhsImoduleHeader- _lhsIoptions- _lhsIpragmaBlocks- _lhsIsynmap- _lhsItextBlocks- _lhsItypeSyns- _lhsIwrappers ->- (let _lhsOappendCommon :: ([PP_Doc])- _lhsOappendMain :: ([PP_Doc])- _lhsOchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _lhsOerrors :: (Seq Error)- _lhsOfromToStates :: (Map VisitIdentifier (Int,Int))- _lhsOgenProdIO :: (IO ())- _lhsOimports :: ([PP_Doc])- _lhsOinitStates :: (Map NontermIdent Int)- _lhsOoutput :: PP_Doc- _lhsOsemFunBndDefs :: (Seq PP_Doc)- _lhsOsemFunBndTps :: (Seq PP_Doc)- _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)- _lhsOvisitdefs :: (Map VisitIdentifier (Set Identifier))- _lhsOvisituses :: (Map VisitIdentifier (Set Identifier))- _hdOallFromToStates :: (Map VisitIdentifier (Int,Int))- _hdOallInitStates :: (Map NontermIdent Int)- _hdOallVisitKinds :: (Map VisitIdentifier VisitKind)- _hdOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _hdOavisitdefs :: (Map VisitIdentifier (Set Identifier))- _hdOavisituses :: (Map VisitIdentifier (Set Identifier))- _hdOderivings :: Derivings- _hdOimportBlocks :: PP_Doc- _hdOinhmap :: (Map NontermIdent Attributes)- _hdOlocalAttrTypes :: (Map NontermIdent (Map ConstructorIdent (Map Identifier Type)))- _hdOmainFile :: String- _hdOmainName :: String- _hdOmoduleHeader :: (String -> String -> String -> Bool -> String)- _hdOoptions :: Options- _hdOpragmaBlocks :: String- _hdOsynmap :: (Map NontermIdent Attributes)- _hdOtextBlocks :: PP_Doc- _hdOtypeSyns :: TypeSyns- _hdOwrappers :: (Set NontermIdent)- _tlOallFromToStates :: (Map VisitIdentifier (Int,Int))- _tlOallInitStates :: (Map NontermIdent Int)- _tlOallVisitKinds :: (Map VisitIdentifier VisitKind)- _tlOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _tlOavisitdefs :: (Map VisitIdentifier (Set Identifier))- _tlOavisituses :: (Map VisitIdentifier (Set Identifier))- _tlOderivings :: Derivings- _tlOimportBlocks :: PP_Doc- _tlOinhmap :: (Map NontermIdent Attributes)- _tlOlocalAttrTypes :: (Map NontermIdent (Map ConstructorIdent (Map Identifier Type)))- _tlOmainFile :: String- _tlOmainName :: String- _tlOmoduleHeader :: (String -> String -> String -> Bool -> String)- _tlOoptions :: Options- _tlOpragmaBlocks :: String- _tlOsynmap :: (Map NontermIdent Attributes)- _tlOtextBlocks :: PP_Doc- _tlOtypeSyns :: TypeSyns- _tlOwrappers :: (Set NontermIdent)- _hdIappendCommon :: ( PP_Doc )- _hdIappendMain :: ( PP_Doc )- _hdIchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _hdIerrors :: (Seq Error)- _hdIfromToStates :: (Map VisitIdentifier (Int,Int))- _hdIgenProdIO :: (IO ())- _hdIimports :: ([PP_Doc])- _hdIinitStates :: (Map NontermIdent Int)- _hdIoutput :: PP_Doc- _hdIsemFunBndDefs :: (Seq PP_Doc)- _hdIsemFunBndTps :: (Seq PP_Doc)- _hdIvisitKinds :: (Map VisitIdentifier VisitKind)- _hdIvisitdefs :: (Map VisitIdentifier (Set Identifier))- _hdIvisituses :: (Map VisitIdentifier (Set Identifier))- _tlIappendCommon :: ([PP_Doc])- _tlIappendMain :: ([PP_Doc])- _tlIchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _tlIerrors :: (Seq Error)- _tlIfromToStates :: (Map VisitIdentifier (Int,Int))- _tlIgenProdIO :: (IO ())- _tlIimports :: ([PP_Doc])- _tlIinitStates :: (Map NontermIdent Int)- _tlIoutput :: PP_Doc- _tlIsemFunBndDefs :: (Seq PP_Doc)- _tlIsemFunBndTps :: (Seq PP_Doc)- _tlIvisitKinds :: (Map VisitIdentifier VisitKind)- _tlIvisitdefs :: (Map VisitIdentifier (Set Identifier))- _tlIvisituses :: (Map VisitIdentifier (Set Identifier))- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1447, column 51)- _lhsOappendCommon =- ({-# LINE 1447 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIappendCommon : _tlIappendCommon- {-# LINE 2147 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1447, column 51)- _lhsOappendMain =- ({-# LINE 1447 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIappendMain : _tlIappendMain- {-# LINE 2153 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1187, column 37)- _lhsOchildvisit =- ({-# LINE 1187 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIchildvisit `Map.union` _tlIchildvisit- {-# LINE 2159 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)- _lhsOerrors =- ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 2165 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1544, column 22)- _lhsOfromToStates =- ({-# LINE 1544 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIfromToStates `mappend` _tlIfromToStates- {-# LINE 2171 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1464, column 49)- _lhsOgenProdIO =- ({-# LINE 1464 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIgenProdIO >> _tlIgenProdIO- {-# LINE 2177 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1463, column 47)- _lhsOimports =- ({-# LINE 1463 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIimports ++ _tlIimports- {-# LINE 2183 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1603, column 50)- _lhsOinitStates =- ({-# LINE 1603 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIinitStates `mappend` _tlIinitStates- {-# LINE 2189 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 90, column 45)- _lhsOoutput =- ({-# LINE 90 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIoutput >-< _tlIoutput- {-# LINE 2195 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 515, column 92)- _lhsOsemFunBndDefs =- ({-# LINE 515 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIsemFunBndDefs Seq.>< _tlIsemFunBndDefs- {-# LINE 2201 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 515, column 92)- _lhsOsemFunBndTps =- ({-# LINE 515 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIsemFunBndTps Seq.>< _tlIsemFunBndTps- {-# LINE 2207 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)- _lhsOvisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIvisitKinds `mappend` _tlIvisitKinds- {-# LINE 2213 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1322, column 36)- _lhsOvisitdefs =- ({-# LINE 1322 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIvisitdefs `uwSetUnion` _tlIvisitdefs- {-# LINE 2219 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1323, column 36)- _lhsOvisituses =- ({-# LINE 1323 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIvisituses `uwSetUnion` _tlIvisituses- {-# LINE 2225 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallFromToStates =- ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallFromToStates- {-# LINE 2231 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallInitStates =- ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInitStates- {-# LINE 2237 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallVisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallVisitKinds- {-# LINE 2243 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallchildvisit =- ({-# LINE 1186 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallchildvisit- {-# LINE 2249 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOavisitdefs =- ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisitdefs- {-# LINE 2255 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOavisituses =- ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisituses- {-# LINE 2261 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOderivings =- ({-# LINE 129 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIderivings- {-# LINE 2267 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOimportBlocks =- ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIimportBlocks- {-# LINE 2273 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOinhmap =- ({-# LINE 312 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinhmap- {-# LINE 2279 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOlocalAttrTypes =- ({-# LINE 1576 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIlocalAttrTypes- {-# LINE 2285 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOmainFile =- ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainFile- {-# LINE 2291 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOmainName =- ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainName- {-# LINE 2297 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOmoduleHeader =- ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImoduleHeader- {-# LINE 2303 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 2309 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOpragmaBlocks =- ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIpragmaBlocks- {-# LINE 2315 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOsynmap =- ({-# LINE 313 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIsynmap- {-# LINE 2321 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOtextBlocks =- ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsItextBlocks- {-# LINE 2327 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOtypeSyns =- ({-# LINE 128 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsItypeSyns- {-# LINE 2333 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOwrappers =- ({-# LINE 89 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIwrappers- {-# LINE 2339 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallFromToStates =- ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallFromToStates- {-# LINE 2345 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallInitStates =- ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInitStates- {-# LINE 2351 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallVisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallVisitKinds- {-# LINE 2357 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallchildvisit =- ({-# LINE 1186 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallchildvisit- {-# LINE 2363 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOavisitdefs =- ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisitdefs- {-# LINE 2369 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOavisituses =- ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisituses- {-# LINE 2375 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOderivings =- ({-# LINE 129 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIderivings- {-# LINE 2381 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOimportBlocks =- ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIimportBlocks- {-# LINE 2387 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOinhmap =- ({-# LINE 312 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinhmap- {-# LINE 2393 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOlocalAttrTypes =- ({-# LINE 1576 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIlocalAttrTypes- {-# LINE 2399 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOmainFile =- ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainFile- {-# LINE 2405 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOmainName =- ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainName- {-# LINE 2411 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOmoduleHeader =- ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImoduleHeader- {-# LINE 2417 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 2423 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOpragmaBlocks =- ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIpragmaBlocks- {-# LINE 2429 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOsynmap =- ({-# LINE 313 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIsynmap- {-# LINE 2435 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOtextBlocks =- ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsItextBlocks- {-# LINE 2441 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOtypeSyns =- ({-# LINE 128 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsItypeSyns- {-# LINE 2447 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOwrappers =- ({-# LINE 89 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIwrappers- {-# LINE 2453 "dist/build/ExecutionPlan2Hs" #-}- )- ( _hdIappendCommon,_hdIappendMain,_hdIchildvisit,_hdIerrors,_hdIfromToStates,_hdIgenProdIO,_hdIimports,_hdIinitStates,_hdIoutput,_hdIsemFunBndDefs,_hdIsemFunBndTps,_hdIvisitKinds,_hdIvisitdefs,_hdIvisituses) =- hd_ _hdOallFromToStates _hdOallInitStates _hdOallVisitKinds _hdOallchildvisit _hdOavisitdefs _hdOavisituses _hdOderivings _hdOimportBlocks _hdOinhmap _hdOlocalAttrTypes _hdOmainFile _hdOmainName _hdOmoduleHeader _hdOoptions _hdOpragmaBlocks _hdOsynmap _hdOtextBlocks _hdOtypeSyns _hdOwrappers- ( _tlIappendCommon,_tlIappendMain,_tlIchildvisit,_tlIerrors,_tlIfromToStates,_tlIgenProdIO,_tlIimports,_tlIinitStates,_tlIoutput,_tlIsemFunBndDefs,_tlIsemFunBndTps,_tlIvisitKinds,_tlIvisitdefs,_tlIvisituses) =- tl_ _tlOallFromToStates _tlOallInitStates _tlOallVisitKinds _tlOallchildvisit _tlOavisitdefs _tlOavisituses _tlOderivings _tlOimportBlocks _tlOinhmap _tlOlocalAttrTypes _tlOmainFile _tlOmainName _tlOmoduleHeader _tlOoptions _tlOpragmaBlocks _tlOsynmap _tlOtextBlocks _tlOtypeSyns _tlOwrappers- in ( _lhsOappendCommon,_lhsOappendMain,_lhsOchildvisit,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOinitStates,_lhsOoutput,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses))))-sem_ENonterminals_Nil :: T_ENonterminals-sem_ENonterminals_Nil =- (T_ENonterminals (\ _lhsIallFromToStates- _lhsIallInitStates- _lhsIallVisitKinds- _lhsIallchildvisit- _lhsIavisitdefs- _lhsIavisituses- _lhsIderivings- _lhsIimportBlocks- _lhsIinhmap- _lhsIlocalAttrTypes- _lhsImainFile- _lhsImainName- _lhsImoduleHeader- _lhsIoptions- _lhsIpragmaBlocks- _lhsIsynmap- _lhsItextBlocks- _lhsItypeSyns- _lhsIwrappers ->- (let _lhsOappendCommon :: ([PP_Doc])- _lhsOappendMain :: ([PP_Doc])- _lhsOchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _lhsOerrors :: (Seq Error)- _lhsOfromToStates :: (Map VisitIdentifier (Int,Int))- _lhsOgenProdIO :: (IO ())- _lhsOimports :: ([PP_Doc])- _lhsOinitStates :: (Map NontermIdent Int)- _lhsOoutput :: PP_Doc- _lhsOsemFunBndDefs :: (Seq PP_Doc)- _lhsOsemFunBndTps :: (Seq PP_Doc)- _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)- _lhsOvisitdefs :: (Map VisitIdentifier (Set Identifier))- _lhsOvisituses :: (Map VisitIdentifier (Set Identifier))- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1447, column 51)- _lhsOappendCommon =- ({-# LINE 1447 "src-ag/ExecutionPlan2Hs.ag" #-}- []- {-# LINE 2499 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1447, column 51)- _lhsOappendMain =- ({-# LINE 1447 "src-ag/ExecutionPlan2Hs.ag" #-}- []- {-# LINE 2505 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1187, column 37)- _lhsOchildvisit =- ({-# LINE 1187 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 2511 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)- _lhsOerrors =- ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}- Seq.empty- {-# LINE 2517 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1544, column 22)- _lhsOfromToStates =- ({-# LINE 1544 "src-ag/ExecutionPlan2Hs.ag" #-}- mempty- {-# LINE 2523 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1464, column 49)- _lhsOgenProdIO =- ({-# LINE 1464 "src-ag/ExecutionPlan2Hs.ag" #-}- return ()- {-# LINE 2529 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1463, column 47)- _lhsOimports =- ({-# LINE 1463 "src-ag/ExecutionPlan2Hs.ag" #-}- []- {-# LINE 2535 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1603, column 50)- _lhsOinitStates =- ({-# LINE 1603 "src-ag/ExecutionPlan2Hs.ag" #-}- mempty- {-# LINE 2541 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 90, column 45)- _lhsOoutput =- ({-# LINE 90 "src-ag/ExecutionPlan2Hs.ag" #-}- empty- {-# LINE 2547 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 515, column 92)- _lhsOsemFunBndDefs =- ({-# LINE 515 "src-ag/ExecutionPlan2Hs.ag" #-}- Seq.empty- {-# LINE 2553 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 515, column 92)- _lhsOsemFunBndTps =- ({-# LINE 515 "src-ag/ExecutionPlan2Hs.ag" #-}- Seq.empty- {-# LINE 2559 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)- _lhsOvisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- mempty- {-# LINE 2565 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1322, column 36)- _lhsOvisitdefs =- ({-# LINE 1322 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 2571 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1323, column 36)- _lhsOvisituses =- ({-# LINE 1323 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 2577 "dist/build/ExecutionPlan2Hs" #-}- )- in ( _lhsOappendCommon,_lhsOappendMain,_lhsOchildvisit,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOinitStates,_lhsOoutput,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses))))--- EProduction --------------------------------------------------{-- visit 0:- inherited attributes:- allFromToStates : Map VisitIdentifier (Int,Int)- allInhmap : Map NontermIdent Attributes- allInitStates : Map NontermIdent Int- allSynmap : Map NontermIdent Attributes- allVisitKinds : Map VisitIdentifier VisitKind- allchildvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))- allstates : Set StateIdentifier- avisitdefs : Map VisitIdentifier (Set Identifier)- avisituses : Map VisitIdentifier (Set Identifier)- classCtxs : ClassContext- importBlocks : PP_Doc- inhmap : Attributes- initial : StateIdentifier- localAttrTypes : Map ConstructorIdent (Map Identifier Type)- mainFile : String- mainName : String- moduleHeader : String -> String -> String -> Bool -> String- nextVisits : Map StateIdentifier StateCtx- nt : NontermIdent- ntType : Type- options : Options- params : [Identifier]- pragmaBlocks : String- prevVisits : Map StateIdentifier StateCtx- rename : Bool- synmap : Attributes- textBlocks : PP_Doc- synthesized attributes:- allvisits : [VisitStateState]- childvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))- count : Int- datatype : PP_Doc- errors : Seq Error- fromToStates : Map VisitIdentifier (Int,Int)- genProdIO : IO ()- imports : [PP_Doc]- semFunBndDefs : Seq PP_Doc- semFunBndTps : Seq PP_Doc- sem_nt : PP_Doc- sem_prod : PP_Doc- t_visits : PP_Doc- visitKinds : Map VisitIdentifier VisitKind- visitdefs : Map VisitIdentifier (Set Identifier)- visituses : Map VisitIdentifier (Set Identifier)- alternatives:- alternative EProduction:- child con : {ConstructorIdent}- child params : {[Identifier]}- child constraints : {[Type]}- child rules : ERules - child children : EChildren - child visits : Visits - visit 0:- local classPP1 : _- local quantPP1 : _- local semFunBndDef : _- local semFunBndTp : _- local semFunBndNm : _- local t_type : _- local t_params : _- local args : _- local semname : _- local sem_tp : _- local classPP2 : _- local quantPP2 : _- local sem_prod : _- local mkSemBody : _- local mbInitializer : _- local scc : _- local semInlinePragma : _- local outerlet : _- local statefns : _- local genstfn : _- local stargs : _- local stks : _- local stvisits : _- local stvs : _- local lazyIntras : _- local moduleName : _- local suffix : _- local outputfile : _- local ppMonadImports : _- local addbang : _- local childTypes : _- local localAttrTypes : _--}--- cata-sem_EProduction :: EProduction ->- T_EProduction-sem_EProduction (EProduction _con _params _constraints _rules _children _visits) =- (sem_EProduction_EProduction _con _params _constraints (sem_ERules _rules) (sem_EChildren _children) (sem_Visits _visits))--- semantic domain-newtype T_EProduction = T_EProduction ((Map VisitIdentifier (Int,Int)) ->- (Map NontermIdent Attributes) ->- (Map NontermIdent Int) ->- (Map NontermIdent Attributes) ->- (Map VisitIdentifier VisitKind) ->- (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))) ->- (Set StateIdentifier) ->- (Map VisitIdentifier (Set Identifier)) ->- (Map VisitIdentifier (Set Identifier)) ->- ClassContext ->- PP_Doc ->- Attributes ->- StateIdentifier ->- (Map ConstructorIdent (Map Identifier Type)) ->- String ->- String ->- (String -> String -> String -> Bool -> String) ->- (Map StateIdentifier StateCtx) ->- NontermIdent ->- Type ->- Options ->- ([Identifier]) ->- String ->- (Map StateIdentifier StateCtx) ->- Bool ->- Attributes ->- PP_Doc ->- ( ([VisitStateState]),(Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),Int,PP_Doc,(Seq Error),(Map VisitIdentifier (Int,Int)),(IO ()),([PP_Doc]),(Seq PP_Doc),(Seq PP_Doc),PP_Doc,PP_Doc,PP_Doc,(Map VisitIdentifier VisitKind),(Map VisitIdentifier (Set Identifier)),(Map VisitIdentifier (Set Identifier))))-data Inh_EProduction = Inh_EProduction {allFromToStates_Inh_EProduction :: (Map VisitIdentifier (Int,Int)),allInhmap_Inh_EProduction :: (Map NontermIdent Attributes),allInitStates_Inh_EProduction :: (Map NontermIdent Int),allSynmap_Inh_EProduction :: (Map NontermIdent Attributes),allVisitKinds_Inh_EProduction :: (Map VisitIdentifier VisitKind),allchildvisit_Inh_EProduction :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),allstates_Inh_EProduction :: (Set StateIdentifier),avisitdefs_Inh_EProduction :: (Map VisitIdentifier (Set Identifier)),avisituses_Inh_EProduction :: (Map VisitIdentifier (Set Identifier)),classCtxs_Inh_EProduction :: ClassContext,importBlocks_Inh_EProduction :: PP_Doc,inhmap_Inh_EProduction :: Attributes,initial_Inh_EProduction :: StateIdentifier,localAttrTypes_Inh_EProduction :: (Map ConstructorIdent (Map Identifier Type)),mainFile_Inh_EProduction :: String,mainName_Inh_EProduction :: String,moduleHeader_Inh_EProduction :: (String -> String -> String -> Bool -> String),nextVisits_Inh_EProduction :: (Map StateIdentifier StateCtx),nt_Inh_EProduction :: NontermIdent,ntType_Inh_EProduction :: Type,options_Inh_EProduction :: Options,params_Inh_EProduction :: ([Identifier]),pragmaBlocks_Inh_EProduction :: String,prevVisits_Inh_EProduction :: (Map StateIdentifier StateCtx),rename_Inh_EProduction :: Bool,synmap_Inh_EProduction :: Attributes,textBlocks_Inh_EProduction :: PP_Doc}-data Syn_EProduction = Syn_EProduction {allvisits_Syn_EProduction :: ([VisitStateState]),childvisit_Syn_EProduction :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),count_Syn_EProduction :: Int,datatype_Syn_EProduction :: PP_Doc,errors_Syn_EProduction :: (Seq Error),fromToStates_Syn_EProduction :: (Map VisitIdentifier (Int,Int)),genProdIO_Syn_EProduction :: (IO ()),imports_Syn_EProduction :: ([PP_Doc]),semFunBndDefs_Syn_EProduction :: (Seq PP_Doc),semFunBndTps_Syn_EProduction :: (Seq PP_Doc),sem_nt_Syn_EProduction :: PP_Doc,sem_prod_Syn_EProduction :: PP_Doc,t_visits_Syn_EProduction :: PP_Doc,visitKinds_Syn_EProduction :: (Map VisitIdentifier VisitKind),visitdefs_Syn_EProduction :: (Map VisitIdentifier (Set Identifier)),visituses_Syn_EProduction :: (Map VisitIdentifier (Set Identifier))}-wrap_EProduction :: T_EProduction ->- Inh_EProduction ->- Syn_EProduction-wrap_EProduction (T_EProduction sem) (Inh_EProduction _lhsIallFromToStates _lhsIallInhmap _lhsIallInitStates _lhsIallSynmap _lhsIallVisitKinds _lhsIallchildvisit _lhsIallstates _lhsIavisitdefs _lhsIavisituses _lhsIclassCtxs _lhsIimportBlocks _lhsIinhmap _lhsIinitial _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInextVisits _lhsInt _lhsIntType _lhsIoptions _lhsIparams _lhsIpragmaBlocks _lhsIprevVisits _lhsIrename _lhsIsynmap _lhsItextBlocks) =- (let ( _lhsOallvisits,_lhsOchildvisit,_lhsOcount,_lhsOdatatype,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOsem_nt,_lhsOsem_prod,_lhsOt_visits,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses) = sem _lhsIallFromToStates _lhsIallInhmap _lhsIallInitStates _lhsIallSynmap _lhsIallVisitKinds _lhsIallchildvisit _lhsIallstates _lhsIavisitdefs _lhsIavisituses _lhsIclassCtxs _lhsIimportBlocks _lhsIinhmap _lhsIinitial _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInextVisits _lhsInt _lhsIntType _lhsIoptions _lhsIparams _lhsIpragmaBlocks _lhsIprevVisits _lhsIrename _lhsIsynmap _lhsItextBlocks- in (Syn_EProduction _lhsOallvisits _lhsOchildvisit _lhsOcount _lhsOdatatype _lhsOerrors _lhsOfromToStates _lhsOgenProdIO _lhsOimports _lhsOsemFunBndDefs _lhsOsemFunBndTps _lhsOsem_nt _lhsOsem_prod _lhsOt_visits _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses))-sem_EProduction_EProduction :: ConstructorIdent ->- ([Identifier]) ->- ([Type]) ->- T_ERules ->- T_EChildren ->- T_Visits ->- T_EProduction-sem_EProduction_EProduction con_ params_ constraints_ (T_ERules rules_) (T_EChildren children_) (T_Visits visits_) =- (T_EProduction (\ _lhsIallFromToStates- _lhsIallInhmap- _lhsIallInitStates- _lhsIallSynmap- _lhsIallVisitKinds- _lhsIallchildvisit- _lhsIallstates- _lhsIavisitdefs- _lhsIavisituses- _lhsIclassCtxs- _lhsIimportBlocks- _lhsIinhmap- _lhsIinitial- _lhsIlocalAttrTypes- _lhsImainFile- _lhsImainName- _lhsImoduleHeader- _lhsInextVisits- _lhsInt- _lhsIntType- _lhsIoptions- _lhsIparams- _lhsIpragmaBlocks- _lhsIprevVisits- _lhsIrename- _lhsIsynmap- _lhsItextBlocks ->- (let _childrenOcon :: ConstructorIdent- _rulesOcon :: ConstructorIdent- _visitsOcon :: ConstructorIdent- _lhsOdatatype :: PP_Doc- _lhsOcount :: Int- _lhsOsem_nt :: PP_Doc- _lhsOsemFunBndDefs :: (Seq PP_Doc)- _lhsOsemFunBndTps :: (Seq PP_Doc)- _visitsOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))- _visitsOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))- _rulesOusageInfo :: (Map Identifier Int)- _rulesOruleKinds :: (Map Identifier (Set VisitKind))- _visitsOallintramap :: (Map StateIdentifier (Map String (Maybe NonLocalAttr)))- _visitsOterminaldefs :: (Set String)- _visitsOruledefs :: (Map Identifier (Set String))- _visitsOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))- _lhsOimports :: ([PP_Doc])- _lhsOgenProdIO :: (IO ())- _lhsOchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _lhsOerrors :: (Seq Error)- _lhsOfromToStates :: (Map VisitIdentifier (Int,Int))- _lhsOt_visits :: PP_Doc- _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)- _lhsOvisitdefs :: (Map VisitIdentifier (Set Identifier))- _lhsOvisituses :: (Map VisitIdentifier (Set Identifier))- _lhsOallvisits :: ([VisitStateState])- _lhsOsem_prod :: PP_Doc- _rulesOallInhmap :: (Map NontermIdent Attributes)- _rulesOallSynmap :: (Map NontermIdent Attributes)- _rulesOchildTypes :: (Map Identifier Type)- _rulesOimportBlocks :: PP_Doc- _rulesOinhmap :: Attributes- _rulesOlazyIntras :: (Set String)- _rulesOlocalAttrTypes :: (Map Identifier Type)- _rulesOmainFile :: String- _rulesOmainName :: String- _rulesOmoduleHeader :: (String -> String -> String -> Bool -> String)- _rulesOnt :: NontermIdent- _rulesOoptions :: Options- _rulesOpragmaBlocks :: String- _rulesOsynmap :: Attributes- _rulesOtextBlocks :: PP_Doc- _childrenOallInitStates :: (Map NontermIdent Int)- _childrenOimportBlocks :: PP_Doc- _childrenOmainFile :: String- _childrenOmainName :: String- _childrenOmoduleHeader :: (String -> String -> String -> Bool -> String)- _childrenOnt :: NontermIdent- _childrenOoptions :: Options- _childrenOpragmaBlocks :: String- _childrenOtextBlocks :: PP_Doc- _visitsOallFromToStates :: (Map VisitIdentifier (Int,Int))- _visitsOallInhmap :: (Map NontermIdent Attributes)- _visitsOallInitStates :: (Map NontermIdent Int)- _visitsOallSynmap :: (Map NontermIdent Attributes)- _visitsOallVisitKinds :: (Map VisitIdentifier VisitKind)- _visitsOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _visitsOavisitdefs :: (Map VisitIdentifier (Set Identifier))- _visitsOavisituses :: (Map VisitIdentifier (Set Identifier))- _visitsOchildTypes :: (Map Identifier Type)- _visitsOinhmap :: Attributes- _visitsOnextVisits :: (Map StateIdentifier StateCtx)- _visitsOnt :: NontermIdent- _visitsOoptions :: Options- _visitsOparams :: ([Identifier])- _visitsOprevVisits :: (Map StateIdentifier StateCtx)- _visitsOsynmap :: Attributes- _rulesIerrors :: (Seq Error)- _rulesImrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))- _rulesIruledefs :: (Map Identifier (Set String))- _rulesIruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))- _rulesIsem_rules :: PP_Doc- _childrenIargnamesw :: ([PP_Doc])- _childrenIargpats :: ( [PP_Doc] )- _childrenIargtps :: ( [PP_Doc] )- _childrenIchildTypes :: (Map Identifier Type)- _childrenIchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))- _childrenIdatatype :: ([PP_Doc])- _childrenIterminaldefs :: (Set String)- _visitsIallvisits :: ([VisitStateState])- _visitsIchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _visitsIerrors :: (Seq Error)- _visitsIfromToStates :: (Map VisitIdentifier (Int,Int))- _visitsIintramap :: (Map StateIdentifier (Map String (Maybe NonLocalAttr)))- _visitsIlazyIntras :: (Set String)- _visitsIruleKinds :: (Map Identifier (Set VisitKind))- _visitsIruleUsage :: (Map Identifier Int)- _visitsIsem_visit :: ( [(StateIdentifier,Bool -> PP_Doc)] )- _visitsIt_visits :: PP_Doc- _visitsIvisitKinds :: (Map VisitIdentifier VisitKind)- _visitsIvisitdefs :: (Map VisitIdentifier (Set Identifier))- _visitsIvisituses :: (Map VisitIdentifier (Set Identifier))- -- "src-ag/ExecutionPlan2Hs.ag"(line 69, column 17)- _childrenOcon =- ({-# LINE 69 "src-ag/ExecutionPlan2Hs.ag" #-}- con_- {-# LINE 2843 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 70, column 17)- _rulesOcon =- ({-# LINE 70 "src-ag/ExecutionPlan2Hs.ag" #-}- con_- {-# LINE 2849 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 71, column 17)- _visitsOcon =- ({-# LINE 71 "src-ag/ExecutionPlan2Hs.ag" #-}- con_- {-# LINE 2855 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 184, column 17)- _lhsOdatatype =- ({-# LINE 184 "src-ag/ExecutionPlan2Hs.ag" #-}- _quantPP1 >#< _classPP1- >#< conname _lhsIrename _lhsInt con_- >#< ppConFields (dataRecords _lhsIoptions) _childrenIdatatype- {-# LINE 2863 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 187, column 17)- _classPP1 =- ({-# LINE 187 "src-ag/ExecutionPlan2Hs.ag" #-}- ppClasses (classConstrsToDocs constraints_)- {-# LINE 2869 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 188, column 17)- _quantPP1 =- ({-# LINE 188 "src-ag/ExecutionPlan2Hs.ag" #-}- ppQuants params_- {-# LINE 2875 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 289, column 32)- _lhsOcount =- ({-# LINE 289 "src-ag/ExecutionPlan2Hs.ag" #-}- 1- {-# LINE 2881 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 294, column 17)- _lhsOsem_nt =- ({-# LINE 294 "src-ag/ExecutionPlan2Hs.ag" #-}- "sem_" >|< _lhsInt >#< "(" >#< conname _lhsIrename _lhsInt con_ >#< ppSpaced _childrenIargpats >#< ")"- >#< "=" >#< "sem_" >|< _lhsInt >|< "_" >|< con_ >#< ppSpaced _childrenIargnamesw- {-# LINE 2888 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 524, column 3)- _lhsOsemFunBndDefs =- ({-# LINE 524 "src-ag/ExecutionPlan2Hs.ag" #-}- Seq.singleton _semFunBndDef- {-# LINE 2894 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 525, column 3)- _lhsOsemFunBndTps =- ({-# LINE 525 "src-ag/ExecutionPlan2Hs.ag" #-}- Seq.singleton _semFunBndTp- {-# LINE 2900 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 526, column 3)- _semFunBndDef =- ({-# LINE 526 "src-ag/ExecutionPlan2Hs.ag" #-}- _semFunBndNm >#< "=" >#< _semname- {-# LINE 2906 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 527, column 3)- _semFunBndTp =- ({-# LINE 527 "src-ag/ExecutionPlan2Hs.ag" #-}- _semFunBndNm >#< "::" >#< _sem_tp- {-# LINE 2912 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 528, column 3)- _semFunBndNm =- ({-# LINE 528 "src-ag/ExecutionPlan2Hs.ag" #-}- lateSemConLabel _lhsInt con_- {-# LINE 2918 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 586, column 17)- _t_type =- ({-# LINE 586 "src-ag/ExecutionPlan2Hs.ag" #-}- "T_" >|< _lhsInt- {-# LINE 2924 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 587, column 17)- _t_params =- ({-# LINE 587 "src-ag/ExecutionPlan2Hs.ag" #-}- ppSpaced _lhsIparams- {-# LINE 2930 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 588, column 17)- _args =- ({-# LINE 588 "src-ag/ExecutionPlan2Hs.ag" #-}- _childrenIargpats- {-# LINE 2936 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 589, column 17)- _semname =- ({-# LINE 589 "src-ag/ExecutionPlan2Hs.ag" #-}- "sem_" ++ show _lhsInt ++ "_" ++ show con_- {-# LINE 2942 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 590, column 17)- _sem_tp =- ({-# LINE 590 "src-ag/ExecutionPlan2Hs.ag" #-}- _quantPP2 >#< _classPP2 >#< ppSpaced _childrenIargtps >#< _t_type >#< _t_params- {-# LINE 2948 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 591, column 17)- _classPP2 =- ({-# LINE 591 "src-ag/ExecutionPlan2Hs.ag" #-}- ppClasses (classCtxsToDocs _lhsIclassCtxs ++ classConstrsToDocs constraints_)- {-# LINE 2954 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 592, column 17)- _quantPP2 =- ({-# LINE 592 "src-ag/ExecutionPlan2Hs.ag" #-}- ppQuants (_lhsIparams ++ params_)- {-# LINE 2960 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 593, column 17)- _sem_prod =- ({-# LINE 593 "src-ag/ExecutionPlan2Hs.ag" #-}- _semInlinePragma- >-< _semname >#< "::" >#< _sem_tp- >-< _mkSemBody (_semname >#< ppSpaced _args >#< "=" >#< _scc >#< _t_type )- _mbInitializer _outerlet ("return" >#< "st" >|< _lhsIinitial)- {-# LINE 2969 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 597, column 17)- _mkSemBody =- ({-# LINE 597 "src-ag/ExecutionPlan2Hs.ag" #-}- \prefix mbInit outerlet ret ->- case mbInit of- Nothing -> prefix >#< pp_parens ret >#< "where"- >-< indent 3 outerlet- Just m -> prefix >#< "(" >#< "do"- >-< indent 1 (- m- >-< "let"- >-< indent 2 outerlet- >-< ret )- >-< indent 1 ")"- {-# LINE 2985 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 609, column 17)- _mbInitializer =- ({-# LINE 609 "src-ag/ExecutionPlan2Hs.ag" #-}- if parallelInvoke _lhsIoptions- then (Nothing :: Maybe PP_Doc)- else Nothing- {-# LINE 2993 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 615, column 17)- _scc =- ({-# LINE 615 "src-ag/ExecutionPlan2Hs.ag" #-}- if genCostCentres _lhsIoptions- then ppCostCentre _semname- else empty- {-# LINE 3001 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 618, column 17)- _semInlinePragma =- ({-# LINE 618 "src-ag/ExecutionPlan2Hs.ag" #-}- if noInlinePragmas _lhsIoptions- then empty- else ppNoInline _semname- {-# LINE 3009 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 621, column 17)- _outerlet =- ({-# LINE 621 "src-ag/ExecutionPlan2Hs.ag" #-}- vlist _statefns >-< _rulesIsem_rules- {-# LINE 3015 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 622, column 17)- _statefns =- ({-# LINE 622 "src-ag/ExecutionPlan2Hs.ag" #-}- map _genstfn $ Set.toList _lhsIallstates- {-# LINE 3021 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 623, column 17)- _genstfn =- ({-# LINE 623 "src-ag/ExecutionPlan2Hs.ag" #-}- \st -> let nextVisitInfo = Map.findWithDefault ManyVis st _lhsInextVisits- prevVisitInfo = Map.findWithDefault ManyVis st _lhsIprevVisits- stNm = "st" >|< st- lhs = pragma >-< bang stNm >#< "=" >#<- (- if st == _lhsIinitial- then empty- else "\\" >#< _stargs st >#< "->"- )- pragma = if noInlinePragmas _lhsIoptions- then empty- else if helpInlining _lhsIoptions- then case prevVisitInfo of- ManyVis -> ppNoInline stNm- OneVis _ -> if aggressiveInlinePragmas _lhsIoptions- then ppInline stNm- else ppInlinable stNm- NoneVis -> if st /= _lhsIinitial- then error ("State " ++ show st ++ " is not reachable from the initial state.")- else if aggressiveInlinePragmas _lhsIoptions- then ppInline stNm- else ppInlinable stNm- else ppNoInline stNm- cCon = "C_" >|< _lhsInt >|< "_s" >|< st- bang | st == _lhsIinitial = _addbang- | otherwise = id- in case nextVisitInfo of- NoneVis ->- if st == _lhsIinitial- then lhs >#< cCon- else empty- OneVis vId -> mklet lhs (_stvs st False) (cCon >#< "v" >|< vId)- ManyVis -> mklet lhs (_stks st >-< _stvs st True) (cCon >#< "k" >|< st)- {-# LINE 3059 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 665, column 17)- _stargs =- ({-# LINE 665 "src-ag/ExecutionPlan2Hs.ag" #-}- \st -> let attrs = maybe Map.empty id $ Map.lookup st _visitsIintramap- in ppSpaced [ let match | str `Set.member` _lazyIntras = pp str- | otherwise = _addbang (pp str)- in case mbAttr of- Just (AttrSyn child nm) | child == _LOC && not (noPerStateTypeSigs _lhsIoptions) ->- case Map.lookup nm _localAttrTypes of- Just tp -> pp_parens (pp_parens match >#< "::" >#< ppTp tp)- Nothing -> match- Just attr | not (noPerStateTypeSigs _lhsIoptions) ->- case lookupAttrType attr _lhsIallInhmap _lhsIallSynmap _childTypes of- Just tpDoc -> pp_parens (pp_parens match >#< "::" >#< tpDoc)- Nothing -> match- _ -> match- | (str,mbAttr) <- Map.assocs attrs- ] >#< dummyPat _lhsIoptions (Map.null attrs)- {-# LINE 3079 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 681, column 17)- _stks =- ({-# LINE 681 "src-ag/ExecutionPlan2Hs.ag" #-}- \st -> if null (_stvisits st)- then empty- else ( if not (noInlinePragmas _lhsIoptions) && helpInlining _lhsIoptions- then ppNoInline ("k" >|< st)- else empty- )- >-< "k" >|< st >#< "::" >#< "K_" >|< _lhsInt >|< "_s" >|< st >#< "t" >#< "->" >#< "t"- >-< vlist (map (\(v,f,t) -> "k" >|< st >#< "K_" >|< _lhsInt >|< "_v" >|< v >#< "="- >#< "v" >|< v) $ _stvisits st)- {-# LINE 3093 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 690, column 17)- _stvisits =- ({-# LINE 690 "src-ag/ExecutionPlan2Hs.ag" #-}- \st -> filter (\(v,f,t) -> f == st) _visitsIallvisits- {-# LINE 3099 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 691, column 17)- _stvs =- ({-# LINE 691 "src-ag/ExecutionPlan2Hs.ag" #-}- \st inlinePragma -> vlist [ppf inlinePragma | (f,ppf) <- _visitsIsem_visit, f == st]- {-# LINE 3105 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 692, column 17)- _visitsOmrules =- ({-# LINE 692 "src-ag/ExecutionPlan2Hs.ag" #-}- _rulesImrules- {-# LINE 3111 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 896, column 17)- _visitsOchildintros =- ({-# LINE 896 "src-ag/ExecutionPlan2Hs.ag" #-}- _childrenIchildintros- {-# LINE 3117 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1246, column 32)- _rulesOusageInfo =- ({-# LINE 1246 "src-ag/ExecutionPlan2Hs.ag" #-}- _visitsIruleUsage- {-# LINE 3123 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1261, column 3)- _rulesOruleKinds =- ({-# LINE 1261 "src-ag/ExecutionPlan2Hs.ag" #-}- _visitsIruleKinds- {-# LINE 3129 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1290, column 3)- _visitsOallintramap =- ({-# LINE 1290 "src-ag/ExecutionPlan2Hs.ag" #-}- _visitsIintramap- {-# LINE 3135 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1291, column 3)- _visitsOterminaldefs =- ({-# LINE 1291 "src-ag/ExecutionPlan2Hs.ag" #-}- _childrenIterminaldefs- {-# LINE 3141 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1315, column 17)- _visitsOruledefs =- ({-# LINE 1315 "src-ag/ExecutionPlan2Hs.ag" #-}- _rulesIruledefs- {-# LINE 3147 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1316, column 17)- _visitsOruleuses =- ({-# LINE 1316 "src-ag/ExecutionPlan2Hs.ag" #-}- _rulesIruleuses- {-# LINE 3153 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1370, column 3)- _lazyIntras =- ({-# LINE 1370 "src-ag/ExecutionPlan2Hs.ag" #-}- _visitsIlazyIntras- {-# LINE 3159 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1467, column 17)- _lhsOimports =- ({-# LINE 1467 "src-ag/ExecutionPlan2Hs.ag" #-}- [pp $ "import " ++ _moduleName ]- {-# LINE 3165 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1468, column 17)- _moduleName =- ({-# LINE 1468 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainName ++ _suffix- {-# LINE 3171 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1469, column 17)- _suffix =- ({-# LINE 1469 "src-ag/ExecutionPlan2Hs.ag" #-}- "_" ++ show _lhsInt ++ "_" ++ show con_- {-# LINE 3177 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1470, column 17)- _outputfile =- ({-# LINE 1470 "src-ag/ExecutionPlan2Hs.ag" #-}- replaceBaseName _lhsImainFile (takeBaseName _lhsImainFile ++ _suffix )- {-# LINE 3183 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1471, column 17)- _ppMonadImports =- ({-# LINE 1471 "src-ag/ExecutionPlan2Hs.ag" #-}- if parallelInvoke _lhsIoptions- then pp "import qualified System.IO.Unsafe(unsafePerformIO)"- >-< pp "import System.IO(IO)"- >-< pp "import Control.Concurrent(newEmptyMVar,forkIO,putMVar,takeMVar)"- else pp "import Control.Monad.Identity"- {-# LINE 3193 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1476, column 17)- _lhsOgenProdIO =- ({-# LINE 1476 "src-ag/ExecutionPlan2Hs.ag" #-}- writeModule _outputfile- [ warrenFlagsPP _lhsIoptions- , pp $ _lhsIpragmaBlocks- , pp $ _lhsImoduleHeader _lhsImainName _suffix _semname True- , _lhsIimportBlocks- , _ppMonadImports- , ( if tupleAsDummyToken _lhsIoptions- then empty- else pp "import GHC.Prim"- )- , pp $ "import " ++ _lhsImainName ++ "_common"- , _sem_prod- ]- {-# LINE 3211 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1517, column 37)- _addbang =- ({-# LINE 1517 "src-ag/ExecutionPlan2Hs.ag" #-}- \x -> if bangpats _lhsIoptions then "!" >|< x else x- {-# LINE 3217 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1567, column 3)- _childTypes =- ({-# LINE 1567 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.singleton _LHS _lhsIntType `Map.union` _childrenIchildTypes- {-# LINE 3223 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1584, column 3)- _localAttrTypes =- ({-# LINE 1584 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.findWithDefault Map.empty con_ _lhsIlocalAttrTypes- {-# LINE 3229 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1187, column 37)- _lhsOchildvisit =- ({-# LINE 1187 "src-ag/ExecutionPlan2Hs.ag" #-}- _visitsIchildvisit- {-# LINE 3235 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)- _lhsOerrors =- ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}- _rulesIerrors Seq.>< _visitsIerrors- {-# LINE 3241 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1544, column 22)- _lhsOfromToStates =- ({-# LINE 1544 "src-ag/ExecutionPlan2Hs.ag" #-}- _visitsIfromToStates- {-# LINE 3247 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 394, column 59)- _lhsOt_visits =- ({-# LINE 394 "src-ag/ExecutionPlan2Hs.ag" #-}- _visitsIt_visits- {-# LINE 3253 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)- _lhsOvisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _visitsIvisitKinds- {-# LINE 3259 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1322, column 36)- _lhsOvisitdefs =- ({-# LINE 1322 "src-ag/ExecutionPlan2Hs.ag" #-}- _visitsIvisitdefs- {-# LINE 3265 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1323, column 36)- _lhsOvisituses =- ({-# LINE 1323 "src-ag/ExecutionPlan2Hs.ag" #-}- _visitsIvisituses- {-# LINE 3271 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (up)- _lhsOallvisits =- ({-# LINE 338 "src-ag/ExecutionPlan2Hs.ag" #-}- _visitsIallvisits- {-# LINE 3277 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (from local)- _lhsOsem_prod =- ({-# LINE 553 "src-ag/ExecutionPlan2Hs.ag" #-}- _sem_prod- {-# LINE 3283 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _rulesOallInhmap =- ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInhmap- {-# LINE 3289 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _rulesOallSynmap =- ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallSynmap- {-# LINE 3295 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (from local)- _rulesOchildTypes =- ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}- _childTypes- {-# LINE 3301 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _rulesOimportBlocks =- ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIimportBlocks- {-# LINE 3307 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _rulesOinhmap =- ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinhmap- {-# LINE 3313 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (from local)- _rulesOlazyIntras =- ({-# LINE 1356 "src-ag/ExecutionPlan2Hs.ag" #-}- _lazyIntras- {-# LINE 3319 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (from local)- _rulesOlocalAttrTypes =- ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}- _localAttrTypes- {-# LINE 3325 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _rulesOmainFile =- ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainFile- {-# LINE 3331 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _rulesOmainName =- ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainName- {-# LINE 3337 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _rulesOmoduleHeader =- ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImoduleHeader- {-# LINE 3343 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _rulesOnt =- ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsInt- {-# LINE 3349 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _rulesOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 3355 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _rulesOpragmaBlocks =- ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIpragmaBlocks- {-# LINE 3361 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _rulesOsynmap =- ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIsynmap- {-# LINE 3367 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _rulesOtextBlocks =- ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsItextBlocks- {-# LINE 3373 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _childrenOallInitStates =- ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInitStates- {-# LINE 3379 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _childrenOimportBlocks =- ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIimportBlocks- {-# LINE 3385 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _childrenOmainFile =- ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainFile- {-# LINE 3391 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _childrenOmainName =- ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainName- {-# LINE 3397 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _childrenOmoduleHeader =- ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImoduleHeader- {-# LINE 3403 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _childrenOnt =- ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsInt- {-# LINE 3409 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _childrenOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 3415 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _childrenOpragmaBlocks =- ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIpragmaBlocks- {-# LINE 3421 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _childrenOtextBlocks =- ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsItextBlocks- {-# LINE 3427 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _visitsOallFromToStates =- ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallFromToStates- {-# LINE 3433 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _visitsOallInhmap =- ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInhmap- {-# LINE 3439 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _visitsOallInitStates =- ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInitStates- {-# LINE 3445 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _visitsOallSynmap =- ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallSynmap- {-# LINE 3451 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _visitsOallVisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallVisitKinds- {-# LINE 3457 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _visitsOallchildvisit =- ({-# LINE 1186 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallchildvisit- {-# LINE 3463 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _visitsOavisitdefs =- ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisitdefs- {-# LINE 3469 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _visitsOavisituses =- ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisituses- {-# LINE 3475 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (from local)- _visitsOchildTypes =- ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}- _childTypes- {-# LINE 3481 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _visitsOinhmap =- ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinhmap- {-# LINE 3487 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _visitsOnextVisits =- ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsInextVisits- {-# LINE 3493 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _visitsOnt =- ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsInt- {-# LINE 3499 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _visitsOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 3505 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _visitsOparams =- ({-# LINE 73 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIparams- {-# LINE 3511 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _visitsOprevVisits =- ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIprevVisits- {-# LINE 3517 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _visitsOsynmap =- ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIsynmap- {-# LINE 3523 "dist/build/ExecutionPlan2Hs" #-}- )- ( _rulesIerrors,_rulesImrules,_rulesIruledefs,_rulesIruleuses,_rulesIsem_rules) =- rules_ _rulesOallInhmap _rulesOallSynmap _rulesOchildTypes _rulesOcon _rulesOimportBlocks _rulesOinhmap _rulesOlazyIntras _rulesOlocalAttrTypes _rulesOmainFile _rulesOmainName _rulesOmoduleHeader _rulesOnt _rulesOoptions _rulesOpragmaBlocks _rulesOruleKinds _rulesOsynmap _rulesOtextBlocks _rulesOusageInfo- ( _childrenIargnamesw,_childrenIargpats,_childrenIargtps,_childrenIchildTypes,_childrenIchildintros,_childrenIdatatype,_childrenIterminaldefs) =- children_ _childrenOallInitStates _childrenOcon _childrenOimportBlocks _childrenOmainFile _childrenOmainName _childrenOmoduleHeader _childrenOnt _childrenOoptions _childrenOpragmaBlocks _childrenOtextBlocks- ( _visitsIallvisits,_visitsIchildvisit,_visitsIerrors,_visitsIfromToStates,_visitsIintramap,_visitsIlazyIntras,_visitsIruleKinds,_visitsIruleUsage,_visitsIsem_visit,_visitsIt_visits,_visitsIvisitKinds,_visitsIvisitdefs,_visitsIvisituses) =- visits_ _visitsOallFromToStates _visitsOallInhmap _visitsOallInitStates _visitsOallSynmap _visitsOallVisitKinds _visitsOallchildvisit _visitsOallintramap _visitsOavisitdefs _visitsOavisituses _visitsOchildTypes _visitsOchildintros _visitsOcon _visitsOinhmap _visitsOmrules _visitsOnextVisits _visitsOnt _visitsOoptions _visitsOparams _visitsOprevVisits _visitsOruledefs _visitsOruleuses _visitsOsynmap _visitsOterminaldefs- in ( _lhsOallvisits,_lhsOchildvisit,_lhsOcount,_lhsOdatatype,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOsem_nt,_lhsOsem_prod,_lhsOt_visits,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses))))--- EProductions -------------------------------------------------{-- visit 0:- inherited attributes:- allFromToStates : Map VisitIdentifier (Int,Int)- allInhmap : Map NontermIdent Attributes- allInitStates : Map NontermIdent Int- allSynmap : Map NontermIdent Attributes- allVisitKinds : Map VisitIdentifier VisitKind- allchildvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))- allstates : Set StateIdentifier- avisitdefs : Map VisitIdentifier (Set Identifier)- avisituses : Map VisitIdentifier (Set Identifier)- classCtxs : ClassContext- importBlocks : PP_Doc- inhmap : Attributes- initial : StateIdentifier- localAttrTypes : Map ConstructorIdent (Map Identifier Type)- mainFile : String- mainName : String- moduleHeader : String -> String -> String -> Bool -> String- nextVisits : Map StateIdentifier StateCtx- nt : NontermIdent- ntType : Type- options : Options- params : [Identifier]- pragmaBlocks : String- prevVisits : Map StateIdentifier StateCtx- rename : Bool- synmap : Attributes- textBlocks : PP_Doc- synthesized attributes:- allvisits : [VisitStateState]- childvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))- count : Int- datatype : [PP_Doc]- errors : Seq Error- fromToStates : Map VisitIdentifier (Int,Int)- genProdIO : IO ()- imports : [PP_Doc]- semFunBndDefs : Seq PP_Doc- semFunBndTps : Seq PP_Doc- sem_nt : PP_Doc- sem_prod : PP_Doc- t_visits : PP_Doc- visitKinds : Map VisitIdentifier VisitKind- visitdefs : Map VisitIdentifier (Set Identifier)- visituses : Map VisitIdentifier (Set Identifier)- alternatives:- alternative Cons:- child hd : EProduction - child tl : EProductions - alternative Nil:--}--- cata-sem_EProductions :: EProductions ->- T_EProductions-sem_EProductions list =- (Prelude.foldr sem_EProductions_Cons sem_EProductions_Nil (Prelude.map sem_EProduction list))--- semantic domain-newtype T_EProductions = T_EProductions ((Map VisitIdentifier (Int,Int)) ->- (Map NontermIdent Attributes) ->- (Map NontermIdent Int) ->- (Map NontermIdent Attributes) ->- (Map VisitIdentifier VisitKind) ->- (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))) ->- (Set StateIdentifier) ->- (Map VisitIdentifier (Set Identifier)) ->- (Map VisitIdentifier (Set Identifier)) ->- ClassContext ->- PP_Doc ->- Attributes ->- StateIdentifier ->- (Map ConstructorIdent (Map Identifier Type)) ->- String ->- String ->- (String -> String -> String -> Bool -> String) ->- (Map StateIdentifier StateCtx) ->- NontermIdent ->- Type ->- Options ->- ([Identifier]) ->- String ->- (Map StateIdentifier StateCtx) ->- Bool ->- Attributes ->- PP_Doc ->- ( ([VisitStateState]),(Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),Int,([PP_Doc]),(Seq Error),(Map VisitIdentifier (Int,Int)),(IO ()),([PP_Doc]),(Seq PP_Doc),(Seq PP_Doc),PP_Doc,PP_Doc,PP_Doc,(Map VisitIdentifier VisitKind),(Map VisitIdentifier (Set Identifier)),(Map VisitIdentifier (Set Identifier))))-data Inh_EProductions = Inh_EProductions {allFromToStates_Inh_EProductions :: (Map VisitIdentifier (Int,Int)),allInhmap_Inh_EProductions :: (Map NontermIdent Attributes),allInitStates_Inh_EProductions :: (Map NontermIdent Int),allSynmap_Inh_EProductions :: (Map NontermIdent Attributes),allVisitKinds_Inh_EProductions :: (Map VisitIdentifier VisitKind),allchildvisit_Inh_EProductions :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),allstates_Inh_EProductions :: (Set StateIdentifier),avisitdefs_Inh_EProductions :: (Map VisitIdentifier (Set Identifier)),avisituses_Inh_EProductions :: (Map VisitIdentifier (Set Identifier)),classCtxs_Inh_EProductions :: ClassContext,importBlocks_Inh_EProductions :: PP_Doc,inhmap_Inh_EProductions :: Attributes,initial_Inh_EProductions :: StateIdentifier,localAttrTypes_Inh_EProductions :: (Map ConstructorIdent (Map Identifier Type)),mainFile_Inh_EProductions :: String,mainName_Inh_EProductions :: String,moduleHeader_Inh_EProductions :: (String -> String -> String -> Bool -> String),nextVisits_Inh_EProductions :: (Map StateIdentifier StateCtx),nt_Inh_EProductions :: NontermIdent,ntType_Inh_EProductions :: Type,options_Inh_EProductions :: Options,params_Inh_EProductions :: ([Identifier]),pragmaBlocks_Inh_EProductions :: String,prevVisits_Inh_EProductions :: (Map StateIdentifier StateCtx),rename_Inh_EProductions :: Bool,synmap_Inh_EProductions :: Attributes,textBlocks_Inh_EProductions :: PP_Doc}-data Syn_EProductions = Syn_EProductions {allvisits_Syn_EProductions :: ([VisitStateState]),childvisit_Syn_EProductions :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),count_Syn_EProductions :: Int,datatype_Syn_EProductions :: ([PP_Doc]),errors_Syn_EProductions :: (Seq Error),fromToStates_Syn_EProductions :: (Map VisitIdentifier (Int,Int)),genProdIO_Syn_EProductions :: (IO ()),imports_Syn_EProductions :: ([PP_Doc]),semFunBndDefs_Syn_EProductions :: (Seq PP_Doc),semFunBndTps_Syn_EProductions :: (Seq PP_Doc),sem_nt_Syn_EProductions :: PP_Doc,sem_prod_Syn_EProductions :: PP_Doc,t_visits_Syn_EProductions :: PP_Doc,visitKinds_Syn_EProductions :: (Map VisitIdentifier VisitKind),visitdefs_Syn_EProductions :: (Map VisitIdentifier (Set Identifier)),visituses_Syn_EProductions :: (Map VisitIdentifier (Set Identifier))}-wrap_EProductions :: T_EProductions ->- Inh_EProductions ->- Syn_EProductions-wrap_EProductions (T_EProductions sem) (Inh_EProductions _lhsIallFromToStates _lhsIallInhmap _lhsIallInitStates _lhsIallSynmap _lhsIallVisitKinds _lhsIallchildvisit _lhsIallstates _lhsIavisitdefs _lhsIavisituses _lhsIclassCtxs _lhsIimportBlocks _lhsIinhmap _lhsIinitial _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInextVisits _lhsInt _lhsIntType _lhsIoptions _lhsIparams _lhsIpragmaBlocks _lhsIprevVisits _lhsIrename _lhsIsynmap _lhsItextBlocks) =- (let ( _lhsOallvisits,_lhsOchildvisit,_lhsOcount,_lhsOdatatype,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOsem_nt,_lhsOsem_prod,_lhsOt_visits,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses) = sem _lhsIallFromToStates _lhsIallInhmap _lhsIallInitStates _lhsIallSynmap _lhsIallVisitKinds _lhsIallchildvisit _lhsIallstates _lhsIavisitdefs _lhsIavisituses _lhsIclassCtxs _lhsIimportBlocks _lhsIinhmap _lhsIinitial _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInextVisits _lhsInt _lhsIntType _lhsIoptions _lhsIparams _lhsIpragmaBlocks _lhsIprevVisits _lhsIrename _lhsIsynmap _lhsItextBlocks- in (Syn_EProductions _lhsOallvisits _lhsOchildvisit _lhsOcount _lhsOdatatype _lhsOerrors _lhsOfromToStates _lhsOgenProdIO _lhsOimports _lhsOsemFunBndDefs _lhsOsemFunBndTps _lhsOsem_nt _lhsOsem_prod _lhsOt_visits _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses))-sem_EProductions_Cons :: T_EProduction ->- T_EProductions ->- T_EProductions-sem_EProductions_Cons (T_EProduction hd_) (T_EProductions tl_) =- (T_EProductions (\ _lhsIallFromToStates- _lhsIallInhmap- _lhsIallInitStates- _lhsIallSynmap- _lhsIallVisitKinds- _lhsIallchildvisit- _lhsIallstates- _lhsIavisitdefs- _lhsIavisituses- _lhsIclassCtxs- _lhsIimportBlocks- _lhsIinhmap- _lhsIinitial- _lhsIlocalAttrTypes- _lhsImainFile- _lhsImainName- _lhsImoduleHeader- _lhsInextVisits- _lhsInt- _lhsIntType- _lhsIoptions- _lhsIparams- _lhsIpragmaBlocks- _lhsIprevVisits- _lhsIrename- _lhsIsynmap- _lhsItextBlocks ->- (let _lhsOallvisits :: ([VisitStateState])- _lhsOt_visits :: PP_Doc- _lhsOchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _lhsOcount :: Int- _lhsOdatatype :: ([PP_Doc])- _lhsOerrors :: (Seq Error)- _lhsOfromToStates :: (Map VisitIdentifier (Int,Int))- _lhsOgenProdIO :: (IO ())- _lhsOimports :: ([PP_Doc])- _lhsOsemFunBndDefs :: (Seq PP_Doc)- _lhsOsemFunBndTps :: (Seq PP_Doc)- _lhsOsem_nt :: PP_Doc- _lhsOsem_prod :: PP_Doc- _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)- _lhsOvisitdefs :: (Map VisitIdentifier (Set Identifier))- _lhsOvisituses :: (Map VisitIdentifier (Set Identifier))- _hdOallFromToStates :: (Map VisitIdentifier (Int,Int))- _hdOallInhmap :: (Map NontermIdent Attributes)- _hdOallInitStates :: (Map NontermIdent Int)- _hdOallSynmap :: (Map NontermIdent Attributes)- _hdOallVisitKinds :: (Map VisitIdentifier VisitKind)- _hdOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _hdOallstates :: (Set StateIdentifier)- _hdOavisitdefs :: (Map VisitIdentifier (Set Identifier))- _hdOavisituses :: (Map VisitIdentifier (Set Identifier))- _hdOclassCtxs :: ClassContext- _hdOimportBlocks :: PP_Doc- _hdOinhmap :: Attributes- _hdOinitial :: StateIdentifier- _hdOlocalAttrTypes :: (Map ConstructorIdent (Map Identifier Type))- _hdOmainFile :: String- _hdOmainName :: String- _hdOmoduleHeader :: (String -> String -> String -> Bool -> String)- _hdOnextVisits :: (Map StateIdentifier StateCtx)- _hdOnt :: NontermIdent- _hdOntType :: Type- _hdOoptions :: Options- _hdOparams :: ([Identifier])- _hdOpragmaBlocks :: String- _hdOprevVisits :: (Map StateIdentifier StateCtx)- _hdOrename :: Bool- _hdOsynmap :: Attributes- _hdOtextBlocks :: PP_Doc- _tlOallFromToStates :: (Map VisitIdentifier (Int,Int))- _tlOallInhmap :: (Map NontermIdent Attributes)- _tlOallInitStates :: (Map NontermIdent Int)- _tlOallSynmap :: (Map NontermIdent Attributes)- _tlOallVisitKinds :: (Map VisitIdentifier VisitKind)- _tlOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _tlOallstates :: (Set StateIdentifier)- _tlOavisitdefs :: (Map VisitIdentifier (Set Identifier))- _tlOavisituses :: (Map VisitIdentifier (Set Identifier))- _tlOclassCtxs :: ClassContext- _tlOimportBlocks :: PP_Doc- _tlOinhmap :: Attributes- _tlOinitial :: StateIdentifier- _tlOlocalAttrTypes :: (Map ConstructorIdent (Map Identifier Type))- _tlOmainFile :: String- _tlOmainName :: String- _tlOmoduleHeader :: (String -> String -> String -> Bool -> String)- _tlOnextVisits :: (Map StateIdentifier StateCtx)- _tlOnt :: NontermIdent- _tlOntType :: Type- _tlOoptions :: Options- _tlOparams :: ([Identifier])- _tlOpragmaBlocks :: String- _tlOprevVisits :: (Map StateIdentifier StateCtx)- _tlOrename :: Bool- _tlOsynmap :: Attributes- _tlOtextBlocks :: PP_Doc- _hdIallvisits :: ([VisitStateState])- _hdIchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _hdIcount :: Int- _hdIdatatype :: PP_Doc- _hdIerrors :: (Seq Error)- _hdIfromToStates :: (Map VisitIdentifier (Int,Int))- _hdIgenProdIO :: (IO ())- _hdIimports :: ([PP_Doc])- _hdIsemFunBndDefs :: (Seq PP_Doc)- _hdIsemFunBndTps :: (Seq PP_Doc)- _hdIsem_nt :: PP_Doc- _hdIsem_prod :: PP_Doc- _hdIt_visits :: PP_Doc- _hdIvisitKinds :: (Map VisitIdentifier VisitKind)- _hdIvisitdefs :: (Map VisitIdentifier (Set Identifier))- _hdIvisituses :: (Map VisitIdentifier (Set Identifier))- _tlIallvisits :: ([VisitStateState])- _tlIchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _tlIcount :: Int- _tlIdatatype :: ([PP_Doc])- _tlIerrors :: (Seq Error)- _tlIfromToStates :: (Map VisitIdentifier (Int,Int))- _tlIgenProdIO :: (IO ())- _tlIimports :: ([PP_Doc])- _tlIsemFunBndDefs :: (Seq PP_Doc)- _tlIsemFunBndTps :: (Seq PP_Doc)- _tlIsem_nt :: PP_Doc- _tlIsem_prod :: PP_Doc- _tlIt_visits :: PP_Doc- _tlIvisitKinds :: (Map VisitIdentifier VisitKind)- _tlIvisitdefs :: (Map VisitIdentifier (Set Identifier))- _tlIvisituses :: (Map VisitIdentifier (Set Identifier))- -- "src-ag/ExecutionPlan2Hs.ag"(line 344, column 10)- _lhsOallvisits =- ({-# LINE 344 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIallvisits- {-# LINE 3765 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 397, column 10)- _lhsOt_visits =- ({-# LINE 397 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIt_visits- {-# LINE 3771 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1187, column 37)- _lhsOchildvisit =- ({-# LINE 1187 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIchildvisit `Map.union` _tlIchildvisit- {-# LINE 3777 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 288, column 43)- _lhsOcount =- ({-# LINE 288 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIcount + _tlIcount- {-# LINE 3783 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 179, column 34)- _lhsOdatatype =- ({-# LINE 179 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIdatatype : _tlIdatatype- {-# LINE 3789 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)- _lhsOerrors =- ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 3795 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1544, column 22)- _lhsOfromToStates =- ({-# LINE 1544 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIfromToStates `mappend` _tlIfromToStates- {-# LINE 3801 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1464, column 49)- _lhsOgenProdIO =- ({-# LINE 1464 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIgenProdIO >> _tlIgenProdIO- {-# LINE 3807 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1463, column 47)- _lhsOimports =- ({-# LINE 1463 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIimports ++ _tlIimports- {-# LINE 3813 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 515, column 92)- _lhsOsemFunBndDefs =- ({-# LINE 515 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIsemFunBndDefs Seq.>< _tlIsemFunBndDefs- {-# LINE 3819 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 515, column 92)- _lhsOsemFunBndTps =- ({-# LINE 515 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIsemFunBndTps Seq.>< _tlIsemFunBndTps- {-# LINE 3825 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 292, column 44)- _lhsOsem_nt =- ({-# LINE 292 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIsem_nt >-< _tlIsem_nt- {-# LINE 3831 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 554, column 34)- _lhsOsem_prod =- ({-# LINE 554 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIsem_prod >-< _tlIsem_prod- {-# LINE 3837 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)- _lhsOvisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIvisitKinds `mappend` _tlIvisitKinds- {-# LINE 3843 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1322, column 36)- _lhsOvisitdefs =- ({-# LINE 1322 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIvisitdefs `uwSetUnion` _tlIvisitdefs- {-# LINE 3849 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1323, column 36)- _lhsOvisituses =- ({-# LINE 1323 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIvisituses `uwSetUnion` _tlIvisituses- {-# LINE 3855 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallFromToStates =- ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallFromToStates- {-# LINE 3861 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallInhmap =- ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInhmap- {-# LINE 3867 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallInitStates =- ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInitStates- {-# LINE 3873 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallSynmap =- ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallSynmap- {-# LINE 3879 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallVisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallVisitKinds- {-# LINE 3885 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallchildvisit =- ({-# LINE 1186 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallchildvisit- {-# LINE 3891 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallstates =- ({-# LINE 557 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallstates- {-# LINE 3897 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOavisitdefs =- ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisitdefs- {-# LINE 3903 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOavisituses =- ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisituses- {-# LINE 3909 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOclassCtxs =- ({-# LINE 77 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIclassCtxs- {-# LINE 3915 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOimportBlocks =- ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIimportBlocks- {-# LINE 3921 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOinhmap =- ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinhmap- {-# LINE 3927 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOinitial =- ({-# LINE 556 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinitial- {-# LINE 3933 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOlocalAttrTypes =- ({-# LINE 1577 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIlocalAttrTypes- {-# LINE 3939 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOmainFile =- ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainFile- {-# LINE 3945 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOmainName =- ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainName- {-# LINE 3951 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOmoduleHeader =- ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImoduleHeader- {-# LINE 3957 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOnextVisits =- ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsInextVisits- {-# LINE 3963 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOnt =- ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsInt- {-# LINE 3969 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOntType =- ({-# LINE 1620 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIntType- {-# LINE 3975 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 3981 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOparams =- ({-# LINE 73 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIparams- {-# LINE 3987 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOpragmaBlocks =- ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIpragmaBlocks- {-# LINE 3993 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOprevVisits =- ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIprevVisits- {-# LINE 3999 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOrename =- ({-# LINE 52 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIrename- {-# LINE 4005 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOsynmap =- ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIsynmap- {-# LINE 4011 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOtextBlocks =- ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsItextBlocks- {-# LINE 4017 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallFromToStates =- ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallFromToStates- {-# LINE 4023 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallInhmap =- ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInhmap- {-# LINE 4029 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallInitStates =- ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInitStates- {-# LINE 4035 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallSynmap =- ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallSynmap- {-# LINE 4041 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallVisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallVisitKinds- {-# LINE 4047 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallchildvisit =- ({-# LINE 1186 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallchildvisit- {-# LINE 4053 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallstates =- ({-# LINE 557 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallstates- {-# LINE 4059 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOavisitdefs =- ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisitdefs- {-# LINE 4065 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOavisituses =- ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisituses- {-# LINE 4071 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOclassCtxs =- ({-# LINE 77 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIclassCtxs- {-# LINE 4077 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOimportBlocks =- ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIimportBlocks- {-# LINE 4083 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOinhmap =- ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinhmap- {-# LINE 4089 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOinitial =- ({-# LINE 556 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinitial- {-# LINE 4095 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOlocalAttrTypes =- ({-# LINE 1577 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIlocalAttrTypes- {-# LINE 4101 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOmainFile =- ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainFile- {-# LINE 4107 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOmainName =- ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainName- {-# LINE 4113 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOmoduleHeader =- ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImoduleHeader- {-# LINE 4119 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOnextVisits =- ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsInextVisits- {-# LINE 4125 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOnt =- ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsInt- {-# LINE 4131 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOntType =- ({-# LINE 1620 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIntType- {-# LINE 4137 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 4143 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOparams =- ({-# LINE 73 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIparams- {-# LINE 4149 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOpragmaBlocks =- ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIpragmaBlocks- {-# LINE 4155 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOprevVisits =- ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIprevVisits- {-# LINE 4161 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOrename =- ({-# LINE 52 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIrename- {-# LINE 4167 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOsynmap =- ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIsynmap- {-# LINE 4173 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOtextBlocks =- ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsItextBlocks- {-# LINE 4179 "dist/build/ExecutionPlan2Hs" #-}- )- ( _hdIallvisits,_hdIchildvisit,_hdIcount,_hdIdatatype,_hdIerrors,_hdIfromToStates,_hdIgenProdIO,_hdIimports,_hdIsemFunBndDefs,_hdIsemFunBndTps,_hdIsem_nt,_hdIsem_prod,_hdIt_visits,_hdIvisitKinds,_hdIvisitdefs,_hdIvisituses) =- hd_ _hdOallFromToStates _hdOallInhmap _hdOallInitStates _hdOallSynmap _hdOallVisitKinds _hdOallchildvisit _hdOallstates _hdOavisitdefs _hdOavisituses _hdOclassCtxs _hdOimportBlocks _hdOinhmap _hdOinitial _hdOlocalAttrTypes _hdOmainFile _hdOmainName _hdOmoduleHeader _hdOnextVisits _hdOnt _hdOntType _hdOoptions _hdOparams _hdOpragmaBlocks _hdOprevVisits _hdOrename _hdOsynmap _hdOtextBlocks- ( _tlIallvisits,_tlIchildvisit,_tlIcount,_tlIdatatype,_tlIerrors,_tlIfromToStates,_tlIgenProdIO,_tlIimports,_tlIsemFunBndDefs,_tlIsemFunBndTps,_tlIsem_nt,_tlIsem_prod,_tlIt_visits,_tlIvisitKinds,_tlIvisitdefs,_tlIvisituses) =- tl_ _tlOallFromToStates _tlOallInhmap _tlOallInitStates _tlOallSynmap _tlOallVisitKinds _tlOallchildvisit _tlOallstates _tlOavisitdefs _tlOavisituses _tlOclassCtxs _tlOimportBlocks _tlOinhmap _tlOinitial _tlOlocalAttrTypes _tlOmainFile _tlOmainName _tlOmoduleHeader _tlOnextVisits _tlOnt _tlOntType _tlOoptions _tlOparams _tlOpragmaBlocks _tlOprevVisits _tlOrename _tlOsynmap _tlOtextBlocks- in ( _lhsOallvisits,_lhsOchildvisit,_lhsOcount,_lhsOdatatype,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOsem_nt,_lhsOsem_prod,_lhsOt_visits,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses))))-sem_EProductions_Nil :: T_EProductions-sem_EProductions_Nil =- (T_EProductions (\ _lhsIallFromToStates- _lhsIallInhmap- _lhsIallInitStates- _lhsIallSynmap- _lhsIallVisitKinds- _lhsIallchildvisit- _lhsIallstates- _lhsIavisitdefs- _lhsIavisituses- _lhsIclassCtxs- _lhsIimportBlocks- _lhsIinhmap- _lhsIinitial- _lhsIlocalAttrTypes- _lhsImainFile- _lhsImainName- _lhsImoduleHeader- _lhsInextVisits- _lhsInt- _lhsIntType- _lhsIoptions- _lhsIparams- _lhsIpragmaBlocks- _lhsIprevVisits- _lhsIrename- _lhsIsynmap- _lhsItextBlocks ->- (let _lhsOallvisits :: ([VisitStateState])- _lhsOchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _lhsOcount :: Int- _lhsOdatatype :: ([PP_Doc])- _lhsOerrors :: (Seq Error)- _lhsOfromToStates :: (Map VisitIdentifier (Int,Int))- _lhsOgenProdIO :: (IO ())- _lhsOimports :: ([PP_Doc])- _lhsOsemFunBndDefs :: (Seq PP_Doc)- _lhsOsemFunBndTps :: (Seq PP_Doc)- _lhsOsem_nt :: PP_Doc- _lhsOsem_prod :: PP_Doc- _lhsOt_visits :: PP_Doc- _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)- _lhsOvisitdefs :: (Map VisitIdentifier (Set Identifier))- _lhsOvisituses :: (Map VisitIdentifier (Set Identifier))- -- "src-ag/ExecutionPlan2Hs.ag"(line 345, column 10)- _lhsOallvisits =- ({-# LINE 345 "src-ag/ExecutionPlan2Hs.ag" #-}- error "Every nonterminal should have at least 1 production"- {-# LINE 4235 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1187, column 37)- _lhsOchildvisit =- ({-# LINE 1187 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 4241 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 288, column 43)- _lhsOcount =- ({-# LINE 288 "src-ag/ExecutionPlan2Hs.ag" #-}- 0- {-# LINE 4247 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 179, column 34)- _lhsOdatatype =- ({-# LINE 179 "src-ag/ExecutionPlan2Hs.ag" #-}- []- {-# LINE 4253 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)- _lhsOerrors =- ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}- Seq.empty- {-# LINE 4259 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1544, column 22)- _lhsOfromToStates =- ({-# LINE 1544 "src-ag/ExecutionPlan2Hs.ag" #-}- mempty- {-# LINE 4265 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1464, column 49)- _lhsOgenProdIO =- ({-# LINE 1464 "src-ag/ExecutionPlan2Hs.ag" #-}- return ()- {-# LINE 4271 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1463, column 47)- _lhsOimports =- ({-# LINE 1463 "src-ag/ExecutionPlan2Hs.ag" #-}- []- {-# LINE 4277 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 515, column 92)- _lhsOsemFunBndDefs =- ({-# LINE 515 "src-ag/ExecutionPlan2Hs.ag" #-}- Seq.empty- {-# LINE 4283 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 515, column 92)- _lhsOsemFunBndTps =- ({-# LINE 515 "src-ag/ExecutionPlan2Hs.ag" #-}- Seq.empty- {-# LINE 4289 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 292, column 44)- _lhsOsem_nt =- ({-# LINE 292 "src-ag/ExecutionPlan2Hs.ag" #-}- empty- {-# LINE 4295 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 554, column 34)- _lhsOsem_prod =- ({-# LINE 554 "src-ag/ExecutionPlan2Hs.ag" #-}- empty- {-# LINE 4301 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 394, column 59)- _lhsOt_visits =- ({-# LINE 394 "src-ag/ExecutionPlan2Hs.ag" #-}- empty- {-# LINE 4307 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)- _lhsOvisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- mempty- {-# LINE 4313 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1322, column 36)- _lhsOvisitdefs =- ({-# LINE 1322 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 4319 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1323, column 36)- _lhsOvisituses =- ({-# LINE 1323 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 4325 "dist/build/ExecutionPlan2Hs" #-}- )- in ( _lhsOallvisits,_lhsOchildvisit,_lhsOcount,_lhsOdatatype,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOsem_nt,_lhsOsem_prod,_lhsOt_visits,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses))))--- ERule --------------------------------------------------------{-- visit 0:- inherited attributes:- allInhmap : Map NontermIdent Attributes- allSynmap : Map NontermIdent Attributes- childTypes : Map Identifier Type- con : ConstructorIdent- importBlocks : PP_Doc- inhmap : Attributes- lazyIntras : Set String- localAttrTypes : Map Identifier Type- mainFile : String- mainName : String- moduleHeader : String -> String -> String -> Bool -> String- nt : NontermIdent- options : Options- pragmaBlocks : String- ruleKinds : Map Identifier (Set VisitKind)- synmap : Attributes- textBlocks : PP_Doc- usageInfo : Map Identifier Int- synthesized attributes:- errors : Seq Error- mrules : Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)- ruledefs : Map Identifier (Set String)- ruleuses : Map Identifier (Map String (Maybe NonLocalAttr))- sem_rules : PP_Doc- alternatives:- alternative ERule:- child name : {Identifier}- child pattern : Pattern - child rhs : Expression - child owrt : {Bool}- child origin : {String}- child explicit : {Bool}- child pure : {Bool}- child mbError : {Maybe Error}- visit 0:- local rulecode : _- local rulePragma : _- local scc : _- local pragma : _- local endpragma : _- local genpragma : _- local haspos : _- local lambda : _- local argPats : _- local argExprs : _- local stepcode : _- local used : _- local kinds : _- local anyLazyKind : _- local addbang : _- local addbang1 : _--}--- cata-sem_ERule :: ERule ->- T_ERule-sem_ERule (ERule _name _pattern _rhs _owrt _origin _explicit _pure _mbError) =- (sem_ERule_ERule _name (sem_Pattern _pattern) (sem_Expression _rhs) _owrt _origin _explicit _pure _mbError)--- semantic domain-newtype T_ERule = T_ERule ((Map NontermIdent Attributes) ->- (Map NontermIdent Attributes) ->- (Map Identifier Type) ->- ConstructorIdent ->- PP_Doc ->- Attributes ->- (Set String) ->- (Map Identifier Type) ->- String ->- String ->- (String -> String -> String -> Bool -> String) ->- NontermIdent ->- Options ->- String ->- (Map Identifier (Set VisitKind)) ->- Attributes ->- PP_Doc ->- (Map Identifier Int) ->- ( (Seq Error),(Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)),(Map Identifier (Set String)),(Map Identifier (Map String (Maybe NonLocalAttr))),PP_Doc))-data Inh_ERule = Inh_ERule {allInhmap_Inh_ERule :: (Map NontermIdent Attributes),allSynmap_Inh_ERule :: (Map NontermIdent Attributes),childTypes_Inh_ERule :: (Map Identifier Type),con_Inh_ERule :: ConstructorIdent,importBlocks_Inh_ERule :: PP_Doc,inhmap_Inh_ERule :: Attributes,lazyIntras_Inh_ERule :: (Set String),localAttrTypes_Inh_ERule :: (Map Identifier Type),mainFile_Inh_ERule :: String,mainName_Inh_ERule :: String,moduleHeader_Inh_ERule :: (String -> String -> String -> Bool -> String),nt_Inh_ERule :: NontermIdent,options_Inh_ERule :: Options,pragmaBlocks_Inh_ERule :: String,ruleKinds_Inh_ERule :: (Map Identifier (Set VisitKind)),synmap_Inh_ERule :: Attributes,textBlocks_Inh_ERule :: PP_Doc,usageInfo_Inh_ERule :: (Map Identifier Int)}-data Syn_ERule = Syn_ERule {errors_Syn_ERule :: (Seq Error),mrules_Syn_ERule :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)),ruledefs_Syn_ERule :: (Map Identifier (Set String)),ruleuses_Syn_ERule :: (Map Identifier (Map String (Maybe NonLocalAttr))),sem_rules_Syn_ERule :: PP_Doc}-wrap_ERule :: T_ERule ->- Inh_ERule ->- Syn_ERule-wrap_ERule (T_ERule sem) (Inh_ERule _lhsIallInhmap _lhsIallSynmap _lhsIchildTypes _lhsIcon _lhsIimportBlocks _lhsIinhmap _lhsIlazyIntras _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInt _lhsIoptions _lhsIpragmaBlocks _lhsIruleKinds _lhsIsynmap _lhsItextBlocks _lhsIusageInfo) =- (let ( _lhsOerrors,_lhsOmrules,_lhsOruledefs,_lhsOruleuses,_lhsOsem_rules) = sem _lhsIallInhmap _lhsIallSynmap _lhsIchildTypes _lhsIcon _lhsIimportBlocks _lhsIinhmap _lhsIlazyIntras _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInt _lhsIoptions _lhsIpragmaBlocks _lhsIruleKinds _lhsIsynmap _lhsItextBlocks _lhsIusageInfo- in (Syn_ERule _lhsOerrors _lhsOmrules _lhsOruledefs _lhsOruleuses _lhsOsem_rules))-sem_ERule_ERule :: Identifier ->- T_Pattern ->- T_Expression ->- Bool ->- String ->- Bool ->- Bool ->- (Maybe Error) ->- T_ERule-sem_ERule_ERule name_ (T_Pattern pattern_) (T_Expression rhs_) owrt_ origin_ explicit_ pure_ mbError_ =- (T_ERule (\ _lhsIallInhmap- _lhsIallSynmap- _lhsIchildTypes- _lhsIcon- _lhsIimportBlocks- _lhsIinhmap- _lhsIlazyIntras- _lhsIlocalAttrTypes- _lhsImainFile- _lhsImainName- _lhsImoduleHeader- _lhsInt- _lhsIoptions- _lhsIpragmaBlocks- _lhsIruleKinds- _lhsIsynmap- _lhsItextBlocks- _lhsIusageInfo ->- (let _lhsOsem_rules :: PP_Doc- _lhsOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))- _lhsOruledefs :: (Map Identifier (Set String))- _lhsOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))- _lhsOerrors :: (Seq Error)- _patternOallInhmap :: (Map NontermIdent Attributes)- _patternOallSynmap :: (Map NontermIdent Attributes)- _patternOanyLazyKind :: Bool- _patternOinhmap :: Attributes- _patternOlocalAttrTypes :: (Map Identifier Type)- _patternOoptions :: Options- _patternOsynmap :: Attributes- _patternIattrTypes :: PP_Doc- _patternIattrs :: (Set String)- _patternIcopy :: Pattern- _patternIisUnderscore :: Bool- _patternIsem_lhs :: ( PP_Doc )- _rhsIattrs :: (Map String (Maybe NonLocalAttr))- _rhsIpos :: Pos- _rhsIsemfunc :: PP_Doc- _rhsItks :: ([HsToken])- -- "src-ag/ExecutionPlan2Hs.ag"(line 965, column 6)- _lhsOsem_rules =- ({-# LINE 965 "src-ag/ExecutionPlan2Hs.ag" #-}- if _used == 0- then empty- else _rulePragma >-< _rulecode- {-# LINE 4472 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 968, column 6)- _rulecode =- ({-# LINE 968 "src-ag/ExecutionPlan2Hs.ag" #-}- ( if _genpragma- then _pragma- else empty- )- >-< _lambda >#< _scc- >-< indent ((column _rhsIpos - 2) `max` 2)- ( if _genpragma- then _pragma >-< _rhsIsemfunc >-< _endpragma- else _rhsIsemfunc- )- {-# LINE 4487 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 980, column 7)- _rulePragma =- ({-# LINE 980 "src-ag/ExecutionPlan2Hs.ag" #-}- ( let reallyInlineStr = "INLINE"- reallyNoInlineStr = "NOINLINE"- in if noInlinePragmas _lhsIoptions- then empty- else if _used == 1- then ppPragmaBinding reallyInlineStr name_- else if helpInlining _lhsIoptions- then if not explicit_ && _used <= reallyOftenUsedThreshold- then ppPragmaBinding "INLINE[1]" name_- else if _used > ruleInlineThresholdSoft && explicit_- then if _used > ruleInlineThresholdHard- then ppPragmaBinding reallyNoInlineStr name_- else if aggressiveInlinePragmas _lhsIoptions- then ppPragmaBinding "NOINLINE[2]" name_- else ppNoInline name_- else if aggressiveInlinePragmas _lhsIoptions- then ppPragmaBinding "NOINLINE[1]" name_- else ppNoInline name_- else if not explicit_ || _used <= ruleInlineThresholdSoft- then ppPragmaBinding "NOINLINE[1]" name_- else ppNoInline name_- )- {-# LINE 4514 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1002, column 7)- _scc =- ({-# LINE 1002 "src-ag/ExecutionPlan2Hs.ag" #-}- if genCostCentres _lhsIoptions && explicit_ && pure_ && not (noPerRuleCostCentres _lhsIoptions)- then ppCostCentre (name_ >|< "_" >|< line _rhsIpos >|< "_" >|< _lhsInt >|< "_" >|< _lhsIcon)- else empty- {-# LINE 4522 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1005, column 7)- _pragma =- ({-# LINE 1005 "src-ag/ExecutionPlan2Hs.ag" #-}- "{-# LINE" >#< show (line _rhsIpos) >#< show (file _rhsIpos) >#< "#-}"- {-# LINE 4528 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1006, column 7)- _endpragma =- ({-# LINE 1006 "src-ag/ExecutionPlan2Hs.ag" #-}- ppWithLineNr (\ln -> "{-# LINE " ++ show (ln+1) ++ " " ++ show _lhsImainFile ++ "#-}")- {-# LINE 4534 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1007, column 7)- _genpragma =- ({-# LINE 1007 "src-ag/ExecutionPlan2Hs.ag" #-}- genLinePragmas _lhsIoptions && explicit_ && _haspos- {-# LINE 4540 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1008, column 7)- _haspos =- ({-# LINE 1008 "src-ag/ExecutionPlan2Hs.ag" #-}- line _rhsIpos > 0 && column _rhsIpos >= 0 && not (null (file _rhsIpos))- {-# LINE 4546 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1017, column 7)- _lambda =- ({-# LINE 1017 "src-ag/ExecutionPlan2Hs.ag" #-}- name_ >#< "=" >#< "\\" >#< _argPats >#< dummyPat _lhsIoptions (Map.null _rhsIattrs) >#< "->"- {-# LINE 4552 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1019, column 7)- _argPats =- ({-# LINE 1019 "src-ag/ExecutionPlan2Hs.ag" #-}- ppSpaced [ let match | str `Set.member` _lhsIlazyIntras = pp str- | otherwise = _addbang1 (pp str)- in case mbAttr of- Just (AttrSyn child nm) | child == _LOC && not (noPerStateTypeSigs _lhsIoptions) ->- case Map.lookup nm _lhsIlocalAttrTypes of- Just tp -> pp_parens (pp_parens match >#< "::" >#< ppTp tp)- Nothing -> match- Just attr | not (noPerRuleTypeSigs _lhsIoptions) ->- case lookupAttrType attr _lhsIallInhmap _lhsIallSynmap _lhsIchildTypes of- Just tpDoc -> pp_parens (pp_parens match >#< "::" >#< tpDoc)- Nothing -> match- _ -> match- | (str,mbAttr) <- Map.assocs _rhsIattrs- ]- {-# LINE 4571 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1033, column 7)- _argExprs =- ({-# LINE 1033 "src-ag/ExecutionPlan2Hs.ag" #-}- ppSpaced $ Map.keys _rhsIattrs- {-# LINE 4577 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1034, column 7)- _stepcode =- ({-# LINE 1034 "src-ag/ExecutionPlan2Hs.ag" #-}- \kind fmtMode -> if kind `compatibleRule` pure_- then Right $ let oper | pure_ = "="- | otherwise = "<-"- decl = _patternIsem_lhs >#< oper >#< name_ >#< _argExprs >#< dummyArg _lhsIoptions (Map.null _rhsIattrs)- tp = if pure_ && not (noPerRuleTypeSigs _lhsIoptions)- then _patternIattrTypes- else empty- in fmtDecl pure_ fmtMode (tp >-< decl)- else Left $ IncompatibleRuleKind name_ kind- {-# LINE 4591 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1044, column 7)- _lhsOmrules =- ({-# LINE 1044 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.singleton name_ _stepcode- {-# LINE 4597 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1248, column 32)- _used =- ({-# LINE 1248 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.findWithDefault 0 name_ _lhsIusageInfo- {-# LINE 4603 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1264, column 3)- _kinds =- ({-# LINE 1264 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.findWithDefault Set.empty name_ _lhsIruleKinds- {-# LINE 4609 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1265, column 3)- _anyLazyKind =- ({-# LINE 1265 "src-ag/ExecutionPlan2Hs.ag" #-}- Set.fold (\k r -> isLazyKind k || r) False _kinds- {-# LINE 4615 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1311, column 11)- _lhsOruledefs =- ({-# LINE 1311 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.singleton name_ _patternIattrs- {-# LINE 4621 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1312, column 11)- _lhsOruleuses =- ({-# LINE 1312 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.singleton name_ _rhsIattrs- {-# LINE 4627 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1514, column 37)- _addbang =- ({-# LINE 1514 "src-ag/ExecutionPlan2Hs.ag" #-}- \x -> if bangpats _lhsIoptions then "!" >|< x else x- {-# LINE 4633 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1525, column 37)- _addbang1 =- ({-# LINE 1525 "src-ag/ExecutionPlan2Hs.ag" #-}- if _anyLazyKind then id else _addbang- {-# LINE 4639 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1631, column 3)- _lhsOerrors =- ({-# LINE 1631 "src-ag/ExecutionPlan2Hs.ag" #-}- case mbError_ of- Just e | _used > 0 -> Seq.singleton e- _ -> Seq.empty- {-# LINE 4647 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patternOallInhmap =- ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInhmap- {-# LINE 4653 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patternOallSynmap =- ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallSynmap- {-# LINE 4659 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (from local)- _patternOanyLazyKind =- ({-# LINE 1267 "src-ag/ExecutionPlan2Hs.ag" #-}- _anyLazyKind- {-# LINE 4665 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patternOinhmap =- ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinhmap- {-# LINE 4671 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patternOlocalAttrTypes =- ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIlocalAttrTypes- {-# LINE 4677 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patternOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 4683 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patternOsynmap =- ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIsynmap- {-# LINE 4689 "dist/build/ExecutionPlan2Hs" #-}- )- ( _patternIattrTypes,_patternIattrs,_patternIcopy,_patternIisUnderscore,_patternIsem_lhs) =- pattern_ _patternOallInhmap _patternOallSynmap _patternOanyLazyKind _patternOinhmap _patternOlocalAttrTypes _patternOoptions _patternOsynmap- ( _rhsIattrs,_rhsIpos,_rhsIsemfunc,_rhsItks) =- rhs_- in ( _lhsOerrors,_lhsOmrules,_lhsOruledefs,_lhsOruleuses,_lhsOsem_rules))))--- ERules -------------------------------------------------------{-- visit 0:- inherited attributes:- allInhmap : Map NontermIdent Attributes- allSynmap : Map NontermIdent Attributes- childTypes : Map Identifier Type- con : ConstructorIdent- importBlocks : PP_Doc- inhmap : Attributes- lazyIntras : Set String- localAttrTypes : Map Identifier Type- mainFile : String- mainName : String- moduleHeader : String -> String -> String -> Bool -> String- nt : NontermIdent- options : Options- pragmaBlocks : String- ruleKinds : Map Identifier (Set VisitKind)- synmap : Attributes- textBlocks : PP_Doc- usageInfo : Map Identifier Int- synthesized attributes:- errors : Seq Error- mrules : Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)- ruledefs : Map Identifier (Set String)- ruleuses : Map Identifier (Map String (Maybe NonLocalAttr))- sem_rules : PP_Doc- alternatives:- alternative Cons:- child hd : ERule - child tl : ERules - alternative Nil:--}--- cata-sem_ERules :: ERules ->- T_ERules-sem_ERules list =- (Prelude.foldr sem_ERules_Cons sem_ERules_Nil (Prelude.map sem_ERule list))--- semantic domain-newtype T_ERules = T_ERules ((Map NontermIdent Attributes) ->- (Map NontermIdent Attributes) ->- (Map Identifier Type) ->- ConstructorIdent ->- PP_Doc ->- Attributes ->- (Set String) ->- (Map Identifier Type) ->- String ->- String ->- (String -> String -> String -> Bool -> String) ->- NontermIdent ->- Options ->- String ->- (Map Identifier (Set VisitKind)) ->- Attributes ->- PP_Doc ->- (Map Identifier Int) ->- ( (Seq Error),(Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)),(Map Identifier (Set String)),(Map Identifier (Map String (Maybe NonLocalAttr))),PP_Doc))-data Inh_ERules = Inh_ERules {allInhmap_Inh_ERules :: (Map NontermIdent Attributes),allSynmap_Inh_ERules :: (Map NontermIdent Attributes),childTypes_Inh_ERules :: (Map Identifier Type),con_Inh_ERules :: ConstructorIdent,importBlocks_Inh_ERules :: PP_Doc,inhmap_Inh_ERules :: Attributes,lazyIntras_Inh_ERules :: (Set String),localAttrTypes_Inh_ERules :: (Map Identifier Type),mainFile_Inh_ERules :: String,mainName_Inh_ERules :: String,moduleHeader_Inh_ERules :: (String -> String -> String -> Bool -> String),nt_Inh_ERules :: NontermIdent,options_Inh_ERules :: Options,pragmaBlocks_Inh_ERules :: String,ruleKinds_Inh_ERules :: (Map Identifier (Set VisitKind)),synmap_Inh_ERules :: Attributes,textBlocks_Inh_ERules :: PP_Doc,usageInfo_Inh_ERules :: (Map Identifier Int)}-data Syn_ERules = Syn_ERules {errors_Syn_ERules :: (Seq Error),mrules_Syn_ERules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)),ruledefs_Syn_ERules :: (Map Identifier (Set String)),ruleuses_Syn_ERules :: (Map Identifier (Map String (Maybe NonLocalAttr))),sem_rules_Syn_ERules :: PP_Doc}-wrap_ERules :: T_ERules ->- Inh_ERules ->- Syn_ERules-wrap_ERules (T_ERules sem) (Inh_ERules _lhsIallInhmap _lhsIallSynmap _lhsIchildTypes _lhsIcon _lhsIimportBlocks _lhsIinhmap _lhsIlazyIntras _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInt _lhsIoptions _lhsIpragmaBlocks _lhsIruleKinds _lhsIsynmap _lhsItextBlocks _lhsIusageInfo) =- (let ( _lhsOerrors,_lhsOmrules,_lhsOruledefs,_lhsOruleuses,_lhsOsem_rules) = sem _lhsIallInhmap _lhsIallSynmap _lhsIchildTypes _lhsIcon _lhsIimportBlocks _lhsIinhmap _lhsIlazyIntras _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInt _lhsIoptions _lhsIpragmaBlocks _lhsIruleKinds _lhsIsynmap _lhsItextBlocks _lhsIusageInfo- in (Syn_ERules _lhsOerrors _lhsOmrules _lhsOruledefs _lhsOruleuses _lhsOsem_rules))-sem_ERules_Cons :: T_ERule ->- T_ERules ->- T_ERules-sem_ERules_Cons (T_ERule hd_) (T_ERules tl_) =- (T_ERules (\ _lhsIallInhmap- _lhsIallSynmap- _lhsIchildTypes- _lhsIcon- _lhsIimportBlocks- _lhsIinhmap- _lhsIlazyIntras- _lhsIlocalAttrTypes- _lhsImainFile- _lhsImainName- _lhsImoduleHeader- _lhsInt- _lhsIoptions- _lhsIpragmaBlocks- _lhsIruleKinds- _lhsIsynmap- _lhsItextBlocks- _lhsIusageInfo ->- (let _lhsOerrors :: (Seq Error)- _lhsOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))- _lhsOruledefs :: (Map Identifier (Set String))- _lhsOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))- _lhsOsem_rules :: PP_Doc- _hdOallInhmap :: (Map NontermIdent Attributes)- _hdOallSynmap :: (Map NontermIdent Attributes)- _hdOchildTypes :: (Map Identifier Type)- _hdOcon :: ConstructorIdent- _hdOimportBlocks :: PP_Doc- _hdOinhmap :: Attributes- _hdOlazyIntras :: (Set String)- _hdOlocalAttrTypes :: (Map Identifier Type)- _hdOmainFile :: String- _hdOmainName :: String- _hdOmoduleHeader :: (String -> String -> String -> Bool -> String)- _hdOnt :: NontermIdent- _hdOoptions :: Options- _hdOpragmaBlocks :: String- _hdOruleKinds :: (Map Identifier (Set VisitKind))- _hdOsynmap :: Attributes- _hdOtextBlocks :: PP_Doc- _hdOusageInfo :: (Map Identifier Int)- _tlOallInhmap :: (Map NontermIdent Attributes)- _tlOallSynmap :: (Map NontermIdent Attributes)- _tlOchildTypes :: (Map Identifier Type)- _tlOcon :: ConstructorIdent- _tlOimportBlocks :: PP_Doc- _tlOinhmap :: Attributes- _tlOlazyIntras :: (Set String)- _tlOlocalAttrTypes :: (Map Identifier Type)- _tlOmainFile :: String- _tlOmainName :: String- _tlOmoduleHeader :: (String -> String -> String -> Bool -> String)- _tlOnt :: NontermIdent- _tlOoptions :: Options- _tlOpragmaBlocks :: String- _tlOruleKinds :: (Map Identifier (Set VisitKind))- _tlOsynmap :: Attributes- _tlOtextBlocks :: PP_Doc- _tlOusageInfo :: (Map Identifier Int)- _hdIerrors :: (Seq Error)- _hdImrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))- _hdIruledefs :: (Map Identifier (Set String))- _hdIruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))- _hdIsem_rules :: PP_Doc- _tlIerrors :: (Seq Error)- _tlImrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))- _tlIruledefs :: (Map Identifier (Set String))- _tlIruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))- _tlIsem_rules :: PP_Doc- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)- _lhsOerrors =- ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 4840 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 962, column 32)- _lhsOmrules =- ({-# LINE 962 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdImrules `Map.union` _tlImrules- {-# LINE 4846 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1304, column 34)- _lhsOruledefs =- ({-# LINE 1304 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIruledefs `uwSetUnion` _tlIruledefs- {-# LINE 4852 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1305, column 34)- _lhsOruleuses =- ({-# LINE 1305 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIruleuses `uwMapUnion` _tlIruleuses- {-# LINE 4858 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 961, column 35)- _lhsOsem_rules =- ({-# LINE 961 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIsem_rules >-< _tlIsem_rules- {-# LINE 4864 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallInhmap =- ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInhmap- {-# LINE 4870 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallSynmap =- ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallSynmap- {-# LINE 4876 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOchildTypes =- ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIchildTypes- {-# LINE 4882 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOcon =- ({-# LINE 66 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIcon- {-# LINE 4888 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOimportBlocks =- ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIimportBlocks- {-# LINE 4894 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOinhmap =- ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinhmap- {-# LINE 4900 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOlazyIntras =- ({-# LINE 1356 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIlazyIntras- {-# LINE 4906 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOlocalAttrTypes =- ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIlocalAttrTypes- {-# LINE 4912 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOmainFile =- ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainFile- {-# LINE 4918 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOmainName =- ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainName- {-# LINE 4924 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOmoduleHeader =- ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImoduleHeader- {-# LINE 4930 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOnt =- ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsInt- {-# LINE 4936 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 4942 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOpragmaBlocks =- ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIpragmaBlocks- {-# LINE 4948 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOruleKinds =- ({-# LINE 1259 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIruleKinds- {-# LINE 4954 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOsynmap =- ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIsynmap- {-# LINE 4960 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOtextBlocks =- ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsItextBlocks- {-# LINE 4966 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOusageInfo =- ({-# LINE 1244 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIusageInfo- {-# LINE 4972 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallInhmap =- ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInhmap- {-# LINE 4978 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallSynmap =- ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallSynmap- {-# LINE 4984 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOchildTypes =- ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIchildTypes- {-# LINE 4990 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOcon =- ({-# LINE 66 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIcon- {-# LINE 4996 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOimportBlocks =- ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIimportBlocks- {-# LINE 5002 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOinhmap =- ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinhmap- {-# LINE 5008 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOlazyIntras =- ({-# LINE 1356 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIlazyIntras- {-# LINE 5014 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOlocalAttrTypes =- ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIlocalAttrTypes- {-# LINE 5020 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOmainFile =- ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainFile- {-# LINE 5026 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOmainName =- ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainName- {-# LINE 5032 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOmoduleHeader =- ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImoduleHeader- {-# LINE 5038 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOnt =- ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsInt- {-# LINE 5044 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 5050 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOpragmaBlocks =- ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIpragmaBlocks- {-# LINE 5056 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOruleKinds =- ({-# LINE 1259 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIruleKinds- {-# LINE 5062 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOsynmap =- ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIsynmap- {-# LINE 5068 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOtextBlocks =- ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsItextBlocks- {-# LINE 5074 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOusageInfo =- ({-# LINE 1244 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIusageInfo- {-# LINE 5080 "dist/build/ExecutionPlan2Hs" #-}- )- ( _hdIerrors,_hdImrules,_hdIruledefs,_hdIruleuses,_hdIsem_rules) =- hd_ _hdOallInhmap _hdOallSynmap _hdOchildTypes _hdOcon _hdOimportBlocks _hdOinhmap _hdOlazyIntras _hdOlocalAttrTypes _hdOmainFile _hdOmainName _hdOmoduleHeader _hdOnt _hdOoptions _hdOpragmaBlocks _hdOruleKinds _hdOsynmap _hdOtextBlocks _hdOusageInfo- ( _tlIerrors,_tlImrules,_tlIruledefs,_tlIruleuses,_tlIsem_rules) =- tl_ _tlOallInhmap _tlOallSynmap _tlOchildTypes _tlOcon _tlOimportBlocks _tlOinhmap _tlOlazyIntras _tlOlocalAttrTypes _tlOmainFile _tlOmainName _tlOmoduleHeader _tlOnt _tlOoptions _tlOpragmaBlocks _tlOruleKinds _tlOsynmap _tlOtextBlocks _tlOusageInfo- in ( _lhsOerrors,_lhsOmrules,_lhsOruledefs,_lhsOruleuses,_lhsOsem_rules))))-sem_ERules_Nil :: T_ERules-sem_ERules_Nil =- (T_ERules (\ _lhsIallInhmap- _lhsIallSynmap- _lhsIchildTypes- _lhsIcon- _lhsIimportBlocks- _lhsIinhmap- _lhsIlazyIntras- _lhsIlocalAttrTypes- _lhsImainFile- _lhsImainName- _lhsImoduleHeader- _lhsInt- _lhsIoptions- _lhsIpragmaBlocks- _lhsIruleKinds- _lhsIsynmap- _lhsItextBlocks- _lhsIusageInfo ->- (let _lhsOerrors :: (Seq Error)- _lhsOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))- _lhsOruledefs :: (Map Identifier (Set String))- _lhsOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))- _lhsOsem_rules :: PP_Doc- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)- _lhsOerrors =- ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}- Seq.empty- {-# LINE 5116 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 962, column 32)- _lhsOmrules =- ({-# LINE 962 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 5122 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1304, column 34)- _lhsOruledefs =- ({-# LINE 1304 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 5128 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1305, column 34)- _lhsOruleuses =- ({-# LINE 1305 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 5134 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 961, column 35)- _lhsOsem_rules =- ({-# LINE 961 "src-ag/ExecutionPlan2Hs.ag" #-}- empty- {-# LINE 5140 "dist/build/ExecutionPlan2Hs" #-}- )- in ( _lhsOerrors,_lhsOmrules,_lhsOruledefs,_lhsOruleuses,_lhsOsem_rules))))--- ExecutionPlan ------------------------------------------------{-- visit 0:- inherited attributes:- importBlocks : PP_Doc- inhmap : Map NontermIdent Attributes- localAttrTypes : Map NontermIdent (Map ConstructorIdent (Map Identifier Type))- mainBlocksDoc : PP_Doc- mainFile : String- mainName : String- moduleHeader : String -> String -> String -> Bool -> String- options : Options- pragmaBlocks : String- synmap : Map NontermIdent Attributes- textBlockMap : Map BlockInfo PP_Doc- textBlocks : PP_Doc- synthesized attributes:- errors : Seq Error- genIO : IO ()- output : PP_Doc- alternatives:- alternative ExecutionPlan:- child nonts : ENonterminals - child typeSyns : {TypeSyns}- child wrappers : {Set NontermIdent}- child derivings : {Derivings}- visit 0:- local wrappersExtra : _- local commonExtra : _- local lateSemBndTp : _- local lateSemBndDef : _- local mainModuleFile : _- local ppMonadImports : _- local genMainModule : _- local commonFile : _- local genCommonModule : _--}--- cata-sem_ExecutionPlan :: ExecutionPlan ->- T_ExecutionPlan-sem_ExecutionPlan (ExecutionPlan _nonts _typeSyns _wrappers _derivings) =- (sem_ExecutionPlan_ExecutionPlan (sem_ENonterminals _nonts) _typeSyns _wrappers _derivings)--- semantic domain-newtype T_ExecutionPlan = T_ExecutionPlan (PP_Doc ->- (Map NontermIdent Attributes) ->- (Map NontermIdent (Map ConstructorIdent (Map Identifier Type))) ->- PP_Doc ->- String ->- String ->- (String -> String -> String -> Bool -> String) ->- Options ->- String ->- (Map NontermIdent Attributes) ->- (Map BlockInfo PP_Doc) ->- PP_Doc ->- ( (Seq Error),(IO ()),PP_Doc))-data Inh_ExecutionPlan = Inh_ExecutionPlan {importBlocks_Inh_ExecutionPlan :: PP_Doc,inhmap_Inh_ExecutionPlan :: (Map NontermIdent Attributes),localAttrTypes_Inh_ExecutionPlan :: (Map NontermIdent (Map ConstructorIdent (Map Identifier Type))),mainBlocksDoc_Inh_ExecutionPlan :: PP_Doc,mainFile_Inh_ExecutionPlan :: String,mainName_Inh_ExecutionPlan :: String,moduleHeader_Inh_ExecutionPlan :: (String -> String -> String -> Bool -> String),options_Inh_ExecutionPlan :: Options,pragmaBlocks_Inh_ExecutionPlan :: String,synmap_Inh_ExecutionPlan :: (Map NontermIdent Attributes),textBlockMap_Inh_ExecutionPlan :: (Map BlockInfo PP_Doc),textBlocks_Inh_ExecutionPlan :: PP_Doc}-data Syn_ExecutionPlan = Syn_ExecutionPlan {errors_Syn_ExecutionPlan :: (Seq Error),genIO_Syn_ExecutionPlan :: (IO ()),output_Syn_ExecutionPlan :: PP_Doc}-wrap_ExecutionPlan :: T_ExecutionPlan ->- Inh_ExecutionPlan ->- Syn_ExecutionPlan-wrap_ExecutionPlan (T_ExecutionPlan sem) (Inh_ExecutionPlan _lhsIimportBlocks _lhsIinhmap _lhsIlocalAttrTypes _lhsImainBlocksDoc _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsIoptions _lhsIpragmaBlocks _lhsIsynmap _lhsItextBlockMap _lhsItextBlocks) =- (let ( _lhsOerrors,_lhsOgenIO,_lhsOoutput) = sem _lhsIimportBlocks _lhsIinhmap _lhsIlocalAttrTypes _lhsImainBlocksDoc _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsIoptions _lhsIpragmaBlocks _lhsIsynmap _lhsItextBlockMap _lhsItextBlocks- in (Syn_ExecutionPlan _lhsOerrors _lhsOgenIO _lhsOoutput))-sem_ExecutionPlan_ExecutionPlan :: T_ENonterminals ->- TypeSyns ->- (Set NontermIdent) ->- Derivings ->- T_ExecutionPlan-sem_ExecutionPlan_ExecutionPlan (T_ENonterminals nonts_) typeSyns_ wrappers_ derivings_ =- (T_ExecutionPlan (\ _lhsIimportBlocks- _lhsIinhmap- _lhsIlocalAttrTypes- _lhsImainBlocksDoc- _lhsImainFile- _lhsImainName- _lhsImoduleHeader- _lhsIoptions- _lhsIpragmaBlocks- _lhsIsynmap- _lhsItextBlockMap- _lhsItextBlocks ->- (let _lhsOoutput :: PP_Doc- _nontsOwrappers :: (Set NontermIdent)- _nontsOtypeSyns :: TypeSyns- _nontsOderivings :: Derivings- _nontsOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _nontsOavisitdefs :: (Map VisitIdentifier (Set Identifier))- _nontsOavisituses :: (Map VisitIdentifier (Set Identifier))- _lhsOgenIO :: (IO ())- _nontsOallFromToStates :: (Map VisitIdentifier (Int,Int))- _nontsOallVisitKinds :: (Map VisitIdentifier VisitKind)- _nontsOallInitStates :: (Map NontermIdent Int)- _lhsOerrors :: (Seq Error)- _nontsOimportBlocks :: PP_Doc- _nontsOinhmap :: (Map NontermIdent Attributes)- _nontsOlocalAttrTypes :: (Map NontermIdent (Map ConstructorIdent (Map Identifier Type)))- _nontsOmainFile :: String- _nontsOmainName :: String- _nontsOmoduleHeader :: (String -> String -> String -> Bool -> String)- _nontsOoptions :: Options- _nontsOpragmaBlocks :: String- _nontsOsynmap :: (Map NontermIdent Attributes)- _nontsOtextBlocks :: PP_Doc- _nontsIappendCommon :: ([PP_Doc])- _nontsIappendMain :: ([PP_Doc])- _nontsIchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _nontsIerrors :: (Seq Error)- _nontsIfromToStates :: (Map VisitIdentifier (Int,Int))- _nontsIgenProdIO :: (IO ())- _nontsIimports :: ([PP_Doc])- _nontsIinitStates :: (Map NontermIdent Int)- _nontsIoutput :: PP_Doc- _nontsIsemFunBndDefs :: (Seq PP_Doc)- _nontsIsemFunBndTps :: (Seq PP_Doc)- _nontsIvisitKinds :: (Map VisitIdentifier VisitKind)- _nontsIvisitdefs :: (Map VisitIdentifier (Set Identifier))- _nontsIvisituses :: (Map VisitIdentifier (Set Identifier))- -- "src-ag/ExecutionPlan2Hs.ag"(line 87, column 19)- _lhsOoutput =- ({-# LINE 87 "src-ag/ExecutionPlan2Hs.ag" #-}- _nontsIoutput >-< _commonExtra >-< _wrappersExtra- {-# LINE 5265 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 93, column 19)- _nontsOwrappers =- ({-# LINE 93 "src-ag/ExecutionPlan2Hs.ag" #-}- wrappers_- {-# LINE 5271 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 132, column 19)- _nontsOtypeSyns =- ({-# LINE 132 "src-ag/ExecutionPlan2Hs.ag" #-}- typeSyns_- {-# LINE 5277 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 133, column 19)- _nontsOderivings =- ({-# LINE 133 "src-ag/ExecutionPlan2Hs.ag" #-}- derivings_- {-# LINE 5283 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 532, column 3)- _wrappersExtra =- ({-# LINE 532 "src-ag/ExecutionPlan2Hs.ag" #-}- if kennedyWarren _lhsIoptions && lateHigherOrderBinding _lhsIoptions- then _lateSemBndDef- else empty- {-# LINE 5291 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 535, column 3)- _commonExtra =- ({-# LINE 535 "src-ag/ExecutionPlan2Hs.ag" #-}- if kennedyWarren _lhsIoptions && lateHigherOrderBinding _lhsIoptions- then _lateSemBndTp- else empty- {-# LINE 5299 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 538, column 3)- _lateSemBndTp =- ({-# LINE 538 "src-ag/ExecutionPlan2Hs.ag" #-}- "data" >#< lateBindingTypeNm _lhsImainName >#< "=" >#< lateBindingTypeNm _lhsImainName- >-< (indent 2 $ pp_block "{" "}" "," $ toList _nontsIsemFunBndTps)- {-# LINE 5306 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 540, column 3)- _lateSemBndDef =- ({-# LINE 540 "src-ag/ExecutionPlan2Hs.ag" #-}- ( if noInlinePragmas _lhsIoptions- then empty- else if helpInlining _lhsIoptions && Set.size wrappers_ == 1- then ppInline $ lateBindingFieldNm _lhsImainName- else ppNoInline $ lateBindingFieldNm _lhsImainName- )- >-< lateBindingFieldNm _lhsImainName >#< "::" >#< lateBindingTypeNm _lhsImainName- >-< lateBindingFieldNm _lhsImainName >#< "=" >#< lateBindingTypeNm _lhsImainName- >-< (indent 2 $ pp_block "{" "}" "," $ toList _nontsIsemFunBndDefs )- {-# LINE 5320 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1192, column 19)- _nontsOallchildvisit =- ({-# LINE 1192 "src-ag/ExecutionPlan2Hs.ag" #-}- _nontsIchildvisit- {-# LINE 5326 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1336, column 19)- _nontsOavisitdefs =- ({-# LINE 1336 "src-ag/ExecutionPlan2Hs.ag" #-}- _nontsIvisitdefs- {-# LINE 5332 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1337, column 19)- _nontsOavisituses =- ({-# LINE 1337 "src-ag/ExecutionPlan2Hs.ag" #-}- _nontsIvisituses- {-# LINE 5338 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1408, column 19)- _lhsOgenIO =- ({-# LINE 1408 "src-ag/ExecutionPlan2Hs.ag" #-}- do _genMainModule- _genCommonModule- _nontsIgenProdIO- {-# LINE 5346 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1411, column 19)- _mainModuleFile =- ({-# LINE 1411 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainFile- {-# LINE 5352 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1412, column 19)- _ppMonadImports =- ({-# LINE 1412 "src-ag/ExecutionPlan2Hs.ag" #-}- ( if tupleAsDummyToken _lhsIoptions- then empty- else pp "import GHC.Prim"- )- >-< if parallelInvoke _lhsIoptions- then pp "import qualified System.IO.Unsafe(unsafePerformIO)"- >-< pp "import System.IO(IO)"- >-< pp "import Control.Concurrent(newEmptyMVar,forkIO,putMVar,takeMVar)"- else pp "import Control.Monad.Identity"- {-# LINE 5366 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1421, column 19)- _genMainModule =- ({-# LINE 1421 "src-ag/ExecutionPlan2Hs.ag" #-}- writeModule _mainModuleFile- ( [ warrenFlagsPP _lhsIoptions- , pp $ _lhsIpragmaBlocks- , pp $ _lhsImoduleHeader _lhsImainName "" "" False- , _ppMonadImports- , pp $ "import " ++ _lhsImainName ++ "_common"- ]- ++ _nontsIimports- ++ [_lhsImainBlocksDoc]- ++ [_wrappersExtra ]- ++ _nontsIappendMain- )- {-# LINE 5383 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1433, column 19)- _commonFile =- ({-# LINE 1433 "src-ag/ExecutionPlan2Hs.ag" #-}- replaceBaseName _lhsImainFile (takeBaseName _lhsImainFile ++ "_common")- {-# LINE 5389 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1434, column 19)- _genCommonModule =- ({-# LINE 1434 "src-ag/ExecutionPlan2Hs.ag" #-}- writeModule _commonFile- ( [ pp $ "{-# LANGUAGE Rank2Types, GADTs #-}"- , pp $ _lhsIpragmaBlocks- , pp $ _lhsImoduleHeader _lhsImainName "_common" "" True- , _ppMonadImports- , _lhsIimportBlocks- , _lhsItextBlocks- , _commonExtra- ]- ++ _nontsIappendCommon- )- {-# LINE 5405 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1553, column 3)- _nontsOallFromToStates =- ({-# LINE 1553 "src-ag/ExecutionPlan2Hs.ag" #-}- _nontsIfromToStates- {-# LINE 5411 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1597, column 3)- _nontsOallVisitKinds =- ({-# LINE 1597 "src-ag/ExecutionPlan2Hs.ag" #-}- _nontsIvisitKinds- {-# LINE 5417 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1611, column 3)- _nontsOallInitStates =- ({-# LINE 1611 "src-ag/ExecutionPlan2Hs.ag" #-}- _nontsIinitStates- {-# LINE 5423 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)- _lhsOerrors =- ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}- _nontsIerrors- {-# LINE 5429 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _nontsOimportBlocks =- ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIimportBlocks- {-# LINE 5435 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _nontsOinhmap =- ({-# LINE 312 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinhmap- {-# LINE 5441 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _nontsOlocalAttrTypes =- ({-# LINE 1576 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIlocalAttrTypes- {-# LINE 5447 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _nontsOmainFile =- ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainFile- {-# LINE 5453 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _nontsOmainName =- ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImainName- {-# LINE 5459 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _nontsOmoduleHeader =- ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImoduleHeader- {-# LINE 5465 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _nontsOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 5471 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _nontsOpragmaBlocks =- ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIpragmaBlocks- {-# LINE 5477 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _nontsOsynmap =- ({-# LINE 313 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIsynmap- {-# LINE 5483 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _nontsOtextBlocks =- ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsItextBlocks- {-# LINE 5489 "dist/build/ExecutionPlan2Hs" #-}- )- ( _nontsIappendCommon,_nontsIappendMain,_nontsIchildvisit,_nontsIerrors,_nontsIfromToStates,_nontsIgenProdIO,_nontsIimports,_nontsIinitStates,_nontsIoutput,_nontsIsemFunBndDefs,_nontsIsemFunBndTps,_nontsIvisitKinds,_nontsIvisitdefs,_nontsIvisituses) =- nonts_ _nontsOallFromToStates _nontsOallInitStates _nontsOallVisitKinds _nontsOallchildvisit _nontsOavisitdefs _nontsOavisituses _nontsOderivings _nontsOimportBlocks _nontsOinhmap _nontsOlocalAttrTypes _nontsOmainFile _nontsOmainName _nontsOmoduleHeader _nontsOoptions _nontsOpragmaBlocks _nontsOsynmap _nontsOtextBlocks _nontsOtypeSyns _nontsOwrappers- in ( _lhsOerrors,_lhsOgenIO,_lhsOoutput))))--- Expression ---------------------------------------------------{-- visit 0:- synthesized attributes:- attrs : Map String (Maybe NonLocalAttr)- pos : Pos- semfunc : PP_Doc- tks : [HsToken]- alternatives:- alternative Expression:- child pos : {Pos}- child tks : {[HsToken]}--}--- cata-sem_Expression :: Expression ->- T_Expression-sem_Expression (Expression _pos _tks) =- (sem_Expression_Expression _pos _tks)--- semantic domain-newtype T_Expression = T_Expression (( (Map String (Maybe NonLocalAttr)),Pos,PP_Doc,([HsToken])))-data Inh_Expression = Inh_Expression {}-data Syn_Expression = Syn_Expression {attrs_Syn_Expression :: (Map String (Maybe NonLocalAttr)),pos_Syn_Expression :: Pos,semfunc_Syn_Expression :: PP_Doc,tks_Syn_Expression :: ([HsToken])}-wrap_Expression :: T_Expression ->- Inh_Expression ->- Syn_Expression-wrap_Expression (T_Expression sem) (Inh_Expression) =- (let ( _lhsOattrs,_lhsOpos,_lhsOsemfunc,_lhsOtks) = sem- in (Syn_Expression _lhsOattrs _lhsOpos _lhsOsemfunc _lhsOtks))-sem_Expression_Expression :: Pos ->- ([HsToken]) ->- T_Expression-sem_Expression_Expression pos_ tks_ =- (T_Expression (let _lhsOtks :: ([HsToken])- _lhsOpos :: Pos- _lhsOattrs :: (Map String (Maybe NonLocalAttr))- _lhsOsemfunc :: PP_Doc- -- "src-ag/ExecutionPlan2Hs.ag"(line 1048, column 16)- _lhsOtks =- ({-# LINE 1048 "src-ag/ExecutionPlan2Hs.ag" #-}- tks_- {-# LINE 5534 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1091, column 29)- _lhsOpos =- ({-# LINE 1091 "src-ag/ExecutionPlan2Hs.ag" #-}- pos_- {-# LINE 5540 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1177, column 16)- _lhsOattrs =- ({-# LINE 1177 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.unions $ map (\tok -> attrs_Syn_HsToken (wrap_HsToken (sem_HsToken tok) Inh_HsToken)) tks_- {-# LINE 5546 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1178, column 16)- _lhsOsemfunc =- ({-# LINE 1178 "src-ag/ExecutionPlan2Hs.ag" #-}- vlist $ showTokens $ map (\tok -> tok_Syn_HsToken (wrap_HsToken (sem_HsToken tok) Inh_HsToken)) tks_- {-# LINE 5552 "dist/build/ExecutionPlan2Hs" #-}- )- in ( _lhsOattrs,_lhsOpos,_lhsOsemfunc,_lhsOtks)))--- HsToken ------------------------------------------------------{-- visit 0:- synthesized attributes:- attrs : Map String (Maybe NonLocalAttr)- tok : (Pos,String)- alternatives:- alternative AGField:- child field : {Identifier}- child attr : {Identifier}- child pos : {Pos}- child rdesc : {Maybe String}- visit 0:- local mbAttr : _- local addTrace : _- alternative AGLocal:- child var : {Identifier}- child pos : {Pos}- child rdesc : {Maybe String}- visit 0:- local tok : _- alternative CharToken:- child value : {String}- child pos : {Pos}- alternative Err:- child mesg : {String}- child pos : {Pos}- alternative HsToken:- child value : {String}- child pos : {Pos}- alternative StrToken:- child value : {String}- child pos : {Pos}--}--- cata-sem_HsToken :: HsToken ->- T_HsToken-sem_HsToken (AGField _field _attr _pos _rdesc) =- (sem_HsToken_AGField _field _attr _pos _rdesc)-sem_HsToken (AGLocal _var _pos _rdesc) =- (sem_HsToken_AGLocal _var _pos _rdesc)-sem_HsToken (CharToken _value _pos) =- (sem_HsToken_CharToken _value _pos)-sem_HsToken (Err _mesg _pos) =- (sem_HsToken_Err _mesg _pos)-sem_HsToken (HsToken _value _pos) =- (sem_HsToken_HsToken _value _pos)-sem_HsToken (StrToken _value _pos) =- (sem_HsToken_StrToken _value _pos)--- semantic domain-newtype T_HsToken = T_HsToken (( (Map String (Maybe NonLocalAttr)),((Pos,String))))-data Inh_HsToken = Inh_HsToken {}-data Syn_HsToken = Syn_HsToken {attrs_Syn_HsToken :: (Map String (Maybe NonLocalAttr)),tok_Syn_HsToken :: ((Pos,String))}-wrap_HsToken :: T_HsToken ->- Inh_HsToken ->- Syn_HsToken-wrap_HsToken (T_HsToken sem) (Inh_HsToken) =- (let ( _lhsOattrs,_lhsOtok) = sem- in (Syn_HsToken _lhsOattrs _lhsOtok))-sem_HsToken_AGField :: Identifier ->- Identifier ->- Pos ->- (Maybe String) ->- T_HsToken-sem_HsToken_AGField field_ attr_ pos_ rdesc_ =- (T_HsToken (let _lhsOattrs :: (Map String (Maybe NonLocalAttr))- _lhsOtok :: ((Pos,String))- -- "src-ag/ExecutionPlan2Hs.ag"(line 1137, column 15)- _mbAttr =- ({-# LINE 1137 "src-ag/ExecutionPlan2Hs.ag" #-}- if field_ == _INST || field_ == _FIELD || field_ == _INST'- then Nothing- else Just $ mkNonLocalAttr (field_ == _LHS) field_ attr_- {-# LINE 5628 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1140, column 15)- _lhsOattrs =- ({-# LINE 1140 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.singleton (attrname True field_ attr_) _mbAttr- {-# LINE 5634 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1385, column 8)- _addTrace =- ({-# LINE 1385 "src-ag/ExecutionPlan2Hs.ag" #-}- case rdesc_ of- Just d -> \x -> "(trace " ++ show (d ++ " -> " ++ show field_ ++ "." ++ show attr_) ++ " (" ++ x ++ "))"- Nothing -> id- {-# LINE 5642 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1388, column 8)- _lhsOtok =- ({-# LINE 1388 "src-ag/ExecutionPlan2Hs.ag" #-}- (pos_, _addTrace $ attrname True field_ attr_)- {-# LINE 5648 "dist/build/ExecutionPlan2Hs" #-}- )- in ( _lhsOattrs,_lhsOtok)))-sem_HsToken_AGLocal :: Identifier ->- Pos ->- (Maybe String) ->- T_HsToken-sem_HsToken_AGLocal var_ pos_ rdesc_ =- (T_HsToken (let _lhsOattrs :: (Map String (Maybe NonLocalAttr))- _lhsOtok :: ((Pos,String))- -- "src-ag/ExecutionPlan2Hs.ag"(line 1136, column 15)- _lhsOattrs =- ({-# LINE 1136 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.singleton (fieldname var_) Nothing- {-# LINE 5662 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1381, column 15)- _tok =- ({-# LINE 1381 "src-ag/ExecutionPlan2Hs.ag" #-}- (pos_,fieldname var_)- {-# LINE 5668 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (from local)- _lhsOtok =- ({-# LINE 1383 "src-ag/ExecutionPlan2Hs.ag" #-}- _tok- {-# LINE 5674 "dist/build/ExecutionPlan2Hs" #-}- )- in ( _lhsOattrs,_lhsOtok)))-sem_HsToken_CharToken :: String ->- Pos ->- T_HsToken-sem_HsToken_CharToken value_ pos_ =- (T_HsToken (let _lhsOtok :: ((Pos,String))- _lhsOattrs :: (Map String (Maybe NonLocalAttr))- -- "src-ag/ExecutionPlan2Hs.ag"(line 1392, column 16)- _lhsOtok =- ({-# LINE 1392 "src-ag/ExecutionPlan2Hs.ag" #-}- (pos_, if null value_- then ""- else showCharShort (head value_)- )- {-# LINE 5690 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1134, column 37)- _lhsOattrs =- ({-# LINE 1134 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 5696 "dist/build/ExecutionPlan2Hs" #-}- )- in ( _lhsOattrs,_lhsOtok)))-sem_HsToken_Err :: String ->- Pos ->- T_HsToken-sem_HsToken_Err mesg_ pos_ =- (T_HsToken (let _lhsOtok :: ((Pos,String))- _lhsOattrs :: (Map String (Maybe NonLocalAttr))- -- "src-ag/ExecutionPlan2Hs.ag"(line 1398, column 16)- _lhsOtok =- ({-# LINE 1398 "src-ag/ExecutionPlan2Hs.ag" #-}- (pos_, "")- {-# LINE 5709 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1134, column 37)- _lhsOattrs =- ({-# LINE 1134 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 5715 "dist/build/ExecutionPlan2Hs" #-}- )- in ( _lhsOattrs,_lhsOtok)))-sem_HsToken_HsToken :: String ->- Pos ->- T_HsToken-sem_HsToken_HsToken value_ pos_ =- (T_HsToken (let _lhsOtok :: ((Pos,String))- _lhsOattrs :: (Map String (Maybe NonLocalAttr))- -- "src-ag/ExecutionPlan2Hs.ag"(line 1390, column 14)- _lhsOtok =- ({-# LINE 1390 "src-ag/ExecutionPlan2Hs.ag" #-}- (pos_, value_)- {-# LINE 5728 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1134, column 37)- _lhsOattrs =- ({-# LINE 1134 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 5734 "dist/build/ExecutionPlan2Hs" #-}- )- in ( _lhsOattrs,_lhsOtok)))-sem_HsToken_StrToken :: String ->- Pos ->- T_HsToken-sem_HsToken_StrToken value_ pos_ =- (T_HsToken (let _lhsOtok :: ((Pos,String))- _lhsOattrs :: (Map String (Maybe NonLocalAttr))- -- "src-ag/ExecutionPlan2Hs.ag"(line 1397, column 16)- _lhsOtok =- ({-# LINE 1397 "src-ag/ExecutionPlan2Hs.ag" #-}- (pos_, showStrShort value_)- {-# LINE 5747 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1134, column 37)- _lhsOattrs =- ({-# LINE 1134 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 5753 "dist/build/ExecutionPlan2Hs" #-}- )- in ( _lhsOattrs,_lhsOtok)))--- HsTokens -----------------------------------------------------{-- visit 0:- synthesized attribute:- tks : [(Pos,String)]- alternatives:- alternative Cons:- child hd : HsToken - child tl : HsTokens - alternative Nil:--}--- cata-sem_HsTokens :: HsTokens ->- T_HsTokens-sem_HsTokens list =- (Prelude.foldr sem_HsTokens_Cons sem_HsTokens_Nil (Prelude.map sem_HsToken list))--- semantic domain-newtype T_HsTokens = T_HsTokens (( ([(Pos,String)])))-data Inh_HsTokens = Inh_HsTokens {}-data Syn_HsTokens = Syn_HsTokens {tks_Syn_HsTokens :: ([(Pos,String)])}-wrap_HsTokens :: T_HsTokens ->- Inh_HsTokens ->- Syn_HsTokens-wrap_HsTokens (T_HsTokens sem) (Inh_HsTokens) =- (let ( _lhsOtks) = sem- in (Syn_HsTokens _lhsOtks))-sem_HsTokens_Cons :: T_HsToken ->- T_HsTokens ->- T_HsTokens-sem_HsTokens_Cons (T_HsToken hd_) (T_HsTokens tl_) =- (T_HsTokens (let _lhsOtks :: ([(Pos,String)])- _hdIattrs :: (Map String (Maybe NonLocalAttr))- _hdItok :: ((Pos,String))- _tlItks :: ([(Pos,String)])- -- "src-ag/ExecutionPlan2Hs.ag"(line 1377, column 10)- _lhsOtks =- ({-# LINE 1377 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdItok : _tlItks- {-# LINE 5794 "dist/build/ExecutionPlan2Hs" #-}- )- ( _hdIattrs,_hdItok) =- hd_- ( _tlItks) =- tl_- in ( _lhsOtks)))-sem_HsTokens_Nil :: T_HsTokens-sem_HsTokens_Nil =- (T_HsTokens (let _lhsOtks :: ([(Pos,String)])- -- "src-ag/ExecutionPlan2Hs.ag"(line 1378, column 10)- _lhsOtks =- ({-# LINE 1378 "src-ag/ExecutionPlan2Hs.ag" #-}- []- {-# LINE 5808 "dist/build/ExecutionPlan2Hs" #-}- )- in ( _lhsOtks)))--- HsTokensRoot -------------------------------------------------{-- alternatives:- alternative HsTokensRoot:- child tokens : HsTokens --}--- cata-sem_HsTokensRoot :: HsTokensRoot ->- T_HsTokensRoot-sem_HsTokensRoot (HsTokensRoot _tokens) =- (sem_HsTokensRoot_HsTokensRoot (sem_HsTokens _tokens))--- semantic domain-newtype T_HsTokensRoot = T_HsTokensRoot (( ))-data Inh_HsTokensRoot = Inh_HsTokensRoot {}-data Syn_HsTokensRoot = Syn_HsTokensRoot {}-wrap_HsTokensRoot :: T_HsTokensRoot ->- Inh_HsTokensRoot ->- Syn_HsTokensRoot-wrap_HsTokensRoot (T_HsTokensRoot sem) (Inh_HsTokensRoot) =- (let ( ) = sem- in (Syn_HsTokensRoot))-sem_HsTokensRoot_HsTokensRoot :: T_HsTokens ->- T_HsTokensRoot-sem_HsTokensRoot_HsTokensRoot (T_HsTokens tokens_) =- (T_HsTokensRoot (let _tokensItks :: ([(Pos,String)])- ( _tokensItks) =- tokens_- in ( )))--- Pattern ------------------------------------------------------{-- visit 0:- inherited attributes:- allInhmap : Map NontermIdent Attributes- allSynmap : Map NontermIdent Attributes- anyLazyKind : Bool- inhmap : Attributes- localAttrTypes : Map Identifier Type- options : Options- synmap : Attributes- synthesized attributes:- attrTypes : PP_Doc- attrs : Set String- copy : Pattern - isUnderscore : Bool- sem_lhs : PP_Doc - alternatives:- alternative Alias:- child field : {Identifier}- child attr : {Identifier}- child pat : Pattern - visit 0:- local varPat : _- local patExpr : _- local mbTp : _- local addbang : _- local addbang1 : _- local copy : _- alternative Constr:- child name : {ConstructorIdent}- child pats : Patterns - visit 0:- local addbang : _- local addbang1 : _- local copy : _- alternative Irrefutable:- child pat : Pattern - visit 0:- local copy : _- alternative Product:- child pos : {Pos}- child pats : Patterns - visit 0:- local addbang : _- local addbang1 : _- local copy : _- alternative Underscore:- child pos : {Pos}- visit 0:- local copy : _--}--- cata-sem_Pattern :: Pattern ->- T_Pattern-sem_Pattern (Alias _field _attr _pat) =- (sem_Pattern_Alias _field _attr (sem_Pattern _pat))-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 ((Map NontermIdent Attributes) ->- (Map NontermIdent Attributes) ->- Bool ->- Attributes ->- (Map Identifier Type) ->- Options ->- Attributes ->- ( PP_Doc,(Set String),Pattern,Bool,( PP_Doc )))-data Inh_Pattern = Inh_Pattern {allInhmap_Inh_Pattern :: (Map NontermIdent Attributes),allSynmap_Inh_Pattern :: (Map NontermIdent Attributes),anyLazyKind_Inh_Pattern :: Bool,inhmap_Inh_Pattern :: Attributes,localAttrTypes_Inh_Pattern :: (Map Identifier Type),options_Inh_Pattern :: Options,synmap_Inh_Pattern :: Attributes}-data Syn_Pattern = Syn_Pattern {attrTypes_Syn_Pattern :: PP_Doc,attrs_Syn_Pattern :: (Set String),copy_Syn_Pattern :: Pattern,isUnderscore_Syn_Pattern :: Bool,sem_lhs_Syn_Pattern :: ( PP_Doc )}-wrap_Pattern :: T_Pattern ->- Inh_Pattern ->- Syn_Pattern-wrap_Pattern (T_Pattern sem) (Inh_Pattern _lhsIallInhmap _lhsIallSynmap _lhsIanyLazyKind _lhsIinhmap _lhsIlocalAttrTypes _lhsIoptions _lhsIsynmap) =- (let ( _lhsOattrTypes,_lhsOattrs,_lhsOcopy,_lhsOisUnderscore,_lhsOsem_lhs) = sem _lhsIallInhmap _lhsIallSynmap _lhsIanyLazyKind _lhsIinhmap _lhsIlocalAttrTypes _lhsIoptions _lhsIsynmap- in (Syn_Pattern _lhsOattrTypes _lhsOattrs _lhsOcopy _lhsOisUnderscore _lhsOsem_lhs))-sem_Pattern_Alias :: Identifier ->- Identifier ->- T_Pattern ->- T_Pattern-sem_Pattern_Alias field_ attr_ (T_Pattern pat_) =- (T_Pattern (\ _lhsIallInhmap- _lhsIallSynmap- _lhsIanyLazyKind- _lhsIinhmap- _lhsIlocalAttrTypes- _lhsIoptions- _lhsIsynmap ->- (let _lhsOsem_lhs :: ( PP_Doc )- _lhsOisUnderscore :: Bool- _lhsOattrs :: (Set String)- _lhsOattrTypes :: PP_Doc- _lhsOcopy :: Pattern- _patOallInhmap :: (Map NontermIdent Attributes)- _patOallSynmap :: (Map NontermIdent Attributes)- _patOanyLazyKind :: Bool- _patOinhmap :: Attributes- _patOlocalAttrTypes :: (Map Identifier Type)- _patOoptions :: Options- _patOsynmap :: Attributes- _patIattrTypes :: PP_Doc- _patIattrs :: (Set String)- _patIcopy :: Pattern- _patIisUnderscore :: Bool- _patIsem_lhs :: ( PP_Doc )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1099, column 17)- _varPat =- ({-# LINE 1099 "src-ag/ExecutionPlan2Hs.ag" #-}- text $ attrname False field_ attr_- {-# LINE 5954 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1100, column 17)- _patExpr =- ({-# LINE 1100 "src-ag/ExecutionPlan2Hs.ag" #-}- if _patIisUnderscore- then _varPat- else _varPat >|< "@" >|< _patIsem_lhs- {-# LINE 5962 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1103, column 17)- _lhsOsem_lhs =- ({-# LINE 1103 "src-ag/ExecutionPlan2Hs.ag" #-}- _addbang1 _patExpr- {-# LINE 5968 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1114, column 16)- _lhsOisUnderscore =- ({-# LINE 1114 "src-ag/ExecutionPlan2Hs.ag" #-}- False- {-# LINE 5974 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1120, column 3)- _lhsOattrs =- ({-# LINE 1120 "src-ag/ExecutionPlan2Hs.ag" #-}- Set.insert (attrname False field_ attr_) _patIattrs- {-# LINE 5980 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1125, column 3)- _mbTp =- ({-# LINE 1125 "src-ag/ExecutionPlan2Hs.ag" #-}- if field_ == _LHS- then Map.lookup attr_ _lhsIsynmap- else if field_ == _LOC- then Map.lookup attr_ _lhsIlocalAttrTypes- else Nothing- {-# LINE 5990 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1130, column 3)- _lhsOattrTypes =- ({-# LINE 1130 "src-ag/ExecutionPlan2Hs.ag" #-}- maybe empty (\tp -> (attrname False field_ attr_) >#< "::" >#< ppTp tp) _mbTp- >-< _patIattrTypes- {-# LINE 5997 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1521, column 37)- _addbang =- ({-# LINE 1521 "src-ag/ExecutionPlan2Hs.ag" #-}- \x -> if bangpats _lhsIoptions then "!" >|< x else x- {-# LINE 6003 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1526, column 37)- _addbang1 =- ({-# LINE 1526 "src-ag/ExecutionPlan2Hs.ag" #-}- if _lhsIanyLazyKind then id else _addbang- {-# LINE 6009 "dist/build/ExecutionPlan2Hs" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Alias field_ attr_ _patIcopy- {-# LINE 6015 "dist/build/ExecutionPlan2Hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 6021 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patOallInhmap =- ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInhmap- {-# LINE 6027 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patOallSynmap =- ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallSynmap- {-# LINE 6033 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patOanyLazyKind =- ({-# LINE 1267 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIanyLazyKind- {-# LINE 6039 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patOinhmap =- ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinhmap- {-# LINE 6045 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patOlocalAttrTypes =- ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIlocalAttrTypes- {-# LINE 6051 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 6057 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patOsynmap =- ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIsynmap- {-# LINE 6063 "dist/build/ExecutionPlan2Hs" #-}- )- ( _patIattrTypes,_patIattrs,_patIcopy,_patIisUnderscore,_patIsem_lhs) =- pat_ _patOallInhmap _patOallSynmap _patOanyLazyKind _patOinhmap _patOlocalAttrTypes _patOoptions _patOsynmap- in ( _lhsOattrTypes,_lhsOattrs,_lhsOcopy,_lhsOisUnderscore,_lhsOsem_lhs))))-sem_Pattern_Constr :: ConstructorIdent ->- T_Patterns ->- T_Pattern-sem_Pattern_Constr name_ (T_Patterns pats_) =- (T_Pattern (\ _lhsIallInhmap- _lhsIallSynmap- _lhsIanyLazyKind- _lhsIinhmap- _lhsIlocalAttrTypes- _lhsIoptions- _lhsIsynmap ->- (let _lhsOsem_lhs :: ( PP_Doc )- _lhsOisUnderscore :: Bool- _lhsOattrTypes :: PP_Doc- _lhsOattrs :: (Set String)- _lhsOcopy :: Pattern- _patsOallInhmap :: (Map NontermIdent Attributes)- _patsOallSynmap :: (Map NontermIdent Attributes)- _patsOanyLazyKind :: Bool- _patsOinhmap :: Attributes- _patsOlocalAttrTypes :: (Map Identifier Type)- _patsOoptions :: Options- _patsOsynmap :: Attributes- _patsIattrTypes :: PP_Doc- _patsIattrs :: (Set String)- _patsIcopy :: Patterns- _patsIsem_lhs :: ([PP_Doc])- -- "src-ag/ExecutionPlan2Hs.ag"(line 1105, column 17)- _lhsOsem_lhs =- ({-# LINE 1105 "src-ag/ExecutionPlan2Hs.ag" #-}- _addbang1 $ pp_parens $ name_ >#< hv_sp _patsIsem_lhs- {-# LINE 6099 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1112, column 16)- _lhsOisUnderscore =- ({-# LINE 1112 "src-ag/ExecutionPlan2Hs.ag" #-}- False- {-# LINE 6105 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1521, column 37)- _addbang =- ({-# LINE 1521 "src-ag/ExecutionPlan2Hs.ag" #-}- \x -> if bangpats _lhsIoptions then "!" >|< x else x- {-# LINE 6111 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1526, column 37)- _addbang1 =- ({-# LINE 1526 "src-ag/ExecutionPlan2Hs.ag" #-}- if _lhsIanyLazyKind then id else _addbang- {-# LINE 6117 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1123, column 40)- _lhsOattrTypes =- ({-# LINE 1123 "src-ag/ExecutionPlan2Hs.ag" #-}- _patsIattrTypes- {-# LINE 6123 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1118, column 36)- _lhsOattrs =- ({-# LINE 1118 "src-ag/ExecutionPlan2Hs.ag" #-}- _patsIattrs- {-# LINE 6129 "dist/build/ExecutionPlan2Hs" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Constr name_ _patsIcopy- {-# LINE 6135 "dist/build/ExecutionPlan2Hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 6141 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patsOallInhmap =- ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInhmap- {-# LINE 6147 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patsOallSynmap =- ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallSynmap- {-# LINE 6153 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patsOanyLazyKind =- ({-# LINE 1267 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIanyLazyKind- {-# LINE 6159 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patsOinhmap =- ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinhmap- {-# LINE 6165 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patsOlocalAttrTypes =- ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIlocalAttrTypes- {-# LINE 6171 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patsOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 6177 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patsOsynmap =- ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIsynmap- {-# LINE 6183 "dist/build/ExecutionPlan2Hs" #-}- )- ( _patsIattrTypes,_patsIattrs,_patsIcopy,_patsIsem_lhs) =- pats_ _patsOallInhmap _patsOallSynmap _patsOanyLazyKind _patsOinhmap _patsOlocalAttrTypes _patsOoptions _patsOsynmap- in ( _lhsOattrTypes,_lhsOattrs,_lhsOcopy,_lhsOisUnderscore,_lhsOsem_lhs))))-sem_Pattern_Irrefutable :: T_Pattern ->- T_Pattern-sem_Pattern_Irrefutable (T_Pattern pat_) =- (T_Pattern (\ _lhsIallInhmap- _lhsIallSynmap- _lhsIanyLazyKind- _lhsIinhmap- _lhsIlocalAttrTypes- _lhsIoptions- _lhsIsynmap ->- (let _lhsOsem_lhs :: ( PP_Doc )- _lhsOattrTypes :: PP_Doc- _lhsOattrs :: (Set String)- _lhsOcopy :: Pattern- _lhsOisUnderscore :: Bool- _patOallInhmap :: (Map NontermIdent Attributes)- _patOallSynmap :: (Map NontermIdent Attributes)- _patOanyLazyKind :: Bool- _patOinhmap :: Attributes- _patOlocalAttrTypes :: (Map Identifier Type)- _patOoptions :: Options- _patOsynmap :: Attributes- _patIattrTypes :: PP_Doc- _patIattrs :: (Set String)- _patIcopy :: Pattern- _patIisUnderscore :: Bool- _patIsem_lhs :: ( PP_Doc )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1107, column 17)- _lhsOsem_lhs =- ({-# LINE 1107 "src-ag/ExecutionPlan2Hs.ag" #-}- text "~" >|< pp_parens _patIsem_lhs- {-# LINE 6219 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1123, column 40)- _lhsOattrTypes =- ({-# LINE 1123 "src-ag/ExecutionPlan2Hs.ag" #-}- _patIattrTypes- {-# LINE 6225 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1118, column 36)- _lhsOattrs =- ({-# LINE 1118 "src-ag/ExecutionPlan2Hs.ag" #-}- _patIattrs- {-# LINE 6231 "dist/build/ExecutionPlan2Hs" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Irrefutable _patIcopy- {-# LINE 6237 "dist/build/ExecutionPlan2Hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 6243 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (up)- _lhsOisUnderscore =- ({-# LINE 1110 "src-ag/ExecutionPlan2Hs.ag" #-}- _patIisUnderscore- {-# LINE 6249 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patOallInhmap =- ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInhmap- {-# LINE 6255 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patOallSynmap =- ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallSynmap- {-# LINE 6261 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patOanyLazyKind =- ({-# LINE 1267 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIanyLazyKind- {-# LINE 6267 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patOinhmap =- ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinhmap- {-# LINE 6273 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patOlocalAttrTypes =- ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIlocalAttrTypes- {-# LINE 6279 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 6285 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patOsynmap =- ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIsynmap- {-# LINE 6291 "dist/build/ExecutionPlan2Hs" #-}- )- ( _patIattrTypes,_patIattrs,_patIcopy,_patIisUnderscore,_patIsem_lhs) =- pat_ _patOallInhmap _patOallSynmap _patOanyLazyKind _patOinhmap _patOlocalAttrTypes _patOoptions _patOsynmap- in ( _lhsOattrTypes,_lhsOattrs,_lhsOcopy,_lhsOisUnderscore,_lhsOsem_lhs))))-sem_Pattern_Product :: Pos ->- T_Patterns ->- T_Pattern-sem_Pattern_Product pos_ (T_Patterns pats_) =- (T_Pattern (\ _lhsIallInhmap- _lhsIallSynmap- _lhsIanyLazyKind- _lhsIinhmap- _lhsIlocalAttrTypes- _lhsIoptions- _lhsIsynmap ->- (let _lhsOsem_lhs :: ( PP_Doc )- _lhsOisUnderscore :: Bool- _lhsOattrTypes :: PP_Doc- _lhsOattrs :: (Set String)- _lhsOcopy :: Pattern- _patsOallInhmap :: (Map NontermIdent Attributes)- _patsOallSynmap :: (Map NontermIdent Attributes)- _patsOanyLazyKind :: Bool- _patsOinhmap :: Attributes- _patsOlocalAttrTypes :: (Map Identifier Type)- _patsOoptions :: Options- _patsOsynmap :: Attributes- _patsIattrTypes :: PP_Doc- _patsIattrs :: (Set String)- _patsIcopy :: Patterns- _patsIsem_lhs :: ([PP_Doc])- -- "src-ag/ExecutionPlan2Hs.ag"(line 1104, column 17)- _lhsOsem_lhs =- ({-# LINE 1104 "src-ag/ExecutionPlan2Hs.ag" #-}- _addbang1 $ pp_block "(" ")" "," _patsIsem_lhs- {-# LINE 6327 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1113, column 16)- _lhsOisUnderscore =- ({-# LINE 1113 "src-ag/ExecutionPlan2Hs.ag" #-}- False- {-# LINE 6333 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1521, column 37)- _addbang =- ({-# LINE 1521 "src-ag/ExecutionPlan2Hs.ag" #-}- \x -> if bangpats _lhsIoptions then "!" >|< x else x- {-# LINE 6339 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1526, column 37)- _addbang1 =- ({-# LINE 1526 "src-ag/ExecutionPlan2Hs.ag" #-}- if _lhsIanyLazyKind then id else _addbang- {-# LINE 6345 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1123, column 40)- _lhsOattrTypes =- ({-# LINE 1123 "src-ag/ExecutionPlan2Hs.ag" #-}- _patsIattrTypes- {-# LINE 6351 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1118, column 36)- _lhsOattrs =- ({-# LINE 1118 "src-ag/ExecutionPlan2Hs.ag" #-}- _patsIattrs- {-# LINE 6357 "dist/build/ExecutionPlan2Hs" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Product pos_ _patsIcopy- {-# LINE 6363 "dist/build/ExecutionPlan2Hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 6369 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patsOallInhmap =- ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInhmap- {-# LINE 6375 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patsOallSynmap =- ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallSynmap- {-# LINE 6381 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patsOanyLazyKind =- ({-# LINE 1267 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIanyLazyKind- {-# LINE 6387 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patsOinhmap =- ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinhmap- {-# LINE 6393 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patsOlocalAttrTypes =- ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIlocalAttrTypes- {-# LINE 6399 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patsOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 6405 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _patsOsynmap =- ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIsynmap- {-# LINE 6411 "dist/build/ExecutionPlan2Hs" #-}- )- ( _patsIattrTypes,_patsIattrs,_patsIcopy,_patsIsem_lhs) =- pats_ _patsOallInhmap _patsOallSynmap _patsOanyLazyKind _patsOinhmap _patsOlocalAttrTypes _patsOoptions _patsOsynmap- in ( _lhsOattrTypes,_lhsOattrs,_lhsOcopy,_lhsOisUnderscore,_lhsOsem_lhs))))-sem_Pattern_Underscore :: Pos ->- T_Pattern-sem_Pattern_Underscore pos_ =- (T_Pattern (\ _lhsIallInhmap- _lhsIallSynmap- _lhsIanyLazyKind- _lhsIinhmap- _lhsIlocalAttrTypes- _lhsIoptions- _lhsIsynmap ->- (let _lhsOsem_lhs :: ( PP_Doc )- _lhsOisUnderscore :: Bool- _lhsOattrTypes :: PP_Doc- _lhsOattrs :: (Set String)- _lhsOcopy :: Pattern- -- "src-ag/ExecutionPlan2Hs.ag"(line 1106, column 17)- _lhsOsem_lhs =- ({-# LINE 1106 "src-ag/ExecutionPlan2Hs.ag" #-}- text "_"- {-# LINE 6435 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1115, column 16)- _lhsOisUnderscore =- ({-# LINE 1115 "src-ag/ExecutionPlan2Hs.ag" #-}- True- {-# LINE 6441 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1123, column 40)- _lhsOattrTypes =- ({-# LINE 1123 "src-ag/ExecutionPlan2Hs.ag" #-}- empty- {-# LINE 6447 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1118, column 36)- _lhsOattrs =- ({-# LINE 1118 "src-ag/ExecutionPlan2Hs.ag" #-}- Set.empty- {-# LINE 6453 "dist/build/ExecutionPlan2Hs" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Underscore pos_- {-# LINE 6459 "dist/build/ExecutionPlan2Hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 6465 "dist/build/ExecutionPlan2Hs" #-}- )- in ( _lhsOattrTypes,_lhsOattrs,_lhsOcopy,_lhsOisUnderscore,_lhsOsem_lhs))))--- Patterns -----------------------------------------------------{-- visit 0:- inherited attributes:- allInhmap : Map NontermIdent Attributes- allSynmap : Map NontermIdent Attributes- anyLazyKind : Bool- inhmap : Attributes- localAttrTypes : Map Identifier Type- options : Options- synmap : Attributes- synthesized attributes:- attrTypes : PP_Doc- attrs : Set String- copy : Patterns - sem_lhs : [PP_Doc]- 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 ((Map NontermIdent Attributes) ->- (Map NontermIdent Attributes) ->- Bool ->- Attributes ->- (Map Identifier Type) ->- Options ->- Attributes ->- ( PP_Doc,(Set String),Patterns,([PP_Doc])))-data Inh_Patterns = Inh_Patterns {allInhmap_Inh_Patterns :: (Map NontermIdent Attributes),allSynmap_Inh_Patterns :: (Map NontermIdent Attributes),anyLazyKind_Inh_Patterns :: Bool,inhmap_Inh_Patterns :: Attributes,localAttrTypes_Inh_Patterns :: (Map Identifier Type),options_Inh_Patterns :: Options,synmap_Inh_Patterns :: Attributes}-data Syn_Patterns = Syn_Patterns {attrTypes_Syn_Patterns :: PP_Doc,attrs_Syn_Patterns :: (Set String),copy_Syn_Patterns :: Patterns,sem_lhs_Syn_Patterns :: ([PP_Doc])}-wrap_Patterns :: T_Patterns ->- Inh_Patterns ->- Syn_Patterns-wrap_Patterns (T_Patterns sem) (Inh_Patterns _lhsIallInhmap _lhsIallSynmap _lhsIanyLazyKind _lhsIinhmap _lhsIlocalAttrTypes _lhsIoptions _lhsIsynmap) =- (let ( _lhsOattrTypes,_lhsOattrs,_lhsOcopy,_lhsOsem_lhs) = sem _lhsIallInhmap _lhsIallSynmap _lhsIanyLazyKind _lhsIinhmap _lhsIlocalAttrTypes _lhsIoptions _lhsIsynmap- in (Syn_Patterns _lhsOattrTypes _lhsOattrs _lhsOcopy _lhsOsem_lhs))-sem_Patterns_Cons :: T_Pattern ->- T_Patterns ->- T_Patterns-sem_Patterns_Cons (T_Pattern hd_) (T_Patterns tl_) =- (T_Patterns (\ _lhsIallInhmap- _lhsIallSynmap- _lhsIanyLazyKind- _lhsIinhmap- _lhsIlocalAttrTypes- _lhsIoptions- _lhsIsynmap ->- (let _lhsOattrTypes :: PP_Doc- _lhsOattrs :: (Set String)- _lhsOsem_lhs :: ([PP_Doc])- _lhsOcopy :: Patterns- _hdOallInhmap :: (Map NontermIdent Attributes)- _hdOallSynmap :: (Map NontermIdent Attributes)- _hdOanyLazyKind :: Bool- _hdOinhmap :: Attributes- _hdOlocalAttrTypes :: (Map Identifier Type)- _hdOoptions :: Options- _hdOsynmap :: Attributes- _tlOallInhmap :: (Map NontermIdent Attributes)- _tlOallSynmap :: (Map NontermIdent Attributes)- _tlOanyLazyKind :: Bool- _tlOinhmap :: Attributes- _tlOlocalAttrTypes :: (Map Identifier Type)- _tlOoptions :: Options- _tlOsynmap :: Attributes- _hdIattrTypes :: PP_Doc- _hdIattrs :: (Set String)- _hdIcopy :: Pattern- _hdIisUnderscore :: Bool- _hdIsem_lhs :: ( PP_Doc )- _tlIattrTypes :: PP_Doc- _tlIattrs :: (Set String)- _tlIcopy :: Patterns- _tlIsem_lhs :: ([PP_Doc])- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1123, column 40)- _lhsOattrTypes =- ({-# LINE 1123 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIattrTypes >-< _tlIattrTypes- {-# LINE 6558 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1118, column 36)- _lhsOattrs =- ({-# LINE 1118 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIattrs `Set.union` _tlIattrs- {-# LINE 6564 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1095, column 29)- _lhsOsem_lhs =- ({-# LINE 1095 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIsem_lhs : _tlIsem_lhs- {-# LINE 6570 "dist/build/ExecutionPlan2Hs" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- (:) _hdIcopy _tlIcopy- {-# LINE 6576 "dist/build/ExecutionPlan2Hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 6582 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallInhmap =- ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInhmap- {-# LINE 6588 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallSynmap =- ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallSynmap- {-# LINE 6594 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOanyLazyKind =- ({-# LINE 1267 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIanyLazyKind- {-# LINE 6600 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOinhmap =- ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinhmap- {-# LINE 6606 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOlocalAttrTypes =- ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIlocalAttrTypes- {-# LINE 6612 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 6618 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOsynmap =- ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIsynmap- {-# LINE 6624 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallInhmap =- ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInhmap- {-# LINE 6630 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallSynmap =- ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallSynmap- {-# LINE 6636 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOanyLazyKind =- ({-# LINE 1267 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIanyLazyKind- {-# LINE 6642 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOinhmap =- ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinhmap- {-# LINE 6648 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOlocalAttrTypes =- ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIlocalAttrTypes- {-# LINE 6654 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 6660 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOsynmap =- ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIsynmap- {-# LINE 6666 "dist/build/ExecutionPlan2Hs" #-}- )- ( _hdIattrTypes,_hdIattrs,_hdIcopy,_hdIisUnderscore,_hdIsem_lhs) =- hd_ _hdOallInhmap _hdOallSynmap _hdOanyLazyKind _hdOinhmap _hdOlocalAttrTypes _hdOoptions _hdOsynmap- ( _tlIattrTypes,_tlIattrs,_tlIcopy,_tlIsem_lhs) =- tl_ _tlOallInhmap _tlOallSynmap _tlOanyLazyKind _tlOinhmap _tlOlocalAttrTypes _tlOoptions _tlOsynmap- in ( _lhsOattrTypes,_lhsOattrs,_lhsOcopy,_lhsOsem_lhs))))-sem_Patterns_Nil :: T_Patterns-sem_Patterns_Nil =- (T_Patterns (\ _lhsIallInhmap- _lhsIallSynmap- _lhsIanyLazyKind- _lhsIinhmap- _lhsIlocalAttrTypes- _lhsIoptions- _lhsIsynmap ->- (let _lhsOattrTypes :: PP_Doc- _lhsOattrs :: (Set String)- _lhsOsem_lhs :: ([PP_Doc])- _lhsOcopy :: Patterns- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1123, column 40)- _lhsOattrTypes =- ({-# LINE 1123 "src-ag/ExecutionPlan2Hs.ag" #-}- empty- {-# LINE 6690 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1118, column 36)- _lhsOattrs =- ({-# LINE 1118 "src-ag/ExecutionPlan2Hs.ag" #-}- Set.empty- {-# LINE 6696 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1095, column 29)- _lhsOsem_lhs =- ({-# LINE 1095 "src-ag/ExecutionPlan2Hs.ag" #-}- []- {-# LINE 6702 "dist/build/ExecutionPlan2Hs" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- []- {-# LINE 6708 "dist/build/ExecutionPlan2Hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 6714 "dist/build/ExecutionPlan2Hs" #-}- )- in ( _lhsOattrTypes,_lhsOattrs,_lhsOcopy,_lhsOsem_lhs))))--- Visit --------------------------------------------------------{-- visit 0:- inherited attributes:- allFromToStates : Map VisitIdentifier (Int,Int)- allInhmap : Map NontermIdent Attributes- allInitStates : Map NontermIdent Int- allSynmap : Map NontermIdent Attributes- allVisitKinds : Map VisitIdentifier VisitKind- allchildvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))- allintramap : Map StateIdentifier (Map String (Maybe NonLocalAttr))- avisitdefs : Map VisitIdentifier (Set Identifier)- avisituses : Map VisitIdentifier (Set Identifier)- childTypes : Map Identifier Type- childintros : Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))- con : ConstructorIdent- inhmap : Attributes- mrules : Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)- nextVisits : Map StateIdentifier StateCtx- nt : NontermIdent- options : Options- params : [Identifier]- prevVisits : Map StateIdentifier StateCtx- ruledefs : Map Identifier (Set String)- ruleuses : Map Identifier (Map String (Maybe NonLocalAttr))- synmap : Attributes- terminaldefs : Set String- synthesized attributes:- allvisits : VisitStateState - childvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))- errors : Seq Error- fromToStates : Map VisitIdentifier (Int,Int)- intramap : Map StateIdentifier (Map String (Maybe NonLocalAttr))- lazyIntras : Set String- ruleKinds : Map Identifier (Set VisitKind)- ruleUsage : Map Identifier Int- sem_visit : (StateIdentifier,Bool -> PP_Doc) - t_visits : PP_Doc- visitKinds : Map VisitIdentifier VisitKind- visitdefs : Map VisitIdentifier (Set Identifier)- visituses : Map VisitIdentifier (Set Identifier)- alternatives:- alternative Visit:- child ident : {VisitIdentifier}- child from : {StateIdentifier}- child to : {StateIdentifier}- child inh : {Set Identifier}- child syn : {Set Identifier}- child steps : VisitSteps - child kind : {VisitKind}- visit 0:- local nameT_visit : _- local nameTIn_visit : _- local nameTOut_visit : _- local nameTNext_visit : _- local nextVisitInfo : _- local typecon : _- local t_params : _- local inhpart : _- local synpart : _- local ppTypeList : _- local stepsInitial : _- local stepsClosing : _- local vname : _- local inhpats : _- local inhargs : _- local synargs : _- local nextargsMp : _- local nextargs : _- local nextst : _- local resultval : _- local nextStBuild : _- local nextStRef : _- local prevVisitInfo : _- local invokecode : _- local thisintra : _- local nextintra : _- local uses : _- local inhVarNms : _- local defs : _- local defsAsMap : _- local lazyIntrasInh : _- local addbang : _- local addbang1 : _--}--- cata-sem_Visit :: Visit ->- T_Visit-sem_Visit (Visit _ident _from _to _inh _syn _steps _kind) =- (sem_Visit_Visit _ident _from _to _inh _syn (sem_VisitSteps _steps) _kind)--- semantic domain-newtype T_Visit = T_Visit ((Map VisitIdentifier (Int,Int)) ->- (Map NontermIdent Attributes) ->- (Map NontermIdent Int) ->- (Map NontermIdent Attributes) ->- (Map VisitIdentifier VisitKind) ->- (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))) ->- (Map StateIdentifier (Map String (Maybe NonLocalAttr))) ->- (Map VisitIdentifier (Set Identifier)) ->- (Map VisitIdentifier (Set Identifier)) ->- (Map Identifier Type) ->- (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))) ->- ConstructorIdent ->- Attributes ->- (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)) ->- (Map StateIdentifier StateCtx) ->- NontermIdent ->- Options ->- ([Identifier]) ->- (Map StateIdentifier StateCtx) ->- (Map Identifier (Set String)) ->- (Map Identifier (Map String (Maybe NonLocalAttr))) ->- Attributes ->- (Set String) ->- ( ( VisitStateState ),(Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),(Seq Error),(Map VisitIdentifier (Int,Int)),(Map StateIdentifier (Map String (Maybe NonLocalAttr))),(Set String),(Map Identifier (Set VisitKind)),(Map Identifier Int),( (StateIdentifier,Bool -> PP_Doc) ),PP_Doc,(Map VisitIdentifier VisitKind),(Map VisitIdentifier (Set Identifier)),(Map VisitIdentifier (Set Identifier))))-data Inh_Visit = Inh_Visit {allFromToStates_Inh_Visit :: (Map VisitIdentifier (Int,Int)),allInhmap_Inh_Visit :: (Map NontermIdent Attributes),allInitStates_Inh_Visit :: (Map NontermIdent Int),allSynmap_Inh_Visit :: (Map NontermIdent Attributes),allVisitKinds_Inh_Visit :: (Map VisitIdentifier VisitKind),allchildvisit_Inh_Visit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),allintramap_Inh_Visit :: (Map StateIdentifier (Map String (Maybe NonLocalAttr))),avisitdefs_Inh_Visit :: (Map VisitIdentifier (Set Identifier)),avisituses_Inh_Visit :: (Map VisitIdentifier (Set Identifier)),childTypes_Inh_Visit :: (Map Identifier Type),childintros_Inh_Visit :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))),con_Inh_Visit :: ConstructorIdent,inhmap_Inh_Visit :: Attributes,mrules_Inh_Visit :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)),nextVisits_Inh_Visit :: (Map StateIdentifier StateCtx),nt_Inh_Visit :: NontermIdent,options_Inh_Visit :: Options,params_Inh_Visit :: ([Identifier]),prevVisits_Inh_Visit :: (Map StateIdentifier StateCtx),ruledefs_Inh_Visit :: (Map Identifier (Set String)),ruleuses_Inh_Visit :: (Map Identifier (Map String (Maybe NonLocalAttr))),synmap_Inh_Visit :: Attributes,terminaldefs_Inh_Visit :: (Set String)}-data Syn_Visit = Syn_Visit {allvisits_Syn_Visit :: ( VisitStateState ),childvisit_Syn_Visit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),errors_Syn_Visit :: (Seq Error),fromToStates_Syn_Visit :: (Map VisitIdentifier (Int,Int)),intramap_Syn_Visit :: (Map StateIdentifier (Map String (Maybe NonLocalAttr))),lazyIntras_Syn_Visit :: (Set String),ruleKinds_Syn_Visit :: (Map Identifier (Set VisitKind)),ruleUsage_Syn_Visit :: (Map Identifier Int),sem_visit_Syn_Visit :: ( (StateIdentifier,Bool -> PP_Doc) ),t_visits_Syn_Visit :: PP_Doc,visitKinds_Syn_Visit :: (Map VisitIdentifier VisitKind),visitdefs_Syn_Visit :: (Map VisitIdentifier (Set Identifier)),visituses_Syn_Visit :: (Map VisitIdentifier (Set Identifier))}-wrap_Visit :: T_Visit ->- Inh_Visit ->- Syn_Visit-wrap_Visit (T_Visit sem) (Inh_Visit _lhsIallFromToStates _lhsIallInhmap _lhsIallInitStates _lhsIallSynmap _lhsIallVisitKinds _lhsIallchildvisit _lhsIallintramap _lhsIavisitdefs _lhsIavisituses _lhsIchildTypes _lhsIchildintros _lhsIcon _lhsIinhmap _lhsImrules _lhsInextVisits _lhsInt _lhsIoptions _lhsIparams _lhsIprevVisits _lhsIruledefs _lhsIruleuses _lhsIsynmap _lhsIterminaldefs) =- (let ( _lhsOallvisits,_lhsOchildvisit,_lhsOerrors,_lhsOfromToStates,_lhsOintramap,_lhsOlazyIntras,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_visit,_lhsOt_visits,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses) = sem _lhsIallFromToStates _lhsIallInhmap _lhsIallInitStates _lhsIallSynmap _lhsIallVisitKinds _lhsIallchildvisit _lhsIallintramap _lhsIavisitdefs _lhsIavisituses _lhsIchildTypes _lhsIchildintros _lhsIcon _lhsIinhmap _lhsImrules _lhsInextVisits _lhsInt _lhsIoptions _lhsIparams _lhsIprevVisits _lhsIruledefs _lhsIruleuses _lhsIsynmap _lhsIterminaldefs- in (Syn_Visit _lhsOallvisits _lhsOchildvisit _lhsOerrors _lhsOfromToStates _lhsOintramap _lhsOlazyIntras _lhsOruleKinds _lhsOruleUsage _lhsOsem_visit _lhsOt_visits _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses))-sem_Visit_Visit :: VisitIdentifier ->- StateIdentifier ->- StateIdentifier ->- (Set Identifier) ->- (Set Identifier) ->- T_VisitSteps ->- VisitKind ->- T_Visit-sem_Visit_Visit ident_ from_ to_ inh_ syn_ (T_VisitSteps steps_) kind_ =- (T_Visit (\ _lhsIallFromToStates- _lhsIallInhmap- _lhsIallInitStates- _lhsIallSynmap- _lhsIallVisitKinds- _lhsIallchildvisit- _lhsIallintramap- _lhsIavisitdefs- _lhsIavisituses- _lhsIchildTypes- _lhsIchildintros- _lhsIcon- _lhsIinhmap- _lhsImrules- _lhsInextVisits- _lhsInt- _lhsIoptions- _lhsIparams- _lhsIprevVisits- _lhsIruledefs- _lhsIruleuses- _lhsIsynmap- _lhsIterminaldefs ->- (let _lhsOallvisits :: ( VisitStateState )- _lhsOt_visits :: PP_Doc- _lhsOsem_visit :: ( (StateIdentifier,Bool -> PP_Doc) )- _stepsOkind :: VisitKind- _stepsOfmtMode :: FormatMode- _stepsOindex :: Int- _stepsOprevMaxSimRefs :: Int- _stepsOuseParallel :: Bool- _lhsOchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _lhsOintramap :: (Map StateIdentifier (Map String (Maybe NonLocalAttr)))- _lhsOvisitdefs :: (Map VisitIdentifier (Set Identifier))- _lhsOvisituses :: (Map VisitIdentifier (Set Identifier))- _lhsOlazyIntras :: (Set String)- _lhsOfromToStates :: (Map VisitIdentifier (Int,Int))- _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)- _lhsOerrors :: (Seq Error)- _lhsOruleKinds :: (Map Identifier (Set VisitKind))- _lhsOruleUsage :: (Map Identifier Int)- _stepsOallFromToStates :: (Map VisitIdentifier (Int,Int))- _stepsOallInitStates :: (Map NontermIdent Int)- _stepsOallVisitKinds :: (Map VisitIdentifier VisitKind)- _stepsOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _stepsOavisitdefs :: (Map VisitIdentifier (Set Identifier))- _stepsOavisituses :: (Map VisitIdentifier (Set Identifier))- _stepsOchildTypes :: (Map Identifier Type)- _stepsOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))- _stepsOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))- _stepsOoptions :: Options- _stepsOruledefs :: (Map Identifier (Set String))- _stepsOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))- _stepsIdefs :: (Set String)- _stepsIerrors :: (Seq Error)- _stepsIindex :: Int- _stepsIisLast :: Bool- _stepsIlazyIntras :: (Set String)- _stepsIprevMaxSimRefs :: Int- _stepsIruleKinds :: (Map Identifier (Set VisitKind))- _stepsIruleUsage :: (Map Identifier Int)- _stepsIsem_steps :: PP_Doc- _stepsIsize :: Int- _stepsIsync_steps :: PP_Doc- _stepsIuses :: (Map String (Maybe NonLocalAttr))- _stepsIvisitKinds :: (Map VisitIdentifier VisitKind)- -- "src-ag/ExecutionPlan2Hs.ag"(line 341, column 11)- _lhsOallvisits =- ({-# LINE 341 "src-ag/ExecutionPlan2Hs.ag" #-}- (ident_, from_, to_)- {-# LINE 6919 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 400, column 11)- _nameT_visit =- ({-# LINE 400 "src-ag/ExecutionPlan2Hs.ag" #-}- conNmTVisit _lhsInt ident_- {-# LINE 6925 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 401, column 11)- _nameTIn_visit =- ({-# LINE 401 "src-ag/ExecutionPlan2Hs.ag" #-}- conNmTVisitIn _lhsInt ident_- {-# LINE 6931 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 402, column 11)- _nameTOut_visit =- ({-# LINE 402 "src-ag/ExecutionPlan2Hs.ag" #-}- conNmTVisitOut _lhsInt ident_- {-# LINE 6937 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 403, column 11)- _nameTNext_visit =- ({-# LINE 403 "src-ag/ExecutionPlan2Hs.ag" #-}- conNmTNextVisit _lhsInt to_- {-# LINE 6943 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 405, column 11)- _nextVisitInfo =- ({-# LINE 405 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.findWithDefault ManyVis to_ _lhsInextVisits- {-# LINE 6949 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 406, column 11)- _typecon =- ({-# LINE 406 "src-ag/ExecutionPlan2Hs.ag" #-}- case kind_ of- VisitPure _ -> empty- VisitMonadic -> ppMonadType _lhsIoptions- {-# LINE 6957 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 410, column 11)- _t_params =- ({-# LINE 410 "src-ag/ExecutionPlan2Hs.ag" #-}- ppSpaced _lhsIparams- {-# LINE 6963 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 411, column 11)- _lhsOt_visits =- ({-# LINE 411 "src-ag/ExecutionPlan2Hs.ag" #-}- "type" >#< _nameT_visit >#< _t_params >#< "=" >#<- pp_parens (_nameTIn_visit >#< _t_params )- >#< ( if dummyTokenVisit _lhsIoptions- then "->" >#< dummyType _lhsIoptions True- else empty- )- >#< "->" >#< _typecon >#< pp_parens (_nameTOut_visit >#< _t_params )- >-< "data" >#< _nameTIn_visit >#< _t_params >#< "=" >#< _nameTIn_visit >#<- _inhpart- >-< "data" >#< _nameTOut_visit >#< _t_params >#< "=" >#< _nameTOut_visit >#<- _synpart >#< case _nextVisitInfo of- NoneVis -> empty- _ -> _addbang1 $ pp_parens (_nameTNext_visit >#< _t_params )- {-# LINE 6981 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 424, column 11)- _inhpart =- ({-# LINE 424 "src-ag/ExecutionPlan2Hs.ag" #-}- _ppTypeList inh_ _lhsIinhmap- {-# LINE 6987 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 425, column 11)- _synpart =- ({-# LINE 425 "src-ag/ExecutionPlan2Hs.ag" #-}- _ppTypeList syn_ _lhsIsynmap- {-# LINE 6993 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 426, column 11)- _ppTypeList =- ({-# LINE 426 "src-ag/ExecutionPlan2Hs.ag" #-}- \s m -> ppSpaced $ map (\i -> _addbang1 $ pp_parens $ case Map.lookup i m of- Just tp -> ppTp tp ) $ Set.toList s- {-# LINE 7000 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 709, column 11)- _lhsOsem_visit =- ({-# LINE 709 "src-ag/ExecutionPlan2Hs.ag" #-}- ( from_- , \addInlinePragma ->- ( if noInlinePragmas _lhsIoptions- then empty- else if addInlinePragma && aggressiveInlinePragmas _lhsIoptions- then ppInline _vname- else if helpInlining _lhsIoptions- then ppNoInline _vname- else empty- )- >-< "v" >|< ident_ >#< "::" >#< _nameT_visit >#< _t_params- >-< "v" >|< ident_ >#< "=" >#< "\\" >#< (_addbang $ pp_parens (_nameTIn_visit >#< _inhpats ))- >#< ( if dummyTokenVisit _lhsIoptions- then pp $ dummyPat _lhsIoptions True- else empty- )- >#< "->"- >#< ( if genCostCentres _lhsIoptions- then ppCostCentre (_vname >|< "_" >|< _lhsInt >|< "_" >|< _lhsIcon)- else empty- ) >#< "(" >#< _stepsInitial- >-< indent 3 (_stepsIsem_steps >-< _stepsClosing >#< ")")- )- {-# LINE 7028 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 734, column 11)- _stepsInitial =- ({-# LINE 734 "src-ag/ExecutionPlan2Hs.ag" #-}- case kind_ of- VisitPure False -> text "let"- VisitPure True -> empty- VisitMonadic -> text "do"- {-# LINE 7037 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 738, column 11)- _stepsClosing =- ({-# LINE 738 "src-ag/ExecutionPlan2Hs.ag" #-}- let decls = _nextStBuild- >-< _addbang (pp resultValName) >#< "=" >#< _resultval- in case kind_ of- VisitPure False -> decls- >-< "in" >#< resultValName- VisitPure True -> "let" >#< decls- >-< indent 1 ("in" >#< resultValName)- VisitMonadic -> "let" >#< decls- >-< "return" >#< resultValName- {-# LINE 7051 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 747, column 11)- _vname =- ({-# LINE 747 "src-ag/ExecutionPlan2Hs.ag" #-}- "v" >|< ident_- {-# LINE 7057 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 748, column 11)- _inhpats =- ({-# LINE 748 "src-ag/ExecutionPlan2Hs.ag" #-}- ppSpaced $ map (\arg -> _addbang $ pp $ attrname True _LHS arg) $ Set.toList inh_- {-# LINE 7063 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 749, column 11)- _inhargs =- ({-# LINE 749 "src-ag/ExecutionPlan2Hs.ag" #-}- \chn -> ppSpaced $ map (attrname False chn) $ Set.toList inh_- {-# LINE 7069 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 750, column 11)- _synargs =- ({-# LINE 750 "src-ag/ExecutionPlan2Hs.ag" #-}- ppSpaced $ map (\arg -> attrname False _LHS arg) $ Set.toList syn_- {-# LINE 7075 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 751, column 11)- _nextargsMp =- ({-# LINE 751 "src-ag/ExecutionPlan2Hs.ag" #-}- maybe Map.empty id $ Map.lookup to_ _lhsIallintramap- {-# LINE 7081 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 752, column 11)- _nextargs =- ({-# LINE 752 "src-ag/ExecutionPlan2Hs.ag" #-}- ppSpaced $ Map.keys $ _nextargsMp- {-# LINE 7087 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 753, column 11)- _nextst =- ({-# LINE 753 "src-ag/ExecutionPlan2Hs.ag" #-}- "st" >|< to_ >#< _nextargs >#< dummyArg _lhsIoptions (Map.null _nextargsMp )- {-# LINE 7093 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 754, column 11)- _resultval =- ({-# LINE 754 "src-ag/ExecutionPlan2Hs.ag" #-}- _nameTOut_visit >#< _synargs >#< _nextStRef- {-# LINE 7099 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 755, column 11)- (_nextStBuild,_nextStRef) =- ({-# LINE 755 "src-ag/ExecutionPlan2Hs.ag" #-}- case _nextVisitInfo of- NoneVis -> (empty, empty)- _ -> (_addbang (pp nextStName) >#< "=" >#< _nextst , pp nextStName)- {-# LINE 7107 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 770, column 20)- _stepsOkind =- ({-# LINE 770 "src-ag/ExecutionPlan2Hs.ag" #-}- kind_- {-# LINE 7113 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 821, column 3)- _stepsOfmtMode =- ({-# LINE 821 "src-ag/ExecutionPlan2Hs.ag" #-}- case kind_ of- VisitPure False -> FormatLetDecl- VisitPure True -> FormatLetLine- VisitMonadic -> FormatDo- {-# LINE 7122 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 859, column 22)- _stepsOindex =- ({-# LINE 859 "src-ag/ExecutionPlan2Hs.ag" #-}- 0- {-# LINE 7128 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 866, column 22)- _stepsOprevMaxSimRefs =- ({-# LINE 866 "src-ag/ExecutionPlan2Hs.ag" #-}- 0- {-# LINE 7134 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 882, column 22)- _stepsOuseParallel =- ({-# LINE 882 "src-ag/ExecutionPlan2Hs.ag" #-}- False- {-# LINE 7140 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1196, column 6)- _prevVisitInfo =- ({-# LINE 1196 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.findWithDefault ManyVis from_ _lhsInextVisits- {-# LINE 7146 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1197, column 6)- _lhsOchildvisit =- ({-# LINE 1197 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.singleton ident_ _invokecode- {-# LINE 7152 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1198, column 6)- _invokecode =- ({-# LINE 1198 "src-ag/ExecutionPlan2Hs.ag" #-}- \chn kind ->- if kind `compatibleKind` kind_- then Right $- let pat | isLazyKind kind_ = pat0- | otherwise = _addbang pat0- pat0 = pp_parens pat1- pat1 = _nameTOut_visit >#< (ppSpaced $ map (attrname True chn) $ Set.toList syn_)- >#< cont- cont = case _nextVisitInfo of- NoneVis -> empty- _ -> ch1- ch0 = text $ stname chn from_- ch1 = text $ stname chn to_- expr = case (kind, kind_) of- (VisitPure _, VisitPure _) -> expr0- (VisitPure _, VisitMonadic) -> unMon _lhsIoptions >#< expr0- (VisitMonadic, VisitPure _) -> "return" >#< expr0- (VisitMonadic, VisitMonadic) -> expr0- expr0 = case _prevVisitInfo of- NoneVis -> error "error: invocation of a visit from a state that has no next visits"- OneVis _ -> "inv_" >|< _lhsInt >|< "_s" >|< from_ >#< ch0 >#< args- ManyVis -> "inv_" >|< _lhsInt >|< "_s" >|< from_ >#< ch0- >#< "K_" >|< _lhsInt >|< "_v" >|< ident_ >#< args- args = pp_parens args0 >#< args1- args0 = _nameTIn_visit >#< _inhargs chn- args1 | dummyTokenVisit _lhsIoptions = pp $ dummyArg _lhsIoptions True- | otherwise = empty- in (pat, expr)- else Left $ IncompatibleVisitKind chn ident_ kind kind_- {-# LINE 7186 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1294, column 11)- _thisintra =- ({-# LINE 1294 "src-ag/ExecutionPlan2Hs.ag" #-}- (_uses `Map.union` _nextintra ) `Map.difference` _defsAsMap- {-# LINE 7192 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1295, column 11)- _lhsOintramap =- ({-# LINE 1295 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.singleton from_ _thisintra- {-# LINE 7198 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1296, column 11)- _nextintra =- ({-# LINE 1296 "src-ag/ExecutionPlan2Hs.ag" #-}- maybe Map.empty id $ Map.lookup to_ _lhsIallintramap- {-# LINE 7204 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1297, column 11)- _uses =- ({-# LINE 1297 "src-ag/ExecutionPlan2Hs.ag" #-}- let mp1 = _stepsIuses- mp2 = Map.fromList [ (lhsname False i, Just (AttrSyn _LHS i)) | i <- Set.elems syn_ ]- in mp1 `Map.union` mp2- {-# LINE 7212 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1300, column 11)- _inhVarNms =- ({-# LINE 1300 "src-ag/ExecutionPlan2Hs.ag" #-}- Set.map (lhsname True) inh_- {-# LINE 7218 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1301, column 11)- _defs =- ({-# LINE 1301 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIdefs `Set.union` _inhVarNms `Set.union` _lhsIterminaldefs- {-# LINE 7224 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1302, column 11)- _defsAsMap =- ({-# LINE 1302 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.fromList [ (a, Nothing) | a <- Set.elems _defs ]- {-# LINE 7230 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1326, column 11)- _lhsOvisitdefs =- ({-# LINE 1326 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.singleton ident_ syn_- {-# LINE 7236 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1327, column 11)- _lhsOvisituses =- ({-# LINE 1327 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.singleton ident_ inh_- {-# LINE 7242 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1359, column 3)- _lazyIntrasInh =- ({-# LINE 1359 "src-ag/ExecutionPlan2Hs.ag" #-}- case kind_ of- VisitPure False -> _inhVarNms `Set.union` _stepsIdefs- _ -> Set.empty- {-# LINE 7250 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1362, column 3)- _lhsOlazyIntras =- ({-# LINE 1362 "src-ag/ExecutionPlan2Hs.ag" #-}- _lazyIntrasInh `Set.union` _stepsIlazyIntras- {-# LINE 7256 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1515, column 37)- _addbang =- ({-# LINE 1515 "src-ag/ExecutionPlan2Hs.ag" #-}- \x -> if bangpats _lhsIoptions then "!" >|< x else x- {-# LINE 7262 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1523, column 37)- _addbang1 =- ({-# LINE 1523 "src-ag/ExecutionPlan2Hs.ag" #-}- if isLazyKind kind_ then id else _addbang- {-# LINE 7268 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1550, column 3)- _lhsOfromToStates =- ({-# LINE 1550 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.singleton ident_ (from_, to_)- {-# LINE 7274 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1594, column 3)- _lhsOvisitKinds =- ({-# LINE 1594 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.singleton ident_ kind_- {-# LINE 7280 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)- _lhsOerrors =- ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIerrors- {-# LINE 7286 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1255, column 56)- _lhsOruleKinds =- ({-# LINE 1255 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIruleKinds- {-# LINE 7292 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1243, column 56)- _lhsOruleUsage =- ({-# LINE 1243 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIruleUsage- {-# LINE 7298 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOallFromToStates =- ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallFromToStates- {-# LINE 7304 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOallInitStates =- ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInitStates- {-# LINE 7310 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOallVisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallVisitKinds- {-# LINE 7316 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOallchildvisit =- ({-# LINE 1189 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallchildvisit- {-# LINE 7322 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOavisitdefs =- ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisitdefs- {-# LINE 7328 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOavisituses =- ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisituses- {-# LINE 7334 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOchildTypes =- ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIchildTypes- {-# LINE 7340 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOchildintros =- ({-# LINE 893 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIchildintros- {-# LINE 7346 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOmrules =- ({-# LINE 776 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImrules- {-# LINE 7352 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 7358 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOruledefs =- ({-# LINE 1307 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIruledefs- {-# LINE 7364 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOruleuses =- ({-# LINE 1308 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIruleuses- {-# LINE 7370 "dist/build/ExecutionPlan2Hs" #-}- )- ( _stepsIdefs,_stepsIerrors,_stepsIindex,_stepsIisLast,_stepsIlazyIntras,_stepsIprevMaxSimRefs,_stepsIruleKinds,_stepsIruleUsage,_stepsIsem_steps,_stepsIsize,_stepsIsync_steps,_stepsIuses,_stepsIvisitKinds) =- steps_ _stepsOallFromToStates _stepsOallInitStates _stepsOallVisitKinds _stepsOallchildvisit _stepsOavisitdefs _stepsOavisituses _stepsOchildTypes _stepsOchildintros _stepsOfmtMode _stepsOindex _stepsOkind _stepsOmrules _stepsOoptions _stepsOprevMaxSimRefs _stepsOruledefs _stepsOruleuses _stepsOuseParallel- in ( _lhsOallvisits,_lhsOchildvisit,_lhsOerrors,_lhsOfromToStates,_lhsOintramap,_lhsOlazyIntras,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_visit,_lhsOt_visits,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses))))--- VisitStep ----------------------------------------------------{-- visit 0:- inherited attributes:- allFromToStates : Map VisitIdentifier (Int,Int)- allInitStates : Map NontermIdent Int- allVisitKinds : Map VisitIdentifier VisitKind- allchildvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))- avisitdefs : Map VisitIdentifier (Set Identifier)- avisituses : Map VisitIdentifier (Set Identifier)- childTypes : Map Identifier Type- childintros : Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))- fmtMode : FormatMode- kind : VisitKind- mrules : Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)- options : Options- ruledefs : Map Identifier (Set String)- ruleuses : Map Identifier (Map String (Maybe NonLocalAttr))- useParallel : Bool- chained attributes:- index : Int- isLast : Bool- prevMaxSimRefs : Int- synthesized attributes:- defs : Set String- errors : Seq Error- lazyIntras : Set String- ruleKinds : Map Identifier (Set VisitKind)- ruleUsage : Map Identifier Int- sem_steps : PP_Doc- sync_steps : PP_Doc- uses : Map String (Maybe NonLocalAttr)- visitKinds : Map VisitIdentifier VisitKind- alternatives:- alternative ChildIntro:- child child : {Identifier}- visit 0:- local attachItf : _- alternative ChildVisit:- child child : {Identifier}- child nonterm : {NontermIdent}- child visit : {VisitIdentifier}- visit 0:- local visitItf : _- local patPP : _- local exprPP : _- local useParallel : _- local convToMonad : _- local callKind : _- local addbang : _- local from : _- local to : _- alternative PureGroup:- child steps : VisitSteps - child ordered : {Bool}- alternative Sem:- child name : {Identifier}- visit 0:- local ruleItf : _- local sem_steps : _- alternative Sim:- child steps : VisitSteps - visit 0:- local useParallel : _- local isMonadic : _--}--- cata-sem_VisitStep :: VisitStep ->- T_VisitStep-sem_VisitStep (ChildIntro _child) =- (sem_VisitStep_ChildIntro _child)-sem_VisitStep (ChildVisit _child _nonterm _visit) =- (sem_VisitStep_ChildVisit _child _nonterm _visit)-sem_VisitStep (PureGroup _steps _ordered) =- (sem_VisitStep_PureGroup (sem_VisitSteps _steps) _ordered)-sem_VisitStep (Sem _name) =- (sem_VisitStep_Sem _name)-sem_VisitStep (Sim _steps) =- (sem_VisitStep_Sim (sem_VisitSteps _steps))--- semantic domain-newtype T_VisitStep = T_VisitStep ((Map VisitIdentifier (Int,Int)) ->- (Map NontermIdent Int) ->- (Map VisitIdentifier VisitKind) ->- (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))) ->- (Map VisitIdentifier (Set Identifier)) ->- (Map VisitIdentifier (Set Identifier)) ->- (Map Identifier Type) ->- (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))) ->- FormatMode ->- Int ->- Bool ->- VisitKind ->- (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)) ->- Options ->- Int ->- (Map Identifier (Set String)) ->- (Map Identifier (Map String (Maybe NonLocalAttr))) ->- Bool ->- ( (Set String),(Seq Error),Int,Bool,(Set String),Int,(Map Identifier (Set VisitKind)),(Map Identifier Int),PP_Doc,PP_Doc,(Map String (Maybe NonLocalAttr)),(Map VisitIdentifier VisitKind)))-data Inh_VisitStep = Inh_VisitStep {allFromToStates_Inh_VisitStep :: (Map VisitIdentifier (Int,Int)),allInitStates_Inh_VisitStep :: (Map NontermIdent Int),allVisitKinds_Inh_VisitStep :: (Map VisitIdentifier VisitKind),allchildvisit_Inh_VisitStep :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),avisitdefs_Inh_VisitStep :: (Map VisitIdentifier (Set Identifier)),avisituses_Inh_VisitStep :: (Map VisitIdentifier (Set Identifier)),childTypes_Inh_VisitStep :: (Map Identifier Type),childintros_Inh_VisitStep :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))),fmtMode_Inh_VisitStep :: FormatMode,index_Inh_VisitStep :: Int,isLast_Inh_VisitStep :: Bool,kind_Inh_VisitStep :: VisitKind,mrules_Inh_VisitStep :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)),options_Inh_VisitStep :: Options,prevMaxSimRefs_Inh_VisitStep :: Int,ruledefs_Inh_VisitStep :: (Map Identifier (Set String)),ruleuses_Inh_VisitStep :: (Map Identifier (Map String (Maybe NonLocalAttr))),useParallel_Inh_VisitStep :: Bool}-data Syn_VisitStep = Syn_VisitStep {defs_Syn_VisitStep :: (Set String),errors_Syn_VisitStep :: (Seq Error),index_Syn_VisitStep :: Int,isLast_Syn_VisitStep :: Bool,lazyIntras_Syn_VisitStep :: (Set String),prevMaxSimRefs_Syn_VisitStep :: Int,ruleKinds_Syn_VisitStep :: (Map Identifier (Set VisitKind)),ruleUsage_Syn_VisitStep :: (Map Identifier Int),sem_steps_Syn_VisitStep :: PP_Doc,sync_steps_Syn_VisitStep :: PP_Doc,uses_Syn_VisitStep :: (Map String (Maybe NonLocalAttr)),visitKinds_Syn_VisitStep :: (Map VisitIdentifier VisitKind)}-wrap_VisitStep :: T_VisitStep ->- Inh_VisitStep ->- Syn_VisitStep-wrap_VisitStep (T_VisitStep sem) (Inh_VisitStep _lhsIallFromToStates _lhsIallInitStates _lhsIallVisitKinds _lhsIallchildvisit _lhsIavisitdefs _lhsIavisituses _lhsIchildTypes _lhsIchildintros _lhsIfmtMode _lhsIindex _lhsIisLast _lhsIkind _lhsImrules _lhsIoptions _lhsIprevMaxSimRefs _lhsIruledefs _lhsIruleuses _lhsIuseParallel) =- (let ( _lhsOdefs,_lhsOerrors,_lhsOindex,_lhsOisLast,_lhsOlazyIntras,_lhsOprevMaxSimRefs,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_steps,_lhsOsync_steps,_lhsOuses,_lhsOvisitKinds) = sem _lhsIallFromToStates _lhsIallInitStates _lhsIallVisitKinds _lhsIallchildvisit _lhsIavisitdefs _lhsIavisituses _lhsIchildTypes _lhsIchildintros _lhsIfmtMode _lhsIindex _lhsIisLast _lhsIkind _lhsImrules _lhsIoptions _lhsIprevMaxSimRefs _lhsIruledefs _lhsIruleuses _lhsIuseParallel- in (Syn_VisitStep _lhsOdefs _lhsOerrors _lhsOindex _lhsOisLast _lhsOlazyIntras _lhsOprevMaxSimRefs _lhsOruleKinds _lhsOruleUsage _lhsOsem_steps _lhsOsync_steps _lhsOuses _lhsOvisitKinds))-sem_VisitStep_ChildIntro :: Identifier ->- T_VisitStep-sem_VisitStep_ChildIntro child_ =- (T_VisitStep (\ _lhsIallFromToStates- _lhsIallInitStates- _lhsIallVisitKinds- _lhsIallchildvisit- _lhsIavisitdefs- _lhsIavisituses- _lhsIchildTypes- _lhsIchildintros- _lhsIfmtMode- _lhsIindex- _lhsIisLast- _lhsIkind- _lhsImrules- _lhsIoptions- _lhsIprevMaxSimRefs- _lhsIruledefs- _lhsIruleuses- _lhsIuseParallel ->- (let _lhsOerrors :: (Seq Error)- _lhsOsem_steps :: PP_Doc- _lhsOdefs :: (Set String)- _lhsOuses :: (Map String (Maybe NonLocalAttr))- _lhsOlazyIntras :: (Set String)- _lhsOruleKinds :: (Map Identifier (Set VisitKind))- _lhsOruleUsage :: (Map Identifier Int)- _lhsOsync_steps :: PP_Doc- _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)- _lhsOindex :: Int- _lhsOisLast :: Bool- _lhsOprevMaxSimRefs :: Int- -- "src-ag/ExecutionPlan2Hs.ag"(line 783, column 16)- _attachItf =- ({-# LINE 783 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.findWithDefault (error $ "Child " ++ show child_ ++ " not found") child_ _lhsIchildintros- {-# LINE 7519 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 784, column 16)- (_lhsOerrors,_lhsOsem_steps,_lhsOdefs,_lhsOuses) =- ({-# LINE 784 "src-ag/ExecutionPlan2Hs.ag" #-}- case _attachItf _lhsIkind _lhsIfmtMode of- Left e -> (Seq.singleton e, empty, Set.empty, Map.empty)- Right (code, defs, uses) -> (Seq.empty, code, defs, uses)- {-# LINE 7527 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1355, column 57)- _lhsOlazyIntras =- ({-# LINE 1355 "src-ag/ExecutionPlan2Hs.ag" #-}- Set.empty- {-# LINE 7533 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1255, column 56)- _lhsOruleKinds =- ({-# LINE 1255 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 7539 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1243, column 56)- _lhsOruleUsage =- ({-# LINE 1243 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 7545 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 810, column 44)- _lhsOsync_steps =- ({-# LINE 810 "src-ag/ExecutionPlan2Hs.ag" #-}- empty- {-# LINE 7551 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)- _lhsOvisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- mempty- {-# LINE 7557 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (chain)- _lhsOindex =- ({-# LINE 854 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIindex- {-# LINE 7563 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (chain)- _lhsOisLast =- ({-# LINE 873 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIisLast- {-# LINE 7569 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (chain)- _lhsOprevMaxSimRefs =- ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIprevMaxSimRefs- {-# LINE 7575 "dist/build/ExecutionPlan2Hs" #-}- )- in ( _lhsOdefs,_lhsOerrors,_lhsOindex,_lhsOisLast,_lhsOlazyIntras,_lhsOprevMaxSimRefs,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_steps,_lhsOsync_steps,_lhsOuses,_lhsOvisitKinds))))-sem_VisitStep_ChildVisit :: Identifier ->- NontermIdent ->- VisitIdentifier ->- T_VisitStep-sem_VisitStep_ChildVisit child_ nonterm_ visit_ =- (T_VisitStep (\ _lhsIallFromToStates- _lhsIallInitStates- _lhsIallVisitKinds- _lhsIallchildvisit- _lhsIavisitdefs- _lhsIavisituses- _lhsIchildTypes- _lhsIchildintros- _lhsIfmtMode- _lhsIindex- _lhsIisLast- _lhsIkind- _lhsImrules- _lhsIoptions- _lhsIprevMaxSimRefs- _lhsIruledefs- _lhsIruleuses- _lhsIuseParallel ->- (let _lhsOerrors :: (Seq Error)- _lhsOsem_steps :: PP_Doc- _lhsOsync_steps :: PP_Doc- _lhsOdefs :: (Set String)- _lhsOuses :: (Map String (Maybe NonLocalAttr))- _lhsOlazyIntras :: (Set String)- _lhsOruleKinds :: (Map Identifier (Set VisitKind))- _lhsOruleUsage :: (Map Identifier Int)- _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)- _lhsOindex :: Int- _lhsOisLast :: Bool- _lhsOprevMaxSimRefs :: Int- -- "src-ag/ExecutionPlan2Hs.ag"(line 788, column 16)- _visitItf =- ({-# LINE 788 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.findWithDefault (error $ "Visit " ++ show visit_ ++ " not found") visit_ _lhsIallchildvisit- {-# LINE 7617 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 789, column 16)- (_lhsOerrors,_patPP,_exprPP) =- ({-# LINE 789 "src-ag/ExecutionPlan2Hs.ag" #-}- case _visitItf child_ _lhsIkind of- Left e -> (Seq.singleton e, empty, empty)- Right (pat,expr) -> (Seq.empty, pat, expr)- {-# LINE 7625 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 793, column 16)- _useParallel =- ({-# LINE 793 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIuseParallel && not _lhsIisLast- {-# LINE 7631 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 794, column 16)- _lhsOsem_steps =- ({-# LINE 794 "src-ag/ExecutionPlan2Hs.ag" #-}- if _useParallel- then _addbang ("sync_" >|< _lhsIindex) >#< "<- newEmptyMVar"- >-< "forkIO" >#< pp_parens (_convToMonad >#< pp_parens _exprPP >#< ">>= \\" >#< _addbang (pp parResultName) >#< " -> putMVar sync_" >|< _lhsIindex >#< parResultName)- else let decl = case _lhsIkind of- VisitPure _ -> _patPP >#< "=" >#< _exprPP- VisitMonadic -> _patPP >#< "<-" >#< _exprPP- in fmtDecl False _lhsIfmtMode decl- {-# LINE 7643 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 801, column 16)- _convToMonad =- ({-# LINE 801 "src-ag/ExecutionPlan2Hs.ag" #-}- case _callKind of- VisitPure _ -> text "return"- VisitMonadic -> empty- {-# LINE 7651 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 804, column 16)- _callKind =- ({-# LINE 804 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.findWithDefault (error "visit kind should be in the map") visit_ _lhsIallVisitKinds- {-# LINE 7657 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 812, column 3)- _lhsOsync_steps =- ({-# LINE 812 "src-ag/ExecutionPlan2Hs.ag" #-}- if _useParallel- then _patPP >#< "<-" >#< "takeMVar sync_" >|< _lhsIindex- else empty- {-# LINE 7665 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1344, column 16)- _lhsOdefs =- ({-# LINE 1344 "src-ag/ExecutionPlan2Hs.ag" #-}- Set.insert (stname child_ _to) $ maybe (error "Visit not found") (Set.map $ attrname True child_) $ Map.lookup visit_ _lhsIavisitdefs- {-# LINE 7671 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1345, column 16)- _lhsOuses =- ({-# LINE 1345 "src-ag/ExecutionPlan2Hs.ag" #-}- let convert attrs = Map.fromList [ (attrname False child_ attr, Just $ mkNonLocalAttr True child_ attr) | attr <- Set.elems attrs ]- in Map.insert (stname child_ _from) Nothing $ convert $- maybe (error "Visit not found") id $ Map.lookup visit_ _lhsIavisituses- {-# LINE 7679 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1520, column 37)- _addbang =- ({-# LINE 1520 "src-ag/ExecutionPlan2Hs.ag" #-}- \x -> if bangpats _lhsIoptions then "!" >|< x else x- {-# LINE 7685 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1556, column 3)- (_from,_to) =- ({-# LINE 1556 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.findWithDefault (error "visit not in allFromToStates") visit_ _lhsIallFromToStates- {-# LINE 7691 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1355, column 57)- _lhsOlazyIntras =- ({-# LINE 1355 "src-ag/ExecutionPlan2Hs.ag" #-}- Set.empty- {-# LINE 7697 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1255, column 56)- _lhsOruleKinds =- ({-# LINE 1255 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 7703 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1243, column 56)- _lhsOruleUsage =- ({-# LINE 1243 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 7709 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)- _lhsOvisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- mempty- {-# LINE 7715 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (chain)- _lhsOindex =- ({-# LINE 854 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIindex- {-# LINE 7721 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (chain)- _lhsOisLast =- ({-# LINE 873 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIisLast- {-# LINE 7727 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (chain)- _lhsOprevMaxSimRefs =- ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIprevMaxSimRefs- {-# LINE 7733 "dist/build/ExecutionPlan2Hs" #-}- )- in ( _lhsOdefs,_lhsOerrors,_lhsOindex,_lhsOisLast,_lhsOlazyIntras,_lhsOprevMaxSimRefs,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_steps,_lhsOsync_steps,_lhsOuses,_lhsOvisitKinds))))-sem_VisitStep_PureGroup :: T_VisitSteps ->- Bool ->- T_VisitStep-sem_VisitStep_PureGroup (T_VisitSteps steps_) ordered_ =- (T_VisitStep (\ _lhsIallFromToStates- _lhsIallInitStates- _lhsIallVisitKinds- _lhsIallchildvisit- _lhsIavisitdefs- _lhsIavisituses- _lhsIchildTypes- _lhsIchildintros- _lhsIfmtMode- _lhsIindex- _lhsIisLast- _lhsIkind- _lhsImrules- _lhsIoptions- _lhsIprevMaxSimRefs- _lhsIruledefs- _lhsIruleuses- _lhsIuseParallel ->- (let _stepsOkind :: VisitKind- _lhsOsem_steps :: PP_Doc- _stepsOfmtMode :: FormatMode- _lhsOlazyIntras :: (Set String)- _lhsOdefs :: (Set String)- _lhsOerrors :: (Seq Error)- _lhsOruleKinds :: (Map Identifier (Set VisitKind))- _lhsOruleUsage :: (Map Identifier Int)- _lhsOsync_steps :: PP_Doc- _lhsOuses :: (Map String (Maybe NonLocalAttr))- _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)- _lhsOindex :: Int- _lhsOisLast :: Bool- _lhsOprevMaxSimRefs :: Int- _stepsOallFromToStates :: (Map VisitIdentifier (Int,Int))- _stepsOallInitStates :: (Map NontermIdent Int)- _stepsOallVisitKinds :: (Map VisitIdentifier VisitKind)- _stepsOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _stepsOavisitdefs :: (Map VisitIdentifier (Set Identifier))- _stepsOavisituses :: (Map VisitIdentifier (Set Identifier))- _stepsOchildTypes :: (Map Identifier Type)- _stepsOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))- _stepsOindex :: Int- _stepsOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))- _stepsOoptions :: Options- _stepsOprevMaxSimRefs :: Int- _stepsOruledefs :: (Map Identifier (Set String))- _stepsOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))- _stepsOuseParallel :: Bool- _stepsIdefs :: (Set String)- _stepsIerrors :: (Seq Error)- _stepsIindex :: Int- _stepsIisLast :: Bool- _stepsIlazyIntras :: (Set String)- _stepsIprevMaxSimRefs :: Int- _stepsIruleKinds :: (Map Identifier (Set VisitKind))- _stepsIruleUsage :: (Map Identifier Int)- _stepsIsem_steps :: PP_Doc- _stepsIsize :: Int- _stepsIsync_steps :: PP_Doc- _stepsIuses :: (Map String (Maybe NonLocalAttr))- _stepsIvisitKinds :: (Map VisitIdentifier VisitKind)- -- "src-ag/ExecutionPlan2Hs.ag"(line 774, column 3)- _stepsOkind =- ({-# LINE 774 "src-ag/ExecutionPlan2Hs.ag" #-}- VisitPure ordered_- {-# LINE 7804 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 806, column 16)- _lhsOsem_steps =- ({-# LINE 806 "src-ag/ExecutionPlan2Hs.ag" #-}- case _lhsIfmtMode of- FormatDo -> "let" >#< _stepsIsem_steps- _ -> _stepsIsem_steps- {-# LINE 7812 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 827, column 3)- _stepsOfmtMode =- ({-# LINE 827 "src-ag/ExecutionPlan2Hs.ag" #-}- case _lhsIfmtMode of- FormatDo -> FormatLetDecl- mode -> mode- {-# LINE 7820 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1365, column 3)- _lhsOlazyIntras =- ({-# LINE 1365 "src-ag/ExecutionPlan2Hs.ag" #-}- if ordered_- then _stepsIlazyIntras- else _stepsIdefs- {-# LINE 7828 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1339, column 38)- _lhsOdefs =- ({-# LINE 1339 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIdefs- {-# LINE 7834 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)- _lhsOerrors =- ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIerrors- {-# LINE 7840 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1255, column 56)- _lhsOruleKinds =- ({-# LINE 1255 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIruleKinds- {-# LINE 7846 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1243, column 56)- _lhsOruleUsage =- ({-# LINE 1243 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIruleUsage- {-# LINE 7852 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 810, column 44)- _lhsOsync_steps =- ({-# LINE 810 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIsync_steps- {-# LINE 7858 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1340, column 38)- _lhsOuses =- ({-# LINE 1340 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIuses- {-# LINE 7864 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)- _lhsOvisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIvisitKinds- {-# LINE 7870 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (up)- _lhsOindex =- ({-# LINE 854 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIindex- {-# LINE 7876 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (up)- _lhsOisLast =- ({-# LINE 873 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIisLast- {-# LINE 7882 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (up)- _lhsOprevMaxSimRefs =- ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIprevMaxSimRefs- {-# LINE 7888 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOallFromToStates =- ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallFromToStates- {-# LINE 7894 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOallInitStates =- ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInitStates- {-# LINE 7900 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOallVisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallVisitKinds- {-# LINE 7906 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOallchildvisit =- ({-# LINE 1189 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallchildvisit- {-# LINE 7912 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOavisitdefs =- ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisitdefs- {-# LINE 7918 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOavisituses =- ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisituses- {-# LINE 7924 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOchildTypes =- ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIchildTypes- {-# LINE 7930 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOchildintros =- ({-# LINE 893 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIchildintros- {-# LINE 7936 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOindex =- ({-# LINE 854 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIindex- {-# LINE 7942 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOmrules =- ({-# LINE 776 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImrules- {-# LINE 7948 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 7954 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOprevMaxSimRefs =- ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIprevMaxSimRefs- {-# LINE 7960 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOruledefs =- ({-# LINE 1307 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIruledefs- {-# LINE 7966 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOruleuses =- ({-# LINE 1308 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIruleuses- {-# LINE 7972 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOuseParallel =- ({-# LINE 881 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIuseParallel- {-# LINE 7978 "dist/build/ExecutionPlan2Hs" #-}- )- ( _stepsIdefs,_stepsIerrors,_stepsIindex,_stepsIisLast,_stepsIlazyIntras,_stepsIprevMaxSimRefs,_stepsIruleKinds,_stepsIruleUsage,_stepsIsem_steps,_stepsIsize,_stepsIsync_steps,_stepsIuses,_stepsIvisitKinds) =- steps_ _stepsOallFromToStates _stepsOallInitStates _stepsOallVisitKinds _stepsOallchildvisit _stepsOavisitdefs _stepsOavisituses _stepsOchildTypes _stepsOchildintros _stepsOfmtMode _stepsOindex _stepsOkind _stepsOmrules _stepsOoptions _stepsOprevMaxSimRefs _stepsOruledefs _stepsOruleuses _stepsOuseParallel- in ( _lhsOdefs,_lhsOerrors,_lhsOindex,_lhsOisLast,_lhsOlazyIntras,_lhsOprevMaxSimRefs,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_steps,_lhsOsync_steps,_lhsOuses,_lhsOvisitKinds))))-sem_VisitStep_Sem :: Identifier ->- T_VisitStep-sem_VisitStep_Sem name_ =- (T_VisitStep (\ _lhsIallFromToStates- _lhsIallInitStates- _lhsIallVisitKinds- _lhsIallchildvisit- _lhsIavisitdefs- _lhsIavisituses- _lhsIchildTypes- _lhsIchildintros- _lhsIfmtMode- _lhsIindex- _lhsIisLast- _lhsIkind- _lhsImrules- _lhsIoptions- _lhsIprevMaxSimRefs- _lhsIruledefs- _lhsIruleuses- _lhsIuseParallel ->- (let _lhsOerrors :: (Seq Error)- _lhsOruleUsage :: (Map Identifier Int)- _lhsOruleKinds :: (Map Identifier (Set VisitKind))- _lhsOdefs :: (Set String)- _lhsOuses :: (Map String (Maybe NonLocalAttr))- _lhsOlazyIntras :: (Set String)- _lhsOsem_steps :: PP_Doc- _lhsOsync_steps :: PP_Doc- _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)- _lhsOindex :: Int- _lhsOisLast :: Bool- _lhsOprevMaxSimRefs :: Int- -- "src-ag/ExecutionPlan2Hs.ag"(line 779, column 16)- _ruleItf =- ({-# LINE 779 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.findWithDefault (error $ "Rule " ++ show name_ ++ " not found") name_ _lhsImrules- {-# LINE 8020 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 780, column 16)- (_lhsOerrors,_sem_steps) =- ({-# LINE 780 "src-ag/ExecutionPlan2Hs.ag" #-}- case _ruleItf _lhsIkind _lhsIfmtMode of- Left e -> (Seq.singleton e, empty)- Right stmt -> (Seq.empty, stmt)- {-# LINE 8028 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1247, column 32)- _lhsOruleUsage =- ({-# LINE 1247 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.singleton name_ 1- {-# LINE 8034 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1257, column 3)- _lhsOruleKinds =- ({-# LINE 1257 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.singleton name_ (Set.singleton _lhsIkind)- {-# LINE 8040 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1342, column 16)- _lhsOdefs =- ({-# LINE 1342 "src-ag/ExecutionPlan2Hs.ag" #-}- maybe (error "Rule not found") id $ Map.lookup name_ _lhsIruledefs- {-# LINE 8046 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 1343, column 16)- _lhsOuses =- ({-# LINE 1343 "src-ag/ExecutionPlan2Hs.ag" #-}- maybe (error "Rule not found") id $ Map.lookup name_ _lhsIruleuses- {-# LINE 8052 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1355, column 57)- _lhsOlazyIntras =- ({-# LINE 1355 "src-ag/ExecutionPlan2Hs.ag" #-}- Set.empty- {-# LINE 8058 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 777, column 43)- _lhsOsem_steps =- ({-# LINE 777 "src-ag/ExecutionPlan2Hs.ag" #-}- _sem_steps- {-# LINE 8064 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 810, column 44)- _lhsOsync_steps =- ({-# LINE 810 "src-ag/ExecutionPlan2Hs.ag" #-}- empty- {-# LINE 8070 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)- _lhsOvisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- mempty- {-# LINE 8076 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (chain)- _lhsOindex =- ({-# LINE 854 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIindex- {-# LINE 8082 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (chain)- _lhsOisLast =- ({-# LINE 873 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIisLast- {-# LINE 8088 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (chain)- _lhsOprevMaxSimRefs =- ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIprevMaxSimRefs- {-# LINE 8094 "dist/build/ExecutionPlan2Hs" #-}- )- in ( _lhsOdefs,_lhsOerrors,_lhsOindex,_lhsOisLast,_lhsOlazyIntras,_lhsOprevMaxSimRefs,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_steps,_lhsOsync_steps,_lhsOuses,_lhsOvisitKinds))))-sem_VisitStep_Sim :: T_VisitSteps ->- T_VisitStep-sem_VisitStep_Sim (T_VisitSteps steps_) =- (T_VisitStep (\ _lhsIallFromToStates- _lhsIallInitStates- _lhsIallVisitKinds- _lhsIallchildvisit- _lhsIavisitdefs- _lhsIavisituses- _lhsIchildTypes- _lhsIchildintros- _lhsIfmtMode- _lhsIindex- _lhsIisLast- _lhsIkind- _lhsImrules- _lhsIoptions- _lhsIprevMaxSimRefs- _lhsIruledefs- _lhsIruleuses- _lhsIuseParallel ->- (let _lhsOsem_steps :: PP_Doc- _stepsOindex :: Int- _lhsOindex :: Int- _lhsOprevMaxSimRefs :: Int- _lhsOdefs :: (Set String)- _lhsOerrors :: (Seq Error)- _lhsOlazyIntras :: (Set String)- _lhsOruleKinds :: (Map Identifier (Set VisitKind))- _lhsOruleUsage :: (Map Identifier Int)- _lhsOsync_steps :: PP_Doc- _lhsOuses :: (Map String (Maybe NonLocalAttr))- _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)- _lhsOisLast :: Bool- _stepsOallFromToStates :: (Map VisitIdentifier (Int,Int))- _stepsOallInitStates :: (Map NontermIdent Int)- _stepsOallVisitKinds :: (Map VisitIdentifier VisitKind)- _stepsOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _stepsOavisitdefs :: (Map VisitIdentifier (Set Identifier))- _stepsOavisituses :: (Map VisitIdentifier (Set Identifier))- _stepsOchildTypes :: (Map Identifier Type)- _stepsOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))- _stepsOfmtMode :: FormatMode- _stepsOkind :: VisitKind- _stepsOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))- _stepsOoptions :: Options- _stepsOprevMaxSimRefs :: Int- _stepsOruledefs :: (Map Identifier (Set String))- _stepsOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))- _stepsOuseParallel :: Bool- _stepsIdefs :: (Set String)- _stepsIerrors :: (Seq Error)- _stepsIindex :: Int- _stepsIisLast :: Bool- _stepsIlazyIntras :: (Set String)- _stepsIprevMaxSimRefs :: Int- _stepsIruleKinds :: (Map Identifier (Set VisitKind))- _stepsIruleUsage :: (Map Identifier Int)- _stepsIsem_steps :: PP_Doc- _stepsIsize :: Int- _stepsIsync_steps :: PP_Doc- _stepsIuses :: (Map String (Maybe NonLocalAttr))- _stepsIvisitKinds :: (Map VisitIdentifier VisitKind)- -- "src-ag/ExecutionPlan2Hs.ag"(line 805, column 16)- _lhsOsem_steps =- ({-# LINE 805 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIsem_steps >-< _stepsIsync_steps- {-# LINE 8164 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 860, column 22)- _stepsOindex =- ({-# LINE 860 "src-ag/ExecutionPlan2Hs.ag" #-}- 0- {-# LINE 8170 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 861, column 22)- _lhsOindex =- ({-# LINE 861 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIindex- {-# LINE 8176 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 868, column 3)- _lhsOprevMaxSimRefs =- ({-# LINE 868 "src-ag/ExecutionPlan2Hs.ag" #-}- if _useParallel- then _lhsIprevMaxSimRefs `max` (_stepsIindex - 1)- else _lhsIprevMaxSimRefs- {-# LINE 8184 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 883, column 22)- _useParallel =- ({-# LINE 883 "src-ag/ExecutionPlan2Hs.ag" #-}- parallelInvoke _lhsIoptions && _stepsIsize > 1 && _isMonadic- {-# LINE 8190 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 884, column 22)- _isMonadic =- ({-# LINE 884 "src-ag/ExecutionPlan2Hs.ag" #-}- case _lhsIkind of- VisitMonadic -> True- _ -> False- {-# LINE 8198 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1339, column 38)- _lhsOdefs =- ({-# LINE 1339 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIdefs- {-# LINE 8204 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)- _lhsOerrors =- ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIerrors- {-# LINE 8210 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1355, column 57)- _lhsOlazyIntras =- ({-# LINE 1355 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIlazyIntras- {-# LINE 8216 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1255, column 56)- _lhsOruleKinds =- ({-# LINE 1255 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIruleKinds- {-# LINE 8222 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1243, column 56)- _lhsOruleUsage =- ({-# LINE 1243 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIruleUsage- {-# LINE 8228 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 810, column 44)- _lhsOsync_steps =- ({-# LINE 810 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIsync_steps- {-# LINE 8234 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1340, column 38)- _lhsOuses =- ({-# LINE 1340 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIuses- {-# LINE 8240 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)- _lhsOvisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIvisitKinds- {-# LINE 8246 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (up)- _lhsOisLast =- ({-# LINE 873 "src-ag/ExecutionPlan2Hs.ag" #-}- _stepsIisLast- {-# LINE 8252 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOallFromToStates =- ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallFromToStates- {-# LINE 8258 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOallInitStates =- ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInitStates- {-# LINE 8264 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOallVisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallVisitKinds- {-# LINE 8270 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOallchildvisit =- ({-# LINE 1189 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallchildvisit- {-# LINE 8276 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOavisitdefs =- ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisitdefs- {-# LINE 8282 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOavisituses =- ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisituses- {-# LINE 8288 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOchildTypes =- ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIchildTypes- {-# LINE 8294 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOchildintros =- ({-# LINE 893 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIchildintros- {-# LINE 8300 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOfmtMode =- ({-# LINE 819 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIfmtMode- {-# LINE 8306 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOkind =- ({-# LINE 769 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIkind- {-# LINE 8312 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOmrules =- ({-# LINE 776 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImrules- {-# LINE 8318 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 8324 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOprevMaxSimRefs =- ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIprevMaxSimRefs- {-# LINE 8330 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOruledefs =- ({-# LINE 1307 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIruledefs- {-# LINE 8336 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _stepsOruleuses =- ({-# LINE 1308 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIruleuses- {-# LINE 8342 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (from local)- _stepsOuseParallel =- ({-# LINE 881 "src-ag/ExecutionPlan2Hs.ag" #-}- _useParallel- {-# LINE 8348 "dist/build/ExecutionPlan2Hs" #-}- )- ( _stepsIdefs,_stepsIerrors,_stepsIindex,_stepsIisLast,_stepsIlazyIntras,_stepsIprevMaxSimRefs,_stepsIruleKinds,_stepsIruleUsage,_stepsIsem_steps,_stepsIsize,_stepsIsync_steps,_stepsIuses,_stepsIvisitKinds) =- steps_ _stepsOallFromToStates _stepsOallInitStates _stepsOallVisitKinds _stepsOallchildvisit _stepsOavisitdefs _stepsOavisituses _stepsOchildTypes _stepsOchildintros _stepsOfmtMode _stepsOindex _stepsOkind _stepsOmrules _stepsOoptions _stepsOprevMaxSimRefs _stepsOruledefs _stepsOruleuses _stepsOuseParallel- in ( _lhsOdefs,_lhsOerrors,_lhsOindex,_lhsOisLast,_lhsOlazyIntras,_lhsOprevMaxSimRefs,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_steps,_lhsOsync_steps,_lhsOuses,_lhsOvisitKinds))))--- VisitSteps ---------------------------------------------------{-- visit 0:- inherited attributes:- allFromToStates : Map VisitIdentifier (Int,Int)- allInitStates : Map NontermIdent Int- allVisitKinds : Map VisitIdentifier VisitKind- allchildvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))- avisitdefs : Map VisitIdentifier (Set Identifier)- avisituses : Map VisitIdentifier (Set Identifier)- childTypes : Map Identifier Type- childintros : Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))- fmtMode : FormatMode- kind : VisitKind- mrules : Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)- options : Options- ruledefs : Map Identifier (Set String)- ruleuses : Map Identifier (Map String (Maybe NonLocalAttr))- useParallel : Bool- chained attributes:- index : Int- prevMaxSimRefs : Int- synthesized attributes:- defs : Set String- errors : Seq Error- isLast : Bool- lazyIntras : Set String- ruleKinds : Map Identifier (Set VisitKind)- ruleUsage : Map Identifier Int- sem_steps : PP_Doc- size : Int- sync_steps : PP_Doc- uses : Map String (Maybe NonLocalAttr)- visitKinds : Map VisitIdentifier VisitKind- alternatives:- alternative Cons:- child hd : VisitStep - child tl : VisitSteps - alternative Nil:--}--- cata-sem_VisitSteps :: VisitSteps ->- T_VisitSteps-sem_VisitSteps list =- (Prelude.foldr sem_VisitSteps_Cons sem_VisitSteps_Nil (Prelude.map sem_VisitStep list))--- semantic domain-newtype T_VisitSteps = T_VisitSteps ((Map VisitIdentifier (Int,Int)) ->- (Map NontermIdent Int) ->- (Map VisitIdentifier VisitKind) ->- (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))) ->- (Map VisitIdentifier (Set Identifier)) ->- (Map VisitIdentifier (Set Identifier)) ->- (Map Identifier Type) ->- (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))) ->- FormatMode ->- Int ->- VisitKind ->- (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)) ->- Options ->- Int ->- (Map Identifier (Set String)) ->- (Map Identifier (Map String (Maybe NonLocalAttr))) ->- Bool ->- ( (Set String),(Seq Error),Int,Bool,(Set String),Int,(Map Identifier (Set VisitKind)),(Map Identifier Int),PP_Doc,Int,PP_Doc,(Map String (Maybe NonLocalAttr)),(Map VisitIdentifier VisitKind)))-data Inh_VisitSteps = Inh_VisitSteps {allFromToStates_Inh_VisitSteps :: (Map VisitIdentifier (Int,Int)),allInitStates_Inh_VisitSteps :: (Map NontermIdent Int),allVisitKinds_Inh_VisitSteps :: (Map VisitIdentifier VisitKind),allchildvisit_Inh_VisitSteps :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),avisitdefs_Inh_VisitSteps :: (Map VisitIdentifier (Set Identifier)),avisituses_Inh_VisitSteps :: (Map VisitIdentifier (Set Identifier)),childTypes_Inh_VisitSteps :: (Map Identifier Type),childintros_Inh_VisitSteps :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))),fmtMode_Inh_VisitSteps :: FormatMode,index_Inh_VisitSteps :: Int,kind_Inh_VisitSteps :: VisitKind,mrules_Inh_VisitSteps :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)),options_Inh_VisitSteps :: Options,prevMaxSimRefs_Inh_VisitSteps :: Int,ruledefs_Inh_VisitSteps :: (Map Identifier (Set String)),ruleuses_Inh_VisitSteps :: (Map Identifier (Map String (Maybe NonLocalAttr))),useParallel_Inh_VisitSteps :: Bool}-data Syn_VisitSteps = Syn_VisitSteps {defs_Syn_VisitSteps :: (Set String),errors_Syn_VisitSteps :: (Seq Error),index_Syn_VisitSteps :: Int,isLast_Syn_VisitSteps :: Bool,lazyIntras_Syn_VisitSteps :: (Set String),prevMaxSimRefs_Syn_VisitSteps :: Int,ruleKinds_Syn_VisitSteps :: (Map Identifier (Set VisitKind)),ruleUsage_Syn_VisitSteps :: (Map Identifier Int),sem_steps_Syn_VisitSteps :: PP_Doc,size_Syn_VisitSteps :: Int,sync_steps_Syn_VisitSteps :: PP_Doc,uses_Syn_VisitSteps :: (Map String (Maybe NonLocalAttr)),visitKinds_Syn_VisitSteps :: (Map VisitIdentifier VisitKind)}-wrap_VisitSteps :: T_VisitSteps ->- Inh_VisitSteps ->- Syn_VisitSteps-wrap_VisitSteps (T_VisitSteps sem) (Inh_VisitSteps _lhsIallFromToStates _lhsIallInitStates _lhsIallVisitKinds _lhsIallchildvisit _lhsIavisitdefs _lhsIavisituses _lhsIchildTypes _lhsIchildintros _lhsIfmtMode _lhsIindex _lhsIkind _lhsImrules _lhsIoptions _lhsIprevMaxSimRefs _lhsIruledefs _lhsIruleuses _lhsIuseParallel) =- (let ( _lhsOdefs,_lhsOerrors,_lhsOindex,_lhsOisLast,_lhsOlazyIntras,_lhsOprevMaxSimRefs,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_steps,_lhsOsize,_lhsOsync_steps,_lhsOuses,_lhsOvisitKinds) = sem _lhsIallFromToStates _lhsIallInitStates _lhsIallVisitKinds _lhsIallchildvisit _lhsIavisitdefs _lhsIavisituses _lhsIchildTypes _lhsIchildintros _lhsIfmtMode _lhsIindex _lhsIkind _lhsImrules _lhsIoptions _lhsIprevMaxSimRefs _lhsIruledefs _lhsIruleuses _lhsIuseParallel- in (Syn_VisitSteps _lhsOdefs _lhsOerrors _lhsOindex _lhsOisLast _lhsOlazyIntras _lhsOprevMaxSimRefs _lhsOruleKinds _lhsOruleUsage _lhsOsem_steps _lhsOsize _lhsOsync_steps _lhsOuses _lhsOvisitKinds))-sem_VisitSteps_Cons :: T_VisitStep ->- T_VisitSteps ->- T_VisitSteps-sem_VisitSteps_Cons (T_VisitStep hd_) (T_VisitSteps tl_) =- (T_VisitSteps (\ _lhsIallFromToStates- _lhsIallInitStates- _lhsIallVisitKinds- _lhsIallchildvisit- _lhsIavisitdefs- _lhsIavisituses- _lhsIchildTypes- _lhsIchildintros- _lhsIfmtMode- _lhsIindex- _lhsIkind- _lhsImrules- _lhsIoptions- _lhsIprevMaxSimRefs- _lhsIruledefs- _lhsIruleuses- _lhsIuseParallel ->- (let _lhsOsize :: Int- _hdOindex :: Int- _tlOindex :: Int- _lhsOindex :: Int- _lhsOisLast :: Bool- _hdOisLast :: Bool- _lhsOdefs :: (Set String)- _lhsOerrors :: (Seq Error)- _lhsOlazyIntras :: (Set String)- _lhsOruleKinds :: (Map Identifier (Set VisitKind))- _lhsOruleUsage :: (Map Identifier Int)- _lhsOsem_steps :: PP_Doc- _lhsOsync_steps :: PP_Doc- _lhsOuses :: (Map String (Maybe NonLocalAttr))- _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)- _lhsOprevMaxSimRefs :: Int- _hdOallFromToStates :: (Map VisitIdentifier (Int,Int))- _hdOallInitStates :: (Map NontermIdent Int)- _hdOallVisitKinds :: (Map VisitIdentifier VisitKind)- _hdOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _hdOavisitdefs :: (Map VisitIdentifier (Set Identifier))- _hdOavisituses :: (Map VisitIdentifier (Set Identifier))- _hdOchildTypes :: (Map Identifier Type)- _hdOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))- _hdOfmtMode :: FormatMode- _hdOkind :: VisitKind- _hdOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))- _hdOoptions :: Options- _hdOprevMaxSimRefs :: Int- _hdOruledefs :: (Map Identifier (Set String))- _hdOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))- _hdOuseParallel :: Bool- _tlOallFromToStates :: (Map VisitIdentifier (Int,Int))- _tlOallInitStates :: (Map NontermIdent Int)- _tlOallVisitKinds :: (Map VisitIdentifier VisitKind)- _tlOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _tlOavisitdefs :: (Map VisitIdentifier (Set Identifier))- _tlOavisituses :: (Map VisitIdentifier (Set Identifier))- _tlOchildTypes :: (Map Identifier Type)- _tlOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))- _tlOfmtMode :: FormatMode- _tlOkind :: VisitKind- _tlOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))- _tlOoptions :: Options- _tlOprevMaxSimRefs :: Int- _tlOruledefs :: (Map Identifier (Set String))- _tlOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))- _tlOuseParallel :: Bool- _hdIdefs :: (Set String)- _hdIerrors :: (Seq Error)- _hdIindex :: Int- _hdIisLast :: Bool- _hdIlazyIntras :: (Set String)- _hdIprevMaxSimRefs :: Int- _hdIruleKinds :: (Map Identifier (Set VisitKind))- _hdIruleUsage :: (Map Identifier Int)- _hdIsem_steps :: PP_Doc- _hdIsync_steps :: PP_Doc- _hdIuses :: (Map String (Maybe NonLocalAttr))- _hdIvisitKinds :: (Map VisitIdentifier VisitKind)- _tlIdefs :: (Set String)- _tlIerrors :: (Seq Error)- _tlIindex :: Int- _tlIisLast :: Bool- _tlIlazyIntras :: (Set String)- _tlIprevMaxSimRefs :: Int- _tlIruleKinds :: (Map Identifier (Set VisitKind))- _tlIruleUsage :: (Map Identifier Int)- _tlIsem_steps :: PP_Doc- _tlIsize :: Int- _tlIsync_steps :: PP_Doc- _tlIuses :: (Map String (Maybe NonLocalAttr))- _tlIvisitKinds :: (Map VisitIdentifier VisitKind)- -- "src-ag/ExecutionPlan2Hs.ag"(line 851, column 10)- _lhsOsize =- ({-# LINE 851 "src-ag/ExecutionPlan2Hs.ag" #-}- 1 + _tlIsize- {-# LINE 8523 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 856, column 3)- _hdOindex =- ({-# LINE 856 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIindex- {-# LINE 8529 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 857, column 3)- _tlOindex =- ({-# LINE 857 "src-ag/ExecutionPlan2Hs.ag" #-}- 1 + _lhsIindex- {-# LINE 8535 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 858, column 3)- _lhsOindex =- ({-# LINE 858 "src-ag/ExecutionPlan2Hs.ag" #-}- _tlIindex- {-# LINE 8541 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 877, column 11)- _lhsOisLast =- ({-# LINE 877 "src-ag/ExecutionPlan2Hs.ag" #-}- False- {-# LINE 8547 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 878, column 11)- _hdOisLast =- ({-# LINE 878 "src-ag/ExecutionPlan2Hs.ag" #-}- _tlIisLast- {-# LINE 8553 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1339, column 38)- _lhsOdefs =- ({-# LINE 1339 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIdefs `Set.union` _tlIdefs- {-# LINE 8559 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)- _lhsOerrors =- ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 8565 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1355, column 57)- _lhsOlazyIntras =- ({-# LINE 1355 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIlazyIntras `Set.union` _tlIlazyIntras- {-# LINE 8571 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1255, column 56)- _lhsOruleKinds =- ({-# LINE 1255 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIruleKinds `unionWithMappend` _tlIruleKinds- {-# LINE 8577 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1243, column 56)- _lhsOruleUsage =- ({-# LINE 1243 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIruleUsage `unionWithSum` _tlIruleUsage- {-# LINE 8583 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 777, column 43)- _lhsOsem_steps =- ({-# LINE 777 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIsem_steps >-< _tlIsem_steps- {-# LINE 8589 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 810, column 44)- _lhsOsync_steps =- ({-# LINE 810 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIsync_steps >-< _tlIsync_steps- {-# LINE 8595 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1340, column 38)- _lhsOuses =- ({-# LINE 1340 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIuses `Map.union` _tlIuses- {-# LINE 8601 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)- _lhsOvisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIvisitKinds `mappend` _tlIvisitKinds- {-# LINE 8607 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (up)- _lhsOprevMaxSimRefs =- ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}- _tlIprevMaxSimRefs- {-# LINE 8613 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallFromToStates =- ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallFromToStates- {-# LINE 8619 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallInitStates =- ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInitStates- {-# LINE 8625 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallVisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallVisitKinds- {-# LINE 8631 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallchildvisit =- ({-# LINE 1189 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallchildvisit- {-# LINE 8637 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOavisitdefs =- ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisitdefs- {-# LINE 8643 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOavisituses =- ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisituses- {-# LINE 8649 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOchildTypes =- ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIchildTypes- {-# LINE 8655 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOchildintros =- ({-# LINE 893 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIchildintros- {-# LINE 8661 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOfmtMode =- ({-# LINE 819 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIfmtMode- {-# LINE 8667 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOkind =- ({-# LINE 769 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIkind- {-# LINE 8673 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOmrules =- ({-# LINE 776 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImrules- {-# LINE 8679 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 8685 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOprevMaxSimRefs =- ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIprevMaxSimRefs- {-# LINE 8691 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOruledefs =- ({-# LINE 1307 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIruledefs- {-# LINE 8697 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOruleuses =- ({-# LINE 1308 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIruleuses- {-# LINE 8703 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOuseParallel =- ({-# LINE 881 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIuseParallel- {-# LINE 8709 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallFromToStates =- ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallFromToStates- {-# LINE 8715 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallInitStates =- ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInitStates- {-# LINE 8721 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallVisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallVisitKinds- {-# LINE 8727 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallchildvisit =- ({-# LINE 1189 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallchildvisit- {-# LINE 8733 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOavisitdefs =- ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisitdefs- {-# LINE 8739 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOavisituses =- ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisituses- {-# LINE 8745 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOchildTypes =- ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIchildTypes- {-# LINE 8751 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOchildintros =- ({-# LINE 893 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIchildintros- {-# LINE 8757 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOfmtMode =- ({-# LINE 819 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIfmtMode- {-# LINE 8763 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOkind =- ({-# LINE 769 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIkind- {-# LINE 8769 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOmrules =- ({-# LINE 776 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImrules- {-# LINE 8775 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 8781 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (chain)- _tlOprevMaxSimRefs =- ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIprevMaxSimRefs- {-# LINE 8787 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOruledefs =- ({-# LINE 1307 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIruledefs- {-# LINE 8793 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOruleuses =- ({-# LINE 1308 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIruleuses- {-# LINE 8799 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOuseParallel =- ({-# LINE 881 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIuseParallel- {-# LINE 8805 "dist/build/ExecutionPlan2Hs" #-}- )- ( _hdIdefs,_hdIerrors,_hdIindex,_hdIisLast,_hdIlazyIntras,_hdIprevMaxSimRefs,_hdIruleKinds,_hdIruleUsage,_hdIsem_steps,_hdIsync_steps,_hdIuses,_hdIvisitKinds) =- hd_ _hdOallFromToStates _hdOallInitStates _hdOallVisitKinds _hdOallchildvisit _hdOavisitdefs _hdOavisituses _hdOchildTypes _hdOchildintros _hdOfmtMode _hdOindex _hdOisLast _hdOkind _hdOmrules _hdOoptions _hdOprevMaxSimRefs _hdOruledefs _hdOruleuses _hdOuseParallel- ( _tlIdefs,_tlIerrors,_tlIindex,_tlIisLast,_tlIlazyIntras,_tlIprevMaxSimRefs,_tlIruleKinds,_tlIruleUsage,_tlIsem_steps,_tlIsize,_tlIsync_steps,_tlIuses,_tlIvisitKinds) =- tl_ _tlOallFromToStates _tlOallInitStates _tlOallVisitKinds _tlOallchildvisit _tlOavisitdefs _tlOavisituses _tlOchildTypes _tlOchildintros _tlOfmtMode _tlOindex _tlOkind _tlOmrules _tlOoptions _tlOprevMaxSimRefs _tlOruledefs _tlOruleuses _tlOuseParallel- in ( _lhsOdefs,_lhsOerrors,_lhsOindex,_lhsOisLast,_lhsOlazyIntras,_lhsOprevMaxSimRefs,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_steps,_lhsOsize,_lhsOsync_steps,_lhsOuses,_lhsOvisitKinds))))-sem_VisitSteps_Nil :: T_VisitSteps-sem_VisitSteps_Nil =- (T_VisitSteps (\ _lhsIallFromToStates- _lhsIallInitStates- _lhsIallVisitKinds- _lhsIallchildvisit- _lhsIavisitdefs- _lhsIavisituses- _lhsIchildTypes- _lhsIchildintros- _lhsIfmtMode- _lhsIindex- _lhsIkind- _lhsImrules- _lhsIoptions- _lhsIprevMaxSimRefs- _lhsIruledefs- _lhsIruleuses- _lhsIuseParallel ->- (let _lhsOsize :: Int- _lhsOisLast :: Bool- _lhsOdefs :: (Set String)- _lhsOerrors :: (Seq Error)- _lhsOlazyIntras :: (Set String)- _lhsOruleKinds :: (Map Identifier (Set VisitKind))- _lhsOruleUsage :: (Map Identifier Int)- _lhsOsem_steps :: PP_Doc- _lhsOsync_steps :: PP_Doc- _lhsOuses :: (Map String (Maybe NonLocalAttr))- _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)- _lhsOindex :: Int- _lhsOprevMaxSimRefs :: Int- -- "src-ag/ExecutionPlan2Hs.ag"(line 850, column 10)- _lhsOsize =- ({-# LINE 850 "src-ag/ExecutionPlan2Hs.ag" #-}- 0- {-# LINE 8848 "dist/build/ExecutionPlan2Hs" #-}- )- -- "src-ag/ExecutionPlan2Hs.ag"(line 876, column 11)- _lhsOisLast =- ({-# LINE 876 "src-ag/ExecutionPlan2Hs.ag" #-}- True- {-# LINE 8854 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1339, column 38)- _lhsOdefs =- ({-# LINE 1339 "src-ag/ExecutionPlan2Hs.ag" #-}- Set.empty- {-# LINE 8860 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)- _lhsOerrors =- ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}- Seq.empty- {-# LINE 8866 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1355, column 57)- _lhsOlazyIntras =- ({-# LINE 1355 "src-ag/ExecutionPlan2Hs.ag" #-}- Set.empty- {-# LINE 8872 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1255, column 56)- _lhsOruleKinds =- ({-# LINE 1255 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 8878 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1243, column 56)- _lhsOruleUsage =- ({-# LINE 1243 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 8884 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 777, column 43)- _lhsOsem_steps =- ({-# LINE 777 "src-ag/ExecutionPlan2Hs.ag" #-}- empty- {-# LINE 8890 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 810, column 44)- _lhsOsync_steps =- ({-# LINE 810 "src-ag/ExecutionPlan2Hs.ag" #-}- empty- {-# LINE 8896 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1340, column 38)- _lhsOuses =- ({-# LINE 1340 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 8902 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)- _lhsOvisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- mempty- {-# LINE 8908 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (chain)- _lhsOindex =- ({-# LINE 854 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIindex- {-# LINE 8914 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (chain)- _lhsOprevMaxSimRefs =- ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIprevMaxSimRefs- {-# LINE 8920 "dist/build/ExecutionPlan2Hs" #-}- )- in ( _lhsOdefs,_lhsOerrors,_lhsOindex,_lhsOisLast,_lhsOlazyIntras,_lhsOprevMaxSimRefs,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_steps,_lhsOsize,_lhsOsync_steps,_lhsOuses,_lhsOvisitKinds))))--- Visits -------------------------------------------------------{-- visit 0:- inherited attributes:- allFromToStates : Map VisitIdentifier (Int,Int)- allInhmap : Map NontermIdent Attributes- allInitStates : Map NontermIdent Int- allSynmap : Map NontermIdent Attributes- allVisitKinds : Map VisitIdentifier VisitKind- allchildvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))- allintramap : Map StateIdentifier (Map String (Maybe NonLocalAttr))- avisitdefs : Map VisitIdentifier (Set Identifier)- avisituses : Map VisitIdentifier (Set Identifier)- childTypes : Map Identifier Type- childintros : Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))- con : ConstructorIdent- inhmap : Attributes- mrules : Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)- nextVisits : Map StateIdentifier StateCtx- nt : NontermIdent- options : Options- params : [Identifier]- prevVisits : Map StateIdentifier StateCtx- ruledefs : Map Identifier (Set String)- ruleuses : Map Identifier (Map String (Maybe NonLocalAttr))- synmap : Attributes- terminaldefs : Set String- synthesized attributes:- allvisits : [VisitStateState]- childvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))- errors : Seq Error- fromToStates : Map VisitIdentifier (Int,Int)- intramap : Map StateIdentifier (Map String (Maybe NonLocalAttr))- lazyIntras : Set String- ruleKinds : Map Identifier (Set VisitKind)- ruleUsage : Map Identifier Int- sem_visit : [(StateIdentifier,Bool -> PP_Doc)] - t_visits : PP_Doc- visitKinds : Map VisitIdentifier VisitKind- visitdefs : Map VisitIdentifier (Set Identifier)- visituses : Map VisitIdentifier (Set Identifier)- alternatives:- alternative Cons:- child hd : Visit - child tl : Visits - alternative Nil:--}--- cata-sem_Visits :: Visits ->- T_Visits-sem_Visits list =- (Prelude.foldr sem_Visits_Cons sem_Visits_Nil (Prelude.map sem_Visit list))--- semantic domain-newtype T_Visits = T_Visits ((Map VisitIdentifier (Int,Int)) ->- (Map NontermIdent Attributes) ->- (Map NontermIdent Int) ->- (Map NontermIdent Attributes) ->- (Map VisitIdentifier VisitKind) ->- (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))) ->- (Map StateIdentifier (Map String (Maybe NonLocalAttr))) ->- (Map VisitIdentifier (Set Identifier)) ->- (Map VisitIdentifier (Set Identifier)) ->- (Map Identifier Type) ->- (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))) ->- ConstructorIdent ->- Attributes ->- (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)) ->- (Map StateIdentifier StateCtx) ->- NontermIdent ->- Options ->- ([Identifier]) ->- (Map StateIdentifier StateCtx) ->- (Map Identifier (Set String)) ->- (Map Identifier (Map String (Maybe NonLocalAttr))) ->- Attributes ->- (Set String) ->- ( ([VisitStateState]),(Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),(Seq Error),(Map VisitIdentifier (Int,Int)),(Map StateIdentifier (Map String (Maybe NonLocalAttr))),(Set String),(Map Identifier (Set VisitKind)),(Map Identifier Int),( [(StateIdentifier,Bool -> PP_Doc)] ),PP_Doc,(Map VisitIdentifier VisitKind),(Map VisitIdentifier (Set Identifier)),(Map VisitIdentifier (Set Identifier))))-data Inh_Visits = Inh_Visits {allFromToStates_Inh_Visits :: (Map VisitIdentifier (Int,Int)),allInhmap_Inh_Visits :: (Map NontermIdent Attributes),allInitStates_Inh_Visits :: (Map NontermIdent Int),allSynmap_Inh_Visits :: (Map NontermIdent Attributes),allVisitKinds_Inh_Visits :: (Map VisitIdentifier VisitKind),allchildvisit_Inh_Visits :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),allintramap_Inh_Visits :: (Map StateIdentifier (Map String (Maybe NonLocalAttr))),avisitdefs_Inh_Visits :: (Map VisitIdentifier (Set Identifier)),avisituses_Inh_Visits :: (Map VisitIdentifier (Set Identifier)),childTypes_Inh_Visits :: (Map Identifier Type),childintros_Inh_Visits :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))),con_Inh_Visits :: ConstructorIdent,inhmap_Inh_Visits :: Attributes,mrules_Inh_Visits :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)),nextVisits_Inh_Visits :: (Map StateIdentifier StateCtx),nt_Inh_Visits :: NontermIdent,options_Inh_Visits :: Options,params_Inh_Visits :: ([Identifier]),prevVisits_Inh_Visits :: (Map StateIdentifier StateCtx),ruledefs_Inh_Visits :: (Map Identifier (Set String)),ruleuses_Inh_Visits :: (Map Identifier (Map String (Maybe NonLocalAttr))),synmap_Inh_Visits :: Attributes,terminaldefs_Inh_Visits :: (Set String)}-data Syn_Visits = Syn_Visits {allvisits_Syn_Visits :: ([VisitStateState]),childvisit_Syn_Visits :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),errors_Syn_Visits :: (Seq Error),fromToStates_Syn_Visits :: (Map VisitIdentifier (Int,Int)),intramap_Syn_Visits :: (Map StateIdentifier (Map String (Maybe NonLocalAttr))),lazyIntras_Syn_Visits :: (Set String),ruleKinds_Syn_Visits :: (Map Identifier (Set VisitKind)),ruleUsage_Syn_Visits :: (Map Identifier Int),sem_visit_Syn_Visits :: ( [(StateIdentifier,Bool -> PP_Doc)] ),t_visits_Syn_Visits :: PP_Doc,visitKinds_Syn_Visits :: (Map VisitIdentifier VisitKind),visitdefs_Syn_Visits :: (Map VisitIdentifier (Set Identifier)),visituses_Syn_Visits :: (Map VisitIdentifier (Set Identifier))}-wrap_Visits :: T_Visits ->- Inh_Visits ->- Syn_Visits-wrap_Visits (T_Visits sem) (Inh_Visits _lhsIallFromToStates _lhsIallInhmap _lhsIallInitStates _lhsIallSynmap _lhsIallVisitKinds _lhsIallchildvisit _lhsIallintramap _lhsIavisitdefs _lhsIavisituses _lhsIchildTypes _lhsIchildintros _lhsIcon _lhsIinhmap _lhsImrules _lhsInextVisits _lhsInt _lhsIoptions _lhsIparams _lhsIprevVisits _lhsIruledefs _lhsIruleuses _lhsIsynmap _lhsIterminaldefs) =- (let ( _lhsOallvisits,_lhsOchildvisit,_lhsOerrors,_lhsOfromToStates,_lhsOintramap,_lhsOlazyIntras,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_visit,_lhsOt_visits,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses) = sem _lhsIallFromToStates _lhsIallInhmap _lhsIallInitStates _lhsIallSynmap _lhsIallVisitKinds _lhsIallchildvisit _lhsIallintramap _lhsIavisitdefs _lhsIavisituses _lhsIchildTypes _lhsIchildintros _lhsIcon _lhsIinhmap _lhsImrules _lhsInextVisits _lhsInt _lhsIoptions _lhsIparams _lhsIprevVisits _lhsIruledefs _lhsIruleuses _lhsIsynmap _lhsIterminaldefs- in (Syn_Visits _lhsOallvisits _lhsOchildvisit _lhsOerrors _lhsOfromToStates _lhsOintramap _lhsOlazyIntras _lhsOruleKinds _lhsOruleUsage _lhsOsem_visit _lhsOt_visits _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses))-sem_Visits_Cons :: T_Visit ->- T_Visits ->- T_Visits-sem_Visits_Cons (T_Visit hd_) (T_Visits tl_) =- (T_Visits (\ _lhsIallFromToStates- _lhsIallInhmap- _lhsIallInitStates- _lhsIallSynmap- _lhsIallVisitKinds- _lhsIallchildvisit- _lhsIallintramap- _lhsIavisitdefs- _lhsIavisituses- _lhsIchildTypes- _lhsIchildintros- _lhsIcon- _lhsIinhmap- _lhsImrules- _lhsInextVisits- _lhsInt- _lhsIoptions- _lhsIparams- _lhsIprevVisits- _lhsIruledefs- _lhsIruleuses- _lhsIsynmap- _lhsIterminaldefs ->- (let _lhsOallvisits :: ([VisitStateState])- _lhsOchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _lhsOerrors :: (Seq Error)- _lhsOfromToStates :: (Map VisitIdentifier (Int,Int))- _lhsOintramap :: (Map StateIdentifier (Map String (Maybe NonLocalAttr)))- _lhsOlazyIntras :: (Set String)- _lhsOruleKinds :: (Map Identifier (Set VisitKind))- _lhsOruleUsage :: (Map Identifier Int)- _lhsOsem_visit :: ( [(StateIdentifier,Bool -> PP_Doc)] )- _lhsOt_visits :: PP_Doc- _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)- _lhsOvisitdefs :: (Map VisitIdentifier (Set Identifier))- _lhsOvisituses :: (Map VisitIdentifier (Set Identifier))- _hdOallFromToStates :: (Map VisitIdentifier (Int,Int))- _hdOallInhmap :: (Map NontermIdent Attributes)- _hdOallInitStates :: (Map NontermIdent Int)- _hdOallSynmap :: (Map NontermIdent Attributes)- _hdOallVisitKinds :: (Map VisitIdentifier VisitKind)- _hdOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _hdOallintramap :: (Map StateIdentifier (Map String (Maybe NonLocalAttr)))- _hdOavisitdefs :: (Map VisitIdentifier (Set Identifier))- _hdOavisituses :: (Map VisitIdentifier (Set Identifier))- _hdOchildTypes :: (Map Identifier Type)- _hdOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))- _hdOcon :: ConstructorIdent- _hdOinhmap :: Attributes- _hdOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))- _hdOnextVisits :: (Map StateIdentifier StateCtx)- _hdOnt :: NontermIdent- _hdOoptions :: Options- _hdOparams :: ([Identifier])- _hdOprevVisits :: (Map StateIdentifier StateCtx)- _hdOruledefs :: (Map Identifier (Set String))- _hdOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))- _hdOsynmap :: Attributes- _hdOterminaldefs :: (Set String)- _tlOallFromToStates :: (Map VisitIdentifier (Int,Int))- _tlOallInhmap :: (Map NontermIdent Attributes)- _tlOallInitStates :: (Map NontermIdent Int)- _tlOallSynmap :: (Map NontermIdent Attributes)- _tlOallVisitKinds :: (Map VisitIdentifier VisitKind)- _tlOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _tlOallintramap :: (Map StateIdentifier (Map String (Maybe NonLocalAttr)))- _tlOavisitdefs :: (Map VisitIdentifier (Set Identifier))- _tlOavisituses :: (Map VisitIdentifier (Set Identifier))- _tlOchildTypes :: (Map Identifier Type)- _tlOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))- _tlOcon :: ConstructorIdent- _tlOinhmap :: Attributes- _tlOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))- _tlOnextVisits :: (Map StateIdentifier StateCtx)- _tlOnt :: NontermIdent- _tlOoptions :: Options- _tlOparams :: ([Identifier])- _tlOprevVisits :: (Map StateIdentifier StateCtx)- _tlOruledefs :: (Map Identifier (Set String))- _tlOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))- _tlOsynmap :: Attributes- _tlOterminaldefs :: (Set String)- _hdIallvisits :: ( VisitStateState )- _hdIchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _hdIerrors :: (Seq Error)- _hdIfromToStates :: (Map VisitIdentifier (Int,Int))- _hdIintramap :: (Map StateIdentifier (Map String (Maybe NonLocalAttr)))- _hdIlazyIntras :: (Set String)- _hdIruleKinds :: (Map Identifier (Set VisitKind))- _hdIruleUsage :: (Map Identifier Int)- _hdIsem_visit :: ( (StateIdentifier,Bool -> PP_Doc) )- _hdIt_visits :: PP_Doc- _hdIvisitKinds :: (Map VisitIdentifier VisitKind)- _hdIvisitdefs :: (Map VisitIdentifier (Set Identifier))- _hdIvisituses :: (Map VisitIdentifier (Set Identifier))- _tlIallvisits :: ([VisitStateState])- _tlIchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _tlIerrors :: (Seq Error)- _tlIfromToStates :: (Map VisitIdentifier (Int,Int))- _tlIintramap :: (Map StateIdentifier (Map String (Maybe NonLocalAttr)))- _tlIlazyIntras :: (Set String)- _tlIruleKinds :: (Map Identifier (Set VisitKind))- _tlIruleUsage :: (Map Identifier Int)- _tlIsem_visit :: ( [(StateIdentifier,Bool -> PP_Doc)] )- _tlIt_visits :: PP_Doc- _tlIvisitKinds :: (Map VisitIdentifier VisitKind)- _tlIvisitdefs :: (Map VisitIdentifier (Set Identifier))- _tlIvisituses :: (Map VisitIdentifier (Set Identifier))- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 336, column 29)- _lhsOallvisits =- ({-# LINE 336 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIallvisits : _tlIallvisits- {-# LINE 9124 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1187, column 37)- _lhsOchildvisit =- ({-# LINE 1187 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIchildvisit `Map.union` _tlIchildvisit- {-# LINE 9130 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)- _lhsOerrors =- ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 9136 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1544, column 22)- _lhsOfromToStates =- ({-# LINE 1544 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIfromToStates `mappend` _tlIfromToStates- {-# LINE 9142 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1281, column 34)- _lhsOintramap =- ({-# LINE 1281 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIintramap `uwMapUnion` _tlIintramap- {-# LINE 9148 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1355, column 57)- _lhsOlazyIntras =- ({-# LINE 1355 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIlazyIntras `Set.union` _tlIlazyIntras- {-# LINE 9154 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1255, column 56)- _lhsOruleKinds =- ({-# LINE 1255 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIruleKinds `unionWithMappend` _tlIruleKinds- {-# LINE 9160 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1243, column 56)- _lhsOruleUsage =- ({-# LINE 1243 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIruleUsage `unionWithSum` _tlIruleUsage- {-# LINE 9166 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 706, column 29)- _lhsOsem_visit =- ({-# LINE 706 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIsem_visit : _tlIsem_visit- {-# LINE 9172 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 394, column 59)- _lhsOt_visits =- ({-# LINE 394 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIt_visits >-< _tlIt_visits- {-# LINE 9178 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)- _lhsOvisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIvisitKinds `mappend` _tlIvisitKinds- {-# LINE 9184 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1322, column 36)- _lhsOvisitdefs =- ({-# LINE 1322 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIvisitdefs `uwSetUnion` _tlIvisitdefs- {-# LINE 9190 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1323, column 36)- _lhsOvisituses =- ({-# LINE 1323 "src-ag/ExecutionPlan2Hs.ag" #-}- _hdIvisituses `uwSetUnion` _tlIvisituses- {-# LINE 9196 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallFromToStates =- ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallFromToStates- {-# LINE 9202 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallInhmap =- ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInhmap- {-# LINE 9208 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallInitStates =- ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInitStates- {-# LINE 9214 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallSynmap =- ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallSynmap- {-# LINE 9220 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallVisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallVisitKinds- {-# LINE 9226 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallchildvisit =- ({-# LINE 1186 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallchildvisit- {-# LINE 9232 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOallintramap =- ({-# LINE 1280 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallintramap- {-# LINE 9238 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOavisitdefs =- ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisitdefs- {-# LINE 9244 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOavisituses =- ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisituses- {-# LINE 9250 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOchildTypes =- ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIchildTypes- {-# LINE 9256 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOchildintros =- ({-# LINE 893 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIchildintros- {-# LINE 9262 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOcon =- ({-# LINE 66 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIcon- {-# LINE 9268 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOinhmap =- ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinhmap- {-# LINE 9274 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOmrules =- ({-# LINE 776 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImrules- {-# LINE 9280 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOnextVisits =- ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsInextVisits- {-# LINE 9286 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOnt =- ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsInt- {-# LINE 9292 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 9298 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOparams =- ({-# LINE 73 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIparams- {-# LINE 9304 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOprevVisits =- ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIprevVisits- {-# LINE 9310 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOruledefs =- ({-# LINE 1307 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIruledefs- {-# LINE 9316 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOruleuses =- ({-# LINE 1308 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIruleuses- {-# LINE 9322 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOsynmap =- ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIsynmap- {-# LINE 9328 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _hdOterminaldefs =- ({-# LINE 1283 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIterminaldefs- {-# LINE 9334 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallFromToStates =- ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallFromToStates- {-# LINE 9340 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallInhmap =- ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInhmap- {-# LINE 9346 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallInitStates =- ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallInitStates- {-# LINE 9352 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallSynmap =- ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallSynmap- {-# LINE 9358 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallVisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallVisitKinds- {-# LINE 9364 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallchildvisit =- ({-# LINE 1186 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallchildvisit- {-# LINE 9370 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOallintramap =- ({-# LINE 1280 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIallintramap- {-# LINE 9376 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOavisitdefs =- ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisitdefs- {-# LINE 9382 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOavisituses =- ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIavisituses- {-# LINE 9388 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOchildTypes =- ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIchildTypes- {-# LINE 9394 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOchildintros =- ({-# LINE 893 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIchildintros- {-# LINE 9400 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOcon =- ({-# LINE 66 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIcon- {-# LINE 9406 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOinhmap =- ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIinhmap- {-# LINE 9412 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOmrules =- ({-# LINE 776 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsImrules- {-# LINE 9418 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOnextVisits =- ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsInextVisits- {-# LINE 9424 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOnt =- ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsInt- {-# LINE 9430 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIoptions- {-# LINE 9436 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOparams =- ({-# LINE 73 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIparams- {-# LINE 9442 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOprevVisits =- ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIprevVisits- {-# LINE 9448 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOruledefs =- ({-# LINE 1307 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIruledefs- {-# LINE 9454 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOruleuses =- ({-# LINE 1308 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIruleuses- {-# LINE 9460 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOsynmap =- ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIsynmap- {-# LINE 9466 "dist/build/ExecutionPlan2Hs" #-}- )- -- copy rule (down)- _tlOterminaldefs =- ({-# LINE 1283 "src-ag/ExecutionPlan2Hs.ag" #-}- _lhsIterminaldefs- {-# LINE 9472 "dist/build/ExecutionPlan2Hs" #-}- )- ( _hdIallvisits,_hdIchildvisit,_hdIerrors,_hdIfromToStates,_hdIintramap,_hdIlazyIntras,_hdIruleKinds,_hdIruleUsage,_hdIsem_visit,_hdIt_visits,_hdIvisitKinds,_hdIvisitdefs,_hdIvisituses) =- hd_ _hdOallFromToStates _hdOallInhmap _hdOallInitStates _hdOallSynmap _hdOallVisitKinds _hdOallchildvisit _hdOallintramap _hdOavisitdefs _hdOavisituses _hdOchildTypes _hdOchildintros _hdOcon _hdOinhmap _hdOmrules _hdOnextVisits _hdOnt _hdOoptions _hdOparams _hdOprevVisits _hdOruledefs _hdOruleuses _hdOsynmap _hdOterminaldefs- ( _tlIallvisits,_tlIchildvisit,_tlIerrors,_tlIfromToStates,_tlIintramap,_tlIlazyIntras,_tlIruleKinds,_tlIruleUsage,_tlIsem_visit,_tlIt_visits,_tlIvisitKinds,_tlIvisitdefs,_tlIvisituses) =- tl_ _tlOallFromToStates _tlOallInhmap _tlOallInitStates _tlOallSynmap _tlOallVisitKinds _tlOallchildvisit _tlOallintramap _tlOavisitdefs _tlOavisituses _tlOchildTypes _tlOchildintros _tlOcon _tlOinhmap _tlOmrules _tlOnextVisits _tlOnt _tlOoptions _tlOparams _tlOprevVisits _tlOruledefs _tlOruleuses _tlOsynmap _tlOterminaldefs- in ( _lhsOallvisits,_lhsOchildvisit,_lhsOerrors,_lhsOfromToStates,_lhsOintramap,_lhsOlazyIntras,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_visit,_lhsOt_visits,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses))))-sem_Visits_Nil :: T_Visits-sem_Visits_Nil =- (T_Visits (\ _lhsIallFromToStates- _lhsIallInhmap- _lhsIallInitStates- _lhsIallSynmap- _lhsIallVisitKinds- _lhsIallchildvisit- _lhsIallintramap- _lhsIavisitdefs- _lhsIavisituses- _lhsIchildTypes- _lhsIchildintros- _lhsIcon- _lhsIinhmap- _lhsImrules- _lhsInextVisits- _lhsInt- _lhsIoptions- _lhsIparams- _lhsIprevVisits- _lhsIruledefs- _lhsIruleuses- _lhsIsynmap- _lhsIterminaldefs ->- (let _lhsOallvisits :: ([VisitStateState])- _lhsOchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))- _lhsOerrors :: (Seq Error)- _lhsOfromToStates :: (Map VisitIdentifier (Int,Int))- _lhsOintramap :: (Map StateIdentifier (Map String (Maybe NonLocalAttr)))- _lhsOlazyIntras :: (Set String)- _lhsOruleKinds :: (Map Identifier (Set VisitKind))- _lhsOruleUsage :: (Map Identifier Int)- _lhsOsem_visit :: ( [(StateIdentifier,Bool -> PP_Doc)] )- _lhsOt_visits :: PP_Doc- _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)- _lhsOvisitdefs :: (Map VisitIdentifier (Set Identifier))- _lhsOvisituses :: (Map VisitIdentifier (Set Identifier))- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 336, column 29)- _lhsOallvisits =- ({-# LINE 336 "src-ag/ExecutionPlan2Hs.ag" #-}- []- {-# LINE 9521 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1187, column 37)- _lhsOchildvisit =- ({-# LINE 1187 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 9527 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)- _lhsOerrors =- ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}- Seq.empty- {-# LINE 9533 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1544, column 22)- _lhsOfromToStates =- ({-# LINE 1544 "src-ag/ExecutionPlan2Hs.ag" #-}- mempty- {-# LINE 9539 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1281, column 34)- _lhsOintramap =- ({-# LINE 1281 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 9545 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1355, column 57)- _lhsOlazyIntras =- ({-# LINE 1355 "src-ag/ExecutionPlan2Hs.ag" #-}- Set.empty- {-# LINE 9551 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1255, column 56)- _lhsOruleKinds =- ({-# LINE 1255 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 9557 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1243, column 56)- _lhsOruleUsage =- ({-# LINE 1243 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 9563 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 706, column 29)- _lhsOsem_visit =- ({-# LINE 706 "src-ag/ExecutionPlan2Hs.ag" #-}- []- {-# LINE 9569 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 394, column 59)- _lhsOt_visits =- ({-# LINE 394 "src-ag/ExecutionPlan2Hs.ag" #-}- empty- {-# LINE 9575 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)- _lhsOvisitKinds =- ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}- mempty- {-# LINE 9581 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1322, column 36)- _lhsOvisitdefs =- ({-# LINE 1322 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 9587 "dist/build/ExecutionPlan2Hs" #-}- )- -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1323, column 36)- _lhsOvisituses =- ({-# LINE 1323 "src-ag/ExecutionPlan2Hs.ag" #-}- Map.empty- {-# LINE 9593 "dist/build/ExecutionPlan2Hs" #-}- )+ ___node =+ (Syn_EChild _lhsOargnamesw _lhsOargpats _lhsOargtps _lhsOchildTypes _lhsOchildintros _lhsOdatatype _lhsOterminaldefs)+ in ( _lhsOargnamesw,_lhsOargpats,_lhsOargtps,_lhsOchildTypes,_lhsOchildintros,_lhsOdatatype,_lhsOterminaldefs))))+sem_EChild_ETerm :: Identifier ->+ Type ->+ T_EChild+sem_EChild_ETerm name_ tp_ =+ (T_EChild (\ _lhsIallInitStates+ _lhsIcon+ _lhsIimportBlocks+ _lhsImainFile+ _lhsImainName+ _lhsImoduleHeader+ _lhsInt+ _lhsIoptions+ _lhsIpragmaBlocks+ _lhsItextBlocks ->+ (let _lhsOdatatype :: PP_Doc+ _lhsOargnamesw :: ( PP_Doc )+ _lhsOargtps :: ( PP_Doc )+ _lhsOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))+ _lhsOterminaldefs :: (Set String)+ _lhsOchildTypes :: (Map Identifier Type)+ _lhsOargpats :: ( PP_Doc )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 204, column 7)+ _tpDoc =+ ({-# LINE 204 "src-ag/ExecutionPlan2Hs.ag" #-}+ _addStrict $ pp_parens $ ppTp $ removeDeforested tp_+ {-# LINE 630 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 205, column 7)+ _strNm =+ ({-# LINE 205 "src-ag/ExecutionPlan2Hs.ag" #-}+ recordFieldname _lhsInt _lhsIcon name_+ {-# LINE 636 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 206, column 7)+ _field =+ ({-# LINE 206 "src-ag/ExecutionPlan2Hs.ag" #-}+ if dataRecords _lhsIoptions+ then _strNm >#< "::" >#< _tpDoc+ else _tpDoc+ {-# LINE 644 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 209, column 7)+ _addStrict =+ ({-# LINE 209 "src-ag/ExecutionPlan2Hs.ag" #-}+ \x -> if strictData _lhsIoptions then "!" >|< x else x+ {-# LINE 650 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 214, column 13)+ _lhsOdatatype =+ ({-# LINE 214 "src-ag/ExecutionPlan2Hs.ag" #-}+ _field+ {-# LINE 656 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 305, column 12)+ _lhsOargnamesw =+ ({-# LINE 305 "src-ag/ExecutionPlan2Hs.ag" #-}+ text $ fieldname name_+ {-# LINE 662 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 576, column 12)+ _lhsOargtps =+ ({-# LINE 576 "src-ag/ExecutionPlan2Hs.ag" #-}+ (pp_parens $ show tp_) >#< "->"+ {-# LINE 668 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 577, column 12)+ _argpats =+ ({-# LINE 577 "src-ag/ExecutionPlan2Hs.ag" #-}+ _addbang $ text $ fieldname name_+ {-# LINE 674 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 899, column 12)+ _lhsOchildintros =+ ({-# LINE 899 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.singleton name_ (\_ _ -> Right (empty, Set.empty, Map.empty))+ {-# LINE 680 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1287, column 3)+ _lhsOterminaldefs =+ ({-# LINE 1287 "src-ag/ExecutionPlan2Hs.ag" #-}+ Set.singleton $ fieldname name_+ {-# LINE 686 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1519, column 37)+ _addbang =+ ({-# LINE 1519 "src-ag/ExecutionPlan2Hs.ag" #-}+ \x -> if bangpats _lhsIoptions then "!" >|< x else x+ {-# LINE 692 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1570, column 3)+ _lhsOchildTypes =+ ({-# LINE 1570 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.singleton name_ tp_+ {-# LINE 698 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (from local)+ _lhsOargpats =+ ({-# LINE 563 "src-ag/ExecutionPlan2Hs.ag" #-}+ _argpats+ {-# LINE 704 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_EChild _lhsOargnamesw _lhsOargpats _lhsOargtps _lhsOchildTypes _lhsOchildintros _lhsOdatatype _lhsOterminaldefs)+ in ( _lhsOargnamesw,_lhsOargpats,_lhsOargtps,_lhsOchildTypes,_lhsOchildintros,_lhsOdatatype,_lhsOterminaldefs))))+-- EChildren ---------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allInitStates : Map NontermIdent Int+ con : ConstructorIdent+ importBlocks : PP_Doc+ mainFile : String+ mainName : String+ moduleHeader : String -> String -> String -> Bool -> String+ nt : NontermIdent+ options : Options+ pragmaBlocks : String+ textBlocks : PP_Doc+ synthesized attributes:+ argnamesw : [PP_Doc]+ argpats : [PP_Doc] + argtps : [PP_Doc] + childTypes : Map Identifier Type+ childintros : Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))+ datatype : [PP_Doc]+ terminaldefs : Set String+ alternatives:+ alternative Cons:+ child hd : EChild + child tl : EChildren + alternative Nil:+-}+-- cata+sem_EChildren :: EChildren ->+ T_EChildren+sem_EChildren list =+ (Prelude.foldr sem_EChildren_Cons sem_EChildren_Nil (Prelude.map sem_EChild list))+-- semantic domain+newtype T_EChildren = T_EChildren ((Map NontermIdent Int) ->+ ConstructorIdent ->+ PP_Doc ->+ String ->+ String ->+ (String -> String -> String -> Bool -> String) ->+ NontermIdent ->+ Options ->+ String ->+ PP_Doc ->+ ( ([PP_Doc]),( [PP_Doc] ),( [PP_Doc] ),(Map Identifier Type),(Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))),([PP_Doc]),(Set String)))+data Inh_EChildren = Inh_EChildren {allInitStates_Inh_EChildren :: (Map NontermIdent Int),con_Inh_EChildren :: ConstructorIdent,importBlocks_Inh_EChildren :: PP_Doc,mainFile_Inh_EChildren :: String,mainName_Inh_EChildren :: String,moduleHeader_Inh_EChildren :: (String -> String -> String -> Bool -> String),nt_Inh_EChildren :: NontermIdent,options_Inh_EChildren :: Options,pragmaBlocks_Inh_EChildren :: String,textBlocks_Inh_EChildren :: PP_Doc}+data Syn_EChildren = Syn_EChildren {argnamesw_Syn_EChildren :: ([PP_Doc]),argpats_Syn_EChildren :: ( [PP_Doc] ),argtps_Syn_EChildren :: ( [PP_Doc] ),childTypes_Syn_EChildren :: (Map Identifier Type),childintros_Syn_EChildren :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))),datatype_Syn_EChildren :: ([PP_Doc]),terminaldefs_Syn_EChildren :: (Set String)}+wrap_EChildren :: T_EChildren ->+ Inh_EChildren ->+ Syn_EChildren+wrap_EChildren (T_EChildren sem) (Inh_EChildren _lhsIallInitStates _lhsIcon _lhsIimportBlocks _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInt _lhsIoptions _lhsIpragmaBlocks _lhsItextBlocks) =+ (let ( _lhsOargnamesw,_lhsOargpats,_lhsOargtps,_lhsOchildTypes,_lhsOchildintros,_lhsOdatatype,_lhsOterminaldefs) = sem _lhsIallInitStates _lhsIcon _lhsIimportBlocks _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInt _lhsIoptions _lhsIpragmaBlocks _lhsItextBlocks+ in (Syn_EChildren _lhsOargnamesw _lhsOargpats _lhsOargtps _lhsOchildTypes _lhsOchildintros _lhsOdatatype _lhsOterminaldefs))+sem_EChildren_Cons :: T_EChild ->+ T_EChildren ->+ T_EChildren+sem_EChildren_Cons (T_EChild hd_) (T_EChildren tl_) =+ (T_EChildren (\ _lhsIallInitStates+ _lhsIcon+ _lhsIimportBlocks+ _lhsImainFile+ _lhsImainName+ _lhsImoduleHeader+ _lhsInt+ _lhsIoptions+ _lhsIpragmaBlocks+ _lhsItextBlocks ->+ (let _lhsOargnamesw :: ([PP_Doc])+ _lhsOargpats :: ( [PP_Doc] )+ _lhsOargtps :: ( [PP_Doc] )+ _lhsOchildTypes :: (Map Identifier Type)+ _lhsOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))+ _lhsOdatatype :: ([PP_Doc])+ _lhsOterminaldefs :: (Set String)+ _hdOallInitStates :: (Map NontermIdent Int)+ _hdOcon :: ConstructorIdent+ _hdOimportBlocks :: PP_Doc+ _hdOmainFile :: String+ _hdOmainName :: String+ _hdOmoduleHeader :: (String -> String -> String -> Bool -> String)+ _hdOnt :: NontermIdent+ _hdOoptions :: Options+ _hdOpragmaBlocks :: String+ _hdOtextBlocks :: PP_Doc+ _tlOallInitStates :: (Map NontermIdent Int)+ _tlOcon :: ConstructorIdent+ _tlOimportBlocks :: PP_Doc+ _tlOmainFile :: String+ _tlOmainName :: String+ _tlOmoduleHeader :: (String -> String -> String -> Bool -> String)+ _tlOnt :: NontermIdent+ _tlOoptions :: Options+ _tlOpragmaBlocks :: String+ _tlOtextBlocks :: PP_Doc+ _hdIargnamesw :: ( PP_Doc )+ _hdIargpats :: ( PP_Doc )+ _hdIargtps :: ( PP_Doc )+ _hdIchildTypes :: (Map Identifier Type)+ _hdIchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))+ _hdIdatatype :: PP_Doc+ _hdIterminaldefs :: (Set String)+ _tlIargnamesw :: ([PP_Doc])+ _tlIargpats :: ( [PP_Doc] )+ _tlIargtps :: ( [PP_Doc] )+ _tlIchildTypes :: (Map Identifier Type)+ _tlIchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))+ _tlIdatatype :: ([PP_Doc])+ _tlIterminaldefs :: (Set String)+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 298, column 32)+ _lhsOargnamesw =+ ({-# LINE 298 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIargnamesw : _tlIargnamesw+ {-# LINE 821 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 565, column 30)+ _lhsOargpats =+ ({-# LINE 565 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIargpats : _tlIargpats+ {-# LINE 827 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 564, column 30)+ _lhsOargtps =+ ({-# LINE 564 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIargtps : _tlIargtps+ {-# LINE 833 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1563, column 40)+ _lhsOchildTypes =+ ({-# LINE 1563 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIchildTypes `mappend` _tlIchildTypes+ {-# LINE 839 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 890, column 41)+ _lhsOchildintros =+ ({-# LINE 890 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIchildintros `Map.union` _tlIchildintros+ {-# LINE 845 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 199, column 31)+ _lhsOdatatype =+ ({-# LINE 199 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIdatatype : _tlIdatatype+ {-# LINE 851 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1284, column 42)+ _lhsOterminaldefs =+ ({-# LINE 1284 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIterminaldefs `Set.union` _tlIterminaldefs+ {-# LINE 857 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallInitStates =+ ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInitStates+ {-# LINE 863 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOcon =+ ({-# LINE 66 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIcon+ {-# LINE 869 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOimportBlocks =+ ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIimportBlocks+ {-# LINE 875 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOmainFile =+ ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainFile+ {-# LINE 881 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOmainName =+ ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainName+ {-# LINE 887 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOmoduleHeader =+ ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImoduleHeader+ {-# LINE 893 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOnt =+ ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsInt+ {-# LINE 899 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 905 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOpragmaBlocks =+ ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIpragmaBlocks+ {-# LINE 911 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOtextBlocks =+ ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsItextBlocks+ {-# LINE 917 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallInitStates =+ ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInitStates+ {-# LINE 923 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOcon =+ ({-# LINE 66 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIcon+ {-# LINE 929 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOimportBlocks =+ ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIimportBlocks+ {-# LINE 935 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOmainFile =+ ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainFile+ {-# LINE 941 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOmainName =+ ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainName+ {-# LINE 947 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOmoduleHeader =+ ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImoduleHeader+ {-# LINE 953 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOnt =+ ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsInt+ {-# LINE 959 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 965 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOpragmaBlocks =+ ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIpragmaBlocks+ {-# LINE 971 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOtextBlocks =+ ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsItextBlocks+ {-# LINE 977 "dist/build/ExecutionPlan2Hs" #-}+ )+ ( _hdIargnamesw,_hdIargpats,_hdIargtps,_hdIchildTypes,_hdIchildintros,_hdIdatatype,_hdIterminaldefs) =+ hd_ _hdOallInitStates _hdOcon _hdOimportBlocks _hdOmainFile _hdOmainName _hdOmoduleHeader _hdOnt _hdOoptions _hdOpragmaBlocks _hdOtextBlocks+ ( _tlIargnamesw,_tlIargpats,_tlIargtps,_tlIchildTypes,_tlIchildintros,_tlIdatatype,_tlIterminaldefs) =+ tl_ _tlOallInitStates _tlOcon _tlOimportBlocks _tlOmainFile _tlOmainName _tlOmoduleHeader _tlOnt _tlOoptions _tlOpragmaBlocks _tlOtextBlocks+ ___node =+ (Syn_EChildren _lhsOargnamesw _lhsOargpats _lhsOargtps _lhsOchildTypes _lhsOchildintros _lhsOdatatype _lhsOterminaldefs)+ in ( _lhsOargnamesw,_lhsOargpats,_lhsOargtps,_lhsOchildTypes,_lhsOchildintros,_lhsOdatatype,_lhsOterminaldefs))))+sem_EChildren_Nil :: T_EChildren+sem_EChildren_Nil =+ (T_EChildren (\ _lhsIallInitStates+ _lhsIcon+ _lhsIimportBlocks+ _lhsImainFile+ _lhsImainName+ _lhsImoduleHeader+ _lhsInt+ _lhsIoptions+ _lhsIpragmaBlocks+ _lhsItextBlocks ->+ (let _lhsOargnamesw :: ([PP_Doc])+ _lhsOargpats :: ( [PP_Doc] )+ _lhsOargtps :: ( [PP_Doc] )+ _lhsOchildTypes :: (Map Identifier Type)+ _lhsOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))+ _lhsOdatatype :: ([PP_Doc])+ _lhsOterminaldefs :: (Set String)+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 298, column 32)+ _lhsOargnamesw =+ ({-# LINE 298 "src-ag/ExecutionPlan2Hs.ag" #-}+ []+ {-# LINE 1009 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 565, column 30)+ _lhsOargpats =+ ({-# LINE 565 "src-ag/ExecutionPlan2Hs.ag" #-}+ []+ {-# LINE 1015 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 564, column 30)+ _lhsOargtps =+ ({-# LINE 564 "src-ag/ExecutionPlan2Hs.ag" #-}+ []+ {-# LINE 1021 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1563, column 40)+ _lhsOchildTypes =+ ({-# LINE 1563 "src-ag/ExecutionPlan2Hs.ag" #-}+ mempty+ {-# LINE 1027 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 890, column 41)+ _lhsOchildintros =+ ({-# LINE 890 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 1033 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 199, column 31)+ _lhsOdatatype =+ ({-# LINE 199 "src-ag/ExecutionPlan2Hs.ag" #-}+ []+ {-# LINE 1039 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1284, column 42)+ _lhsOterminaldefs =+ ({-# LINE 1284 "src-ag/ExecutionPlan2Hs.ag" #-}+ Set.empty+ {-# LINE 1045 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_EChildren _lhsOargnamesw _lhsOargpats _lhsOargtps _lhsOchildTypes _lhsOchildintros _lhsOdatatype _lhsOterminaldefs)+ in ( _lhsOargnamesw,_lhsOargpats,_lhsOargtps,_lhsOchildTypes,_lhsOchildintros,_lhsOdatatype,_lhsOterminaldefs))))+-- ENonterminal ------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allFromToStates : Map VisitIdentifier (Int,Int)+ allInitStates : Map NontermIdent Int+ allVisitKinds : Map VisitIdentifier VisitKind+ allchildvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))+ avisitdefs : Map VisitIdentifier (Set Identifier)+ avisituses : Map VisitIdentifier (Set Identifier)+ derivings : Derivings+ importBlocks : PP_Doc+ inhmap : Map NontermIdent Attributes+ localAttrTypes : Map NontermIdent (Map ConstructorIdent (Map Identifier Type))+ mainFile : String+ mainName : String+ moduleHeader : String -> String -> String -> Bool -> String+ options : Options+ pragmaBlocks : String+ synmap : Map NontermIdent Attributes+ textBlocks : PP_Doc+ typeSyns : TypeSyns+ wrappers : Set NontermIdent+ synthesized attributes:+ appendCommon : PP_Doc + appendMain : PP_Doc + childvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))+ errors : Seq Error+ fromToStates : Map VisitIdentifier (Int,Int)+ genProdIO : IO ()+ imports : [PP_Doc]+ initStates : Map NontermIdent Int+ output : PP_Doc+ semFunBndDefs : Seq PP_Doc+ semFunBndTps : Seq PP_Doc+ visitKinds : Map VisitIdentifier VisitKind+ visitdefs : Map VisitIdentifier (Set Identifier)+ visituses : Map VisitIdentifier (Set Identifier)+ alternatives:+ alternative ENonterminal:+ child nt : {NontermIdent}+ child params : {[Identifier]}+ child classCtxs : {ClassContext}+ child initial : {StateIdentifier}+ child initialv : {Maybe VisitIdentifier}+ child nextVisits : {Map StateIdentifier StateCtx}+ child prevVisits : {Map StateIdentifier StateCtx}+ child prods : EProductions + child recursive : {Bool}+ child hoInfo : {HigherOrderInfo}+ visit 0:+ local hasWrapper : _+ local classPP : _+ local aliasPre : _+ local datatype : _+ local derivings : _+ local fsemname : _+ local semname : _+ local frecarg : _+ local sem_tp : _+ local quantPP : _+ local sem_nt : _+ local inlineNt : _+ local semPragma : _+ local outedges : _+ local inedges : _+ local allstates : _+ local stvisits : _+ local t_type : _+ local t_params : _+ local t_init : _+ local t_states : _+ local k_type : _+ local k_states : _+ local wr_inh : _+ local wr_syn : _+ local genwrap : _+ local synAttrs : _+ local wr_inhs : _+ local wr_inhs1 : _+ local wr_filter : _+ local wr_syns : _+ local inhlist : _+ local inhlist1 : _+ local synlist : _+ local wrapname : _+ local inhname : _+ local synname : _+ local firstVisitInfo : _+ local wrapper : _+ local wrapPragma : _+ local semFunBndDef : _+ local semFunBndTp : _+ local semFunBndNm : _+ local addbang : _+ local addbangWrap : _+ local ntType : _+-}+-- cata+sem_ENonterminal :: ENonterminal ->+ T_ENonterminal+sem_ENonterminal (ENonterminal _nt _params _classCtxs _initial _initialv _nextVisits _prevVisits _prods _recursive _hoInfo) =+ (sem_ENonterminal_ENonterminal _nt _params _classCtxs _initial _initialv _nextVisits _prevVisits (sem_EProductions _prods) _recursive _hoInfo)+-- semantic domain+newtype T_ENonterminal = T_ENonterminal ((Map VisitIdentifier (Int,Int)) ->+ (Map NontermIdent Int) ->+ (Map VisitIdentifier VisitKind) ->+ (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))) ->+ (Map VisitIdentifier (Set Identifier)) ->+ (Map VisitIdentifier (Set Identifier)) ->+ Derivings ->+ PP_Doc ->+ (Map NontermIdent Attributes) ->+ (Map NontermIdent (Map ConstructorIdent (Map Identifier Type))) ->+ String ->+ String ->+ (String -> String -> String -> Bool -> String) ->+ Options ->+ String ->+ (Map NontermIdent Attributes) ->+ PP_Doc ->+ TypeSyns ->+ (Set NontermIdent) ->+ ( ( PP_Doc ),( PP_Doc ),(Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),(Seq Error),(Map VisitIdentifier (Int,Int)),(IO ()),([PP_Doc]),(Map NontermIdent Int),PP_Doc,(Seq PP_Doc),(Seq PP_Doc),(Map VisitIdentifier VisitKind),(Map VisitIdentifier (Set Identifier)),(Map VisitIdentifier (Set Identifier))))+data Inh_ENonterminal = Inh_ENonterminal {allFromToStates_Inh_ENonterminal :: (Map VisitIdentifier (Int,Int)),allInitStates_Inh_ENonterminal :: (Map NontermIdent Int),allVisitKinds_Inh_ENonterminal :: (Map VisitIdentifier VisitKind),allchildvisit_Inh_ENonterminal :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),avisitdefs_Inh_ENonterminal :: (Map VisitIdentifier (Set Identifier)),avisituses_Inh_ENonterminal :: (Map VisitIdentifier (Set Identifier)),derivings_Inh_ENonterminal :: Derivings,importBlocks_Inh_ENonterminal :: PP_Doc,inhmap_Inh_ENonterminal :: (Map NontermIdent Attributes),localAttrTypes_Inh_ENonterminal :: (Map NontermIdent (Map ConstructorIdent (Map Identifier Type))),mainFile_Inh_ENonterminal :: String,mainName_Inh_ENonterminal :: String,moduleHeader_Inh_ENonterminal :: (String -> String -> String -> Bool -> String),options_Inh_ENonterminal :: Options,pragmaBlocks_Inh_ENonterminal :: String,synmap_Inh_ENonterminal :: (Map NontermIdent Attributes),textBlocks_Inh_ENonterminal :: PP_Doc,typeSyns_Inh_ENonterminal :: TypeSyns,wrappers_Inh_ENonterminal :: (Set NontermIdent)}+data Syn_ENonterminal = Syn_ENonterminal {appendCommon_Syn_ENonterminal :: ( PP_Doc ),appendMain_Syn_ENonterminal :: ( PP_Doc ),childvisit_Syn_ENonterminal :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),errors_Syn_ENonterminal :: (Seq Error),fromToStates_Syn_ENonterminal :: (Map VisitIdentifier (Int,Int)),genProdIO_Syn_ENonterminal :: (IO ()),imports_Syn_ENonterminal :: ([PP_Doc]),initStates_Syn_ENonterminal :: (Map NontermIdent Int),output_Syn_ENonterminal :: PP_Doc,semFunBndDefs_Syn_ENonterminal :: (Seq PP_Doc),semFunBndTps_Syn_ENonterminal :: (Seq PP_Doc),visitKinds_Syn_ENonterminal :: (Map VisitIdentifier VisitKind),visitdefs_Syn_ENonterminal :: (Map VisitIdentifier (Set Identifier)),visituses_Syn_ENonterminal :: (Map VisitIdentifier (Set Identifier))}+wrap_ENonterminal :: T_ENonterminal ->+ Inh_ENonterminal ->+ Syn_ENonterminal+wrap_ENonterminal (T_ENonterminal sem) (Inh_ENonterminal _lhsIallFromToStates _lhsIallInitStates _lhsIallVisitKinds _lhsIallchildvisit _lhsIavisitdefs _lhsIavisituses _lhsIderivings _lhsIimportBlocks _lhsIinhmap _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsIoptions _lhsIpragmaBlocks _lhsIsynmap _lhsItextBlocks _lhsItypeSyns _lhsIwrappers) =+ (let ( _lhsOappendCommon,_lhsOappendMain,_lhsOchildvisit,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOinitStates,_lhsOoutput,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses) = sem _lhsIallFromToStates _lhsIallInitStates _lhsIallVisitKinds _lhsIallchildvisit _lhsIavisitdefs _lhsIavisituses _lhsIderivings _lhsIimportBlocks _lhsIinhmap _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsIoptions _lhsIpragmaBlocks _lhsIsynmap _lhsItextBlocks _lhsItypeSyns _lhsIwrappers+ in (Syn_ENonterminal _lhsOappendCommon _lhsOappendMain _lhsOchildvisit _lhsOerrors _lhsOfromToStates _lhsOgenProdIO _lhsOimports _lhsOinitStates _lhsOoutput _lhsOsemFunBndDefs _lhsOsemFunBndTps _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses))+sem_ENonterminal_ENonterminal :: NontermIdent ->+ ([Identifier]) ->+ ClassContext ->+ StateIdentifier ->+ (Maybe VisitIdentifier) ->+ (Map StateIdentifier StateCtx) ->+ (Map StateIdentifier StateCtx) ->+ T_EProductions ->+ Bool ->+ HigherOrderInfo ->+ T_ENonterminal+sem_ENonterminal_ENonterminal nt_ params_ classCtxs_ initial_ initialv_ nextVisits_ prevVisits_ (T_EProductions prods_) recursive_ hoInfo_ =+ (T_ENonterminal (\ _lhsIallFromToStates+ _lhsIallInitStates+ _lhsIallVisitKinds+ _lhsIallchildvisit+ _lhsIavisitdefs+ _lhsIavisituses+ _lhsIderivings+ _lhsIimportBlocks+ _lhsIinhmap+ _lhsIlocalAttrTypes+ _lhsImainFile+ _lhsImainName+ _lhsImoduleHeader+ _lhsIoptions+ _lhsIpragmaBlocks+ _lhsIsynmap+ _lhsItextBlocks+ _lhsItypeSyns+ _lhsIwrappers ->+ (let _prodsOrename :: Bool+ _prodsOnt :: NontermIdent+ _prodsOparams :: ([Identifier])+ _prodsOclassCtxs :: ClassContext+ _lhsOoutput :: PP_Doc+ _prodsOinhmap :: Attributes+ _prodsOsynmap :: Attributes+ _prodsOallInhmap :: (Map NontermIdent Attributes)+ _prodsOallSynmap :: (Map NontermIdent Attributes)+ _lhsOsemFunBndDefs :: (Seq PP_Doc)+ _lhsOsemFunBndTps :: (Seq PP_Doc)+ _prodsOinitial :: StateIdentifier+ _prodsOallstates :: (Set StateIdentifier)+ _lhsOappendMain :: ( PP_Doc )+ _lhsOappendCommon :: ( PP_Doc )+ _prodsOnextVisits :: (Map StateIdentifier StateCtx)+ _prodsOprevVisits :: (Map StateIdentifier StateCtx)+ _prodsOlocalAttrTypes :: (Map ConstructorIdent (Map Identifier Type))+ _lhsOinitStates :: (Map NontermIdent Int)+ _lhsOchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _lhsOerrors :: (Seq Error)+ _lhsOfromToStates :: (Map VisitIdentifier (Int,Int))+ _lhsOgenProdIO :: (IO ())+ _lhsOimports :: ([PP_Doc])+ _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)+ _lhsOvisitdefs :: (Map VisitIdentifier (Set Identifier))+ _lhsOvisituses :: (Map VisitIdentifier (Set Identifier))+ _prodsOallFromToStates :: (Map VisitIdentifier (Int,Int))+ _prodsOallInitStates :: (Map NontermIdent Int)+ _prodsOallVisitKinds :: (Map VisitIdentifier VisitKind)+ _prodsOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _prodsOavisitdefs :: (Map VisitIdentifier (Set Identifier))+ _prodsOavisituses :: (Map VisitIdentifier (Set Identifier))+ _prodsOimportBlocks :: PP_Doc+ _prodsOmainFile :: String+ _prodsOmainName :: String+ _prodsOmoduleHeader :: (String -> String -> String -> Bool -> String)+ _prodsOntType :: Type+ _prodsOoptions :: Options+ _prodsOpragmaBlocks :: String+ _prodsOtextBlocks :: PP_Doc+ _prodsIallvisits :: ([VisitStateState])+ _prodsIchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _prodsIcount :: Int+ _prodsIdatatype :: ([PP_Doc])+ _prodsIerrors :: (Seq Error)+ _prodsIfromToStates :: (Map VisitIdentifier (Int,Int))+ _prodsIgenProdIO :: (IO ())+ _prodsIimports :: ([PP_Doc])+ _prodsIsemFunBndDefs :: (Seq PP_Doc)+ _prodsIsemFunBndTps :: (Seq PP_Doc)+ _prodsIsem_nt :: PP_Doc+ _prodsIsem_prod :: PP_Doc+ _prodsIt_visits :: PP_Doc+ _prodsIvisitKinds :: (Map VisitIdentifier VisitKind)+ _prodsIvisitdefs :: (Map VisitIdentifier (Set Identifier))+ _prodsIvisituses :: (Map VisitIdentifier (Set Identifier))+ -- "src-ag/ExecutionPlan2Hs.ag"(line 55, column 18)+ _prodsOrename =+ ({-# LINE 55 "src-ag/ExecutionPlan2Hs.ag" #-}+ rename _lhsIoptions+ {-# LINE 1274 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 63, column 18)+ _prodsOnt =+ ({-# LINE 63 "src-ag/ExecutionPlan2Hs.ag" #-}+ nt_+ {-# LINE 1280 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 75, column 3)+ _prodsOparams =+ ({-# LINE 75 "src-ag/ExecutionPlan2Hs.ag" #-}+ params_+ {-# LINE 1286 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 79, column 3)+ _prodsOclassCtxs =+ ({-# LINE 79 "src-ag/ExecutionPlan2Hs.ag" #-}+ classCtxs_+ {-# LINE 1292 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 96, column 18)+ _lhsOoutput =+ ({-# LINE 96 "src-ag/ExecutionPlan2Hs.ag" #-}+ ("-- " ++ getName nt_ ++ " " ++ replicate (60 - length (getName nt_)) '-')+ >-< (if dataTypes _lhsIoptions+ then "-- data"+ >-< _datatype+ >-< ""+ else empty)+ >-< (if _hasWrapper+ then "-- wrapper"+ >-< _wr_inh+ >-< _wr_syn+ >-< _wrapper+ >-< ""+ else empty)+ >-< (if folds _lhsIoptions+ then "-- cata"+ >-< _sem_nt+ >-< ""+ else empty)+ >-< (if semfuns _lhsIoptions+ then "-- semantic domain"+ >-< _t_init+ >-< _t_states+ >-< _k_states+ >-< _prodsIt_visits+ >-< _prodsIsem_prod+ >-< ""+ else empty)+ {-# LINE 1324 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 123, column 18)+ _hasWrapper =+ ({-# LINE 123 "src-ag/ExecutionPlan2Hs.ag" #-}+ nt_ `Set.member` _lhsIwrappers+ {-# LINE 1330 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 136, column 18)+ _classPP =+ ({-# LINE 136 "src-ag/ExecutionPlan2Hs.ag" #-}+ ppClasses $ classCtxsToDocs classCtxs_+ {-# LINE 1336 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 137, column 18)+ _aliasPre =+ ({-# LINE 137 "src-ag/ExecutionPlan2Hs.ag" #-}+ "type" >#< _classPP >#< nt_ >#< _t_params >#< "="+ {-# LINE 1342 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 138, column 18)+ _datatype =+ ({-# LINE 138 "src-ag/ExecutionPlan2Hs.ag" #-}+ case lookup nt_ _lhsItypeSyns of+ Nothing -> "data" >#< _classPP >#< nt_ >#< _t_params+ >-< ( if null _prodsIdatatype+ then empty+ else indent 2 $ vlist $ ( ("=" >#< head _prodsIdatatype)+ : (map ("|" >#<) $ tail _prodsIdatatype))+ )+ >-< indent 2 _derivings+ Just (List t) -> _aliasPre >#< "[" >#< show t >#< "]"+ Just (Maybe t) -> _aliasPre >#< "Maybe" >#< show t+ Just (Tuple ts) -> _aliasPre >#< pp_parens (ppCommas $ map (show . snd) ts)+ Just (Either l r) -> _aliasPre >#< "Either" >#< show l >#< show r+ Just (Map k v) -> _aliasPre >#< "Data.Map" >#< pp_parens (show k) >#< show v+ Just (IntMap t) -> _aliasPre >#< "Data.IntMap.IntMap" >#< show t+ Just (OrdSet t) -> _aliasPre >#< "Data.Set.Set" >#< show t+ Just IntSet -> _aliasPre >#< "Data.IntSet.IntSet"+ {-# LINE 1363 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 155, column 18)+ _derivings =+ ({-# LINE 155 "src-ag/ExecutionPlan2Hs.ag" #-}+ case Map.lookup nt_ _lhsIderivings of+ Nothing -> empty+ Just s -> if Set.null s+ then empty+ else "deriving" >#< (pp_parens $ ppCommas $ map pp $ Set.toList s)+ {-# LINE 1373 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 228, column 18)+ _fsemname =+ ({-# LINE 228 "src-ag/ExecutionPlan2Hs.ag" #-}+ \x -> "sem_" ++ show x+ {-# LINE 1379 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 229, column 18)+ _semname =+ ({-# LINE 229 "src-ag/ExecutionPlan2Hs.ag" #-}+ _fsemname nt_+ {-# LINE 1385 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 230, column 18)+ _frecarg =+ ({-# LINE 230 "src-ag/ExecutionPlan2Hs.ag" #-}+ \t x -> case t of+ NT nt _ _ -> pp_parens (_fsemname nt >#< x)+ _ -> pp x+ {-# LINE 1393 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 236, column 18)+ _sem_tp =+ ({-# LINE 236 "src-ag/ExecutionPlan2Hs.ag" #-}+ _quantPP >#< _classPP >#< nt_ >#< _t_params >#< "->" >#< _t_type >#< _t_params+ {-# LINE 1399 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 237, column 18)+ _quantPP =+ ({-# LINE 237 "src-ag/ExecutionPlan2Hs.ag" #-}+ ppQuants params_+ {-# LINE 1405 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 238, column 18)+ _sem_nt =+ ({-# LINE 238 "src-ag/ExecutionPlan2Hs.ag" #-}+ _semPragma+ >-< _semname >#< "::" >#< _sem_tp+ >-< case lookup nt_ _lhsItypeSyns of+ Nothing -> _prodsIsem_nt+ Just (List t) -> _semname >#< "list" >#< "=" >#< "Prelude.foldr" >#< _semname >|< "_Cons"+ >#< _semname >|< "_Nil"+ >#< case t of+ NT nt _ _ -> pp_parens ("Prelude.map" >#< _fsemname nt >#< "list")+ _ -> pp "list"+ Just (Maybe t) -> _semname >#< "Prelude.Nothing" >#< "=" >#< _semname >|< "_Nothing"+ >-< _semname >#< pp_parens ("Prelude.Just just") >#< "="+ >#< _semname >|< "_Just" >#< _frecarg t "just"+ Just (Tuple ts) -> _semname >#< pp_parens (ppCommas $ map fst ts) >#< "="+ >#< _semname >|< "_Tuple" >#< ppSpaced (map (\t -> _frecarg (snd t) (show $ fst t)) ts)+ Just (Either l r) -> _semname >#< "(Prelude.Left left)" >#< "=" >#< _semname >|< "_Left" >#< _frecarg l "left"+ >-< _semname >#< "(Prelude.Right right)" >#< "=" >#< _semname >|< "_Right" >#< _frecarg r "right"+ Just (Map k v) -> _semname >#< "m" >#< "=" >#< "Data.Map.foldrWithKey"+ >#< _semname >|< "_Entry" >#< _semname >|< "_Nil"+ >#< case v of+ NT nt _ _ -> pp_parens ("Data.Map.map" >#< _fsemname nt >#< "m")+ _ -> pp "m"+ Just (IntMap v) -> _semname >#< "m" >#< "=" >#< "Data.IntMap.foldWithKey"+ >#< _semname >|< "_Entry" >#< _semname >|< "_Nil"+ >#< case v of+ NT nt _ _ -> pp_parens ("Data.IntMap.map" >#< _fsemname nt >#< "m")+ _ -> pp "m"+ Just (OrdSet t) -> _semname >#< "s" >#< "=" >#< "Prelude.foldr" >#< _semname >|< "_Entry"+ >#< _semname >|< "_Nil"+ >#< pp_parens (+ ( case t of+ NT nt _ _ -> pp_parens ("Prelude.map" >#< _fsemname nt)+ _ -> empty+ ) >#< pp_parens ("Data.IntSet.elems" >#< "s")+ )+ Just IntSet -> _semname >#< "s" >#< "=" >#< "Prelude.foldr" >#< _semname >|< "_Entry"+ >#< _semname >|< "_Nil"+ >#< pp_parens ("Data.IntSet.elems" >#< "s")+ {-# LINE 1447 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 278, column 17)+ _inlineNt =+ ({-# LINE 278 "src-ag/ExecutionPlan2Hs.ag" #-}+ not (lateHigherOrderBinding _lhsIoptions) && not recursive_ && (_prodsIcount == 1 || (aggressiveInlinePragmas _lhsIoptions && not _hasWrapper ))+ {-# LINE 1453 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 279, column 17)+ _semPragma =+ ({-# LINE 279 "src-ag/ExecutionPlan2Hs.ag" #-}+ if noInlinePragmas _lhsIoptions+ then empty+ else if _inlineNt+ then ppInline _semname+ else if helpInlining _lhsIoptions && not (lateHigherOrderBinding _lhsIoptions)+ then ppInlinable _semname+ else ppNoInline _semname+ {-# LINE 1465 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 325, column 19)+ (Just _prodsOinhmap) =+ ({-# LINE 325 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.lookup nt_ _lhsIinhmap+ {-# LINE 1471 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 326, column 19)+ (Just _prodsOsynmap) =+ ({-# LINE 326 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.lookup nt_ _lhsIsynmap+ {-# LINE 1477 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 327, column 18)+ _prodsOallInhmap =+ ({-# LINE 327 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinhmap+ {-# LINE 1483 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 328, column 18)+ _prodsOallSynmap =+ ({-# LINE 328 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIsynmap+ {-# LINE 1489 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 349, column 18)+ _outedges =+ ({-# LINE 349 "src-ag/ExecutionPlan2Hs.ag" #-}+ Set.fromList $ map (\(_,f,_) -> f) _prodsIallvisits+ {-# LINE 1495 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 350, column 18)+ _inedges =+ ({-# LINE 350 "src-ag/ExecutionPlan2Hs.ag" #-}+ Set.fromList $ map (\(_,_,t) -> t) _prodsIallvisits+ {-# LINE 1501 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 351, column 18)+ _allstates =+ ({-# LINE 351 "src-ag/ExecutionPlan2Hs.ag" #-}+ Set.insert initial_ $ _inedges `Set.union` _outedges+ {-# LINE 1507 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 352, column 18)+ _stvisits =+ ({-# LINE 352 "src-ag/ExecutionPlan2Hs.ag" #-}+ \st -> filter (\(v,f,t) -> f == st) _prodsIallvisits+ {-# LINE 1513 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 353, column 18)+ _t_type =+ ({-# LINE 353 "src-ag/ExecutionPlan2Hs.ag" #-}+ "T_" >|< nt_+ {-# LINE 1519 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 354, column 18)+ _t_params =+ ({-# LINE 354 "src-ag/ExecutionPlan2Hs.ag" #-}+ ppSpaced params_+ {-# LINE 1525 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 355, column 18)+ _t_init =+ ({-# LINE 355 "src-ag/ExecutionPlan2Hs.ag" #-}+ "newtype" >#< _t_type >#< _t_params >#< "=" >#< _t_type >#<+ pp_braces (+ "attach_">|< _t_type >#< "::"+ >#< ppMonadType _lhsIoptions >#< pp_parens (_t_type >|< "_s" >|< initial_ >#< _t_params ))+ {-# LINE 1534 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 359, column 18)+ _t_states =+ ({-# LINE 359 "src-ag/ExecutionPlan2Hs.ag" #-}+ vlist $ map (\st ->+ let nt_st = nt_ >|< "_s" >|< st+ t_st = "T_" >|< nt_st+ k_st = "K_" >|< nt_st+ c_st = "C_" >|< nt_st+ inv_st = "inv_" >|< nt_st+ nextVisit = Map.findWithDefault ManyVis st nextVisits_+ in case nextVisit of+ NoneVis -> "data" >#< t_st >#< _t_params >#< "=" >#< c_st+ OneVis vId -> "newtype" >#< t_st >#< _t_params >#< "=" >#< c_st+ >#< (pp_braces $ inv_st >#< "::" >#< pp_parens (conNmTVisit nt_ vId >#< _t_params ))+ ManyVis -> "data" >#< t_st >#< _t_params >#< "where" >#< c_st >#< "::"+ >#< (pp_braces $ inv_st >#< "::" >#< "!" >|< pp_parens ("forall t." >#< k_st >#< _t_params >#< "t" >#< "->" >#< "t"))+ >#< "->" >#< t_st >#< _t_params+ ) $ Set.toList _allstates+ {-# LINE 1554 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 377, column 18)+ _k_type =+ ({-# LINE 377 "src-ag/ExecutionPlan2Hs.ag" #-}+ "K_" ++ show nt_+ {-# LINE 1560 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 378, column 18)+ _k_states =+ ({-# LINE 378 "src-ag/ExecutionPlan2Hs.ag" #-}+ vlist $ map (\st ->+ let nt_st = nt_ >|< "_s" >|< st+ k_st = "K_" >|< nt_st+ outg = filter (\(v,f,t) -> f == st) _prodsIallvisits+ visitlist = vlist $ map (\(v,f,t) ->+ _k_type >|< "_v" >|< v >#< "::" >#< k_st >#< _t_params >#< pp_parens (_t_type >|< "_v" >|< v >#< _t_params )+ ) outg+ nextVisit = Map.findWithDefault ManyVis st nextVisits_+ decl = "data" >#< k_st >#< "k" >#< _t_params >#< "where" >-< indent 3 visitlist+ in case nextVisit of+ NoneVis -> empty+ OneVis _ -> empty+ ManyVis -> decl+ ) $ Set.toList _allstates+ {-# LINE 1579 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 445, column 18)+ _wr_inh =+ ({-# LINE 445 "src-ag/ExecutionPlan2Hs.ag" #-}+ _genwrap "Inh" _wr_inhs+ {-# LINE 1585 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 446, column 18)+ _wr_syn =+ ({-# LINE 446 "src-ag/ExecutionPlan2Hs.ag" #-}+ _genwrap "Syn" _wr_syns+ {-# LINE 1591 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 447, column 18)+ _genwrap =+ ({-# LINE 447 "src-ag/ExecutionPlan2Hs.ag" #-}+ \nm attr -> "data" >#< nm >|< "_" >|< nt_ >#< _t_params >#< "=" >#< nm >|< "_" >|< nt_ >#< "{"+ >#< (ppCommas $ map (\(i,t) -> i >|< "_" >|< nm >|< "_" >|< nt_ >#< "::"+ >#< (_addbang $ pp_parens $ typeToHaskellString (Just nt_) [] t)) attr) >#< "}"+ {-# LINE 1599 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 450, column 18)+ _synAttrs =+ ({-# LINE 450 "src-ag/ExecutionPlan2Hs.ag" #-}+ fromJust $ Map.lookup nt_ _lhsIinhmap+ {-# LINE 1605 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 451, column 18)+ _wr_inhs =+ ({-# LINE 451 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.toList $ _wr_filter $ _synAttrs+ {-# LINE 1611 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 452, column 18)+ _wr_inhs1 =+ ({-# LINE 452 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.toList _synAttrs+ {-# LINE 1617 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 453, column 18)+ _wr_filter =+ ({-# LINE 453 "src-ag/ExecutionPlan2Hs.ag" #-}+ if kennedyWarren _lhsIoptions && lateHigherOrderBinding _lhsIoptions+ then Map.delete idLateBindingAttr+ else id+ {-# LINE 1625 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 456, column 18)+ _wr_syns =+ ({-# LINE 456 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.toList $ fromJust $ Map.lookup nt_ _lhsIsynmap+ {-# LINE 1631 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 457, column 18)+ _inhlist =+ ({-# LINE 457 "src-ag/ExecutionPlan2Hs.ag" #-}+ map (lhsname True . fst) _wr_inhs+ {-# LINE 1637 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 458, column 18)+ _inhlist1 =+ ({-# LINE 458 "src-ag/ExecutionPlan2Hs.ag" #-}+ map (lhsname True . fst) _wr_inhs1+ {-# LINE 1643 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 459, column 18)+ _synlist =+ ({-# LINE 459 "src-ag/ExecutionPlan2Hs.ag" #-}+ map (lhsname False . fst) _wr_syns+ {-# LINE 1649 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 460, column 18)+ _wrapname =+ ({-# LINE 460 "src-ag/ExecutionPlan2Hs.ag" #-}+ "wrap_" ++ show nt_+ {-# LINE 1655 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 461, column 18)+ _inhname =+ ({-# LINE 461 "src-ag/ExecutionPlan2Hs.ag" #-}+ "Inh_" ++ show nt_+ {-# LINE 1661 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 462, column 18)+ _synname =+ ({-# LINE 462 "src-ag/ExecutionPlan2Hs.ag" #-}+ "Syn_" ++ show nt_+ {-# LINE 1667 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 463, column 18)+ _firstVisitInfo =+ ({-# LINE 463 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.findWithDefault ManyVis initial_ nextVisits_+ {-# LINE 1673 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 464, column 18)+ _wrapper =+ ({-# LINE 464 "src-ag/ExecutionPlan2Hs.ag" #-}+ _wrapPragma+ >-< (_wrapname >#< "::" >#< _quantPP >#< _classPP >#< _t_type >#< _t_params >#< "->"+ >#< _inhname >#< _t_params >#< "->" >#< ( if monadicWrappers _lhsIoptions then ppMonadType _lhsIoptions else empty) >#< pp_parens (_synname >#< _t_params ))+ >-< (_wrapname >#< (_addbang $ pp_parens (_t_type >#< pp "act"))+ >#< (_addbang $ pp_parens (_inhname+ >#< (ppSpaced $ map (_addbangWrap . pp) _inhlist )) >#< "="))+ >-<+ indent 3 (case initialv_ of+ Nothing -> _synname >#< " { }"+ Just initv ->+ let inCon = conNmTVisitIn nt_ initv+ outCon = conNmTVisitOut nt_ initv+ pat = _addbang $ pp_parens $ pat0+ pat0 = outCon >#< ppSpaced _synlist+ arg = inCon >#< ppSpaced _inhlist1+ ind = case _firstVisitInfo of+ NoneVis -> error "wrapper: initial state should have a next visit but it has none"+ OneVis _ -> empty+ ManyVis -> _k_type >|< "_v" >|< initv+ extra = if dummyTokenVisit _lhsIoptions+ then pp $ dummyArg _lhsIoptions True+ else empty+ convert = case Map.lookup initv _lhsIallVisitKinds of+ Just kind -> case kind of+ VisitPure _ -> text "return"+ VisitMonadic -> empty+ unMonad | monadicWrappers _lhsIoptions = empty+ | otherwise = unMon _lhsIoptions+ in unMonad >#< "("+ >-< indent 2 (+ "do" >#< ( _addbang (pp "sem") >#< "<-" >#< "act"+ >-< "let" >#< _addbangWrap (pp "arg") >#< "=" >#< arg+ >-< pat >#< "<-" >#< convert >#< pp_parens ("inv_" >|< nt_ >|< "_s" >|< initial_ >#< "sem" >#< ind >#< "arg" >#< extra)+ >-< "return" >#< pp_parens (_synname >#< ppSpaced _synlist )+ )+ )+ >-< ")" )+ >-< if kennedyWarren _lhsIoptions && lateHigherOrderBinding _lhsIoptions+ then indent 2 ("where" >#< lhsname True idLateBindingAttr >#< "=" >#< lateBindingFieldNm _lhsImainName)+ else empty+ {-# LINE 1718 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 505, column 18)+ _wrapPragma =+ ({-# LINE 505 "src-ag/ExecutionPlan2Hs.ag" #-}+ if parallelInvoke _lhsIoptions && not (monadicWrappers _lhsIoptions)+ then ppNoInline _wrapname+ else if noInlinePragmas _lhsIoptions+ then empty+ else ppInlinable _wrapname+ {-# LINE 1728 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 517, column 3)+ _lhsOsemFunBndDefs =+ ({-# LINE 517 "src-ag/ExecutionPlan2Hs.ag" #-}+ _semFunBndDef Seq.<| _prodsIsemFunBndDefs+ {-# LINE 1734 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 518, column 3)+ _lhsOsemFunBndTps =+ ({-# LINE 518 "src-ag/ExecutionPlan2Hs.ag" #-}+ _semFunBndTp Seq.<| _prodsIsemFunBndTps+ {-# LINE 1740 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 519, column 3)+ _semFunBndDef =+ ({-# LINE 519 "src-ag/ExecutionPlan2Hs.ag" #-}+ _semFunBndNm >#< "=" >#< _semname+ {-# LINE 1746 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 520, column 3)+ _semFunBndTp =+ ({-# LINE 520 "src-ag/ExecutionPlan2Hs.ag" #-}+ _semFunBndNm >#< "::" >#< _sem_tp+ {-# LINE 1752 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 521, column 3)+ _semFunBndNm =+ ({-# LINE 521 "src-ag/ExecutionPlan2Hs.ag" #-}+ lateSemNtLabel nt_+ {-# LINE 1758 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 559, column 18)+ _prodsOinitial =+ ({-# LINE 559 "src-ag/ExecutionPlan2Hs.ag" #-}+ initial_+ {-# LINE 1764 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 560, column 18)+ _prodsOallstates =+ ({-# LINE 560 "src-ag/ExecutionPlan2Hs.ag" #-}+ _allstates+ {-# LINE 1770 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1450, column 18)+ _lhsOappendMain =+ ({-# LINE 1450 "src-ag/ExecutionPlan2Hs.ag" #-}+ (if nt_ `Set.member` _lhsIwrappers+ then _wr_inh+ >-< _wr_syn+ >-< _wrapper+ else empty)+ >-< _sem_nt+ {-# LINE 1781 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1456, column 18)+ _lhsOappendCommon =+ ({-# LINE 1456 "src-ag/ExecutionPlan2Hs.ag" #-}+ (if dataTypes _lhsIoptions then _datatype else empty)+ >-< _t_init+ >-< _t_states+ >-< _k_states+ >-< _prodsIt_visits+ {-# LINE 1791 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1516, column 37)+ _addbang =+ ({-# LINE 1516 "src-ag/ExecutionPlan2Hs.ag" #-}+ \x -> if bangpats _lhsIoptions then "!" >|< x else x+ {-# LINE 1797 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1524, column 37)+ _addbangWrap =+ ({-# LINE 1524 "src-ag/ExecutionPlan2Hs.ag" #-}+ if strictWrap _lhsIoptions then _addbang else id+ {-# LINE 1803 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1536, column 3)+ _prodsOnextVisits =+ ({-# LINE 1536 "src-ag/ExecutionPlan2Hs.ag" #-}+ nextVisits_+ {-# LINE 1809 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1537, column 3)+ _prodsOprevVisits =+ ({-# LINE 1537 "src-ag/ExecutionPlan2Hs.ag" #-}+ prevVisits_+ {-# LINE 1815 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1581, column 3)+ _prodsOlocalAttrTypes =+ ({-# LINE 1581 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.findWithDefault Map.empty nt_ _lhsIlocalAttrTypes+ {-# LINE 1821 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1608, column 3)+ _lhsOinitStates =+ ({-# LINE 1608 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.singleton nt_ initial_+ {-# LINE 1827 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1622, column 3)+ _ntType =+ ({-# LINE 1622 "src-ag/ExecutionPlan2Hs.ag" #-}+ NT nt_ (map show params_) False+ {-# LINE 1833 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1187, column 37)+ _lhsOchildvisit =+ ({-# LINE 1187 "src-ag/ExecutionPlan2Hs.ag" #-}+ _prodsIchildvisit+ {-# LINE 1839 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)+ _lhsOerrors =+ ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}+ _prodsIerrors+ {-# LINE 1845 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1544, column 22)+ _lhsOfromToStates =+ ({-# LINE 1544 "src-ag/ExecutionPlan2Hs.ag" #-}+ _prodsIfromToStates+ {-# LINE 1851 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1464, column 49)+ _lhsOgenProdIO =+ ({-# LINE 1464 "src-ag/ExecutionPlan2Hs.ag" #-}+ _prodsIgenProdIO+ {-# LINE 1857 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1463, column 47)+ _lhsOimports =+ ({-# LINE 1463 "src-ag/ExecutionPlan2Hs.ag" #-}+ _prodsIimports+ {-# LINE 1863 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)+ _lhsOvisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _prodsIvisitKinds+ {-# LINE 1869 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1322, column 36)+ _lhsOvisitdefs =+ ({-# LINE 1322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _prodsIvisitdefs+ {-# LINE 1875 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1323, column 36)+ _lhsOvisituses =+ ({-# LINE 1323 "src-ag/ExecutionPlan2Hs.ag" #-}+ _prodsIvisituses+ {-# LINE 1881 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _prodsOallFromToStates =+ ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallFromToStates+ {-# LINE 1887 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _prodsOallInitStates =+ ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInitStates+ {-# LINE 1893 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _prodsOallVisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallVisitKinds+ {-# LINE 1899 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _prodsOallchildvisit =+ ({-# LINE 1186 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallchildvisit+ {-# LINE 1905 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _prodsOavisitdefs =+ ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisitdefs+ {-# LINE 1911 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _prodsOavisituses =+ ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisituses+ {-# LINE 1917 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _prodsOimportBlocks =+ ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIimportBlocks+ {-# LINE 1923 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _prodsOmainFile =+ ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainFile+ {-# LINE 1929 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _prodsOmainName =+ ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainName+ {-# LINE 1935 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _prodsOmoduleHeader =+ ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImoduleHeader+ {-# LINE 1941 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (from local)+ _prodsOntType =+ ({-# LINE 1620 "src-ag/ExecutionPlan2Hs.ag" #-}+ _ntType+ {-# LINE 1947 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _prodsOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 1953 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _prodsOpragmaBlocks =+ ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIpragmaBlocks+ {-# LINE 1959 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _prodsOtextBlocks =+ ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsItextBlocks+ {-# LINE 1965 "dist/build/ExecutionPlan2Hs" #-}+ )+ ( _prodsIallvisits,_prodsIchildvisit,_prodsIcount,_prodsIdatatype,_prodsIerrors,_prodsIfromToStates,_prodsIgenProdIO,_prodsIimports,_prodsIsemFunBndDefs,_prodsIsemFunBndTps,_prodsIsem_nt,_prodsIsem_prod,_prodsIt_visits,_prodsIvisitKinds,_prodsIvisitdefs,_prodsIvisituses) =+ prods_ _prodsOallFromToStates _prodsOallInhmap _prodsOallInitStates _prodsOallSynmap _prodsOallVisitKinds _prodsOallchildvisit _prodsOallstates _prodsOavisitdefs _prodsOavisituses _prodsOclassCtxs _prodsOimportBlocks _prodsOinhmap _prodsOinitial _prodsOlocalAttrTypes _prodsOmainFile _prodsOmainName _prodsOmoduleHeader _prodsOnextVisits _prodsOnt _prodsOntType _prodsOoptions _prodsOparams _prodsOpragmaBlocks _prodsOprevVisits _prodsOrename _prodsOsynmap _prodsOtextBlocks+ ___node =+ (Syn_ENonterminal _lhsOappendCommon _lhsOappendMain _lhsOchildvisit _lhsOerrors _lhsOfromToStates _lhsOgenProdIO _lhsOimports _lhsOinitStates _lhsOoutput _lhsOsemFunBndDefs _lhsOsemFunBndTps _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses)+ in ( _lhsOappendCommon,_lhsOappendMain,_lhsOchildvisit,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOinitStates,_lhsOoutput,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses))))+-- ENonterminals -----------------------------------------------+{-+ visit 0:+ inherited attributes:+ allFromToStates : Map VisitIdentifier (Int,Int)+ allInitStates : Map NontermIdent Int+ allVisitKinds : Map VisitIdentifier VisitKind+ allchildvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))+ avisitdefs : Map VisitIdentifier (Set Identifier)+ avisituses : Map VisitIdentifier (Set Identifier)+ derivings : Derivings+ importBlocks : PP_Doc+ inhmap : Map NontermIdent Attributes+ localAttrTypes : Map NontermIdent (Map ConstructorIdent (Map Identifier Type))+ mainFile : String+ mainName : String+ moduleHeader : String -> String -> String -> Bool -> String+ options : Options+ pragmaBlocks : String+ synmap : Map NontermIdent Attributes+ textBlocks : PP_Doc+ typeSyns : TypeSyns+ wrappers : Set NontermIdent+ synthesized attributes:+ appendCommon : [PP_Doc]+ appendMain : [PP_Doc]+ childvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))+ errors : Seq Error+ fromToStates : Map VisitIdentifier (Int,Int)+ genProdIO : IO ()+ imports : [PP_Doc]+ initStates : Map NontermIdent Int+ output : PP_Doc+ semFunBndDefs : Seq PP_Doc+ semFunBndTps : Seq PP_Doc+ visitKinds : Map VisitIdentifier VisitKind+ visitdefs : Map VisitIdentifier (Set Identifier)+ visituses : Map VisitIdentifier (Set Identifier)+ alternatives:+ alternative Cons:+ child hd : ENonterminal + child tl : ENonterminals + alternative Nil:+-}+-- cata+sem_ENonterminals :: ENonterminals ->+ T_ENonterminals+sem_ENonterminals list =+ (Prelude.foldr sem_ENonterminals_Cons sem_ENonterminals_Nil (Prelude.map sem_ENonterminal list))+-- semantic domain+newtype T_ENonterminals = T_ENonterminals ((Map VisitIdentifier (Int,Int)) ->+ (Map NontermIdent Int) ->+ (Map VisitIdentifier VisitKind) ->+ (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))) ->+ (Map VisitIdentifier (Set Identifier)) ->+ (Map VisitIdentifier (Set Identifier)) ->+ Derivings ->+ PP_Doc ->+ (Map NontermIdent Attributes) ->+ (Map NontermIdent (Map ConstructorIdent (Map Identifier Type))) ->+ String ->+ String ->+ (String -> String -> String -> Bool -> String) ->+ Options ->+ String ->+ (Map NontermIdent Attributes) ->+ PP_Doc ->+ TypeSyns ->+ (Set NontermIdent) ->+ ( ([PP_Doc]),([PP_Doc]),(Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),(Seq Error),(Map VisitIdentifier (Int,Int)),(IO ()),([PP_Doc]),(Map NontermIdent Int),PP_Doc,(Seq PP_Doc),(Seq PP_Doc),(Map VisitIdentifier VisitKind),(Map VisitIdentifier (Set Identifier)),(Map VisitIdentifier (Set Identifier))))+data Inh_ENonterminals = Inh_ENonterminals {allFromToStates_Inh_ENonterminals :: (Map VisitIdentifier (Int,Int)),allInitStates_Inh_ENonterminals :: (Map NontermIdent Int),allVisitKinds_Inh_ENonterminals :: (Map VisitIdentifier VisitKind),allchildvisit_Inh_ENonterminals :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),avisitdefs_Inh_ENonterminals :: (Map VisitIdentifier (Set Identifier)),avisituses_Inh_ENonterminals :: (Map VisitIdentifier (Set Identifier)),derivings_Inh_ENonterminals :: Derivings,importBlocks_Inh_ENonterminals :: PP_Doc,inhmap_Inh_ENonterminals :: (Map NontermIdent Attributes),localAttrTypes_Inh_ENonterminals :: (Map NontermIdent (Map ConstructorIdent (Map Identifier Type))),mainFile_Inh_ENonterminals :: String,mainName_Inh_ENonterminals :: String,moduleHeader_Inh_ENonterminals :: (String -> String -> String -> Bool -> String),options_Inh_ENonterminals :: Options,pragmaBlocks_Inh_ENonterminals :: String,synmap_Inh_ENonterminals :: (Map NontermIdent Attributes),textBlocks_Inh_ENonterminals :: PP_Doc,typeSyns_Inh_ENonterminals :: TypeSyns,wrappers_Inh_ENonterminals :: (Set NontermIdent)}+data Syn_ENonterminals = Syn_ENonterminals {appendCommon_Syn_ENonterminals :: ([PP_Doc]),appendMain_Syn_ENonterminals :: ([PP_Doc]),childvisit_Syn_ENonterminals :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),errors_Syn_ENonterminals :: (Seq Error),fromToStates_Syn_ENonterminals :: (Map VisitIdentifier (Int,Int)),genProdIO_Syn_ENonterminals :: (IO ()),imports_Syn_ENonterminals :: ([PP_Doc]),initStates_Syn_ENonterminals :: (Map NontermIdent Int),output_Syn_ENonterminals :: PP_Doc,semFunBndDefs_Syn_ENonterminals :: (Seq PP_Doc),semFunBndTps_Syn_ENonterminals :: (Seq PP_Doc),visitKinds_Syn_ENonterminals :: (Map VisitIdentifier VisitKind),visitdefs_Syn_ENonterminals :: (Map VisitIdentifier (Set Identifier)),visituses_Syn_ENonterminals :: (Map VisitIdentifier (Set Identifier))}+wrap_ENonterminals :: T_ENonterminals ->+ Inh_ENonterminals ->+ Syn_ENonterminals+wrap_ENonterminals (T_ENonterminals sem) (Inh_ENonterminals _lhsIallFromToStates _lhsIallInitStates _lhsIallVisitKinds _lhsIallchildvisit _lhsIavisitdefs _lhsIavisituses _lhsIderivings _lhsIimportBlocks _lhsIinhmap _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsIoptions _lhsIpragmaBlocks _lhsIsynmap _lhsItextBlocks _lhsItypeSyns _lhsIwrappers) =+ (let ( _lhsOappendCommon,_lhsOappendMain,_lhsOchildvisit,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOinitStates,_lhsOoutput,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses) = sem _lhsIallFromToStates _lhsIallInitStates _lhsIallVisitKinds _lhsIallchildvisit _lhsIavisitdefs _lhsIavisituses _lhsIderivings _lhsIimportBlocks _lhsIinhmap _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsIoptions _lhsIpragmaBlocks _lhsIsynmap _lhsItextBlocks _lhsItypeSyns _lhsIwrappers+ in (Syn_ENonterminals _lhsOappendCommon _lhsOappendMain _lhsOchildvisit _lhsOerrors _lhsOfromToStates _lhsOgenProdIO _lhsOimports _lhsOinitStates _lhsOoutput _lhsOsemFunBndDefs _lhsOsemFunBndTps _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses))+sem_ENonterminals_Cons :: T_ENonterminal ->+ T_ENonterminals ->+ T_ENonterminals+sem_ENonterminals_Cons (T_ENonterminal hd_) (T_ENonterminals tl_) =+ (T_ENonterminals (\ _lhsIallFromToStates+ _lhsIallInitStates+ _lhsIallVisitKinds+ _lhsIallchildvisit+ _lhsIavisitdefs+ _lhsIavisituses+ _lhsIderivings+ _lhsIimportBlocks+ _lhsIinhmap+ _lhsIlocalAttrTypes+ _lhsImainFile+ _lhsImainName+ _lhsImoduleHeader+ _lhsIoptions+ _lhsIpragmaBlocks+ _lhsIsynmap+ _lhsItextBlocks+ _lhsItypeSyns+ _lhsIwrappers ->+ (let _lhsOappendCommon :: ([PP_Doc])+ _lhsOappendMain :: ([PP_Doc])+ _lhsOchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _lhsOerrors :: (Seq Error)+ _lhsOfromToStates :: (Map VisitIdentifier (Int,Int))+ _lhsOgenProdIO :: (IO ())+ _lhsOimports :: ([PP_Doc])+ _lhsOinitStates :: (Map NontermIdent Int)+ _lhsOoutput :: PP_Doc+ _lhsOsemFunBndDefs :: (Seq PP_Doc)+ _lhsOsemFunBndTps :: (Seq PP_Doc)+ _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)+ _lhsOvisitdefs :: (Map VisitIdentifier (Set Identifier))+ _lhsOvisituses :: (Map VisitIdentifier (Set Identifier))+ _hdOallFromToStates :: (Map VisitIdentifier (Int,Int))+ _hdOallInitStates :: (Map NontermIdent Int)+ _hdOallVisitKinds :: (Map VisitIdentifier VisitKind)+ _hdOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _hdOavisitdefs :: (Map VisitIdentifier (Set Identifier))+ _hdOavisituses :: (Map VisitIdentifier (Set Identifier))+ _hdOderivings :: Derivings+ _hdOimportBlocks :: PP_Doc+ _hdOinhmap :: (Map NontermIdent Attributes)+ _hdOlocalAttrTypes :: (Map NontermIdent (Map ConstructorIdent (Map Identifier Type)))+ _hdOmainFile :: String+ _hdOmainName :: String+ _hdOmoduleHeader :: (String -> String -> String -> Bool -> String)+ _hdOoptions :: Options+ _hdOpragmaBlocks :: String+ _hdOsynmap :: (Map NontermIdent Attributes)+ _hdOtextBlocks :: PP_Doc+ _hdOtypeSyns :: TypeSyns+ _hdOwrappers :: (Set NontermIdent)+ _tlOallFromToStates :: (Map VisitIdentifier (Int,Int))+ _tlOallInitStates :: (Map NontermIdent Int)+ _tlOallVisitKinds :: (Map VisitIdentifier VisitKind)+ _tlOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _tlOavisitdefs :: (Map VisitIdentifier (Set Identifier))+ _tlOavisituses :: (Map VisitIdentifier (Set Identifier))+ _tlOderivings :: Derivings+ _tlOimportBlocks :: PP_Doc+ _tlOinhmap :: (Map NontermIdent Attributes)+ _tlOlocalAttrTypes :: (Map NontermIdent (Map ConstructorIdent (Map Identifier Type)))+ _tlOmainFile :: String+ _tlOmainName :: String+ _tlOmoduleHeader :: (String -> String -> String -> Bool -> String)+ _tlOoptions :: Options+ _tlOpragmaBlocks :: String+ _tlOsynmap :: (Map NontermIdent Attributes)+ _tlOtextBlocks :: PP_Doc+ _tlOtypeSyns :: TypeSyns+ _tlOwrappers :: (Set NontermIdent)+ _hdIappendCommon :: ( PP_Doc )+ _hdIappendMain :: ( PP_Doc )+ _hdIchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _hdIerrors :: (Seq Error)+ _hdIfromToStates :: (Map VisitIdentifier (Int,Int))+ _hdIgenProdIO :: (IO ())+ _hdIimports :: ([PP_Doc])+ _hdIinitStates :: (Map NontermIdent Int)+ _hdIoutput :: PP_Doc+ _hdIsemFunBndDefs :: (Seq PP_Doc)+ _hdIsemFunBndTps :: (Seq PP_Doc)+ _hdIvisitKinds :: (Map VisitIdentifier VisitKind)+ _hdIvisitdefs :: (Map VisitIdentifier (Set Identifier))+ _hdIvisituses :: (Map VisitIdentifier (Set Identifier))+ _tlIappendCommon :: ([PP_Doc])+ _tlIappendMain :: ([PP_Doc])+ _tlIchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _tlIerrors :: (Seq Error)+ _tlIfromToStates :: (Map VisitIdentifier (Int,Int))+ _tlIgenProdIO :: (IO ())+ _tlIimports :: ([PP_Doc])+ _tlIinitStates :: (Map NontermIdent Int)+ _tlIoutput :: PP_Doc+ _tlIsemFunBndDefs :: (Seq PP_Doc)+ _tlIsemFunBndTps :: (Seq PP_Doc)+ _tlIvisitKinds :: (Map VisitIdentifier VisitKind)+ _tlIvisitdefs :: (Map VisitIdentifier (Set Identifier))+ _tlIvisituses :: (Map VisitIdentifier (Set Identifier))+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1447, column 51)+ _lhsOappendCommon =+ ({-# LINE 1447 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIappendCommon : _tlIappendCommon+ {-# LINE 2157 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1447, column 51)+ _lhsOappendMain =+ ({-# LINE 1447 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIappendMain : _tlIappendMain+ {-# LINE 2163 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1187, column 37)+ _lhsOchildvisit =+ ({-# LINE 1187 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIchildvisit `Map.union` _tlIchildvisit+ {-# LINE 2169 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)+ _lhsOerrors =+ ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 2175 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1544, column 22)+ _lhsOfromToStates =+ ({-# LINE 1544 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIfromToStates `mappend` _tlIfromToStates+ {-# LINE 2181 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1464, column 49)+ _lhsOgenProdIO =+ ({-# LINE 1464 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIgenProdIO >> _tlIgenProdIO+ {-# LINE 2187 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1463, column 47)+ _lhsOimports =+ ({-# LINE 1463 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIimports ++ _tlIimports+ {-# LINE 2193 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1603, column 50)+ _lhsOinitStates =+ ({-# LINE 1603 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIinitStates `mappend` _tlIinitStates+ {-# LINE 2199 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 90, column 45)+ _lhsOoutput =+ ({-# LINE 90 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIoutput >-< _tlIoutput+ {-# LINE 2205 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 515, column 92)+ _lhsOsemFunBndDefs =+ ({-# LINE 515 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIsemFunBndDefs Seq.>< _tlIsemFunBndDefs+ {-# LINE 2211 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 515, column 92)+ _lhsOsemFunBndTps =+ ({-# LINE 515 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIsemFunBndTps Seq.>< _tlIsemFunBndTps+ {-# LINE 2217 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)+ _lhsOvisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIvisitKinds `mappend` _tlIvisitKinds+ {-# LINE 2223 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1322, column 36)+ _lhsOvisitdefs =+ ({-# LINE 1322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIvisitdefs `uwSetUnion` _tlIvisitdefs+ {-# LINE 2229 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1323, column 36)+ _lhsOvisituses =+ ({-# LINE 1323 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIvisituses `uwSetUnion` _tlIvisituses+ {-# LINE 2235 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallFromToStates =+ ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallFromToStates+ {-# LINE 2241 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallInitStates =+ ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInitStates+ {-# LINE 2247 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallVisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallVisitKinds+ {-# LINE 2253 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallchildvisit =+ ({-# LINE 1186 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallchildvisit+ {-# LINE 2259 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOavisitdefs =+ ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisitdefs+ {-# LINE 2265 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOavisituses =+ ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisituses+ {-# LINE 2271 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOderivings =+ ({-# LINE 129 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIderivings+ {-# LINE 2277 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOimportBlocks =+ ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIimportBlocks+ {-# LINE 2283 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOinhmap =+ ({-# LINE 312 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinhmap+ {-# LINE 2289 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOlocalAttrTypes =+ ({-# LINE 1576 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIlocalAttrTypes+ {-# LINE 2295 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOmainFile =+ ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainFile+ {-# LINE 2301 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOmainName =+ ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainName+ {-# LINE 2307 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOmoduleHeader =+ ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImoduleHeader+ {-# LINE 2313 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 2319 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOpragmaBlocks =+ ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIpragmaBlocks+ {-# LINE 2325 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOsynmap =+ ({-# LINE 313 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIsynmap+ {-# LINE 2331 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOtextBlocks =+ ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsItextBlocks+ {-# LINE 2337 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOtypeSyns =+ ({-# LINE 128 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsItypeSyns+ {-# LINE 2343 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOwrappers =+ ({-# LINE 89 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIwrappers+ {-# LINE 2349 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallFromToStates =+ ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallFromToStates+ {-# LINE 2355 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallInitStates =+ ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInitStates+ {-# LINE 2361 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallVisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallVisitKinds+ {-# LINE 2367 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallchildvisit =+ ({-# LINE 1186 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallchildvisit+ {-# LINE 2373 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOavisitdefs =+ ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisitdefs+ {-# LINE 2379 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOavisituses =+ ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisituses+ {-# LINE 2385 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOderivings =+ ({-# LINE 129 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIderivings+ {-# LINE 2391 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOimportBlocks =+ ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIimportBlocks+ {-# LINE 2397 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOinhmap =+ ({-# LINE 312 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinhmap+ {-# LINE 2403 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOlocalAttrTypes =+ ({-# LINE 1576 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIlocalAttrTypes+ {-# LINE 2409 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOmainFile =+ ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainFile+ {-# LINE 2415 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOmainName =+ ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainName+ {-# LINE 2421 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOmoduleHeader =+ ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImoduleHeader+ {-# LINE 2427 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 2433 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOpragmaBlocks =+ ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIpragmaBlocks+ {-# LINE 2439 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOsynmap =+ ({-# LINE 313 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIsynmap+ {-# LINE 2445 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOtextBlocks =+ ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsItextBlocks+ {-# LINE 2451 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOtypeSyns =+ ({-# LINE 128 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsItypeSyns+ {-# LINE 2457 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOwrappers =+ ({-# LINE 89 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIwrappers+ {-# LINE 2463 "dist/build/ExecutionPlan2Hs" #-}+ )+ ( _hdIappendCommon,_hdIappendMain,_hdIchildvisit,_hdIerrors,_hdIfromToStates,_hdIgenProdIO,_hdIimports,_hdIinitStates,_hdIoutput,_hdIsemFunBndDefs,_hdIsemFunBndTps,_hdIvisitKinds,_hdIvisitdefs,_hdIvisituses) =+ hd_ _hdOallFromToStates _hdOallInitStates _hdOallVisitKinds _hdOallchildvisit _hdOavisitdefs _hdOavisituses _hdOderivings _hdOimportBlocks _hdOinhmap _hdOlocalAttrTypes _hdOmainFile _hdOmainName _hdOmoduleHeader _hdOoptions _hdOpragmaBlocks _hdOsynmap _hdOtextBlocks _hdOtypeSyns _hdOwrappers+ ( _tlIappendCommon,_tlIappendMain,_tlIchildvisit,_tlIerrors,_tlIfromToStates,_tlIgenProdIO,_tlIimports,_tlIinitStates,_tlIoutput,_tlIsemFunBndDefs,_tlIsemFunBndTps,_tlIvisitKinds,_tlIvisitdefs,_tlIvisituses) =+ tl_ _tlOallFromToStates _tlOallInitStates _tlOallVisitKinds _tlOallchildvisit _tlOavisitdefs _tlOavisituses _tlOderivings _tlOimportBlocks _tlOinhmap _tlOlocalAttrTypes _tlOmainFile _tlOmainName _tlOmoduleHeader _tlOoptions _tlOpragmaBlocks _tlOsynmap _tlOtextBlocks _tlOtypeSyns _tlOwrappers+ ___node =+ (Syn_ENonterminals _lhsOappendCommon _lhsOappendMain _lhsOchildvisit _lhsOerrors _lhsOfromToStates _lhsOgenProdIO _lhsOimports _lhsOinitStates _lhsOoutput _lhsOsemFunBndDefs _lhsOsemFunBndTps _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses)+ in ( _lhsOappendCommon,_lhsOappendMain,_lhsOchildvisit,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOinitStates,_lhsOoutput,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses))))+sem_ENonterminals_Nil :: T_ENonterminals+sem_ENonterminals_Nil =+ (T_ENonterminals (\ _lhsIallFromToStates+ _lhsIallInitStates+ _lhsIallVisitKinds+ _lhsIallchildvisit+ _lhsIavisitdefs+ _lhsIavisituses+ _lhsIderivings+ _lhsIimportBlocks+ _lhsIinhmap+ _lhsIlocalAttrTypes+ _lhsImainFile+ _lhsImainName+ _lhsImoduleHeader+ _lhsIoptions+ _lhsIpragmaBlocks+ _lhsIsynmap+ _lhsItextBlocks+ _lhsItypeSyns+ _lhsIwrappers ->+ (let _lhsOappendCommon :: ([PP_Doc])+ _lhsOappendMain :: ([PP_Doc])+ _lhsOchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _lhsOerrors :: (Seq Error)+ _lhsOfromToStates :: (Map VisitIdentifier (Int,Int))+ _lhsOgenProdIO :: (IO ())+ _lhsOimports :: ([PP_Doc])+ _lhsOinitStates :: (Map NontermIdent Int)+ _lhsOoutput :: PP_Doc+ _lhsOsemFunBndDefs :: (Seq PP_Doc)+ _lhsOsemFunBndTps :: (Seq PP_Doc)+ _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)+ _lhsOvisitdefs :: (Map VisitIdentifier (Set Identifier))+ _lhsOvisituses :: (Map VisitIdentifier (Set Identifier))+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1447, column 51)+ _lhsOappendCommon =+ ({-# LINE 1447 "src-ag/ExecutionPlan2Hs.ag" #-}+ []+ {-# LINE 2511 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1447, column 51)+ _lhsOappendMain =+ ({-# LINE 1447 "src-ag/ExecutionPlan2Hs.ag" #-}+ []+ {-# LINE 2517 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1187, column 37)+ _lhsOchildvisit =+ ({-# LINE 1187 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 2523 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)+ _lhsOerrors =+ ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}+ Seq.empty+ {-# LINE 2529 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1544, column 22)+ _lhsOfromToStates =+ ({-# LINE 1544 "src-ag/ExecutionPlan2Hs.ag" #-}+ mempty+ {-# LINE 2535 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1464, column 49)+ _lhsOgenProdIO =+ ({-# LINE 1464 "src-ag/ExecutionPlan2Hs.ag" #-}+ return ()+ {-# LINE 2541 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1463, column 47)+ _lhsOimports =+ ({-# LINE 1463 "src-ag/ExecutionPlan2Hs.ag" #-}+ []+ {-# LINE 2547 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1603, column 50)+ _lhsOinitStates =+ ({-# LINE 1603 "src-ag/ExecutionPlan2Hs.ag" #-}+ mempty+ {-# LINE 2553 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 90, column 45)+ _lhsOoutput =+ ({-# LINE 90 "src-ag/ExecutionPlan2Hs.ag" #-}+ empty+ {-# LINE 2559 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 515, column 92)+ _lhsOsemFunBndDefs =+ ({-# LINE 515 "src-ag/ExecutionPlan2Hs.ag" #-}+ Seq.empty+ {-# LINE 2565 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 515, column 92)+ _lhsOsemFunBndTps =+ ({-# LINE 515 "src-ag/ExecutionPlan2Hs.ag" #-}+ Seq.empty+ {-# LINE 2571 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)+ _lhsOvisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ mempty+ {-# LINE 2577 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1322, column 36)+ _lhsOvisitdefs =+ ({-# LINE 1322 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 2583 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1323, column 36)+ _lhsOvisituses =+ ({-# LINE 1323 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 2589 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_ENonterminals _lhsOappendCommon _lhsOappendMain _lhsOchildvisit _lhsOerrors _lhsOfromToStates _lhsOgenProdIO _lhsOimports _lhsOinitStates _lhsOoutput _lhsOsemFunBndDefs _lhsOsemFunBndTps _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses)+ in ( _lhsOappendCommon,_lhsOappendMain,_lhsOchildvisit,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOinitStates,_lhsOoutput,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses))))+-- EProduction -------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allFromToStates : Map VisitIdentifier (Int,Int)+ allInhmap : Map NontermIdent Attributes+ allInitStates : Map NontermIdent Int+ allSynmap : Map NontermIdent Attributes+ allVisitKinds : Map VisitIdentifier VisitKind+ allchildvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))+ allstates : Set StateIdentifier+ avisitdefs : Map VisitIdentifier (Set Identifier)+ avisituses : Map VisitIdentifier (Set Identifier)+ classCtxs : ClassContext+ importBlocks : PP_Doc+ inhmap : Attributes+ initial : StateIdentifier+ localAttrTypes : Map ConstructorIdent (Map Identifier Type)+ mainFile : String+ mainName : String+ moduleHeader : String -> String -> String -> Bool -> String+ nextVisits : Map StateIdentifier StateCtx+ nt : NontermIdent+ ntType : Type+ options : Options+ params : [Identifier]+ pragmaBlocks : String+ prevVisits : Map StateIdentifier StateCtx+ rename : Bool+ synmap : Attributes+ textBlocks : PP_Doc+ synthesized attributes:+ allvisits : [VisitStateState]+ childvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))+ count : Int+ datatype : PP_Doc+ errors : Seq Error+ fromToStates : Map VisitIdentifier (Int,Int)+ genProdIO : IO ()+ imports : [PP_Doc]+ semFunBndDefs : Seq PP_Doc+ semFunBndTps : Seq PP_Doc+ sem_nt : PP_Doc+ sem_prod : PP_Doc+ t_visits : PP_Doc+ visitKinds : Map VisitIdentifier VisitKind+ visitdefs : Map VisitIdentifier (Set Identifier)+ visituses : Map VisitIdentifier (Set Identifier)+ alternatives:+ alternative EProduction:+ child con : {ConstructorIdent}+ child params : {[Identifier]}+ child constraints : {[Type]}+ child rules : ERules + child children : EChildren + child visits : Visits + visit 0:+ local classPP1 : _+ local quantPP1 : _+ local semFunBndDef : _+ local semFunBndTp : _+ local semFunBndNm : _+ local t_type : _+ local t_params : _+ local args : _+ local semname : _+ local sem_tp : _+ local classPP2 : _+ local quantPP2 : _+ local sem_prod : _+ local mkSemBody : _+ local mbInitializer : _+ local scc : _+ local semInlinePragma : _+ local outerlet : _+ local statefns : _+ local genstfn : _+ local stargs : _+ local stks : _+ local stvisits : _+ local stvs : _+ local lazyIntras : _+ local moduleName : _+ local suffix : _+ local outputfile : _+ local ppMonadImports : _+ local addbang : _+ local childTypes : _+ local localAttrTypes : _+-}+-- cata+sem_EProduction :: EProduction ->+ T_EProduction+sem_EProduction (EProduction _con _params _constraints _rules _children _visits) =+ (sem_EProduction_EProduction _con _params _constraints (sem_ERules _rules) (sem_EChildren _children) (sem_Visits _visits))+-- semantic domain+newtype T_EProduction = T_EProduction ((Map VisitIdentifier (Int,Int)) ->+ (Map NontermIdent Attributes) ->+ (Map NontermIdent Int) ->+ (Map NontermIdent Attributes) ->+ (Map VisitIdentifier VisitKind) ->+ (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))) ->+ (Set StateIdentifier) ->+ (Map VisitIdentifier (Set Identifier)) ->+ (Map VisitIdentifier (Set Identifier)) ->+ ClassContext ->+ PP_Doc ->+ Attributes ->+ StateIdentifier ->+ (Map ConstructorIdent (Map Identifier Type)) ->+ String ->+ String ->+ (String -> String -> String -> Bool -> String) ->+ (Map StateIdentifier StateCtx) ->+ NontermIdent ->+ Type ->+ Options ->+ ([Identifier]) ->+ String ->+ (Map StateIdentifier StateCtx) ->+ Bool ->+ Attributes ->+ PP_Doc ->+ ( ([VisitStateState]),(Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),Int,PP_Doc,(Seq Error),(Map VisitIdentifier (Int,Int)),(IO ()),([PP_Doc]),(Seq PP_Doc),(Seq PP_Doc),PP_Doc,PP_Doc,PP_Doc,(Map VisitIdentifier VisitKind),(Map VisitIdentifier (Set Identifier)),(Map VisitIdentifier (Set Identifier))))+data Inh_EProduction = Inh_EProduction {allFromToStates_Inh_EProduction :: (Map VisitIdentifier (Int,Int)),allInhmap_Inh_EProduction :: (Map NontermIdent Attributes),allInitStates_Inh_EProduction :: (Map NontermIdent Int),allSynmap_Inh_EProduction :: (Map NontermIdent Attributes),allVisitKinds_Inh_EProduction :: (Map VisitIdentifier VisitKind),allchildvisit_Inh_EProduction :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),allstates_Inh_EProduction :: (Set StateIdentifier),avisitdefs_Inh_EProduction :: (Map VisitIdentifier (Set Identifier)),avisituses_Inh_EProduction :: (Map VisitIdentifier (Set Identifier)),classCtxs_Inh_EProduction :: ClassContext,importBlocks_Inh_EProduction :: PP_Doc,inhmap_Inh_EProduction :: Attributes,initial_Inh_EProduction :: StateIdentifier,localAttrTypes_Inh_EProduction :: (Map ConstructorIdent (Map Identifier Type)),mainFile_Inh_EProduction :: String,mainName_Inh_EProduction :: String,moduleHeader_Inh_EProduction :: (String -> String -> String -> Bool -> String),nextVisits_Inh_EProduction :: (Map StateIdentifier StateCtx),nt_Inh_EProduction :: NontermIdent,ntType_Inh_EProduction :: Type,options_Inh_EProduction :: Options,params_Inh_EProduction :: ([Identifier]),pragmaBlocks_Inh_EProduction :: String,prevVisits_Inh_EProduction :: (Map StateIdentifier StateCtx),rename_Inh_EProduction :: Bool,synmap_Inh_EProduction :: Attributes,textBlocks_Inh_EProduction :: PP_Doc}+data Syn_EProduction = Syn_EProduction {allvisits_Syn_EProduction :: ([VisitStateState]),childvisit_Syn_EProduction :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),count_Syn_EProduction :: Int,datatype_Syn_EProduction :: PP_Doc,errors_Syn_EProduction :: (Seq Error),fromToStates_Syn_EProduction :: (Map VisitIdentifier (Int,Int)),genProdIO_Syn_EProduction :: (IO ()),imports_Syn_EProduction :: ([PP_Doc]),semFunBndDefs_Syn_EProduction :: (Seq PP_Doc),semFunBndTps_Syn_EProduction :: (Seq PP_Doc),sem_nt_Syn_EProduction :: PP_Doc,sem_prod_Syn_EProduction :: PP_Doc,t_visits_Syn_EProduction :: PP_Doc,visitKinds_Syn_EProduction :: (Map VisitIdentifier VisitKind),visitdefs_Syn_EProduction :: (Map VisitIdentifier (Set Identifier)),visituses_Syn_EProduction :: (Map VisitIdentifier (Set Identifier))}+wrap_EProduction :: T_EProduction ->+ Inh_EProduction ->+ Syn_EProduction+wrap_EProduction (T_EProduction sem) (Inh_EProduction _lhsIallFromToStates _lhsIallInhmap _lhsIallInitStates _lhsIallSynmap _lhsIallVisitKinds _lhsIallchildvisit _lhsIallstates _lhsIavisitdefs _lhsIavisituses _lhsIclassCtxs _lhsIimportBlocks _lhsIinhmap _lhsIinitial _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInextVisits _lhsInt _lhsIntType _lhsIoptions _lhsIparams _lhsIpragmaBlocks _lhsIprevVisits _lhsIrename _lhsIsynmap _lhsItextBlocks) =+ (let ( _lhsOallvisits,_lhsOchildvisit,_lhsOcount,_lhsOdatatype,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOsem_nt,_lhsOsem_prod,_lhsOt_visits,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses) = sem _lhsIallFromToStates _lhsIallInhmap _lhsIallInitStates _lhsIallSynmap _lhsIallVisitKinds _lhsIallchildvisit _lhsIallstates _lhsIavisitdefs _lhsIavisituses _lhsIclassCtxs _lhsIimportBlocks _lhsIinhmap _lhsIinitial _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInextVisits _lhsInt _lhsIntType _lhsIoptions _lhsIparams _lhsIpragmaBlocks _lhsIprevVisits _lhsIrename _lhsIsynmap _lhsItextBlocks+ in (Syn_EProduction _lhsOallvisits _lhsOchildvisit _lhsOcount _lhsOdatatype _lhsOerrors _lhsOfromToStates _lhsOgenProdIO _lhsOimports _lhsOsemFunBndDefs _lhsOsemFunBndTps _lhsOsem_nt _lhsOsem_prod _lhsOt_visits _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses))+sem_EProduction_EProduction :: ConstructorIdent ->+ ([Identifier]) ->+ ([Type]) ->+ T_ERules ->+ T_EChildren ->+ T_Visits ->+ T_EProduction+sem_EProduction_EProduction con_ params_ constraints_ (T_ERules rules_) (T_EChildren children_) (T_Visits visits_) =+ (T_EProduction (\ _lhsIallFromToStates+ _lhsIallInhmap+ _lhsIallInitStates+ _lhsIallSynmap+ _lhsIallVisitKinds+ _lhsIallchildvisit+ _lhsIallstates+ _lhsIavisitdefs+ _lhsIavisituses+ _lhsIclassCtxs+ _lhsIimportBlocks+ _lhsIinhmap+ _lhsIinitial+ _lhsIlocalAttrTypes+ _lhsImainFile+ _lhsImainName+ _lhsImoduleHeader+ _lhsInextVisits+ _lhsInt+ _lhsIntType+ _lhsIoptions+ _lhsIparams+ _lhsIpragmaBlocks+ _lhsIprevVisits+ _lhsIrename+ _lhsIsynmap+ _lhsItextBlocks ->+ (let _childrenOcon :: ConstructorIdent+ _rulesOcon :: ConstructorIdent+ _visitsOcon :: ConstructorIdent+ _lhsOdatatype :: PP_Doc+ _lhsOcount :: Int+ _lhsOsem_nt :: PP_Doc+ _lhsOsemFunBndDefs :: (Seq PP_Doc)+ _lhsOsemFunBndTps :: (Seq PP_Doc)+ _visitsOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))+ _visitsOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))+ _rulesOusageInfo :: (Map Identifier Int)+ _rulesOruleKinds :: (Map Identifier (Set VisitKind))+ _visitsOallintramap :: (Map StateIdentifier (Map String (Maybe NonLocalAttr)))+ _visitsOterminaldefs :: (Set String)+ _visitsOruledefs :: (Map Identifier (Set String))+ _visitsOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))+ _lhsOimports :: ([PP_Doc])+ _lhsOgenProdIO :: (IO ())+ _lhsOchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _lhsOerrors :: (Seq Error)+ _lhsOfromToStates :: (Map VisitIdentifier (Int,Int))+ _lhsOt_visits :: PP_Doc+ _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)+ _lhsOvisitdefs :: (Map VisitIdentifier (Set Identifier))+ _lhsOvisituses :: (Map VisitIdentifier (Set Identifier))+ _lhsOallvisits :: ([VisitStateState])+ _lhsOsem_prod :: PP_Doc+ _rulesOallInhmap :: (Map NontermIdent Attributes)+ _rulesOallSynmap :: (Map NontermIdent Attributes)+ _rulesOchildTypes :: (Map Identifier Type)+ _rulesOimportBlocks :: PP_Doc+ _rulesOinhmap :: Attributes+ _rulesOlazyIntras :: (Set String)+ _rulesOlocalAttrTypes :: (Map Identifier Type)+ _rulesOmainFile :: String+ _rulesOmainName :: String+ _rulesOmoduleHeader :: (String -> String -> String -> Bool -> String)+ _rulesOnt :: NontermIdent+ _rulesOoptions :: Options+ _rulesOpragmaBlocks :: String+ _rulesOsynmap :: Attributes+ _rulesOtextBlocks :: PP_Doc+ _childrenOallInitStates :: (Map NontermIdent Int)+ _childrenOimportBlocks :: PP_Doc+ _childrenOmainFile :: String+ _childrenOmainName :: String+ _childrenOmoduleHeader :: (String -> String -> String -> Bool -> String)+ _childrenOnt :: NontermIdent+ _childrenOoptions :: Options+ _childrenOpragmaBlocks :: String+ _childrenOtextBlocks :: PP_Doc+ _visitsOallFromToStates :: (Map VisitIdentifier (Int,Int))+ _visitsOallInhmap :: (Map NontermIdent Attributes)+ _visitsOallInitStates :: (Map NontermIdent Int)+ _visitsOallSynmap :: (Map NontermIdent Attributes)+ _visitsOallVisitKinds :: (Map VisitIdentifier VisitKind)+ _visitsOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _visitsOavisitdefs :: (Map VisitIdentifier (Set Identifier))+ _visitsOavisituses :: (Map VisitIdentifier (Set Identifier))+ _visitsOchildTypes :: (Map Identifier Type)+ _visitsOinhmap :: Attributes+ _visitsOnextVisits :: (Map StateIdentifier StateCtx)+ _visitsOnt :: NontermIdent+ _visitsOoptions :: Options+ _visitsOparams :: ([Identifier])+ _visitsOprevVisits :: (Map StateIdentifier StateCtx)+ _visitsOsynmap :: Attributes+ _rulesIerrors :: (Seq Error)+ _rulesImrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))+ _rulesIruledefs :: (Map Identifier (Set String))+ _rulesIruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))+ _rulesIsem_rules :: PP_Doc+ _childrenIargnamesw :: ([PP_Doc])+ _childrenIargpats :: ( [PP_Doc] )+ _childrenIargtps :: ( [PP_Doc] )+ _childrenIchildTypes :: (Map Identifier Type)+ _childrenIchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))+ _childrenIdatatype :: ([PP_Doc])+ _childrenIterminaldefs :: (Set String)+ _visitsIallvisits :: ([VisitStateState])+ _visitsIchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _visitsIerrors :: (Seq Error)+ _visitsIfromToStates :: (Map VisitIdentifier (Int,Int))+ _visitsIintramap :: (Map StateIdentifier (Map String (Maybe NonLocalAttr)))+ _visitsIlazyIntras :: (Set String)+ _visitsIruleKinds :: (Map Identifier (Set VisitKind))+ _visitsIruleUsage :: (Map Identifier Int)+ _visitsIsem_visit :: ( [(StateIdentifier,Bool -> PP_Doc)] )+ _visitsIt_visits :: PP_Doc+ _visitsIvisitKinds :: (Map VisitIdentifier VisitKind)+ _visitsIvisitdefs :: (Map VisitIdentifier (Set Identifier))+ _visitsIvisituses :: (Map VisitIdentifier (Set Identifier))+ -- "src-ag/ExecutionPlan2Hs.ag"(line 69, column 17)+ _childrenOcon =+ ({-# LINE 69 "src-ag/ExecutionPlan2Hs.ag" #-}+ con_+ {-# LINE 2857 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 70, column 17)+ _rulesOcon =+ ({-# LINE 70 "src-ag/ExecutionPlan2Hs.ag" #-}+ con_+ {-# LINE 2863 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 71, column 17)+ _visitsOcon =+ ({-# LINE 71 "src-ag/ExecutionPlan2Hs.ag" #-}+ con_+ {-# LINE 2869 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 184, column 17)+ _lhsOdatatype =+ ({-# LINE 184 "src-ag/ExecutionPlan2Hs.ag" #-}+ _quantPP1 >#< _classPP1+ >#< conname _lhsIrename _lhsInt con_+ >#< ppConFields (dataRecords _lhsIoptions) _childrenIdatatype+ {-# LINE 2877 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 187, column 17)+ _classPP1 =+ ({-# LINE 187 "src-ag/ExecutionPlan2Hs.ag" #-}+ ppClasses (classConstrsToDocs constraints_)+ {-# LINE 2883 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 188, column 17)+ _quantPP1 =+ ({-# LINE 188 "src-ag/ExecutionPlan2Hs.ag" #-}+ ppQuants params_+ {-# LINE 2889 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 289, column 32)+ _lhsOcount =+ ({-# LINE 289 "src-ag/ExecutionPlan2Hs.ag" #-}+ 1+ {-# LINE 2895 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 294, column 17)+ _lhsOsem_nt =+ ({-# LINE 294 "src-ag/ExecutionPlan2Hs.ag" #-}+ "sem_" >|< _lhsInt >#< "(" >#< conname _lhsIrename _lhsInt con_ >#< ppSpaced _childrenIargpats >#< ")"+ >#< "=" >#< "sem_" >|< _lhsInt >|< "_" >|< con_ >#< ppSpaced _childrenIargnamesw+ {-# LINE 2902 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 524, column 3)+ _lhsOsemFunBndDefs =+ ({-# LINE 524 "src-ag/ExecutionPlan2Hs.ag" #-}+ Seq.singleton _semFunBndDef+ {-# LINE 2908 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 525, column 3)+ _lhsOsemFunBndTps =+ ({-# LINE 525 "src-ag/ExecutionPlan2Hs.ag" #-}+ Seq.singleton _semFunBndTp+ {-# LINE 2914 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 526, column 3)+ _semFunBndDef =+ ({-# LINE 526 "src-ag/ExecutionPlan2Hs.ag" #-}+ _semFunBndNm >#< "=" >#< _semname+ {-# LINE 2920 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 527, column 3)+ _semFunBndTp =+ ({-# LINE 527 "src-ag/ExecutionPlan2Hs.ag" #-}+ _semFunBndNm >#< "::" >#< _sem_tp+ {-# LINE 2926 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 528, column 3)+ _semFunBndNm =+ ({-# LINE 528 "src-ag/ExecutionPlan2Hs.ag" #-}+ lateSemConLabel _lhsInt con_+ {-# LINE 2932 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 586, column 17)+ _t_type =+ ({-# LINE 586 "src-ag/ExecutionPlan2Hs.ag" #-}+ "T_" >|< _lhsInt+ {-# LINE 2938 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 587, column 17)+ _t_params =+ ({-# LINE 587 "src-ag/ExecutionPlan2Hs.ag" #-}+ ppSpaced _lhsIparams+ {-# LINE 2944 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 588, column 17)+ _args =+ ({-# LINE 588 "src-ag/ExecutionPlan2Hs.ag" #-}+ _childrenIargpats+ {-# LINE 2950 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 589, column 17)+ _semname =+ ({-# LINE 589 "src-ag/ExecutionPlan2Hs.ag" #-}+ "sem_" ++ show _lhsInt ++ "_" ++ show con_+ {-# LINE 2956 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 590, column 17)+ _sem_tp =+ ({-# LINE 590 "src-ag/ExecutionPlan2Hs.ag" #-}+ _quantPP2 >#< _classPP2 >#< ppSpaced _childrenIargtps >#< _t_type >#< _t_params+ {-# LINE 2962 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 591, column 17)+ _classPP2 =+ ({-# LINE 591 "src-ag/ExecutionPlan2Hs.ag" #-}+ ppClasses (classCtxsToDocs _lhsIclassCtxs ++ classConstrsToDocs constraints_)+ {-# LINE 2968 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 592, column 17)+ _quantPP2 =+ ({-# LINE 592 "src-ag/ExecutionPlan2Hs.ag" #-}+ ppQuants (_lhsIparams ++ params_)+ {-# LINE 2974 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 593, column 17)+ _sem_prod =+ ({-# LINE 593 "src-ag/ExecutionPlan2Hs.ag" #-}+ _semInlinePragma+ >-< _semname >#< "::" >#< _sem_tp+ >-< _mkSemBody (_semname >#< ppSpaced _args >#< "=" >#< _scc >#< _t_type )+ _mbInitializer _outerlet ("return" >#< "st" >|< _lhsIinitial)+ {-# LINE 2983 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 597, column 17)+ _mkSemBody =+ ({-# LINE 597 "src-ag/ExecutionPlan2Hs.ag" #-}+ \prefix mbInit outerlet ret ->+ case mbInit of+ Nothing -> prefix >#< pp_parens ret >#< "where"+ >-< indent 3 outerlet+ Just m -> prefix >#< "(" >#< "do"+ >-< indent 1 (+ m+ >-< "let"+ >-< indent 2 outerlet+ >-< ret )+ >-< indent 1 ")"+ {-# LINE 2999 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 609, column 17)+ _mbInitializer =+ ({-# LINE 609 "src-ag/ExecutionPlan2Hs.ag" #-}+ if parallelInvoke _lhsIoptions+ then (Nothing :: Maybe PP_Doc)+ else Nothing+ {-# LINE 3007 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 615, column 17)+ _scc =+ ({-# LINE 615 "src-ag/ExecutionPlan2Hs.ag" #-}+ if genCostCentres _lhsIoptions+ then ppCostCentre _semname+ else empty+ {-# LINE 3015 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 618, column 17)+ _semInlinePragma =+ ({-# LINE 618 "src-ag/ExecutionPlan2Hs.ag" #-}+ if noInlinePragmas _lhsIoptions+ then empty+ else ppNoInline _semname+ {-# LINE 3023 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 621, column 17)+ _outerlet =+ ({-# LINE 621 "src-ag/ExecutionPlan2Hs.ag" #-}+ vlist _statefns >-< _rulesIsem_rules+ {-# LINE 3029 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 622, column 17)+ _statefns =+ ({-# LINE 622 "src-ag/ExecutionPlan2Hs.ag" #-}+ map _genstfn $ Set.toList _lhsIallstates+ {-# LINE 3035 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 623, column 17)+ _genstfn =+ ({-# LINE 623 "src-ag/ExecutionPlan2Hs.ag" #-}+ \st -> let nextVisitInfo = Map.findWithDefault ManyVis st _lhsInextVisits+ prevVisitInfo = Map.findWithDefault ManyVis st _lhsIprevVisits+ stNm = "st" >|< st+ lhs = pragma >-< bang stNm >#< "=" >#<+ (+ if st == _lhsIinitial+ then empty+ else "\\" >#< _stargs st >#< "->"+ )+ pragma = if noInlinePragmas _lhsIoptions+ then empty+ else if helpInlining _lhsIoptions+ then case prevVisitInfo of+ ManyVis -> ppNoInline stNm+ OneVis _ -> if aggressiveInlinePragmas _lhsIoptions+ then ppInline stNm+ else ppInlinable stNm+ NoneVis -> if st /= _lhsIinitial+ then error ("State " ++ show st ++ " is not reachable from the initial state.")+ else if aggressiveInlinePragmas _lhsIoptions+ then ppInline stNm+ else ppInlinable stNm+ else ppNoInline stNm+ cCon = "C_" >|< _lhsInt >|< "_s" >|< st+ bang | st == _lhsIinitial = _addbang+ | otherwise = id+ in case nextVisitInfo of+ NoneVis ->+ if st == _lhsIinitial+ then lhs >#< cCon+ else empty+ OneVis vId -> mklet lhs (_stvs st False) (cCon >#< "v" >|< vId)+ ManyVis -> mklet lhs (_stks st >-< _stvs st True) (cCon >#< "k" >|< st)+ {-# LINE 3073 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 665, column 17)+ _stargs =+ ({-# LINE 665 "src-ag/ExecutionPlan2Hs.ag" #-}+ \st -> let attrs = maybe Map.empty id $ Map.lookup st _visitsIintramap+ in ppSpaced [ let match | str `Set.member` _lazyIntras = pp str+ | otherwise = _addbang (pp str)+ in case mbAttr of+ Just (AttrSyn child nm) | child == _LOC && not (noPerStateTypeSigs _lhsIoptions) ->+ case Map.lookup nm _localAttrTypes of+ Just tp -> pp_parens (pp_parens match >#< "::" >#< ppTp tp)+ Nothing -> match+ Just attr | not (noPerStateTypeSigs _lhsIoptions) ->+ case lookupAttrType attr _lhsIallInhmap _lhsIallSynmap _childTypes of+ Just tpDoc -> pp_parens (pp_parens match >#< "::" >#< tpDoc)+ Nothing -> match+ _ -> match+ | (str,mbAttr) <- Map.assocs attrs+ ] >#< dummyPat _lhsIoptions (Map.null attrs)+ {-# LINE 3093 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 681, column 17)+ _stks =+ ({-# LINE 681 "src-ag/ExecutionPlan2Hs.ag" #-}+ \st -> if null (_stvisits st)+ then empty+ else ( if not (noInlinePragmas _lhsIoptions) && helpInlining _lhsIoptions+ then ppNoInline ("k" >|< st)+ else empty+ )+ >-< "k" >|< st >#< "::" >#< "K_" >|< _lhsInt >|< "_s" >|< st >#< "t" >#< "->" >#< "t"+ >-< vlist (map (\(v,f,t) -> "k" >|< st >#< "K_" >|< _lhsInt >|< "_v" >|< v >#< "="+ >#< "v" >|< v) $ _stvisits st)+ {-# LINE 3107 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 690, column 17)+ _stvisits =+ ({-# LINE 690 "src-ag/ExecutionPlan2Hs.ag" #-}+ \st -> filter (\(v,f,t) -> f == st) _visitsIallvisits+ {-# LINE 3113 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 691, column 17)+ _stvs =+ ({-# LINE 691 "src-ag/ExecutionPlan2Hs.ag" #-}+ \st inlinePragma -> vlist [ppf inlinePragma | (f,ppf) <- _visitsIsem_visit, f == st]+ {-# LINE 3119 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 692, column 17)+ _visitsOmrules =+ ({-# LINE 692 "src-ag/ExecutionPlan2Hs.ag" #-}+ _rulesImrules+ {-# LINE 3125 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 896, column 17)+ _visitsOchildintros =+ ({-# LINE 896 "src-ag/ExecutionPlan2Hs.ag" #-}+ _childrenIchildintros+ {-# LINE 3131 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1246, column 32)+ _rulesOusageInfo =+ ({-# LINE 1246 "src-ag/ExecutionPlan2Hs.ag" #-}+ _visitsIruleUsage+ {-# LINE 3137 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1261, column 3)+ _rulesOruleKinds =+ ({-# LINE 1261 "src-ag/ExecutionPlan2Hs.ag" #-}+ _visitsIruleKinds+ {-# LINE 3143 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1290, column 3)+ _visitsOallintramap =+ ({-# LINE 1290 "src-ag/ExecutionPlan2Hs.ag" #-}+ _visitsIintramap+ {-# LINE 3149 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1291, column 3)+ _visitsOterminaldefs =+ ({-# LINE 1291 "src-ag/ExecutionPlan2Hs.ag" #-}+ _childrenIterminaldefs+ {-# LINE 3155 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1315, column 17)+ _visitsOruledefs =+ ({-# LINE 1315 "src-ag/ExecutionPlan2Hs.ag" #-}+ _rulesIruledefs+ {-# LINE 3161 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1316, column 17)+ _visitsOruleuses =+ ({-# LINE 1316 "src-ag/ExecutionPlan2Hs.ag" #-}+ _rulesIruleuses+ {-# LINE 3167 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1370, column 3)+ _lazyIntras =+ ({-# LINE 1370 "src-ag/ExecutionPlan2Hs.ag" #-}+ _visitsIlazyIntras+ {-# LINE 3173 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1467, column 17)+ _lhsOimports =+ ({-# LINE 1467 "src-ag/ExecutionPlan2Hs.ag" #-}+ [pp $ "import " ++ _moduleName ]+ {-# LINE 3179 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1468, column 17)+ _moduleName =+ ({-# LINE 1468 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainName ++ _suffix+ {-# LINE 3185 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1469, column 17)+ _suffix =+ ({-# LINE 1469 "src-ag/ExecutionPlan2Hs.ag" #-}+ "_" ++ show _lhsInt ++ "_" ++ show con_+ {-# LINE 3191 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1470, column 17)+ _outputfile =+ ({-# LINE 1470 "src-ag/ExecutionPlan2Hs.ag" #-}+ replaceBaseName _lhsImainFile (takeBaseName _lhsImainFile ++ _suffix )+ {-# LINE 3197 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1471, column 17)+ _ppMonadImports =+ ({-# LINE 1471 "src-ag/ExecutionPlan2Hs.ag" #-}+ if parallelInvoke _lhsIoptions+ then pp "import qualified System.IO.Unsafe(unsafePerformIO)"+ >-< pp "import System.IO(IO)"+ >-< pp "import Control.Concurrent(newEmptyMVar,forkIO,putMVar,takeMVar)"+ else pp "import Control.Monad.Identity"+ {-# LINE 3207 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1476, column 17)+ _lhsOgenProdIO =+ ({-# LINE 1476 "src-ag/ExecutionPlan2Hs.ag" #-}+ writeModule _outputfile+ [ warrenFlagsPP _lhsIoptions+ , pp $ _lhsIpragmaBlocks+ , pp $ _lhsImoduleHeader _lhsImainName _suffix _semname True+ , _lhsIimportBlocks+ , _ppMonadImports+ , ( if tupleAsDummyToken _lhsIoptions+ then empty+ else pp "import GHC.Prim"+ )+ , pp $ "import " ++ _lhsImainName ++ "_common"+ , _sem_prod+ ]+ {-# LINE 3225 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1517, column 37)+ _addbang =+ ({-# LINE 1517 "src-ag/ExecutionPlan2Hs.ag" #-}+ \x -> if bangpats _lhsIoptions then "!" >|< x else x+ {-# LINE 3231 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1567, column 3)+ _childTypes =+ ({-# LINE 1567 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.singleton _LHS _lhsIntType `Map.union` _childrenIchildTypes+ {-# LINE 3237 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1584, column 3)+ _localAttrTypes =+ ({-# LINE 1584 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.findWithDefault Map.empty con_ _lhsIlocalAttrTypes+ {-# LINE 3243 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1187, column 37)+ _lhsOchildvisit =+ ({-# LINE 1187 "src-ag/ExecutionPlan2Hs.ag" #-}+ _visitsIchildvisit+ {-# LINE 3249 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)+ _lhsOerrors =+ ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}+ _rulesIerrors Seq.>< _visitsIerrors+ {-# LINE 3255 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1544, column 22)+ _lhsOfromToStates =+ ({-# LINE 1544 "src-ag/ExecutionPlan2Hs.ag" #-}+ _visitsIfromToStates+ {-# LINE 3261 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 394, column 59)+ _lhsOt_visits =+ ({-# LINE 394 "src-ag/ExecutionPlan2Hs.ag" #-}+ _visitsIt_visits+ {-# LINE 3267 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)+ _lhsOvisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _visitsIvisitKinds+ {-# LINE 3273 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1322, column 36)+ _lhsOvisitdefs =+ ({-# LINE 1322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _visitsIvisitdefs+ {-# LINE 3279 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1323, column 36)+ _lhsOvisituses =+ ({-# LINE 1323 "src-ag/ExecutionPlan2Hs.ag" #-}+ _visitsIvisituses+ {-# LINE 3285 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (up)+ _lhsOallvisits =+ ({-# LINE 338 "src-ag/ExecutionPlan2Hs.ag" #-}+ _visitsIallvisits+ {-# LINE 3291 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (from local)+ _lhsOsem_prod =+ ({-# LINE 553 "src-ag/ExecutionPlan2Hs.ag" #-}+ _sem_prod+ {-# LINE 3297 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _rulesOallInhmap =+ ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInhmap+ {-# LINE 3303 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _rulesOallSynmap =+ ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallSynmap+ {-# LINE 3309 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (from local)+ _rulesOchildTypes =+ ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}+ _childTypes+ {-# LINE 3315 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _rulesOimportBlocks =+ ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIimportBlocks+ {-# LINE 3321 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _rulesOinhmap =+ ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinhmap+ {-# LINE 3327 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (from local)+ _rulesOlazyIntras =+ ({-# LINE 1356 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lazyIntras+ {-# LINE 3333 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (from local)+ _rulesOlocalAttrTypes =+ ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}+ _localAttrTypes+ {-# LINE 3339 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _rulesOmainFile =+ ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainFile+ {-# LINE 3345 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _rulesOmainName =+ ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainName+ {-# LINE 3351 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _rulesOmoduleHeader =+ ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImoduleHeader+ {-# LINE 3357 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _rulesOnt =+ ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsInt+ {-# LINE 3363 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _rulesOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 3369 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _rulesOpragmaBlocks =+ ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIpragmaBlocks+ {-# LINE 3375 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _rulesOsynmap =+ ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIsynmap+ {-# LINE 3381 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _rulesOtextBlocks =+ ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsItextBlocks+ {-# LINE 3387 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _childrenOallInitStates =+ ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInitStates+ {-# LINE 3393 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _childrenOimportBlocks =+ ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIimportBlocks+ {-# LINE 3399 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _childrenOmainFile =+ ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainFile+ {-# LINE 3405 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _childrenOmainName =+ ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainName+ {-# LINE 3411 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _childrenOmoduleHeader =+ ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImoduleHeader+ {-# LINE 3417 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _childrenOnt =+ ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsInt+ {-# LINE 3423 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _childrenOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 3429 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _childrenOpragmaBlocks =+ ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIpragmaBlocks+ {-# LINE 3435 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _childrenOtextBlocks =+ ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsItextBlocks+ {-# LINE 3441 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _visitsOallFromToStates =+ ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallFromToStates+ {-# LINE 3447 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _visitsOallInhmap =+ ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInhmap+ {-# LINE 3453 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _visitsOallInitStates =+ ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInitStates+ {-# LINE 3459 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _visitsOallSynmap =+ ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallSynmap+ {-# LINE 3465 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _visitsOallVisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallVisitKinds+ {-# LINE 3471 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _visitsOallchildvisit =+ ({-# LINE 1186 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallchildvisit+ {-# LINE 3477 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _visitsOavisitdefs =+ ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisitdefs+ {-# LINE 3483 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _visitsOavisituses =+ ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisituses+ {-# LINE 3489 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (from local)+ _visitsOchildTypes =+ ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}+ _childTypes+ {-# LINE 3495 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _visitsOinhmap =+ ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinhmap+ {-# LINE 3501 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _visitsOnextVisits =+ ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsInextVisits+ {-# LINE 3507 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _visitsOnt =+ ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsInt+ {-# LINE 3513 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _visitsOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 3519 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _visitsOparams =+ ({-# LINE 73 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIparams+ {-# LINE 3525 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _visitsOprevVisits =+ ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIprevVisits+ {-# LINE 3531 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _visitsOsynmap =+ ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIsynmap+ {-# LINE 3537 "dist/build/ExecutionPlan2Hs" #-}+ )+ ( _rulesIerrors,_rulesImrules,_rulesIruledefs,_rulesIruleuses,_rulesIsem_rules) =+ rules_ _rulesOallInhmap _rulesOallSynmap _rulesOchildTypes _rulesOcon _rulesOimportBlocks _rulesOinhmap _rulesOlazyIntras _rulesOlocalAttrTypes _rulesOmainFile _rulesOmainName _rulesOmoduleHeader _rulesOnt _rulesOoptions _rulesOpragmaBlocks _rulesOruleKinds _rulesOsynmap _rulesOtextBlocks _rulesOusageInfo+ ( _childrenIargnamesw,_childrenIargpats,_childrenIargtps,_childrenIchildTypes,_childrenIchildintros,_childrenIdatatype,_childrenIterminaldefs) =+ children_ _childrenOallInitStates _childrenOcon _childrenOimportBlocks _childrenOmainFile _childrenOmainName _childrenOmoduleHeader _childrenOnt _childrenOoptions _childrenOpragmaBlocks _childrenOtextBlocks+ ( _visitsIallvisits,_visitsIchildvisit,_visitsIerrors,_visitsIfromToStates,_visitsIintramap,_visitsIlazyIntras,_visitsIruleKinds,_visitsIruleUsage,_visitsIsem_visit,_visitsIt_visits,_visitsIvisitKinds,_visitsIvisitdefs,_visitsIvisituses) =+ visits_ _visitsOallFromToStates _visitsOallInhmap _visitsOallInitStates _visitsOallSynmap _visitsOallVisitKinds _visitsOallchildvisit _visitsOallintramap _visitsOavisitdefs _visitsOavisituses _visitsOchildTypes _visitsOchildintros _visitsOcon _visitsOinhmap _visitsOmrules _visitsOnextVisits _visitsOnt _visitsOoptions _visitsOparams _visitsOprevVisits _visitsOruledefs _visitsOruleuses _visitsOsynmap _visitsOterminaldefs+ ___node =+ (Syn_EProduction _lhsOallvisits _lhsOchildvisit _lhsOcount _lhsOdatatype _lhsOerrors _lhsOfromToStates _lhsOgenProdIO _lhsOimports _lhsOsemFunBndDefs _lhsOsemFunBndTps _lhsOsem_nt _lhsOsem_prod _lhsOt_visits _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses)+ in ( _lhsOallvisits,_lhsOchildvisit,_lhsOcount,_lhsOdatatype,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOsem_nt,_lhsOsem_prod,_lhsOt_visits,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses))))+-- EProductions ------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allFromToStates : Map VisitIdentifier (Int,Int)+ allInhmap : Map NontermIdent Attributes+ allInitStates : Map NontermIdent Int+ allSynmap : Map NontermIdent Attributes+ allVisitKinds : Map VisitIdentifier VisitKind+ allchildvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))+ allstates : Set StateIdentifier+ avisitdefs : Map VisitIdentifier (Set Identifier)+ avisituses : Map VisitIdentifier (Set Identifier)+ classCtxs : ClassContext+ importBlocks : PP_Doc+ inhmap : Attributes+ initial : StateIdentifier+ localAttrTypes : Map ConstructorIdent (Map Identifier Type)+ mainFile : String+ mainName : String+ moduleHeader : String -> String -> String -> Bool -> String+ nextVisits : Map StateIdentifier StateCtx+ nt : NontermIdent+ ntType : Type+ options : Options+ params : [Identifier]+ pragmaBlocks : String+ prevVisits : Map StateIdentifier StateCtx+ rename : Bool+ synmap : Attributes+ textBlocks : PP_Doc+ synthesized attributes:+ allvisits : [VisitStateState]+ childvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))+ count : Int+ datatype : [PP_Doc]+ errors : Seq Error+ fromToStates : Map VisitIdentifier (Int,Int)+ genProdIO : IO ()+ imports : [PP_Doc]+ semFunBndDefs : Seq PP_Doc+ semFunBndTps : Seq PP_Doc+ sem_nt : PP_Doc+ sem_prod : PP_Doc+ t_visits : PP_Doc+ visitKinds : Map VisitIdentifier VisitKind+ visitdefs : Map VisitIdentifier (Set Identifier)+ visituses : Map VisitIdentifier (Set Identifier)+ alternatives:+ alternative Cons:+ child hd : EProduction + child tl : EProductions + alternative Nil:+-}+-- cata+sem_EProductions :: EProductions ->+ T_EProductions+sem_EProductions list =+ (Prelude.foldr sem_EProductions_Cons sem_EProductions_Nil (Prelude.map sem_EProduction list))+-- semantic domain+newtype T_EProductions = T_EProductions ((Map VisitIdentifier (Int,Int)) ->+ (Map NontermIdent Attributes) ->+ (Map NontermIdent Int) ->+ (Map NontermIdent Attributes) ->+ (Map VisitIdentifier VisitKind) ->+ (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))) ->+ (Set StateIdentifier) ->+ (Map VisitIdentifier (Set Identifier)) ->+ (Map VisitIdentifier (Set Identifier)) ->+ ClassContext ->+ PP_Doc ->+ Attributes ->+ StateIdentifier ->+ (Map ConstructorIdent (Map Identifier Type)) ->+ String ->+ String ->+ (String -> String -> String -> Bool -> String) ->+ (Map StateIdentifier StateCtx) ->+ NontermIdent ->+ Type ->+ Options ->+ ([Identifier]) ->+ String ->+ (Map StateIdentifier StateCtx) ->+ Bool ->+ Attributes ->+ PP_Doc ->+ ( ([VisitStateState]),(Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),Int,([PP_Doc]),(Seq Error),(Map VisitIdentifier (Int,Int)),(IO ()),([PP_Doc]),(Seq PP_Doc),(Seq PP_Doc),PP_Doc,PP_Doc,PP_Doc,(Map VisitIdentifier VisitKind),(Map VisitIdentifier (Set Identifier)),(Map VisitIdentifier (Set Identifier))))+data Inh_EProductions = Inh_EProductions {allFromToStates_Inh_EProductions :: (Map VisitIdentifier (Int,Int)),allInhmap_Inh_EProductions :: (Map NontermIdent Attributes),allInitStates_Inh_EProductions :: (Map NontermIdent Int),allSynmap_Inh_EProductions :: (Map NontermIdent Attributes),allVisitKinds_Inh_EProductions :: (Map VisitIdentifier VisitKind),allchildvisit_Inh_EProductions :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),allstates_Inh_EProductions :: (Set StateIdentifier),avisitdefs_Inh_EProductions :: (Map VisitIdentifier (Set Identifier)),avisituses_Inh_EProductions :: (Map VisitIdentifier (Set Identifier)),classCtxs_Inh_EProductions :: ClassContext,importBlocks_Inh_EProductions :: PP_Doc,inhmap_Inh_EProductions :: Attributes,initial_Inh_EProductions :: StateIdentifier,localAttrTypes_Inh_EProductions :: (Map ConstructorIdent (Map Identifier Type)),mainFile_Inh_EProductions :: String,mainName_Inh_EProductions :: String,moduleHeader_Inh_EProductions :: (String -> String -> String -> Bool -> String),nextVisits_Inh_EProductions :: (Map StateIdentifier StateCtx),nt_Inh_EProductions :: NontermIdent,ntType_Inh_EProductions :: Type,options_Inh_EProductions :: Options,params_Inh_EProductions :: ([Identifier]),pragmaBlocks_Inh_EProductions :: String,prevVisits_Inh_EProductions :: (Map StateIdentifier StateCtx),rename_Inh_EProductions :: Bool,synmap_Inh_EProductions :: Attributes,textBlocks_Inh_EProductions :: PP_Doc}+data Syn_EProductions = Syn_EProductions {allvisits_Syn_EProductions :: ([VisitStateState]),childvisit_Syn_EProductions :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),count_Syn_EProductions :: Int,datatype_Syn_EProductions :: ([PP_Doc]),errors_Syn_EProductions :: (Seq Error),fromToStates_Syn_EProductions :: (Map VisitIdentifier (Int,Int)),genProdIO_Syn_EProductions :: (IO ()),imports_Syn_EProductions :: ([PP_Doc]),semFunBndDefs_Syn_EProductions :: (Seq PP_Doc),semFunBndTps_Syn_EProductions :: (Seq PP_Doc),sem_nt_Syn_EProductions :: PP_Doc,sem_prod_Syn_EProductions :: PP_Doc,t_visits_Syn_EProductions :: PP_Doc,visitKinds_Syn_EProductions :: (Map VisitIdentifier VisitKind),visitdefs_Syn_EProductions :: (Map VisitIdentifier (Set Identifier)),visituses_Syn_EProductions :: (Map VisitIdentifier (Set Identifier))}+wrap_EProductions :: T_EProductions ->+ Inh_EProductions ->+ Syn_EProductions+wrap_EProductions (T_EProductions sem) (Inh_EProductions _lhsIallFromToStates _lhsIallInhmap _lhsIallInitStates _lhsIallSynmap _lhsIallVisitKinds _lhsIallchildvisit _lhsIallstates _lhsIavisitdefs _lhsIavisituses _lhsIclassCtxs _lhsIimportBlocks _lhsIinhmap _lhsIinitial _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInextVisits _lhsInt _lhsIntType _lhsIoptions _lhsIparams _lhsIpragmaBlocks _lhsIprevVisits _lhsIrename _lhsIsynmap _lhsItextBlocks) =+ (let ( _lhsOallvisits,_lhsOchildvisit,_lhsOcount,_lhsOdatatype,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOsem_nt,_lhsOsem_prod,_lhsOt_visits,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses) = sem _lhsIallFromToStates _lhsIallInhmap _lhsIallInitStates _lhsIallSynmap _lhsIallVisitKinds _lhsIallchildvisit _lhsIallstates _lhsIavisitdefs _lhsIavisituses _lhsIclassCtxs _lhsIimportBlocks _lhsIinhmap _lhsIinitial _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInextVisits _lhsInt _lhsIntType _lhsIoptions _lhsIparams _lhsIpragmaBlocks _lhsIprevVisits _lhsIrename _lhsIsynmap _lhsItextBlocks+ in (Syn_EProductions _lhsOallvisits _lhsOchildvisit _lhsOcount _lhsOdatatype _lhsOerrors _lhsOfromToStates _lhsOgenProdIO _lhsOimports _lhsOsemFunBndDefs _lhsOsemFunBndTps _lhsOsem_nt _lhsOsem_prod _lhsOt_visits _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses))+sem_EProductions_Cons :: T_EProduction ->+ T_EProductions ->+ T_EProductions+sem_EProductions_Cons (T_EProduction hd_) (T_EProductions tl_) =+ (T_EProductions (\ _lhsIallFromToStates+ _lhsIallInhmap+ _lhsIallInitStates+ _lhsIallSynmap+ _lhsIallVisitKinds+ _lhsIallchildvisit+ _lhsIallstates+ _lhsIavisitdefs+ _lhsIavisituses+ _lhsIclassCtxs+ _lhsIimportBlocks+ _lhsIinhmap+ _lhsIinitial+ _lhsIlocalAttrTypes+ _lhsImainFile+ _lhsImainName+ _lhsImoduleHeader+ _lhsInextVisits+ _lhsInt+ _lhsIntType+ _lhsIoptions+ _lhsIparams+ _lhsIpragmaBlocks+ _lhsIprevVisits+ _lhsIrename+ _lhsIsynmap+ _lhsItextBlocks ->+ (let _lhsOallvisits :: ([VisitStateState])+ _lhsOt_visits :: PP_Doc+ _lhsOchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _lhsOcount :: Int+ _lhsOdatatype :: ([PP_Doc])+ _lhsOerrors :: (Seq Error)+ _lhsOfromToStates :: (Map VisitIdentifier (Int,Int))+ _lhsOgenProdIO :: (IO ())+ _lhsOimports :: ([PP_Doc])+ _lhsOsemFunBndDefs :: (Seq PP_Doc)+ _lhsOsemFunBndTps :: (Seq PP_Doc)+ _lhsOsem_nt :: PP_Doc+ _lhsOsem_prod :: PP_Doc+ _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)+ _lhsOvisitdefs :: (Map VisitIdentifier (Set Identifier))+ _lhsOvisituses :: (Map VisitIdentifier (Set Identifier))+ _hdOallFromToStates :: (Map VisitIdentifier (Int,Int))+ _hdOallInhmap :: (Map NontermIdent Attributes)+ _hdOallInitStates :: (Map NontermIdent Int)+ _hdOallSynmap :: (Map NontermIdent Attributes)+ _hdOallVisitKinds :: (Map VisitIdentifier VisitKind)+ _hdOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _hdOallstates :: (Set StateIdentifier)+ _hdOavisitdefs :: (Map VisitIdentifier (Set Identifier))+ _hdOavisituses :: (Map VisitIdentifier (Set Identifier))+ _hdOclassCtxs :: ClassContext+ _hdOimportBlocks :: PP_Doc+ _hdOinhmap :: Attributes+ _hdOinitial :: StateIdentifier+ _hdOlocalAttrTypes :: (Map ConstructorIdent (Map Identifier Type))+ _hdOmainFile :: String+ _hdOmainName :: String+ _hdOmoduleHeader :: (String -> String -> String -> Bool -> String)+ _hdOnextVisits :: (Map StateIdentifier StateCtx)+ _hdOnt :: NontermIdent+ _hdOntType :: Type+ _hdOoptions :: Options+ _hdOparams :: ([Identifier])+ _hdOpragmaBlocks :: String+ _hdOprevVisits :: (Map StateIdentifier StateCtx)+ _hdOrename :: Bool+ _hdOsynmap :: Attributes+ _hdOtextBlocks :: PP_Doc+ _tlOallFromToStates :: (Map VisitIdentifier (Int,Int))+ _tlOallInhmap :: (Map NontermIdent Attributes)+ _tlOallInitStates :: (Map NontermIdent Int)+ _tlOallSynmap :: (Map NontermIdent Attributes)+ _tlOallVisitKinds :: (Map VisitIdentifier VisitKind)+ _tlOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _tlOallstates :: (Set StateIdentifier)+ _tlOavisitdefs :: (Map VisitIdentifier (Set Identifier))+ _tlOavisituses :: (Map VisitIdentifier (Set Identifier))+ _tlOclassCtxs :: ClassContext+ _tlOimportBlocks :: PP_Doc+ _tlOinhmap :: Attributes+ _tlOinitial :: StateIdentifier+ _tlOlocalAttrTypes :: (Map ConstructorIdent (Map Identifier Type))+ _tlOmainFile :: String+ _tlOmainName :: String+ _tlOmoduleHeader :: (String -> String -> String -> Bool -> String)+ _tlOnextVisits :: (Map StateIdentifier StateCtx)+ _tlOnt :: NontermIdent+ _tlOntType :: Type+ _tlOoptions :: Options+ _tlOparams :: ([Identifier])+ _tlOpragmaBlocks :: String+ _tlOprevVisits :: (Map StateIdentifier StateCtx)+ _tlOrename :: Bool+ _tlOsynmap :: Attributes+ _tlOtextBlocks :: PP_Doc+ _hdIallvisits :: ([VisitStateState])+ _hdIchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _hdIcount :: Int+ _hdIdatatype :: PP_Doc+ _hdIerrors :: (Seq Error)+ _hdIfromToStates :: (Map VisitIdentifier (Int,Int))+ _hdIgenProdIO :: (IO ())+ _hdIimports :: ([PP_Doc])+ _hdIsemFunBndDefs :: (Seq PP_Doc)+ _hdIsemFunBndTps :: (Seq PP_Doc)+ _hdIsem_nt :: PP_Doc+ _hdIsem_prod :: PP_Doc+ _hdIt_visits :: PP_Doc+ _hdIvisitKinds :: (Map VisitIdentifier VisitKind)+ _hdIvisitdefs :: (Map VisitIdentifier (Set Identifier))+ _hdIvisituses :: (Map VisitIdentifier (Set Identifier))+ _tlIallvisits :: ([VisitStateState])+ _tlIchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _tlIcount :: Int+ _tlIdatatype :: ([PP_Doc])+ _tlIerrors :: (Seq Error)+ _tlIfromToStates :: (Map VisitIdentifier (Int,Int))+ _tlIgenProdIO :: (IO ())+ _tlIimports :: ([PP_Doc])+ _tlIsemFunBndDefs :: (Seq PP_Doc)+ _tlIsemFunBndTps :: (Seq PP_Doc)+ _tlIsem_nt :: PP_Doc+ _tlIsem_prod :: PP_Doc+ _tlIt_visits :: PP_Doc+ _tlIvisitKinds :: (Map VisitIdentifier VisitKind)+ _tlIvisitdefs :: (Map VisitIdentifier (Set Identifier))+ _tlIvisituses :: (Map VisitIdentifier (Set Identifier))+ -- "src-ag/ExecutionPlan2Hs.ag"(line 344, column 10)+ _lhsOallvisits =+ ({-# LINE 344 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIallvisits+ {-# LINE 3781 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 397, column 10)+ _lhsOt_visits =+ ({-# LINE 397 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIt_visits+ {-# LINE 3787 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1187, column 37)+ _lhsOchildvisit =+ ({-# LINE 1187 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIchildvisit `Map.union` _tlIchildvisit+ {-# LINE 3793 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 288, column 43)+ _lhsOcount =+ ({-# LINE 288 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIcount + _tlIcount+ {-# LINE 3799 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 179, column 34)+ _lhsOdatatype =+ ({-# LINE 179 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIdatatype : _tlIdatatype+ {-# LINE 3805 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)+ _lhsOerrors =+ ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 3811 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1544, column 22)+ _lhsOfromToStates =+ ({-# LINE 1544 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIfromToStates `mappend` _tlIfromToStates+ {-# LINE 3817 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1464, column 49)+ _lhsOgenProdIO =+ ({-# LINE 1464 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIgenProdIO >> _tlIgenProdIO+ {-# LINE 3823 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1463, column 47)+ _lhsOimports =+ ({-# LINE 1463 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIimports ++ _tlIimports+ {-# LINE 3829 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 515, column 92)+ _lhsOsemFunBndDefs =+ ({-# LINE 515 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIsemFunBndDefs Seq.>< _tlIsemFunBndDefs+ {-# LINE 3835 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 515, column 92)+ _lhsOsemFunBndTps =+ ({-# LINE 515 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIsemFunBndTps Seq.>< _tlIsemFunBndTps+ {-# LINE 3841 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 292, column 44)+ _lhsOsem_nt =+ ({-# LINE 292 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIsem_nt >-< _tlIsem_nt+ {-# LINE 3847 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 554, column 34)+ _lhsOsem_prod =+ ({-# LINE 554 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIsem_prod >-< _tlIsem_prod+ {-# LINE 3853 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)+ _lhsOvisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIvisitKinds `mappend` _tlIvisitKinds+ {-# LINE 3859 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1322, column 36)+ _lhsOvisitdefs =+ ({-# LINE 1322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIvisitdefs `uwSetUnion` _tlIvisitdefs+ {-# LINE 3865 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1323, column 36)+ _lhsOvisituses =+ ({-# LINE 1323 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIvisituses `uwSetUnion` _tlIvisituses+ {-# LINE 3871 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallFromToStates =+ ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallFromToStates+ {-# LINE 3877 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallInhmap =+ ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInhmap+ {-# LINE 3883 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallInitStates =+ ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInitStates+ {-# LINE 3889 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallSynmap =+ ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallSynmap+ {-# LINE 3895 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallVisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallVisitKinds+ {-# LINE 3901 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallchildvisit =+ ({-# LINE 1186 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallchildvisit+ {-# LINE 3907 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallstates =+ ({-# LINE 557 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallstates+ {-# LINE 3913 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOavisitdefs =+ ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisitdefs+ {-# LINE 3919 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOavisituses =+ ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisituses+ {-# LINE 3925 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOclassCtxs =+ ({-# LINE 77 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIclassCtxs+ {-# LINE 3931 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOimportBlocks =+ ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIimportBlocks+ {-# LINE 3937 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOinhmap =+ ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinhmap+ {-# LINE 3943 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOinitial =+ ({-# LINE 556 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinitial+ {-# LINE 3949 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOlocalAttrTypes =+ ({-# LINE 1577 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIlocalAttrTypes+ {-# LINE 3955 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOmainFile =+ ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainFile+ {-# LINE 3961 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOmainName =+ ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainName+ {-# LINE 3967 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOmoduleHeader =+ ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImoduleHeader+ {-# LINE 3973 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOnextVisits =+ ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsInextVisits+ {-# LINE 3979 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOnt =+ ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsInt+ {-# LINE 3985 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOntType =+ ({-# LINE 1620 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIntType+ {-# LINE 3991 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 3997 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOparams =+ ({-# LINE 73 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIparams+ {-# LINE 4003 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOpragmaBlocks =+ ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIpragmaBlocks+ {-# LINE 4009 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOprevVisits =+ ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIprevVisits+ {-# LINE 4015 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOrename =+ ({-# LINE 52 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIrename+ {-# LINE 4021 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOsynmap =+ ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIsynmap+ {-# LINE 4027 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOtextBlocks =+ ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsItextBlocks+ {-# LINE 4033 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallFromToStates =+ ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallFromToStates+ {-# LINE 4039 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallInhmap =+ ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInhmap+ {-# LINE 4045 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallInitStates =+ ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInitStates+ {-# LINE 4051 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallSynmap =+ ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallSynmap+ {-# LINE 4057 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallVisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallVisitKinds+ {-# LINE 4063 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallchildvisit =+ ({-# LINE 1186 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallchildvisit+ {-# LINE 4069 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallstates =+ ({-# LINE 557 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallstates+ {-# LINE 4075 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOavisitdefs =+ ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisitdefs+ {-# LINE 4081 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOavisituses =+ ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisituses+ {-# LINE 4087 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOclassCtxs =+ ({-# LINE 77 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIclassCtxs+ {-# LINE 4093 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOimportBlocks =+ ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIimportBlocks+ {-# LINE 4099 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOinhmap =+ ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinhmap+ {-# LINE 4105 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOinitial =+ ({-# LINE 556 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinitial+ {-# LINE 4111 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOlocalAttrTypes =+ ({-# LINE 1577 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIlocalAttrTypes+ {-# LINE 4117 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOmainFile =+ ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainFile+ {-# LINE 4123 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOmainName =+ ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainName+ {-# LINE 4129 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOmoduleHeader =+ ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImoduleHeader+ {-# LINE 4135 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOnextVisits =+ ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsInextVisits+ {-# LINE 4141 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOnt =+ ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsInt+ {-# LINE 4147 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOntType =+ ({-# LINE 1620 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIntType+ {-# LINE 4153 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 4159 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOparams =+ ({-# LINE 73 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIparams+ {-# LINE 4165 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOpragmaBlocks =+ ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIpragmaBlocks+ {-# LINE 4171 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOprevVisits =+ ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIprevVisits+ {-# LINE 4177 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOrename =+ ({-# LINE 52 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIrename+ {-# LINE 4183 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOsynmap =+ ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIsynmap+ {-# LINE 4189 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOtextBlocks =+ ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsItextBlocks+ {-# LINE 4195 "dist/build/ExecutionPlan2Hs" #-}+ )+ ( _hdIallvisits,_hdIchildvisit,_hdIcount,_hdIdatatype,_hdIerrors,_hdIfromToStates,_hdIgenProdIO,_hdIimports,_hdIsemFunBndDefs,_hdIsemFunBndTps,_hdIsem_nt,_hdIsem_prod,_hdIt_visits,_hdIvisitKinds,_hdIvisitdefs,_hdIvisituses) =+ hd_ _hdOallFromToStates _hdOallInhmap _hdOallInitStates _hdOallSynmap _hdOallVisitKinds _hdOallchildvisit _hdOallstates _hdOavisitdefs _hdOavisituses _hdOclassCtxs _hdOimportBlocks _hdOinhmap _hdOinitial _hdOlocalAttrTypes _hdOmainFile _hdOmainName _hdOmoduleHeader _hdOnextVisits _hdOnt _hdOntType _hdOoptions _hdOparams _hdOpragmaBlocks _hdOprevVisits _hdOrename _hdOsynmap _hdOtextBlocks+ ( _tlIallvisits,_tlIchildvisit,_tlIcount,_tlIdatatype,_tlIerrors,_tlIfromToStates,_tlIgenProdIO,_tlIimports,_tlIsemFunBndDefs,_tlIsemFunBndTps,_tlIsem_nt,_tlIsem_prod,_tlIt_visits,_tlIvisitKinds,_tlIvisitdefs,_tlIvisituses) =+ tl_ _tlOallFromToStates _tlOallInhmap _tlOallInitStates _tlOallSynmap _tlOallVisitKinds _tlOallchildvisit _tlOallstates _tlOavisitdefs _tlOavisituses _tlOclassCtxs _tlOimportBlocks _tlOinhmap _tlOinitial _tlOlocalAttrTypes _tlOmainFile _tlOmainName _tlOmoduleHeader _tlOnextVisits _tlOnt _tlOntType _tlOoptions _tlOparams _tlOpragmaBlocks _tlOprevVisits _tlOrename _tlOsynmap _tlOtextBlocks+ ___node =+ (Syn_EProductions _lhsOallvisits _lhsOchildvisit _lhsOcount _lhsOdatatype _lhsOerrors _lhsOfromToStates _lhsOgenProdIO _lhsOimports _lhsOsemFunBndDefs _lhsOsemFunBndTps _lhsOsem_nt _lhsOsem_prod _lhsOt_visits _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses)+ in ( _lhsOallvisits,_lhsOchildvisit,_lhsOcount,_lhsOdatatype,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOsem_nt,_lhsOsem_prod,_lhsOt_visits,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses))))+sem_EProductions_Nil :: T_EProductions+sem_EProductions_Nil =+ (T_EProductions (\ _lhsIallFromToStates+ _lhsIallInhmap+ _lhsIallInitStates+ _lhsIallSynmap+ _lhsIallVisitKinds+ _lhsIallchildvisit+ _lhsIallstates+ _lhsIavisitdefs+ _lhsIavisituses+ _lhsIclassCtxs+ _lhsIimportBlocks+ _lhsIinhmap+ _lhsIinitial+ _lhsIlocalAttrTypes+ _lhsImainFile+ _lhsImainName+ _lhsImoduleHeader+ _lhsInextVisits+ _lhsInt+ _lhsIntType+ _lhsIoptions+ _lhsIparams+ _lhsIpragmaBlocks+ _lhsIprevVisits+ _lhsIrename+ _lhsIsynmap+ _lhsItextBlocks ->+ (let _lhsOallvisits :: ([VisitStateState])+ _lhsOchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _lhsOcount :: Int+ _lhsOdatatype :: ([PP_Doc])+ _lhsOerrors :: (Seq Error)+ _lhsOfromToStates :: (Map VisitIdentifier (Int,Int))+ _lhsOgenProdIO :: (IO ())+ _lhsOimports :: ([PP_Doc])+ _lhsOsemFunBndDefs :: (Seq PP_Doc)+ _lhsOsemFunBndTps :: (Seq PP_Doc)+ _lhsOsem_nt :: PP_Doc+ _lhsOsem_prod :: PP_Doc+ _lhsOt_visits :: PP_Doc+ _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)+ _lhsOvisitdefs :: (Map VisitIdentifier (Set Identifier))+ _lhsOvisituses :: (Map VisitIdentifier (Set Identifier))+ -- "src-ag/ExecutionPlan2Hs.ag"(line 345, column 10)+ _lhsOallvisits =+ ({-# LINE 345 "src-ag/ExecutionPlan2Hs.ag" #-}+ error "Every nonterminal should have at least 1 production"+ {-# LINE 4253 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1187, column 37)+ _lhsOchildvisit =+ ({-# LINE 1187 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 4259 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 288, column 43)+ _lhsOcount =+ ({-# LINE 288 "src-ag/ExecutionPlan2Hs.ag" #-}+ 0+ {-# LINE 4265 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 179, column 34)+ _lhsOdatatype =+ ({-# LINE 179 "src-ag/ExecutionPlan2Hs.ag" #-}+ []+ {-# LINE 4271 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)+ _lhsOerrors =+ ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}+ Seq.empty+ {-# LINE 4277 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1544, column 22)+ _lhsOfromToStates =+ ({-# LINE 1544 "src-ag/ExecutionPlan2Hs.ag" #-}+ mempty+ {-# LINE 4283 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1464, column 49)+ _lhsOgenProdIO =+ ({-# LINE 1464 "src-ag/ExecutionPlan2Hs.ag" #-}+ return ()+ {-# LINE 4289 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1463, column 47)+ _lhsOimports =+ ({-# LINE 1463 "src-ag/ExecutionPlan2Hs.ag" #-}+ []+ {-# LINE 4295 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 515, column 92)+ _lhsOsemFunBndDefs =+ ({-# LINE 515 "src-ag/ExecutionPlan2Hs.ag" #-}+ Seq.empty+ {-# LINE 4301 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 515, column 92)+ _lhsOsemFunBndTps =+ ({-# LINE 515 "src-ag/ExecutionPlan2Hs.ag" #-}+ Seq.empty+ {-# LINE 4307 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 292, column 44)+ _lhsOsem_nt =+ ({-# LINE 292 "src-ag/ExecutionPlan2Hs.ag" #-}+ empty+ {-# LINE 4313 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 554, column 34)+ _lhsOsem_prod =+ ({-# LINE 554 "src-ag/ExecutionPlan2Hs.ag" #-}+ empty+ {-# LINE 4319 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 394, column 59)+ _lhsOt_visits =+ ({-# LINE 394 "src-ag/ExecutionPlan2Hs.ag" #-}+ empty+ {-# LINE 4325 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)+ _lhsOvisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ mempty+ {-# LINE 4331 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1322, column 36)+ _lhsOvisitdefs =+ ({-# LINE 1322 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 4337 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1323, column 36)+ _lhsOvisituses =+ ({-# LINE 1323 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 4343 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_EProductions _lhsOallvisits _lhsOchildvisit _lhsOcount _lhsOdatatype _lhsOerrors _lhsOfromToStates _lhsOgenProdIO _lhsOimports _lhsOsemFunBndDefs _lhsOsemFunBndTps _lhsOsem_nt _lhsOsem_prod _lhsOt_visits _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses)+ in ( _lhsOallvisits,_lhsOchildvisit,_lhsOcount,_lhsOdatatype,_lhsOerrors,_lhsOfromToStates,_lhsOgenProdIO,_lhsOimports,_lhsOsemFunBndDefs,_lhsOsemFunBndTps,_lhsOsem_nt,_lhsOsem_prod,_lhsOt_visits,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses))))+-- ERule -------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allInhmap : Map NontermIdent Attributes+ allSynmap : Map NontermIdent Attributes+ childTypes : Map Identifier Type+ con : ConstructorIdent+ importBlocks : PP_Doc+ inhmap : Attributes+ lazyIntras : Set String+ localAttrTypes : Map Identifier Type+ mainFile : String+ mainName : String+ moduleHeader : String -> String -> String -> Bool -> String+ nt : NontermIdent+ options : Options+ pragmaBlocks : String+ ruleKinds : Map Identifier (Set VisitKind)+ synmap : Attributes+ textBlocks : PP_Doc+ usageInfo : Map Identifier Int+ synthesized attributes:+ errors : Seq Error+ mrules : Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)+ ruledefs : Map Identifier (Set String)+ ruleuses : Map Identifier (Map String (Maybe NonLocalAttr))+ sem_rules : PP_Doc+ alternatives:+ alternative ERule:+ child name : {Identifier}+ child pattern : Pattern + child rhs : Expression + child owrt : {Bool}+ child origin : {String}+ child explicit : {Bool}+ child pure : {Bool}+ child mbError : {Maybe Error}+ visit 0:+ local rulecode : _+ local rulePragma : _+ local scc : _+ local pragma : _+ local endpragma : _+ local genpragma : _+ local haspos : _+ local lambda : _+ local argPats : _+ local argExprs : _+ local stepcode : _+ local used : _+ local kinds : _+ local anyLazyKind : _+ local addbang : _+ local addbang1 : _+-}+-- cata+sem_ERule :: ERule ->+ T_ERule+sem_ERule (ERule _name _pattern _rhs _owrt _origin _explicit _pure _mbError) =+ (sem_ERule_ERule _name (sem_Pattern _pattern) (sem_Expression _rhs) _owrt _origin _explicit _pure _mbError)+-- semantic domain+newtype T_ERule = T_ERule ((Map NontermIdent Attributes) ->+ (Map NontermIdent Attributes) ->+ (Map Identifier Type) ->+ ConstructorIdent ->+ PP_Doc ->+ Attributes ->+ (Set String) ->+ (Map Identifier Type) ->+ String ->+ String ->+ (String -> String -> String -> Bool -> String) ->+ NontermIdent ->+ Options ->+ String ->+ (Map Identifier (Set VisitKind)) ->+ Attributes ->+ PP_Doc ->+ (Map Identifier Int) ->+ ( (Seq Error),(Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)),(Map Identifier (Set String)),(Map Identifier (Map String (Maybe NonLocalAttr))),PP_Doc))+data Inh_ERule = Inh_ERule {allInhmap_Inh_ERule :: (Map NontermIdent Attributes),allSynmap_Inh_ERule :: (Map NontermIdent Attributes),childTypes_Inh_ERule :: (Map Identifier Type),con_Inh_ERule :: ConstructorIdent,importBlocks_Inh_ERule :: PP_Doc,inhmap_Inh_ERule :: Attributes,lazyIntras_Inh_ERule :: (Set String),localAttrTypes_Inh_ERule :: (Map Identifier Type),mainFile_Inh_ERule :: String,mainName_Inh_ERule :: String,moduleHeader_Inh_ERule :: (String -> String -> String -> Bool -> String),nt_Inh_ERule :: NontermIdent,options_Inh_ERule :: Options,pragmaBlocks_Inh_ERule :: String,ruleKinds_Inh_ERule :: (Map Identifier (Set VisitKind)),synmap_Inh_ERule :: Attributes,textBlocks_Inh_ERule :: PP_Doc,usageInfo_Inh_ERule :: (Map Identifier Int)}+data Syn_ERule = Syn_ERule {errors_Syn_ERule :: (Seq Error),mrules_Syn_ERule :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)),ruledefs_Syn_ERule :: (Map Identifier (Set String)),ruleuses_Syn_ERule :: (Map Identifier (Map String (Maybe NonLocalAttr))),sem_rules_Syn_ERule :: PP_Doc}+wrap_ERule :: T_ERule ->+ Inh_ERule ->+ Syn_ERule+wrap_ERule (T_ERule sem) (Inh_ERule _lhsIallInhmap _lhsIallSynmap _lhsIchildTypes _lhsIcon _lhsIimportBlocks _lhsIinhmap _lhsIlazyIntras _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInt _lhsIoptions _lhsIpragmaBlocks _lhsIruleKinds _lhsIsynmap _lhsItextBlocks _lhsIusageInfo) =+ (let ( _lhsOerrors,_lhsOmrules,_lhsOruledefs,_lhsOruleuses,_lhsOsem_rules) = sem _lhsIallInhmap _lhsIallSynmap _lhsIchildTypes _lhsIcon _lhsIimportBlocks _lhsIinhmap _lhsIlazyIntras _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInt _lhsIoptions _lhsIpragmaBlocks _lhsIruleKinds _lhsIsynmap _lhsItextBlocks _lhsIusageInfo+ in (Syn_ERule _lhsOerrors _lhsOmrules _lhsOruledefs _lhsOruleuses _lhsOsem_rules))+sem_ERule_ERule :: Identifier ->+ T_Pattern ->+ T_Expression ->+ Bool ->+ String ->+ Bool ->+ Bool ->+ (Maybe Error) ->+ T_ERule+sem_ERule_ERule name_ (T_Pattern pattern_) (T_Expression rhs_) owrt_ origin_ explicit_ pure_ mbError_ =+ (T_ERule (\ _lhsIallInhmap+ _lhsIallSynmap+ _lhsIchildTypes+ _lhsIcon+ _lhsIimportBlocks+ _lhsIinhmap+ _lhsIlazyIntras+ _lhsIlocalAttrTypes+ _lhsImainFile+ _lhsImainName+ _lhsImoduleHeader+ _lhsInt+ _lhsIoptions+ _lhsIpragmaBlocks+ _lhsIruleKinds+ _lhsIsynmap+ _lhsItextBlocks+ _lhsIusageInfo ->+ (let _lhsOsem_rules :: PP_Doc+ _lhsOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))+ _lhsOruledefs :: (Map Identifier (Set String))+ _lhsOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))+ _lhsOerrors :: (Seq Error)+ _patternOallInhmap :: (Map NontermIdent Attributes)+ _patternOallSynmap :: (Map NontermIdent Attributes)+ _patternOanyLazyKind :: Bool+ _patternOinhmap :: Attributes+ _patternOlocalAttrTypes :: (Map Identifier Type)+ _patternOoptions :: Options+ _patternOsynmap :: Attributes+ _patternIattrTypes :: PP_Doc+ _patternIattrs :: (Set String)+ _patternIcopy :: Pattern+ _patternIisUnderscore :: Bool+ _patternIsem_lhs :: ( PP_Doc )+ _rhsIattrs :: (Map String (Maybe NonLocalAttr))+ _rhsIpos :: Pos+ _rhsIsemfunc :: PP_Doc+ _rhsItks :: ([HsToken])+ -- "src-ag/ExecutionPlan2Hs.ag"(line 965, column 6)+ _lhsOsem_rules =+ ({-# LINE 965 "src-ag/ExecutionPlan2Hs.ag" #-}+ if _used == 0+ then empty+ else _rulePragma >-< _rulecode+ {-# LINE 4492 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 968, column 6)+ _rulecode =+ ({-# LINE 968 "src-ag/ExecutionPlan2Hs.ag" #-}+ ( if _genpragma+ then _pragma+ else empty+ )+ >-< _lambda >#< _scc+ >-< indent ((column _rhsIpos - 2) `max` 2)+ ( if _genpragma+ then _pragma >-< _rhsIsemfunc >-< _endpragma+ else _rhsIsemfunc+ )+ {-# LINE 4507 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 980, column 7)+ _rulePragma =+ ({-# LINE 980 "src-ag/ExecutionPlan2Hs.ag" #-}+ ( let reallyInlineStr = "INLINE"+ reallyNoInlineStr = "NOINLINE"+ in if noInlinePragmas _lhsIoptions+ then empty+ else if _used == 1+ then ppPragmaBinding reallyInlineStr name_+ else if helpInlining _lhsIoptions+ then if not explicit_ && _used <= reallyOftenUsedThreshold+ then ppPragmaBinding "INLINE[1]" name_+ else if _used > ruleInlineThresholdSoft && explicit_+ then if _used > ruleInlineThresholdHard+ then ppPragmaBinding reallyNoInlineStr name_+ else if aggressiveInlinePragmas _lhsIoptions+ then ppPragmaBinding "NOINLINE[2]" name_+ else ppNoInline name_+ else if aggressiveInlinePragmas _lhsIoptions+ then ppPragmaBinding "NOINLINE[1]" name_+ else ppNoInline name_+ else if not explicit_ || _used <= ruleInlineThresholdSoft+ then ppPragmaBinding "NOINLINE[1]" name_+ else ppNoInline name_+ )+ {-# LINE 4534 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1002, column 7)+ _scc =+ ({-# LINE 1002 "src-ag/ExecutionPlan2Hs.ag" #-}+ if genCostCentres _lhsIoptions && explicit_ && pure_ && not (noPerRuleCostCentres _lhsIoptions)+ then ppCostCentre (name_ >|< "_" >|< line _rhsIpos >|< "_" >|< _lhsInt >|< "_" >|< _lhsIcon)+ else empty+ {-# LINE 4542 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1005, column 7)+ _pragma =+ ({-# LINE 1005 "src-ag/ExecutionPlan2Hs.ag" #-}+ "{-# LINE" >#< show (line _rhsIpos) >#< show (file _rhsIpos) >#< "#-}"+ {-# LINE 4548 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1006, column 7)+ _endpragma =+ ({-# LINE 1006 "src-ag/ExecutionPlan2Hs.ag" #-}+ ppWithLineNr (\ln -> "{-# LINE " ++ show (ln+1) ++ " " ++ show _lhsImainFile ++ "#-}")+ {-# LINE 4554 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1007, column 7)+ _genpragma =+ ({-# LINE 1007 "src-ag/ExecutionPlan2Hs.ag" #-}+ genLinePragmas _lhsIoptions && explicit_ && _haspos+ {-# LINE 4560 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1008, column 7)+ _haspos =+ ({-# LINE 1008 "src-ag/ExecutionPlan2Hs.ag" #-}+ line _rhsIpos > 0 && column _rhsIpos >= 0 && not (null (file _rhsIpos))+ {-# LINE 4566 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1017, column 7)+ _lambda =+ ({-# LINE 1017 "src-ag/ExecutionPlan2Hs.ag" #-}+ name_ >#< "=" >#< "\\" >#< _argPats >#< dummyPat _lhsIoptions (Map.null _rhsIattrs) >#< "->"+ {-# LINE 4572 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1019, column 7)+ _argPats =+ ({-# LINE 1019 "src-ag/ExecutionPlan2Hs.ag" #-}+ ppSpaced [ let match | str `Set.member` _lhsIlazyIntras = pp str+ | otherwise = _addbang1 (pp str)+ in case mbAttr of+ Just (AttrSyn child nm) | child == _LOC && not (noPerStateTypeSigs _lhsIoptions) ->+ case Map.lookup nm _lhsIlocalAttrTypes of+ Just tp -> pp_parens (pp_parens match >#< "::" >#< ppTp tp)+ Nothing -> match+ Just attr | not (noPerRuleTypeSigs _lhsIoptions) ->+ case lookupAttrType attr _lhsIallInhmap _lhsIallSynmap _lhsIchildTypes of+ Just tpDoc -> pp_parens (pp_parens match >#< "::" >#< tpDoc)+ Nothing -> match+ _ -> match+ | (str,mbAttr) <- Map.assocs _rhsIattrs+ ]+ {-# LINE 4591 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1033, column 7)+ _argExprs =+ ({-# LINE 1033 "src-ag/ExecutionPlan2Hs.ag" #-}+ ppSpaced $ Map.keys _rhsIattrs+ {-# LINE 4597 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1034, column 7)+ _stepcode =+ ({-# LINE 1034 "src-ag/ExecutionPlan2Hs.ag" #-}+ \kind fmtMode -> if kind `compatibleRule` pure_+ then Right $ let oper | pure_ = "="+ | otherwise = "<-"+ decl = _patternIsem_lhs >#< oper >#< name_ >#< _argExprs >#< dummyArg _lhsIoptions (Map.null _rhsIattrs)+ tp = if pure_ && not (noPerRuleTypeSigs _lhsIoptions)+ then _patternIattrTypes+ else empty+ in fmtDecl pure_ fmtMode (tp >-< decl)+ else Left $ IncompatibleRuleKind name_ kind+ {-# LINE 4611 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1044, column 7)+ _lhsOmrules =+ ({-# LINE 1044 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.singleton name_ _stepcode+ {-# LINE 4617 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1248, column 32)+ _used =+ ({-# LINE 1248 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.findWithDefault 0 name_ _lhsIusageInfo+ {-# LINE 4623 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1264, column 3)+ _kinds =+ ({-# LINE 1264 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.findWithDefault Set.empty name_ _lhsIruleKinds+ {-# LINE 4629 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1265, column 3)+ _anyLazyKind =+ ({-# LINE 1265 "src-ag/ExecutionPlan2Hs.ag" #-}+ Set.fold (\k r -> isLazyKind k || r) False _kinds+ {-# LINE 4635 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1311, column 11)+ _lhsOruledefs =+ ({-# LINE 1311 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.singleton name_ _patternIattrs+ {-# LINE 4641 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1312, column 11)+ _lhsOruleuses =+ ({-# LINE 1312 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.singleton name_ _rhsIattrs+ {-# LINE 4647 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1514, column 37)+ _addbang =+ ({-# LINE 1514 "src-ag/ExecutionPlan2Hs.ag" #-}+ \x -> if bangpats _lhsIoptions then "!" >|< x else x+ {-# LINE 4653 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1525, column 37)+ _addbang1 =+ ({-# LINE 1525 "src-ag/ExecutionPlan2Hs.ag" #-}+ if _anyLazyKind then id else _addbang+ {-# LINE 4659 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1631, column 3)+ _lhsOerrors =+ ({-# LINE 1631 "src-ag/ExecutionPlan2Hs.ag" #-}+ case mbError_ of+ Just e | _used > 0 -> Seq.singleton e+ _ -> Seq.empty+ {-# LINE 4667 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patternOallInhmap =+ ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInhmap+ {-# LINE 4673 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patternOallSynmap =+ ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallSynmap+ {-# LINE 4679 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (from local)+ _patternOanyLazyKind =+ ({-# LINE 1267 "src-ag/ExecutionPlan2Hs.ag" #-}+ _anyLazyKind+ {-# LINE 4685 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patternOinhmap =+ ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinhmap+ {-# LINE 4691 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patternOlocalAttrTypes =+ ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIlocalAttrTypes+ {-# LINE 4697 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patternOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 4703 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patternOsynmap =+ ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIsynmap+ {-# LINE 4709 "dist/build/ExecutionPlan2Hs" #-}+ )+ ( _patternIattrTypes,_patternIattrs,_patternIcopy,_patternIisUnderscore,_patternIsem_lhs) =+ pattern_ _patternOallInhmap _patternOallSynmap _patternOanyLazyKind _patternOinhmap _patternOlocalAttrTypes _patternOoptions _patternOsynmap+ ( _rhsIattrs,_rhsIpos,_rhsIsemfunc,_rhsItks) =+ rhs_+ ___node =+ (Syn_ERule _lhsOerrors _lhsOmrules _lhsOruledefs _lhsOruleuses _lhsOsem_rules)+ in ( _lhsOerrors,_lhsOmrules,_lhsOruledefs,_lhsOruleuses,_lhsOsem_rules))))+-- ERules ------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allInhmap : Map NontermIdent Attributes+ allSynmap : Map NontermIdent Attributes+ childTypes : Map Identifier Type+ con : ConstructorIdent+ importBlocks : PP_Doc+ inhmap : Attributes+ lazyIntras : Set String+ localAttrTypes : Map Identifier Type+ mainFile : String+ mainName : String+ moduleHeader : String -> String -> String -> Bool -> String+ nt : NontermIdent+ options : Options+ pragmaBlocks : String+ ruleKinds : Map Identifier (Set VisitKind)+ synmap : Attributes+ textBlocks : PP_Doc+ usageInfo : Map Identifier Int+ synthesized attributes:+ errors : Seq Error+ mrules : Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)+ ruledefs : Map Identifier (Set String)+ ruleuses : Map Identifier (Map String (Maybe NonLocalAttr))+ sem_rules : PP_Doc+ alternatives:+ alternative Cons:+ child hd : ERule + child tl : ERules + alternative Nil:+-}+-- cata+sem_ERules :: ERules ->+ T_ERules+sem_ERules list =+ (Prelude.foldr sem_ERules_Cons sem_ERules_Nil (Prelude.map sem_ERule list))+-- semantic domain+newtype T_ERules = T_ERules ((Map NontermIdent Attributes) ->+ (Map NontermIdent Attributes) ->+ (Map Identifier Type) ->+ ConstructorIdent ->+ PP_Doc ->+ Attributes ->+ (Set String) ->+ (Map Identifier Type) ->+ String ->+ String ->+ (String -> String -> String -> Bool -> String) ->+ NontermIdent ->+ Options ->+ String ->+ (Map Identifier (Set VisitKind)) ->+ Attributes ->+ PP_Doc ->+ (Map Identifier Int) ->+ ( (Seq Error),(Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)),(Map Identifier (Set String)),(Map Identifier (Map String (Maybe NonLocalAttr))),PP_Doc))+data Inh_ERules = Inh_ERules {allInhmap_Inh_ERules :: (Map NontermIdent Attributes),allSynmap_Inh_ERules :: (Map NontermIdent Attributes),childTypes_Inh_ERules :: (Map Identifier Type),con_Inh_ERules :: ConstructorIdent,importBlocks_Inh_ERules :: PP_Doc,inhmap_Inh_ERules :: Attributes,lazyIntras_Inh_ERules :: (Set String),localAttrTypes_Inh_ERules :: (Map Identifier Type),mainFile_Inh_ERules :: String,mainName_Inh_ERules :: String,moduleHeader_Inh_ERules :: (String -> String -> String -> Bool -> String),nt_Inh_ERules :: NontermIdent,options_Inh_ERules :: Options,pragmaBlocks_Inh_ERules :: String,ruleKinds_Inh_ERules :: (Map Identifier (Set VisitKind)),synmap_Inh_ERules :: Attributes,textBlocks_Inh_ERules :: PP_Doc,usageInfo_Inh_ERules :: (Map Identifier Int)}+data Syn_ERules = Syn_ERules {errors_Syn_ERules :: (Seq Error),mrules_Syn_ERules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)),ruledefs_Syn_ERules :: (Map Identifier (Set String)),ruleuses_Syn_ERules :: (Map Identifier (Map String (Maybe NonLocalAttr))),sem_rules_Syn_ERules :: PP_Doc}+wrap_ERules :: T_ERules ->+ Inh_ERules ->+ Syn_ERules+wrap_ERules (T_ERules sem) (Inh_ERules _lhsIallInhmap _lhsIallSynmap _lhsIchildTypes _lhsIcon _lhsIimportBlocks _lhsIinhmap _lhsIlazyIntras _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInt _lhsIoptions _lhsIpragmaBlocks _lhsIruleKinds _lhsIsynmap _lhsItextBlocks _lhsIusageInfo) =+ (let ( _lhsOerrors,_lhsOmrules,_lhsOruledefs,_lhsOruleuses,_lhsOsem_rules) = sem _lhsIallInhmap _lhsIallSynmap _lhsIchildTypes _lhsIcon _lhsIimportBlocks _lhsIinhmap _lhsIlazyIntras _lhsIlocalAttrTypes _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInt _lhsIoptions _lhsIpragmaBlocks _lhsIruleKinds _lhsIsynmap _lhsItextBlocks _lhsIusageInfo+ in (Syn_ERules _lhsOerrors _lhsOmrules _lhsOruledefs _lhsOruleuses _lhsOsem_rules))+sem_ERules_Cons :: T_ERule ->+ T_ERules ->+ T_ERules+sem_ERules_Cons (T_ERule hd_) (T_ERules tl_) =+ (T_ERules (\ _lhsIallInhmap+ _lhsIallSynmap+ _lhsIchildTypes+ _lhsIcon+ _lhsIimportBlocks+ _lhsIinhmap+ _lhsIlazyIntras+ _lhsIlocalAttrTypes+ _lhsImainFile+ _lhsImainName+ _lhsImoduleHeader+ _lhsInt+ _lhsIoptions+ _lhsIpragmaBlocks+ _lhsIruleKinds+ _lhsIsynmap+ _lhsItextBlocks+ _lhsIusageInfo ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))+ _lhsOruledefs :: (Map Identifier (Set String))+ _lhsOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))+ _lhsOsem_rules :: PP_Doc+ _hdOallInhmap :: (Map NontermIdent Attributes)+ _hdOallSynmap :: (Map NontermIdent Attributes)+ _hdOchildTypes :: (Map Identifier Type)+ _hdOcon :: ConstructorIdent+ _hdOimportBlocks :: PP_Doc+ _hdOinhmap :: Attributes+ _hdOlazyIntras :: (Set String)+ _hdOlocalAttrTypes :: (Map Identifier Type)+ _hdOmainFile :: String+ _hdOmainName :: String+ _hdOmoduleHeader :: (String -> String -> String -> Bool -> String)+ _hdOnt :: NontermIdent+ _hdOoptions :: Options+ _hdOpragmaBlocks :: String+ _hdOruleKinds :: (Map Identifier (Set VisitKind))+ _hdOsynmap :: Attributes+ _hdOtextBlocks :: PP_Doc+ _hdOusageInfo :: (Map Identifier Int)+ _tlOallInhmap :: (Map NontermIdent Attributes)+ _tlOallSynmap :: (Map NontermIdent Attributes)+ _tlOchildTypes :: (Map Identifier Type)+ _tlOcon :: ConstructorIdent+ _tlOimportBlocks :: PP_Doc+ _tlOinhmap :: Attributes+ _tlOlazyIntras :: (Set String)+ _tlOlocalAttrTypes :: (Map Identifier Type)+ _tlOmainFile :: String+ _tlOmainName :: String+ _tlOmoduleHeader :: (String -> String -> String -> Bool -> String)+ _tlOnt :: NontermIdent+ _tlOoptions :: Options+ _tlOpragmaBlocks :: String+ _tlOruleKinds :: (Map Identifier (Set VisitKind))+ _tlOsynmap :: Attributes+ _tlOtextBlocks :: PP_Doc+ _tlOusageInfo :: (Map Identifier Int)+ _hdIerrors :: (Seq Error)+ _hdImrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))+ _hdIruledefs :: (Map Identifier (Set String))+ _hdIruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))+ _hdIsem_rules :: PP_Doc+ _tlIerrors :: (Seq Error)+ _tlImrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))+ _tlIruledefs :: (Map Identifier (Set String))+ _tlIruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))+ _tlIsem_rules :: PP_Doc+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)+ _lhsOerrors =+ ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 4862 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 962, column 32)+ _lhsOmrules =+ ({-# LINE 962 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdImrules `Map.union` _tlImrules+ {-# LINE 4868 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1304, column 34)+ _lhsOruledefs =+ ({-# LINE 1304 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIruledefs `uwSetUnion` _tlIruledefs+ {-# LINE 4874 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1305, column 34)+ _lhsOruleuses =+ ({-# LINE 1305 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIruleuses `uwMapUnion` _tlIruleuses+ {-# LINE 4880 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 961, column 35)+ _lhsOsem_rules =+ ({-# LINE 961 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIsem_rules >-< _tlIsem_rules+ {-# LINE 4886 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallInhmap =+ ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInhmap+ {-# LINE 4892 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallSynmap =+ ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallSynmap+ {-# LINE 4898 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOchildTypes =+ ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIchildTypes+ {-# LINE 4904 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOcon =+ ({-# LINE 66 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIcon+ {-# LINE 4910 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOimportBlocks =+ ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIimportBlocks+ {-# LINE 4916 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOinhmap =+ ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinhmap+ {-# LINE 4922 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOlazyIntras =+ ({-# LINE 1356 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIlazyIntras+ {-# LINE 4928 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOlocalAttrTypes =+ ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIlocalAttrTypes+ {-# LINE 4934 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOmainFile =+ ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainFile+ {-# LINE 4940 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOmainName =+ ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainName+ {-# LINE 4946 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOmoduleHeader =+ ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImoduleHeader+ {-# LINE 4952 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOnt =+ ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsInt+ {-# LINE 4958 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 4964 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOpragmaBlocks =+ ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIpragmaBlocks+ {-# LINE 4970 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOruleKinds =+ ({-# LINE 1259 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIruleKinds+ {-# LINE 4976 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOsynmap =+ ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIsynmap+ {-# LINE 4982 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOtextBlocks =+ ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsItextBlocks+ {-# LINE 4988 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOusageInfo =+ ({-# LINE 1244 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIusageInfo+ {-# LINE 4994 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallInhmap =+ ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInhmap+ {-# LINE 5000 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallSynmap =+ ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallSynmap+ {-# LINE 5006 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOchildTypes =+ ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIchildTypes+ {-# LINE 5012 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOcon =+ ({-# LINE 66 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIcon+ {-# LINE 5018 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOimportBlocks =+ ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIimportBlocks+ {-# LINE 5024 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOinhmap =+ ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinhmap+ {-# LINE 5030 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOlazyIntras =+ ({-# LINE 1356 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIlazyIntras+ {-# LINE 5036 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOlocalAttrTypes =+ ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIlocalAttrTypes+ {-# LINE 5042 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOmainFile =+ ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainFile+ {-# LINE 5048 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOmainName =+ ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainName+ {-# LINE 5054 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOmoduleHeader =+ ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImoduleHeader+ {-# LINE 5060 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOnt =+ ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsInt+ {-# LINE 5066 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 5072 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOpragmaBlocks =+ ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIpragmaBlocks+ {-# LINE 5078 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOruleKinds =+ ({-# LINE 1259 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIruleKinds+ {-# LINE 5084 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOsynmap =+ ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIsynmap+ {-# LINE 5090 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOtextBlocks =+ ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsItextBlocks+ {-# LINE 5096 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOusageInfo =+ ({-# LINE 1244 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIusageInfo+ {-# LINE 5102 "dist/build/ExecutionPlan2Hs" #-}+ )+ ( _hdIerrors,_hdImrules,_hdIruledefs,_hdIruleuses,_hdIsem_rules) =+ hd_ _hdOallInhmap _hdOallSynmap _hdOchildTypes _hdOcon _hdOimportBlocks _hdOinhmap _hdOlazyIntras _hdOlocalAttrTypes _hdOmainFile _hdOmainName _hdOmoduleHeader _hdOnt _hdOoptions _hdOpragmaBlocks _hdOruleKinds _hdOsynmap _hdOtextBlocks _hdOusageInfo+ ( _tlIerrors,_tlImrules,_tlIruledefs,_tlIruleuses,_tlIsem_rules) =+ tl_ _tlOallInhmap _tlOallSynmap _tlOchildTypes _tlOcon _tlOimportBlocks _tlOinhmap _tlOlazyIntras _tlOlocalAttrTypes _tlOmainFile _tlOmainName _tlOmoduleHeader _tlOnt _tlOoptions _tlOpragmaBlocks _tlOruleKinds _tlOsynmap _tlOtextBlocks _tlOusageInfo+ ___node =+ (Syn_ERules _lhsOerrors _lhsOmrules _lhsOruledefs _lhsOruleuses _lhsOsem_rules)+ in ( _lhsOerrors,_lhsOmrules,_lhsOruledefs,_lhsOruleuses,_lhsOsem_rules))))+sem_ERules_Nil :: T_ERules+sem_ERules_Nil =+ (T_ERules (\ _lhsIallInhmap+ _lhsIallSynmap+ _lhsIchildTypes+ _lhsIcon+ _lhsIimportBlocks+ _lhsIinhmap+ _lhsIlazyIntras+ _lhsIlocalAttrTypes+ _lhsImainFile+ _lhsImainName+ _lhsImoduleHeader+ _lhsInt+ _lhsIoptions+ _lhsIpragmaBlocks+ _lhsIruleKinds+ _lhsIsynmap+ _lhsItextBlocks+ _lhsIusageInfo ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))+ _lhsOruledefs :: (Map Identifier (Set String))+ _lhsOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))+ _lhsOsem_rules :: PP_Doc+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)+ _lhsOerrors =+ ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}+ Seq.empty+ {-# LINE 5140 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 962, column 32)+ _lhsOmrules =+ ({-# LINE 962 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 5146 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1304, column 34)+ _lhsOruledefs =+ ({-# LINE 1304 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 5152 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1305, column 34)+ _lhsOruleuses =+ ({-# LINE 1305 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 5158 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 961, column 35)+ _lhsOsem_rules =+ ({-# LINE 961 "src-ag/ExecutionPlan2Hs.ag" #-}+ empty+ {-# LINE 5164 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_ERules _lhsOerrors _lhsOmrules _lhsOruledefs _lhsOruleuses _lhsOsem_rules)+ in ( _lhsOerrors,_lhsOmrules,_lhsOruledefs,_lhsOruleuses,_lhsOsem_rules))))+-- ExecutionPlan -----------------------------------------------+{-+ visit 0:+ inherited attributes:+ importBlocks : PP_Doc+ inhmap : Map NontermIdent Attributes+ localAttrTypes : Map NontermIdent (Map ConstructorIdent (Map Identifier Type))+ mainBlocksDoc : PP_Doc+ mainFile : String+ mainName : String+ moduleHeader : String -> String -> String -> Bool -> String+ options : Options+ pragmaBlocks : String+ synmap : Map NontermIdent Attributes+ textBlockMap : Map BlockInfo PP_Doc+ textBlocks : PP_Doc+ synthesized attributes:+ errors : Seq Error+ genIO : IO ()+ output : PP_Doc+ alternatives:+ alternative ExecutionPlan:+ child nonts : ENonterminals + child typeSyns : {TypeSyns}+ child wrappers : {Set NontermIdent}+ child derivings : {Derivings}+ visit 0:+ local wrappersExtra : _+ local commonExtra : _+ local lateSemBndTp : _+ local lateSemBndDef : _+ local mainModuleFile : _+ local ppMonadImports : _+ local genMainModule : _+ local commonFile : _+ local genCommonModule : _+-}+-- cata+sem_ExecutionPlan :: ExecutionPlan ->+ T_ExecutionPlan+sem_ExecutionPlan (ExecutionPlan _nonts _typeSyns _wrappers _derivings) =+ (sem_ExecutionPlan_ExecutionPlan (sem_ENonterminals _nonts) _typeSyns _wrappers _derivings)+-- semantic domain+newtype T_ExecutionPlan = T_ExecutionPlan (PP_Doc ->+ (Map NontermIdent Attributes) ->+ (Map NontermIdent (Map ConstructorIdent (Map Identifier Type))) ->+ PP_Doc ->+ String ->+ String ->+ (String -> String -> String -> Bool -> String) ->+ Options ->+ String ->+ (Map NontermIdent Attributes) ->+ (Map BlockInfo PP_Doc) ->+ PP_Doc ->+ ( (Seq Error),(IO ()),PP_Doc))+data Inh_ExecutionPlan = Inh_ExecutionPlan {importBlocks_Inh_ExecutionPlan :: PP_Doc,inhmap_Inh_ExecutionPlan :: (Map NontermIdent Attributes),localAttrTypes_Inh_ExecutionPlan :: (Map NontermIdent (Map ConstructorIdent (Map Identifier Type))),mainBlocksDoc_Inh_ExecutionPlan :: PP_Doc,mainFile_Inh_ExecutionPlan :: String,mainName_Inh_ExecutionPlan :: String,moduleHeader_Inh_ExecutionPlan :: (String -> String -> String -> Bool -> String),options_Inh_ExecutionPlan :: Options,pragmaBlocks_Inh_ExecutionPlan :: String,synmap_Inh_ExecutionPlan :: (Map NontermIdent Attributes),textBlockMap_Inh_ExecutionPlan :: (Map BlockInfo PP_Doc),textBlocks_Inh_ExecutionPlan :: PP_Doc}+data Syn_ExecutionPlan = Syn_ExecutionPlan {errors_Syn_ExecutionPlan :: (Seq Error),genIO_Syn_ExecutionPlan :: (IO ()),output_Syn_ExecutionPlan :: PP_Doc}+wrap_ExecutionPlan :: T_ExecutionPlan ->+ Inh_ExecutionPlan ->+ Syn_ExecutionPlan+wrap_ExecutionPlan (T_ExecutionPlan sem) (Inh_ExecutionPlan _lhsIimportBlocks _lhsIinhmap _lhsIlocalAttrTypes _lhsImainBlocksDoc _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsIoptions _lhsIpragmaBlocks _lhsIsynmap _lhsItextBlockMap _lhsItextBlocks) =+ (let ( _lhsOerrors,_lhsOgenIO,_lhsOoutput) = sem _lhsIimportBlocks _lhsIinhmap _lhsIlocalAttrTypes _lhsImainBlocksDoc _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsIoptions _lhsIpragmaBlocks _lhsIsynmap _lhsItextBlockMap _lhsItextBlocks+ in (Syn_ExecutionPlan _lhsOerrors _lhsOgenIO _lhsOoutput))+sem_ExecutionPlan_ExecutionPlan :: T_ENonterminals ->+ TypeSyns ->+ (Set NontermIdent) ->+ Derivings ->+ T_ExecutionPlan+sem_ExecutionPlan_ExecutionPlan (T_ENonterminals nonts_) typeSyns_ wrappers_ derivings_ =+ (T_ExecutionPlan (\ _lhsIimportBlocks+ _lhsIinhmap+ _lhsIlocalAttrTypes+ _lhsImainBlocksDoc+ _lhsImainFile+ _lhsImainName+ _lhsImoduleHeader+ _lhsIoptions+ _lhsIpragmaBlocks+ _lhsIsynmap+ _lhsItextBlockMap+ _lhsItextBlocks ->+ (let _lhsOoutput :: PP_Doc+ _nontsOwrappers :: (Set NontermIdent)+ _nontsOtypeSyns :: TypeSyns+ _nontsOderivings :: Derivings+ _nontsOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _nontsOavisitdefs :: (Map VisitIdentifier (Set Identifier))+ _nontsOavisituses :: (Map VisitIdentifier (Set Identifier))+ _lhsOgenIO :: (IO ())+ _nontsOallFromToStates :: (Map VisitIdentifier (Int,Int))+ _nontsOallVisitKinds :: (Map VisitIdentifier VisitKind)+ _nontsOallInitStates :: (Map NontermIdent Int)+ _lhsOerrors :: (Seq Error)+ _nontsOimportBlocks :: PP_Doc+ _nontsOinhmap :: (Map NontermIdent Attributes)+ _nontsOlocalAttrTypes :: (Map NontermIdent (Map ConstructorIdent (Map Identifier Type)))+ _nontsOmainFile :: String+ _nontsOmainName :: String+ _nontsOmoduleHeader :: (String -> String -> String -> Bool -> String)+ _nontsOoptions :: Options+ _nontsOpragmaBlocks :: String+ _nontsOsynmap :: (Map NontermIdent Attributes)+ _nontsOtextBlocks :: PP_Doc+ _nontsIappendCommon :: ([PP_Doc])+ _nontsIappendMain :: ([PP_Doc])+ _nontsIchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _nontsIerrors :: (Seq Error)+ _nontsIfromToStates :: (Map VisitIdentifier (Int,Int))+ _nontsIgenProdIO :: (IO ())+ _nontsIimports :: ([PP_Doc])+ _nontsIinitStates :: (Map NontermIdent Int)+ _nontsIoutput :: PP_Doc+ _nontsIsemFunBndDefs :: (Seq PP_Doc)+ _nontsIsemFunBndTps :: (Seq PP_Doc)+ _nontsIvisitKinds :: (Map VisitIdentifier VisitKind)+ _nontsIvisitdefs :: (Map VisitIdentifier (Set Identifier))+ _nontsIvisituses :: (Map VisitIdentifier (Set Identifier))+ -- "src-ag/ExecutionPlan2Hs.ag"(line 87, column 19)+ _lhsOoutput =+ ({-# LINE 87 "src-ag/ExecutionPlan2Hs.ag" #-}+ _nontsIoutput >-< _commonExtra >-< _wrappersExtra+ {-# LINE 5291 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 93, column 19)+ _nontsOwrappers =+ ({-# LINE 93 "src-ag/ExecutionPlan2Hs.ag" #-}+ wrappers_+ {-# LINE 5297 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 132, column 19)+ _nontsOtypeSyns =+ ({-# LINE 132 "src-ag/ExecutionPlan2Hs.ag" #-}+ typeSyns_+ {-# LINE 5303 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 133, column 19)+ _nontsOderivings =+ ({-# LINE 133 "src-ag/ExecutionPlan2Hs.ag" #-}+ derivings_+ {-# LINE 5309 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 532, column 3)+ _wrappersExtra =+ ({-# LINE 532 "src-ag/ExecutionPlan2Hs.ag" #-}+ if kennedyWarren _lhsIoptions && lateHigherOrderBinding _lhsIoptions+ then _lateSemBndDef+ else empty+ {-# LINE 5317 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 535, column 3)+ _commonExtra =+ ({-# LINE 535 "src-ag/ExecutionPlan2Hs.ag" #-}+ if kennedyWarren _lhsIoptions && lateHigherOrderBinding _lhsIoptions+ then _lateSemBndTp+ else empty+ {-# LINE 5325 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 538, column 3)+ _lateSemBndTp =+ ({-# LINE 538 "src-ag/ExecutionPlan2Hs.ag" #-}+ "data" >#< lateBindingTypeNm _lhsImainName >#< "=" >#< lateBindingTypeNm _lhsImainName+ >-< (indent 2 $ pp_block "{" "}" "," $ toList _nontsIsemFunBndTps)+ {-# LINE 5332 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 540, column 3)+ _lateSemBndDef =+ ({-# LINE 540 "src-ag/ExecutionPlan2Hs.ag" #-}+ ( if noInlinePragmas _lhsIoptions+ then empty+ else if helpInlining _lhsIoptions && Set.size wrappers_ == 1+ then ppInline $ lateBindingFieldNm _lhsImainName+ else ppNoInline $ lateBindingFieldNm _lhsImainName+ )+ >-< lateBindingFieldNm _lhsImainName >#< "::" >#< lateBindingTypeNm _lhsImainName+ >-< lateBindingFieldNm _lhsImainName >#< "=" >#< lateBindingTypeNm _lhsImainName+ >-< (indent 2 $ pp_block "{" "}" "," $ toList _nontsIsemFunBndDefs )+ {-# LINE 5346 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1192, column 19)+ _nontsOallchildvisit =+ ({-# LINE 1192 "src-ag/ExecutionPlan2Hs.ag" #-}+ _nontsIchildvisit+ {-# LINE 5352 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1336, column 19)+ _nontsOavisitdefs =+ ({-# LINE 1336 "src-ag/ExecutionPlan2Hs.ag" #-}+ _nontsIvisitdefs+ {-# LINE 5358 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1337, column 19)+ _nontsOavisituses =+ ({-# LINE 1337 "src-ag/ExecutionPlan2Hs.ag" #-}+ _nontsIvisituses+ {-# LINE 5364 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1408, column 19)+ _lhsOgenIO =+ ({-# LINE 1408 "src-ag/ExecutionPlan2Hs.ag" #-}+ do _genMainModule+ _genCommonModule+ _nontsIgenProdIO+ {-# LINE 5372 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1411, column 19)+ _mainModuleFile =+ ({-# LINE 1411 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainFile+ {-# LINE 5378 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1412, column 19)+ _ppMonadImports =+ ({-# LINE 1412 "src-ag/ExecutionPlan2Hs.ag" #-}+ ( if tupleAsDummyToken _lhsIoptions+ then empty+ else pp "import GHC.Prim"+ )+ >-< if parallelInvoke _lhsIoptions+ then pp "import qualified System.IO.Unsafe(unsafePerformIO)"+ >-< pp "import System.IO(IO)"+ >-< pp "import Control.Concurrent(newEmptyMVar,forkIO,putMVar,takeMVar)"+ else pp "import Control.Monad.Identity"+ {-# LINE 5392 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1421, column 19)+ _genMainModule =+ ({-# LINE 1421 "src-ag/ExecutionPlan2Hs.ag" #-}+ writeModule _mainModuleFile+ ( [ warrenFlagsPP _lhsIoptions+ , pp $ _lhsIpragmaBlocks+ , pp $ _lhsImoduleHeader _lhsImainName "" "" False+ , _ppMonadImports+ , pp $ "import " ++ _lhsImainName ++ "_common"+ ]+ ++ _nontsIimports+ ++ [_lhsImainBlocksDoc]+ ++ [_wrappersExtra ]+ ++ _nontsIappendMain+ )+ {-# LINE 5409 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1433, column 19)+ _commonFile =+ ({-# LINE 1433 "src-ag/ExecutionPlan2Hs.ag" #-}+ replaceBaseName _lhsImainFile (takeBaseName _lhsImainFile ++ "_common")+ {-# LINE 5415 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1434, column 19)+ _genCommonModule =+ ({-# LINE 1434 "src-ag/ExecutionPlan2Hs.ag" #-}+ writeModule _commonFile+ ( [ pp $ "{-# LANGUAGE Rank2Types, GADTs #-}"+ , pp $ _lhsIpragmaBlocks+ , pp $ _lhsImoduleHeader _lhsImainName "_common" "" True+ , _ppMonadImports+ , _lhsIimportBlocks+ , _lhsItextBlocks+ , _commonExtra+ ]+ ++ _nontsIappendCommon+ )+ {-# LINE 5431 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1553, column 3)+ _nontsOallFromToStates =+ ({-# LINE 1553 "src-ag/ExecutionPlan2Hs.ag" #-}+ _nontsIfromToStates+ {-# LINE 5437 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1597, column 3)+ _nontsOallVisitKinds =+ ({-# LINE 1597 "src-ag/ExecutionPlan2Hs.ag" #-}+ _nontsIvisitKinds+ {-# LINE 5443 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1611, column 3)+ _nontsOallInitStates =+ ({-# LINE 1611 "src-ag/ExecutionPlan2Hs.ag" #-}+ _nontsIinitStates+ {-# LINE 5449 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)+ _lhsOerrors =+ ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}+ _nontsIerrors+ {-# LINE 5455 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _nontsOimportBlocks =+ ({-# LINE 34 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIimportBlocks+ {-# LINE 5461 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _nontsOinhmap =+ ({-# LINE 312 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinhmap+ {-# LINE 5467 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _nontsOlocalAttrTypes =+ ({-# LINE 1576 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIlocalAttrTypes+ {-# LINE 5473 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _nontsOmainFile =+ ({-# LINE 38 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainFile+ {-# LINE 5479 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _nontsOmainName =+ ({-# LINE 39 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImainName+ {-# LINE 5485 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _nontsOmoduleHeader =+ ({-# LINE 37 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImoduleHeader+ {-# LINE 5491 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _nontsOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 5497 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _nontsOpragmaBlocks =+ ({-# LINE 35 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIpragmaBlocks+ {-# LINE 5503 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _nontsOsynmap =+ ({-# LINE 313 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIsynmap+ {-# LINE 5509 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _nontsOtextBlocks =+ ({-# LINE 36 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsItextBlocks+ {-# LINE 5515 "dist/build/ExecutionPlan2Hs" #-}+ )+ ( _nontsIappendCommon,_nontsIappendMain,_nontsIchildvisit,_nontsIerrors,_nontsIfromToStates,_nontsIgenProdIO,_nontsIimports,_nontsIinitStates,_nontsIoutput,_nontsIsemFunBndDefs,_nontsIsemFunBndTps,_nontsIvisitKinds,_nontsIvisitdefs,_nontsIvisituses) =+ nonts_ _nontsOallFromToStates _nontsOallInitStates _nontsOallVisitKinds _nontsOallchildvisit _nontsOavisitdefs _nontsOavisituses _nontsOderivings _nontsOimportBlocks _nontsOinhmap _nontsOlocalAttrTypes _nontsOmainFile _nontsOmainName _nontsOmoduleHeader _nontsOoptions _nontsOpragmaBlocks _nontsOsynmap _nontsOtextBlocks _nontsOtypeSyns _nontsOwrappers+ ___node =+ (Syn_ExecutionPlan _lhsOerrors _lhsOgenIO _lhsOoutput)+ in ( _lhsOerrors,_lhsOgenIO,_lhsOoutput))))+-- Expression --------------------------------------------------+{-+ visit 0:+ synthesized attributes:+ attrs : Map String (Maybe NonLocalAttr)+ pos : Pos+ semfunc : PP_Doc+ tks : [HsToken]+ alternatives:+ alternative Expression:+ child pos : {Pos}+ child tks : {[HsToken]}+-}+-- cata+sem_Expression :: Expression ->+ T_Expression+sem_Expression (Expression _pos _tks) =+ (sem_Expression_Expression _pos _tks)+-- semantic domain+newtype T_Expression = T_Expression (( (Map String (Maybe NonLocalAttr)),Pos,PP_Doc,([HsToken])))+data Inh_Expression = Inh_Expression {}+data Syn_Expression = Syn_Expression {attrs_Syn_Expression :: (Map String (Maybe NonLocalAttr)),pos_Syn_Expression :: Pos,semfunc_Syn_Expression :: PP_Doc,tks_Syn_Expression :: ([HsToken])}+wrap_Expression :: T_Expression ->+ Inh_Expression ->+ Syn_Expression+wrap_Expression (T_Expression sem) (Inh_Expression) =+ (let ( _lhsOattrs,_lhsOpos,_lhsOsemfunc,_lhsOtks) = sem+ in (Syn_Expression _lhsOattrs _lhsOpos _lhsOsemfunc _lhsOtks))+sem_Expression_Expression :: Pos ->+ ([HsToken]) ->+ T_Expression+sem_Expression_Expression pos_ tks_ =+ (T_Expression (let _lhsOtks :: ([HsToken])+ _lhsOpos :: Pos+ _lhsOattrs :: (Map String (Maybe NonLocalAttr))+ _lhsOsemfunc :: PP_Doc+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1048, column 16)+ _lhsOtks =+ ({-# LINE 1048 "src-ag/ExecutionPlan2Hs.ag" #-}+ tks_+ {-# LINE 5562 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1091, column 29)+ _lhsOpos =+ ({-# LINE 1091 "src-ag/ExecutionPlan2Hs.ag" #-}+ pos_+ {-# LINE 5568 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1177, column 16)+ _lhsOattrs =+ ({-# LINE 1177 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.unions $ map (\tok -> attrs_Syn_HsToken (wrap_HsToken (sem_HsToken tok) Inh_HsToken)) tks_+ {-# LINE 5574 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1178, column 16)+ _lhsOsemfunc =+ ({-# LINE 1178 "src-ag/ExecutionPlan2Hs.ag" #-}+ vlist $ showTokens $ map (\tok -> tok_Syn_HsToken (wrap_HsToken (sem_HsToken tok) Inh_HsToken)) tks_+ {-# LINE 5580 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_Expression _lhsOattrs _lhsOpos _lhsOsemfunc _lhsOtks)+ in ( _lhsOattrs,_lhsOpos,_lhsOsemfunc,_lhsOtks)))+-- HsToken -----------------------------------------------------+{-+ visit 0:+ synthesized attributes:+ attrs : Map String (Maybe NonLocalAttr)+ tok : (Pos,String)+ alternatives:+ alternative AGField:+ child field : {Identifier}+ child attr : {Identifier}+ child pos : {Pos}+ child rdesc : {Maybe String}+ visit 0:+ local mbAttr : _+ local addTrace : _+ alternative AGLocal:+ child var : {Identifier}+ child pos : {Pos}+ child rdesc : {Maybe String}+ visit 0:+ local tok : _+ alternative CharToken:+ child value : {String}+ child pos : {Pos}+ alternative Err:+ child mesg : {String}+ child pos : {Pos}+ alternative HsToken:+ child value : {String}+ child pos : {Pos}+ alternative StrToken:+ child value : {String}+ child pos : {Pos}+-}+-- cata+sem_HsToken :: HsToken ->+ T_HsToken+sem_HsToken (AGField _field _attr _pos _rdesc) =+ (sem_HsToken_AGField _field _attr _pos _rdesc)+sem_HsToken (AGLocal _var _pos _rdesc) =+ (sem_HsToken_AGLocal _var _pos _rdesc)+sem_HsToken (CharToken _value _pos) =+ (sem_HsToken_CharToken _value _pos)+sem_HsToken (Err _mesg _pos) =+ (sem_HsToken_Err _mesg _pos)+sem_HsToken (HsToken _value _pos) =+ (sem_HsToken_HsToken _value _pos)+sem_HsToken (StrToken _value _pos) =+ (sem_HsToken_StrToken _value _pos)+-- semantic domain+newtype T_HsToken = T_HsToken (( (Map String (Maybe NonLocalAttr)),((Pos,String))))+data Inh_HsToken = Inh_HsToken {}+data Syn_HsToken = Syn_HsToken {attrs_Syn_HsToken :: (Map String (Maybe NonLocalAttr)),tok_Syn_HsToken :: ((Pos,String))}+wrap_HsToken :: T_HsToken ->+ Inh_HsToken ->+ Syn_HsToken+wrap_HsToken (T_HsToken sem) (Inh_HsToken) =+ (let ( _lhsOattrs,_lhsOtok) = sem+ in (Syn_HsToken _lhsOattrs _lhsOtok))+sem_HsToken_AGField :: Identifier ->+ Identifier ->+ Pos ->+ (Maybe String) ->+ T_HsToken+sem_HsToken_AGField field_ attr_ pos_ rdesc_ =+ (T_HsToken (let _lhsOattrs :: (Map String (Maybe NonLocalAttr))+ _lhsOtok :: ((Pos,String))+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1137, column 15)+ _mbAttr =+ ({-# LINE 1137 "src-ag/ExecutionPlan2Hs.ag" #-}+ if field_ == _INST || field_ == _FIELD || field_ == _INST'+ then Nothing+ else Just $ mkNonLocalAttr (field_ == _LHS) field_ attr_+ {-# LINE 5658 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1140, column 15)+ _lhsOattrs =+ ({-# LINE 1140 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.singleton (attrname True field_ attr_) _mbAttr+ {-# LINE 5664 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1385, column 8)+ _addTrace =+ ({-# LINE 1385 "src-ag/ExecutionPlan2Hs.ag" #-}+ case rdesc_ of+ Just d -> \x -> "(trace " ++ show (d ++ " -> " ++ show field_ ++ "." ++ show attr_) ++ " (" ++ x ++ "))"+ Nothing -> id+ {-# LINE 5672 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1388, column 8)+ _lhsOtok =+ ({-# LINE 1388 "src-ag/ExecutionPlan2Hs.ag" #-}+ (pos_, _addTrace $ attrname True field_ attr_)+ {-# LINE 5678 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_HsToken _lhsOattrs _lhsOtok)+ in ( _lhsOattrs,_lhsOtok)))+sem_HsToken_AGLocal :: Identifier ->+ Pos ->+ (Maybe String) ->+ T_HsToken+sem_HsToken_AGLocal var_ pos_ rdesc_ =+ (T_HsToken (let _lhsOattrs :: (Map String (Maybe NonLocalAttr))+ _lhsOtok :: ((Pos,String))+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1136, column 15)+ _lhsOattrs =+ ({-# LINE 1136 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.singleton (fieldname var_) Nothing+ {-# LINE 5694 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1381, column 15)+ _tok =+ ({-# LINE 1381 "src-ag/ExecutionPlan2Hs.ag" #-}+ (pos_,fieldname var_)+ {-# LINE 5700 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (from local)+ _lhsOtok =+ ({-# LINE 1383 "src-ag/ExecutionPlan2Hs.ag" #-}+ _tok+ {-# LINE 5706 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_HsToken _lhsOattrs _lhsOtok)+ in ( _lhsOattrs,_lhsOtok)))+sem_HsToken_CharToken :: String ->+ Pos ->+ T_HsToken+sem_HsToken_CharToken value_ pos_ =+ (T_HsToken (let _lhsOtok :: ((Pos,String))+ _lhsOattrs :: (Map String (Maybe NonLocalAttr))+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1392, column 16)+ _lhsOtok =+ ({-# LINE 1392 "src-ag/ExecutionPlan2Hs.ag" #-}+ (pos_, if null value_+ then ""+ else showCharShort (head value_)+ )+ {-# LINE 5724 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1134, column 37)+ _lhsOattrs =+ ({-# LINE 1134 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 5730 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_HsToken _lhsOattrs _lhsOtok)+ in ( _lhsOattrs,_lhsOtok)))+sem_HsToken_Err :: String ->+ Pos ->+ T_HsToken+sem_HsToken_Err mesg_ pos_ =+ (T_HsToken (let _lhsOtok :: ((Pos,String))+ _lhsOattrs :: (Map String (Maybe NonLocalAttr))+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1398, column 16)+ _lhsOtok =+ ({-# LINE 1398 "src-ag/ExecutionPlan2Hs.ag" #-}+ (pos_, "")+ {-# LINE 5745 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1134, column 37)+ _lhsOattrs =+ ({-# LINE 1134 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 5751 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_HsToken _lhsOattrs _lhsOtok)+ in ( _lhsOattrs,_lhsOtok)))+sem_HsToken_HsToken :: String ->+ Pos ->+ T_HsToken+sem_HsToken_HsToken value_ pos_ =+ (T_HsToken (let _lhsOtok :: ((Pos,String))+ _lhsOattrs :: (Map String (Maybe NonLocalAttr))+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1390, column 14)+ _lhsOtok =+ ({-# LINE 1390 "src-ag/ExecutionPlan2Hs.ag" #-}+ (pos_, value_)+ {-# LINE 5766 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1134, column 37)+ _lhsOattrs =+ ({-# LINE 1134 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 5772 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_HsToken _lhsOattrs _lhsOtok)+ in ( _lhsOattrs,_lhsOtok)))+sem_HsToken_StrToken :: String ->+ Pos ->+ T_HsToken+sem_HsToken_StrToken value_ pos_ =+ (T_HsToken (let _lhsOtok :: ((Pos,String))+ _lhsOattrs :: (Map String (Maybe NonLocalAttr))+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1397, column 16)+ _lhsOtok =+ ({-# LINE 1397 "src-ag/ExecutionPlan2Hs.ag" #-}+ (pos_, showStrShort value_)+ {-# LINE 5787 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1134, column 37)+ _lhsOattrs =+ ({-# LINE 1134 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 5793 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_HsToken _lhsOattrs _lhsOtok)+ in ( _lhsOattrs,_lhsOtok)))+-- HsTokens ----------------------------------------------------+{-+ visit 0:+ synthesized attribute:+ tks : [(Pos,String)]+ alternatives:+ alternative Cons:+ child hd : HsToken + child tl : HsTokens + alternative Nil:+-}+-- cata+sem_HsTokens :: HsTokens ->+ T_HsTokens+sem_HsTokens list =+ (Prelude.foldr sem_HsTokens_Cons sem_HsTokens_Nil (Prelude.map sem_HsToken list))+-- semantic domain+newtype T_HsTokens = T_HsTokens (( ([(Pos,String)])))+data Inh_HsTokens = Inh_HsTokens {}+data Syn_HsTokens = Syn_HsTokens {tks_Syn_HsTokens :: ([(Pos,String)])}+wrap_HsTokens :: T_HsTokens ->+ Inh_HsTokens ->+ Syn_HsTokens+wrap_HsTokens (T_HsTokens sem) (Inh_HsTokens) =+ (let ( _lhsOtks) = sem+ in (Syn_HsTokens _lhsOtks))+sem_HsTokens_Cons :: T_HsToken ->+ T_HsTokens ->+ T_HsTokens+sem_HsTokens_Cons (T_HsToken hd_) (T_HsTokens tl_) =+ (T_HsTokens (let _lhsOtks :: ([(Pos,String)])+ _hdIattrs :: (Map String (Maybe NonLocalAttr))+ _hdItok :: ((Pos,String))+ _tlItks :: ([(Pos,String)])+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1377, column 10)+ _lhsOtks =+ ({-# LINE 1377 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdItok : _tlItks+ {-# LINE 5836 "dist/build/ExecutionPlan2Hs" #-}+ )+ ( _hdIattrs,_hdItok) =+ hd_+ ( _tlItks) =+ tl_+ ___node =+ (Syn_HsTokens _lhsOtks)+ in ( _lhsOtks)))+sem_HsTokens_Nil :: T_HsTokens+sem_HsTokens_Nil =+ (T_HsTokens (let _lhsOtks :: ([(Pos,String)])+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1378, column 10)+ _lhsOtks =+ ({-# LINE 1378 "src-ag/ExecutionPlan2Hs.ag" #-}+ []+ {-# LINE 5852 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_HsTokens _lhsOtks)+ in ( _lhsOtks)))+-- HsTokensRoot ------------------------------------------------+{-+ alternatives:+ alternative HsTokensRoot:+ child tokens : HsTokens +-}+-- cata+sem_HsTokensRoot :: HsTokensRoot ->+ T_HsTokensRoot+sem_HsTokensRoot (HsTokensRoot _tokens) =+ (sem_HsTokensRoot_HsTokensRoot (sem_HsTokens _tokens))+-- semantic domain+newtype T_HsTokensRoot = T_HsTokensRoot (( ))+data Inh_HsTokensRoot = Inh_HsTokensRoot {}+data Syn_HsTokensRoot = Syn_HsTokensRoot {}+wrap_HsTokensRoot :: T_HsTokensRoot ->+ Inh_HsTokensRoot ->+ Syn_HsTokensRoot+wrap_HsTokensRoot (T_HsTokensRoot sem) (Inh_HsTokensRoot) =+ (let ( ) = sem+ in (Syn_HsTokensRoot))+sem_HsTokensRoot_HsTokensRoot :: T_HsTokens ->+ T_HsTokensRoot+sem_HsTokensRoot_HsTokensRoot (T_HsTokens tokens_) =+ (T_HsTokensRoot (let _tokensItks :: ([(Pos,String)])+ ( _tokensItks) =+ tokens_+ ___node =+ (Syn_HsTokensRoot)+ in ( )))+-- Pattern -----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allInhmap : Map NontermIdent Attributes+ allSynmap : Map NontermIdent Attributes+ anyLazyKind : Bool+ inhmap : Attributes+ localAttrTypes : Map Identifier Type+ options : Options+ synmap : Attributes+ synthesized attributes:+ attrTypes : PP_Doc+ attrs : Set String+ copy : Pattern + isUnderscore : Bool+ sem_lhs : PP_Doc + alternatives:+ alternative Alias:+ child field : {Identifier}+ child attr : {Identifier}+ child pat : Pattern + visit 0:+ local varPat : _+ local patExpr : _+ local mbTp : _+ local addbang : _+ local addbang1 : _+ local copy : _+ alternative Constr:+ child name : {ConstructorIdent}+ child pats : Patterns + visit 0:+ local addbang : _+ local addbang1 : _+ local copy : _+ alternative Irrefutable:+ child pat : Pattern + visit 0:+ local copy : _+ alternative Product:+ child pos : {Pos}+ child pats : Patterns + visit 0:+ local addbang : _+ local addbang1 : _+ local copy : _+ alternative Underscore:+ child pos : {Pos}+ visit 0:+ local copy : _+-}+-- cata+sem_Pattern :: Pattern ->+ T_Pattern+sem_Pattern (Alias _field _attr _pat) =+ (sem_Pattern_Alias _field _attr (sem_Pattern _pat))+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 ((Map NontermIdent Attributes) ->+ (Map NontermIdent Attributes) ->+ Bool ->+ Attributes ->+ (Map Identifier Type) ->+ Options ->+ Attributes ->+ ( PP_Doc,(Set String),Pattern,Bool,( PP_Doc )))+data Inh_Pattern = Inh_Pattern {allInhmap_Inh_Pattern :: (Map NontermIdent Attributes),allSynmap_Inh_Pattern :: (Map NontermIdent Attributes),anyLazyKind_Inh_Pattern :: Bool,inhmap_Inh_Pattern :: Attributes,localAttrTypes_Inh_Pattern :: (Map Identifier Type),options_Inh_Pattern :: Options,synmap_Inh_Pattern :: Attributes}+data Syn_Pattern = Syn_Pattern {attrTypes_Syn_Pattern :: PP_Doc,attrs_Syn_Pattern :: (Set String),copy_Syn_Pattern :: Pattern,isUnderscore_Syn_Pattern :: Bool,sem_lhs_Syn_Pattern :: ( PP_Doc )}+wrap_Pattern :: T_Pattern ->+ Inh_Pattern ->+ Syn_Pattern+wrap_Pattern (T_Pattern sem) (Inh_Pattern _lhsIallInhmap _lhsIallSynmap _lhsIanyLazyKind _lhsIinhmap _lhsIlocalAttrTypes _lhsIoptions _lhsIsynmap) =+ (let ( _lhsOattrTypes,_lhsOattrs,_lhsOcopy,_lhsOisUnderscore,_lhsOsem_lhs) = sem _lhsIallInhmap _lhsIallSynmap _lhsIanyLazyKind _lhsIinhmap _lhsIlocalAttrTypes _lhsIoptions _lhsIsynmap+ in (Syn_Pattern _lhsOattrTypes _lhsOattrs _lhsOcopy _lhsOisUnderscore _lhsOsem_lhs))+sem_Pattern_Alias :: Identifier ->+ Identifier ->+ T_Pattern ->+ T_Pattern+sem_Pattern_Alias field_ attr_ (T_Pattern pat_) =+ (T_Pattern (\ _lhsIallInhmap+ _lhsIallSynmap+ _lhsIanyLazyKind+ _lhsIinhmap+ _lhsIlocalAttrTypes+ _lhsIoptions+ _lhsIsynmap ->+ (let _lhsOsem_lhs :: ( PP_Doc )+ _lhsOisUnderscore :: Bool+ _lhsOattrs :: (Set String)+ _lhsOattrTypes :: PP_Doc+ _lhsOcopy :: Pattern+ _patOallInhmap :: (Map NontermIdent Attributes)+ _patOallSynmap :: (Map NontermIdent Attributes)+ _patOanyLazyKind :: Bool+ _patOinhmap :: Attributes+ _patOlocalAttrTypes :: (Map Identifier Type)+ _patOoptions :: Options+ _patOsynmap :: Attributes+ _patIattrTypes :: PP_Doc+ _patIattrs :: (Set String)+ _patIcopy :: Pattern+ _patIisUnderscore :: Bool+ _patIsem_lhs :: ( PP_Doc )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1099, column 17)+ _varPat =+ ({-# LINE 1099 "src-ag/ExecutionPlan2Hs.ag" #-}+ text $ attrname False field_ attr_+ {-# LINE 6002 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1100, column 17)+ _patExpr =+ ({-# LINE 1100 "src-ag/ExecutionPlan2Hs.ag" #-}+ if _patIisUnderscore+ then _varPat+ else _varPat >|< "@" >|< _patIsem_lhs+ {-# LINE 6010 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1103, column 17)+ _lhsOsem_lhs =+ ({-# LINE 1103 "src-ag/ExecutionPlan2Hs.ag" #-}+ _addbang1 _patExpr+ {-# LINE 6016 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1114, column 16)+ _lhsOisUnderscore =+ ({-# LINE 1114 "src-ag/ExecutionPlan2Hs.ag" #-}+ False+ {-# LINE 6022 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1120, column 3)+ _lhsOattrs =+ ({-# LINE 1120 "src-ag/ExecutionPlan2Hs.ag" #-}+ Set.insert (attrname False field_ attr_) _patIattrs+ {-# LINE 6028 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1125, column 3)+ _mbTp =+ ({-# LINE 1125 "src-ag/ExecutionPlan2Hs.ag" #-}+ if field_ == _LHS+ then Map.lookup attr_ _lhsIsynmap+ else if field_ == _LOC+ then Map.lookup attr_ _lhsIlocalAttrTypes+ else Nothing+ {-# LINE 6038 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1130, column 3)+ _lhsOattrTypes =+ ({-# LINE 1130 "src-ag/ExecutionPlan2Hs.ag" #-}+ maybe empty (\tp -> (attrname False field_ attr_) >#< "::" >#< ppTp tp) _mbTp+ >-< _patIattrTypes+ {-# LINE 6045 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1521, column 37)+ _addbang =+ ({-# LINE 1521 "src-ag/ExecutionPlan2Hs.ag" #-}+ \x -> if bangpats _lhsIoptions then "!" >|< x else x+ {-# LINE 6051 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1526, column 37)+ _addbang1 =+ ({-# LINE 1526 "src-ag/ExecutionPlan2Hs.ag" #-}+ if _lhsIanyLazyKind then id else _addbang+ {-# LINE 6057 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Alias field_ attr_ _patIcopy+ {-# LINE 6063 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 6069 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patOallInhmap =+ ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInhmap+ {-# LINE 6075 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patOallSynmap =+ ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallSynmap+ {-# LINE 6081 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patOanyLazyKind =+ ({-# LINE 1267 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIanyLazyKind+ {-# LINE 6087 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patOinhmap =+ ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinhmap+ {-# LINE 6093 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patOlocalAttrTypes =+ ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIlocalAttrTypes+ {-# LINE 6099 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 6105 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patOsynmap =+ ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIsynmap+ {-# LINE 6111 "dist/build/ExecutionPlan2Hs" #-}+ )+ ( _patIattrTypes,_patIattrs,_patIcopy,_patIisUnderscore,_patIsem_lhs) =+ pat_ _patOallInhmap _patOallSynmap _patOanyLazyKind _patOinhmap _patOlocalAttrTypes _patOoptions _patOsynmap+ ___node =+ (Syn_Pattern _lhsOattrTypes _lhsOattrs _lhsOcopy _lhsOisUnderscore _lhsOsem_lhs)+ in ( _lhsOattrTypes,_lhsOattrs,_lhsOcopy,_lhsOisUnderscore,_lhsOsem_lhs))))+sem_Pattern_Constr :: ConstructorIdent ->+ T_Patterns ->+ T_Pattern+sem_Pattern_Constr name_ (T_Patterns pats_) =+ (T_Pattern (\ _lhsIallInhmap+ _lhsIallSynmap+ _lhsIanyLazyKind+ _lhsIinhmap+ _lhsIlocalAttrTypes+ _lhsIoptions+ _lhsIsynmap ->+ (let _lhsOsem_lhs :: ( PP_Doc )+ _lhsOisUnderscore :: Bool+ _lhsOattrTypes :: PP_Doc+ _lhsOattrs :: (Set String)+ _lhsOcopy :: Pattern+ _patsOallInhmap :: (Map NontermIdent Attributes)+ _patsOallSynmap :: (Map NontermIdent Attributes)+ _patsOanyLazyKind :: Bool+ _patsOinhmap :: Attributes+ _patsOlocalAttrTypes :: (Map Identifier Type)+ _patsOoptions :: Options+ _patsOsynmap :: Attributes+ _patsIattrTypes :: PP_Doc+ _patsIattrs :: (Set String)+ _patsIcopy :: Patterns+ _patsIsem_lhs :: ([PP_Doc])+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1105, column 17)+ _lhsOsem_lhs =+ ({-# LINE 1105 "src-ag/ExecutionPlan2Hs.ag" #-}+ _addbang1 $ pp_parens $ name_ >#< hv_sp _patsIsem_lhs+ {-# LINE 6149 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1112, column 16)+ _lhsOisUnderscore =+ ({-# LINE 1112 "src-ag/ExecutionPlan2Hs.ag" #-}+ False+ {-# LINE 6155 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1521, column 37)+ _addbang =+ ({-# LINE 1521 "src-ag/ExecutionPlan2Hs.ag" #-}+ \x -> if bangpats _lhsIoptions then "!" >|< x else x+ {-# LINE 6161 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1526, column 37)+ _addbang1 =+ ({-# LINE 1526 "src-ag/ExecutionPlan2Hs.ag" #-}+ if _lhsIanyLazyKind then id else _addbang+ {-# LINE 6167 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1123, column 40)+ _lhsOattrTypes =+ ({-# LINE 1123 "src-ag/ExecutionPlan2Hs.ag" #-}+ _patsIattrTypes+ {-# LINE 6173 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1118, column 36)+ _lhsOattrs =+ ({-# LINE 1118 "src-ag/ExecutionPlan2Hs.ag" #-}+ _patsIattrs+ {-# LINE 6179 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Constr name_ _patsIcopy+ {-# LINE 6185 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 6191 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patsOallInhmap =+ ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInhmap+ {-# LINE 6197 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patsOallSynmap =+ ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallSynmap+ {-# LINE 6203 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patsOanyLazyKind =+ ({-# LINE 1267 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIanyLazyKind+ {-# LINE 6209 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patsOinhmap =+ ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinhmap+ {-# LINE 6215 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patsOlocalAttrTypes =+ ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIlocalAttrTypes+ {-# LINE 6221 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patsOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 6227 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patsOsynmap =+ ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIsynmap+ {-# LINE 6233 "dist/build/ExecutionPlan2Hs" #-}+ )+ ( _patsIattrTypes,_patsIattrs,_patsIcopy,_patsIsem_lhs) =+ pats_ _patsOallInhmap _patsOallSynmap _patsOanyLazyKind _patsOinhmap _patsOlocalAttrTypes _patsOoptions _patsOsynmap+ ___node =+ (Syn_Pattern _lhsOattrTypes _lhsOattrs _lhsOcopy _lhsOisUnderscore _lhsOsem_lhs)+ in ( _lhsOattrTypes,_lhsOattrs,_lhsOcopy,_lhsOisUnderscore,_lhsOsem_lhs))))+sem_Pattern_Irrefutable :: T_Pattern ->+ T_Pattern+sem_Pattern_Irrefutable (T_Pattern pat_) =+ (T_Pattern (\ _lhsIallInhmap+ _lhsIallSynmap+ _lhsIanyLazyKind+ _lhsIinhmap+ _lhsIlocalAttrTypes+ _lhsIoptions+ _lhsIsynmap ->+ (let _lhsOsem_lhs :: ( PP_Doc )+ _lhsOattrTypes :: PP_Doc+ _lhsOattrs :: (Set String)+ _lhsOcopy :: Pattern+ _lhsOisUnderscore :: Bool+ _patOallInhmap :: (Map NontermIdent Attributes)+ _patOallSynmap :: (Map NontermIdent Attributes)+ _patOanyLazyKind :: Bool+ _patOinhmap :: Attributes+ _patOlocalAttrTypes :: (Map Identifier Type)+ _patOoptions :: Options+ _patOsynmap :: Attributes+ _patIattrTypes :: PP_Doc+ _patIattrs :: (Set String)+ _patIcopy :: Pattern+ _patIisUnderscore :: Bool+ _patIsem_lhs :: ( PP_Doc )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1107, column 17)+ _lhsOsem_lhs =+ ({-# LINE 1107 "src-ag/ExecutionPlan2Hs.ag" #-}+ text "~" >|< pp_parens _patIsem_lhs+ {-# LINE 6271 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1123, column 40)+ _lhsOattrTypes =+ ({-# LINE 1123 "src-ag/ExecutionPlan2Hs.ag" #-}+ _patIattrTypes+ {-# LINE 6277 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1118, column 36)+ _lhsOattrs =+ ({-# LINE 1118 "src-ag/ExecutionPlan2Hs.ag" #-}+ _patIattrs+ {-# LINE 6283 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Irrefutable _patIcopy+ {-# LINE 6289 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 6295 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (up)+ _lhsOisUnderscore =+ ({-# LINE 1110 "src-ag/ExecutionPlan2Hs.ag" #-}+ _patIisUnderscore+ {-# LINE 6301 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patOallInhmap =+ ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInhmap+ {-# LINE 6307 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patOallSynmap =+ ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallSynmap+ {-# LINE 6313 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patOanyLazyKind =+ ({-# LINE 1267 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIanyLazyKind+ {-# LINE 6319 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patOinhmap =+ ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinhmap+ {-# LINE 6325 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patOlocalAttrTypes =+ ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIlocalAttrTypes+ {-# LINE 6331 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 6337 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patOsynmap =+ ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIsynmap+ {-# LINE 6343 "dist/build/ExecutionPlan2Hs" #-}+ )+ ( _patIattrTypes,_patIattrs,_patIcopy,_patIisUnderscore,_patIsem_lhs) =+ pat_ _patOallInhmap _patOallSynmap _patOanyLazyKind _patOinhmap _patOlocalAttrTypes _patOoptions _patOsynmap+ ___node =+ (Syn_Pattern _lhsOattrTypes _lhsOattrs _lhsOcopy _lhsOisUnderscore _lhsOsem_lhs)+ in ( _lhsOattrTypes,_lhsOattrs,_lhsOcopy,_lhsOisUnderscore,_lhsOsem_lhs))))+sem_Pattern_Product :: Pos ->+ T_Patterns ->+ T_Pattern+sem_Pattern_Product pos_ (T_Patterns pats_) =+ (T_Pattern (\ _lhsIallInhmap+ _lhsIallSynmap+ _lhsIanyLazyKind+ _lhsIinhmap+ _lhsIlocalAttrTypes+ _lhsIoptions+ _lhsIsynmap ->+ (let _lhsOsem_lhs :: ( PP_Doc )+ _lhsOisUnderscore :: Bool+ _lhsOattrTypes :: PP_Doc+ _lhsOattrs :: (Set String)+ _lhsOcopy :: Pattern+ _patsOallInhmap :: (Map NontermIdent Attributes)+ _patsOallSynmap :: (Map NontermIdent Attributes)+ _patsOanyLazyKind :: Bool+ _patsOinhmap :: Attributes+ _patsOlocalAttrTypes :: (Map Identifier Type)+ _patsOoptions :: Options+ _patsOsynmap :: Attributes+ _patsIattrTypes :: PP_Doc+ _patsIattrs :: (Set String)+ _patsIcopy :: Patterns+ _patsIsem_lhs :: ([PP_Doc])+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1104, column 17)+ _lhsOsem_lhs =+ ({-# LINE 1104 "src-ag/ExecutionPlan2Hs.ag" #-}+ _addbang1 $ pp_block "(" ")" "," _patsIsem_lhs+ {-# LINE 6381 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1113, column 16)+ _lhsOisUnderscore =+ ({-# LINE 1113 "src-ag/ExecutionPlan2Hs.ag" #-}+ False+ {-# LINE 6387 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1521, column 37)+ _addbang =+ ({-# LINE 1521 "src-ag/ExecutionPlan2Hs.ag" #-}+ \x -> if bangpats _lhsIoptions then "!" >|< x else x+ {-# LINE 6393 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1526, column 37)+ _addbang1 =+ ({-# LINE 1526 "src-ag/ExecutionPlan2Hs.ag" #-}+ if _lhsIanyLazyKind then id else _addbang+ {-# LINE 6399 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1123, column 40)+ _lhsOattrTypes =+ ({-# LINE 1123 "src-ag/ExecutionPlan2Hs.ag" #-}+ _patsIattrTypes+ {-# LINE 6405 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1118, column 36)+ _lhsOattrs =+ ({-# LINE 1118 "src-ag/ExecutionPlan2Hs.ag" #-}+ _patsIattrs+ {-# LINE 6411 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Product pos_ _patsIcopy+ {-# LINE 6417 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 6423 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patsOallInhmap =+ ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInhmap+ {-# LINE 6429 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patsOallSynmap =+ ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallSynmap+ {-# LINE 6435 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patsOanyLazyKind =+ ({-# LINE 1267 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIanyLazyKind+ {-# LINE 6441 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patsOinhmap =+ ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinhmap+ {-# LINE 6447 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patsOlocalAttrTypes =+ ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIlocalAttrTypes+ {-# LINE 6453 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patsOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 6459 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _patsOsynmap =+ ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIsynmap+ {-# LINE 6465 "dist/build/ExecutionPlan2Hs" #-}+ )+ ( _patsIattrTypes,_patsIattrs,_patsIcopy,_patsIsem_lhs) =+ pats_ _patsOallInhmap _patsOallSynmap _patsOanyLazyKind _patsOinhmap _patsOlocalAttrTypes _patsOoptions _patsOsynmap+ ___node =+ (Syn_Pattern _lhsOattrTypes _lhsOattrs _lhsOcopy _lhsOisUnderscore _lhsOsem_lhs)+ in ( _lhsOattrTypes,_lhsOattrs,_lhsOcopy,_lhsOisUnderscore,_lhsOsem_lhs))))+sem_Pattern_Underscore :: Pos ->+ T_Pattern+sem_Pattern_Underscore pos_ =+ (T_Pattern (\ _lhsIallInhmap+ _lhsIallSynmap+ _lhsIanyLazyKind+ _lhsIinhmap+ _lhsIlocalAttrTypes+ _lhsIoptions+ _lhsIsynmap ->+ (let _lhsOsem_lhs :: ( PP_Doc )+ _lhsOisUnderscore :: Bool+ _lhsOattrTypes :: PP_Doc+ _lhsOattrs :: (Set String)+ _lhsOcopy :: Pattern+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1106, column 17)+ _lhsOsem_lhs =+ ({-# LINE 1106 "src-ag/ExecutionPlan2Hs.ag" #-}+ text "_"+ {-# LINE 6491 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1115, column 16)+ _lhsOisUnderscore =+ ({-# LINE 1115 "src-ag/ExecutionPlan2Hs.ag" #-}+ True+ {-# LINE 6497 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1123, column 40)+ _lhsOattrTypes =+ ({-# LINE 1123 "src-ag/ExecutionPlan2Hs.ag" #-}+ empty+ {-# LINE 6503 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1118, column 36)+ _lhsOattrs =+ ({-# LINE 1118 "src-ag/ExecutionPlan2Hs.ag" #-}+ Set.empty+ {-# LINE 6509 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Underscore pos_+ {-# LINE 6515 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 6521 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_Pattern _lhsOattrTypes _lhsOattrs _lhsOcopy _lhsOisUnderscore _lhsOsem_lhs)+ in ( _lhsOattrTypes,_lhsOattrs,_lhsOcopy,_lhsOisUnderscore,_lhsOsem_lhs))))+-- Patterns ----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allInhmap : Map NontermIdent Attributes+ allSynmap : Map NontermIdent Attributes+ anyLazyKind : Bool+ inhmap : Attributes+ localAttrTypes : Map Identifier Type+ options : Options+ synmap : Attributes+ synthesized attributes:+ attrTypes : PP_Doc+ attrs : Set String+ copy : Patterns + sem_lhs : [PP_Doc]+ 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 ((Map NontermIdent Attributes) ->+ (Map NontermIdent Attributes) ->+ Bool ->+ Attributes ->+ (Map Identifier Type) ->+ Options ->+ Attributes ->+ ( PP_Doc,(Set String),Patterns,([PP_Doc])))+data Inh_Patterns = Inh_Patterns {allInhmap_Inh_Patterns :: (Map NontermIdent Attributes),allSynmap_Inh_Patterns :: (Map NontermIdent Attributes),anyLazyKind_Inh_Patterns :: Bool,inhmap_Inh_Patterns :: Attributes,localAttrTypes_Inh_Patterns :: (Map Identifier Type),options_Inh_Patterns :: Options,synmap_Inh_Patterns :: Attributes}+data Syn_Patterns = Syn_Patterns {attrTypes_Syn_Patterns :: PP_Doc,attrs_Syn_Patterns :: (Set String),copy_Syn_Patterns :: Patterns,sem_lhs_Syn_Patterns :: ([PP_Doc])}+wrap_Patterns :: T_Patterns ->+ Inh_Patterns ->+ Syn_Patterns+wrap_Patterns (T_Patterns sem) (Inh_Patterns _lhsIallInhmap _lhsIallSynmap _lhsIanyLazyKind _lhsIinhmap _lhsIlocalAttrTypes _lhsIoptions _lhsIsynmap) =+ (let ( _lhsOattrTypes,_lhsOattrs,_lhsOcopy,_lhsOsem_lhs) = sem _lhsIallInhmap _lhsIallSynmap _lhsIanyLazyKind _lhsIinhmap _lhsIlocalAttrTypes _lhsIoptions _lhsIsynmap+ in (Syn_Patterns _lhsOattrTypes _lhsOattrs _lhsOcopy _lhsOsem_lhs))+sem_Patterns_Cons :: T_Pattern ->+ T_Patterns ->+ T_Patterns+sem_Patterns_Cons (T_Pattern hd_) (T_Patterns tl_) =+ (T_Patterns (\ _lhsIallInhmap+ _lhsIallSynmap+ _lhsIanyLazyKind+ _lhsIinhmap+ _lhsIlocalAttrTypes+ _lhsIoptions+ _lhsIsynmap ->+ (let _lhsOattrTypes :: PP_Doc+ _lhsOattrs :: (Set String)+ _lhsOsem_lhs :: ([PP_Doc])+ _lhsOcopy :: Patterns+ _hdOallInhmap :: (Map NontermIdent Attributes)+ _hdOallSynmap :: (Map NontermIdent Attributes)+ _hdOanyLazyKind :: Bool+ _hdOinhmap :: Attributes+ _hdOlocalAttrTypes :: (Map Identifier Type)+ _hdOoptions :: Options+ _hdOsynmap :: Attributes+ _tlOallInhmap :: (Map NontermIdent Attributes)+ _tlOallSynmap :: (Map NontermIdent Attributes)+ _tlOanyLazyKind :: Bool+ _tlOinhmap :: Attributes+ _tlOlocalAttrTypes :: (Map Identifier Type)+ _tlOoptions :: Options+ _tlOsynmap :: Attributes+ _hdIattrTypes :: PP_Doc+ _hdIattrs :: (Set String)+ _hdIcopy :: Pattern+ _hdIisUnderscore :: Bool+ _hdIsem_lhs :: ( PP_Doc )+ _tlIattrTypes :: PP_Doc+ _tlIattrs :: (Set String)+ _tlIcopy :: Patterns+ _tlIsem_lhs :: ([PP_Doc])+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1123, column 40)+ _lhsOattrTypes =+ ({-# LINE 1123 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIattrTypes >-< _tlIattrTypes+ {-# LINE 6616 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1118, column 36)+ _lhsOattrs =+ ({-# LINE 1118 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIattrs `Set.union` _tlIattrs+ {-# LINE 6622 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1095, column 29)+ _lhsOsem_lhs =+ ({-# LINE 1095 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIsem_lhs : _tlIsem_lhs+ {-# LINE 6628 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ (:) _hdIcopy _tlIcopy+ {-# LINE 6634 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 6640 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallInhmap =+ ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInhmap+ {-# LINE 6646 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallSynmap =+ ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallSynmap+ {-# LINE 6652 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOanyLazyKind =+ ({-# LINE 1267 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIanyLazyKind+ {-# LINE 6658 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOinhmap =+ ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinhmap+ {-# LINE 6664 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOlocalAttrTypes =+ ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIlocalAttrTypes+ {-# LINE 6670 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 6676 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOsynmap =+ ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIsynmap+ {-# LINE 6682 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallInhmap =+ ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInhmap+ {-# LINE 6688 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallSynmap =+ ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallSynmap+ {-# LINE 6694 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOanyLazyKind =+ ({-# LINE 1267 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIanyLazyKind+ {-# LINE 6700 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOinhmap =+ ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinhmap+ {-# LINE 6706 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOlocalAttrTypes =+ ({-# LINE 1578 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIlocalAttrTypes+ {-# LINE 6712 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 6718 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOsynmap =+ ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIsynmap+ {-# LINE 6724 "dist/build/ExecutionPlan2Hs" #-}+ )+ ( _hdIattrTypes,_hdIattrs,_hdIcopy,_hdIisUnderscore,_hdIsem_lhs) =+ hd_ _hdOallInhmap _hdOallSynmap _hdOanyLazyKind _hdOinhmap _hdOlocalAttrTypes _hdOoptions _hdOsynmap+ ( _tlIattrTypes,_tlIattrs,_tlIcopy,_tlIsem_lhs) =+ tl_ _tlOallInhmap _tlOallSynmap _tlOanyLazyKind _tlOinhmap _tlOlocalAttrTypes _tlOoptions _tlOsynmap+ ___node =+ (Syn_Patterns _lhsOattrTypes _lhsOattrs _lhsOcopy _lhsOsem_lhs)+ in ( _lhsOattrTypes,_lhsOattrs,_lhsOcopy,_lhsOsem_lhs))))+sem_Patterns_Nil :: T_Patterns+sem_Patterns_Nil =+ (T_Patterns (\ _lhsIallInhmap+ _lhsIallSynmap+ _lhsIanyLazyKind+ _lhsIinhmap+ _lhsIlocalAttrTypes+ _lhsIoptions+ _lhsIsynmap ->+ (let _lhsOattrTypes :: PP_Doc+ _lhsOattrs :: (Set String)+ _lhsOsem_lhs :: ([PP_Doc])+ _lhsOcopy :: Patterns+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1123, column 40)+ _lhsOattrTypes =+ ({-# LINE 1123 "src-ag/ExecutionPlan2Hs.ag" #-}+ empty+ {-# LINE 6750 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1118, column 36)+ _lhsOattrs =+ ({-# LINE 1118 "src-ag/ExecutionPlan2Hs.ag" #-}+ Set.empty+ {-# LINE 6756 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1095, column 29)+ _lhsOsem_lhs =+ ({-# LINE 1095 "src-ag/ExecutionPlan2Hs.ag" #-}+ []+ {-# LINE 6762 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ []+ {-# LINE 6768 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 6774 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_Patterns _lhsOattrTypes _lhsOattrs _lhsOcopy _lhsOsem_lhs)+ in ( _lhsOattrTypes,_lhsOattrs,_lhsOcopy,_lhsOsem_lhs))))+-- Visit -------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allFromToStates : Map VisitIdentifier (Int,Int)+ allInhmap : Map NontermIdent Attributes+ allInitStates : Map NontermIdent Int+ allSynmap : Map NontermIdent Attributes+ allVisitKinds : Map VisitIdentifier VisitKind+ allchildvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))+ allintramap : Map StateIdentifier (Map String (Maybe NonLocalAttr))+ avisitdefs : Map VisitIdentifier (Set Identifier)+ avisituses : Map VisitIdentifier (Set Identifier)+ childTypes : Map Identifier Type+ childintros : Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))+ con : ConstructorIdent+ inhmap : Attributes+ mrules : Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)+ nextVisits : Map StateIdentifier StateCtx+ nt : NontermIdent+ options : Options+ params : [Identifier]+ prevVisits : Map StateIdentifier StateCtx+ ruledefs : Map Identifier (Set String)+ ruleuses : Map Identifier (Map String (Maybe NonLocalAttr))+ synmap : Attributes+ terminaldefs : Set String+ synthesized attributes:+ allvisits : VisitStateState + childvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))+ errors : Seq Error+ fromToStates : Map VisitIdentifier (Int,Int)+ intramap : Map StateIdentifier (Map String (Maybe NonLocalAttr))+ lazyIntras : Set String+ ruleKinds : Map Identifier (Set VisitKind)+ ruleUsage : Map Identifier Int+ sem_visit : (StateIdentifier,Bool -> PP_Doc) + t_visits : PP_Doc+ visitKinds : Map VisitIdentifier VisitKind+ visitdefs : Map VisitIdentifier (Set Identifier)+ visituses : Map VisitIdentifier (Set Identifier)+ alternatives:+ alternative Visit:+ child ident : {VisitIdentifier}+ child from : {StateIdentifier}+ child to : {StateIdentifier}+ child inh : {Set Identifier}+ child syn : {Set Identifier}+ child steps : VisitSteps + child kind : {VisitKind}+ visit 0:+ local nameT_visit : _+ local nameTIn_visit : _+ local nameTOut_visit : _+ local nameTNext_visit : _+ local nextVisitInfo : _+ local typecon : _+ local t_params : _+ local inhpart : _+ local synpart : _+ local ppTypeList : _+ local stepsInitial : _+ local stepsClosing : _+ local vname : _+ local inhpats : _+ local inhargs : _+ local synargs : _+ local nextargsMp : _+ local nextargs : _+ local nextst : _+ local resultval : _+ local nextStBuild : _+ local nextStRef : _+ local prevVisitInfo : _+ local invokecode : _+ local thisintra : _+ local nextintra : _+ local uses : _+ local inhVarNms : _+ local defs : _+ local defsAsMap : _+ local lazyIntrasInh : _+ local addbang : _+ local addbang1 : _+-}+-- cata+sem_Visit :: Visit ->+ T_Visit+sem_Visit (Visit _ident _from _to _inh _syn _steps _kind) =+ (sem_Visit_Visit _ident _from _to _inh _syn (sem_VisitSteps _steps) _kind)+-- semantic domain+newtype T_Visit = T_Visit ((Map VisitIdentifier (Int,Int)) ->+ (Map NontermIdent Attributes) ->+ (Map NontermIdent Int) ->+ (Map NontermIdent Attributes) ->+ (Map VisitIdentifier VisitKind) ->+ (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))) ->+ (Map StateIdentifier (Map String (Maybe NonLocalAttr))) ->+ (Map VisitIdentifier (Set Identifier)) ->+ (Map VisitIdentifier (Set Identifier)) ->+ (Map Identifier Type) ->+ (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))) ->+ ConstructorIdent ->+ Attributes ->+ (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)) ->+ (Map StateIdentifier StateCtx) ->+ NontermIdent ->+ Options ->+ ([Identifier]) ->+ (Map StateIdentifier StateCtx) ->+ (Map Identifier (Set String)) ->+ (Map Identifier (Map String (Maybe NonLocalAttr))) ->+ Attributes ->+ (Set String) ->+ ( ( VisitStateState ),(Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),(Seq Error),(Map VisitIdentifier (Int,Int)),(Map StateIdentifier (Map String (Maybe NonLocalAttr))),(Set String),(Map Identifier (Set VisitKind)),(Map Identifier Int),( (StateIdentifier,Bool -> PP_Doc) ),PP_Doc,(Map VisitIdentifier VisitKind),(Map VisitIdentifier (Set Identifier)),(Map VisitIdentifier (Set Identifier))))+data Inh_Visit = Inh_Visit {allFromToStates_Inh_Visit :: (Map VisitIdentifier (Int,Int)),allInhmap_Inh_Visit :: (Map NontermIdent Attributes),allInitStates_Inh_Visit :: (Map NontermIdent Int),allSynmap_Inh_Visit :: (Map NontermIdent Attributes),allVisitKinds_Inh_Visit :: (Map VisitIdentifier VisitKind),allchildvisit_Inh_Visit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),allintramap_Inh_Visit :: (Map StateIdentifier (Map String (Maybe NonLocalAttr))),avisitdefs_Inh_Visit :: (Map VisitIdentifier (Set Identifier)),avisituses_Inh_Visit :: (Map VisitIdentifier (Set Identifier)),childTypes_Inh_Visit :: (Map Identifier Type),childintros_Inh_Visit :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))),con_Inh_Visit :: ConstructorIdent,inhmap_Inh_Visit :: Attributes,mrules_Inh_Visit :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)),nextVisits_Inh_Visit :: (Map StateIdentifier StateCtx),nt_Inh_Visit :: NontermIdent,options_Inh_Visit :: Options,params_Inh_Visit :: ([Identifier]),prevVisits_Inh_Visit :: (Map StateIdentifier StateCtx),ruledefs_Inh_Visit :: (Map Identifier (Set String)),ruleuses_Inh_Visit :: (Map Identifier (Map String (Maybe NonLocalAttr))),synmap_Inh_Visit :: Attributes,terminaldefs_Inh_Visit :: (Set String)}+data Syn_Visit = Syn_Visit {allvisits_Syn_Visit :: ( VisitStateState ),childvisit_Syn_Visit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),errors_Syn_Visit :: (Seq Error),fromToStates_Syn_Visit :: (Map VisitIdentifier (Int,Int)),intramap_Syn_Visit :: (Map StateIdentifier (Map String (Maybe NonLocalAttr))),lazyIntras_Syn_Visit :: (Set String),ruleKinds_Syn_Visit :: (Map Identifier (Set VisitKind)),ruleUsage_Syn_Visit :: (Map Identifier Int),sem_visit_Syn_Visit :: ( (StateIdentifier,Bool -> PP_Doc) ),t_visits_Syn_Visit :: PP_Doc,visitKinds_Syn_Visit :: (Map VisitIdentifier VisitKind),visitdefs_Syn_Visit :: (Map VisitIdentifier (Set Identifier)),visituses_Syn_Visit :: (Map VisitIdentifier (Set Identifier))}+wrap_Visit :: T_Visit ->+ Inh_Visit ->+ Syn_Visit+wrap_Visit (T_Visit sem) (Inh_Visit _lhsIallFromToStates _lhsIallInhmap _lhsIallInitStates _lhsIallSynmap _lhsIallVisitKinds _lhsIallchildvisit _lhsIallintramap _lhsIavisitdefs _lhsIavisituses _lhsIchildTypes _lhsIchildintros _lhsIcon _lhsIinhmap _lhsImrules _lhsInextVisits _lhsInt _lhsIoptions _lhsIparams _lhsIprevVisits _lhsIruledefs _lhsIruleuses _lhsIsynmap _lhsIterminaldefs) =+ (let ( _lhsOallvisits,_lhsOchildvisit,_lhsOerrors,_lhsOfromToStates,_lhsOintramap,_lhsOlazyIntras,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_visit,_lhsOt_visits,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses) = sem _lhsIallFromToStates _lhsIallInhmap _lhsIallInitStates _lhsIallSynmap _lhsIallVisitKinds _lhsIallchildvisit _lhsIallintramap _lhsIavisitdefs _lhsIavisituses _lhsIchildTypes _lhsIchildintros _lhsIcon _lhsIinhmap _lhsImrules _lhsInextVisits _lhsInt _lhsIoptions _lhsIparams _lhsIprevVisits _lhsIruledefs _lhsIruleuses _lhsIsynmap _lhsIterminaldefs+ in (Syn_Visit _lhsOallvisits _lhsOchildvisit _lhsOerrors _lhsOfromToStates _lhsOintramap _lhsOlazyIntras _lhsOruleKinds _lhsOruleUsage _lhsOsem_visit _lhsOt_visits _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses))+sem_Visit_Visit :: VisitIdentifier ->+ StateIdentifier ->+ StateIdentifier ->+ (Set Identifier) ->+ (Set Identifier) ->+ T_VisitSteps ->+ VisitKind ->+ T_Visit+sem_Visit_Visit ident_ from_ to_ inh_ syn_ (T_VisitSteps steps_) kind_ =+ (T_Visit (\ _lhsIallFromToStates+ _lhsIallInhmap+ _lhsIallInitStates+ _lhsIallSynmap+ _lhsIallVisitKinds+ _lhsIallchildvisit+ _lhsIallintramap+ _lhsIavisitdefs+ _lhsIavisituses+ _lhsIchildTypes+ _lhsIchildintros+ _lhsIcon+ _lhsIinhmap+ _lhsImrules+ _lhsInextVisits+ _lhsInt+ _lhsIoptions+ _lhsIparams+ _lhsIprevVisits+ _lhsIruledefs+ _lhsIruleuses+ _lhsIsynmap+ _lhsIterminaldefs ->+ (let _lhsOallvisits :: ( VisitStateState )+ _lhsOt_visits :: PP_Doc+ _lhsOsem_visit :: ( (StateIdentifier,Bool -> PP_Doc) )+ _stepsOkind :: VisitKind+ _stepsOfmtMode :: FormatMode+ _stepsOindex :: Int+ _stepsOprevMaxSimRefs :: Int+ _stepsOuseParallel :: Bool+ _lhsOchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _lhsOintramap :: (Map StateIdentifier (Map String (Maybe NonLocalAttr)))+ _lhsOvisitdefs :: (Map VisitIdentifier (Set Identifier))+ _lhsOvisituses :: (Map VisitIdentifier (Set Identifier))+ _lhsOlazyIntras :: (Set String)+ _lhsOfromToStates :: (Map VisitIdentifier (Int,Int))+ _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)+ _lhsOerrors :: (Seq Error)+ _lhsOruleKinds :: (Map Identifier (Set VisitKind))+ _lhsOruleUsage :: (Map Identifier Int)+ _stepsOallFromToStates :: (Map VisitIdentifier (Int,Int))+ _stepsOallInitStates :: (Map NontermIdent Int)+ _stepsOallVisitKinds :: (Map VisitIdentifier VisitKind)+ _stepsOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _stepsOavisitdefs :: (Map VisitIdentifier (Set Identifier))+ _stepsOavisituses :: (Map VisitIdentifier (Set Identifier))+ _stepsOchildTypes :: (Map Identifier Type)+ _stepsOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))+ _stepsOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))+ _stepsOoptions :: Options+ _stepsOruledefs :: (Map Identifier (Set String))+ _stepsOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))+ _stepsIdefs :: (Set String)+ _stepsIerrors :: (Seq Error)+ _stepsIindex :: Int+ _stepsIisLast :: Bool+ _stepsIlazyIntras :: (Set String)+ _stepsIprevMaxSimRefs :: Int+ _stepsIruleKinds :: (Map Identifier (Set VisitKind))+ _stepsIruleUsage :: (Map Identifier Int)+ _stepsIsem_steps :: PP_Doc+ _stepsIsize :: Int+ _stepsIsync_steps :: PP_Doc+ _stepsIuses :: (Map String (Maybe NonLocalAttr))+ _stepsIvisitKinds :: (Map VisitIdentifier VisitKind)+ -- "src-ag/ExecutionPlan2Hs.ag"(line 341, column 11)+ _lhsOallvisits =+ ({-# LINE 341 "src-ag/ExecutionPlan2Hs.ag" #-}+ (ident_, from_, to_)+ {-# LINE 6981 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 400, column 11)+ _nameT_visit =+ ({-# LINE 400 "src-ag/ExecutionPlan2Hs.ag" #-}+ conNmTVisit _lhsInt ident_+ {-# LINE 6987 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 401, column 11)+ _nameTIn_visit =+ ({-# LINE 401 "src-ag/ExecutionPlan2Hs.ag" #-}+ conNmTVisitIn _lhsInt ident_+ {-# LINE 6993 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 402, column 11)+ _nameTOut_visit =+ ({-# LINE 402 "src-ag/ExecutionPlan2Hs.ag" #-}+ conNmTVisitOut _lhsInt ident_+ {-# LINE 6999 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 403, column 11)+ _nameTNext_visit =+ ({-# LINE 403 "src-ag/ExecutionPlan2Hs.ag" #-}+ conNmTNextVisit _lhsInt to_+ {-# LINE 7005 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 405, column 11)+ _nextVisitInfo =+ ({-# LINE 405 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.findWithDefault ManyVis to_ _lhsInextVisits+ {-# LINE 7011 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 406, column 11)+ _typecon =+ ({-# LINE 406 "src-ag/ExecutionPlan2Hs.ag" #-}+ case kind_ of+ VisitPure _ -> empty+ VisitMonadic -> ppMonadType _lhsIoptions+ {-# LINE 7019 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 410, column 11)+ _t_params =+ ({-# LINE 410 "src-ag/ExecutionPlan2Hs.ag" #-}+ ppSpaced _lhsIparams+ {-# LINE 7025 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 411, column 11)+ _lhsOt_visits =+ ({-# LINE 411 "src-ag/ExecutionPlan2Hs.ag" #-}+ "type" >#< _nameT_visit >#< _t_params >#< "=" >#<+ pp_parens (_nameTIn_visit >#< _t_params )+ >#< ( if dummyTokenVisit _lhsIoptions+ then "->" >#< dummyType _lhsIoptions True+ else empty+ )+ >#< "->" >#< _typecon >#< pp_parens (_nameTOut_visit >#< _t_params )+ >-< "data" >#< _nameTIn_visit >#< _t_params >#< "=" >#< _nameTIn_visit >#<+ _inhpart+ >-< "data" >#< _nameTOut_visit >#< _t_params >#< "=" >#< _nameTOut_visit >#<+ _synpart >#< case _nextVisitInfo of+ NoneVis -> empty+ _ -> _addbang1 $ pp_parens (_nameTNext_visit >#< _t_params )+ {-# LINE 7043 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 424, column 11)+ _inhpart =+ ({-# LINE 424 "src-ag/ExecutionPlan2Hs.ag" #-}+ _ppTypeList inh_ _lhsIinhmap+ {-# LINE 7049 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 425, column 11)+ _synpart =+ ({-# LINE 425 "src-ag/ExecutionPlan2Hs.ag" #-}+ _ppTypeList syn_ _lhsIsynmap+ {-# LINE 7055 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 426, column 11)+ _ppTypeList =+ ({-# LINE 426 "src-ag/ExecutionPlan2Hs.ag" #-}+ \s m -> ppSpaced $ map (\i -> _addbang1 $ pp_parens $ case Map.lookup i m of+ Just tp -> ppTp tp ) $ Set.toList s+ {-# LINE 7062 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 709, column 11)+ _lhsOsem_visit =+ ({-# LINE 709 "src-ag/ExecutionPlan2Hs.ag" #-}+ ( from_+ , \addInlinePragma ->+ ( if noInlinePragmas _lhsIoptions+ then empty+ else if addInlinePragma && aggressiveInlinePragmas _lhsIoptions+ then ppInline _vname+ else if helpInlining _lhsIoptions+ then ppNoInline _vname+ else empty+ )+ >-< "v" >|< ident_ >#< "::" >#< _nameT_visit >#< _t_params+ >-< "v" >|< ident_ >#< "=" >#< "\\" >#< (_addbang $ pp_parens (_nameTIn_visit >#< _inhpats ))+ >#< ( if dummyTokenVisit _lhsIoptions+ then pp $ dummyPat _lhsIoptions True+ else empty+ )+ >#< "->"+ >#< ( if genCostCentres _lhsIoptions+ then ppCostCentre (_vname >|< "_" >|< _lhsInt >|< "_" >|< _lhsIcon)+ else empty+ ) >#< "(" >#< _stepsInitial+ >-< indent 3 (_stepsIsem_steps >-< _stepsClosing >#< ")")+ )+ {-# LINE 7090 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 734, column 11)+ _stepsInitial =+ ({-# LINE 734 "src-ag/ExecutionPlan2Hs.ag" #-}+ case kind_ of+ VisitPure False -> text "let"+ VisitPure True -> empty+ VisitMonadic -> text "do"+ {-# LINE 7099 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 738, column 11)+ _stepsClosing =+ ({-# LINE 738 "src-ag/ExecutionPlan2Hs.ag" #-}+ let decls = _nextStBuild+ >-< _addbang (pp resultValName) >#< "=" >#< _resultval+ in case kind_ of+ VisitPure False -> decls+ >-< "in" >#< resultValName+ VisitPure True -> "let" >#< decls+ >-< indent 1 ("in" >#< resultValName)+ VisitMonadic -> "let" >#< decls+ >-< "return" >#< resultValName+ {-# LINE 7113 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 747, column 11)+ _vname =+ ({-# LINE 747 "src-ag/ExecutionPlan2Hs.ag" #-}+ "v" >|< ident_+ {-# LINE 7119 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 748, column 11)+ _inhpats =+ ({-# LINE 748 "src-ag/ExecutionPlan2Hs.ag" #-}+ ppSpaced $ map (\arg -> _addbang $ pp $ attrname True _LHS arg) $ Set.toList inh_+ {-# LINE 7125 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 749, column 11)+ _inhargs =+ ({-# LINE 749 "src-ag/ExecutionPlan2Hs.ag" #-}+ \chn -> ppSpaced $ map (attrname False chn) $ Set.toList inh_+ {-# LINE 7131 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 750, column 11)+ _synargs =+ ({-# LINE 750 "src-ag/ExecutionPlan2Hs.ag" #-}+ ppSpaced $ map (\arg -> attrname False _LHS arg) $ Set.toList syn_+ {-# LINE 7137 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 751, column 11)+ _nextargsMp =+ ({-# LINE 751 "src-ag/ExecutionPlan2Hs.ag" #-}+ maybe Map.empty id $ Map.lookup to_ _lhsIallintramap+ {-# LINE 7143 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 752, column 11)+ _nextargs =+ ({-# LINE 752 "src-ag/ExecutionPlan2Hs.ag" #-}+ ppSpaced $ Map.keys $ _nextargsMp+ {-# LINE 7149 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 753, column 11)+ _nextst =+ ({-# LINE 753 "src-ag/ExecutionPlan2Hs.ag" #-}+ "st" >|< to_ >#< _nextargs >#< dummyArg _lhsIoptions (Map.null _nextargsMp )+ {-# LINE 7155 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 754, column 11)+ _resultval =+ ({-# LINE 754 "src-ag/ExecutionPlan2Hs.ag" #-}+ _nameTOut_visit >#< _synargs >#< _nextStRef+ {-# LINE 7161 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 755, column 11)+ (_nextStBuild,_nextStRef) =+ ({-# LINE 755 "src-ag/ExecutionPlan2Hs.ag" #-}+ case _nextVisitInfo of+ NoneVis -> (empty, empty)+ _ -> (_addbang (pp nextStName) >#< "=" >#< _nextst , pp nextStName)+ {-# LINE 7169 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 770, column 20)+ _stepsOkind =+ ({-# LINE 770 "src-ag/ExecutionPlan2Hs.ag" #-}+ kind_+ {-# LINE 7175 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 821, column 3)+ _stepsOfmtMode =+ ({-# LINE 821 "src-ag/ExecutionPlan2Hs.ag" #-}+ case kind_ of+ VisitPure False -> FormatLetDecl+ VisitPure True -> FormatLetLine+ VisitMonadic -> FormatDo+ {-# LINE 7184 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 859, column 22)+ _stepsOindex =+ ({-# LINE 859 "src-ag/ExecutionPlan2Hs.ag" #-}+ 0+ {-# LINE 7190 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 866, column 22)+ _stepsOprevMaxSimRefs =+ ({-# LINE 866 "src-ag/ExecutionPlan2Hs.ag" #-}+ 0+ {-# LINE 7196 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 882, column 22)+ _stepsOuseParallel =+ ({-# LINE 882 "src-ag/ExecutionPlan2Hs.ag" #-}+ False+ {-# LINE 7202 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1196, column 6)+ _prevVisitInfo =+ ({-# LINE 1196 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.findWithDefault ManyVis from_ _lhsInextVisits+ {-# LINE 7208 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1197, column 6)+ _lhsOchildvisit =+ ({-# LINE 1197 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.singleton ident_ _invokecode+ {-# LINE 7214 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1198, column 6)+ _invokecode =+ ({-# LINE 1198 "src-ag/ExecutionPlan2Hs.ag" #-}+ \chn kind ->+ if kind `compatibleKind` kind_+ then Right $+ let pat | isLazyKind kind_ = pat0+ | otherwise = _addbang pat0+ pat0 = pp_parens pat1+ pat1 = _nameTOut_visit >#< (ppSpaced $ map (attrname True chn) $ Set.toList syn_)+ >#< cont+ cont = case _nextVisitInfo of+ NoneVis -> empty+ _ -> ch1+ ch0 = text $ stname chn from_+ ch1 = text $ stname chn to_+ expr = case (kind, kind_) of+ (VisitPure _, VisitPure _) -> expr0+ (VisitPure _, VisitMonadic) -> unMon _lhsIoptions >#< expr0+ (VisitMonadic, VisitPure _) -> "return" >#< expr0+ (VisitMonadic, VisitMonadic) -> expr0+ expr0 = case _prevVisitInfo of+ NoneVis -> error "error: invocation of a visit from a state that has no next visits"+ OneVis _ -> "inv_" >|< _lhsInt >|< "_s" >|< from_ >#< ch0 >#< args+ ManyVis -> "inv_" >|< _lhsInt >|< "_s" >|< from_ >#< ch0+ >#< "K_" >|< _lhsInt >|< "_v" >|< ident_ >#< args+ args = pp_parens args0 >#< args1+ args0 = _nameTIn_visit >#< _inhargs chn+ args1 | dummyTokenVisit _lhsIoptions = pp $ dummyArg _lhsIoptions True+ | otherwise = empty+ in (pat, expr)+ else Left $ IncompatibleVisitKind chn ident_ kind kind_+ {-# LINE 7248 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1294, column 11)+ _thisintra =+ ({-# LINE 1294 "src-ag/ExecutionPlan2Hs.ag" #-}+ (_uses `Map.union` _nextintra ) `Map.difference` _defsAsMap+ {-# LINE 7254 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1295, column 11)+ _lhsOintramap =+ ({-# LINE 1295 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.singleton from_ _thisintra+ {-# LINE 7260 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1296, column 11)+ _nextintra =+ ({-# LINE 1296 "src-ag/ExecutionPlan2Hs.ag" #-}+ maybe Map.empty id $ Map.lookup to_ _lhsIallintramap+ {-# LINE 7266 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1297, column 11)+ _uses =+ ({-# LINE 1297 "src-ag/ExecutionPlan2Hs.ag" #-}+ let mp1 = _stepsIuses+ mp2 = Map.fromList [ (lhsname False i, Just (AttrSyn _LHS i)) | i <- Set.elems syn_ ]+ in mp1 `Map.union` mp2+ {-# LINE 7274 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1300, column 11)+ _inhVarNms =+ ({-# LINE 1300 "src-ag/ExecutionPlan2Hs.ag" #-}+ Set.map (lhsname True) inh_+ {-# LINE 7280 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1301, column 11)+ _defs =+ ({-# LINE 1301 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIdefs `Set.union` _inhVarNms `Set.union` _lhsIterminaldefs+ {-# LINE 7286 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1302, column 11)+ _defsAsMap =+ ({-# LINE 1302 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.fromList [ (a, Nothing) | a <- Set.elems _defs ]+ {-# LINE 7292 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1326, column 11)+ _lhsOvisitdefs =+ ({-# LINE 1326 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.singleton ident_ syn_+ {-# LINE 7298 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1327, column 11)+ _lhsOvisituses =+ ({-# LINE 1327 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.singleton ident_ inh_+ {-# LINE 7304 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1359, column 3)+ _lazyIntrasInh =+ ({-# LINE 1359 "src-ag/ExecutionPlan2Hs.ag" #-}+ case kind_ of+ VisitPure False -> _inhVarNms `Set.union` _stepsIdefs+ _ -> Set.empty+ {-# LINE 7312 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1362, column 3)+ _lhsOlazyIntras =+ ({-# LINE 1362 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lazyIntrasInh `Set.union` _stepsIlazyIntras+ {-# LINE 7318 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1515, column 37)+ _addbang =+ ({-# LINE 1515 "src-ag/ExecutionPlan2Hs.ag" #-}+ \x -> if bangpats _lhsIoptions then "!" >|< x else x+ {-# LINE 7324 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1523, column 37)+ _addbang1 =+ ({-# LINE 1523 "src-ag/ExecutionPlan2Hs.ag" #-}+ if isLazyKind kind_ then id else _addbang+ {-# LINE 7330 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1550, column 3)+ _lhsOfromToStates =+ ({-# LINE 1550 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.singleton ident_ (from_, to_)+ {-# LINE 7336 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1594, column 3)+ _lhsOvisitKinds =+ ({-# LINE 1594 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.singleton ident_ kind_+ {-# LINE 7342 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)+ _lhsOerrors =+ ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIerrors+ {-# LINE 7348 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1255, column 56)+ _lhsOruleKinds =+ ({-# LINE 1255 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIruleKinds+ {-# LINE 7354 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1243, column 56)+ _lhsOruleUsage =+ ({-# LINE 1243 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIruleUsage+ {-# LINE 7360 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOallFromToStates =+ ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallFromToStates+ {-# LINE 7366 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOallInitStates =+ ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInitStates+ {-# LINE 7372 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOallVisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallVisitKinds+ {-# LINE 7378 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOallchildvisit =+ ({-# LINE 1189 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallchildvisit+ {-# LINE 7384 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOavisitdefs =+ ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisitdefs+ {-# LINE 7390 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOavisituses =+ ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisituses+ {-# LINE 7396 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOchildTypes =+ ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIchildTypes+ {-# LINE 7402 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOchildintros =+ ({-# LINE 893 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIchildintros+ {-# LINE 7408 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOmrules =+ ({-# LINE 776 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImrules+ {-# LINE 7414 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 7420 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOruledefs =+ ({-# LINE 1307 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIruledefs+ {-# LINE 7426 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOruleuses =+ ({-# LINE 1308 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIruleuses+ {-# LINE 7432 "dist/build/ExecutionPlan2Hs" #-}+ )+ ( _stepsIdefs,_stepsIerrors,_stepsIindex,_stepsIisLast,_stepsIlazyIntras,_stepsIprevMaxSimRefs,_stepsIruleKinds,_stepsIruleUsage,_stepsIsem_steps,_stepsIsize,_stepsIsync_steps,_stepsIuses,_stepsIvisitKinds) =+ steps_ _stepsOallFromToStates _stepsOallInitStates _stepsOallVisitKinds _stepsOallchildvisit _stepsOavisitdefs _stepsOavisituses _stepsOchildTypes _stepsOchildintros _stepsOfmtMode _stepsOindex _stepsOkind _stepsOmrules _stepsOoptions _stepsOprevMaxSimRefs _stepsOruledefs _stepsOruleuses _stepsOuseParallel+ ___node =+ (Syn_Visit _lhsOallvisits _lhsOchildvisit _lhsOerrors _lhsOfromToStates _lhsOintramap _lhsOlazyIntras _lhsOruleKinds _lhsOruleUsage _lhsOsem_visit _lhsOt_visits _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses)+ in ( _lhsOallvisits,_lhsOchildvisit,_lhsOerrors,_lhsOfromToStates,_lhsOintramap,_lhsOlazyIntras,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_visit,_lhsOt_visits,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses))))+-- VisitStep ---------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allFromToStates : Map VisitIdentifier (Int,Int)+ allInitStates : Map NontermIdent Int+ allVisitKinds : Map VisitIdentifier VisitKind+ allchildvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))+ avisitdefs : Map VisitIdentifier (Set Identifier)+ avisituses : Map VisitIdentifier (Set Identifier)+ childTypes : Map Identifier Type+ childintros : Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))+ fmtMode : FormatMode+ kind : VisitKind+ mrules : Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)+ options : Options+ ruledefs : Map Identifier (Set String)+ ruleuses : Map Identifier (Map String (Maybe NonLocalAttr))+ useParallel : Bool+ chained attributes:+ index : Int+ isLast : Bool+ prevMaxSimRefs : Int+ synthesized attributes:+ defs : Set String+ errors : Seq Error+ lazyIntras : Set String+ ruleKinds : Map Identifier (Set VisitKind)+ ruleUsage : Map Identifier Int+ sem_steps : PP_Doc+ sync_steps : PP_Doc+ uses : Map String (Maybe NonLocalAttr)+ visitKinds : Map VisitIdentifier VisitKind+ alternatives:+ alternative ChildIntro:+ child child : {Identifier}+ visit 0:+ local attachItf : _+ alternative ChildVisit:+ child child : {Identifier}+ child nonterm : {NontermIdent}+ child visit : {VisitIdentifier}+ visit 0:+ local visitItf : _+ local patPP : _+ local exprPP : _+ local useParallel : _+ local convToMonad : _+ local callKind : _+ local addbang : _+ local from : _+ local to : _+ alternative PureGroup:+ child steps : VisitSteps + child ordered : {Bool}+ alternative Sem:+ child name : {Identifier}+ visit 0:+ local ruleItf : _+ local sem_steps : _+ alternative Sim:+ child steps : VisitSteps + visit 0:+ local useParallel : _+ local isMonadic : _+-}+-- cata+sem_VisitStep :: VisitStep ->+ T_VisitStep+sem_VisitStep (ChildIntro _child) =+ (sem_VisitStep_ChildIntro _child)+sem_VisitStep (ChildVisit _child _nonterm _visit) =+ (sem_VisitStep_ChildVisit _child _nonterm _visit)+sem_VisitStep (PureGroup _steps _ordered) =+ (sem_VisitStep_PureGroup (sem_VisitSteps _steps) _ordered)+sem_VisitStep (Sem _name) =+ (sem_VisitStep_Sem _name)+sem_VisitStep (Sim _steps) =+ (sem_VisitStep_Sim (sem_VisitSteps _steps))+-- semantic domain+newtype T_VisitStep = T_VisitStep ((Map VisitIdentifier (Int,Int)) ->+ (Map NontermIdent Int) ->+ (Map VisitIdentifier VisitKind) ->+ (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))) ->+ (Map VisitIdentifier (Set Identifier)) ->+ (Map VisitIdentifier (Set Identifier)) ->+ (Map Identifier Type) ->+ (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))) ->+ FormatMode ->+ Int ->+ Bool ->+ VisitKind ->+ (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)) ->+ Options ->+ Int ->+ (Map Identifier (Set String)) ->+ (Map Identifier (Map String (Maybe NonLocalAttr))) ->+ Bool ->+ ( (Set String),(Seq Error),Int,Bool,(Set String),Int,(Map Identifier (Set VisitKind)),(Map Identifier Int),PP_Doc,PP_Doc,(Map String (Maybe NonLocalAttr)),(Map VisitIdentifier VisitKind)))+data Inh_VisitStep = Inh_VisitStep {allFromToStates_Inh_VisitStep :: (Map VisitIdentifier (Int,Int)),allInitStates_Inh_VisitStep :: (Map NontermIdent Int),allVisitKinds_Inh_VisitStep :: (Map VisitIdentifier VisitKind),allchildvisit_Inh_VisitStep :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),avisitdefs_Inh_VisitStep :: (Map VisitIdentifier (Set Identifier)),avisituses_Inh_VisitStep :: (Map VisitIdentifier (Set Identifier)),childTypes_Inh_VisitStep :: (Map Identifier Type),childintros_Inh_VisitStep :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))),fmtMode_Inh_VisitStep :: FormatMode,index_Inh_VisitStep :: Int,isLast_Inh_VisitStep :: Bool,kind_Inh_VisitStep :: VisitKind,mrules_Inh_VisitStep :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)),options_Inh_VisitStep :: Options,prevMaxSimRefs_Inh_VisitStep :: Int,ruledefs_Inh_VisitStep :: (Map Identifier (Set String)),ruleuses_Inh_VisitStep :: (Map Identifier (Map String (Maybe NonLocalAttr))),useParallel_Inh_VisitStep :: Bool}+data Syn_VisitStep = Syn_VisitStep {defs_Syn_VisitStep :: (Set String),errors_Syn_VisitStep :: (Seq Error),index_Syn_VisitStep :: Int,isLast_Syn_VisitStep :: Bool,lazyIntras_Syn_VisitStep :: (Set String),prevMaxSimRefs_Syn_VisitStep :: Int,ruleKinds_Syn_VisitStep :: (Map Identifier (Set VisitKind)),ruleUsage_Syn_VisitStep :: (Map Identifier Int),sem_steps_Syn_VisitStep :: PP_Doc,sync_steps_Syn_VisitStep :: PP_Doc,uses_Syn_VisitStep :: (Map String (Maybe NonLocalAttr)),visitKinds_Syn_VisitStep :: (Map VisitIdentifier VisitKind)}+wrap_VisitStep :: T_VisitStep ->+ Inh_VisitStep ->+ Syn_VisitStep+wrap_VisitStep (T_VisitStep sem) (Inh_VisitStep _lhsIallFromToStates _lhsIallInitStates _lhsIallVisitKinds _lhsIallchildvisit _lhsIavisitdefs _lhsIavisituses _lhsIchildTypes _lhsIchildintros _lhsIfmtMode _lhsIindex _lhsIisLast _lhsIkind _lhsImrules _lhsIoptions _lhsIprevMaxSimRefs _lhsIruledefs _lhsIruleuses _lhsIuseParallel) =+ (let ( _lhsOdefs,_lhsOerrors,_lhsOindex,_lhsOisLast,_lhsOlazyIntras,_lhsOprevMaxSimRefs,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_steps,_lhsOsync_steps,_lhsOuses,_lhsOvisitKinds) = sem _lhsIallFromToStates _lhsIallInitStates _lhsIallVisitKinds _lhsIallchildvisit _lhsIavisitdefs _lhsIavisituses _lhsIchildTypes _lhsIchildintros _lhsIfmtMode _lhsIindex _lhsIisLast _lhsIkind _lhsImrules _lhsIoptions _lhsIprevMaxSimRefs _lhsIruledefs _lhsIruleuses _lhsIuseParallel+ in (Syn_VisitStep _lhsOdefs _lhsOerrors _lhsOindex _lhsOisLast _lhsOlazyIntras _lhsOprevMaxSimRefs _lhsOruleKinds _lhsOruleUsage _lhsOsem_steps _lhsOsync_steps _lhsOuses _lhsOvisitKinds))+sem_VisitStep_ChildIntro :: Identifier ->+ T_VisitStep+sem_VisitStep_ChildIntro child_ =+ (T_VisitStep (\ _lhsIallFromToStates+ _lhsIallInitStates+ _lhsIallVisitKinds+ _lhsIallchildvisit+ _lhsIavisitdefs+ _lhsIavisituses+ _lhsIchildTypes+ _lhsIchildintros+ _lhsIfmtMode+ _lhsIindex+ _lhsIisLast+ _lhsIkind+ _lhsImrules+ _lhsIoptions+ _lhsIprevMaxSimRefs+ _lhsIruledefs+ _lhsIruleuses+ _lhsIuseParallel ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOsem_steps :: PP_Doc+ _lhsOdefs :: (Set String)+ _lhsOuses :: (Map String (Maybe NonLocalAttr))+ _lhsOlazyIntras :: (Set String)+ _lhsOruleKinds :: (Map Identifier (Set VisitKind))+ _lhsOruleUsage :: (Map Identifier Int)+ _lhsOsync_steps :: PP_Doc+ _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)+ _lhsOindex :: Int+ _lhsOisLast :: Bool+ _lhsOprevMaxSimRefs :: Int+ -- "src-ag/ExecutionPlan2Hs.ag"(line 783, column 16)+ _attachItf =+ ({-# LINE 783 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.findWithDefault (error $ "Child " ++ show child_ ++ " not found") child_ _lhsIchildintros+ {-# LINE 7583 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 784, column 16)+ (_lhsOerrors,_lhsOsem_steps,_lhsOdefs,_lhsOuses) =+ ({-# LINE 784 "src-ag/ExecutionPlan2Hs.ag" #-}+ case _attachItf _lhsIkind _lhsIfmtMode of+ Left e -> (Seq.singleton e, empty, Set.empty, Map.empty)+ Right (code, defs, uses) -> (Seq.empty, code, defs, uses)+ {-# LINE 7591 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1355, column 57)+ _lhsOlazyIntras =+ ({-# LINE 1355 "src-ag/ExecutionPlan2Hs.ag" #-}+ Set.empty+ {-# LINE 7597 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1255, column 56)+ _lhsOruleKinds =+ ({-# LINE 1255 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 7603 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1243, column 56)+ _lhsOruleUsage =+ ({-# LINE 1243 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 7609 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 810, column 44)+ _lhsOsync_steps =+ ({-# LINE 810 "src-ag/ExecutionPlan2Hs.ag" #-}+ empty+ {-# LINE 7615 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)+ _lhsOvisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ mempty+ {-# LINE 7621 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (chain)+ _lhsOindex =+ ({-# LINE 854 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIindex+ {-# LINE 7627 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (chain)+ _lhsOisLast =+ ({-# LINE 873 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIisLast+ {-# LINE 7633 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (chain)+ _lhsOprevMaxSimRefs =+ ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIprevMaxSimRefs+ {-# LINE 7639 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_VisitStep _lhsOdefs _lhsOerrors _lhsOindex _lhsOisLast _lhsOlazyIntras _lhsOprevMaxSimRefs _lhsOruleKinds _lhsOruleUsage _lhsOsem_steps _lhsOsync_steps _lhsOuses _lhsOvisitKinds)+ in ( _lhsOdefs,_lhsOerrors,_lhsOindex,_lhsOisLast,_lhsOlazyIntras,_lhsOprevMaxSimRefs,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_steps,_lhsOsync_steps,_lhsOuses,_lhsOvisitKinds))))+sem_VisitStep_ChildVisit :: Identifier ->+ NontermIdent ->+ VisitIdentifier ->+ T_VisitStep+sem_VisitStep_ChildVisit child_ nonterm_ visit_ =+ (T_VisitStep (\ _lhsIallFromToStates+ _lhsIallInitStates+ _lhsIallVisitKinds+ _lhsIallchildvisit+ _lhsIavisitdefs+ _lhsIavisituses+ _lhsIchildTypes+ _lhsIchildintros+ _lhsIfmtMode+ _lhsIindex+ _lhsIisLast+ _lhsIkind+ _lhsImrules+ _lhsIoptions+ _lhsIprevMaxSimRefs+ _lhsIruledefs+ _lhsIruleuses+ _lhsIuseParallel ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOsem_steps :: PP_Doc+ _lhsOsync_steps :: PP_Doc+ _lhsOdefs :: (Set String)+ _lhsOuses :: (Map String (Maybe NonLocalAttr))+ _lhsOlazyIntras :: (Set String)+ _lhsOruleKinds :: (Map Identifier (Set VisitKind))+ _lhsOruleUsage :: (Map Identifier Int)+ _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)+ _lhsOindex :: Int+ _lhsOisLast :: Bool+ _lhsOprevMaxSimRefs :: Int+ -- "src-ag/ExecutionPlan2Hs.ag"(line 788, column 16)+ _visitItf =+ ({-# LINE 788 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.findWithDefault (error $ "Visit " ++ show visit_ ++ " not found") visit_ _lhsIallchildvisit+ {-# LINE 7683 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 789, column 16)+ (_lhsOerrors,_patPP,_exprPP) =+ ({-# LINE 789 "src-ag/ExecutionPlan2Hs.ag" #-}+ case _visitItf child_ _lhsIkind of+ Left e -> (Seq.singleton e, empty, empty)+ Right (pat,expr) -> (Seq.empty, pat, expr)+ {-# LINE 7691 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 793, column 16)+ _useParallel =+ ({-# LINE 793 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIuseParallel && not _lhsIisLast+ {-# LINE 7697 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 794, column 16)+ _lhsOsem_steps =+ ({-# LINE 794 "src-ag/ExecutionPlan2Hs.ag" #-}+ if _useParallel+ then _addbang ("sync_" >|< _lhsIindex) >#< "<- newEmptyMVar"+ >-< "forkIO" >#< pp_parens (_convToMonad >#< pp_parens _exprPP >#< ">>= \\" >#< _addbang (pp parResultName) >#< " -> putMVar sync_" >|< _lhsIindex >#< parResultName)+ else let decl = case _lhsIkind of+ VisitPure _ -> _patPP >#< "=" >#< _exprPP+ VisitMonadic -> _patPP >#< "<-" >#< _exprPP+ in fmtDecl False _lhsIfmtMode decl+ {-# LINE 7709 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 801, column 16)+ _convToMonad =+ ({-# LINE 801 "src-ag/ExecutionPlan2Hs.ag" #-}+ case _callKind of+ VisitPure _ -> text "return"+ VisitMonadic -> empty+ {-# LINE 7717 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 804, column 16)+ _callKind =+ ({-# LINE 804 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.findWithDefault (error "visit kind should be in the map") visit_ _lhsIallVisitKinds+ {-# LINE 7723 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 812, column 3)+ _lhsOsync_steps =+ ({-# LINE 812 "src-ag/ExecutionPlan2Hs.ag" #-}+ if _useParallel+ then _patPP >#< "<-" >#< "takeMVar sync_" >|< _lhsIindex+ else empty+ {-# LINE 7731 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1344, column 16)+ _lhsOdefs =+ ({-# LINE 1344 "src-ag/ExecutionPlan2Hs.ag" #-}+ Set.insert (stname child_ _to) $ maybe (error "Visit not found") (Set.map $ attrname True child_) $ Map.lookup visit_ _lhsIavisitdefs+ {-# LINE 7737 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1345, column 16)+ _lhsOuses =+ ({-# LINE 1345 "src-ag/ExecutionPlan2Hs.ag" #-}+ let convert attrs = Map.fromList [ (attrname False child_ attr, Just $ mkNonLocalAttr True child_ attr) | attr <- Set.elems attrs ]+ in Map.insert (stname child_ _from) Nothing $ convert $+ maybe (error "Visit not found") id $ Map.lookup visit_ _lhsIavisituses+ {-# LINE 7745 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1520, column 37)+ _addbang =+ ({-# LINE 1520 "src-ag/ExecutionPlan2Hs.ag" #-}+ \x -> if bangpats _lhsIoptions then "!" >|< x else x+ {-# LINE 7751 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1556, column 3)+ (_from,_to) =+ ({-# LINE 1556 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.findWithDefault (error "visit not in allFromToStates") visit_ _lhsIallFromToStates+ {-# LINE 7757 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1355, column 57)+ _lhsOlazyIntras =+ ({-# LINE 1355 "src-ag/ExecutionPlan2Hs.ag" #-}+ Set.empty+ {-# LINE 7763 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1255, column 56)+ _lhsOruleKinds =+ ({-# LINE 1255 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 7769 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1243, column 56)+ _lhsOruleUsage =+ ({-# LINE 1243 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 7775 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)+ _lhsOvisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ mempty+ {-# LINE 7781 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (chain)+ _lhsOindex =+ ({-# LINE 854 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIindex+ {-# LINE 7787 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (chain)+ _lhsOisLast =+ ({-# LINE 873 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIisLast+ {-# LINE 7793 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (chain)+ _lhsOprevMaxSimRefs =+ ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIprevMaxSimRefs+ {-# LINE 7799 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_VisitStep _lhsOdefs _lhsOerrors _lhsOindex _lhsOisLast _lhsOlazyIntras _lhsOprevMaxSimRefs _lhsOruleKinds _lhsOruleUsage _lhsOsem_steps _lhsOsync_steps _lhsOuses _lhsOvisitKinds)+ in ( _lhsOdefs,_lhsOerrors,_lhsOindex,_lhsOisLast,_lhsOlazyIntras,_lhsOprevMaxSimRefs,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_steps,_lhsOsync_steps,_lhsOuses,_lhsOvisitKinds))))+sem_VisitStep_PureGroup :: T_VisitSteps ->+ Bool ->+ T_VisitStep+sem_VisitStep_PureGroup (T_VisitSteps steps_) ordered_ =+ (T_VisitStep (\ _lhsIallFromToStates+ _lhsIallInitStates+ _lhsIallVisitKinds+ _lhsIallchildvisit+ _lhsIavisitdefs+ _lhsIavisituses+ _lhsIchildTypes+ _lhsIchildintros+ _lhsIfmtMode+ _lhsIindex+ _lhsIisLast+ _lhsIkind+ _lhsImrules+ _lhsIoptions+ _lhsIprevMaxSimRefs+ _lhsIruledefs+ _lhsIruleuses+ _lhsIuseParallel ->+ (let _stepsOkind :: VisitKind+ _lhsOsem_steps :: PP_Doc+ _stepsOfmtMode :: FormatMode+ _lhsOlazyIntras :: (Set String)+ _lhsOdefs :: (Set String)+ _lhsOerrors :: (Seq Error)+ _lhsOruleKinds :: (Map Identifier (Set VisitKind))+ _lhsOruleUsage :: (Map Identifier Int)+ _lhsOsync_steps :: PP_Doc+ _lhsOuses :: (Map String (Maybe NonLocalAttr))+ _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)+ _lhsOindex :: Int+ _lhsOisLast :: Bool+ _lhsOprevMaxSimRefs :: Int+ _stepsOallFromToStates :: (Map VisitIdentifier (Int,Int))+ _stepsOallInitStates :: (Map NontermIdent Int)+ _stepsOallVisitKinds :: (Map VisitIdentifier VisitKind)+ _stepsOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _stepsOavisitdefs :: (Map VisitIdentifier (Set Identifier))+ _stepsOavisituses :: (Map VisitIdentifier (Set Identifier))+ _stepsOchildTypes :: (Map Identifier Type)+ _stepsOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))+ _stepsOindex :: Int+ _stepsOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))+ _stepsOoptions :: Options+ _stepsOprevMaxSimRefs :: Int+ _stepsOruledefs :: (Map Identifier (Set String))+ _stepsOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))+ _stepsOuseParallel :: Bool+ _stepsIdefs :: (Set String)+ _stepsIerrors :: (Seq Error)+ _stepsIindex :: Int+ _stepsIisLast :: Bool+ _stepsIlazyIntras :: (Set String)+ _stepsIprevMaxSimRefs :: Int+ _stepsIruleKinds :: (Map Identifier (Set VisitKind))+ _stepsIruleUsage :: (Map Identifier Int)+ _stepsIsem_steps :: PP_Doc+ _stepsIsize :: Int+ _stepsIsync_steps :: PP_Doc+ _stepsIuses :: (Map String (Maybe NonLocalAttr))+ _stepsIvisitKinds :: (Map VisitIdentifier VisitKind)+ -- "src-ag/ExecutionPlan2Hs.ag"(line 774, column 3)+ _stepsOkind =+ ({-# LINE 774 "src-ag/ExecutionPlan2Hs.ag" #-}+ VisitPure ordered_+ {-# LINE 7872 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 806, column 16)+ _lhsOsem_steps =+ ({-# LINE 806 "src-ag/ExecutionPlan2Hs.ag" #-}+ case _lhsIfmtMode of+ FormatDo -> "let" >#< _stepsIsem_steps+ _ -> _stepsIsem_steps+ {-# LINE 7880 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 827, column 3)+ _stepsOfmtMode =+ ({-# LINE 827 "src-ag/ExecutionPlan2Hs.ag" #-}+ case _lhsIfmtMode of+ FormatDo -> FormatLetDecl+ mode -> mode+ {-# LINE 7888 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1365, column 3)+ _lhsOlazyIntras =+ ({-# LINE 1365 "src-ag/ExecutionPlan2Hs.ag" #-}+ if ordered_+ then _stepsIlazyIntras+ else _stepsIdefs+ {-# LINE 7896 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1339, column 38)+ _lhsOdefs =+ ({-# LINE 1339 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIdefs+ {-# LINE 7902 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)+ _lhsOerrors =+ ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIerrors+ {-# LINE 7908 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1255, column 56)+ _lhsOruleKinds =+ ({-# LINE 1255 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIruleKinds+ {-# LINE 7914 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1243, column 56)+ _lhsOruleUsage =+ ({-# LINE 1243 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIruleUsage+ {-# LINE 7920 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 810, column 44)+ _lhsOsync_steps =+ ({-# LINE 810 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIsync_steps+ {-# LINE 7926 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1340, column 38)+ _lhsOuses =+ ({-# LINE 1340 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIuses+ {-# LINE 7932 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)+ _lhsOvisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIvisitKinds+ {-# LINE 7938 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (up)+ _lhsOindex =+ ({-# LINE 854 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIindex+ {-# LINE 7944 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (up)+ _lhsOisLast =+ ({-# LINE 873 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIisLast+ {-# LINE 7950 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (up)+ _lhsOprevMaxSimRefs =+ ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIprevMaxSimRefs+ {-# LINE 7956 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOallFromToStates =+ ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallFromToStates+ {-# LINE 7962 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOallInitStates =+ ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInitStates+ {-# LINE 7968 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOallVisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallVisitKinds+ {-# LINE 7974 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOallchildvisit =+ ({-# LINE 1189 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallchildvisit+ {-# LINE 7980 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOavisitdefs =+ ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisitdefs+ {-# LINE 7986 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOavisituses =+ ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisituses+ {-# LINE 7992 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOchildTypes =+ ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIchildTypes+ {-# LINE 7998 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOchildintros =+ ({-# LINE 893 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIchildintros+ {-# LINE 8004 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOindex =+ ({-# LINE 854 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIindex+ {-# LINE 8010 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOmrules =+ ({-# LINE 776 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImrules+ {-# LINE 8016 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 8022 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOprevMaxSimRefs =+ ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIprevMaxSimRefs+ {-# LINE 8028 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOruledefs =+ ({-# LINE 1307 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIruledefs+ {-# LINE 8034 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOruleuses =+ ({-# LINE 1308 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIruleuses+ {-# LINE 8040 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOuseParallel =+ ({-# LINE 881 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIuseParallel+ {-# LINE 8046 "dist/build/ExecutionPlan2Hs" #-}+ )+ ( _stepsIdefs,_stepsIerrors,_stepsIindex,_stepsIisLast,_stepsIlazyIntras,_stepsIprevMaxSimRefs,_stepsIruleKinds,_stepsIruleUsage,_stepsIsem_steps,_stepsIsize,_stepsIsync_steps,_stepsIuses,_stepsIvisitKinds) =+ steps_ _stepsOallFromToStates _stepsOallInitStates _stepsOallVisitKinds _stepsOallchildvisit _stepsOavisitdefs _stepsOavisituses _stepsOchildTypes _stepsOchildintros _stepsOfmtMode _stepsOindex _stepsOkind _stepsOmrules _stepsOoptions _stepsOprevMaxSimRefs _stepsOruledefs _stepsOruleuses _stepsOuseParallel+ ___node =+ (Syn_VisitStep _lhsOdefs _lhsOerrors _lhsOindex _lhsOisLast _lhsOlazyIntras _lhsOprevMaxSimRefs _lhsOruleKinds _lhsOruleUsage _lhsOsem_steps _lhsOsync_steps _lhsOuses _lhsOvisitKinds)+ in ( _lhsOdefs,_lhsOerrors,_lhsOindex,_lhsOisLast,_lhsOlazyIntras,_lhsOprevMaxSimRefs,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_steps,_lhsOsync_steps,_lhsOuses,_lhsOvisitKinds))))+sem_VisitStep_Sem :: Identifier ->+ T_VisitStep+sem_VisitStep_Sem name_ =+ (T_VisitStep (\ _lhsIallFromToStates+ _lhsIallInitStates+ _lhsIallVisitKinds+ _lhsIallchildvisit+ _lhsIavisitdefs+ _lhsIavisituses+ _lhsIchildTypes+ _lhsIchildintros+ _lhsIfmtMode+ _lhsIindex+ _lhsIisLast+ _lhsIkind+ _lhsImrules+ _lhsIoptions+ _lhsIprevMaxSimRefs+ _lhsIruledefs+ _lhsIruleuses+ _lhsIuseParallel ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOruleUsage :: (Map Identifier Int)+ _lhsOruleKinds :: (Map Identifier (Set VisitKind))+ _lhsOdefs :: (Set String)+ _lhsOuses :: (Map String (Maybe NonLocalAttr))+ _lhsOlazyIntras :: (Set String)+ _lhsOsem_steps :: PP_Doc+ _lhsOsync_steps :: PP_Doc+ _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)+ _lhsOindex :: Int+ _lhsOisLast :: Bool+ _lhsOprevMaxSimRefs :: Int+ -- "src-ag/ExecutionPlan2Hs.ag"(line 779, column 16)+ _ruleItf =+ ({-# LINE 779 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.findWithDefault (error $ "Rule " ++ show name_ ++ " not found") name_ _lhsImrules+ {-# LINE 8090 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 780, column 16)+ (_lhsOerrors,_sem_steps) =+ ({-# LINE 780 "src-ag/ExecutionPlan2Hs.ag" #-}+ case _ruleItf _lhsIkind _lhsIfmtMode of+ Left e -> (Seq.singleton e, empty)+ Right stmt -> (Seq.empty, stmt)+ {-# LINE 8098 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1247, column 32)+ _lhsOruleUsage =+ ({-# LINE 1247 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.singleton name_ 1+ {-# LINE 8104 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1257, column 3)+ _lhsOruleKinds =+ ({-# LINE 1257 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.singleton name_ (Set.singleton _lhsIkind)+ {-# LINE 8110 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1342, column 16)+ _lhsOdefs =+ ({-# LINE 1342 "src-ag/ExecutionPlan2Hs.ag" #-}+ maybe (error "Rule not found") id $ Map.lookup name_ _lhsIruledefs+ {-# LINE 8116 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 1343, column 16)+ _lhsOuses =+ ({-# LINE 1343 "src-ag/ExecutionPlan2Hs.ag" #-}+ maybe (error "Rule not found") id $ Map.lookup name_ _lhsIruleuses+ {-# LINE 8122 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1355, column 57)+ _lhsOlazyIntras =+ ({-# LINE 1355 "src-ag/ExecutionPlan2Hs.ag" #-}+ Set.empty+ {-# LINE 8128 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 777, column 43)+ _lhsOsem_steps =+ ({-# LINE 777 "src-ag/ExecutionPlan2Hs.ag" #-}+ _sem_steps+ {-# LINE 8134 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 810, column 44)+ _lhsOsync_steps =+ ({-# LINE 810 "src-ag/ExecutionPlan2Hs.ag" #-}+ empty+ {-# LINE 8140 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)+ _lhsOvisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ mempty+ {-# LINE 8146 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (chain)+ _lhsOindex =+ ({-# LINE 854 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIindex+ {-# LINE 8152 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (chain)+ _lhsOisLast =+ ({-# LINE 873 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIisLast+ {-# LINE 8158 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (chain)+ _lhsOprevMaxSimRefs =+ ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIprevMaxSimRefs+ {-# LINE 8164 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_VisitStep _lhsOdefs _lhsOerrors _lhsOindex _lhsOisLast _lhsOlazyIntras _lhsOprevMaxSimRefs _lhsOruleKinds _lhsOruleUsage _lhsOsem_steps _lhsOsync_steps _lhsOuses _lhsOvisitKinds)+ in ( _lhsOdefs,_lhsOerrors,_lhsOindex,_lhsOisLast,_lhsOlazyIntras,_lhsOprevMaxSimRefs,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_steps,_lhsOsync_steps,_lhsOuses,_lhsOvisitKinds))))+sem_VisitStep_Sim :: T_VisitSteps ->+ T_VisitStep+sem_VisitStep_Sim (T_VisitSteps steps_) =+ (T_VisitStep (\ _lhsIallFromToStates+ _lhsIallInitStates+ _lhsIallVisitKinds+ _lhsIallchildvisit+ _lhsIavisitdefs+ _lhsIavisituses+ _lhsIchildTypes+ _lhsIchildintros+ _lhsIfmtMode+ _lhsIindex+ _lhsIisLast+ _lhsIkind+ _lhsImrules+ _lhsIoptions+ _lhsIprevMaxSimRefs+ _lhsIruledefs+ _lhsIruleuses+ _lhsIuseParallel ->+ (let _lhsOsem_steps :: PP_Doc+ _stepsOindex :: Int+ _lhsOindex :: Int+ _lhsOprevMaxSimRefs :: Int+ _lhsOdefs :: (Set String)+ _lhsOerrors :: (Seq Error)+ _lhsOlazyIntras :: (Set String)+ _lhsOruleKinds :: (Map Identifier (Set VisitKind))+ _lhsOruleUsage :: (Map Identifier Int)+ _lhsOsync_steps :: PP_Doc+ _lhsOuses :: (Map String (Maybe NonLocalAttr))+ _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)+ _lhsOisLast :: Bool+ _stepsOallFromToStates :: (Map VisitIdentifier (Int,Int))+ _stepsOallInitStates :: (Map NontermIdent Int)+ _stepsOallVisitKinds :: (Map VisitIdentifier VisitKind)+ _stepsOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _stepsOavisitdefs :: (Map VisitIdentifier (Set Identifier))+ _stepsOavisituses :: (Map VisitIdentifier (Set Identifier))+ _stepsOchildTypes :: (Map Identifier Type)+ _stepsOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))+ _stepsOfmtMode :: FormatMode+ _stepsOkind :: VisitKind+ _stepsOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))+ _stepsOoptions :: Options+ _stepsOprevMaxSimRefs :: Int+ _stepsOruledefs :: (Map Identifier (Set String))+ _stepsOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))+ _stepsOuseParallel :: Bool+ _stepsIdefs :: (Set String)+ _stepsIerrors :: (Seq Error)+ _stepsIindex :: Int+ _stepsIisLast :: Bool+ _stepsIlazyIntras :: (Set String)+ _stepsIprevMaxSimRefs :: Int+ _stepsIruleKinds :: (Map Identifier (Set VisitKind))+ _stepsIruleUsage :: (Map Identifier Int)+ _stepsIsem_steps :: PP_Doc+ _stepsIsize :: Int+ _stepsIsync_steps :: PP_Doc+ _stepsIuses :: (Map String (Maybe NonLocalAttr))+ _stepsIvisitKinds :: (Map VisitIdentifier VisitKind)+ -- "src-ag/ExecutionPlan2Hs.ag"(line 805, column 16)+ _lhsOsem_steps =+ ({-# LINE 805 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIsem_steps >-< _stepsIsync_steps+ {-# LINE 8236 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 860, column 22)+ _stepsOindex =+ ({-# LINE 860 "src-ag/ExecutionPlan2Hs.ag" #-}+ 0+ {-# LINE 8242 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 861, column 22)+ _lhsOindex =+ ({-# LINE 861 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIindex+ {-# LINE 8248 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 868, column 3)+ _lhsOprevMaxSimRefs =+ ({-# LINE 868 "src-ag/ExecutionPlan2Hs.ag" #-}+ if _useParallel+ then _lhsIprevMaxSimRefs `max` (_stepsIindex - 1)+ else _lhsIprevMaxSimRefs+ {-# LINE 8256 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 883, column 22)+ _useParallel =+ ({-# LINE 883 "src-ag/ExecutionPlan2Hs.ag" #-}+ parallelInvoke _lhsIoptions && _stepsIsize > 1 && _isMonadic+ {-# LINE 8262 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 884, column 22)+ _isMonadic =+ ({-# LINE 884 "src-ag/ExecutionPlan2Hs.ag" #-}+ case _lhsIkind of+ VisitMonadic -> True+ _ -> False+ {-# LINE 8270 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1339, column 38)+ _lhsOdefs =+ ({-# LINE 1339 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIdefs+ {-# LINE 8276 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)+ _lhsOerrors =+ ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIerrors+ {-# LINE 8282 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1355, column 57)+ _lhsOlazyIntras =+ ({-# LINE 1355 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIlazyIntras+ {-# LINE 8288 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1255, column 56)+ _lhsOruleKinds =+ ({-# LINE 1255 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIruleKinds+ {-# LINE 8294 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1243, column 56)+ _lhsOruleUsage =+ ({-# LINE 1243 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIruleUsage+ {-# LINE 8300 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 810, column 44)+ _lhsOsync_steps =+ ({-# LINE 810 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIsync_steps+ {-# LINE 8306 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1340, column 38)+ _lhsOuses =+ ({-# LINE 1340 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIuses+ {-# LINE 8312 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)+ _lhsOvisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIvisitKinds+ {-# LINE 8318 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (up)+ _lhsOisLast =+ ({-# LINE 873 "src-ag/ExecutionPlan2Hs.ag" #-}+ _stepsIisLast+ {-# LINE 8324 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOallFromToStates =+ ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallFromToStates+ {-# LINE 8330 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOallInitStates =+ ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInitStates+ {-# LINE 8336 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOallVisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallVisitKinds+ {-# LINE 8342 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOallchildvisit =+ ({-# LINE 1189 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallchildvisit+ {-# LINE 8348 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOavisitdefs =+ ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisitdefs+ {-# LINE 8354 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOavisituses =+ ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisituses+ {-# LINE 8360 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOchildTypes =+ ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIchildTypes+ {-# LINE 8366 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOchildintros =+ ({-# LINE 893 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIchildintros+ {-# LINE 8372 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOfmtMode =+ ({-# LINE 819 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIfmtMode+ {-# LINE 8378 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOkind =+ ({-# LINE 769 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIkind+ {-# LINE 8384 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOmrules =+ ({-# LINE 776 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImrules+ {-# LINE 8390 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 8396 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOprevMaxSimRefs =+ ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIprevMaxSimRefs+ {-# LINE 8402 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOruledefs =+ ({-# LINE 1307 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIruledefs+ {-# LINE 8408 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _stepsOruleuses =+ ({-# LINE 1308 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIruleuses+ {-# LINE 8414 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (from local)+ _stepsOuseParallel =+ ({-# LINE 881 "src-ag/ExecutionPlan2Hs.ag" #-}+ _useParallel+ {-# LINE 8420 "dist/build/ExecutionPlan2Hs" #-}+ )+ ( _stepsIdefs,_stepsIerrors,_stepsIindex,_stepsIisLast,_stepsIlazyIntras,_stepsIprevMaxSimRefs,_stepsIruleKinds,_stepsIruleUsage,_stepsIsem_steps,_stepsIsize,_stepsIsync_steps,_stepsIuses,_stepsIvisitKinds) =+ steps_ _stepsOallFromToStates _stepsOallInitStates _stepsOallVisitKinds _stepsOallchildvisit _stepsOavisitdefs _stepsOavisituses _stepsOchildTypes _stepsOchildintros _stepsOfmtMode _stepsOindex _stepsOkind _stepsOmrules _stepsOoptions _stepsOprevMaxSimRefs _stepsOruledefs _stepsOruleuses _stepsOuseParallel+ ___node =+ (Syn_VisitStep _lhsOdefs _lhsOerrors _lhsOindex _lhsOisLast _lhsOlazyIntras _lhsOprevMaxSimRefs _lhsOruleKinds _lhsOruleUsage _lhsOsem_steps _lhsOsync_steps _lhsOuses _lhsOvisitKinds)+ in ( _lhsOdefs,_lhsOerrors,_lhsOindex,_lhsOisLast,_lhsOlazyIntras,_lhsOprevMaxSimRefs,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_steps,_lhsOsync_steps,_lhsOuses,_lhsOvisitKinds))))+-- VisitSteps --------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allFromToStates : Map VisitIdentifier (Int,Int)+ allInitStates : Map NontermIdent Int+ allVisitKinds : Map VisitIdentifier VisitKind+ allchildvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))+ avisitdefs : Map VisitIdentifier (Set Identifier)+ avisituses : Map VisitIdentifier (Set Identifier)+ childTypes : Map Identifier Type+ childintros : Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))+ fmtMode : FormatMode+ kind : VisitKind+ mrules : Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)+ options : Options+ ruledefs : Map Identifier (Set String)+ ruleuses : Map Identifier (Map String (Maybe NonLocalAttr))+ useParallel : Bool+ chained attributes:+ index : Int+ prevMaxSimRefs : Int+ synthesized attributes:+ defs : Set String+ errors : Seq Error+ isLast : Bool+ lazyIntras : Set String+ ruleKinds : Map Identifier (Set VisitKind)+ ruleUsage : Map Identifier Int+ sem_steps : PP_Doc+ size : Int+ sync_steps : PP_Doc+ uses : Map String (Maybe NonLocalAttr)+ visitKinds : Map VisitIdentifier VisitKind+ alternatives:+ alternative Cons:+ child hd : VisitStep + child tl : VisitSteps + alternative Nil:+-}+-- cata+sem_VisitSteps :: VisitSteps ->+ T_VisitSteps+sem_VisitSteps list =+ (Prelude.foldr sem_VisitSteps_Cons sem_VisitSteps_Nil (Prelude.map sem_VisitStep list))+-- semantic domain+newtype T_VisitSteps = T_VisitSteps ((Map VisitIdentifier (Int,Int)) ->+ (Map NontermIdent Int) ->+ (Map VisitIdentifier VisitKind) ->+ (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))) ->+ (Map VisitIdentifier (Set Identifier)) ->+ (Map VisitIdentifier (Set Identifier)) ->+ (Map Identifier Type) ->+ (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))) ->+ FormatMode ->+ Int ->+ VisitKind ->+ (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)) ->+ Options ->+ Int ->+ (Map Identifier (Set String)) ->+ (Map Identifier (Map String (Maybe NonLocalAttr))) ->+ Bool ->+ ( (Set String),(Seq Error),Int,Bool,(Set String),Int,(Map Identifier (Set VisitKind)),(Map Identifier Int),PP_Doc,Int,PP_Doc,(Map String (Maybe NonLocalAttr)),(Map VisitIdentifier VisitKind)))+data Inh_VisitSteps = Inh_VisitSteps {allFromToStates_Inh_VisitSteps :: (Map VisitIdentifier (Int,Int)),allInitStates_Inh_VisitSteps :: (Map NontermIdent Int),allVisitKinds_Inh_VisitSteps :: (Map VisitIdentifier VisitKind),allchildvisit_Inh_VisitSteps :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),avisitdefs_Inh_VisitSteps :: (Map VisitIdentifier (Set Identifier)),avisituses_Inh_VisitSteps :: (Map VisitIdentifier (Set Identifier)),childTypes_Inh_VisitSteps :: (Map Identifier Type),childintros_Inh_VisitSteps :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))),fmtMode_Inh_VisitSteps :: FormatMode,index_Inh_VisitSteps :: Int,kind_Inh_VisitSteps :: VisitKind,mrules_Inh_VisitSteps :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)),options_Inh_VisitSteps :: Options,prevMaxSimRefs_Inh_VisitSteps :: Int,ruledefs_Inh_VisitSteps :: (Map Identifier (Set String)),ruleuses_Inh_VisitSteps :: (Map Identifier (Map String (Maybe NonLocalAttr))),useParallel_Inh_VisitSteps :: Bool}+data Syn_VisitSteps = Syn_VisitSteps {defs_Syn_VisitSteps :: (Set String),errors_Syn_VisitSteps :: (Seq Error),index_Syn_VisitSteps :: Int,isLast_Syn_VisitSteps :: Bool,lazyIntras_Syn_VisitSteps :: (Set String),prevMaxSimRefs_Syn_VisitSteps :: Int,ruleKinds_Syn_VisitSteps :: (Map Identifier (Set VisitKind)),ruleUsage_Syn_VisitSteps :: (Map Identifier Int),sem_steps_Syn_VisitSteps :: PP_Doc,size_Syn_VisitSteps :: Int,sync_steps_Syn_VisitSteps :: PP_Doc,uses_Syn_VisitSteps :: (Map String (Maybe NonLocalAttr)),visitKinds_Syn_VisitSteps :: (Map VisitIdentifier VisitKind)}+wrap_VisitSteps :: T_VisitSteps ->+ Inh_VisitSteps ->+ Syn_VisitSteps+wrap_VisitSteps (T_VisitSteps sem) (Inh_VisitSteps _lhsIallFromToStates _lhsIallInitStates _lhsIallVisitKinds _lhsIallchildvisit _lhsIavisitdefs _lhsIavisituses _lhsIchildTypes _lhsIchildintros _lhsIfmtMode _lhsIindex _lhsIkind _lhsImrules _lhsIoptions _lhsIprevMaxSimRefs _lhsIruledefs _lhsIruleuses _lhsIuseParallel) =+ (let ( _lhsOdefs,_lhsOerrors,_lhsOindex,_lhsOisLast,_lhsOlazyIntras,_lhsOprevMaxSimRefs,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_steps,_lhsOsize,_lhsOsync_steps,_lhsOuses,_lhsOvisitKinds) = sem _lhsIallFromToStates _lhsIallInitStates _lhsIallVisitKinds _lhsIallchildvisit _lhsIavisitdefs _lhsIavisituses _lhsIchildTypes _lhsIchildintros _lhsIfmtMode _lhsIindex _lhsIkind _lhsImrules _lhsIoptions _lhsIprevMaxSimRefs _lhsIruledefs _lhsIruleuses _lhsIuseParallel+ in (Syn_VisitSteps _lhsOdefs _lhsOerrors _lhsOindex _lhsOisLast _lhsOlazyIntras _lhsOprevMaxSimRefs _lhsOruleKinds _lhsOruleUsage _lhsOsem_steps _lhsOsize _lhsOsync_steps _lhsOuses _lhsOvisitKinds))+sem_VisitSteps_Cons :: T_VisitStep ->+ T_VisitSteps ->+ T_VisitSteps+sem_VisitSteps_Cons (T_VisitStep hd_) (T_VisitSteps tl_) =+ (T_VisitSteps (\ _lhsIallFromToStates+ _lhsIallInitStates+ _lhsIallVisitKinds+ _lhsIallchildvisit+ _lhsIavisitdefs+ _lhsIavisituses+ _lhsIchildTypes+ _lhsIchildintros+ _lhsIfmtMode+ _lhsIindex+ _lhsIkind+ _lhsImrules+ _lhsIoptions+ _lhsIprevMaxSimRefs+ _lhsIruledefs+ _lhsIruleuses+ _lhsIuseParallel ->+ (let _lhsOsize :: Int+ _hdOindex :: Int+ _tlOindex :: Int+ _lhsOindex :: Int+ _lhsOisLast :: Bool+ _hdOisLast :: Bool+ _lhsOdefs :: (Set String)+ _lhsOerrors :: (Seq Error)+ _lhsOlazyIntras :: (Set String)+ _lhsOruleKinds :: (Map Identifier (Set VisitKind))+ _lhsOruleUsage :: (Map Identifier Int)+ _lhsOsem_steps :: PP_Doc+ _lhsOsync_steps :: PP_Doc+ _lhsOuses :: (Map String (Maybe NonLocalAttr))+ _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)+ _lhsOprevMaxSimRefs :: Int+ _hdOallFromToStates :: (Map VisitIdentifier (Int,Int))+ _hdOallInitStates :: (Map NontermIdent Int)+ _hdOallVisitKinds :: (Map VisitIdentifier VisitKind)+ _hdOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _hdOavisitdefs :: (Map VisitIdentifier (Set Identifier))+ _hdOavisituses :: (Map VisitIdentifier (Set Identifier))+ _hdOchildTypes :: (Map Identifier Type)+ _hdOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))+ _hdOfmtMode :: FormatMode+ _hdOkind :: VisitKind+ _hdOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))+ _hdOoptions :: Options+ _hdOprevMaxSimRefs :: Int+ _hdOruledefs :: (Map Identifier (Set String))+ _hdOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))+ _hdOuseParallel :: Bool+ _tlOallFromToStates :: (Map VisitIdentifier (Int,Int))+ _tlOallInitStates :: (Map NontermIdent Int)+ _tlOallVisitKinds :: (Map VisitIdentifier VisitKind)+ _tlOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _tlOavisitdefs :: (Map VisitIdentifier (Set Identifier))+ _tlOavisituses :: (Map VisitIdentifier (Set Identifier))+ _tlOchildTypes :: (Map Identifier Type)+ _tlOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))+ _tlOfmtMode :: FormatMode+ _tlOkind :: VisitKind+ _tlOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))+ _tlOoptions :: Options+ _tlOprevMaxSimRefs :: Int+ _tlOruledefs :: (Map Identifier (Set String))+ _tlOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))+ _tlOuseParallel :: Bool+ _hdIdefs :: (Set String)+ _hdIerrors :: (Seq Error)+ _hdIindex :: Int+ _hdIisLast :: Bool+ _hdIlazyIntras :: (Set String)+ _hdIprevMaxSimRefs :: Int+ _hdIruleKinds :: (Map Identifier (Set VisitKind))+ _hdIruleUsage :: (Map Identifier Int)+ _hdIsem_steps :: PP_Doc+ _hdIsync_steps :: PP_Doc+ _hdIuses :: (Map String (Maybe NonLocalAttr))+ _hdIvisitKinds :: (Map VisitIdentifier VisitKind)+ _tlIdefs :: (Set String)+ _tlIerrors :: (Seq Error)+ _tlIindex :: Int+ _tlIisLast :: Bool+ _tlIlazyIntras :: (Set String)+ _tlIprevMaxSimRefs :: Int+ _tlIruleKinds :: (Map Identifier (Set VisitKind))+ _tlIruleUsage :: (Map Identifier Int)+ _tlIsem_steps :: PP_Doc+ _tlIsize :: Int+ _tlIsync_steps :: PP_Doc+ _tlIuses :: (Map String (Maybe NonLocalAttr))+ _tlIvisitKinds :: (Map VisitIdentifier VisitKind)+ -- "src-ag/ExecutionPlan2Hs.ag"(line 851, column 10)+ _lhsOsize =+ ({-# LINE 851 "src-ag/ExecutionPlan2Hs.ag" #-}+ 1 + _tlIsize+ {-# LINE 8597 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 856, column 3)+ _hdOindex =+ ({-# LINE 856 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIindex+ {-# LINE 8603 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 857, column 3)+ _tlOindex =+ ({-# LINE 857 "src-ag/ExecutionPlan2Hs.ag" #-}+ 1 + _lhsIindex+ {-# LINE 8609 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 858, column 3)+ _lhsOindex =+ ({-# LINE 858 "src-ag/ExecutionPlan2Hs.ag" #-}+ _tlIindex+ {-# LINE 8615 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 877, column 11)+ _lhsOisLast =+ ({-# LINE 877 "src-ag/ExecutionPlan2Hs.ag" #-}+ False+ {-# LINE 8621 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 878, column 11)+ _hdOisLast =+ ({-# LINE 878 "src-ag/ExecutionPlan2Hs.ag" #-}+ _tlIisLast+ {-# LINE 8627 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1339, column 38)+ _lhsOdefs =+ ({-# LINE 1339 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIdefs `Set.union` _tlIdefs+ {-# LINE 8633 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)+ _lhsOerrors =+ ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 8639 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1355, column 57)+ _lhsOlazyIntras =+ ({-# LINE 1355 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIlazyIntras `Set.union` _tlIlazyIntras+ {-# LINE 8645 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1255, column 56)+ _lhsOruleKinds =+ ({-# LINE 1255 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIruleKinds `unionWithMappend` _tlIruleKinds+ {-# LINE 8651 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1243, column 56)+ _lhsOruleUsage =+ ({-# LINE 1243 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIruleUsage `unionWithSum` _tlIruleUsage+ {-# LINE 8657 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 777, column 43)+ _lhsOsem_steps =+ ({-# LINE 777 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIsem_steps >-< _tlIsem_steps+ {-# LINE 8663 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 810, column 44)+ _lhsOsync_steps =+ ({-# LINE 810 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIsync_steps >-< _tlIsync_steps+ {-# LINE 8669 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1340, column 38)+ _lhsOuses =+ ({-# LINE 1340 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIuses `Map.union` _tlIuses+ {-# LINE 8675 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)+ _lhsOvisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIvisitKinds `mappend` _tlIvisitKinds+ {-# LINE 8681 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (up)+ _lhsOprevMaxSimRefs =+ ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}+ _tlIprevMaxSimRefs+ {-# LINE 8687 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallFromToStates =+ ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallFromToStates+ {-# LINE 8693 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallInitStates =+ ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInitStates+ {-# LINE 8699 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallVisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallVisitKinds+ {-# LINE 8705 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallchildvisit =+ ({-# LINE 1189 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallchildvisit+ {-# LINE 8711 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOavisitdefs =+ ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisitdefs+ {-# LINE 8717 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOavisituses =+ ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisituses+ {-# LINE 8723 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOchildTypes =+ ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIchildTypes+ {-# LINE 8729 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOchildintros =+ ({-# LINE 893 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIchildintros+ {-# LINE 8735 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOfmtMode =+ ({-# LINE 819 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIfmtMode+ {-# LINE 8741 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOkind =+ ({-# LINE 769 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIkind+ {-# LINE 8747 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOmrules =+ ({-# LINE 776 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImrules+ {-# LINE 8753 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 8759 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOprevMaxSimRefs =+ ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIprevMaxSimRefs+ {-# LINE 8765 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOruledefs =+ ({-# LINE 1307 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIruledefs+ {-# LINE 8771 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOruleuses =+ ({-# LINE 1308 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIruleuses+ {-# LINE 8777 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOuseParallel =+ ({-# LINE 881 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIuseParallel+ {-# LINE 8783 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallFromToStates =+ ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallFromToStates+ {-# LINE 8789 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallInitStates =+ ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInitStates+ {-# LINE 8795 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallVisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallVisitKinds+ {-# LINE 8801 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallchildvisit =+ ({-# LINE 1189 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallchildvisit+ {-# LINE 8807 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOavisitdefs =+ ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisitdefs+ {-# LINE 8813 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOavisituses =+ ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisituses+ {-# LINE 8819 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOchildTypes =+ ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIchildTypes+ {-# LINE 8825 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOchildintros =+ ({-# LINE 893 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIchildintros+ {-# LINE 8831 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOfmtMode =+ ({-# LINE 819 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIfmtMode+ {-# LINE 8837 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOkind =+ ({-# LINE 769 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIkind+ {-# LINE 8843 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOmrules =+ ({-# LINE 776 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImrules+ {-# LINE 8849 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 8855 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (chain)+ _tlOprevMaxSimRefs =+ ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIprevMaxSimRefs+ {-# LINE 8861 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOruledefs =+ ({-# LINE 1307 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIruledefs+ {-# LINE 8867 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOruleuses =+ ({-# LINE 1308 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIruleuses+ {-# LINE 8873 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOuseParallel =+ ({-# LINE 881 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIuseParallel+ {-# LINE 8879 "dist/build/ExecutionPlan2Hs" #-}+ )+ ( _hdIdefs,_hdIerrors,_hdIindex,_hdIisLast,_hdIlazyIntras,_hdIprevMaxSimRefs,_hdIruleKinds,_hdIruleUsage,_hdIsem_steps,_hdIsync_steps,_hdIuses,_hdIvisitKinds) =+ hd_ _hdOallFromToStates _hdOallInitStates _hdOallVisitKinds _hdOallchildvisit _hdOavisitdefs _hdOavisituses _hdOchildTypes _hdOchildintros _hdOfmtMode _hdOindex _hdOisLast _hdOkind _hdOmrules _hdOoptions _hdOprevMaxSimRefs _hdOruledefs _hdOruleuses _hdOuseParallel+ ( _tlIdefs,_tlIerrors,_tlIindex,_tlIisLast,_tlIlazyIntras,_tlIprevMaxSimRefs,_tlIruleKinds,_tlIruleUsage,_tlIsem_steps,_tlIsize,_tlIsync_steps,_tlIuses,_tlIvisitKinds) =+ tl_ _tlOallFromToStates _tlOallInitStates _tlOallVisitKinds _tlOallchildvisit _tlOavisitdefs _tlOavisituses _tlOchildTypes _tlOchildintros _tlOfmtMode _tlOindex _tlOkind _tlOmrules _tlOoptions _tlOprevMaxSimRefs _tlOruledefs _tlOruleuses _tlOuseParallel+ ___node =+ (Syn_VisitSteps _lhsOdefs _lhsOerrors _lhsOindex _lhsOisLast _lhsOlazyIntras _lhsOprevMaxSimRefs _lhsOruleKinds _lhsOruleUsage _lhsOsem_steps _lhsOsize _lhsOsync_steps _lhsOuses _lhsOvisitKinds)+ in ( _lhsOdefs,_lhsOerrors,_lhsOindex,_lhsOisLast,_lhsOlazyIntras,_lhsOprevMaxSimRefs,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_steps,_lhsOsize,_lhsOsync_steps,_lhsOuses,_lhsOvisitKinds))))+sem_VisitSteps_Nil :: T_VisitSteps+sem_VisitSteps_Nil =+ (T_VisitSteps (\ _lhsIallFromToStates+ _lhsIallInitStates+ _lhsIallVisitKinds+ _lhsIallchildvisit+ _lhsIavisitdefs+ _lhsIavisituses+ _lhsIchildTypes+ _lhsIchildintros+ _lhsIfmtMode+ _lhsIindex+ _lhsIkind+ _lhsImrules+ _lhsIoptions+ _lhsIprevMaxSimRefs+ _lhsIruledefs+ _lhsIruleuses+ _lhsIuseParallel ->+ (let _lhsOsize :: Int+ _lhsOisLast :: Bool+ _lhsOdefs :: (Set String)+ _lhsOerrors :: (Seq Error)+ _lhsOlazyIntras :: (Set String)+ _lhsOruleKinds :: (Map Identifier (Set VisitKind))+ _lhsOruleUsage :: (Map Identifier Int)+ _lhsOsem_steps :: PP_Doc+ _lhsOsync_steps :: PP_Doc+ _lhsOuses :: (Map String (Maybe NonLocalAttr))+ _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)+ _lhsOindex :: Int+ _lhsOprevMaxSimRefs :: Int+ -- "src-ag/ExecutionPlan2Hs.ag"(line 850, column 10)+ _lhsOsize =+ ({-# LINE 850 "src-ag/ExecutionPlan2Hs.ag" #-}+ 0+ {-# LINE 8924 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- "src-ag/ExecutionPlan2Hs.ag"(line 876, column 11)+ _lhsOisLast =+ ({-# LINE 876 "src-ag/ExecutionPlan2Hs.ag" #-}+ True+ {-# LINE 8930 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1339, column 38)+ _lhsOdefs =+ ({-# LINE 1339 "src-ag/ExecutionPlan2Hs.ag" #-}+ Set.empty+ {-# LINE 8936 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)+ _lhsOerrors =+ ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}+ Seq.empty+ {-# LINE 8942 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1355, column 57)+ _lhsOlazyIntras =+ ({-# LINE 1355 "src-ag/ExecutionPlan2Hs.ag" #-}+ Set.empty+ {-# LINE 8948 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1255, column 56)+ _lhsOruleKinds =+ ({-# LINE 1255 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 8954 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1243, column 56)+ _lhsOruleUsage =+ ({-# LINE 1243 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 8960 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 777, column 43)+ _lhsOsem_steps =+ ({-# LINE 777 "src-ag/ExecutionPlan2Hs.ag" #-}+ empty+ {-# LINE 8966 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 810, column 44)+ _lhsOsync_steps =+ ({-# LINE 810 "src-ag/ExecutionPlan2Hs.ag" #-}+ empty+ {-# LINE 8972 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1340, column 38)+ _lhsOuses =+ ({-# LINE 1340 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 8978 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)+ _lhsOvisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ mempty+ {-# LINE 8984 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (chain)+ _lhsOindex =+ ({-# LINE 854 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIindex+ {-# LINE 8990 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (chain)+ _lhsOprevMaxSimRefs =+ ({-# LINE 865 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIprevMaxSimRefs+ {-# LINE 8996 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_VisitSteps _lhsOdefs _lhsOerrors _lhsOindex _lhsOisLast _lhsOlazyIntras _lhsOprevMaxSimRefs _lhsOruleKinds _lhsOruleUsage _lhsOsem_steps _lhsOsize _lhsOsync_steps _lhsOuses _lhsOvisitKinds)+ in ( _lhsOdefs,_lhsOerrors,_lhsOindex,_lhsOisLast,_lhsOlazyIntras,_lhsOprevMaxSimRefs,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_steps,_lhsOsize,_lhsOsync_steps,_lhsOuses,_lhsOvisitKinds))))+-- Visits ------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allFromToStates : Map VisitIdentifier (Int,Int)+ allInhmap : Map NontermIdent Attributes+ allInitStates : Map NontermIdent Int+ allSynmap : Map NontermIdent Attributes+ allVisitKinds : Map VisitIdentifier VisitKind+ allchildvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))+ allintramap : Map StateIdentifier (Map String (Maybe NonLocalAttr))+ avisitdefs : Map VisitIdentifier (Set Identifier)+ avisituses : Map VisitIdentifier (Set Identifier)+ childTypes : Map Identifier Type+ childintros : Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))+ con : ConstructorIdent+ inhmap : Attributes+ mrules : Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)+ nextVisits : Map StateIdentifier StateCtx+ nt : NontermIdent+ options : Options+ params : [Identifier]+ prevVisits : Map StateIdentifier StateCtx+ ruledefs : Map Identifier (Set String)+ ruleuses : Map Identifier (Map String (Maybe NonLocalAttr))+ synmap : Attributes+ terminaldefs : Set String+ synthesized attributes:+ allvisits : [VisitStateState]+ childvisit : Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))+ errors : Seq Error+ fromToStates : Map VisitIdentifier (Int,Int)+ intramap : Map StateIdentifier (Map String (Maybe NonLocalAttr))+ lazyIntras : Set String+ ruleKinds : Map Identifier (Set VisitKind)+ ruleUsage : Map Identifier Int+ sem_visit : [(StateIdentifier,Bool -> PP_Doc)] + t_visits : PP_Doc+ visitKinds : Map VisitIdentifier VisitKind+ visitdefs : Map VisitIdentifier (Set Identifier)+ visituses : Map VisitIdentifier (Set Identifier)+ alternatives:+ alternative Cons:+ child hd : Visit + child tl : Visits + alternative Nil:+-}+-- cata+sem_Visits :: Visits ->+ T_Visits+sem_Visits list =+ (Prelude.foldr sem_Visits_Cons sem_Visits_Nil (Prelude.map sem_Visit list))+-- semantic domain+newtype T_Visits = T_Visits ((Map VisitIdentifier (Int,Int)) ->+ (Map NontermIdent Attributes) ->+ (Map NontermIdent Int) ->+ (Map NontermIdent Attributes) ->+ (Map VisitIdentifier VisitKind) ->+ (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))) ->+ (Map StateIdentifier (Map String (Maybe NonLocalAttr))) ->+ (Map VisitIdentifier (Set Identifier)) ->+ (Map VisitIdentifier (Set Identifier)) ->+ (Map Identifier Type) ->+ (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))) ->+ ConstructorIdent ->+ Attributes ->+ (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)) ->+ (Map StateIdentifier StateCtx) ->+ NontermIdent ->+ Options ->+ ([Identifier]) ->+ (Map StateIdentifier StateCtx) ->+ (Map Identifier (Set String)) ->+ (Map Identifier (Map String (Maybe NonLocalAttr))) ->+ Attributes ->+ (Set String) ->+ ( ([VisitStateState]),(Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),(Seq Error),(Map VisitIdentifier (Int,Int)),(Map StateIdentifier (Map String (Maybe NonLocalAttr))),(Set String),(Map Identifier (Set VisitKind)),(Map Identifier Int),( [(StateIdentifier,Bool -> PP_Doc)] ),PP_Doc,(Map VisitIdentifier VisitKind),(Map VisitIdentifier (Set Identifier)),(Map VisitIdentifier (Set Identifier))))+data Inh_Visits = Inh_Visits {allFromToStates_Inh_Visits :: (Map VisitIdentifier (Int,Int)),allInhmap_Inh_Visits :: (Map NontermIdent Attributes),allInitStates_Inh_Visits :: (Map NontermIdent Int),allSynmap_Inh_Visits :: (Map NontermIdent Attributes),allVisitKinds_Inh_Visits :: (Map VisitIdentifier VisitKind),allchildvisit_Inh_Visits :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),allintramap_Inh_Visits :: (Map StateIdentifier (Map String (Maybe NonLocalAttr))),avisitdefs_Inh_Visits :: (Map VisitIdentifier (Set Identifier)),avisituses_Inh_Visits :: (Map VisitIdentifier (Set Identifier)),childTypes_Inh_Visits :: (Map Identifier Type),childintros_Inh_Visits :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr)))),con_Inh_Visits :: ConstructorIdent,inhmap_Inh_Visits :: Attributes,mrules_Inh_Visits :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc)),nextVisits_Inh_Visits :: (Map StateIdentifier StateCtx),nt_Inh_Visits :: NontermIdent,options_Inh_Visits :: Options,params_Inh_Visits :: ([Identifier]),prevVisits_Inh_Visits :: (Map StateIdentifier StateCtx),ruledefs_Inh_Visits :: (Map Identifier (Set String)),ruleuses_Inh_Visits :: (Map Identifier (Map String (Maybe NonLocalAttr))),synmap_Inh_Visits :: Attributes,terminaldefs_Inh_Visits :: (Set String)}+data Syn_Visits = Syn_Visits {allvisits_Syn_Visits :: ([VisitStateState]),childvisit_Syn_Visits :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc))),errors_Syn_Visits :: (Seq Error),fromToStates_Syn_Visits :: (Map VisitIdentifier (Int,Int)),intramap_Syn_Visits :: (Map StateIdentifier (Map String (Maybe NonLocalAttr))),lazyIntras_Syn_Visits :: (Set String),ruleKinds_Syn_Visits :: (Map Identifier (Set VisitKind)),ruleUsage_Syn_Visits :: (Map Identifier Int),sem_visit_Syn_Visits :: ( [(StateIdentifier,Bool -> PP_Doc)] ),t_visits_Syn_Visits :: PP_Doc,visitKinds_Syn_Visits :: (Map VisitIdentifier VisitKind),visitdefs_Syn_Visits :: (Map VisitIdentifier (Set Identifier)),visituses_Syn_Visits :: (Map VisitIdentifier (Set Identifier))}+wrap_Visits :: T_Visits ->+ Inh_Visits ->+ Syn_Visits+wrap_Visits (T_Visits sem) (Inh_Visits _lhsIallFromToStates _lhsIallInhmap _lhsIallInitStates _lhsIallSynmap _lhsIallVisitKinds _lhsIallchildvisit _lhsIallintramap _lhsIavisitdefs _lhsIavisituses _lhsIchildTypes _lhsIchildintros _lhsIcon _lhsIinhmap _lhsImrules _lhsInextVisits _lhsInt _lhsIoptions _lhsIparams _lhsIprevVisits _lhsIruledefs _lhsIruleuses _lhsIsynmap _lhsIterminaldefs) =+ (let ( _lhsOallvisits,_lhsOchildvisit,_lhsOerrors,_lhsOfromToStates,_lhsOintramap,_lhsOlazyIntras,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_visit,_lhsOt_visits,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses) = sem _lhsIallFromToStates _lhsIallInhmap _lhsIallInitStates _lhsIallSynmap _lhsIallVisitKinds _lhsIallchildvisit _lhsIallintramap _lhsIavisitdefs _lhsIavisituses _lhsIchildTypes _lhsIchildintros _lhsIcon _lhsIinhmap _lhsImrules _lhsInextVisits _lhsInt _lhsIoptions _lhsIparams _lhsIprevVisits _lhsIruledefs _lhsIruleuses _lhsIsynmap _lhsIterminaldefs+ in (Syn_Visits _lhsOallvisits _lhsOchildvisit _lhsOerrors _lhsOfromToStates _lhsOintramap _lhsOlazyIntras _lhsOruleKinds _lhsOruleUsage _lhsOsem_visit _lhsOt_visits _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses))+sem_Visits_Cons :: T_Visit ->+ T_Visits ->+ T_Visits+sem_Visits_Cons (T_Visit hd_) (T_Visits tl_) =+ (T_Visits (\ _lhsIallFromToStates+ _lhsIallInhmap+ _lhsIallInitStates+ _lhsIallSynmap+ _lhsIallVisitKinds+ _lhsIallchildvisit+ _lhsIallintramap+ _lhsIavisitdefs+ _lhsIavisituses+ _lhsIchildTypes+ _lhsIchildintros+ _lhsIcon+ _lhsIinhmap+ _lhsImrules+ _lhsInextVisits+ _lhsInt+ _lhsIoptions+ _lhsIparams+ _lhsIprevVisits+ _lhsIruledefs+ _lhsIruleuses+ _lhsIsynmap+ _lhsIterminaldefs ->+ (let _lhsOallvisits :: ([VisitStateState])+ _lhsOchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _lhsOerrors :: (Seq Error)+ _lhsOfromToStates :: (Map VisitIdentifier (Int,Int))+ _lhsOintramap :: (Map StateIdentifier (Map String (Maybe NonLocalAttr)))+ _lhsOlazyIntras :: (Set String)+ _lhsOruleKinds :: (Map Identifier (Set VisitKind))+ _lhsOruleUsage :: (Map Identifier Int)+ _lhsOsem_visit :: ( [(StateIdentifier,Bool -> PP_Doc)] )+ _lhsOt_visits :: PP_Doc+ _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)+ _lhsOvisitdefs :: (Map VisitIdentifier (Set Identifier))+ _lhsOvisituses :: (Map VisitIdentifier (Set Identifier))+ _hdOallFromToStates :: (Map VisitIdentifier (Int,Int))+ _hdOallInhmap :: (Map NontermIdent Attributes)+ _hdOallInitStates :: (Map NontermIdent Int)+ _hdOallSynmap :: (Map NontermIdent Attributes)+ _hdOallVisitKinds :: (Map VisitIdentifier VisitKind)+ _hdOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _hdOallintramap :: (Map StateIdentifier (Map String (Maybe NonLocalAttr)))+ _hdOavisitdefs :: (Map VisitIdentifier (Set Identifier))+ _hdOavisituses :: (Map VisitIdentifier (Set Identifier))+ _hdOchildTypes :: (Map Identifier Type)+ _hdOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))+ _hdOcon :: ConstructorIdent+ _hdOinhmap :: Attributes+ _hdOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))+ _hdOnextVisits :: (Map StateIdentifier StateCtx)+ _hdOnt :: NontermIdent+ _hdOoptions :: Options+ _hdOparams :: ([Identifier])+ _hdOprevVisits :: (Map StateIdentifier StateCtx)+ _hdOruledefs :: (Map Identifier (Set String))+ _hdOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))+ _hdOsynmap :: Attributes+ _hdOterminaldefs :: (Set String)+ _tlOallFromToStates :: (Map VisitIdentifier (Int,Int))+ _tlOallInhmap :: (Map NontermIdent Attributes)+ _tlOallInitStates :: (Map NontermIdent Int)+ _tlOallSynmap :: (Map NontermIdent Attributes)+ _tlOallVisitKinds :: (Map VisitIdentifier VisitKind)+ _tlOallchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _tlOallintramap :: (Map StateIdentifier (Map String (Maybe NonLocalAttr)))+ _tlOavisitdefs :: (Map VisitIdentifier (Set Identifier))+ _tlOavisituses :: (Map VisitIdentifier (Set Identifier))+ _tlOchildTypes :: (Map Identifier Type)+ _tlOchildintros :: (Map Identifier (VisitKind -> FormatMode -> Either Error (PP_Doc, Set String, Map String (Maybe NonLocalAttr))))+ _tlOcon :: ConstructorIdent+ _tlOinhmap :: Attributes+ _tlOmrules :: (Map Identifier (VisitKind -> FormatMode -> Either Error PP_Doc))+ _tlOnextVisits :: (Map StateIdentifier StateCtx)+ _tlOnt :: NontermIdent+ _tlOoptions :: Options+ _tlOparams :: ([Identifier])+ _tlOprevVisits :: (Map StateIdentifier StateCtx)+ _tlOruledefs :: (Map Identifier (Set String))+ _tlOruleuses :: (Map Identifier (Map String (Maybe NonLocalAttr)))+ _tlOsynmap :: Attributes+ _tlOterminaldefs :: (Set String)+ _hdIallvisits :: ( VisitStateState )+ _hdIchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _hdIerrors :: (Seq Error)+ _hdIfromToStates :: (Map VisitIdentifier (Int,Int))+ _hdIintramap :: (Map StateIdentifier (Map String (Maybe NonLocalAttr)))+ _hdIlazyIntras :: (Set String)+ _hdIruleKinds :: (Map Identifier (Set VisitKind))+ _hdIruleUsage :: (Map Identifier Int)+ _hdIsem_visit :: ( (StateIdentifier,Bool -> PP_Doc) )+ _hdIt_visits :: PP_Doc+ _hdIvisitKinds :: (Map VisitIdentifier VisitKind)+ _hdIvisitdefs :: (Map VisitIdentifier (Set Identifier))+ _hdIvisituses :: (Map VisitIdentifier (Set Identifier))+ _tlIallvisits :: ([VisitStateState])+ _tlIchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _tlIerrors :: (Seq Error)+ _tlIfromToStates :: (Map VisitIdentifier (Int,Int))+ _tlIintramap :: (Map StateIdentifier (Map String (Maybe NonLocalAttr)))+ _tlIlazyIntras :: (Set String)+ _tlIruleKinds :: (Map Identifier (Set VisitKind))+ _tlIruleUsage :: (Map Identifier Int)+ _tlIsem_visit :: ( [(StateIdentifier,Bool -> PP_Doc)] )+ _tlIt_visits :: PP_Doc+ _tlIvisitKinds :: (Map VisitIdentifier VisitKind)+ _tlIvisitdefs :: (Map VisitIdentifier (Set Identifier))+ _tlIvisituses :: (Map VisitIdentifier (Set Identifier))+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 336, column 29)+ _lhsOallvisits =+ ({-# LINE 336 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIallvisits : _tlIallvisits+ {-# LINE 9202 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1187, column 37)+ _lhsOchildvisit =+ ({-# LINE 1187 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIchildvisit `Map.union` _tlIchildvisit+ {-# LINE 9208 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)+ _lhsOerrors =+ ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 9214 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1544, column 22)+ _lhsOfromToStates =+ ({-# LINE 1544 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIfromToStates `mappend` _tlIfromToStates+ {-# LINE 9220 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1281, column 34)+ _lhsOintramap =+ ({-# LINE 1281 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIintramap `uwMapUnion` _tlIintramap+ {-# LINE 9226 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1355, column 57)+ _lhsOlazyIntras =+ ({-# LINE 1355 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIlazyIntras `Set.union` _tlIlazyIntras+ {-# LINE 9232 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1255, column 56)+ _lhsOruleKinds =+ ({-# LINE 1255 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIruleKinds `unionWithMappend` _tlIruleKinds+ {-# LINE 9238 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1243, column 56)+ _lhsOruleUsage =+ ({-# LINE 1243 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIruleUsage `unionWithSum` _tlIruleUsage+ {-# LINE 9244 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 706, column 29)+ _lhsOsem_visit =+ ({-# LINE 706 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIsem_visit : _tlIsem_visit+ {-# LINE 9250 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 394, column 59)+ _lhsOt_visits =+ ({-# LINE 394 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIt_visits >-< _tlIt_visits+ {-# LINE 9256 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)+ _lhsOvisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIvisitKinds `mappend` _tlIvisitKinds+ {-# LINE 9262 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1322, column 36)+ _lhsOvisitdefs =+ ({-# LINE 1322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIvisitdefs `uwSetUnion` _tlIvisitdefs+ {-# LINE 9268 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1323, column 36)+ _lhsOvisituses =+ ({-# LINE 1323 "src-ag/ExecutionPlan2Hs.ag" #-}+ _hdIvisituses `uwSetUnion` _tlIvisituses+ {-# LINE 9274 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallFromToStates =+ ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallFromToStates+ {-# LINE 9280 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallInhmap =+ ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInhmap+ {-# LINE 9286 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallInitStates =+ ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInitStates+ {-# LINE 9292 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallSynmap =+ ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallSynmap+ {-# LINE 9298 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallVisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallVisitKinds+ {-# LINE 9304 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallchildvisit =+ ({-# LINE 1186 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallchildvisit+ {-# LINE 9310 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOallintramap =+ ({-# LINE 1280 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallintramap+ {-# LINE 9316 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOavisitdefs =+ ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisitdefs+ {-# LINE 9322 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOavisituses =+ ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisituses+ {-# LINE 9328 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOchildTypes =+ ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIchildTypes+ {-# LINE 9334 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOchildintros =+ ({-# LINE 893 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIchildintros+ {-# LINE 9340 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOcon =+ ({-# LINE 66 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIcon+ {-# LINE 9346 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOinhmap =+ ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinhmap+ {-# LINE 9352 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOmrules =+ ({-# LINE 776 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImrules+ {-# LINE 9358 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOnextVisits =+ ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsInextVisits+ {-# LINE 9364 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOnt =+ ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsInt+ {-# LINE 9370 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 9376 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOparams =+ ({-# LINE 73 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIparams+ {-# LINE 9382 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOprevVisits =+ ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIprevVisits+ {-# LINE 9388 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOruledefs =+ ({-# LINE 1307 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIruledefs+ {-# LINE 9394 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOruleuses =+ ({-# LINE 1308 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIruleuses+ {-# LINE 9400 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOsynmap =+ ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIsynmap+ {-# LINE 9406 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _hdOterminaldefs =+ ({-# LINE 1283 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIterminaldefs+ {-# LINE 9412 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallFromToStates =+ ({-# LINE 1547 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallFromToStates+ {-# LINE 9418 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallInhmap =+ ({-# LINE 321 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInhmap+ {-# LINE 9424 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallInitStates =+ ({-# LINE 1605 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallInitStates+ {-# LINE 9430 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallSynmap =+ ({-# LINE 322 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallSynmap+ {-# LINE 9436 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallVisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallVisitKinds+ {-# LINE 9442 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallchildvisit =+ ({-# LINE 1186 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallchildvisit+ {-# LINE 9448 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOallintramap =+ ({-# LINE 1280 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIallintramap+ {-# LINE 9454 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOavisitdefs =+ ({-# LINE 1332 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisitdefs+ {-# LINE 9460 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOavisituses =+ ({-# LINE 1333 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIavisituses+ {-# LINE 9466 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOchildTypes =+ ({-# LINE 1564 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIchildTypes+ {-# LINE 9472 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOchildintros =+ ({-# LINE 893 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIchildintros+ {-# LINE 9478 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOcon =+ ({-# LINE 66 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIcon+ {-# LINE 9484 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOinhmap =+ ({-# LINE 319 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIinhmap+ {-# LINE 9490 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOmrules =+ ({-# LINE 776 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsImrules+ {-# LINE 9496 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOnextVisits =+ ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsInextVisits+ {-# LINE 9502 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOnt =+ ({-# LINE 61 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsInt+ {-# LINE 9508 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 51 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIoptions+ {-# LINE 9514 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOparams =+ ({-# LINE 73 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIparams+ {-# LINE 9520 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOprevVisits =+ ({-# LINE 1533 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIprevVisits+ {-# LINE 9526 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOruledefs =+ ({-# LINE 1307 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIruledefs+ {-# LINE 9532 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOruleuses =+ ({-# LINE 1308 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIruleuses+ {-# LINE 9538 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOsynmap =+ ({-# LINE 320 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIsynmap+ {-# LINE 9544 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- copy rule (down)+ _tlOterminaldefs =+ ({-# LINE 1283 "src-ag/ExecutionPlan2Hs.ag" #-}+ _lhsIterminaldefs+ {-# LINE 9550 "dist/build/ExecutionPlan2Hs" #-}+ )+ ( _hdIallvisits,_hdIchildvisit,_hdIerrors,_hdIfromToStates,_hdIintramap,_hdIlazyIntras,_hdIruleKinds,_hdIruleUsage,_hdIsem_visit,_hdIt_visits,_hdIvisitKinds,_hdIvisitdefs,_hdIvisituses) =+ hd_ _hdOallFromToStates _hdOallInhmap _hdOallInitStates _hdOallSynmap _hdOallVisitKinds _hdOallchildvisit _hdOallintramap _hdOavisitdefs _hdOavisituses _hdOchildTypes _hdOchildintros _hdOcon _hdOinhmap _hdOmrules _hdOnextVisits _hdOnt _hdOoptions _hdOparams _hdOprevVisits _hdOruledefs _hdOruleuses _hdOsynmap _hdOterminaldefs+ ( _tlIallvisits,_tlIchildvisit,_tlIerrors,_tlIfromToStates,_tlIintramap,_tlIlazyIntras,_tlIruleKinds,_tlIruleUsage,_tlIsem_visit,_tlIt_visits,_tlIvisitKinds,_tlIvisitdefs,_tlIvisituses) =+ tl_ _tlOallFromToStates _tlOallInhmap _tlOallInitStates _tlOallSynmap _tlOallVisitKinds _tlOallchildvisit _tlOallintramap _tlOavisitdefs _tlOavisituses _tlOchildTypes _tlOchildintros _tlOcon _tlOinhmap _tlOmrules _tlOnextVisits _tlOnt _tlOoptions _tlOparams _tlOprevVisits _tlOruledefs _tlOruleuses _tlOsynmap _tlOterminaldefs+ ___node =+ (Syn_Visits _lhsOallvisits _lhsOchildvisit _lhsOerrors _lhsOfromToStates _lhsOintramap _lhsOlazyIntras _lhsOruleKinds _lhsOruleUsage _lhsOsem_visit _lhsOt_visits _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses)+ in ( _lhsOallvisits,_lhsOchildvisit,_lhsOerrors,_lhsOfromToStates,_lhsOintramap,_lhsOlazyIntras,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_visit,_lhsOt_visits,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses))))+sem_Visits_Nil :: T_Visits+sem_Visits_Nil =+ (T_Visits (\ _lhsIallFromToStates+ _lhsIallInhmap+ _lhsIallInitStates+ _lhsIallSynmap+ _lhsIallVisitKinds+ _lhsIallchildvisit+ _lhsIallintramap+ _lhsIavisitdefs+ _lhsIavisituses+ _lhsIchildTypes+ _lhsIchildintros+ _lhsIcon+ _lhsIinhmap+ _lhsImrules+ _lhsInextVisits+ _lhsInt+ _lhsIoptions+ _lhsIparams+ _lhsIprevVisits+ _lhsIruledefs+ _lhsIruleuses+ _lhsIsynmap+ _lhsIterminaldefs ->+ (let _lhsOallvisits :: ([VisitStateState])+ _lhsOchildvisit :: (Map VisitIdentifier (Identifier -> VisitKind -> Either Error (PP_Doc, PP_Doc)))+ _lhsOerrors :: (Seq Error)+ _lhsOfromToStates :: (Map VisitIdentifier (Int,Int))+ _lhsOintramap :: (Map StateIdentifier (Map String (Maybe NonLocalAttr)))+ _lhsOlazyIntras :: (Set String)+ _lhsOruleKinds :: (Map Identifier (Set VisitKind))+ _lhsOruleUsage :: (Map Identifier Int)+ _lhsOsem_visit :: ( [(StateIdentifier,Bool -> PP_Doc)] )+ _lhsOt_visits :: PP_Doc+ _lhsOvisitKinds :: (Map VisitIdentifier VisitKind)+ _lhsOvisitdefs :: (Map VisitIdentifier (Set Identifier))+ _lhsOvisituses :: (Map VisitIdentifier (Set Identifier))+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 336, column 29)+ _lhsOallvisits =+ ({-# LINE 336 "src-ag/ExecutionPlan2Hs.ag" #-}+ []+ {-# LINE 9601 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1187, column 37)+ _lhsOchildvisit =+ ({-# LINE 1187 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 9607 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1629, column 132)+ _lhsOerrors =+ ({-# LINE 1629 "src-ag/ExecutionPlan2Hs.ag" #-}+ Seq.empty+ {-# LINE 9613 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1544, column 22)+ _lhsOfromToStates =+ ({-# LINE 1544 "src-ag/ExecutionPlan2Hs.ag" #-}+ mempty+ {-# LINE 9619 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1281, column 34)+ _lhsOintramap =+ ({-# LINE 1281 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 9625 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1355, column 57)+ _lhsOlazyIntras =+ ({-# LINE 1355 "src-ag/ExecutionPlan2Hs.ag" #-}+ Set.empty+ {-# LINE 9631 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1255, column 56)+ _lhsOruleKinds =+ ({-# LINE 1255 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 9637 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1243, column 56)+ _lhsOruleUsage =+ ({-# LINE 1243 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 9643 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 706, column 29)+ _lhsOsem_visit =+ ({-# LINE 706 "src-ag/ExecutionPlan2Hs.ag" #-}+ []+ {-# LINE 9649 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 394, column 59)+ _lhsOt_visits =+ ({-# LINE 394 "src-ag/ExecutionPlan2Hs.ag" #-}+ empty+ {-# LINE 9655 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1591, column 68)+ _lhsOvisitKinds =+ ({-# LINE 1591 "src-ag/ExecutionPlan2Hs.ag" #-}+ mempty+ {-# LINE 9661 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1322, column 36)+ _lhsOvisitdefs =+ ({-# LINE 1322 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 9667 "dist/build/ExecutionPlan2Hs" #-}+ )+ -- use rule "src-ag/ExecutionPlan2Hs.ag"(line 1323, column 36)+ _lhsOvisituses =+ ({-# LINE 1323 "src-ag/ExecutionPlan2Hs.ag" #-}+ Map.empty+ {-# LINE 9673 "dist/build/ExecutionPlan2Hs" #-}+ )+ ___node =+ (Syn_Visits _lhsOallvisits _lhsOchildvisit _lhsOerrors _lhsOfromToStates _lhsOintramap _lhsOlazyIntras _lhsOruleKinds _lhsOruleUsage _lhsOsem_visit _lhsOt_visits _lhsOvisitKinds _lhsOvisitdefs _lhsOvisituses) in ( _lhsOallvisits,_lhsOchildvisit,_lhsOerrors,_lhsOfromToStates,_lhsOintramap,_lhsOlazyIntras,_lhsOruleKinds,_lhsOruleUsage,_lhsOsem_visit,_lhsOt_visits,_lhsOvisitKinds,_lhsOvisitdefs,_lhsOvisituses))))
src-derived/GenerateCode.hs view
@@ -560,7485 +560,7541 @@ ) ( _nontsIchunks,_nontsIgathNts,_nontsIsemDomUnfoldGath) = nonts_ _nontsOallNts _nontsOallPragmas _nontsOaroundMap _nontsOcontextMap _nontsOderivings _nontsOmergeMap _nontsOo_case _nontsOo_cata _nontsOo_costcentre _nontsOo_data _nontsOo_linePragmas _nontsOo_monadic _nontsOo_newtypes _nontsOo_pretty _nontsOo_rename _nontsOo_sem _nontsOo_sig _nontsOo_splitsems _nontsOo_strictwrap _nontsOo_traces _nontsOo_unbox _nontsOoptions _nontsOparamMap _nontsOprefix _nontsOquantMap _nontsOtypeSyns _nontsOunfoldSemDom _nontsOwith_sig _nontsOwrappers- in ( _lhsOerrors,_lhsOoutput))))--- CInterface ---------------------------------------------------{-- visit 0:- inherited attributes:- inh : Attributes- nt : NontermIdent- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramMap : ParamMap- prefix : String- syn : Attributes- synthesized attributes:- comments : [String]- semDom : [Decl]- semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)- wrapDecls : Decls- alternatives:- alternative CInterface:- child seg : CSegments --}--- cata-sem_CInterface :: CInterface ->- T_CInterface-sem_CInterface (CInterface _seg) =- (sem_CInterface_CInterface (sem_CSegments _seg))--- semantic domain-newtype T_CInterface = T_CInterface (Attributes ->- NontermIdent ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- ParamMap ->- String ->- Attributes ->- ( ([String]),([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls))-data Inh_CInterface = Inh_CInterface {inh_Inh_CInterface :: !(Attributes),nt_Inh_CInterface :: !(NontermIdent),o_case_Inh_CInterface :: !(Bool),o_cata_Inh_CInterface :: !(Bool),o_costcentre_Inh_CInterface :: !(Bool),o_data_Inh_CInterface :: !((Maybe Bool)),o_linePragmas_Inh_CInterface :: !(Bool),o_monadic_Inh_CInterface :: !(Bool),o_newtypes_Inh_CInterface :: !(Bool),o_pretty_Inh_CInterface :: !(Bool),o_rename_Inh_CInterface :: !(Bool),o_sem_Inh_CInterface :: !(Bool),o_sig_Inh_CInterface :: !(Bool),o_splitsems_Inh_CInterface :: !(Bool),o_strictwrap_Inh_CInterface :: !(Bool),o_traces_Inh_CInterface :: !(Bool),o_unbox_Inh_CInterface :: !(Bool),options_Inh_CInterface :: !(Options),paramMap_Inh_CInterface :: !(ParamMap),prefix_Inh_CInterface :: !(String),syn_Inh_CInterface :: !(Attributes)}-data Syn_CInterface = Syn_CInterface {comments_Syn_CInterface :: !(([String])),semDom_Syn_CInterface :: !(([Decl])),semDomUnfoldGath_Syn_CInterface :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CInterface :: !(Decls)}-wrap_CInterface :: T_CInterface ->- Inh_CInterface ->- Syn_CInterface-wrap_CInterface (T_CInterface sem) (Inh_CInterface _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn) =- (let ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn- in (Syn_CInterface _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls))-sem_CInterface_CInterface :: T_CSegments ->- T_CInterface-sem_CInterface_CInterface (T_CSegments seg_) =- (T_CInterface (\ _lhsIinh- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsIsyn ->- (let _segOnr :: Int- _lhsOsemDom :: ([Decl])- _lhsOcomments :: ([String])- _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _lhsOwrapDecls :: Decls- _segOinh :: Attributes- _segOnt :: NontermIdent- _segOo_case :: Bool- _segOo_cata :: Bool- _segOo_costcentre :: Bool- _segOo_data :: (Maybe Bool)- _segOo_linePragmas :: Bool- _segOo_monadic :: Bool- _segOo_newtypes :: Bool- _segOo_pretty :: Bool- _segOo_rename :: Bool- _segOo_sem :: Bool- _segOo_sig :: Bool- _segOo_splitsems :: Bool- _segOo_strictwrap :: Bool- _segOo_traces :: Bool- _segOo_unbox :: Bool- _segOoptions :: Options- _segOparamMap :: ParamMap- _segOprefix :: String- _segOsyn :: Attributes- _segIcomments :: ([String])- _segIisNil :: Bool- _segIsemDom :: ([Decl])- _segIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _segIwrapDecls :: Decls- -- "src-ag/GenerateCode.ag"(line 284, column 17)- _segOnr =- ({-# LINE 284 "src-ag/GenerateCode.ag" #-}- 0- {-# LINE 694 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 712, column 18)- _lhsOsemDom =- ({-# LINE 712 "src-ag/GenerateCode.ag" #-}- Comment "semantic domain" : _segIsemDom- {-# LINE 700 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)- _lhsOcomments =- ({-# LINE 868 "src-ag/GenerateCode.ag" #-}- _segIcomments- {-# LINE 706 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 744, column 86)- _lhsOsemDomUnfoldGath =- ({-# LINE 744 "src-ag/GenerateCode.ag" #-}- _segIsemDomUnfoldGath- {-# LINE 712 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 829, column 52)- _lhsOwrapDecls =- ({-# LINE 829 "src-ag/GenerateCode.ag" #-}- _segIwrapDecls- {-# LINE 718 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOinh =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIinh- {-# LINE 724 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOnt =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsInt- {-# LINE 730 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOo_case =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 736 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOo_cata =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 742 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOo_costcentre =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 748 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOo_data =- ({-# LINE 48 "src-ag/GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 754 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOo_linePragmas =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 760 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOo_monadic =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 766 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOo_newtypes =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 772 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOo_pretty =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 778 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOo_rename =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 784 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOo_sem =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 790 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOo_sig =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 796 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOo_splitsems =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 802 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOo_strictwrap =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 808 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOo_traces =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 814 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOo_unbox =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 820 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOoptions =- ({-# LINE 50 "src-ag/GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 826 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOparamMap =- ({-# LINE 95 "src-ag/GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 832 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOprefix =- ({-# LINE 49 "src-ag/GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 838 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _segOsyn =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 844 "dist/build/GenerateCode" #-}- )- ( _segIcomments,_segIisNil,_segIsemDom,_segIsemDomUnfoldGath,_segIwrapDecls) =- seg_ _segOinh _segOnr _segOnt _segOo_case _segOo_cata _segOo_costcentre _segOo_data _segOo_linePragmas _segOo_monadic _segOo_newtypes _segOo_pretty _segOo_rename _segOo_sem _segOo_sig _segOo_splitsems _segOo_strictwrap _segOo_traces _segOo_unbox _segOoptions _segOparamMap _segOprefix _segOsyn- in ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))))--- CNonterminal -------------------------------------------------{-- visit 0:- inherited attributes:- allNts : Set NontermIdent- allPragmas : PragmaMap- aroundMap : Map NontermIdent (Map ConstructorIdent (Set Identifier))- contextMap : ContextMap- derivings : Derivings- mergeMap : Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramMap : ParamMap- prefix : String- quantMap : QuantMap- typeSyns : TypeSyns- unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type- with_sig : Bool- wrappers : Set NontermIdent- synthesized attributes:- chunks : Chunks- gathNts : Set NontermIdent- semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)- alternatives:- alternative CNonterminal:- child nt : {NontermIdent}- child params : {[Identifier]}- child inh : {Attributes}- child syn : {Attributes}- child prods : CProductions - child inter : CInterface - visit 0:- local aroundMap : _- local mergeMap : _- local semWrapper : _- local comment : _- local dataDef : _- local genCata : _- local cataFun : _--}--- cata-sem_CNonterminal :: CNonterminal ->- T_CNonterminal-sem_CNonterminal (CNonterminal _nt _params _inh _syn _prods _inter) =- (sem_CNonterminal_CNonterminal _nt _params _inh _syn (sem_CProductions _prods) (sem_CInterface _inter))--- semantic domain-newtype T_CNonterminal = T_CNonterminal ((Set NontermIdent) ->- PragmaMap ->- (Map NontermIdent (Map ConstructorIdent (Set Identifier))) ->- ContextMap ->- Derivings ->- (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- ParamMap ->- String ->- QuantMap ->- TypeSyns ->- (NontermIdent -> Int -> [String] -> Code.Type) ->- Bool ->- (Set NontermIdent) ->- ( Chunks,(Set NontermIdent),(Map (NontermIdent, Int) ([String], Code.Type))))-data Inh_CNonterminal = Inh_CNonterminal {allNts_Inh_CNonterminal :: !((Set NontermIdent)),allPragmas_Inh_CNonterminal :: !(PragmaMap),aroundMap_Inh_CNonterminal :: !((Map NontermIdent (Map ConstructorIdent (Set Identifier)))),contextMap_Inh_CNonterminal :: !(ContextMap),derivings_Inh_CNonterminal :: !(Derivings),mergeMap_Inh_CNonterminal :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))),o_case_Inh_CNonterminal :: !(Bool),o_cata_Inh_CNonterminal :: !(Bool),o_costcentre_Inh_CNonterminal :: !(Bool),o_data_Inh_CNonterminal :: !((Maybe Bool)),o_linePragmas_Inh_CNonterminal :: !(Bool),o_monadic_Inh_CNonterminal :: !(Bool),o_newtypes_Inh_CNonterminal :: !(Bool),o_pretty_Inh_CNonterminal :: !(Bool),o_rename_Inh_CNonterminal :: !(Bool),o_sem_Inh_CNonterminal :: !(Bool),o_sig_Inh_CNonterminal :: !(Bool),o_splitsems_Inh_CNonterminal :: !(Bool),o_strictwrap_Inh_CNonterminal :: !(Bool),o_traces_Inh_CNonterminal :: !(Bool),o_unbox_Inh_CNonterminal :: !(Bool),options_Inh_CNonterminal :: !(Options),paramMap_Inh_CNonterminal :: !(ParamMap),prefix_Inh_CNonterminal :: !(String),quantMap_Inh_CNonterminal :: !(QuantMap),typeSyns_Inh_CNonterminal :: !(TypeSyns),unfoldSemDom_Inh_CNonterminal :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CNonterminal :: !(Bool),wrappers_Inh_CNonterminal :: !((Set NontermIdent))}-data Syn_CNonterminal = Syn_CNonterminal {chunks_Syn_CNonterminal :: !(Chunks),gathNts_Syn_CNonterminal :: !((Set NontermIdent)),semDomUnfoldGath_Syn_CNonterminal :: !((Map (NontermIdent, Int) ([String], Code.Type)))}-wrap_CNonterminal :: T_CNonterminal ->- Inh_CNonterminal ->- Syn_CNonterminal-wrap_CNonterminal (T_CNonterminal sem) (Inh_CNonterminal _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers) =- (let ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers- in (Syn_CNonterminal _lhsOchunks _lhsOgathNts _lhsOsemDomUnfoldGath))-sem_CNonterminal_CNonterminal :: NontermIdent ->- ([Identifier]) ->- Attributes ->- Attributes ->- T_CProductions ->- T_CInterface ->- T_CNonterminal-sem_CNonterminal_CNonterminal nt_ params_ inh_ syn_ (T_CProductions prods_) (T_CInterface inter_) =- (T_CNonterminal (\ _lhsIallNts- _lhsIallPragmas- _lhsIaroundMap- _lhsIcontextMap- _lhsIderivings- _lhsImergeMap- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsIquantMap- _lhsItypeSyns- _lhsIunfoldSemDom- _lhsIwith_sig- _lhsIwrappers ->- (let _interOinh :: Attributes- _interOsyn :: Attributes- _interOnt :: NontermIdent- _prodsOinh :: Attributes- _prodsOsyn :: Attributes- _prodsOnt :: NontermIdent- _lhsOgathNts :: (Set NontermIdent)- _lhsOchunks :: Chunks- _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _prodsOallNts :: (Set NontermIdent)- _prodsOallPragmas :: PragmaMap- _prodsOaroundMap :: (Map ConstructorIdent (Set Identifier))- _prodsOcontextMap :: ContextMap- _prodsOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))- _prodsOo_case :: Bool- _prodsOo_cata :: Bool- _prodsOo_costcentre :: Bool- _prodsOo_data :: (Maybe Bool)- _prodsOo_linePragmas :: Bool- _prodsOo_monadic :: Bool- _prodsOo_newtypes :: Bool- _prodsOo_pretty :: Bool- _prodsOo_rename :: Bool- _prodsOo_sem :: Bool- _prodsOo_sig :: Bool- _prodsOo_splitsems :: Bool- _prodsOo_strictwrap :: Bool- _prodsOo_traces :: Bool- _prodsOo_unbox :: Bool- _prodsOoptions :: Options- _prodsOparamMap :: ParamMap- _prodsOprefix :: String- _prodsOquantMap :: QuantMap- _prodsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _prodsOwith_sig :: Bool- _prodsOwrappers :: (Set NontermIdent)- _interOo_case :: Bool- _interOo_cata :: Bool- _interOo_costcentre :: Bool- _interOo_data :: (Maybe Bool)- _interOo_linePragmas :: Bool- _interOo_monadic :: Bool- _interOo_newtypes :: Bool- _interOo_pretty :: Bool- _interOo_rename :: Bool- _interOo_sem :: Bool- _interOo_sig :: Bool- _interOo_splitsems :: Bool- _interOo_strictwrap :: Bool- _interOo_traces :: Bool- _interOo_unbox :: Bool- _interOoptions :: Options- _interOparamMap :: ParamMap- _interOprefix :: String- _prodsIcataAlts :: Decls- _prodsIcomments :: ([String])- _prodsIdataAlts :: DataAlts- _prodsIdecls :: Decls- _prodsIsemNames :: ([String])- _interIcomments :: ([String])- _interIsemDom :: ([Decl])- _interIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _interIwrapDecls :: Decls- -- "src-ag/GenerateCode.ag"(line 86, column 26)- (_interOinh,_interOsyn,_interOnt) =- ({-# LINE 86 "src-ag/GenerateCode.ag" #-}- (inh_,syn_,nt_)- {-# LINE 1051 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 87, column 25)- (_prodsOinh,_prodsOsyn,_prodsOnt) =- ({-# LINE 87 "src-ag/GenerateCode.ag" #-}- (inh_,syn_,nt_)- {-# LINE 1057 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 142, column 7)- _lhsOgathNts =- ({-# LINE 142 "src-ag/GenerateCode.ag" #-}- Set.singleton nt_- {-# LINE 1063 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 583, column 34)- _aroundMap =- ({-# LINE 583 "src-ag/GenerateCode.ag" #-}- Map.findWithDefault Map.empty nt_ _lhsIaroundMap- {-# LINE 1069 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 599, column 34)- _mergeMap =- ({-# LINE 599 "src-ag/GenerateCode.ag" #-}- Map.findWithDefault Map.empty nt_ _lhsImergeMap- {-# LINE 1075 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 803, column 18)- _semWrapper =- ({-# LINE 803 "src-ag/GenerateCode.ag" #-}- let params' = map getName params_- inhAttrs = Map.toList inh_- synAttrs = Map.toList syn_- inhVars = [ SimpleExpr (attrname True _LHS a) | (a,_) <- inhAttrs ]- synVars = [ SimpleExpr (attrname False _LHS a) | (a,_) <- synAttrs ]- var = "sem"- wrapNT = "wrap" ++ "_" ++ getName nt_- inhNT = "Inh" ++ "_" ++ getName nt_- synNT = "Syn" ++ "_" ++ getName nt_- varPat = if _lhsIo_newtypes- then App (sdtype nt_) [SimpleExpr var]- else SimpleExpr var- evalTp | null params' = id- | otherwise = idEvalType- appParams nm = TypeApp (SimpleType nm) (map SimpleType params')- typeSig = TSig wrapNT (evalTp $ appParams (sdtype nt_) `Arr` (appParams inhNT `Arr` appParams synNT))- mkstrict = Named _lhsIo_strictwrap- mkdata n attrs = Data n params' [Record n [mkstrict (getName f++"_"++n) $ evalTp $ typeToCodeType (Just nt_) params' $ removeDeforested t | (f,t) <- attrs]] False []- datas = [mkdata inhNT inhAttrs, mkdata synNT synAttrs]- in datas ++ [ typeSig- , Decl (Fun wrapNT [varPat, App inhNT inhVars])- (Let _interIwrapDecls (App synNT synVars))- Set.empty Set.empty- ]- {-# LINE 1104 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 864, column 18)- _comment =- ({-# LINE 864 "src-ag/GenerateCode.ag" #-}- Comment . unlines . map ind $ ( _interIcomments ++ ("alternatives:" : map ind _prodsIcomments) )- {-# LINE 1110 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 926, column 19)- _lhsOchunks =- ({-# LINE 926 "src-ag/GenerateCode.ag" #-}- [ Chunk (getName nt_)- (Comment (getName nt_ ++ " " ++ replicate (60 - length (getName nt_)) '-'))- (if _lhsIo_pretty then [_comment ] else [])- (if isJust _lhsIo_data then [_dataDef ] else [])- (if _lhsIo_cata && _genCata then _cataFun else [])- (if _lhsIo_sig then _interIsemDom else [])- (if nt_ `Set.member` _lhsIwrappers then _semWrapper else [])- (if _lhsIo_sem then _prodsIdecls else [])- (if _lhsIo_sem then _prodsIsemNames else [])- ]- {-# LINE 1125 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 995, column 18)- _dataDef =- ({-# LINE 995 "src-ag/GenerateCode.ag" #-}- let params' = map getName params_- typeSyn tp = let theType =- case tp of- CommonTypes.Maybe t -> TMaybe $ typeToCodeType (Just nt_) params' t- CommonTypes.Either t1 t2 -> TEither (typeToCodeType (Just nt_) params' t1) (typeToCodeType (Just nt_) params' t2)- CommonTypes.Map t1 t2 -> TMap (typeToCodeType (Just nt_) params' t1) (typeToCodeType (Just nt_) params' t2)- CommonTypes.IntMap t -> TIntMap $ typeToCodeType (Just nt_) params' t- CommonTypes.List t -> Code.List $ typeToCodeType (Just nt_) params' t- CommonTypes.Tuple ts -> Code.TupleType [typeToCodeType (Just nt_) params' t- | (_,t) <- ts- ]- in Code.Type (getName nt_) params' (idEvalType theType)- derivings = maybe [] (map getName . Set.toList) (Map.lookup nt_ _lhsIderivings)- dataDef = Data (getName nt_) (map getName params_) _prodsIdataAlts (maybe False id _lhsIo_data) derivings- in maybe dataDef typeSyn $ lookup nt_ _lhsItypeSyns- {-# LINE 1145 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 1038, column 18)- _genCata =- ({-# LINE 1038 "src-ag/GenerateCode.ag" #-}- not (nt_ `Set.member` nocatas _lhsIoptions)- {-# LINE 1151 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 1039, column 18)- _cataFun =- ({-# LINE 1039 "src-ag/GenerateCode.ag" #-}- let appParams nm = TypeApp (SimpleType nm) (map SimpleType (map getName params_))- evalTp | null params_ = id- | otherwise = idEvalType- tSig = TSig (cataname _lhsIprefix nt_)- (appQuant _lhsIquantMap nt_ $ appContext _lhsIcontextMap nt_ $ evalTp $ appParams (getName nt_) `Arr` appParams (sdtype nt_))- special typ = case typ of- CommonTypes.List tp ->- let cons = SimpleExpr (semname _lhsIprefix nt_ (identifier "Cons"))- nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil" ))- arg = SimpleExpr "list"- rarg = case tp of- NT t _ _ -> let t' = maybe t id (deforestedNt t)- in SimpleExpr ("(Prelude.map " ++ (cataname _lhsIprefix t') ++ " list)")- _ -> arg- lhs = Fun (cataname _lhsIprefix nt_) [arg]- rhs = (App "Prelude.foldr" [cons,nil,rarg])- in [Decl lhs rhs Set.empty Set.empty]- CommonTypes.Maybe tp ->- let just = semname _lhsIprefix nt_ (identifier "Just")- nothing = semname _lhsIprefix nt_ (identifier "Nothing" )- arg = SimpleExpr "x"- rarg = case tp of- NT t _ _ -> let t' = maybe t id (deforestedNt t)- in App (cataname _lhsIprefix t') [arg]- _ -> arg- lhs a = Fun (cataname _lhsIprefix nt_) [a]- in [Decl (lhs (App "Prelude.Just" [arg])) (App just [rarg]) Set.empty Set.empty- ,Decl (lhs (SimpleExpr "Prelude.Nothing")) (SimpleExpr nothing) Set.empty Set.empty- ]- CommonTypes.Either tp1 tp2 ->- let left = semname _lhsIprefix nt_ (identifier "Left")- right = semname _lhsIprefix nt_ (identifier "Right" )- arg = SimpleExpr "x"- rarg0 = case tp1 of- NT t _ _ -> let t' = maybe t id (deforestedNt t)- in App (cataname _lhsIprefix t') [arg]- _ -> arg- rarg1 = case tp2 of- NT t _ _ -> let t' = maybe t id (deforestedNt t)- in App (cataname _lhsIprefix t') [arg]- _ -> arg- lhs a = Fun (cataname _lhsIprefix nt_) [a]- in [Decl (lhs (App "Prelude.Left" [arg])) (App left [rarg0]) Set.empty Set.empty- ,Decl (lhs (App "Prelude.Right" [arg])) (App right [rarg1]) Set.empty Set.empty- ]- CommonTypes.Map _ tp ->- let entry = SimpleExpr (semname _lhsIprefix nt_ (identifier "Entry"))- nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil"))- arg = SimpleExpr "m"- rarg = case tp of- NT t _ _ -> let t' = maybe t id (deforestedNt t)- in App "Data.Map.map" [SimpleExpr $ cataname _lhsIprefix t', arg]- _ -> arg- lhs = Fun (cataname _lhsIprefix nt_) [arg]- rhs = App "Data.Map.foldrWithKey" [entry,nil,rarg]- in [Decl lhs rhs Set.empty Set.empty]- CommonTypes.IntMap tp ->- let entry = SimpleExpr (semname _lhsIprefix nt_ (identifier "Entry"))- nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil"))- arg = SimpleExpr "m"- rarg = case tp of- NT t _ _ -> let t' = maybe t id (deforestedNt t)- in App "Data.IntMap.map" [SimpleExpr $ cataname _lhsIprefix t', arg]- _ -> arg- lhs = Fun (cataname _lhsIprefix nt_) [arg]- rhs = App "Data.IntMap.foldWithKey" [entry,nil,rarg]- in [Decl lhs rhs Set.empty Set.empty]- CommonTypes.Tuple tps ->- let con = semname _lhsIprefix nt_ (identifier "Tuple")- tps' = [ (SimpleExpr (getName x),y) | (x,y) <- tps]- rargs = map rarg tps'- rarg (n, tp) = case tp of- NT t _ _ -> let t' = maybe t id (deforestedNt t)- in App (cataname _lhsIprefix t') [n]- _ -> n- lhs = Fun (cataname _lhsIprefix nt_) [TupleExpr (map fst tps')]- rhs = App con rargs- in [Decl lhs rhs Set.empty Set.empty]- in Comment "cata" :- (if _lhsIo_sig then [tSig] else []) ++- maybe _prodsIcataAlts special (lookup nt_ _lhsItypeSyns)- {-# LINE 1237 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 744, column 86)- _lhsOsemDomUnfoldGath =- ({-# LINE 744 "src-ag/GenerateCode.ag" #-}- _interIsemDomUnfoldGath- {-# LINE 1243 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOallNts =- ({-# LINE 132 "src-ag/GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 1249 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOallPragmas =- ({-# LINE 73 "src-ag/GenerateCode.ag" #-}- _lhsIallPragmas- {-# LINE 1255 "dist/build/GenerateCode" #-}- )- -- copy rule (from local)- _prodsOaroundMap =- ({-# LINE 578 "src-ag/GenerateCode.ag" #-}- _aroundMap- {-# LINE 1261 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOcontextMap =- ({-# LINE 115 "src-ag/GenerateCode.ag" #-}- _lhsIcontextMap- {-# LINE 1267 "dist/build/GenerateCode" #-}- )- -- copy rule (from local)- _prodsOmergeMap =- ({-# LINE 594 "src-ag/GenerateCode.ag" #-}- _mergeMap- {-# LINE 1273 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOo_case =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 1279 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOo_cata =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 1285 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOo_costcentre =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 1291 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOo_data =- ({-# LINE 48 "src-ag/GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 1297 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOo_linePragmas =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 1303 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOo_monadic =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 1309 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOo_newtypes =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 1315 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOo_pretty =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 1321 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOo_rename =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 1327 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOo_sem =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 1333 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOo_sig =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 1339 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOo_splitsems =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 1345 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOo_strictwrap =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 1351 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOo_traces =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 1357 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOo_unbox =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 1363 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOoptions =- ({-# LINE 50 "src-ag/GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 1369 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOparamMap =- ({-# LINE 95 "src-ag/GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 1375 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOprefix =- ({-# LINE 49 "src-ag/GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 1381 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOquantMap =- ({-# LINE 115 "src-ag/GenerateCode.ag" #-}- _lhsIquantMap- {-# LINE 1387 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOunfoldSemDom =- ({-# LINE 750 "src-ag/GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 1393 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOwith_sig =- ({-# LINE 851 "src-ag/GenerateCode.ag" #-}- _lhsIwith_sig- {-# LINE 1399 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _prodsOwrappers =- ({-# LINE 987 "src-ag/GenerateCode.ag" #-}- _lhsIwrappers- {-# LINE 1405 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _interOo_case =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 1411 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _interOo_cata =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 1417 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _interOo_costcentre =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 1423 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _interOo_data =- ({-# LINE 48 "src-ag/GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 1429 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _interOo_linePragmas =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 1435 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _interOo_monadic =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 1441 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _interOo_newtypes =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 1447 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _interOo_pretty =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 1453 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _interOo_rename =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 1459 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _interOo_sem =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 1465 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _interOo_sig =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 1471 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _interOo_splitsems =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 1477 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _interOo_strictwrap =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 1483 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _interOo_traces =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 1489 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _interOo_unbox =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 1495 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _interOoptions =- ({-# LINE 50 "src-ag/GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 1501 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _interOparamMap =- ({-# LINE 95 "src-ag/GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 1507 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _interOprefix =- ({-# LINE 49 "src-ag/GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 1513 "dist/build/GenerateCode" #-}- )- ( _prodsIcataAlts,_prodsIcomments,_prodsIdataAlts,_prodsIdecls,_prodsIsemNames) =- prods_ _prodsOallNts _prodsOallPragmas _prodsOaroundMap _prodsOcontextMap _prodsOinh _prodsOmergeMap _prodsOnt _prodsOo_case _prodsOo_cata _prodsOo_costcentre _prodsOo_data _prodsOo_linePragmas _prodsOo_monadic _prodsOo_newtypes _prodsOo_pretty _prodsOo_rename _prodsOo_sem _prodsOo_sig _prodsOo_splitsems _prodsOo_strictwrap _prodsOo_traces _prodsOo_unbox _prodsOoptions _prodsOparamMap _prodsOprefix _prodsOquantMap _prodsOsyn _prodsOunfoldSemDom _prodsOwith_sig _prodsOwrappers- ( _interIcomments,_interIsemDom,_interIsemDomUnfoldGath,_interIwrapDecls) =- inter_ _interOinh _interOnt _interOo_case _interOo_cata _interOo_costcentre _interOo_data _interOo_linePragmas _interOo_monadic _interOo_newtypes _interOo_pretty _interOo_rename _interOo_sem _interOo_sig _interOo_splitsems _interOo_strictwrap _interOo_traces _interOo_unbox _interOoptions _interOparamMap _interOprefix _interOsyn- in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))))--- CNonterminals ------------------------------------------------{-- visit 0:- inherited attributes:- allNts : Set NontermIdent- allPragmas : PragmaMap- aroundMap : Map NontermIdent (Map ConstructorIdent (Set Identifier))- contextMap : ContextMap- derivings : Derivings- mergeMap : Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramMap : ParamMap- prefix : String- quantMap : QuantMap- typeSyns : TypeSyns- unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type- with_sig : Bool- wrappers : Set NontermIdent- synthesized attributes:- chunks : Chunks- gathNts : Set NontermIdent- semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)- alternatives:- alternative Cons:- child hd : CNonterminal - child tl : CNonterminals - alternative Nil:--}--- cata-sem_CNonterminals :: CNonterminals ->- T_CNonterminals-sem_CNonterminals list =- (Prelude.foldr sem_CNonterminals_Cons sem_CNonterminals_Nil (Prelude.map sem_CNonterminal list))--- semantic domain-newtype T_CNonterminals = T_CNonterminals ((Set NontermIdent) ->- PragmaMap ->- (Map NontermIdent (Map ConstructorIdent (Set Identifier))) ->- ContextMap ->- Derivings ->- (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- ParamMap ->- String ->- QuantMap ->- TypeSyns ->- (NontermIdent -> Int -> [String] -> Code.Type) ->- Bool ->- (Set NontermIdent) ->- ( Chunks,(Set NontermIdent),(Map (NontermIdent, Int) ([String], Code.Type))))-data Inh_CNonterminals = Inh_CNonterminals {allNts_Inh_CNonterminals :: !((Set NontermIdent)),allPragmas_Inh_CNonterminals :: !(PragmaMap),aroundMap_Inh_CNonterminals :: !((Map NontermIdent (Map ConstructorIdent (Set Identifier)))),contextMap_Inh_CNonterminals :: !(ContextMap),derivings_Inh_CNonterminals :: !(Derivings),mergeMap_Inh_CNonterminals :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))),o_case_Inh_CNonterminals :: !(Bool),o_cata_Inh_CNonterminals :: !(Bool),o_costcentre_Inh_CNonterminals :: !(Bool),o_data_Inh_CNonterminals :: !((Maybe Bool)),o_linePragmas_Inh_CNonterminals :: !(Bool),o_monadic_Inh_CNonterminals :: !(Bool),o_newtypes_Inh_CNonterminals :: !(Bool),o_pretty_Inh_CNonterminals :: !(Bool),o_rename_Inh_CNonterminals :: !(Bool),o_sem_Inh_CNonterminals :: !(Bool),o_sig_Inh_CNonterminals :: !(Bool),o_splitsems_Inh_CNonterminals :: !(Bool),o_strictwrap_Inh_CNonterminals :: !(Bool),o_traces_Inh_CNonterminals :: !(Bool),o_unbox_Inh_CNonterminals :: !(Bool),options_Inh_CNonterminals :: !(Options),paramMap_Inh_CNonterminals :: !(ParamMap),prefix_Inh_CNonterminals :: !(String),quantMap_Inh_CNonterminals :: !(QuantMap),typeSyns_Inh_CNonterminals :: !(TypeSyns),unfoldSemDom_Inh_CNonterminals :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CNonterminals :: !(Bool),wrappers_Inh_CNonterminals :: !((Set NontermIdent))}-data Syn_CNonterminals = Syn_CNonterminals {chunks_Syn_CNonterminals :: !(Chunks),gathNts_Syn_CNonterminals :: !((Set NontermIdent)),semDomUnfoldGath_Syn_CNonterminals :: !((Map (NontermIdent, Int) ([String], Code.Type)))}-wrap_CNonterminals :: T_CNonterminals ->- Inh_CNonterminals ->- Syn_CNonterminals-wrap_CNonterminals (T_CNonterminals sem) (Inh_CNonterminals _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers) =- (let ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers- in (Syn_CNonterminals _lhsOchunks _lhsOgathNts _lhsOsemDomUnfoldGath))-sem_CNonterminals_Cons :: T_CNonterminal ->- T_CNonterminals ->- T_CNonterminals-sem_CNonterminals_Cons (T_CNonterminal hd_) (T_CNonterminals tl_) =- (T_CNonterminals (\ _lhsIallNts- _lhsIallPragmas- _lhsIaroundMap- _lhsIcontextMap- _lhsIderivings- _lhsImergeMap- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsIquantMap- _lhsItypeSyns- _lhsIunfoldSemDom- _lhsIwith_sig- _lhsIwrappers ->- (let _lhsOchunks :: Chunks- _lhsOgathNts :: (Set NontermIdent)- _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _hdOallNts :: (Set NontermIdent)- _hdOallPragmas :: PragmaMap- _hdOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier)))- _hdOcontextMap :: ContextMap- _hdOderivings :: Derivings- _hdOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))- _hdOo_case :: Bool- _hdOo_cata :: Bool- _hdOo_costcentre :: Bool- _hdOo_data :: (Maybe Bool)- _hdOo_linePragmas :: Bool- _hdOo_monadic :: Bool- _hdOo_newtypes :: Bool- _hdOo_pretty :: Bool- _hdOo_rename :: Bool- _hdOo_sem :: Bool- _hdOo_sig :: Bool- _hdOo_splitsems :: Bool- _hdOo_strictwrap :: Bool- _hdOo_traces :: Bool- _hdOo_unbox :: Bool- _hdOoptions :: Options- _hdOparamMap :: ParamMap- _hdOprefix :: String- _hdOquantMap :: QuantMap- _hdOtypeSyns :: TypeSyns- _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _hdOwith_sig :: Bool- _hdOwrappers :: (Set NontermIdent)- _tlOallNts :: (Set NontermIdent)- _tlOallPragmas :: PragmaMap- _tlOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier)))- _tlOcontextMap :: ContextMap- _tlOderivings :: Derivings- _tlOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))- _tlOo_case :: Bool- _tlOo_cata :: Bool- _tlOo_costcentre :: Bool- _tlOo_data :: (Maybe Bool)- _tlOo_linePragmas :: Bool- _tlOo_monadic :: Bool- _tlOo_newtypes :: Bool- _tlOo_pretty :: Bool- _tlOo_rename :: Bool- _tlOo_sem :: Bool- _tlOo_sig :: Bool- _tlOo_splitsems :: Bool- _tlOo_strictwrap :: Bool- _tlOo_traces :: Bool- _tlOo_unbox :: Bool- _tlOoptions :: Options- _tlOparamMap :: ParamMap- _tlOprefix :: String- _tlOquantMap :: QuantMap- _tlOtypeSyns :: TypeSyns- _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _tlOwith_sig :: Bool- _tlOwrappers :: (Set NontermIdent)- _hdIchunks :: Chunks- _hdIgathNts :: (Set NontermIdent)- _hdIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _tlIchunks :: Chunks- _tlIgathNts :: (Set NontermIdent)- _tlIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- -- use rule "src-ag/GenerateCode.ag"(line 918, column 49)- _lhsOchunks =- ({-# LINE 918 "src-ag/GenerateCode.ag" #-}- _hdIchunks ++ _tlIchunks- {-# LINE 1711 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 138, column 47)- _lhsOgathNts =- ({-# LINE 138 "src-ag/GenerateCode.ag" #-}- _hdIgathNts `Set.union` _tlIgathNts- {-# LINE 1717 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 744, column 86)- _lhsOsemDomUnfoldGath =- ({-# LINE 744 "src-ag/GenerateCode.ag" #-}- _hdIsemDomUnfoldGath `Map.union` _tlIsemDomUnfoldGath- {-# LINE 1723 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOallNts =- ({-# LINE 132 "src-ag/GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 1729 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOallPragmas =- ({-# LINE 73 "src-ag/GenerateCode.ag" #-}- _lhsIallPragmas- {-# LINE 1735 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOaroundMap =- ({-# LINE 575 "src-ag/GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 1741 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOcontextMap =- ({-# LINE 115 "src-ag/GenerateCode.ag" #-}- _lhsIcontextMap- {-# LINE 1747 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOderivings =- ({-# LINE 986 "src-ag/GenerateCode.ag" #-}- _lhsIderivings- {-# LINE 1753 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOmergeMap =- ({-# LINE 591 "src-ag/GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 1759 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_case =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 1765 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_cata =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 1771 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_costcentre =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 1777 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_data =- ({-# LINE 48 "src-ag/GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 1783 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_linePragmas =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 1789 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_monadic =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 1795 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_newtypes =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 1801 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_pretty =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 1807 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_rename =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 1813 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_sem =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 1819 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_sig =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 1825 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_splitsems =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 1831 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_strictwrap =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 1837 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_traces =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 1843 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_unbox =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 1849 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 50 "src-ag/GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 1855 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOparamMap =- ({-# LINE 95 "src-ag/GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 1861 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOprefix =- ({-# LINE 49 "src-ag/GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 1867 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOquantMap =- ({-# LINE 115 "src-ag/GenerateCode.ag" #-}- _lhsIquantMap- {-# LINE 1873 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOtypeSyns =- ({-# LINE 986 "src-ag/GenerateCode.ag" #-}- _lhsItypeSyns- {-# LINE 1879 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOunfoldSemDom =- ({-# LINE 750 "src-ag/GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 1885 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOwith_sig =- ({-# LINE 851 "src-ag/GenerateCode.ag" #-}- _lhsIwith_sig- {-# LINE 1891 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOwrappers =- ({-# LINE 987 "src-ag/GenerateCode.ag" #-}- _lhsIwrappers- {-# LINE 1897 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOallNts =- ({-# LINE 132 "src-ag/GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 1903 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOallPragmas =- ({-# LINE 73 "src-ag/GenerateCode.ag" #-}- _lhsIallPragmas- {-# LINE 1909 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOaroundMap =- ({-# LINE 575 "src-ag/GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 1915 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOcontextMap =- ({-# LINE 115 "src-ag/GenerateCode.ag" #-}- _lhsIcontextMap- {-# LINE 1921 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOderivings =- ({-# LINE 986 "src-ag/GenerateCode.ag" #-}- _lhsIderivings- {-# LINE 1927 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOmergeMap =- ({-# LINE 591 "src-ag/GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 1933 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_case =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 1939 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_cata =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 1945 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_costcentre =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 1951 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_data =- ({-# LINE 48 "src-ag/GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 1957 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_linePragmas =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 1963 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_monadic =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 1969 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_newtypes =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 1975 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_pretty =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 1981 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_rename =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 1987 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_sem =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 1993 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_sig =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 1999 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_splitsems =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 2005 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_strictwrap =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 2011 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_traces =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 2017 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_unbox =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 2023 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 50 "src-ag/GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 2029 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOparamMap =- ({-# LINE 95 "src-ag/GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 2035 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOprefix =- ({-# LINE 49 "src-ag/GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 2041 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOquantMap =- ({-# LINE 115 "src-ag/GenerateCode.ag" #-}- _lhsIquantMap- {-# LINE 2047 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOtypeSyns =- ({-# LINE 986 "src-ag/GenerateCode.ag" #-}- _lhsItypeSyns- {-# LINE 2053 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOunfoldSemDom =- ({-# LINE 750 "src-ag/GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 2059 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOwith_sig =- ({-# LINE 851 "src-ag/GenerateCode.ag" #-}- _lhsIwith_sig- {-# LINE 2065 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOwrappers =- ({-# LINE 987 "src-ag/GenerateCode.ag" #-}- _lhsIwrappers- {-# LINE 2071 "dist/build/GenerateCode" #-}- )- ( _hdIchunks,_hdIgathNts,_hdIsemDomUnfoldGath) =- hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOcontextMap _hdOderivings _hdOmergeMap _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOquantMap _hdOtypeSyns _hdOunfoldSemDom _hdOwith_sig _hdOwrappers- ( _tlIchunks,_tlIgathNts,_tlIsemDomUnfoldGath) =- tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOcontextMap _tlOderivings _tlOmergeMap _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOquantMap _tlOtypeSyns _tlOunfoldSemDom _tlOwith_sig _tlOwrappers- in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))))-sem_CNonterminals_Nil :: T_CNonterminals-sem_CNonterminals_Nil =- (T_CNonterminals (\ _lhsIallNts- _lhsIallPragmas- _lhsIaroundMap- _lhsIcontextMap- _lhsIderivings- _lhsImergeMap- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsIquantMap- _lhsItypeSyns- _lhsIunfoldSemDom- _lhsIwith_sig- _lhsIwrappers ->- (let _lhsOchunks :: Chunks- _lhsOgathNts :: (Set NontermIdent)- _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- -- use rule "src-ag/GenerateCode.ag"(line 918, column 49)- _lhsOchunks =- ({-# LINE 918 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 2116 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 138, column 47)- _lhsOgathNts =- ({-# LINE 138 "src-ag/GenerateCode.ag" #-}- Set.empty- {-# LINE 2122 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 744, column 86)- _lhsOsemDomUnfoldGath =- ({-# LINE 744 "src-ag/GenerateCode.ag" #-}- Map.empty- {-# LINE 2128 "dist/build/GenerateCode" #-}- )- in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))))--- CProduction --------------------------------------------------{-- visit 0:- inherited attributes:- allNts : Set NontermIdent- allPragmas : PragmaMap- aroundMap : Map ConstructorIdent (Set Identifier)- contextMap : ContextMap- inh : Attributes- mergeMap : Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))- nt : NontermIdent- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramMap : ParamMap- prefix : String- quantMap : QuantMap- syn : Attributes- unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type- with_sig : Bool- wrappers : Set NontermIdent- synthesized attributes:- cataAlt : Decl- comments : [String]- dataAlt : DataAlt- decls : Decls- semNames : [String]- alternatives:- alternative CProduction:- child con : {ConstructorIdent}- child visits : CVisits - child children : {[(Identifier,Type,ChildKind)]}- child terminals : {[Identifier]}- visit 0:- local paramInstMap : _- local aroundMap : _- local mergeMap : _- local firstOrderChildren : _- local params : _--}--- cata-sem_CProduction :: CProduction ->- T_CProduction-sem_CProduction (CProduction _con _visits _children _terminals) =- (sem_CProduction_CProduction _con (sem_CVisits _visits) _children _terminals)--- semantic domain-newtype T_CProduction = T_CProduction ((Set NontermIdent) ->- PragmaMap ->- (Map ConstructorIdent (Set Identifier)) ->- ContextMap ->- Attributes ->- (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) ->- NontermIdent ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- ParamMap ->- String ->- QuantMap ->- Attributes ->- (NontermIdent -> Int -> [String] -> Code.Type) ->- Bool ->- (Set NontermIdent) ->- ( Decl,([String]),DataAlt,Decls,([String])))-data Inh_CProduction = Inh_CProduction {allNts_Inh_CProduction :: !((Set NontermIdent)),allPragmas_Inh_CProduction :: !(PragmaMap),aroundMap_Inh_CProduction :: !((Map ConstructorIdent (Set Identifier))),contextMap_Inh_CProduction :: !(ContextMap),inh_Inh_CProduction :: !(Attributes),mergeMap_Inh_CProduction :: !((Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))),nt_Inh_CProduction :: !(NontermIdent),o_case_Inh_CProduction :: !(Bool),o_cata_Inh_CProduction :: !(Bool),o_costcentre_Inh_CProduction :: !(Bool),o_data_Inh_CProduction :: !((Maybe Bool)),o_linePragmas_Inh_CProduction :: !(Bool),o_monadic_Inh_CProduction :: !(Bool),o_newtypes_Inh_CProduction :: !(Bool),o_pretty_Inh_CProduction :: !(Bool),o_rename_Inh_CProduction :: !(Bool),o_sem_Inh_CProduction :: !(Bool),o_sig_Inh_CProduction :: !(Bool),o_splitsems_Inh_CProduction :: !(Bool),o_strictwrap_Inh_CProduction :: !(Bool),o_traces_Inh_CProduction :: !(Bool),o_unbox_Inh_CProduction :: !(Bool),options_Inh_CProduction :: !(Options),paramMap_Inh_CProduction :: !(ParamMap),prefix_Inh_CProduction :: !(String),quantMap_Inh_CProduction :: !(QuantMap),syn_Inh_CProduction :: !(Attributes),unfoldSemDom_Inh_CProduction :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CProduction :: !(Bool),wrappers_Inh_CProduction :: !((Set NontermIdent))}-data Syn_CProduction = Syn_CProduction {cataAlt_Syn_CProduction :: !(Decl),comments_Syn_CProduction :: !(([String])),dataAlt_Syn_CProduction :: !(DataAlt),decls_Syn_CProduction :: !(Decls),semNames_Syn_CProduction :: !(([String]))}-wrap_CProduction :: T_CProduction ->- Inh_CProduction ->- Syn_CProduction-wrap_CProduction (T_CProduction sem) (Inh_CProduction _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers) =- (let ( _lhsOcataAlt,_lhsOcomments,_lhsOdataAlt,_lhsOdecls,_lhsOsemNames) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers- in (Syn_CProduction _lhsOcataAlt _lhsOcomments _lhsOdataAlt _lhsOdecls _lhsOsemNames))-sem_CProduction_CProduction :: ConstructorIdent ->- T_CVisits ->- ([(Identifier,Type,ChildKind)]) ->- ([Identifier]) ->- T_CProduction-sem_CProduction_CProduction con_ (T_CVisits visits_) children_ terminals_ =- (T_CProduction (\ _lhsIallNts- _lhsIallPragmas- _lhsIaroundMap- _lhsIcontextMap- _lhsIinh- _lhsImergeMap- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsIquantMap- _lhsIsyn- _lhsIunfoldSemDom- _lhsIwith_sig- _lhsIwrappers ->- (let _visitsOcon :: ConstructorIdent- _visitsOterminals :: ([Identifier])- _visitsOvisitedSet :: (Set Identifier)- _visitsOnr :: Int- _visitsOchildren :: ([(Identifier,Type, ChildKind)])- _visitsOinstVisitNrs :: (Map Identifier Int)- _lhsOcomments :: ([String])- _lhsOdataAlt :: DataAlt- _lhsOcataAlt :: Decl- _lhsOdecls :: Decls- _lhsOsemNames :: ([String])- _visitsOallNts :: (Set NontermIdent)- _visitsOallPragmas :: PragmaMap- _visitsOaroundMap :: (Set Identifier)- _visitsOcontextMap :: ContextMap- _visitsOinh :: Attributes- _visitsOmergeMap :: (Map Identifier (Identifier, [Identifier]))- _visitsOnt :: NontermIdent- _visitsOo_case :: Bool- _visitsOo_cata :: Bool- _visitsOo_costcentre :: Bool- _visitsOo_data :: (Maybe Bool)- _visitsOo_linePragmas :: Bool- _visitsOo_monadic :: Bool- _visitsOo_newtypes :: Bool- _visitsOo_pretty :: Bool- _visitsOo_rename :: Bool- _visitsOo_sem :: Bool- _visitsOo_sig :: Bool- _visitsOo_splitsems :: Bool- _visitsOo_strictwrap :: Bool- _visitsOo_traces :: Bool- _visitsOo_unbox :: Bool- _visitsOoptions :: Options- _visitsOparamInstMap :: (Map Identifier (NontermIdent, [String]))- _visitsOparamMap :: ParamMap- _visitsOprefix :: String- _visitsOquantMap :: QuantMap- _visitsOsyn :: Attributes- _visitsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _visitsOwith_sig :: Bool- _visitsOwrappers :: (Set NontermIdent)- _visitsIcomments :: ([String])- _visitsIdecls :: Decls- _visitsIgatherInstVisitNrs :: (Map Identifier Int)- _visitsIintra :: Exprs- _visitsIintraVars :: (Set String)- _visitsIisNil :: Bool- _visitsIsemNames :: ([String])- _visitsIvisitedSet :: (Set Identifier)- -- "src-ag/GenerateCode.ag"(line 92, column 19)- _visitsOcon =- ({-# LINE 92 "src-ag/GenerateCode.ag" #-}- con_- {-# LINE 2319 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 93, column 20)- _visitsOterminals =- ({-# LINE 93 "src-ag/GenerateCode.ag" #-}- terminals_- {-# LINE 2325 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 105, column 7)- _paramInstMap =- ({-# LINE 105 "src-ag/GenerateCode.ag" #-}- Map.fromList [(nm, (extractNonterminal tp, tps)) | (nm,tp,_) <- children_, let tps = map cleanupArg $ nontermArgs tp, not (null tps) ]- {-# LINE 2331 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 146, column 32)- _visitsOvisitedSet =- ({-# LINE 146 "src-ag/GenerateCode.ag" #-}- Set.empty- {-# LINE 2337 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 280, column 18)- _visitsOnr =- ({-# LINE 280 "src-ag/GenerateCode.ag" #-}- 0- {-# LINE 2343 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 412, column 18)- _visitsOchildren =- ({-# LINE 412 "src-ag/GenerateCode.ag" #-}- children_- {-# LINE 2349 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 564, column 7)- _visitsOinstVisitNrs =- ({-# LINE 564 "src-ag/GenerateCode.ag" #-}- _visitsIgatherInstVisitNrs- {-# LINE 2355 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 584, column 34)- _aroundMap =- ({-# LINE 584 "src-ag/GenerateCode.ag" #-}- Map.findWithDefault Set.empty con_ _lhsIaroundMap- {-# LINE 2361 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 600, column 34)- _mergeMap =- ({-# LINE 600 "src-ag/GenerateCode.ag" #-}- Map.findWithDefault Map.empty con_ _lhsImergeMap- {-# LINE 2367 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 879, column 18)- _firstOrderChildren =- ({-# LINE 879 "src-ag/GenerateCode.ag" #-}- [ (nm,fromJust mb,virt) | (nm,tp,virt) <- children_, let mb = isFirstOrder virt tp, isJust mb ]- {-# LINE 2373 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 880, column 18)- _lhsOcomments =- ({-# LINE 880 "src-ag/GenerateCode.ag" #-}- ("alternative " ++ getName con_ ++ ":")- : map ind ( map (\(x,y,_) -> makeLocalComment 14 "child" x (Just y)) _firstOrderChildren- ++ _visitsIcomments- )- {-# LINE 2382 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 1019, column 17)- _params =- ({-# LINE 1019 "src-ag/GenerateCode.ag" #-}- map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap- {-# LINE 2388 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 1020, column 17)- _lhsOdataAlt =- ({-# LINE 1020 "src-ag/GenerateCode.ag" #-}- let conNm = conname _lhsIo_rename _lhsInt con_- mkFields f = map (\(nm,t,_) -> f _lhsInt con_ nm (typeToCodeType (Just _lhsInt) _params $ removeDeforested t)) _firstOrderChildren- in if dataRecords _lhsIoptions- then Record conNm $ mkFields $ toNamedType (strictData _lhsIoptions)- else DataAlt conNm $ mkFields $ \_ _ _ t -> t- {-# LINE 2398 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 1131, column 17)- _lhsOcataAlt =- ({-# LINE 1131 "src-ag/GenerateCode.ag" #-}- let lhs = Fun (cataname _lhsIprefix _lhsInt) [lhs_pat]- lhs_pat = App (conname _lhsIo_rename _lhsInt con_)- (map (\(n,_,_) -> SimpleExpr $ locname $ n) _firstOrderChildren )- rhs = App (semname _lhsIprefix _lhsInt con_)- (map argument _firstOrderChildren )- argument (nm,NT tp _ _,_) = App (cataname _lhsIprefix tp)- [SimpleExpr (locname nm)]- argument (nm, _,_) = SimpleExpr (locname nm)- in Decl lhs rhs Set.empty Set.empty- {-# LINE 2412 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 919, column 44)- _lhsOdecls =- ({-# LINE 919 "src-ag/GenerateCode.ag" #-}- _visitsIdecls- {-# LINE 2418 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 1146, column 61)- _lhsOsemNames =- ({-# LINE 1146 "src-ag/GenerateCode.ag" #-}- _visitsIsemNames- {-# LINE 2424 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOallNts =- ({-# LINE 132 "src-ag/GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 2430 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOallPragmas =- ({-# LINE 73 "src-ag/GenerateCode.ag" #-}- _lhsIallPragmas- {-# LINE 2436 "dist/build/GenerateCode" #-}- )- -- copy rule (from local)- _visitsOaroundMap =- ({-# LINE 580 "src-ag/GenerateCode.ag" #-}- _aroundMap- {-# LINE 2442 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOcontextMap =- ({-# LINE 115 "src-ag/GenerateCode.ag" #-}- _lhsIcontextMap- {-# LINE 2448 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOinh =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIinh- {-# LINE 2454 "dist/build/GenerateCode" #-}- )- -- copy rule (from local)- _visitsOmergeMap =- ({-# LINE 596 "src-ag/GenerateCode.ag" #-}- _mergeMap- {-# LINE 2460 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOnt =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsInt- {-# LINE 2466 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOo_case =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 2472 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOo_cata =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 2478 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOo_costcentre =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 2484 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOo_data =- ({-# LINE 48 "src-ag/GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 2490 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOo_linePragmas =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 2496 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOo_monadic =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 2502 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOo_newtypes =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 2508 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOo_pretty =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 2514 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOo_rename =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 2520 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOo_sem =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 2526 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOo_sig =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 2532 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOo_splitsems =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 2538 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOo_strictwrap =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 2544 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOo_traces =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 2550 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOo_unbox =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 2556 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOoptions =- ({-# LINE 50 "src-ag/GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 2562 "dist/build/GenerateCode" #-}- )- -- copy rule (from local)- _visitsOparamInstMap =- ({-# LINE 101 "src-ag/GenerateCode.ag" #-}- _paramInstMap- {-# LINE 2568 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOparamMap =- ({-# LINE 95 "src-ag/GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 2574 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOprefix =- ({-# LINE 49 "src-ag/GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 2580 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOquantMap =- ({-# LINE 115 "src-ag/GenerateCode.ag" #-}- _lhsIquantMap- {-# LINE 2586 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOsyn =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 2592 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOunfoldSemDom =- ({-# LINE 750 "src-ag/GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 2598 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOwith_sig =- ({-# LINE 851 "src-ag/GenerateCode.ag" #-}- _lhsIwith_sig- {-# LINE 2604 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _visitsOwrappers =- ({-# LINE 987 "src-ag/GenerateCode.ag" #-}- _lhsIwrappers- {-# LINE 2610 "dist/build/GenerateCode" #-}- )- ( _visitsIcomments,_visitsIdecls,_visitsIgatherInstVisitNrs,_visitsIintra,_visitsIintraVars,_visitsIisNil,_visitsIsemNames,_visitsIvisitedSet) =- visits_ _visitsOallNts _visitsOallPragmas _visitsOaroundMap _visitsOchildren _visitsOcon _visitsOcontextMap _visitsOinh _visitsOinstVisitNrs _visitsOmergeMap _visitsOnr _visitsOnt _visitsOo_case _visitsOo_cata _visitsOo_costcentre _visitsOo_data _visitsOo_linePragmas _visitsOo_monadic _visitsOo_newtypes _visitsOo_pretty _visitsOo_rename _visitsOo_sem _visitsOo_sig _visitsOo_splitsems _visitsOo_strictwrap _visitsOo_traces _visitsOo_unbox _visitsOoptions _visitsOparamInstMap _visitsOparamMap _visitsOprefix _visitsOquantMap _visitsOsyn _visitsOterminals _visitsOunfoldSemDom _visitsOvisitedSet _visitsOwith_sig _visitsOwrappers- in ( _lhsOcataAlt,_lhsOcomments,_lhsOdataAlt,_lhsOdecls,_lhsOsemNames))))--- CProductions -------------------------------------------------{-- visit 0:- inherited attributes:- allNts : Set NontermIdent- allPragmas : PragmaMap- aroundMap : Map ConstructorIdent (Set Identifier)- contextMap : ContextMap- inh : Attributes- mergeMap : Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))- nt : NontermIdent- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramMap : ParamMap- prefix : String- quantMap : QuantMap- syn : Attributes- unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type- with_sig : Bool- wrappers : Set NontermIdent- synthesized attributes:- cataAlts : Decls- comments : [String]- dataAlts : DataAlts- decls : Decls- semNames : [String]- alternatives:- alternative Cons:- child hd : CProduction - child tl : CProductions - alternative Nil:--}--- cata-sem_CProductions :: CProductions ->- T_CProductions-sem_CProductions list =- (Prelude.foldr sem_CProductions_Cons sem_CProductions_Nil (Prelude.map sem_CProduction list))--- semantic domain-newtype T_CProductions = T_CProductions ((Set NontermIdent) ->- PragmaMap ->- (Map ConstructorIdent (Set Identifier)) ->- ContextMap ->- Attributes ->- (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) ->- NontermIdent ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- ParamMap ->- String ->- QuantMap ->- Attributes ->- (NontermIdent -> Int -> [String] -> Code.Type) ->- Bool ->- (Set NontermIdent) ->- ( Decls,([String]),DataAlts,Decls,([String])))-data Inh_CProductions = Inh_CProductions {allNts_Inh_CProductions :: !((Set NontermIdent)),allPragmas_Inh_CProductions :: !(PragmaMap),aroundMap_Inh_CProductions :: !((Map ConstructorIdent (Set Identifier))),contextMap_Inh_CProductions :: !(ContextMap),inh_Inh_CProductions :: !(Attributes),mergeMap_Inh_CProductions :: !((Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))),nt_Inh_CProductions :: !(NontermIdent),o_case_Inh_CProductions :: !(Bool),o_cata_Inh_CProductions :: !(Bool),o_costcentre_Inh_CProductions :: !(Bool),o_data_Inh_CProductions :: !((Maybe Bool)),o_linePragmas_Inh_CProductions :: !(Bool),o_monadic_Inh_CProductions :: !(Bool),o_newtypes_Inh_CProductions :: !(Bool),o_pretty_Inh_CProductions :: !(Bool),o_rename_Inh_CProductions :: !(Bool),o_sem_Inh_CProductions :: !(Bool),o_sig_Inh_CProductions :: !(Bool),o_splitsems_Inh_CProductions :: !(Bool),o_strictwrap_Inh_CProductions :: !(Bool),o_traces_Inh_CProductions :: !(Bool),o_unbox_Inh_CProductions :: !(Bool),options_Inh_CProductions :: !(Options),paramMap_Inh_CProductions :: !(ParamMap),prefix_Inh_CProductions :: !(String),quantMap_Inh_CProductions :: !(QuantMap),syn_Inh_CProductions :: !(Attributes),unfoldSemDom_Inh_CProductions :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CProductions :: !(Bool),wrappers_Inh_CProductions :: !((Set NontermIdent))}-data Syn_CProductions = Syn_CProductions {cataAlts_Syn_CProductions :: !(Decls),comments_Syn_CProductions :: !(([String])),dataAlts_Syn_CProductions :: !(DataAlts),decls_Syn_CProductions :: !(Decls),semNames_Syn_CProductions :: !(([String]))}-wrap_CProductions :: T_CProductions ->- Inh_CProductions ->- Syn_CProductions-wrap_CProductions (T_CProductions sem) (Inh_CProductions _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers) =- (let ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers- in (Syn_CProductions _lhsOcataAlts _lhsOcomments _lhsOdataAlts _lhsOdecls _lhsOsemNames))-sem_CProductions_Cons :: T_CProduction ->- T_CProductions ->- T_CProductions-sem_CProductions_Cons (T_CProduction hd_) (T_CProductions tl_) =- (T_CProductions (\ _lhsIallNts- _lhsIallPragmas- _lhsIaroundMap- _lhsIcontextMap- _lhsIinh- _lhsImergeMap- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsIquantMap- _lhsIsyn- _lhsIunfoldSemDom- _lhsIwith_sig- _lhsIwrappers ->- (let _lhsOdataAlts :: DataAlts- _lhsOcataAlts :: Decls- _lhsOcomments :: ([String])- _lhsOdecls :: Decls- _lhsOsemNames :: ([String])- _hdOallNts :: (Set NontermIdent)- _hdOallPragmas :: PragmaMap- _hdOaroundMap :: (Map ConstructorIdent (Set Identifier))- _hdOcontextMap :: ContextMap- _hdOinh :: Attributes- _hdOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))- _hdOnt :: NontermIdent- _hdOo_case :: Bool- _hdOo_cata :: Bool- _hdOo_costcentre :: Bool- _hdOo_data :: (Maybe Bool)- _hdOo_linePragmas :: Bool- _hdOo_monadic :: Bool- _hdOo_newtypes :: Bool- _hdOo_pretty :: Bool- _hdOo_rename :: Bool- _hdOo_sem :: Bool- _hdOo_sig :: Bool- _hdOo_splitsems :: Bool- _hdOo_strictwrap :: Bool- _hdOo_traces :: Bool- _hdOo_unbox :: Bool- _hdOoptions :: Options- _hdOparamMap :: ParamMap- _hdOprefix :: String- _hdOquantMap :: QuantMap- _hdOsyn :: Attributes- _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _hdOwith_sig :: Bool- _hdOwrappers :: (Set NontermIdent)- _tlOallNts :: (Set NontermIdent)- _tlOallPragmas :: PragmaMap- _tlOaroundMap :: (Map ConstructorIdent (Set Identifier))- _tlOcontextMap :: ContextMap- _tlOinh :: Attributes- _tlOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))- _tlOnt :: NontermIdent- _tlOo_case :: Bool- _tlOo_cata :: Bool- _tlOo_costcentre :: Bool- _tlOo_data :: (Maybe Bool)- _tlOo_linePragmas :: Bool- _tlOo_monadic :: Bool- _tlOo_newtypes :: Bool- _tlOo_pretty :: Bool- _tlOo_rename :: Bool- _tlOo_sem :: Bool- _tlOo_sig :: Bool- _tlOo_splitsems :: Bool- _tlOo_strictwrap :: Bool- _tlOo_traces :: Bool- _tlOo_unbox :: Bool- _tlOoptions :: Options- _tlOparamMap :: ParamMap- _tlOprefix :: String- _tlOquantMap :: QuantMap- _tlOsyn :: Attributes- _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _tlOwith_sig :: Bool- _tlOwrappers :: (Set NontermIdent)- _hdIcataAlt :: Decl- _hdIcomments :: ([String])- _hdIdataAlt :: DataAlt- _hdIdecls :: Decls- _hdIsemNames :: ([String])- _tlIcataAlts :: Decls- _tlIcomments :: ([String])- _tlIdataAlts :: DataAlts- _tlIdecls :: Decls- _tlIsemNames :: ([String])- -- "src-ag/GenerateCode.ag"(line 1015, column 17)- _lhsOdataAlts =- ({-# LINE 1015 "src-ag/GenerateCode.ag" #-}- _hdIdataAlt : _tlIdataAlts- {-# LINE 2819 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 1127, column 10)- _lhsOcataAlts =- ({-# LINE 1127 "src-ag/GenerateCode.ag" #-}- _hdIcataAlt : _tlIcataAlts- {-# LINE 2825 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)- _lhsOcomments =- ({-# LINE 868 "src-ag/GenerateCode.ag" #-}- _hdIcomments ++ _tlIcomments- {-# LINE 2831 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 919, column 44)- _lhsOdecls =- ({-# LINE 919 "src-ag/GenerateCode.ag" #-}- _hdIdecls ++ _tlIdecls- {-# LINE 2837 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 1146, column 61)- _lhsOsemNames =- ({-# LINE 1146 "src-ag/GenerateCode.ag" #-}- _hdIsemNames ++ _tlIsemNames- {-# LINE 2843 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOallNts =- ({-# LINE 132 "src-ag/GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 2849 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOallPragmas =- ({-# LINE 73 "src-ag/GenerateCode.ag" #-}- _lhsIallPragmas- {-# LINE 2855 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOaroundMap =- ({-# LINE 578 "src-ag/GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 2861 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOcontextMap =- ({-# LINE 115 "src-ag/GenerateCode.ag" #-}- _lhsIcontextMap- {-# LINE 2867 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOinh =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIinh- {-# LINE 2873 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOmergeMap =- ({-# LINE 594 "src-ag/GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 2879 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOnt =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsInt- {-# LINE 2885 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_case =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 2891 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_cata =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 2897 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_costcentre =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 2903 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_data =- ({-# LINE 48 "src-ag/GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 2909 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_linePragmas =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 2915 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_monadic =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 2921 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_newtypes =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 2927 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_pretty =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 2933 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_rename =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 2939 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_sem =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 2945 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_sig =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 2951 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_splitsems =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 2957 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_strictwrap =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 2963 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_traces =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 2969 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_unbox =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 2975 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 50 "src-ag/GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 2981 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOparamMap =- ({-# LINE 95 "src-ag/GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 2987 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOprefix =- ({-# LINE 49 "src-ag/GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 2993 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOquantMap =- ({-# LINE 115 "src-ag/GenerateCode.ag" #-}- _lhsIquantMap- {-# LINE 2999 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOsyn =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 3005 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOunfoldSemDom =- ({-# LINE 750 "src-ag/GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 3011 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOwith_sig =- ({-# LINE 851 "src-ag/GenerateCode.ag" #-}- _lhsIwith_sig- {-# LINE 3017 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOwrappers =- ({-# LINE 987 "src-ag/GenerateCode.ag" #-}- _lhsIwrappers- {-# LINE 3023 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOallNts =- ({-# LINE 132 "src-ag/GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 3029 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOallPragmas =- ({-# LINE 73 "src-ag/GenerateCode.ag" #-}- _lhsIallPragmas- {-# LINE 3035 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOaroundMap =- ({-# LINE 578 "src-ag/GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 3041 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOcontextMap =- ({-# LINE 115 "src-ag/GenerateCode.ag" #-}- _lhsIcontextMap- {-# LINE 3047 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOinh =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIinh- {-# LINE 3053 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOmergeMap =- ({-# LINE 594 "src-ag/GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 3059 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOnt =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsInt- {-# LINE 3065 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_case =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 3071 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_cata =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 3077 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_costcentre =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 3083 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_data =- ({-# LINE 48 "src-ag/GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 3089 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_linePragmas =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 3095 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_monadic =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 3101 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_newtypes =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 3107 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_pretty =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 3113 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_rename =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 3119 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_sem =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 3125 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_sig =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 3131 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_splitsems =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 3137 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_strictwrap =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 3143 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_traces =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 3149 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_unbox =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 3155 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 50 "src-ag/GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 3161 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOparamMap =- ({-# LINE 95 "src-ag/GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 3167 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOprefix =- ({-# LINE 49 "src-ag/GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 3173 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOquantMap =- ({-# LINE 115 "src-ag/GenerateCode.ag" #-}- _lhsIquantMap- {-# LINE 3179 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOsyn =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 3185 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOunfoldSemDom =- ({-# LINE 750 "src-ag/GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 3191 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOwith_sig =- ({-# LINE 851 "src-ag/GenerateCode.ag" #-}- _lhsIwith_sig- {-# LINE 3197 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOwrappers =- ({-# LINE 987 "src-ag/GenerateCode.ag" #-}- _lhsIwrappers- {-# LINE 3203 "dist/build/GenerateCode" #-}- )- ( _hdIcataAlt,_hdIcomments,_hdIdataAlt,_hdIdecls,_hdIsemNames) =- hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOcontextMap _hdOinh _hdOmergeMap _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOquantMap _hdOsyn _hdOunfoldSemDom _hdOwith_sig _hdOwrappers- ( _tlIcataAlts,_tlIcomments,_tlIdataAlts,_tlIdecls,_tlIsemNames) =- tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOcontextMap _tlOinh _tlOmergeMap _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOquantMap _tlOsyn _tlOunfoldSemDom _tlOwith_sig _tlOwrappers- in ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames))))-sem_CProductions_Nil :: T_CProductions-sem_CProductions_Nil =- (T_CProductions (\ _lhsIallNts- _lhsIallPragmas- _lhsIaroundMap- _lhsIcontextMap- _lhsIinh- _lhsImergeMap- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsIquantMap- _lhsIsyn- _lhsIunfoldSemDom- _lhsIwith_sig- _lhsIwrappers ->- (let _lhsOdataAlts :: DataAlts- _lhsOcataAlts :: Decls- _lhsOcomments :: ([String])- _lhsOdecls :: Decls- _lhsOsemNames :: ([String])- -- "src-ag/GenerateCode.ag"(line 1016, column 17)- _lhsOdataAlts =- ({-# LINE 1016 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 3251 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 1128, column 10)- _lhsOcataAlts =- ({-# LINE 1128 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 3257 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)- _lhsOcomments =- ({-# LINE 868 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 3263 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 919, column 44)- _lhsOdecls =- ({-# LINE 919 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 3269 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 1146, column 61)- _lhsOsemNames =- ({-# LINE 1146 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 3275 "dist/build/GenerateCode" #-}- )- in ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames))))--- CRule --------------------------------------------------------{-- visit 0:- inherited attributes:- allNts : Set NontermIdent- aroundMap : Set Identifier- children : [(Identifier,Type,ChildKind)]- con : ConstructorIdent- inh : Attributes- instVisitNrs : Map Identifier Int- mergeMap : Map Identifier (Identifier, [Identifier])- nr : Int- nt : NontermIdent- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramInstMap : Map Identifier (NontermIdent, [String])- paramMap : ParamMap- prefix : String- syn : Attributes- terminals : [Identifier]- unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type- what : String- chained attributes:- declsAbove : [Decl]- visitedSet : Set Identifier- synthesized attributes:- allTpsFound : Bool- bldBlocksFun : DeclBlocks -> DeclBlocks- comments : [String]- decls : Decls- definedInsts : [Identifier]- exprs : Exprs- tSigs : [Decl]- tps : [Type]- usedVars : Set String- alternatives:- alternative CChildVisit:- child name : {Identifier}- child nt : {NontermIdent}- child nr : {Int}- child inh : {Attributes}- child syn : {Attributes}- child isLast : {Bool}- visit 0:- local visitedSet : _- local costCentreDescr : _- local addCostCentre : _- local decls : _- local isSuperfluousHigherOrderIntra : _- local names : _- local mkTp : _- local definedTps : _- local nextTp : _- local orgParams : _- local instParams : _- local replParamMap : _- local replace : _- local evalTp : _- alternative CRule:- child name : {Identifier}- child isIn : {Bool}- child hasCode : {Bool}- child nt : {NontermIdent}- child con : {ConstructorIdent}- child field : {Identifier}- child childnt : {Maybe NontermIdent}- child tp : {Maybe Type}- child pattern : Pattern - child rhs : {[String]}- child defines : {Map Int (Identifier,Identifier,Maybe Type)}- child owrt : {Bool}- child origin : {String}- child uses : {Set (Identifier, Identifier)}- child explicit : {Bool}- child mbNamed : {Maybe Identifier}- visit 0:- local instTypes : _- local originComment : _- local instDecls : _- local patDescr : _- local traceDescr : _- local addTrace : _- local costCentreDescr : _- local addCostCentre : _- local addLinePragma : _- local decls : _- local definedInsts : _- local rulename : _- local mkTp : _- local orgParams : _- local evalTp : _--}--- cata-sem_CRule :: CRule ->- T_CRule-sem_CRule (CChildVisit _name _nt _nr _inh _syn _isLast) =- (sem_CRule_CChildVisit _name _nt _nr _inh _syn _isLast)-sem_CRule (CRule _name _isIn _hasCode _nt _con _field _childnt _tp _pattern _rhs _defines _owrt _origin _uses _explicit _mbNamed) =- (sem_CRule_CRule _name _isIn _hasCode _nt _con _field _childnt _tp (sem_Pattern _pattern) _rhs _defines _owrt _origin _uses _explicit _mbNamed)--- semantic domain-newtype T_CRule = T_CRule ((Set NontermIdent) ->- (Set Identifier) ->- ([(Identifier,Type,ChildKind)]) ->- ConstructorIdent ->- ([Decl]) ->- Attributes ->- (Map Identifier Int) ->- (Map Identifier (Identifier, [Identifier])) ->- Int ->- NontermIdent ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- (Map Identifier (NontermIdent, [String])) ->- ParamMap ->- String ->- Attributes ->- ([Identifier]) ->- (NontermIdent -> Int -> [String] -> Code.Type) ->- (Set Identifier) ->- String ->- ( Bool,(DeclBlocks -> DeclBlocks),([String]),Decls,([Decl]),([Identifier]),Exprs,([Decl]),([Type]),(Set String),(Set Identifier)))-data Inh_CRule = Inh_CRule {allNts_Inh_CRule :: !((Set NontermIdent)),aroundMap_Inh_CRule :: !((Set Identifier)),children_Inh_CRule :: !(([(Identifier,Type,ChildKind)])),con_Inh_CRule :: !(ConstructorIdent),declsAbove_Inh_CRule :: !(([Decl])),inh_Inh_CRule :: !(Attributes),instVisitNrs_Inh_CRule :: !((Map Identifier Int)),mergeMap_Inh_CRule :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_CRule :: !(Int),nt_Inh_CRule :: !(NontermIdent),o_case_Inh_CRule :: !(Bool),o_cata_Inh_CRule :: !(Bool),o_costcentre_Inh_CRule :: !(Bool),o_data_Inh_CRule :: !((Maybe Bool)),o_linePragmas_Inh_CRule :: !(Bool),o_monadic_Inh_CRule :: !(Bool),o_newtypes_Inh_CRule :: !(Bool),o_pretty_Inh_CRule :: !(Bool),o_rename_Inh_CRule :: !(Bool),o_sem_Inh_CRule :: !(Bool),o_sig_Inh_CRule :: !(Bool),o_splitsems_Inh_CRule :: !(Bool),o_strictwrap_Inh_CRule :: !(Bool),o_traces_Inh_CRule :: !(Bool),o_unbox_Inh_CRule :: !(Bool),options_Inh_CRule :: !(Options),paramInstMap_Inh_CRule :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CRule :: !(ParamMap),prefix_Inh_CRule :: !(String),syn_Inh_CRule :: !(Attributes),terminals_Inh_CRule :: !(([Identifier])),unfoldSemDom_Inh_CRule :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CRule :: !((Set Identifier)),what_Inh_CRule :: !(String)}-data Syn_CRule = Syn_CRule {allTpsFound_Syn_CRule :: !(Bool),bldBlocksFun_Syn_CRule :: !((DeclBlocks -> DeclBlocks)),comments_Syn_CRule :: !(([String])),decls_Syn_CRule :: !(Decls),declsAbove_Syn_CRule :: !(([Decl])),definedInsts_Syn_CRule :: !(([Identifier])),exprs_Syn_CRule :: !(Exprs),tSigs_Syn_CRule :: !(([Decl])),tps_Syn_CRule :: !(([Type])),usedVars_Syn_CRule :: !((Set String)),visitedSet_Syn_CRule :: !((Set Identifier))}-wrap_CRule :: T_CRule ->- Inh_CRule ->- Syn_CRule-wrap_CRule (T_CRule sem) (Inh_CRule _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat) =- (let ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet) = sem _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat- in (Syn_CRule _lhsOallTpsFound _lhsObldBlocksFun _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars _lhsOvisitedSet))-sem_CRule_CChildVisit :: Identifier ->- NontermIdent ->- Int ->- Attributes ->- Attributes ->- Bool ->- T_CRule-sem_CRule_CChildVisit name_ nt_ nr_ inh_ syn_ isLast_ =- (T_CRule (\ _lhsIallNts- _lhsIaroundMap- _lhsIchildren- _lhsIcon- _lhsIdeclsAbove- _lhsIinh- _lhsIinstVisitNrs- _lhsImergeMap- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamInstMap- _lhsIparamMap- _lhsIprefix- _lhsIsyn- _lhsIterminals- _lhsIunfoldSemDom- _lhsIvisitedSet- _lhsIwhat ->- (let _lhsOexprs :: Exprs- _lhsOusedVars :: (Set String)- _lhsOtSigs :: ([Decl])- _lhsOtps :: ([Type])- _lhsOdeclsAbove :: ([Decl])- _lhsObldBlocksFun :: (DeclBlocks -> DeclBlocks)- _lhsOallTpsFound :: Bool- _lhsOcomments :: ([String])- _lhsOdecls :: Decls- _lhsOdefinedInsts :: ([Identifier])- _lhsOvisitedSet :: (Set Identifier)- -- "src-ag/GenerateCode.ag"(line 147, column 26)- _visitedSet =- ({-# LINE 147 "src-ag/GenerateCode.ag" #-}- Set.insert name_ _lhsIvisitedSet- {-# LINE 3492 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 203, column 18)- _costCentreDescr =- ({-# LINE 203 "src-ag/GenerateCode.ag" #-}- show _lhsInt ++ ":" ++ show _lhsIcon ++ ":" ++ show name_ ++ ":" ++ show nt_ ++ ":" ++ show nr_- {-# LINE 3498 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 204, column 18)- _addCostCentre =- ({-# LINE 204 "src-ag/GenerateCode.ag" #-}- \v -> if _lhsIo_costcentre- then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v- else v- {-# LINE 3506 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 207, column 18)- _decls =- ({-# LINE 207 "src-ag/GenerateCode.ag" #-}- let lhsVars = map (attrname True name_) (Map.keys syn_)- ++ if isLast_ then [] else [unwrap ++ funname name_ (nr_+1)]- rhsVars = map (attrname False name_) (Map.keys inh_)- unwrap = if _lhsIo_newtypes then typeName nt_ (nr_ + 1) ++ " " else ""- tuple | isMerging = TupleLhs [locname name_ ++ "_comp"]- | otherwise = mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars- rhs = _addCostCentre $ Code.InvokeExpr (typeName nt_ nr_) (SimpleExpr fun) (map SimpleExpr rhsVars)- isVirtual _ [] = False- isVirtual nm ((n,t,kind) : r)- | nm == n = case kind of- ChildAttr -> True- _ -> False- | otherwise = isVirtual nm r- isMerged = name_ `Map.member` _lhsImergeMap- isMerging = name_ `elem` concatMap (\(_,cs) -> cs) (Map.elems _lhsImergeMap)- merges = [ (c,cs) | (c,(_,cs)) <- Map.assocs _lhsImergeMap, all (`Set.member` _visitedSet ) cs, name_ `elem` (c:cs) ]- baseNm = if nr_ == 0 && isVirtual name_ _lhsIchildren- then Ident (getName name_ ++ "_inst") (getPos name_)- else name_- fun | nr_ == 0 && Set.member name_ _lhsIaroundMap- = locname name_ ++ "_around " ++ funname baseNm 0- | otherwise = funname baseNm nr_- outDecls | isMerged = []- | otherwise =- if isMerging- then [mkDecl _lhsIo_monadic tuple rhs Set.empty Set.empty]- else [Resume _lhsIo_monadic (typeName nt_ nr_) tuple rhs]- outMerged | null merges || nr_ /= 0 = []- | otherwise = let (c,cs) = head merges- tuple' = mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars'- lhsVars' = map (attrname True c) (Map.keys syn_)- ++ if isLast_ then [] else [unwrap ++ funname c (nr_+1)]- rhsVars = [ locname c ++ "_comp" | c <- cs ]- fun = locname c ++ "_merge"- rhs' = App fun (map SimpleExpr rhsVars)- in [Resume _lhsIo_monadic (typeName nt_ nr_) tuple' rhs']- in- (outDecls ++ outMerged)- {-# LINE 3549 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 327, column 7)- _isSuperfluousHigherOrderIntra =- ({-# LINE 327 "src-ag/GenerateCode.ag" #-}- _lhsInr <= Map.findWithDefault (-1) name_ _lhsIinstVisitNrs- {-# LINE 3555 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 341, column 8)- _names =- ({-# LINE 341 "src-ag/GenerateCode.ag" #-}- if _isSuperfluousHigherOrderIntra- then []- else [funname name_ (nr_+1)]- {-# LINE 3563 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 345, column 8)- _lhsOexprs =- ({-# LINE 345 "src-ag/GenerateCode.ag" #-}- let wrap = if _lhsIo_newtypes then \x -> App (typeName nt_ (nr_ + 1)) [x] else id- addType expr | null _instParams = expr- | otherwise = TypedExpr expr (_lhsIunfoldSemDom nt_ (nr_+1) _instParams )- in map (wrap . addType . SimpleExpr) _names- {-# LINE 3572 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 357, column 7)- _lhsOusedVars =- ({-# LINE 357 "src-ag/GenerateCode.ag" #-}- Set.fromList _names- {-# LINE 3578 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 393, column 19)- _mkTp =- ({-# LINE 393 "src-ag/GenerateCode.ag" #-}- _evalTp . typeToCodeType (Just nt_) _orgParams . removeDeforested- {-# LINE 3584 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 394, column 19)- _definedTps =- ({-# LINE 394 "src-ag/GenerateCode.ag" #-}- [ TSig (attrname True name_ a) (_mkTp tp) | (a,tp) <- Map.toList syn_ ]- {-# LINE 3590 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 395, column 19)- _nextTp =- ({-# LINE 395 "src-ag/GenerateCode.ag" #-}- typeName nt_ (nr_+1)- {-# LINE 3596 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 396, column 19)- _lhsOtSigs =- ({-# LINE 396 "src-ag/GenerateCode.ag" #-}- (if isLast_ then id else (TSig (funname name_ (nr_+1)) (TypeApp (SimpleType _nextTp) (map SimpleType _instParams )) :)) _definedTps- {-# LINE 3602 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 398, column 19)- _orgParams =- ({-# LINE 398 "src-ag/GenerateCode.ag" #-}- map getName $ Map.findWithDefault [] nt_ _lhsIparamMap- {-# LINE 3608 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 399, column 19)- _instParams =- ({-# LINE 399 "src-ag/GenerateCode.ag" #-}- snd $ Map.findWithDefault (nt_,[]) name_ _lhsIparamInstMap- {-# LINE 3614 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 400, column 19)- _replParamMap =- ({-# LINE 400 "src-ag/GenerateCode.ag" #-}- Map.fromList (zip _orgParams _instParams )- {-# LINE 3620 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 401, column 19)- _replace =- ({-# LINE 401 "src-ag/GenerateCode.ag" #-}- \k -> Map.findWithDefault k k _replParamMap- {-# LINE 3626 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 402, column 19)- _evalTp =- ({-# LINE 402 "src-ag/GenerateCode.ag" #-}- if null _orgParams then id else evalType _replace- {-# LINE 3632 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 419, column 19)- _lhsOtps =- ({-# LINE 419 "src-ag/GenerateCode.ag" #-}- if _isSuperfluousHigherOrderIntra- then []- else [NT (ntOfVisit nt_ (nr_+1)) _instParams False]- {-# LINE 3640 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 618, column 7)- _lhsOdeclsAbove =- ({-# LINE 618 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 3646 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 631, column 7)- _lhsObldBlocksFun =- ({-# LINE 631 "src-ag/GenerateCode.ag" #-}- DeclBlock _lhsIdeclsAbove (head _decls )- {-# LINE 3652 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 416, column 39)- _lhsOallTpsFound =- ({-# LINE 416 "src-ag/GenerateCode.ag" #-}- True- {-# LINE 3658 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)- _lhsOcomments =- ({-# LINE 868 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 3664 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 155, column 34)- _lhsOdecls =- ({-# LINE 155 "src-ag/GenerateCode.ag" #-}- _decls- {-# LINE 3670 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)- _lhsOdefinedInsts =- ({-# LINE 261 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 3676 "dist/build/GenerateCode" #-}- )- -- copy rule (from local)- _lhsOvisitedSet =- ({-# LINE 145 "src-ag/GenerateCode.ag" #-}- _visitedSet- {-# LINE 3682 "dist/build/GenerateCode" #-}- )- in ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))))-sem_CRule_CRule :: Identifier ->- Bool ->- Bool ->- NontermIdent ->- ConstructorIdent ->- Identifier ->- (Maybe NontermIdent) ->- (Maybe Type) ->- T_Pattern ->- ([String]) ->- (Map Int (Identifier,Identifier,Maybe Type)) ->- Bool ->- String ->- (Set (Identifier, Identifier)) ->- Bool ->- (Maybe Identifier) ->- T_CRule-sem_CRule_CRule name_ isIn_ hasCode_ nt_ con_ field_ childnt_ tp_ (T_Pattern pattern_) rhs_ defines_ owrt_ origin_ uses_ explicit_ mbNamed_ =- (T_CRule (\ _lhsIallNts- _lhsIaroundMap- _lhsIchildren- _lhsIcon- _lhsIdeclsAbove- _lhsIinh- _lhsIinstVisitNrs- _lhsImergeMap- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamInstMap- _lhsIparamMap- _lhsIprefix- _lhsIsyn- _lhsIterminals- _lhsIunfoldSemDom- _lhsIvisitedSet- _lhsIwhat ->- (let _lhsOexprs :: Exprs- _lhsOusedVars :: (Set String)- _lhsOtSigs :: ([Decl])- _lhsOtps :: ([Type])- _lhsOallTpsFound :: Bool- _lhsOdeclsAbove :: ([Decl])- _lhsObldBlocksFun :: (DeclBlocks -> DeclBlocks)- _lhsOcomments :: ([String])- _lhsOdecls :: Decls- _lhsOdefinedInsts :: ([Identifier])- _lhsOvisitedSet :: (Set Identifier)- _patternIcopy :: Pattern- _patternIdefinedInsts :: ([Identifier])- _patternIpatternAttributes :: ([(Identifier, Identifier)])- -- "src-ag/GenerateCode.ag"(line 157, column 12)- _instTypes =- ({-# LINE 157 "src-ag/GenerateCode.ag" #-}- [ (n, (t, mb, for)) | (n, NT t _ for, mb) <- _lhsIchildren ]- {-# LINE 3755 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 158, column 12)- _originComment =- ({-# LINE 158 "src-ag/GenerateCode.ag" #-}- if _lhsIo_pretty- then (Comment origin_:)- else id- {-# LINE 3763 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 161, column 12)- _instDecls =- ({-# LINE 161 "src-ag/GenerateCode.ag" #-}- [ mkDecl _lhsIo_monadic (Pattern3 (Alias _INST' inst (Underscore (getPos inst))))- ( let (nm,mb,defor) = fromJust $ inst `lookup` _instTypes- in unwrapSem _lhsIo_newtypes nm- $ case mb of- ChildReplace tp' -> App instLocFieldName [SimpleExpr $ fieldname inst]- _ ->- if defor- then SimpleExpr instLocFieldName- else App (cataname _lhsIprefix nm)- [SimpleExpr instLocFieldName]- )- (Set.singleton instSemFieldName)- (Set.singleton instLocFieldName)- | inst <- _definedInsts- , let instLocFieldName = attrname True _INST inst- instSemFieldName = attrname False _INST' inst- ]- {-# LINE 3785 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 178, column 12)- _patDescr =- ({-# LINE 178 "src-ag/GenerateCode.ag" #-}- if isIn_- then "_"- else concat $ intersperse "," (map (\(f,a) -> show f ++ "." ++ show a) _patternIpatternAttributes)- {-# LINE 3793 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 181, column 12)- _traceDescr =- ({-# LINE 181 "src-ag/GenerateCode.ag" #-}- (maybe "" (\nm -> show nm ++ ":") mbNamed_) ++ show nt_ ++ " :: " ++ show con_ ++ " :: " ++ _patDescr- {-# LINE 3799 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 183, column 12)- _addTrace =- ({-# LINE 183 "src-ag/GenerateCode.ag" #-}- \v -> if _lhsIo_traces- then Trace _traceDescr v- else v- {-# LINE 3807 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 186, column 12)- _costCentreDescr =- ({-# LINE 186 "src-ag/GenerateCode.ag" #-}- show nt_ ++ ":" ++ show con_ ++ ":" ++ _patDescr- {-# LINE 3813 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 187, column 12)- _addCostCentre =- ({-# LINE 187 "src-ag/GenerateCode.ag" #-}- \v -> if _lhsIo_costcentre- then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v- else v- {-# LINE 3821 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 190, column 12)- _addLinePragma =- ({-# LINE 190 "src-ag/GenerateCode.ag" #-}- \v -> let p = getPos name_- hasPos = line p > 0 && column p >= 0 && not (null (file p))- in if _lhsIo_linePragmas && hasPos- then PragmaExpr True True ("LINE " ++ show (line p) ++ " " ++ show (file p))- $ LineExpr- $ v- else v- {-# LINE 3833 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 197, column 12)- _decls =- ({-# LINE 197 "src-ag/GenerateCode.ag" #-}- if hasCode_- then _originComment ( mkDecl (_lhsIo_monadic && explicit_) (Pattern3 _patternIcopy) (_addTrace $ _addCostCentre $ _addLinePragma $ (TextExpr rhs_))- (Set.fromList [attrname False fld nm | (fld,nm,_) <- Map.elems defines_])- (Set.fromList [attrname True fld nm | (fld,nm) <- Set.toList uses_])- : _instDecls )- else _instDecls- {-# LINE 3844 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 266, column 12)- _definedInsts =- ({-# LINE 266 "src-ag/GenerateCode.ag" #-}- if isIn_ then [] else _patternIdefinedInsts- {-# LINE 3850 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 336, column 12)- _rulename =- ({-# LINE 336 "src-ag/GenerateCode.ag" #-}- if field_ == _LOC && name_ `elem` _lhsIterminals- then funname name_ 0- else attrname isIn_ field_ name_- {-# LINE 3858 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 339, column 12)- _lhsOexprs =- ({-# LINE 339 "src-ag/GenerateCode.ag" #-}- [SimpleExpr _rulename ]- {-# LINE 3864 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 355, column 7)- _lhsOusedVars =- ({-# LINE 355 "src-ag/GenerateCode.ag" #-}- Set.singleton _rulename- {-# LINE 3870 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 365, column 19)- _mkTp =- ({-# LINE 365 "src-ag/GenerateCode.ag" #-}- typeToCodeType (Just _lhsInt) _orgParams- {-# LINE 3876 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 366, column 19)- _lhsOtSigs =- ({-# LINE 366 "src-ag/GenerateCode.ag" #-}- [ TSig (attrname False field attr) tp'- | (field,attr,tp) <- Map.elems defines_, isJust tp- , let tp1 = _evalTp field $ _mkTp (fromJust tp)- tp' = case findOrigType attr _lhsIchildren of- Just tp' -> let tp2 = _evalTp field $ _mkTp tp'- in Arr tp2 tp1- Nothing -> tp1- findOrigType nm [] = Nothing- findOrigType nm ((n,_,kind) : r)- | nm == n = case kind of- ChildReplace orig -> Just orig- _ -> Nothing- | otherwise = findOrigType nm r- ]- {-# LINE 3895 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 381, column 19)- _orgParams =- ({-# LINE 381 "src-ag/GenerateCode.ag" #-}- map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap- {-# LINE 3901 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 382, column 19)- _evalTp =- ({-# LINE 382 "src-ag/GenerateCode.ag" #-}- \field tp -> let orgFldParams = map getName $ Map.findWithDefault [] childNt _lhsIparamMap- (childNt,instParams) = Map.findWithDefault (_lhsInt,[]) field _lhsIparamInstMap- replMap = Map.fromList (zip orgFldParams instParams)- replace k = Map.findWithDefault ('@':k) k replMap- in if null instParams- then if null _orgParams- then tp- else idEvalType tp- else evalType replace tp- {-# LINE 3915 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 418, column 23)- (_lhsOtps,_lhsOallTpsFound) =- ({-# LINE 418 "src-ag/GenerateCode.ag" #-}- maybe ([],False) (\tp -> ([tp],True)) tp_- {-# LINE 3921 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 616, column 7)- _lhsOdeclsAbove =- ({-# LINE 616 "src-ag/GenerateCode.ag" #-}- _lhsIdeclsAbove ++ _decls- {-# LINE 3927 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 629, column 7)- _lhsObldBlocksFun =- ({-# LINE 629 "src-ag/GenerateCode.ag" #-}- id- {-# LINE 3933 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 903, column 18)- _lhsOcomments =- ({-# LINE 903 "src-ag/GenerateCode.ag" #-}- [ makeLocalComment 11 _lhsIwhat name tp | (field,name,tp) <- Map.elems defines_, field == _LOC ]- ++ [ makeLocalComment 11 "inst " name tp | (field,name,tp) <- Map.elems defines_, field == _INST ]- {-# LINE 3940 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 155, column 34)- _lhsOdecls =- ({-# LINE 155 "src-ag/GenerateCode.ag" #-}- _decls- {-# LINE 3946 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)- _lhsOdefinedInsts =- ({-# LINE 261 "src-ag/GenerateCode.ag" #-}- _definedInsts- {-# LINE 3952 "dist/build/GenerateCode" #-}- )- -- copy rule (chain)- _lhsOvisitedSet =- ({-# LINE 145 "src-ag/GenerateCode.ag" #-}- _lhsIvisitedSet- {-# LINE 3958 "dist/build/GenerateCode" #-}- )- ( _patternIcopy,_patternIdefinedInsts,_patternIpatternAttributes) =- pattern_- in ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))))--- CSegment -----------------------------------------------------{-- visit 0:- inherited attributes:- inh : Attributes- isLast : Bool- nr : Int- nt : NontermIdent- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramMap : ParamMap- prefix : String- syn : Attributes- synthesized attributes:- comments : [String]- semDom : [Decl]- semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)- wrapDecls : Decls- alternatives:- alternative CSegment:- child inh : {Attributes}- child syn : {Attributes}- visit 0:- local altSemForm : _- local tp : _- local inhTps : _- local inhTup : _- local synTps : _- local curTypeName : _- local nextTypeName : _- local indexName : _- local dataIndex : _- local indexExpr : _- local indexStr : _- local inhInstance : _- local synInstance : _- local continuation : _- local params : _--}--- cata-sem_CSegment :: CSegment ->- T_CSegment-sem_CSegment (CSegment _inh _syn) =- (sem_CSegment_CSegment _inh _syn)--- semantic domain-newtype T_CSegment = T_CSegment (Attributes ->- Bool ->- Int ->- NontermIdent ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- ParamMap ->- String ->- Attributes ->- ( ([String]),([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls))-data Inh_CSegment = Inh_CSegment {inh_Inh_CSegment :: !(Attributes),isLast_Inh_CSegment :: !(Bool),nr_Inh_CSegment :: !(Int),nt_Inh_CSegment :: !(NontermIdent),o_case_Inh_CSegment :: !(Bool),o_cata_Inh_CSegment :: !(Bool),o_costcentre_Inh_CSegment :: !(Bool),o_data_Inh_CSegment :: !((Maybe Bool)),o_linePragmas_Inh_CSegment :: !(Bool),o_monadic_Inh_CSegment :: !(Bool),o_newtypes_Inh_CSegment :: !(Bool),o_pretty_Inh_CSegment :: !(Bool),o_rename_Inh_CSegment :: !(Bool),o_sem_Inh_CSegment :: !(Bool),o_sig_Inh_CSegment :: !(Bool),o_splitsems_Inh_CSegment :: !(Bool),o_strictwrap_Inh_CSegment :: !(Bool),o_traces_Inh_CSegment :: !(Bool),o_unbox_Inh_CSegment :: !(Bool),options_Inh_CSegment :: !(Options),paramMap_Inh_CSegment :: !(ParamMap),prefix_Inh_CSegment :: !(String),syn_Inh_CSegment :: !(Attributes)}-data Syn_CSegment = Syn_CSegment {comments_Syn_CSegment :: !(([String])),semDom_Syn_CSegment :: !(([Decl])),semDomUnfoldGath_Syn_CSegment :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CSegment :: !(Decls)}-wrap_CSegment :: T_CSegment ->- Inh_CSegment ->- Syn_CSegment-wrap_CSegment (T_CSegment sem) (Inh_CSegment _lhsIinh _lhsIisLast _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn) =- (let ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsIisLast _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn- in (Syn_CSegment _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls))-sem_CSegment_CSegment :: Attributes ->- Attributes ->- T_CSegment-sem_CSegment_CSegment inh_ syn_ =- (T_CSegment (\ _lhsIinh- _lhsIisLast- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsIsyn ->- (let _lhsOsemDom :: ([Decl])- _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _lhsOwrapDecls :: Decls- _lhsOcomments :: ([String])- -- "src-ag/GenerateCode.ag"(line 715, column 15)- _altSemForm =- ({-# LINE 715 "src-ag/GenerateCode.ag" #-}- breadthFirst _lhsIoptions- {-# LINE 4089 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 716, column 15)- _tp =- ({-# LINE 716 "src-ag/GenerateCode.ag" #-}- if _altSemForm- then TypeApp (SimpleType "Child") [SimpleType "EvalInfo", _indexExpr ]- else foldr Arr _synTps _inhTps- {-# LINE 4097 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 719, column 15)- _inhTps =- ({-# LINE 719 "src-ag/GenerateCode.ag" #-}- [typeToCodeType (Just _lhsInt) _params tp | tp <- Map.elems inh_]- {-# LINE 4103 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 720, column 15)- _inhTup =- ({-# LINE 720 "src-ag/GenerateCode.ag" #-}- mkTupleType _lhsIo_unbox (null _inhTps ) _inhTps- {-# LINE 4109 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 721, column 15)- _synTps =- ({-# LINE 721 "src-ag/GenerateCode.ag" #-}- mkTupleType _lhsIo_unbox (null _inhTps ) ([typeToCodeType (Just _lhsInt) _params tp | tp <- Map.elems syn_] ++ _continuation )- {-# LINE 4115 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 722, column 15)- _curTypeName =- ({-# LINE 722 "src-ag/GenerateCode.ag" #-}- typeName _lhsInt _lhsInr- {-# LINE 4121 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 723, column 15)- _nextTypeName =- ({-# LINE 723 "src-ag/GenerateCode.ag" #-}- typeName _lhsInt (_lhsInr + 1)- {-# LINE 4127 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 724, column 15)- _indexName =- ({-# LINE 724 "src-ag/GenerateCode.ag" #-}- "I_" ++ _curTypeName- {-# LINE 4133 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 725, column 15)- _dataIndex =- ({-# LINE 725 "src-ag/GenerateCode.ag" #-}- Code.Data _indexName _params [DataAlt _indexName []] False []- {-# LINE 4139 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 726, column 15)- _indexExpr =- ({-# LINE 726 "src-ag/GenerateCode.ag" #-}- TypeApp (SimpleType _indexName ) (map (SimpleType . ('@':)) _params )- {-# LINE 4145 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 727, column 15)- _indexStr =- ({-# LINE 727 "src-ag/GenerateCode.ag" #-}- "(" ++ _indexName ++ concatMap (\p -> " " ++ p) _params ++ ")"- {-# LINE 4151 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 728, column 15)- _inhInstance =- ({-# LINE 728 "src-ag/GenerateCode.ag" #-}- Code.Data "instance Inh" [_indexStr ] [DataAlt (typeName _lhsInt _lhsInr ++ "_Inh") [_inhTup ] ] False []- {-# LINE 4157 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 729, column 15)- _synInstance =- ({-# LINE 729 "src-ag/GenerateCode.ag" #-}- Code.Data "instance Syn" [_indexStr ] [DataAlt (typeName _lhsInt _lhsInr ++ "_Syn") [_synTps ] ] False []- {-# LINE 4163 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 730, column 15)- _continuation =- ({-# LINE 730 "src-ag/GenerateCode.ag" #-}- if _lhsIisLast- then []- else [TypeApp (SimpleType _nextTypeName ) (map (SimpleType . ('@':)) _params )]- {-# LINE 4171 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 733, column 15)- _params =- ({-# LINE 733 "src-ag/GenerateCode.ag" #-}- map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap- {-# LINE 4177 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 734, column 15)- _lhsOsemDom =- ({-# LINE 734 "src-ag/GenerateCode.ag" #-}- let name = typeName _lhsInt _lhsInr- evalTp | null _params = id- | otherwise = idEvalType- in ( if _lhsIo_newtypes- then [ Code.NewType name _params name (evalTp _tp ) ]- else [ Code.Type name _params (evalTp _tp ) ] )- ++ ( if _altSemForm- then [_dataIndex , _inhInstance , _synInstance ]- else [] )- {-# LINE 4191 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 748, column 7)- _lhsOsemDomUnfoldGath =- ({-# LINE 748 "src-ag/GenerateCode.ag" #-}- Map.singleton (_lhsInt, _lhsInr) (_params , _tp )- {-# LINE 4197 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 831, column 15)- _lhsOwrapDecls =- ({-# LINE 831 "src-ag/GenerateCode.ag" #-}- let lhsVars = map (lhsname False) (Map.keys syn_)- ++ if _lhsIisLast then [] else [unwrap ++ sem (_lhsInr+1)]- rhsVars = map (lhsname True) (Map.keys inh_)- rhs = map SimpleExpr rhsVars- unwrap = if _lhsIo_newtypes then typeName _lhsInt (_lhsInr + 1) ++ " " else ""- var = "sem"- sem 0 = var- sem n = var ++ "_" ++ show n- ntt = typeName _lhsInt _lhsInr- in [ EvalDecl ntt (mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars) (InvokeExpr ntt (SimpleExpr $ sem _lhsInr) rhs) ]- {-# LINE 4212 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 873, column 18)- _lhsOcomments =- ({-# LINE 873 "src-ag/GenerateCode.ag" #-}- let body = map ind (showsSegment (CSegment inh_ syn_))- in if null body- then []- else ("visit " ++ show _lhsInr ++ ":") : body- {-# LINE 4221 "dist/build/GenerateCode" #-}- )- in ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))))--- CSegments ----------------------------------------------------{-- visit 0:- inherited attributes:- inh : Attributes- nr : Int- nt : NontermIdent- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramMap : ParamMap- prefix : String- syn : Attributes- synthesized attributes:- comments : [String]- isNil : Bool- semDom : [Decl]- semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)- wrapDecls : Decls- alternatives:- alternative Cons:- child hd : CSegment - child tl : CSegments - alternative Nil:--}--- cata-sem_CSegments :: CSegments ->- T_CSegments-sem_CSegments list =- (Prelude.foldr sem_CSegments_Cons sem_CSegments_Nil (Prelude.map sem_CSegment list))--- semantic domain-newtype T_CSegments = T_CSegments (Attributes ->- Int ->- NontermIdent ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- ParamMap ->- String ->- Attributes ->- ( ([String]),Bool,([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls))-data Inh_CSegments = Inh_CSegments {inh_Inh_CSegments :: !(Attributes),nr_Inh_CSegments :: !(Int),nt_Inh_CSegments :: !(NontermIdent),o_case_Inh_CSegments :: !(Bool),o_cata_Inh_CSegments :: !(Bool),o_costcentre_Inh_CSegments :: !(Bool),o_data_Inh_CSegments :: !((Maybe Bool)),o_linePragmas_Inh_CSegments :: !(Bool),o_monadic_Inh_CSegments :: !(Bool),o_newtypes_Inh_CSegments :: !(Bool),o_pretty_Inh_CSegments :: !(Bool),o_rename_Inh_CSegments :: !(Bool),o_sem_Inh_CSegments :: !(Bool),o_sig_Inh_CSegments :: !(Bool),o_splitsems_Inh_CSegments :: !(Bool),o_strictwrap_Inh_CSegments :: !(Bool),o_traces_Inh_CSegments :: !(Bool),o_unbox_Inh_CSegments :: !(Bool),options_Inh_CSegments :: !(Options),paramMap_Inh_CSegments :: !(ParamMap),prefix_Inh_CSegments :: !(String),syn_Inh_CSegments :: !(Attributes)}-data Syn_CSegments = Syn_CSegments {comments_Syn_CSegments :: !(([String])),isNil_Syn_CSegments :: !(Bool),semDom_Syn_CSegments :: !(([Decl])),semDomUnfoldGath_Syn_CSegments :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CSegments :: !(Decls)}-wrap_CSegments :: T_CSegments ->- Inh_CSegments ->- Syn_CSegments-wrap_CSegments (T_CSegments sem) (Inh_CSegments _lhsIinh _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn) =- (let ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn- in (Syn_CSegments _lhsOcomments _lhsOisNil _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls))-sem_CSegments_Cons :: T_CSegment ->- T_CSegments ->- T_CSegments-sem_CSegments_Cons (T_CSegment hd_) (T_CSegments tl_) =- (T_CSegments (\ _lhsIinh- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsIsyn ->- (let _tlOnr :: Int- _lhsOisNil :: Bool- _hdOisLast :: Bool- _lhsOcomments :: ([String])- _lhsOsemDom :: ([Decl])- _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _lhsOwrapDecls :: Decls- _hdOinh :: Attributes- _hdOnr :: Int- _hdOnt :: NontermIdent- _hdOo_case :: Bool- _hdOo_cata :: Bool- _hdOo_costcentre :: Bool- _hdOo_data :: (Maybe Bool)- _hdOo_linePragmas :: Bool- _hdOo_monadic :: Bool- _hdOo_newtypes :: Bool- _hdOo_pretty :: Bool- _hdOo_rename :: Bool- _hdOo_sem :: Bool- _hdOo_sig :: Bool- _hdOo_splitsems :: Bool- _hdOo_strictwrap :: Bool- _hdOo_traces :: Bool- _hdOo_unbox :: Bool- _hdOoptions :: Options- _hdOparamMap :: ParamMap- _hdOprefix :: String- _hdOsyn :: Attributes- _tlOinh :: Attributes- _tlOnt :: NontermIdent- _tlOo_case :: Bool- _tlOo_cata :: Bool- _tlOo_costcentre :: Bool- _tlOo_data :: (Maybe Bool)- _tlOo_linePragmas :: Bool- _tlOo_monadic :: Bool- _tlOo_newtypes :: Bool- _tlOo_pretty :: Bool- _tlOo_rename :: Bool- _tlOo_sem :: Bool- _tlOo_sig :: Bool- _tlOo_splitsems :: Bool- _tlOo_strictwrap :: Bool- _tlOo_traces :: Bool- _tlOo_unbox :: Bool- _tlOoptions :: Options- _tlOparamMap :: ParamMap- _tlOprefix :: String- _tlOsyn :: Attributes- _hdIcomments :: ([String])- _hdIsemDom :: ([Decl])- _hdIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _hdIwrapDecls :: Decls- _tlIcomments :: ([String])- _tlIisNil :: Bool- _tlIsemDom :: ([Decl])- _tlIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _tlIwrapDecls :: Decls- -- "src-ag/GenerateCode.ag"(line 286, column 11)- _tlOnr =- ({-# LINE 286 "src-ag/GenerateCode.ag" #-}- _lhsInr + 1- {-# LINE 4388 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 299, column 12)- _lhsOisNil =- ({-# LINE 299 "src-ag/GenerateCode.ag" #-}- False- {-# LINE 4394 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 300, column 12)- _hdOisLast =- ({-# LINE 300 "src-ag/GenerateCode.ag" #-}- _tlIisNil- {-# LINE 4400 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)- _lhsOcomments =- ({-# LINE 868 "src-ag/GenerateCode.ag" #-}- _hdIcomments ++ _tlIcomments- {-# LINE 4406 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 710, column 50)- _lhsOsemDom =- ({-# LINE 710 "src-ag/GenerateCode.ag" #-}- _hdIsemDom ++ _tlIsemDom- {-# LINE 4412 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 744, column 86)- _lhsOsemDomUnfoldGath =- ({-# LINE 744 "src-ag/GenerateCode.ag" #-}- _hdIsemDomUnfoldGath `Map.union` _tlIsemDomUnfoldGath- {-# LINE 4418 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 829, column 52)- _lhsOwrapDecls =- ({-# LINE 829 "src-ag/GenerateCode.ag" #-}- _hdIwrapDecls ++ _tlIwrapDecls- {-# LINE 4424 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOinh =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIinh- {-# LINE 4430 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOnr =- ({-# LINE 278 "src-ag/GenerateCode.ag" #-}- _lhsInr- {-# LINE 4436 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOnt =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsInt- {-# LINE 4442 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_case =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 4448 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_cata =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 4454 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_costcentre =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 4460 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_data =- ({-# LINE 48 "src-ag/GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 4466 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_linePragmas =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 4472 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_monadic =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 4478 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_newtypes =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 4484 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_pretty =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 4490 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_rename =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 4496 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_sem =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 4502 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_sig =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 4508 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_splitsems =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 4514 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_strictwrap =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 4520 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_traces =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 4526 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_unbox =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 4532 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 50 "src-ag/GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 4538 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOparamMap =- ({-# LINE 95 "src-ag/GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 4544 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOprefix =- ({-# LINE 49 "src-ag/GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 4550 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOsyn =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 4556 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOinh =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIinh- {-# LINE 4562 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOnt =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsInt- {-# LINE 4568 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_case =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 4574 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_cata =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 4580 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_costcentre =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 4586 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_data =- ({-# LINE 48 "src-ag/GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 4592 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_linePragmas =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 4598 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_monadic =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 4604 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_newtypes =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 4610 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_pretty =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 4616 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_rename =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 4622 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_sem =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 4628 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_sig =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 4634 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_splitsems =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 4640 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_strictwrap =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 4646 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_traces =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 4652 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_unbox =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 4658 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 50 "src-ag/GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 4664 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOparamMap =- ({-# LINE 95 "src-ag/GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 4670 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOprefix =- ({-# LINE 49 "src-ag/GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 4676 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOsyn =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 4682 "dist/build/GenerateCode" #-}- )- ( _hdIcomments,_hdIsemDom,_hdIsemDomUnfoldGath,_hdIwrapDecls) =- hd_ _hdOinh _hdOisLast _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOsyn- ( _tlIcomments,_tlIisNil,_tlIsemDom,_tlIsemDomUnfoldGath,_tlIwrapDecls) =- tl_ _tlOinh _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOsyn- in ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))))-sem_CSegments_Nil :: T_CSegments-sem_CSegments_Nil =- (T_CSegments (\ _lhsIinh- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamMap- _lhsIprefix- _lhsIsyn ->- (let _lhsOisNil :: Bool- _lhsOcomments :: ([String])- _lhsOsemDom :: ([Decl])- _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))- _lhsOwrapDecls :: Decls- -- "src-ag/GenerateCode.ag"(line 301, column 10)- _lhsOisNil =- ({-# LINE 301 "src-ag/GenerateCode.ag" #-}- True- {-# LINE 4722 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)- _lhsOcomments =- ({-# LINE 868 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 4728 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 710, column 50)- _lhsOsemDom =- ({-# LINE 710 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 4734 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 744, column 86)- _lhsOsemDomUnfoldGath =- ({-# LINE 744 "src-ag/GenerateCode.ag" #-}- Map.empty- {-# LINE 4740 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 829, column 52)- _lhsOwrapDecls =- ({-# LINE 829 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 4746 "dist/build/GenerateCode" #-}- )- in ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))))--- CVisit -------------------------------------------------------{-- visit 0:- inherited attributes:- allNts : Set NontermIdent- allPragmas : PragmaMap- aroundMap : Set Identifier- children : [(Identifier,Type, ChildKind)]- con : ConstructorIdent- contextMap : ContextMap- inh : Attributes- instVisitNrs : Map Identifier Int- isLast : Bool- mergeMap : Map Identifier (Identifier, [Identifier])- nextIntra : Exprs- nextIntraVars : Set String- nr : Int- nt : NontermIdent- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramInstMap : Map Identifier (NontermIdent, [String])- paramMap : ParamMap- prefix : String- quantMap : QuantMap- syn : Attributes- terminals : [Identifier]- unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type- with_sig : Bool- wrappers : Set NontermIdent- chained attributes:- decls : Decls- visitedSet : Set Identifier- synthesized attributes:- comments : [String]- gatherInstVisitNrs : Map Identifier Int- intra : Exprs- intraVars : Set String- semNames : [String]- alternatives:- alternative CVisit:- child inh : {Attributes}- child syn : {Attributes}- child vss : Sequence - child intra : Sequence - child ordered : {Bool}- visit 0:- local higherOrderChildren : _- local firstOrderChildren : _- local firstOrderOrig : _- local funcname : _- local nextVisitName : _- local nextVisitDecl : _- local isOneVisit : _- local hasWrappers : _- local refDecls : _- local decls : _- local lastExprVars : _- local blockFunDecls : _- local blockFirstFunCall : _- local costCentreDescr : _- local addCostCentre : _- local params : _- local semFun : _- local tsig : _- local semType : _- local typeSigs : _- local o_do : _- local o_case : _- local declsType : _- local o_splitsems : _--}--- cata-sem_CVisit :: CVisit ->- T_CVisit-sem_CVisit (CVisit _inh _syn _vss _intra _ordered) =- (sem_CVisit_CVisit _inh _syn (sem_Sequence _vss) (sem_Sequence _intra) _ordered)--- semantic domain-newtype T_CVisit = T_CVisit ((Set NontermIdent) ->- PragmaMap ->- (Set Identifier) ->- ([(Identifier,Type, ChildKind)]) ->- ConstructorIdent ->- ContextMap ->- Decls ->- Attributes ->- (Map Identifier Int) ->- Bool ->- (Map Identifier (Identifier, [Identifier])) ->- Exprs ->- (Set String) ->- Int ->- NontermIdent ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- (Map Identifier (NontermIdent, [String])) ->- ParamMap ->- String ->- QuantMap ->- Attributes ->- ([Identifier]) ->- (NontermIdent -> Int -> [String] -> Code.Type) ->- (Set Identifier) ->- Bool ->- (Set NontermIdent) ->- ( ([String]),Decls,(Map Identifier Int),Exprs,(Set String),([String]),(Set Identifier)))-data Inh_CVisit = Inh_CVisit {allNts_Inh_CVisit :: !((Set NontermIdent)),allPragmas_Inh_CVisit :: !(PragmaMap),aroundMap_Inh_CVisit :: !((Set Identifier)),children_Inh_CVisit :: !(([(Identifier,Type, ChildKind)])),con_Inh_CVisit :: !(ConstructorIdent),contextMap_Inh_CVisit :: !(ContextMap),decls_Inh_CVisit :: !(Decls),inh_Inh_CVisit :: !(Attributes),instVisitNrs_Inh_CVisit :: !((Map Identifier Int)),isLast_Inh_CVisit :: !(Bool),mergeMap_Inh_CVisit :: !((Map Identifier (Identifier, [Identifier]))),nextIntra_Inh_CVisit :: !(Exprs),nextIntraVars_Inh_CVisit :: !((Set String)),nr_Inh_CVisit :: !(Int),nt_Inh_CVisit :: !(NontermIdent),o_case_Inh_CVisit :: !(Bool),o_cata_Inh_CVisit :: !(Bool),o_costcentre_Inh_CVisit :: !(Bool),o_data_Inh_CVisit :: !((Maybe Bool)),o_linePragmas_Inh_CVisit :: !(Bool),o_monadic_Inh_CVisit :: !(Bool),o_newtypes_Inh_CVisit :: !(Bool),o_pretty_Inh_CVisit :: !(Bool),o_rename_Inh_CVisit :: !(Bool),o_sem_Inh_CVisit :: !(Bool),o_sig_Inh_CVisit :: !(Bool),o_splitsems_Inh_CVisit :: !(Bool),o_strictwrap_Inh_CVisit :: !(Bool),o_traces_Inh_CVisit :: !(Bool),o_unbox_Inh_CVisit :: !(Bool),options_Inh_CVisit :: !(Options),paramInstMap_Inh_CVisit :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CVisit :: !(ParamMap),prefix_Inh_CVisit :: !(String),quantMap_Inh_CVisit :: !(QuantMap),syn_Inh_CVisit :: !(Attributes),terminals_Inh_CVisit :: !(([Identifier])),unfoldSemDom_Inh_CVisit :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CVisit :: !((Set Identifier)),with_sig_Inh_CVisit :: !(Bool),wrappers_Inh_CVisit :: !((Set NontermIdent))}-data Syn_CVisit = Syn_CVisit {comments_Syn_CVisit :: !(([String])),decls_Syn_CVisit :: !(Decls),gatherInstVisitNrs_Syn_CVisit :: !((Map Identifier Int)),intra_Syn_CVisit :: !(Exprs),intraVars_Syn_CVisit :: !((Set String)),semNames_Syn_CVisit :: !(([String])),visitedSet_Syn_CVisit :: !((Set Identifier))}-wrap_CVisit :: T_CVisit ->- Inh_CVisit ->- Syn_CVisit-wrap_CVisit (T_CVisit sem) (Inh_CVisit _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIdecls _lhsIinh _lhsIinstVisitNrs _lhsIisLast _lhsImergeMap _lhsInextIntra _lhsInextIntraVars _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig _lhsIwrappers) =- (let ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOsemNames,_lhsOvisitedSet) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIdecls _lhsIinh _lhsIinstVisitNrs _lhsIisLast _lhsImergeMap _lhsInextIntra _lhsInextIntraVars _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig _lhsIwrappers- in (Syn_CVisit _lhsOcomments _lhsOdecls _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOsemNames _lhsOvisitedSet))-sem_CVisit_CVisit :: Attributes ->- Attributes ->- T_Sequence ->- T_Sequence ->- Bool ->- T_CVisit-sem_CVisit_CVisit inh_ syn_ (T_Sequence vss_) (T_Sequence intra_) ordered_ =- (T_CVisit (\ _lhsIallNts- _lhsIallPragmas- _lhsIaroundMap- _lhsIchildren- _lhsIcon- _lhsIcontextMap- _lhsIdecls- _lhsIinh- _lhsIinstVisitNrs- _lhsIisLast- _lhsImergeMap- _lhsInextIntra- _lhsInextIntraVars- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamInstMap- _lhsIparamMap- _lhsIprefix- _lhsIquantMap- _lhsIsyn- _lhsIterminals- _lhsIunfoldSemDom- _lhsIvisitedSet- _lhsIwith_sig- _lhsIwrappers ->- (let _lhsOintra :: Exprs- _lhsOintraVars :: (Set String)- _vssOlastExpr :: Expr- _intraOlastExpr :: Expr- _lhsOdecls :: Decls- _lhsOgatherInstVisitNrs :: (Map Identifier Int)- _vssOdeclsAbove :: ([Decl])- _intraOdeclsAbove :: ([Decl])- _lhsOcomments :: ([String])- _vssOwhat :: String- _intraOwhat :: String- _lhsOsemNames :: ([String])- _lhsOvisitedSet :: (Set Identifier)- _vssOallNts :: (Set NontermIdent)- _vssOaroundMap :: (Set Identifier)- _vssOchildren :: ([(Identifier,Type,ChildKind)])- _vssOcon :: ConstructorIdent- _vssOinh :: Attributes- _vssOinstVisitNrs :: (Map Identifier Int)- _vssOmergeMap :: (Map Identifier (Identifier, [Identifier]))- _vssOnr :: Int- _vssOnt :: NontermIdent- _vssOo_case :: Bool- _vssOo_cata :: Bool- _vssOo_costcentre :: Bool- _vssOo_data :: (Maybe Bool)- _vssOo_linePragmas :: Bool- _vssOo_monadic :: Bool- _vssOo_newtypes :: Bool- _vssOo_pretty :: Bool- _vssOo_rename :: Bool- _vssOo_sem :: Bool- _vssOo_sig :: Bool- _vssOo_splitsems :: Bool- _vssOo_strictwrap :: Bool- _vssOo_traces :: Bool- _vssOo_unbox :: Bool- _vssOoptions :: Options- _vssOparamInstMap :: (Map Identifier (NontermIdent, [String]))- _vssOparamMap :: ParamMap- _vssOprefix :: String- _vssOsyn :: Attributes- _vssOterminals :: ([Identifier])- _vssOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _vssOvisitedSet :: (Set Identifier)- _intraOallNts :: (Set NontermIdent)- _intraOaroundMap :: (Set Identifier)- _intraOchildren :: ([(Identifier,Type,ChildKind)])- _intraOcon :: ConstructorIdent- _intraOinh :: Attributes- _intraOinstVisitNrs :: (Map Identifier Int)- _intraOmergeMap :: (Map Identifier (Identifier, [Identifier]))- _intraOnr :: Int- _intraOnt :: NontermIdent- _intraOo_case :: Bool- _intraOo_cata :: Bool- _intraOo_costcentre :: Bool- _intraOo_data :: (Maybe Bool)- _intraOo_linePragmas :: Bool- _intraOo_monadic :: Bool- _intraOo_newtypes :: Bool- _intraOo_pretty :: Bool- _intraOo_rename :: Bool- _intraOo_sem :: Bool- _intraOo_sig :: Bool- _intraOo_splitsems :: Bool- _intraOo_strictwrap :: Bool- _intraOo_traces :: Bool- _intraOo_unbox :: Bool- _intraOoptions :: Options- _intraOparamInstMap :: (Map Identifier (NontermIdent, [String]))- _intraOparamMap :: ParamMap- _intraOprefix :: String- _intraOsyn :: Attributes- _intraOterminals :: ([Identifier])- _intraOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _intraOvisitedSet :: (Set Identifier)- _vssIallTpsFound :: Bool- _vssIblockDecls :: DeclBlocks- _vssIcomments :: ([String])- _vssIdecls :: Decls- _vssIdeclsAbove :: ([Decl])- _vssIdefinedInsts :: ([Identifier])- _vssIexprs :: Exprs- _vssItSigs :: ([Decl])- _vssItps :: ([Type])- _vssIusedVars :: (Set String)- _vssIvisitedSet :: (Set Identifier)- _intraIallTpsFound :: Bool- _intraIblockDecls :: DeclBlocks- _intraIcomments :: ([String])- _intraIdecls :: Decls- _intraIdeclsAbove :: ([Decl])- _intraIdefinedInsts :: ([Identifier])- _intraIexprs :: Exprs- _intraItSigs :: ([Decl])- _intraItps :: ([Type])- _intraIusedVars :: (Set String)- _intraIvisitedSet :: (Set Identifier)- -- "src-ag/GenerateCode.ag"(line 310, column 13)- _lhsOintra =- ({-# LINE 310 "src-ag/GenerateCode.ag" #-}- _intraIexprs- {-# LINE 5041 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 311, column 13)- _lhsOintraVars =- ({-# LINE 311 "src-ag/GenerateCode.ag" #-}- _intraIusedVars- {-# LINE 5047 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 441, column 13)- (_higherOrderChildren,_firstOrderChildren) =- ({-# LINE 441 "src-ag/GenerateCode.ag" #-}- partition (\(_,_,virt) -> isHigherOrder virt) _lhsIchildren- {-# LINE 5053 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 442, column 13)- _firstOrderOrig =- ({-# LINE 442 "src-ag/GenerateCode.ag" #-}- map pickOrigType _firstOrderChildren- {-# LINE 5059 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 443, column 13)- _funcname =- ({-# LINE 443 "src-ag/GenerateCode.ag" #-}- seqSemname _lhsIprefix _lhsInt _lhsIcon _lhsInr- {-# LINE 5065 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 444, column 13)- _nextVisitName =- ({-# LINE 444 "src-ag/GenerateCode.ag" #-}- if _lhsIisLast then [] else [visitname _lhsIprefix _lhsInt (_lhsInr+1)]- {-# LINE 5071 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 445, column 13)- _nextVisitDecl =- ({-# LINE 445 "src-ag/GenerateCode.ag" #-}- let lhs = TupleLhs _nextVisitName- rhs = Let _lhsIdecls (SimpleExpr fun)- fun = seqSemname _lhsIprefix _lhsInt _lhsIcon (_lhsInr+1)- in if _lhsIisLast- then []- else [Decl lhs rhs (Set.fromList _nextVisitName) _lhsInextIntraVars]- {-# LINE 5082 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 452, column 13)- _isOneVisit =- ({-# LINE 452 "src-ag/GenerateCode.ag" #-}- _lhsIisLast && _lhsInr == 0- {-# LINE 5088 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 453, column 13)- _hasWrappers =- ({-# LINE 453 "src-ag/GenerateCode.ag" #-}- _lhsInt `Set.member` _lhsIwrappers- {-# LINE 5094 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 454, column 13)- _refDecls =- ({-# LINE 454 "src-ag/GenerateCode.ag" #-}- if _isOneVisit && _hasWrappers && reference _lhsIoptions- then let synAttrs = Map.toList syn_- synNT = "Syn" ++ "_" ++ getName _lhsInt- synVars = [ SimpleExpr (attrname False _LHS a) | (a,_) <- synAttrs ]- rhs = App synNT synVars- lhs = Fun "___node" []- in [Decl lhs rhs Set.empty Set.empty]- else []- {-# LINE 5107 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 462, column 13)- _decls =- ({-# LINE 462 "src-ag/GenerateCode.ag" #-}- _typeSigs ++ _vssIdecls ++ _nextVisitDecl ++ _refDecls- {-# LINE 5113 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 463, column 13)- _vssOlastExpr =- ({-# LINE 463 "src-ag/GenerateCode.ag" #-}- mkTupleExpr _lhsIo_unbox (null $ Map.keys inh_) $ map (SimpleExpr . lhsname False) (Map.keys syn_) ++ map SimpleExpr _nextVisitName- {-# LINE 5119 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 464, column 13)- _intraOlastExpr =- ({-# LINE 464 "src-ag/GenerateCode.ag" #-}- error "lastExpr: not used here"- {-# LINE 5125 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 465, column 13)- _lastExprVars =- ({-# LINE 465 "src-ag/GenerateCode.ag" #-}- map (lhsname False) (Map.keys syn_) ++ _nextVisitName- {-# LINE 5131 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 466, column 13)- (_blockFunDecls,_blockFirstFunCall) =- ({-# LINE 466 "src-ag/GenerateCode.ag" #-}- mkPartitionedFunction _funcname _o_case _nextVisitDecl _lastExprVars _vssIblockDecls- {-# LINE 5137 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 468, column 13)- _costCentreDescr =- ({-# LINE 468 "src-ag/GenerateCode.ag" #-}- "b" ++ ":" ++ show _lhsInt ++ ":" ++ show _lhsIcon ++ ":" ++ show _lhsInr- {-# LINE 5143 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 469, column 13)- _addCostCentre =- ({-# LINE 469 "src-ag/GenerateCode.ag" #-}- \v -> if _lhsIo_costcentre- then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v- else v- {-# LINE 5151 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 473, column 13)- _params =- ({-# LINE 473 "src-ag/GenerateCode.ag" #-}- map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap- {-# LINE 5157 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 474, column 13)- _semFun =- ({-# LINE 474 "src-ag/GenerateCode.ag" #-}- let lhs = Fun _funcname lhs_args- lhs_args = if _lhsInr == 0 then map field _firstOrderOrig else []- field (name,NT tp tps _,_) = let unwrap | _lhsIo_newtypes = \x -> App (sdtype tp) [x]- | otherwise = id- addType expr | null tps = expr- | otherwise = TypedExpr expr (_lhsIunfoldSemDom tp 0 tps)- in unwrap $ addType $ SimpleExpr $ funname name 0- field (name,tp,_) = let expr = SimpleExpr (funname name 0)- in if null _params- then expr- else TypedExpr expr (idEvalType $ typeToCodeType (Just _lhsInt) _params $ removeDeforested tp)- mbEvalTp | null _params = const Nothing- | otherwise = Just . idEvalType- rhs = wrap- . mkSemFun _lhsInt _lhsInr [mkLambdaArg (lhsname True nm) (mbEvalTp $ typeToCodeType (Just _lhsInt) _params $ removeDeforested tp) | (nm,tp) <- Map.assocs inh_]- $ _addCostCentre- $ if ordered_ && _o_splitsems- then _blockFirstFunCall- else mkDecls _declsType _decls- . ResultExpr (typeName _lhsInt _lhsInr)- . mkTupleExpr _lhsIo_unbox (null $ Map.keys inh_)- $ map (SimpleExpr . lhsname False) (Map.keys syn_) ++ map SimpleExpr _nextVisitName- wrap = if _lhsIo_newtypes- then \x -> App (typeName _lhsInt _lhsInr) [x]- else id- in Decl lhs rhs Set.empty Set.empty- {-# LINE 5188 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 505, column 13)- _tsig =- ({-# LINE 505 "src-ag/GenerateCode.ag" #-}- TSig _funcname _semType- {-# LINE 5194 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 506, column 13)- _semType =- ({-# LINE 506 "src-ag/GenerateCode.ag" #-}- let argType (NT tp tps _) r | tp /= _SELF = typeAppStrs (sdtype tp) tps `Arr` r- | tp == _SELF = error "GenerateCode: found an intra-type with type SELF, which should have been prevented by CRule.tps"- argType (Haskell tp) r = SimpleType tp `Arr` r- evalTp | null _params = id- | otherwise = idEvalType- in appQuant _lhsIquantMap _lhsInt $ appContext _lhsIcontextMap _lhsInt $ evalTp $- if _lhsInr == 0- then foldr argType (typeAppStrs (sdtype _lhsInt ) _params ) (map (\(_,t,_) -> t) _firstOrderOrig )- else foldr argType (typeAppStrs (typeName _lhsInt _lhsInr) _params ) []- {-# LINE 5208 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 517, column 13)- _lhsOdecls =- ({-# LINE 517 "src-ag/GenerateCode.ag" #-}- ( if _lhsIwith_sig- then [_tsig, _semFun]- else [_semFun]- ) ++- ( if ordered_ && _o_splitsems- then _blockFunDecls- else []- )- {-# LINE 5221 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 525, column 13)- _typeSigs =- ({-# LINE 525 "src-ag/GenerateCode.ag" #-}- if _lhsIo_sig && not _o_case- then _vssItSigs- else []- {-# LINE 5229 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 528, column 13)- _o_do =- ({-# LINE 528 "src-ag/GenerateCode.ag" #-}- ordered_ && _lhsIo_monadic- {-# LINE 5235 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 529, column 13)- _o_case =- ({-# LINE 529 "src-ag/GenerateCode.ag" #-}- not _o_do && _lhsIo_case && ordered_ && not (hasPragma _lhsIallPragmas _lhsInt _lhsIcon _NOCASE)- {-# LINE 5241 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 530, column 13)- _declsType =- ({-# LINE 530 "src-ag/GenerateCode.ag" #-}- if _o_do- then DeclsDo- else if _o_case- then DeclsCase- else DeclsLet- {-# LINE 5251 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 535, column 13)- _o_splitsems =- ({-# LINE 535 "src-ag/GenerateCode.ag" #-}- ordered_ && _lhsIo_splitsems- {-# LINE 5257 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 568, column 7)- _lhsOgatherInstVisitNrs =- ({-# LINE 568 "src-ag/GenerateCode.ag" #-}- Map.fromList [(i,_lhsInr) | i <- _vssIdefinedInsts]- {-# LINE 5263 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 611, column 7)- _vssOdeclsAbove =- ({-# LINE 611 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 5269 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 612, column 7)- _intraOdeclsAbove =- ({-# LINE 612 "src-ag/GenerateCode.ag" #-}- error "declsAbove: not used here"- {-# LINE 5275 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 894, column 18)- _lhsOcomments =- ({-# LINE 894 "src-ag/GenerateCode.ag" #-}- let body = map ind (_vssIcomments ++ _intraIcomments)- in if null body- then []- else ("visit " ++ show _lhsInr ++ ":") : body- {-# LINE 5284 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 898, column 18)- _vssOwhat =- ({-# LINE 898 "src-ag/GenerateCode.ag" #-}- "local"- {-# LINE 5290 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 899, column 18)- _intraOwhat =- ({-# LINE 899 "src-ag/GenerateCode.ag" #-}- "intra"- {-# LINE 5296 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 1156, column 7)- _lhsOsemNames =- ({-# LINE 1156 "src-ag/GenerateCode.ag" #-}- [_funcname ]- {-# LINE 5302 "dist/build/GenerateCode" #-}- )- -- copy rule (up)- _lhsOvisitedSet =- ({-# LINE 145 "src-ag/GenerateCode.ag" #-}- _intraIvisitedSet- {-# LINE 5308 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOallNts =- ({-# LINE 132 "src-ag/GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 5314 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOaroundMap =- ({-# LINE 580 "src-ag/GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 5320 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOchildren =- ({-# LINE 259 "src-ag/GenerateCode.ag" #-}- _lhsIchildren- {-# LINE 5326 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOcon =- ({-# LINE 89 "src-ag/GenerateCode.ag" #-}- _lhsIcon- {-# LINE 5332 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOinh =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIinh- {-# LINE 5338 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOinstVisitNrs =- ({-# LINE 560 "src-ag/GenerateCode.ag" #-}- _lhsIinstVisitNrs- {-# LINE 5344 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOmergeMap =- ({-# LINE 596 "src-ag/GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 5350 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOnr =- ({-# LINE 278 "src-ag/GenerateCode.ag" #-}- _lhsInr- {-# LINE 5356 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOnt =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsInt- {-# LINE 5362 "dist/build/GenerateCode" #-}- )- -- copy rule (from local)- _vssOo_case =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _o_case- {-# LINE 5368 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOo_cata =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 5374 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOo_costcentre =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 5380 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOo_data =- ({-# LINE 48 "src-ag/GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 5386 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOo_linePragmas =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 5392 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOo_monadic =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 5398 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOo_newtypes =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 5404 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOo_pretty =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 5410 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOo_rename =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 5416 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOo_sem =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 5422 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOo_sig =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 5428 "dist/build/GenerateCode" #-}- )- -- copy rule (from local)- _vssOo_splitsems =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _o_splitsems- {-# LINE 5434 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOo_strictwrap =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 5440 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOo_traces =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 5446 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOo_unbox =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 5452 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOoptions =- ({-# LINE 50 "src-ag/GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 5458 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOparamInstMap =- ({-# LINE 101 "src-ag/GenerateCode.ag" #-}- _lhsIparamInstMap- {-# LINE 5464 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOparamMap =- ({-# LINE 95 "src-ag/GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 5470 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOprefix =- ({-# LINE 49 "src-ag/GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 5476 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOsyn =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 5482 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOterminals =- ({-# LINE 90 "src-ag/GenerateCode.ag" #-}- _lhsIterminals- {-# LINE 5488 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOunfoldSemDom =- ({-# LINE 750 "src-ag/GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 5494 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _vssOvisitedSet =- ({-# LINE 145 "src-ag/GenerateCode.ag" #-}- _lhsIvisitedSet- {-# LINE 5500 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOallNts =- ({-# LINE 132 "src-ag/GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 5506 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOaroundMap =- ({-# LINE 580 "src-ag/GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 5512 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOchildren =- ({-# LINE 259 "src-ag/GenerateCode.ag" #-}- _lhsIchildren- {-# LINE 5518 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOcon =- ({-# LINE 89 "src-ag/GenerateCode.ag" #-}- _lhsIcon- {-# LINE 5524 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOinh =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIinh- {-# LINE 5530 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOinstVisitNrs =- ({-# LINE 560 "src-ag/GenerateCode.ag" #-}- _lhsIinstVisitNrs- {-# LINE 5536 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOmergeMap =- ({-# LINE 596 "src-ag/GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 5542 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOnr =- ({-# LINE 278 "src-ag/GenerateCode.ag" #-}- _lhsInr- {-# LINE 5548 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOnt =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsInt- {-# LINE 5554 "dist/build/GenerateCode" #-}- )- -- copy rule (from local)- _intraOo_case =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _o_case- {-# LINE 5560 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOo_cata =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 5566 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOo_costcentre =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 5572 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOo_data =- ({-# LINE 48 "src-ag/GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 5578 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOo_linePragmas =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 5584 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOo_monadic =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 5590 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOo_newtypes =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 5596 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOo_pretty =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 5602 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOo_rename =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 5608 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOo_sem =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 5614 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOo_sig =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 5620 "dist/build/GenerateCode" #-}- )- -- copy rule (from local)- _intraOo_splitsems =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _o_splitsems- {-# LINE 5626 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOo_strictwrap =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 5632 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOo_traces =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 5638 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOo_unbox =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 5644 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOoptions =- ({-# LINE 50 "src-ag/GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 5650 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOparamInstMap =- ({-# LINE 101 "src-ag/GenerateCode.ag" #-}- _lhsIparamInstMap- {-# LINE 5656 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOparamMap =- ({-# LINE 95 "src-ag/GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 5662 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOprefix =- ({-# LINE 49 "src-ag/GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 5668 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOsyn =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 5674 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOterminals =- ({-# LINE 90 "src-ag/GenerateCode.ag" #-}- _lhsIterminals- {-# LINE 5680 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _intraOunfoldSemDom =- ({-# LINE 750 "src-ag/GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 5686 "dist/build/GenerateCode" #-}- )- -- copy rule (chain)- _intraOvisitedSet =- ({-# LINE 145 "src-ag/GenerateCode.ag" #-}- _vssIvisitedSet- {-# LINE 5692 "dist/build/GenerateCode" #-}- )- ( _vssIallTpsFound,_vssIblockDecls,_vssIcomments,_vssIdecls,_vssIdeclsAbove,_vssIdefinedInsts,_vssIexprs,_vssItSigs,_vssItps,_vssIusedVars,_vssIvisitedSet) =- vss_ _vssOallNts _vssOaroundMap _vssOchildren _vssOcon _vssOdeclsAbove _vssOinh _vssOinstVisitNrs _vssOlastExpr _vssOmergeMap _vssOnr _vssOnt _vssOo_case _vssOo_cata _vssOo_costcentre _vssOo_data _vssOo_linePragmas _vssOo_monadic _vssOo_newtypes _vssOo_pretty _vssOo_rename _vssOo_sem _vssOo_sig _vssOo_splitsems _vssOo_strictwrap _vssOo_traces _vssOo_unbox _vssOoptions _vssOparamInstMap _vssOparamMap _vssOprefix _vssOsyn _vssOterminals _vssOunfoldSemDom _vssOvisitedSet _vssOwhat- ( _intraIallTpsFound,_intraIblockDecls,_intraIcomments,_intraIdecls,_intraIdeclsAbove,_intraIdefinedInsts,_intraIexprs,_intraItSigs,_intraItps,_intraIusedVars,_intraIvisitedSet) =- intra_ _intraOallNts _intraOaroundMap _intraOchildren _intraOcon _intraOdeclsAbove _intraOinh _intraOinstVisitNrs _intraOlastExpr _intraOmergeMap _intraOnr _intraOnt _intraOo_case _intraOo_cata _intraOo_costcentre _intraOo_data _intraOo_linePragmas _intraOo_monadic _intraOo_newtypes _intraOo_pretty _intraOo_rename _intraOo_sem _intraOo_sig _intraOo_splitsems _intraOo_strictwrap _intraOo_traces _intraOo_unbox _intraOoptions _intraOparamInstMap _intraOparamMap _intraOprefix _intraOsyn _intraOterminals _intraOunfoldSemDom _intraOvisitedSet _intraOwhat- in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOsemNames,_lhsOvisitedSet))))--- CVisits ------------------------------------------------------{-- visit 0:- inherited attributes:- allNts : Set NontermIdent- allPragmas : PragmaMap- aroundMap : Set Identifier- children : [(Identifier,Type, ChildKind)]- con : ConstructorIdent- contextMap : ContextMap- inh : Attributes- instVisitNrs : Map Identifier Int- mergeMap : Map Identifier (Identifier, [Identifier])- nr : Int- nt : NontermIdent- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramInstMap : Map Identifier (NontermIdent, [String])- paramMap : ParamMap- prefix : String- quantMap : QuantMap- syn : Attributes- terminals : [Identifier]- unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type- with_sig : Bool- wrappers : Set NontermIdent- chained attribute:- visitedSet : Set Identifier- synthesized attributes:- comments : [String]- decls : Decls- gatherInstVisitNrs : Map Identifier Int- intra : Exprs- intraVars : Set String- isNil : Bool- semNames : [String]- alternatives:- alternative Cons:- child hd : CVisit - child tl : CVisits - alternative Nil:--}--- cata-sem_CVisits :: CVisits ->- T_CVisits-sem_CVisits list =- (Prelude.foldr sem_CVisits_Cons sem_CVisits_Nil (Prelude.map sem_CVisit list))--- semantic domain-newtype T_CVisits = T_CVisits ((Set NontermIdent) ->- PragmaMap ->- (Set Identifier) ->- ([(Identifier,Type, ChildKind)]) ->- ConstructorIdent ->- ContextMap ->- Attributes ->- (Map Identifier Int) ->- (Map Identifier (Identifier, [Identifier])) ->- Int ->- NontermIdent ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- (Map Identifier (NontermIdent, [String])) ->- ParamMap ->- String ->- QuantMap ->- Attributes ->- ([Identifier]) ->- (NontermIdent -> Int -> [String] -> Code.Type) ->- (Set Identifier) ->- Bool ->- (Set NontermIdent) ->- ( ([String]),Decls,(Map Identifier Int),Exprs,(Set String),Bool,([String]),(Set Identifier)))-data Inh_CVisits = Inh_CVisits {allNts_Inh_CVisits :: !((Set NontermIdent)),allPragmas_Inh_CVisits :: !(PragmaMap),aroundMap_Inh_CVisits :: !((Set Identifier)),children_Inh_CVisits :: !(([(Identifier,Type, ChildKind)])),con_Inh_CVisits :: !(ConstructorIdent),contextMap_Inh_CVisits :: !(ContextMap),inh_Inh_CVisits :: !(Attributes),instVisitNrs_Inh_CVisits :: !((Map Identifier Int)),mergeMap_Inh_CVisits :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_CVisits :: !(Int),nt_Inh_CVisits :: !(NontermIdent),o_case_Inh_CVisits :: !(Bool),o_cata_Inh_CVisits :: !(Bool),o_costcentre_Inh_CVisits :: !(Bool),o_data_Inh_CVisits :: !((Maybe Bool)),o_linePragmas_Inh_CVisits :: !(Bool),o_monadic_Inh_CVisits :: !(Bool),o_newtypes_Inh_CVisits :: !(Bool),o_pretty_Inh_CVisits :: !(Bool),o_rename_Inh_CVisits :: !(Bool),o_sem_Inh_CVisits :: !(Bool),o_sig_Inh_CVisits :: !(Bool),o_splitsems_Inh_CVisits :: !(Bool),o_strictwrap_Inh_CVisits :: !(Bool),o_traces_Inh_CVisits :: !(Bool),o_unbox_Inh_CVisits :: !(Bool),options_Inh_CVisits :: !(Options),paramInstMap_Inh_CVisits :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CVisits :: !(ParamMap),prefix_Inh_CVisits :: !(String),quantMap_Inh_CVisits :: !(QuantMap),syn_Inh_CVisits :: !(Attributes),terminals_Inh_CVisits :: !(([Identifier])),unfoldSemDom_Inh_CVisits :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CVisits :: !((Set Identifier)),with_sig_Inh_CVisits :: !(Bool),wrappers_Inh_CVisits :: !((Set NontermIdent))}-data Syn_CVisits = Syn_CVisits {comments_Syn_CVisits :: !(([String])),decls_Syn_CVisits :: !(Decls),gatherInstVisitNrs_Syn_CVisits :: !((Map Identifier Int)),intra_Syn_CVisits :: !(Exprs),intraVars_Syn_CVisits :: !((Set String)),isNil_Syn_CVisits :: !(Bool),semNames_Syn_CVisits :: !(([String])),visitedSet_Syn_CVisits :: !((Set Identifier))}-wrap_CVisits :: T_CVisits ->- Inh_CVisits ->- Syn_CVisits-wrap_CVisits (T_CVisits sem) (Inh_CVisits _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig _lhsIwrappers) =- (let ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig _lhsIwrappers- in (Syn_CVisits _lhsOcomments _lhsOdecls _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOisNil _lhsOsemNames _lhsOvisitedSet))-sem_CVisits_Cons :: T_CVisit ->- T_CVisits ->- T_CVisits-sem_CVisits_Cons (T_CVisit hd_) (T_CVisits tl_) =- (T_CVisits (\ _lhsIallNts- _lhsIallPragmas- _lhsIaroundMap- _lhsIchildren- _lhsIcon- _lhsIcontextMap- _lhsIinh- _lhsIinstVisitNrs- _lhsImergeMap- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamInstMap- _lhsIparamMap- _lhsIprefix- _lhsIquantMap- _lhsIsyn- _lhsIterminals- _lhsIunfoldSemDom- _lhsIvisitedSet- _lhsIwith_sig- _lhsIwrappers ->- (let _tlOnr :: Int- _lhsOisNil :: Bool- _hdOisLast :: Bool- _hdOnextIntra :: Exprs- _hdOnextIntraVars :: (Set String)- _lhsOintra :: Exprs- _lhsOintraVars :: (Set String)- _lhsOdecls :: Decls- _hdOdecls :: Decls- _lhsOcomments :: ([String])- _lhsOgatherInstVisitNrs :: (Map Identifier Int)- _lhsOsemNames :: ([String])- _lhsOvisitedSet :: (Set Identifier)- _hdOallNts :: (Set NontermIdent)- _hdOallPragmas :: PragmaMap- _hdOaroundMap :: (Set Identifier)- _hdOchildren :: ([(Identifier,Type, ChildKind)])- _hdOcon :: ConstructorIdent- _hdOcontextMap :: ContextMap- _hdOinh :: Attributes- _hdOinstVisitNrs :: (Map Identifier Int)- _hdOmergeMap :: (Map Identifier (Identifier, [Identifier]))- _hdOnr :: Int- _hdOnt :: NontermIdent- _hdOo_case :: Bool- _hdOo_cata :: Bool- _hdOo_costcentre :: Bool- _hdOo_data :: (Maybe Bool)- _hdOo_linePragmas :: Bool- _hdOo_monadic :: Bool- _hdOo_newtypes :: Bool- _hdOo_pretty :: Bool- _hdOo_rename :: Bool- _hdOo_sem :: Bool- _hdOo_sig :: Bool- _hdOo_splitsems :: Bool- _hdOo_strictwrap :: Bool- _hdOo_traces :: Bool- _hdOo_unbox :: Bool- _hdOoptions :: Options- _hdOparamInstMap :: (Map Identifier (NontermIdent, [String]))- _hdOparamMap :: ParamMap- _hdOprefix :: String- _hdOquantMap :: QuantMap- _hdOsyn :: Attributes- _hdOterminals :: ([Identifier])- _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _hdOvisitedSet :: (Set Identifier)- _hdOwith_sig :: Bool- _hdOwrappers :: (Set NontermIdent)- _tlOallNts :: (Set NontermIdent)- _tlOallPragmas :: PragmaMap- _tlOaroundMap :: (Set Identifier)- _tlOchildren :: ([(Identifier,Type, ChildKind)])- _tlOcon :: ConstructorIdent- _tlOcontextMap :: ContextMap- _tlOinh :: Attributes- _tlOinstVisitNrs :: (Map Identifier Int)- _tlOmergeMap :: (Map Identifier (Identifier, [Identifier]))- _tlOnt :: NontermIdent- _tlOo_case :: Bool- _tlOo_cata :: Bool- _tlOo_costcentre :: Bool- _tlOo_data :: (Maybe Bool)- _tlOo_linePragmas :: Bool- _tlOo_monadic :: Bool- _tlOo_newtypes :: Bool- _tlOo_pretty :: Bool- _tlOo_rename :: Bool- _tlOo_sem :: Bool- _tlOo_sig :: Bool- _tlOo_splitsems :: Bool- _tlOo_strictwrap :: Bool- _tlOo_traces :: Bool- _tlOo_unbox :: Bool- _tlOoptions :: Options- _tlOparamInstMap :: (Map Identifier (NontermIdent, [String]))- _tlOparamMap :: ParamMap- _tlOprefix :: String- _tlOquantMap :: QuantMap- _tlOsyn :: Attributes- _tlOterminals :: ([Identifier])- _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _tlOvisitedSet :: (Set Identifier)- _tlOwith_sig :: Bool- _tlOwrappers :: (Set NontermIdent)- _hdIcomments :: ([String])- _hdIdecls :: Decls- _hdIgatherInstVisitNrs :: (Map Identifier Int)- _hdIintra :: Exprs- _hdIintraVars :: (Set String)- _hdIsemNames :: ([String])- _hdIvisitedSet :: (Set Identifier)- _tlIcomments :: ([String])- _tlIdecls :: Decls- _tlIgatherInstVisitNrs :: (Map Identifier Int)- _tlIintra :: Exprs- _tlIintraVars :: (Set String)- _tlIisNil :: Bool- _tlIsemNames :: ([String])- _tlIvisitedSet :: (Set Identifier)- -- "src-ag/GenerateCode.ag"(line 282, column 11)- _tlOnr =- ({-# LINE 282 "src-ag/GenerateCode.ag" #-}- _lhsInr + 1- {-# LINE 5953 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 295, column 12)- _lhsOisNil =- ({-# LINE 295 "src-ag/GenerateCode.ag" #-}- False- {-# LINE 5959 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 296, column 12)- _hdOisLast =- ({-# LINE 296 "src-ag/GenerateCode.ag" #-}- _tlIisNil- {-# LINE 5965 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 313, column 12)- _hdOnextIntra =- ({-# LINE 313 "src-ag/GenerateCode.ag" #-}- _tlIintra- {-# LINE 5971 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 314, column 12)- _hdOnextIntraVars =- ({-# LINE 314 "src-ag/GenerateCode.ag" #-}- _tlIintraVars- {-# LINE 5977 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 315, column 12)- _lhsOintra =- ({-# LINE 315 "src-ag/GenerateCode.ag" #-}- _hdIintra- {-# LINE 5983 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 316, column 12)- _lhsOintraVars =- ({-# LINE 316 "src-ag/GenerateCode.ag" #-}- _hdIintraVars- {-# LINE 5989 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 431, column 11)- _lhsOdecls =- ({-# LINE 431 "src-ag/GenerateCode.ag" #-}- _hdIdecls- {-# LINE 5995 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 432, column 11)- _hdOdecls =- ({-# LINE 432 "src-ag/GenerateCode.ag" #-}- _tlIdecls- {-# LINE 6001 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)- _lhsOcomments =- ({-# LINE 868 "src-ag/GenerateCode.ag" #-}- _hdIcomments ++ _tlIcomments- {-# LINE 6007 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 561, column 44)- _lhsOgatherInstVisitNrs =- ({-# LINE 561 "src-ag/GenerateCode.ag" #-}- _hdIgatherInstVisitNrs `Map.union` _tlIgatherInstVisitNrs- {-# LINE 6013 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 1146, column 61)- _lhsOsemNames =- ({-# LINE 1146 "src-ag/GenerateCode.ag" #-}- _hdIsemNames ++ _tlIsemNames- {-# LINE 6019 "dist/build/GenerateCode" #-}- )- -- copy rule (up)- _lhsOvisitedSet =- ({-# LINE 145 "src-ag/GenerateCode.ag" #-}- _tlIvisitedSet- {-# LINE 6025 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOallNts =- ({-# LINE 132 "src-ag/GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 6031 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOallPragmas =- ({-# LINE 73 "src-ag/GenerateCode.ag" #-}- _lhsIallPragmas- {-# LINE 6037 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOaroundMap =- ({-# LINE 580 "src-ag/GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 6043 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOchildren =- ({-# LINE 410 "src-ag/GenerateCode.ag" #-}- _lhsIchildren- {-# LINE 6049 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOcon =- ({-# LINE 89 "src-ag/GenerateCode.ag" #-}- _lhsIcon- {-# LINE 6055 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOcontextMap =- ({-# LINE 115 "src-ag/GenerateCode.ag" #-}- _lhsIcontextMap- {-# LINE 6061 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOinh =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIinh- {-# LINE 6067 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOinstVisitNrs =- ({-# LINE 560 "src-ag/GenerateCode.ag" #-}- _lhsIinstVisitNrs- {-# LINE 6073 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOmergeMap =- ({-# LINE 596 "src-ag/GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 6079 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOnr =- ({-# LINE 278 "src-ag/GenerateCode.ag" #-}- _lhsInr- {-# LINE 6085 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOnt =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsInt- {-# LINE 6091 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_case =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 6097 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_cata =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 6103 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_costcentre =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 6109 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_data =- ({-# LINE 48 "src-ag/GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 6115 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_linePragmas =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 6121 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_monadic =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 6127 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_newtypes =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 6133 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_pretty =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 6139 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_rename =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 6145 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_sem =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 6151 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_sig =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 6157 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_splitsems =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 6163 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_strictwrap =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 6169 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_traces =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 6175 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_unbox =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 6181 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 50 "src-ag/GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 6187 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOparamInstMap =- ({-# LINE 101 "src-ag/GenerateCode.ag" #-}- _lhsIparamInstMap- {-# LINE 6193 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOparamMap =- ({-# LINE 95 "src-ag/GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 6199 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOprefix =- ({-# LINE 49 "src-ag/GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 6205 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOquantMap =- ({-# LINE 115 "src-ag/GenerateCode.ag" #-}- _lhsIquantMap- {-# LINE 6211 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOsyn =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 6217 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOterminals =- ({-# LINE 90 "src-ag/GenerateCode.ag" #-}- _lhsIterminals- {-# LINE 6223 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOunfoldSemDom =- ({-# LINE 750 "src-ag/GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 6229 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOvisitedSet =- ({-# LINE 145 "src-ag/GenerateCode.ag" #-}- _lhsIvisitedSet- {-# LINE 6235 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOwith_sig =- ({-# LINE 851 "src-ag/GenerateCode.ag" #-}- _lhsIwith_sig- {-# LINE 6241 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOwrappers =- ({-# LINE 987 "src-ag/GenerateCode.ag" #-}- _lhsIwrappers- {-# LINE 6247 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOallNts =- ({-# LINE 132 "src-ag/GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 6253 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOallPragmas =- ({-# LINE 73 "src-ag/GenerateCode.ag" #-}- _lhsIallPragmas- {-# LINE 6259 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOaroundMap =- ({-# LINE 580 "src-ag/GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 6265 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOchildren =- ({-# LINE 410 "src-ag/GenerateCode.ag" #-}- _lhsIchildren- {-# LINE 6271 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOcon =- ({-# LINE 89 "src-ag/GenerateCode.ag" #-}- _lhsIcon- {-# LINE 6277 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOcontextMap =- ({-# LINE 115 "src-ag/GenerateCode.ag" #-}- _lhsIcontextMap- {-# LINE 6283 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOinh =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIinh- {-# LINE 6289 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOinstVisitNrs =- ({-# LINE 560 "src-ag/GenerateCode.ag" #-}- _lhsIinstVisitNrs- {-# LINE 6295 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOmergeMap =- ({-# LINE 596 "src-ag/GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 6301 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOnt =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsInt- {-# LINE 6307 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_case =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 6313 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_cata =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 6319 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_costcentre =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 6325 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_data =- ({-# LINE 48 "src-ag/GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 6331 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_linePragmas =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 6337 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_monadic =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 6343 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_newtypes =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 6349 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_pretty =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 6355 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_rename =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 6361 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_sem =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 6367 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_sig =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 6373 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_splitsems =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 6379 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_strictwrap =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 6385 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_traces =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 6391 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_unbox =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 6397 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 50 "src-ag/GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 6403 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOparamInstMap =- ({-# LINE 101 "src-ag/GenerateCode.ag" #-}- _lhsIparamInstMap- {-# LINE 6409 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOparamMap =- ({-# LINE 95 "src-ag/GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 6415 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOprefix =- ({-# LINE 49 "src-ag/GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 6421 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOquantMap =- ({-# LINE 115 "src-ag/GenerateCode.ag" #-}- _lhsIquantMap- {-# LINE 6427 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOsyn =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 6433 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOterminals =- ({-# LINE 90 "src-ag/GenerateCode.ag" #-}- _lhsIterminals- {-# LINE 6439 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOunfoldSemDom =- ({-# LINE 750 "src-ag/GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 6445 "dist/build/GenerateCode" #-}- )- -- copy rule (chain)- _tlOvisitedSet =- ({-# LINE 145 "src-ag/GenerateCode.ag" #-}- _hdIvisitedSet- {-# LINE 6451 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOwith_sig =- ({-# LINE 851 "src-ag/GenerateCode.ag" #-}- _lhsIwith_sig- {-# LINE 6457 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOwrappers =- ({-# LINE 987 "src-ag/GenerateCode.ag" #-}- _lhsIwrappers- {-# LINE 6463 "dist/build/GenerateCode" #-}- )- ( _hdIcomments,_hdIdecls,_hdIgatherInstVisitNrs,_hdIintra,_hdIintraVars,_hdIsemNames,_hdIvisitedSet) =- hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOchildren _hdOcon _hdOcontextMap _hdOdecls _hdOinh _hdOinstVisitNrs _hdOisLast _hdOmergeMap _hdOnextIntra _hdOnextIntraVars _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamInstMap _hdOparamMap _hdOprefix _hdOquantMap _hdOsyn _hdOterminals _hdOunfoldSemDom _hdOvisitedSet _hdOwith_sig _hdOwrappers- ( _tlIcomments,_tlIdecls,_tlIgatherInstVisitNrs,_tlIintra,_tlIintraVars,_tlIisNil,_tlIsemNames,_tlIvisitedSet) =- tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOchildren _tlOcon _tlOcontextMap _tlOinh _tlOinstVisitNrs _tlOmergeMap _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamInstMap _tlOparamMap _tlOprefix _tlOquantMap _tlOsyn _tlOterminals _tlOunfoldSemDom _tlOvisitedSet _tlOwith_sig _tlOwrappers- in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet))))-sem_CVisits_Nil :: T_CVisits-sem_CVisits_Nil =- (T_CVisits (\ _lhsIallNts- _lhsIallPragmas- _lhsIaroundMap- _lhsIchildren- _lhsIcon- _lhsIcontextMap- _lhsIinh- _lhsIinstVisitNrs- _lhsImergeMap- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamInstMap- _lhsIparamMap- _lhsIprefix- _lhsIquantMap- _lhsIsyn- _lhsIterminals- _lhsIunfoldSemDom- _lhsIvisitedSet- _lhsIwith_sig- _lhsIwrappers ->- (let _lhsOisNil :: Bool- _lhsOintra :: Exprs- _lhsOintraVars :: (Set String)- _lhsOdecls :: Decls- _lhsOcomments :: ([String])- _lhsOgatherInstVisitNrs :: (Map Identifier Int)- _lhsOsemNames :: ([String])- _lhsOvisitedSet :: (Set Identifier)- -- "src-ag/GenerateCode.ag"(line 297, column 10)- _lhsOisNil =- ({-# LINE 297 "src-ag/GenerateCode.ag" #-}- True- {-# LINE 6521 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 317, column 10)- _lhsOintra =- ({-# LINE 317 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 6527 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 318, column 10)- _lhsOintraVars =- ({-# LINE 318 "src-ag/GenerateCode.ag" #-}- Set.empty- {-# LINE 6533 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 430, column 11)- _lhsOdecls =- ({-# LINE 430 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 6539 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)- _lhsOcomments =- ({-# LINE 868 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 6545 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 561, column 44)- _lhsOgatherInstVisitNrs =- ({-# LINE 561 "src-ag/GenerateCode.ag" #-}- Map.empty- {-# LINE 6551 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 1146, column 61)- _lhsOsemNames =- ({-# LINE 1146 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 6557 "dist/build/GenerateCode" #-}- )- -- copy rule (chain)- _lhsOvisitedSet =- ({-# LINE 145 "src-ag/GenerateCode.ag" #-}- _lhsIvisitedSet- {-# LINE 6563 "dist/build/GenerateCode" #-}- )- in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet))))--- DeclBlocks ---------------------------------------------------{-- visit 0:- inherited attributes:- blockNr : Int- lastExprVars : [String]- nextVisitDecls : [Decl]- optCase : Bool- prefix : String- synthesized attributes:- callExpr : Expr- decls : [Decl]- freeVars : [String]- alternatives:- alternative DeclBlock:- child defs : {[Decl]}- child visit : {Decl}- child next : DeclBlocks - visit 0:- local lambdaName : _- local pragmaDecl : _- local freeVars : _- local decl : _- alternative DeclTerminator:- child defs : {[Decl]}- child result : {Expr}- visit 0:- local lambdaName : _- local pragmaDecl : _- local freeVars : _--}--- cata-sem_DeclBlocks :: DeclBlocks ->- T_DeclBlocks-sem_DeclBlocks (DeclBlock _defs _visit _next) =- (sem_DeclBlocks_DeclBlock _defs _visit (sem_DeclBlocks _next))-sem_DeclBlocks (DeclTerminator _defs _result) =- (sem_DeclBlocks_DeclTerminator _defs _result)--- semantic domain-newtype T_DeclBlocks = T_DeclBlocks (Int ->- ([String]) ->- ([Decl]) ->- Bool ->- String ->- ( Expr,([Decl]),([String])))-data Inh_DeclBlocks = Inh_DeclBlocks {blockNr_Inh_DeclBlocks :: !(Int),lastExprVars_Inh_DeclBlocks :: !(([String])),nextVisitDecls_Inh_DeclBlocks :: !(([Decl])),optCase_Inh_DeclBlocks :: !(Bool),prefix_Inh_DeclBlocks :: !(String)}-data Syn_DeclBlocks = Syn_DeclBlocks {callExpr_Syn_DeclBlocks :: !(Expr),decls_Syn_DeclBlocks :: !(([Decl])),freeVars_Syn_DeclBlocks :: !(([String]))}-wrap_DeclBlocks :: T_DeclBlocks ->- Inh_DeclBlocks ->- Syn_DeclBlocks-wrap_DeclBlocks (T_DeclBlocks sem) (Inh_DeclBlocks _lhsIblockNr _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix) =- (let ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars) = sem _lhsIblockNr _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix- in (Syn_DeclBlocks _lhsOcallExpr _lhsOdecls _lhsOfreeVars))-sem_DeclBlocks_DeclBlock :: ([Decl]) ->- Decl ->- T_DeclBlocks ->- T_DeclBlocks-sem_DeclBlocks_DeclBlock defs_ visit_ (T_DeclBlocks next_) =- (T_DeclBlocks (\ _lhsIblockNr- _lhsIlastExprVars- _lhsInextVisitDecls- _lhsIoptCase- _lhsIprefix ->- (let _nextOblockNr :: Int- _lhsOcallExpr :: Expr- _lhsOdecls :: ([Decl])- _lhsOfreeVars :: ([String])- _nextOlastExprVars :: ([String])- _nextOnextVisitDecls :: ([Decl])- _nextOoptCase :: Bool- _nextOprefix :: String- _nextIcallExpr :: Expr- _nextIdecls :: ([Decl])- _nextIfreeVars :: ([String])- -- "src-ag/GenerateCode.ag"(line 662, column 7)- _nextOblockNr =- ({-# LINE 662 "src-ag/GenerateCode.ag" #-}- _lhsIblockNr + 1- {-# LINE 6644 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 667, column 7)- _lambdaName =- ({-# LINE 667 "src-ag/GenerateCode.ag" #-}- _lhsIprefix ++ "_block" ++ show _lhsIblockNr- {-# LINE 6650 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 668, column 7)- _pragmaDecl =- ({-# LINE 668 "src-ag/GenerateCode.ag" #-}- PragmaDecl ("NOINLINE " ++ _lambdaName )- {-# LINE 6656 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 669, column 7)- _lhsOcallExpr =- ({-# LINE 669 "src-ag/GenerateCode.ag" #-}- App _lambdaName (map SimpleExpr _freeVars )- {-# LINE 6662 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 673, column 7)- _freeVars =- ({-# LINE 673 "src-ag/GenerateCode.ag" #-}- freevars _nextIfreeVars (visit_ : defs_)- {-# LINE 6668 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 680, column 7)- _decl =- ({-# LINE 680 "src-ag/GenerateCode.ag" #-}- mkBlockLambda _lhsIoptCase _lambdaName _freeVars (defs_ ++ [visit_]) _nextIcallExpr- {-# LINE 6674 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 681, column 7)- _lhsOdecls =- ({-# LINE 681 "src-ag/GenerateCode.ag" #-}- (if _lhsIblockNr > 1 then [_pragmaDecl ] else []) ++ [_decl ] ++ _nextIdecls- {-# LINE 6680 "dist/build/GenerateCode" #-}- )- -- copy rule (from local)- _lhsOfreeVars =- ({-# LINE 664 "src-ag/GenerateCode.ag" #-}- _freeVars- {-# LINE 6686 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _nextOlastExprVars =- ({-# LINE 648 "src-ag/GenerateCode.ag" #-}- _lhsIlastExprVars- {-# LINE 6692 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _nextOnextVisitDecls =- ({-# LINE 648 "src-ag/GenerateCode.ag" #-}- _lhsInextVisitDecls- {-# LINE 6698 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _nextOoptCase =- ({-# LINE 648 "src-ag/GenerateCode.ag" #-}- _lhsIoptCase- {-# LINE 6704 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _nextOprefix =- ({-# LINE 648 "src-ag/GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 6710 "dist/build/GenerateCode" #-}- )- ( _nextIcallExpr,_nextIdecls,_nextIfreeVars) =- next_ _nextOblockNr _nextOlastExprVars _nextOnextVisitDecls _nextOoptCase _nextOprefix- in ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars))))-sem_DeclBlocks_DeclTerminator :: ([Decl]) ->- Expr ->- T_DeclBlocks-sem_DeclBlocks_DeclTerminator defs_ result_ =- (T_DeclBlocks (\ _lhsIblockNr- _lhsIlastExprVars- _lhsInextVisitDecls- _lhsIoptCase- _lhsIprefix ->- (let _lhsOcallExpr :: Expr- _lhsOdecls :: ([Decl])- _lhsOfreeVars :: ([String])- -- "src-ag/GenerateCode.ag"(line 667, column 7)- _lambdaName =- ({-# LINE 667 "src-ag/GenerateCode.ag" #-}- _lhsIprefix ++ "_block" ++ show _lhsIblockNr- {-# LINE 6731 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 668, column 7)- _pragmaDecl =- ({-# LINE 668 "src-ag/GenerateCode.ag" #-}- PragmaDecl ("NOINLINE " ++ _lambdaName )- {-# LINE 6737 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 669, column 7)- _lhsOcallExpr =- ({-# LINE 669 "src-ag/GenerateCode.ag" #-}- App _lambdaName (map SimpleExpr _freeVars )- {-# LINE 6743 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 671, column 7)- _freeVars =- ({-# LINE 671 "src-ag/GenerateCode.ag" #-}- freevars _lhsIlastExprVars (defs_ ++ _lhsInextVisitDecls)- {-# LINE 6749 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 678, column 7)- _lhsOdecls =- ({-# LINE 678 "src-ag/GenerateCode.ag" #-}- [ mkBlockLambda _lhsIoptCase _lambdaName _freeVars (defs_ ++ _lhsInextVisitDecls) result_ ]- {-# LINE 6755 "dist/build/GenerateCode" #-}- )- -- copy rule (from local)- _lhsOfreeVars =- ({-# LINE 664 "src-ag/GenerateCode.ag" #-}- _freeVars- {-# LINE 6761 "dist/build/GenerateCode" #-}- )- in ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars))))--- DeclBlocksRoot -----------------------------------------------{-- visit 0:- inherited attributes:- lastExprVars : [String]- nextVisitDecls : [Decl]- optCase : Bool- prefix : String- synthesized attributes:- firstCall : Expr- lambdas : [Decl]- alternatives:- alternative DeclBlocksRoot:- child blocks : DeclBlocks --}--- cata-sem_DeclBlocksRoot :: DeclBlocksRoot ->- T_DeclBlocksRoot-sem_DeclBlocksRoot (DeclBlocksRoot _blocks) =- (sem_DeclBlocksRoot_DeclBlocksRoot (sem_DeclBlocks _blocks))--- semantic domain-newtype T_DeclBlocksRoot = T_DeclBlocksRoot (([String]) ->- ([Decl]) ->- Bool ->- String ->- ( Expr,([Decl])))-data Inh_DeclBlocksRoot = Inh_DeclBlocksRoot {lastExprVars_Inh_DeclBlocksRoot :: !(([String])),nextVisitDecls_Inh_DeclBlocksRoot :: !(([Decl])),optCase_Inh_DeclBlocksRoot :: !(Bool),prefix_Inh_DeclBlocksRoot :: !(String)}-data Syn_DeclBlocksRoot = Syn_DeclBlocksRoot {firstCall_Syn_DeclBlocksRoot :: !(Expr),lambdas_Syn_DeclBlocksRoot :: !(([Decl]))}-wrap_DeclBlocksRoot :: T_DeclBlocksRoot ->- Inh_DeclBlocksRoot ->- Syn_DeclBlocksRoot-wrap_DeclBlocksRoot (T_DeclBlocksRoot sem) (Inh_DeclBlocksRoot _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix) =- (let ( _lhsOfirstCall,_lhsOlambdas) = sem _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix- in (Syn_DeclBlocksRoot _lhsOfirstCall _lhsOlambdas))-sem_DeclBlocksRoot_DeclBlocksRoot :: T_DeclBlocks ->- T_DeclBlocksRoot-sem_DeclBlocksRoot_DeclBlocksRoot (T_DeclBlocks blocks_) =- (T_DeclBlocksRoot (\ _lhsIlastExprVars- _lhsInextVisitDecls- _lhsIoptCase- _lhsIprefix ->- (let _lhsOlambdas :: ([Decl])- _lhsOfirstCall :: Expr- _blocksOblockNr :: Int- _blocksOlastExprVars :: ([String])- _blocksOnextVisitDecls :: ([Decl])- _blocksOoptCase :: Bool- _blocksOprefix :: String- _blocksIcallExpr :: Expr- _blocksIdecls :: ([Decl])- _blocksIfreeVars :: ([String])- -- "src-ag/GenerateCode.ag"(line 653, column 7)- _lhsOlambdas =- ({-# LINE 653 "src-ag/GenerateCode.ag" #-}- _blocksIdecls- {-# LINE 6819 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 654, column 7)- _lhsOfirstCall =- ({-# LINE 654 "src-ag/GenerateCode.ag" #-}- _blocksIcallExpr- {-# LINE 6825 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 659, column 7)- _blocksOblockNr =- ({-# LINE 659 "src-ag/GenerateCode.ag" #-}- 1- {-# LINE 6831 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _blocksOlastExprVars =- ({-# LINE 648 "src-ag/GenerateCode.ag" #-}- _lhsIlastExprVars- {-# LINE 6837 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _blocksOnextVisitDecls =- ({-# LINE 648 "src-ag/GenerateCode.ag" #-}- _lhsInextVisitDecls- {-# LINE 6843 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _blocksOoptCase =- ({-# LINE 648 "src-ag/GenerateCode.ag" #-}- _lhsIoptCase- {-# LINE 6849 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _blocksOprefix =- ({-# LINE 648 "src-ag/GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 6855 "dist/build/GenerateCode" #-}- )- ( _blocksIcallExpr,_blocksIdecls,_blocksIfreeVars) =- blocks_ _blocksOblockNr _blocksOlastExprVars _blocksOnextVisitDecls _blocksOoptCase _blocksOprefix- in ( _lhsOfirstCall,_lhsOlambdas))))--- Pattern ------------------------------------------------------{-- visit 0:- synthesized attributes:- copy : Pattern - definedInsts : [Identifier]- patternAttributes : [(Identifier, Identifier)]- alternatives:- alternative Alias:- child field : {Identifier}- child attr : {Identifier}- child pat : Pattern - 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) =- (sem_Pattern_Alias _field _attr (sem_Pattern _pat))-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,([Identifier]),([(Identifier, Identifier)])))-data Inh_Pattern = Inh_Pattern {}-data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern),definedInsts_Syn_Pattern :: !(([Identifier])),patternAttributes_Syn_Pattern :: !(([(Identifier, Identifier)]))}-wrap_Pattern :: T_Pattern ->- Inh_Pattern ->- Syn_Pattern-wrap_Pattern (T_Pattern sem) (Inh_Pattern) =- (let ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes) = sem- in (Syn_Pattern _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes))-sem_Pattern_Alias :: Identifier ->- Identifier ->- T_Pattern ->- T_Pattern-sem_Pattern_Alias field_ attr_ (T_Pattern pat_) =- (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])- _lhsOpatternAttributes :: ([(Identifier, Identifier)])- _lhsOcopy :: Pattern- _patIcopy :: Pattern- _patIdefinedInsts :: ([Identifier])- _patIpatternAttributes :: ([(Identifier, Identifier)])- -- "src-ag/GenerateCode.ag"(line 263, column 11)- _lhsOdefinedInsts =- ({-# LINE 263 "src-ag/GenerateCode.ag" #-}- (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts- {-# LINE 6931 "dist/build/GenerateCode" #-}- )- -- "src-ag/GenerateCode.ag"(line 271, column 7)- _lhsOpatternAttributes =- ({-# LINE 271 "src-ag/GenerateCode.ag" #-}- (field_,attr_) : _patIpatternAttributes- {-# LINE 6937 "dist/build/GenerateCode" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Alias field_ attr_ _patIcopy- {-# LINE 6943 "dist/build/GenerateCode" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 6949 "dist/build/GenerateCode" #-}- )- ( _patIcopy,_patIdefinedInsts,_patIpatternAttributes) =- pat_- in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)))-sem_Pattern_Constr :: ConstructorIdent ->- T_Patterns ->- T_Pattern-sem_Pattern_Constr name_ (T_Patterns pats_) =- (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])- _lhsOpatternAttributes :: ([(Identifier, Identifier)])- _lhsOcopy :: Pattern- _patsIcopy :: Patterns- _patsIdefinedInsts :: ([Identifier])- _patsIpatternAttributes :: ([(Identifier, Identifier)])- -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)- _lhsOdefinedInsts =- ({-# LINE 261 "src-ag/GenerateCode.ag" #-}- _patsIdefinedInsts- {-# LINE 6968 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 268, column 47)- _lhsOpatternAttributes =- ({-# LINE 268 "src-ag/GenerateCode.ag" #-}- _patsIpatternAttributes- {-# LINE 6974 "dist/build/GenerateCode" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Constr name_ _patsIcopy- {-# LINE 6980 "dist/build/GenerateCode" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 6986 "dist/build/GenerateCode" #-}- )- ( _patsIcopy,_patsIdefinedInsts,_patsIpatternAttributes) =- pats_- in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)))-sem_Pattern_Irrefutable :: T_Pattern ->- T_Pattern-sem_Pattern_Irrefutable (T_Pattern pat_) =- (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])- _lhsOpatternAttributes :: ([(Identifier, Identifier)])- _lhsOcopy :: Pattern- _patIcopy :: Pattern- _patIdefinedInsts :: ([Identifier])- _patIpatternAttributes :: ([(Identifier, Identifier)])- -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)- _lhsOdefinedInsts =- ({-# LINE 261 "src-ag/GenerateCode.ag" #-}- _patIdefinedInsts- {-# LINE 7004 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 268, column 47)- _lhsOpatternAttributes =- ({-# LINE 268 "src-ag/GenerateCode.ag" #-}- _patIpatternAttributes- {-# LINE 7010 "dist/build/GenerateCode" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Irrefutable _patIcopy- {-# LINE 7016 "dist/build/GenerateCode" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 7022 "dist/build/GenerateCode" #-}- )- ( _patIcopy,_patIdefinedInsts,_patIpatternAttributes) =- pat_- in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)))-sem_Pattern_Product :: Pos ->- T_Patterns ->- T_Pattern-sem_Pattern_Product pos_ (T_Patterns pats_) =- (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])- _lhsOpatternAttributes :: ([(Identifier, Identifier)])- _lhsOcopy :: Pattern- _patsIcopy :: Patterns- _patsIdefinedInsts :: ([Identifier])- _patsIpatternAttributes :: ([(Identifier, Identifier)])- -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)- _lhsOdefinedInsts =- ({-# LINE 261 "src-ag/GenerateCode.ag" #-}- _patsIdefinedInsts- {-# LINE 7041 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 268, column 47)- _lhsOpatternAttributes =- ({-# LINE 268 "src-ag/GenerateCode.ag" #-}- _patsIpatternAttributes- {-# LINE 7047 "dist/build/GenerateCode" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Product pos_ _patsIcopy- {-# LINE 7053 "dist/build/GenerateCode" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 7059 "dist/build/GenerateCode" #-}- )- ( _patsIcopy,_patsIdefinedInsts,_patsIpatternAttributes) =- pats_- in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)))-sem_Pattern_Underscore :: Pos ->- T_Pattern-sem_Pattern_Underscore pos_ =- (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])- _lhsOpatternAttributes :: ([(Identifier, Identifier)])- _lhsOcopy :: Pattern- -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)- _lhsOdefinedInsts =- ({-# LINE 261 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 7074 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 268, column 47)- _lhsOpatternAttributes =- ({-# LINE 268 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 7080 "dist/build/GenerateCode" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Underscore pos_- {-# LINE 7086 "dist/build/GenerateCode" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 7092 "dist/build/GenerateCode" #-}- )- in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)))--- Patterns -----------------------------------------------------{-- visit 0:- synthesized attributes:- copy : Patterns - definedInsts : [Identifier]- patternAttributes : [(Identifier, Identifier)]- 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,([Identifier]),([(Identifier, Identifier)])))-data Inh_Patterns = Inh_Patterns {}-data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns),definedInsts_Syn_Patterns :: !(([Identifier])),patternAttributes_Syn_Patterns :: !(([(Identifier, Identifier)]))}-wrap_Patterns :: T_Patterns ->- Inh_Patterns ->- Syn_Patterns-wrap_Patterns (T_Patterns sem) (Inh_Patterns) =- (let ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes) = sem- in (Syn_Patterns _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes))-sem_Patterns_Cons :: T_Pattern ->- T_Patterns ->- T_Patterns-sem_Patterns_Cons (T_Pattern hd_) (T_Patterns tl_) =- (T_Patterns (let _lhsOdefinedInsts :: ([Identifier])- _lhsOpatternAttributes :: ([(Identifier, Identifier)])- _lhsOcopy :: Patterns- _hdIcopy :: Pattern- _hdIdefinedInsts :: ([Identifier])- _hdIpatternAttributes :: ([(Identifier, Identifier)])- _tlIcopy :: Patterns- _tlIdefinedInsts :: ([Identifier])- _tlIpatternAttributes :: ([(Identifier, Identifier)])- -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)- _lhsOdefinedInsts =- ({-# LINE 261 "src-ag/GenerateCode.ag" #-}- _hdIdefinedInsts ++ _tlIdefinedInsts- {-# LINE 7144 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 268, column 47)- _lhsOpatternAttributes =- ({-# LINE 268 "src-ag/GenerateCode.ag" #-}- _hdIpatternAttributes ++ _tlIpatternAttributes- {-# LINE 7150 "dist/build/GenerateCode" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- (:) _hdIcopy _tlIcopy- {-# LINE 7156 "dist/build/GenerateCode" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 7162 "dist/build/GenerateCode" #-}- )- ( _hdIcopy,_hdIdefinedInsts,_hdIpatternAttributes) =- hd_- ( _tlIcopy,_tlIdefinedInsts,_tlIpatternAttributes) =- tl_- in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)))-sem_Patterns_Nil :: T_Patterns-sem_Patterns_Nil =- (T_Patterns (let _lhsOdefinedInsts :: ([Identifier])- _lhsOpatternAttributes :: ([(Identifier, Identifier)])- _lhsOcopy :: Patterns- -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)- _lhsOdefinedInsts =- ({-# LINE 261 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 7178 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 268, column 47)- _lhsOpatternAttributes =- ({-# LINE 268 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 7184 "dist/build/GenerateCode" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- []- {-# LINE 7190 "dist/build/GenerateCode" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 7196 "dist/build/GenerateCode" #-}- )- in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)))--- Sequence -----------------------------------------------------{-- visit 0:- inherited attributes:- allNts : Set NontermIdent- aroundMap : Set Identifier- children : [(Identifier,Type,ChildKind)]- con : ConstructorIdent- inh : Attributes- instVisitNrs : Map Identifier Int- lastExpr : Expr- mergeMap : Map Identifier (Identifier, [Identifier])- nr : Int- nt : NontermIdent- o_case : Bool- o_cata : Bool- o_costcentre : Bool- o_data : Maybe Bool- o_linePragmas : Bool- o_monadic : Bool- o_newtypes : Bool- o_pretty : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_splitsems : Bool- o_strictwrap : Bool- o_traces : Bool- o_unbox : Bool- options : Options- paramInstMap : Map Identifier (NontermIdent, [String])- paramMap : ParamMap- prefix : String- syn : Attributes- terminals : [Identifier]- unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type- what : String- chained attributes:- declsAbove : [Decl]- visitedSet : Set Identifier- synthesized attributes:- allTpsFound : Bool- blockDecls : DeclBlocks - comments : [String]- decls : Decls- definedInsts : [Identifier]- exprs : Exprs- tSigs : [Decl]- tps : [Type]- usedVars : Set String- alternatives:- alternative Cons:- child hd : CRule - child tl : Sequence - alternative Nil:--}--- cata-sem_Sequence :: Sequence ->- T_Sequence-sem_Sequence list =- (Prelude.foldr sem_Sequence_Cons sem_Sequence_Nil (Prelude.map sem_CRule list))--- semantic domain-newtype T_Sequence = T_Sequence ((Set NontermIdent) ->- (Set Identifier) ->- ([(Identifier,Type,ChildKind)]) ->- ConstructorIdent ->- ([Decl]) ->- Attributes ->- (Map Identifier Int) ->- Expr ->- (Map Identifier (Identifier, [Identifier])) ->- Int ->- NontermIdent ->- Bool ->- Bool ->- Bool ->- (Maybe Bool) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Options ->- (Map Identifier (NontermIdent, [String])) ->- ParamMap ->- String ->- Attributes ->- ([Identifier]) ->- (NontermIdent -> Int -> [String] -> Code.Type) ->- (Set Identifier) ->- String ->- ( Bool,DeclBlocks,([String]),Decls,([Decl]),([Identifier]),Exprs,([Decl]),([Type]),(Set String),(Set Identifier)))-data Inh_Sequence = Inh_Sequence {allNts_Inh_Sequence :: !((Set NontermIdent)),aroundMap_Inh_Sequence :: !((Set Identifier)),children_Inh_Sequence :: !(([(Identifier,Type,ChildKind)])),con_Inh_Sequence :: !(ConstructorIdent),declsAbove_Inh_Sequence :: !(([Decl])),inh_Inh_Sequence :: !(Attributes),instVisitNrs_Inh_Sequence :: !((Map Identifier Int)),lastExpr_Inh_Sequence :: !(Expr),mergeMap_Inh_Sequence :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_Sequence :: !(Int),nt_Inh_Sequence :: !(NontermIdent),o_case_Inh_Sequence :: !(Bool),o_cata_Inh_Sequence :: !(Bool),o_costcentre_Inh_Sequence :: !(Bool),o_data_Inh_Sequence :: !((Maybe Bool)),o_linePragmas_Inh_Sequence :: !(Bool),o_monadic_Inh_Sequence :: !(Bool),o_newtypes_Inh_Sequence :: !(Bool),o_pretty_Inh_Sequence :: !(Bool),o_rename_Inh_Sequence :: !(Bool),o_sem_Inh_Sequence :: !(Bool),o_sig_Inh_Sequence :: !(Bool),o_splitsems_Inh_Sequence :: !(Bool),o_strictwrap_Inh_Sequence :: !(Bool),o_traces_Inh_Sequence :: !(Bool),o_unbox_Inh_Sequence :: !(Bool),options_Inh_Sequence :: !(Options),paramInstMap_Inh_Sequence :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_Sequence :: !(ParamMap),prefix_Inh_Sequence :: !(String),syn_Inh_Sequence :: !(Attributes),terminals_Inh_Sequence :: !(([Identifier])),unfoldSemDom_Inh_Sequence :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_Sequence :: !((Set Identifier)),what_Inh_Sequence :: !(String)}-data Syn_Sequence = Syn_Sequence {allTpsFound_Syn_Sequence :: !(Bool),blockDecls_Syn_Sequence :: !(DeclBlocks),comments_Syn_Sequence :: !(([String])),decls_Syn_Sequence :: !(Decls),declsAbove_Syn_Sequence :: !(([Decl])),definedInsts_Syn_Sequence :: !(([Identifier])),exprs_Syn_Sequence :: !(Exprs),tSigs_Syn_Sequence :: !(([Decl])),tps_Syn_Sequence :: !(([Type])),usedVars_Syn_Sequence :: !((Set String)),visitedSet_Syn_Sequence :: !((Set Identifier))}-wrap_Sequence :: T_Sequence ->- Inh_Sequence ->- Syn_Sequence-wrap_Sequence (T_Sequence sem) (Inh_Sequence _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsIlastExpr _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat) =- (let ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet) = sem _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsIlastExpr _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat- in (Syn_Sequence _lhsOallTpsFound _lhsOblockDecls _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars _lhsOvisitedSet))-sem_Sequence_Cons :: T_CRule ->- T_Sequence ->- T_Sequence-sem_Sequence_Cons (T_CRule hd_) (T_Sequence tl_) =- (T_Sequence (\ _lhsIallNts- _lhsIaroundMap- _lhsIchildren- _lhsIcon- _lhsIdeclsAbove- _lhsIinh- _lhsIinstVisitNrs- _lhsIlastExpr- _lhsImergeMap- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamInstMap- _lhsIparamMap- _lhsIprefix- _lhsIsyn- _lhsIterminals- _lhsIunfoldSemDom- _lhsIvisitedSet- _lhsIwhat ->- (let _lhsOblockDecls :: DeclBlocks- _lhsOallTpsFound :: Bool- _lhsOcomments :: ([String])- _lhsOdecls :: Decls- _lhsOdefinedInsts :: ([Identifier])- _lhsOexprs :: Exprs- _lhsOtSigs :: ([Decl])- _lhsOtps :: ([Type])- _lhsOusedVars :: (Set String)- _lhsOdeclsAbove :: ([Decl])- _lhsOvisitedSet :: (Set Identifier)- _hdOallNts :: (Set NontermIdent)- _hdOaroundMap :: (Set Identifier)- _hdOchildren :: ([(Identifier,Type,ChildKind)])- _hdOcon :: ConstructorIdent- _hdOdeclsAbove :: ([Decl])- _hdOinh :: Attributes- _hdOinstVisitNrs :: (Map Identifier Int)- _hdOmergeMap :: (Map Identifier (Identifier, [Identifier]))- _hdOnr :: Int- _hdOnt :: NontermIdent- _hdOo_case :: Bool- _hdOo_cata :: Bool- _hdOo_costcentre :: Bool- _hdOo_data :: (Maybe Bool)- _hdOo_linePragmas :: Bool- _hdOo_monadic :: Bool- _hdOo_newtypes :: Bool- _hdOo_pretty :: Bool- _hdOo_rename :: Bool- _hdOo_sem :: Bool- _hdOo_sig :: Bool- _hdOo_splitsems :: Bool- _hdOo_strictwrap :: Bool- _hdOo_traces :: Bool- _hdOo_unbox :: Bool- _hdOoptions :: Options- _hdOparamInstMap :: (Map Identifier (NontermIdent, [String]))- _hdOparamMap :: ParamMap- _hdOprefix :: String- _hdOsyn :: Attributes- _hdOterminals :: ([Identifier])- _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _hdOvisitedSet :: (Set Identifier)- _hdOwhat :: String- _tlOallNts :: (Set NontermIdent)- _tlOaroundMap :: (Set Identifier)- _tlOchildren :: ([(Identifier,Type,ChildKind)])- _tlOcon :: ConstructorIdent- _tlOdeclsAbove :: ([Decl])- _tlOinh :: Attributes- _tlOinstVisitNrs :: (Map Identifier Int)- _tlOlastExpr :: Expr- _tlOmergeMap :: (Map Identifier (Identifier, [Identifier]))- _tlOnr :: Int- _tlOnt :: NontermIdent- _tlOo_case :: Bool- _tlOo_cata :: Bool- _tlOo_costcentre :: Bool- _tlOo_data :: (Maybe Bool)- _tlOo_linePragmas :: Bool- _tlOo_monadic :: Bool- _tlOo_newtypes :: Bool- _tlOo_pretty :: Bool- _tlOo_rename :: Bool- _tlOo_sem :: Bool- _tlOo_sig :: Bool- _tlOo_splitsems :: Bool- _tlOo_strictwrap :: Bool- _tlOo_traces :: Bool- _tlOo_unbox :: Bool- _tlOoptions :: Options- _tlOparamInstMap :: (Map Identifier (NontermIdent, [String]))- _tlOparamMap :: ParamMap- _tlOprefix :: String- _tlOsyn :: Attributes- _tlOterminals :: ([Identifier])- _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)- _tlOvisitedSet :: (Set Identifier)- _tlOwhat :: String- _hdIallTpsFound :: Bool- _hdIbldBlocksFun :: (DeclBlocks -> DeclBlocks)- _hdIcomments :: ([String])- _hdIdecls :: Decls- _hdIdeclsAbove :: ([Decl])- _hdIdefinedInsts :: ([Identifier])- _hdIexprs :: Exprs- _hdItSigs :: ([Decl])- _hdItps :: ([Type])- _hdIusedVars :: (Set String)- _hdIvisitedSet :: (Set Identifier)- _tlIallTpsFound :: Bool- _tlIblockDecls :: DeclBlocks- _tlIcomments :: ([String])- _tlIdecls :: Decls- _tlIdeclsAbove :: ([Decl])- _tlIdefinedInsts :: ([Identifier])- _tlIexprs :: Exprs- _tlItSigs :: ([Decl])- _tlItps :: ([Type])- _tlIusedVars :: (Set String)- _tlIvisitedSet :: (Set Identifier)- -- "src-ag/GenerateCode.ag"(line 622, column 7)- _lhsOblockDecls =- ({-# LINE 622 "src-ag/GenerateCode.ag" #-}- _hdIbldBlocksFun _tlIblockDecls- {-# LINE 7450 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 416, column 39)- _lhsOallTpsFound =- ({-# LINE 416 "src-ag/GenerateCode.ag" #-}- _hdIallTpsFound && _tlIallTpsFound- {-# LINE 7456 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)- _lhsOcomments =- ({-# LINE 868 "src-ag/GenerateCode.ag" #-}- _hdIcomments ++ _tlIcomments- {-# LINE 7462 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 155, column 34)- _lhsOdecls =- ({-# LINE 155 "src-ag/GenerateCode.ag" #-}- _hdIdecls ++ _tlIdecls- {-# LINE 7468 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)- _lhsOdefinedInsts =- ({-# LINE 261 "src-ag/GenerateCode.ag" #-}- _hdIdefinedInsts ++ _tlIdefinedInsts- {-# LINE 7474 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 334, column 34)- _lhsOexprs =- ({-# LINE 334 "src-ag/GenerateCode.ag" #-}- _hdIexprs ++ _tlIexprs- {-# LINE 7480 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 363, column 33)- _lhsOtSigs =- ({-# LINE 363 "src-ag/GenerateCode.ag" #-}- _hdItSigs ++ _tlItSigs- {-# LINE 7486 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 415, column 31)- _lhsOtps =- ({-# LINE 415 "src-ag/GenerateCode.ag" #-}- _hdItps ++ _tlItps- {-# LINE 7492 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 352, column 37)- _lhsOusedVars =- ({-# LINE 352 "src-ag/GenerateCode.ag" #-}- _hdIusedVars `Set.union` _tlIusedVars- {-# LINE 7498 "dist/build/GenerateCode" #-}- )- -- copy rule (up)- _lhsOdeclsAbove =- ({-# LINE 608 "src-ag/GenerateCode.ag" #-}- _tlIdeclsAbove- {-# LINE 7504 "dist/build/GenerateCode" #-}- )- -- copy rule (up)- _lhsOvisitedSet =- ({-# LINE 145 "src-ag/GenerateCode.ag" #-}- _tlIvisitedSet- {-# LINE 7510 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOallNts =- ({-# LINE 132 "src-ag/GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 7516 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOaroundMap =- ({-# LINE 580 "src-ag/GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 7522 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOchildren =- ({-# LINE 259 "src-ag/GenerateCode.ag" #-}- _lhsIchildren- {-# LINE 7528 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOcon =- ({-# LINE 89 "src-ag/GenerateCode.ag" #-}- _lhsIcon- {-# LINE 7534 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOdeclsAbove =- ({-# LINE 608 "src-ag/GenerateCode.ag" #-}- _lhsIdeclsAbove- {-# LINE 7540 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOinh =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIinh- {-# LINE 7546 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOinstVisitNrs =- ({-# LINE 560 "src-ag/GenerateCode.ag" #-}- _lhsIinstVisitNrs- {-# LINE 7552 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOmergeMap =- ({-# LINE 596 "src-ag/GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 7558 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOnr =- ({-# LINE 278 "src-ag/GenerateCode.ag" #-}- _lhsInr- {-# LINE 7564 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOnt =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsInt- {-# LINE 7570 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_case =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 7576 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_cata =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 7582 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_costcentre =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 7588 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_data =- ({-# LINE 48 "src-ag/GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 7594 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_linePragmas =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 7600 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_monadic =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 7606 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_newtypes =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 7612 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_pretty =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 7618 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_rename =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 7624 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_sem =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 7630 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_sig =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 7636 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_splitsems =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 7642 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_strictwrap =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 7648 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_traces =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 7654 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOo_unbox =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 7660 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 50 "src-ag/GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 7666 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOparamInstMap =- ({-# LINE 101 "src-ag/GenerateCode.ag" #-}- _lhsIparamInstMap- {-# LINE 7672 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOparamMap =- ({-# LINE 95 "src-ag/GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 7678 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOprefix =- ({-# LINE 49 "src-ag/GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 7684 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOsyn =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 7690 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOterminals =- ({-# LINE 90 "src-ag/GenerateCode.ag" #-}- _lhsIterminals- {-# LINE 7696 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOunfoldSemDom =- ({-# LINE 750 "src-ag/GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 7702 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOvisitedSet =- ({-# LINE 145 "src-ag/GenerateCode.ag" #-}- _lhsIvisitedSet- {-# LINE 7708 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _hdOwhat =- ({-# LINE 870 "src-ag/GenerateCode.ag" #-}- _lhsIwhat- {-# LINE 7714 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOallNts =- ({-# LINE 132 "src-ag/GenerateCode.ag" #-}- _lhsIallNts- {-# LINE 7720 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOaroundMap =- ({-# LINE 580 "src-ag/GenerateCode.ag" #-}- _lhsIaroundMap- {-# LINE 7726 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOchildren =- ({-# LINE 259 "src-ag/GenerateCode.ag" #-}- _lhsIchildren- {-# LINE 7732 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOcon =- ({-# LINE 89 "src-ag/GenerateCode.ag" #-}- _lhsIcon- {-# LINE 7738 "dist/build/GenerateCode" #-}- )- -- copy rule (chain)- _tlOdeclsAbove =- ({-# LINE 608 "src-ag/GenerateCode.ag" #-}- _hdIdeclsAbove- {-# LINE 7744 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOinh =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIinh- {-# LINE 7750 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOinstVisitNrs =- ({-# LINE 560 "src-ag/GenerateCode.ag" #-}- _lhsIinstVisitNrs- {-# LINE 7756 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOlastExpr =- ({-# LINE 606 "src-ag/GenerateCode.ag" #-}- _lhsIlastExpr- {-# LINE 7762 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOmergeMap =- ({-# LINE 596 "src-ag/GenerateCode.ag" #-}- _lhsImergeMap- {-# LINE 7768 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOnr =- ({-# LINE 278 "src-ag/GenerateCode.ag" #-}- _lhsInr- {-# LINE 7774 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOnt =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsInt- {-# LINE 7780 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_case =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_case- {-# LINE 7786 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_cata =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_cata- {-# LINE 7792 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_costcentre =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_costcentre- {-# LINE 7798 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_data =- ({-# LINE 48 "src-ag/GenerateCode.ag" #-}- _lhsIo_data- {-# LINE 7804 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_linePragmas =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_linePragmas- {-# LINE 7810 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_monadic =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_monadic- {-# LINE 7816 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_newtypes =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_newtypes- {-# LINE 7822 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_pretty =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_pretty- {-# LINE 7828 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_rename =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_rename- {-# LINE 7834 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_sem =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sem- {-# LINE 7840 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_sig =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_sig- {-# LINE 7846 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_splitsems =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_splitsems- {-# LINE 7852 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_strictwrap =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_strictwrap- {-# LINE 7858 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_traces =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_traces- {-# LINE 7864 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOo_unbox =- ({-# LINE 47 "src-ag/GenerateCode.ag" #-}- _lhsIo_unbox- {-# LINE 7870 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 50 "src-ag/GenerateCode.ag" #-}- _lhsIoptions- {-# LINE 7876 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOparamInstMap =- ({-# LINE 101 "src-ag/GenerateCode.ag" #-}- _lhsIparamInstMap- {-# LINE 7882 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOparamMap =- ({-# LINE 95 "src-ag/GenerateCode.ag" #-}- _lhsIparamMap- {-# LINE 7888 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOprefix =- ({-# LINE 49 "src-ag/GenerateCode.ag" #-}- _lhsIprefix- {-# LINE 7894 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOsyn =- ({-# LINE 84 "src-ag/GenerateCode.ag" #-}- _lhsIsyn- {-# LINE 7900 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOterminals =- ({-# LINE 90 "src-ag/GenerateCode.ag" #-}- _lhsIterminals- {-# LINE 7906 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOunfoldSemDom =- ({-# LINE 750 "src-ag/GenerateCode.ag" #-}- _lhsIunfoldSemDom- {-# LINE 7912 "dist/build/GenerateCode" #-}- )- -- copy rule (chain)- _tlOvisitedSet =- ({-# LINE 145 "src-ag/GenerateCode.ag" #-}- _hdIvisitedSet- {-# LINE 7918 "dist/build/GenerateCode" #-}- )- -- copy rule (down)- _tlOwhat =- ({-# LINE 870 "src-ag/GenerateCode.ag" #-}- _lhsIwhat- {-# LINE 7924 "dist/build/GenerateCode" #-}- )- ( _hdIallTpsFound,_hdIbldBlocksFun,_hdIcomments,_hdIdecls,_hdIdeclsAbove,_hdIdefinedInsts,_hdIexprs,_hdItSigs,_hdItps,_hdIusedVars,_hdIvisitedSet) =- hd_ _hdOallNts _hdOaroundMap _hdOchildren _hdOcon _hdOdeclsAbove _hdOinh _hdOinstVisitNrs _hdOmergeMap _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamInstMap _hdOparamMap _hdOprefix _hdOsyn _hdOterminals _hdOunfoldSemDom _hdOvisitedSet _hdOwhat- ( _tlIallTpsFound,_tlIblockDecls,_tlIcomments,_tlIdecls,_tlIdeclsAbove,_tlIdefinedInsts,_tlIexprs,_tlItSigs,_tlItps,_tlIusedVars,_tlIvisitedSet) =- tl_ _tlOallNts _tlOaroundMap _tlOchildren _tlOcon _tlOdeclsAbove _tlOinh _tlOinstVisitNrs _tlOlastExpr _tlOmergeMap _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamInstMap _tlOparamMap _tlOprefix _tlOsyn _tlOterminals _tlOunfoldSemDom _tlOvisitedSet _tlOwhat- in ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))))-sem_Sequence_Nil :: T_Sequence-sem_Sequence_Nil =- (T_Sequence (\ _lhsIallNts- _lhsIaroundMap- _lhsIchildren- _lhsIcon- _lhsIdeclsAbove- _lhsIinh- _lhsIinstVisitNrs- _lhsIlastExpr- _lhsImergeMap- _lhsInr- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_costcentre- _lhsIo_data- _lhsIo_linePragmas- _lhsIo_monadic- _lhsIo_newtypes- _lhsIo_pretty- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_splitsems- _lhsIo_strictwrap- _lhsIo_traces- _lhsIo_unbox- _lhsIoptions- _lhsIparamInstMap- _lhsIparamMap- _lhsIprefix- _lhsIsyn- _lhsIterminals- _lhsIunfoldSemDom- _lhsIvisitedSet- _lhsIwhat ->- (let _lhsOblockDecls :: DeclBlocks- _lhsOallTpsFound :: Bool- _lhsOcomments :: ([String])- _lhsOdecls :: Decls- _lhsOdefinedInsts :: ([Identifier])- _lhsOexprs :: Exprs- _lhsOtSigs :: ([Decl])- _lhsOtps :: ([Type])- _lhsOusedVars :: (Set String)- _lhsOdeclsAbove :: ([Decl])- _lhsOvisitedSet :: (Set Identifier)- -- "src-ag/GenerateCode.ag"(line 624, column 7)- _lhsOblockDecls =- ({-# LINE 624 "src-ag/GenerateCode.ag" #-}- DeclTerminator _lhsIdeclsAbove _lhsIlastExpr- {-# LINE 7983 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 416, column 39)- _lhsOallTpsFound =- ({-# LINE 416 "src-ag/GenerateCode.ag" #-}- True- {-# LINE 7989 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)- _lhsOcomments =- ({-# LINE 868 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 7995 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 155, column 34)- _lhsOdecls =- ({-# LINE 155 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 8001 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)- _lhsOdefinedInsts =- ({-# LINE 261 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 8007 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 334, column 34)- _lhsOexprs =- ({-# LINE 334 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 8013 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 363, column 33)- _lhsOtSigs =- ({-# LINE 363 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 8019 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 415, column 31)- _lhsOtps =- ({-# LINE 415 "src-ag/GenerateCode.ag" #-}- []- {-# LINE 8025 "dist/build/GenerateCode" #-}- )- -- use rule "src-ag/GenerateCode.ag"(line 352, column 37)- _lhsOusedVars =- ({-# LINE 352 "src-ag/GenerateCode.ag" #-}- Set.empty- {-# LINE 8031 "dist/build/GenerateCode" #-}- )- -- copy rule (chain)- _lhsOdeclsAbove =- ({-# LINE 608 "src-ag/GenerateCode.ag" #-}- _lhsIdeclsAbove- {-# LINE 8037 "dist/build/GenerateCode" #-}- )- -- copy rule (chain)- _lhsOvisitedSet =- ({-# LINE 145 "src-ag/GenerateCode.ag" #-}- _lhsIvisitedSet- {-# LINE 8043 "dist/build/GenerateCode" #-}- )+ ___node =+ (Syn_CGrammar _lhsOerrors _lhsOoutput)+ in ( _lhsOerrors,_lhsOoutput))))+-- CInterface --------------------------------------------------+{-+ visit 0:+ inherited attributes:+ inh : Attributes+ nt : NontermIdent+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramMap : ParamMap+ prefix : String+ syn : Attributes+ synthesized attributes:+ comments : [String]+ semDom : [Decl]+ semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)+ wrapDecls : Decls+ alternatives:+ alternative CInterface:+ child seg : CSegments +-}+-- cata+sem_CInterface :: CInterface ->+ T_CInterface+sem_CInterface (CInterface _seg) =+ (sem_CInterface_CInterface (sem_CSegments _seg))+-- semantic domain+newtype T_CInterface = T_CInterface (Attributes ->+ NontermIdent ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ ParamMap ->+ String ->+ Attributes ->+ ( ([String]),([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls))+data Inh_CInterface = Inh_CInterface {inh_Inh_CInterface :: !(Attributes),nt_Inh_CInterface :: !(NontermIdent),o_case_Inh_CInterface :: !(Bool),o_cata_Inh_CInterface :: !(Bool),o_costcentre_Inh_CInterface :: !(Bool),o_data_Inh_CInterface :: !((Maybe Bool)),o_linePragmas_Inh_CInterface :: !(Bool),o_monadic_Inh_CInterface :: !(Bool),o_newtypes_Inh_CInterface :: !(Bool),o_pretty_Inh_CInterface :: !(Bool),o_rename_Inh_CInterface :: !(Bool),o_sem_Inh_CInterface :: !(Bool),o_sig_Inh_CInterface :: !(Bool),o_splitsems_Inh_CInterface :: !(Bool),o_strictwrap_Inh_CInterface :: !(Bool),o_traces_Inh_CInterface :: !(Bool),o_unbox_Inh_CInterface :: !(Bool),options_Inh_CInterface :: !(Options),paramMap_Inh_CInterface :: !(ParamMap),prefix_Inh_CInterface :: !(String),syn_Inh_CInterface :: !(Attributes)}+data Syn_CInterface = Syn_CInterface {comments_Syn_CInterface :: !(([String])),semDom_Syn_CInterface :: !(([Decl])),semDomUnfoldGath_Syn_CInterface :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CInterface :: !(Decls)}+wrap_CInterface :: T_CInterface ->+ Inh_CInterface ->+ Syn_CInterface+wrap_CInterface (T_CInterface sem) (Inh_CInterface _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn) =+ (let ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn+ in (Syn_CInterface _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls))+sem_CInterface_CInterface :: T_CSegments ->+ T_CInterface+sem_CInterface_CInterface (T_CSegments seg_) =+ (T_CInterface (\ _lhsIinh+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn ->+ (let _segOnr :: Int+ _lhsOsemDom :: ([Decl])+ _lhsOcomments :: ([String])+ _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _lhsOwrapDecls :: Decls+ _segOinh :: Attributes+ _segOnt :: NontermIdent+ _segOo_case :: Bool+ _segOo_cata :: Bool+ _segOo_costcentre :: Bool+ _segOo_data :: (Maybe Bool)+ _segOo_linePragmas :: Bool+ _segOo_monadic :: Bool+ _segOo_newtypes :: Bool+ _segOo_pretty :: Bool+ _segOo_rename :: Bool+ _segOo_sem :: Bool+ _segOo_sig :: Bool+ _segOo_splitsems :: Bool+ _segOo_strictwrap :: Bool+ _segOo_traces :: Bool+ _segOo_unbox :: Bool+ _segOoptions :: Options+ _segOparamMap :: ParamMap+ _segOprefix :: String+ _segOsyn :: Attributes+ _segIcomments :: ([String])+ _segIisNil :: Bool+ _segIsemDom :: ([Decl])+ _segIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _segIwrapDecls :: Decls+ -- "src-ag/GenerateCode.ag"(line 284, column 17)+ _segOnr =+ ({-# LINE 284 "src-ag/GenerateCode.ag" #-}+ 0+ {-# LINE 696 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 712, column 18)+ _lhsOsemDom =+ ({-# LINE 712 "src-ag/GenerateCode.ag" #-}+ Comment "semantic domain" : _segIsemDom+ {-# LINE 702 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)+ _lhsOcomments =+ ({-# LINE 868 "src-ag/GenerateCode.ag" #-}+ _segIcomments+ {-# LINE 708 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 744, column 86)+ _lhsOsemDomUnfoldGath =+ ({-# LINE 744 "src-ag/GenerateCode.ag" #-}+ _segIsemDomUnfoldGath+ {-# LINE 714 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 829, column 52)+ _lhsOwrapDecls =+ ({-# LINE 829 "src-ag/GenerateCode.ag" #-}+ _segIwrapDecls+ {-# LINE 720 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOinh =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 726 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOnt =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 732 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOo_case =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 738 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOo_cata =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 744 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOo_costcentre =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 750 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOo_data =+ ({-# LINE 48 "src-ag/GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 756 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOo_linePragmas =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 762 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOo_monadic =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 768 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOo_newtypes =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 774 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOo_pretty =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 780 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOo_rename =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 786 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOo_sem =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 792 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOo_sig =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 798 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOo_splitsems =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 804 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOo_strictwrap =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 810 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOo_traces =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 816 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOo_unbox =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 822 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOoptions =+ ({-# LINE 50 "src-ag/GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 828 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOparamMap =+ ({-# LINE 95 "src-ag/GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 834 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOprefix =+ ({-# LINE 49 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 840 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _segOsyn =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 846 "dist/build/GenerateCode" #-}+ )+ ( _segIcomments,_segIisNil,_segIsemDom,_segIsemDomUnfoldGath,_segIwrapDecls) =+ seg_ _segOinh _segOnr _segOnt _segOo_case _segOo_cata _segOo_costcentre _segOo_data _segOo_linePragmas _segOo_monadic _segOo_newtypes _segOo_pretty _segOo_rename _segOo_sem _segOo_sig _segOo_splitsems _segOo_strictwrap _segOo_traces _segOo_unbox _segOoptions _segOparamMap _segOprefix _segOsyn+ ___node =+ (Syn_CInterface _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls)+ in ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))))+-- CNonterminal ------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allNts : Set NontermIdent+ allPragmas : PragmaMap+ aroundMap : Map NontermIdent (Map ConstructorIdent (Set Identifier))+ contextMap : ContextMap+ derivings : Derivings+ mergeMap : Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramMap : ParamMap+ prefix : String+ quantMap : QuantMap+ typeSyns : TypeSyns+ unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type+ with_sig : Bool+ wrappers : Set NontermIdent+ synthesized attributes:+ chunks : Chunks+ gathNts : Set NontermIdent+ semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)+ alternatives:+ alternative CNonterminal:+ child nt : {NontermIdent}+ child params : {[Identifier]}+ child inh : {Attributes}+ child syn : {Attributes}+ child prods : CProductions + child inter : CInterface + visit 0:+ local aroundMap : _+ local mergeMap : _+ local semWrapper : _+ local comment : _+ local dataDef : _+ local genCata : _+ local cataFun : _+-}+-- cata+sem_CNonterminal :: CNonterminal ->+ T_CNonterminal+sem_CNonterminal (CNonterminal _nt _params _inh _syn _prods _inter) =+ (sem_CNonterminal_CNonterminal _nt _params _inh _syn (sem_CProductions _prods) (sem_CInterface _inter))+-- semantic domain+newtype T_CNonterminal = T_CNonterminal ((Set NontermIdent) ->+ PragmaMap ->+ (Map NontermIdent (Map ConstructorIdent (Set Identifier))) ->+ ContextMap ->+ Derivings ->+ (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ ParamMap ->+ String ->+ QuantMap ->+ TypeSyns ->+ (NontermIdent -> Int -> [String] -> Code.Type) ->+ Bool ->+ (Set NontermIdent) ->+ ( Chunks,(Set NontermIdent),(Map (NontermIdent, Int) ([String], Code.Type))))+data Inh_CNonterminal = Inh_CNonterminal {allNts_Inh_CNonterminal :: !((Set NontermIdent)),allPragmas_Inh_CNonterminal :: !(PragmaMap),aroundMap_Inh_CNonterminal :: !((Map NontermIdent (Map ConstructorIdent (Set Identifier)))),contextMap_Inh_CNonterminal :: !(ContextMap),derivings_Inh_CNonterminal :: !(Derivings),mergeMap_Inh_CNonterminal :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))),o_case_Inh_CNonterminal :: !(Bool),o_cata_Inh_CNonterminal :: !(Bool),o_costcentre_Inh_CNonterminal :: !(Bool),o_data_Inh_CNonterminal :: !((Maybe Bool)),o_linePragmas_Inh_CNonterminal :: !(Bool),o_monadic_Inh_CNonterminal :: !(Bool),o_newtypes_Inh_CNonterminal :: !(Bool),o_pretty_Inh_CNonterminal :: !(Bool),o_rename_Inh_CNonterminal :: !(Bool),o_sem_Inh_CNonterminal :: !(Bool),o_sig_Inh_CNonterminal :: !(Bool),o_splitsems_Inh_CNonterminal :: !(Bool),o_strictwrap_Inh_CNonterminal :: !(Bool),o_traces_Inh_CNonterminal :: !(Bool),o_unbox_Inh_CNonterminal :: !(Bool),options_Inh_CNonterminal :: !(Options),paramMap_Inh_CNonterminal :: !(ParamMap),prefix_Inh_CNonterminal :: !(String),quantMap_Inh_CNonterminal :: !(QuantMap),typeSyns_Inh_CNonterminal :: !(TypeSyns),unfoldSemDom_Inh_CNonterminal :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CNonterminal :: !(Bool),wrappers_Inh_CNonterminal :: !((Set NontermIdent))}+data Syn_CNonterminal = Syn_CNonterminal {chunks_Syn_CNonterminal :: !(Chunks),gathNts_Syn_CNonterminal :: !((Set NontermIdent)),semDomUnfoldGath_Syn_CNonterminal :: !((Map (NontermIdent, Int) ([String], Code.Type)))}+wrap_CNonterminal :: T_CNonterminal ->+ Inh_CNonterminal ->+ Syn_CNonterminal+wrap_CNonterminal (T_CNonterminal sem) (Inh_CNonterminal _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers) =+ (let ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers+ in (Syn_CNonterminal _lhsOchunks _lhsOgathNts _lhsOsemDomUnfoldGath))+sem_CNonterminal_CNonterminal :: NontermIdent ->+ ([Identifier]) ->+ Attributes ->+ Attributes ->+ T_CProductions ->+ T_CInterface ->+ T_CNonterminal+sem_CNonterminal_CNonterminal nt_ params_ inh_ syn_ (T_CProductions prods_) (T_CInterface inter_) =+ (T_CNonterminal (\ _lhsIallNts+ _lhsIallPragmas+ _lhsIaroundMap+ _lhsIcontextMap+ _lhsIderivings+ _lhsImergeMap+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsIquantMap+ _lhsItypeSyns+ _lhsIunfoldSemDom+ _lhsIwith_sig+ _lhsIwrappers ->+ (let _interOinh :: Attributes+ _interOsyn :: Attributes+ _interOnt :: NontermIdent+ _prodsOinh :: Attributes+ _prodsOsyn :: Attributes+ _prodsOnt :: NontermIdent+ _lhsOgathNts :: (Set NontermIdent)+ _lhsOchunks :: Chunks+ _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _prodsOallNts :: (Set NontermIdent)+ _prodsOallPragmas :: PragmaMap+ _prodsOaroundMap :: (Map ConstructorIdent (Set Identifier))+ _prodsOcontextMap :: ContextMap+ _prodsOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))+ _prodsOo_case :: Bool+ _prodsOo_cata :: Bool+ _prodsOo_costcentre :: Bool+ _prodsOo_data :: (Maybe Bool)+ _prodsOo_linePragmas :: Bool+ _prodsOo_monadic :: Bool+ _prodsOo_newtypes :: Bool+ _prodsOo_pretty :: Bool+ _prodsOo_rename :: Bool+ _prodsOo_sem :: Bool+ _prodsOo_sig :: Bool+ _prodsOo_splitsems :: Bool+ _prodsOo_strictwrap :: Bool+ _prodsOo_traces :: Bool+ _prodsOo_unbox :: Bool+ _prodsOoptions :: Options+ _prodsOparamMap :: ParamMap+ _prodsOprefix :: String+ _prodsOquantMap :: QuantMap+ _prodsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _prodsOwith_sig :: Bool+ _prodsOwrappers :: (Set NontermIdent)+ _interOo_case :: Bool+ _interOo_cata :: Bool+ _interOo_costcentre :: Bool+ _interOo_data :: (Maybe Bool)+ _interOo_linePragmas :: Bool+ _interOo_monadic :: Bool+ _interOo_newtypes :: Bool+ _interOo_pretty :: Bool+ _interOo_rename :: Bool+ _interOo_sem :: Bool+ _interOo_sig :: Bool+ _interOo_splitsems :: Bool+ _interOo_strictwrap :: Bool+ _interOo_traces :: Bool+ _interOo_unbox :: Bool+ _interOoptions :: Options+ _interOparamMap :: ParamMap+ _interOprefix :: String+ _prodsIcataAlts :: Decls+ _prodsIcomments :: ([String])+ _prodsIdataAlts :: DataAlts+ _prodsIdecls :: Decls+ _prodsIsemNames :: ([String])+ _interIcomments :: ([String])+ _interIsemDom :: ([Decl])+ _interIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _interIwrapDecls :: Decls+ -- "src-ag/GenerateCode.ag"(line 86, column 26)+ (_interOinh,_interOsyn,_interOnt) =+ ({-# LINE 86 "src-ag/GenerateCode.ag" #-}+ (inh_,syn_,nt_)+ {-# LINE 1055 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 87, column 25)+ (_prodsOinh,_prodsOsyn,_prodsOnt) =+ ({-# LINE 87 "src-ag/GenerateCode.ag" #-}+ (inh_,syn_,nt_)+ {-# LINE 1061 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 142, column 7)+ _lhsOgathNts =+ ({-# LINE 142 "src-ag/GenerateCode.ag" #-}+ Set.singleton nt_+ {-# LINE 1067 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 583, column 34)+ _aroundMap =+ ({-# LINE 583 "src-ag/GenerateCode.ag" #-}+ Map.findWithDefault Map.empty nt_ _lhsIaroundMap+ {-# LINE 1073 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 599, column 34)+ _mergeMap =+ ({-# LINE 599 "src-ag/GenerateCode.ag" #-}+ Map.findWithDefault Map.empty nt_ _lhsImergeMap+ {-# LINE 1079 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 803, column 18)+ _semWrapper =+ ({-# LINE 803 "src-ag/GenerateCode.ag" #-}+ let params' = map getName params_+ inhAttrs = Map.toList inh_+ synAttrs = Map.toList syn_+ inhVars = [ SimpleExpr (attrname True _LHS a) | (a,_) <- inhAttrs ]+ synVars = [ SimpleExpr (attrname False _LHS a) | (a,_) <- synAttrs ]+ var = "sem"+ wrapNT = "wrap" ++ "_" ++ getName nt_+ inhNT = "Inh" ++ "_" ++ getName nt_+ synNT = "Syn" ++ "_" ++ getName nt_+ varPat = if _lhsIo_newtypes+ then App (sdtype nt_) [SimpleExpr var]+ else SimpleExpr var+ evalTp | null params' = id+ | otherwise = idEvalType+ appParams nm = TypeApp (SimpleType nm) (map SimpleType params')+ typeSig = TSig wrapNT (evalTp $ appParams (sdtype nt_) `Arr` (appParams inhNT `Arr` appParams synNT))+ mkstrict = Named _lhsIo_strictwrap+ mkdata n attrs = Data n params' [Record n [mkstrict (getName f++"_"++n) $ evalTp $ typeToCodeType (Just nt_) params' $ removeDeforested t | (f,t) <- attrs]] False []+ datas = [mkdata inhNT inhAttrs, mkdata synNT synAttrs]+ in datas ++ [ typeSig+ , Decl (Fun wrapNT [varPat, App inhNT inhVars])+ (Let _interIwrapDecls (App synNT synVars))+ Set.empty Set.empty+ ]+ {-# LINE 1108 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 864, column 18)+ _comment =+ ({-# LINE 864 "src-ag/GenerateCode.ag" #-}+ Comment . unlines . map ind $ ( _interIcomments ++ ("alternatives:" : map ind _prodsIcomments) )+ {-# LINE 1114 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 926, column 19)+ _lhsOchunks =+ ({-# LINE 926 "src-ag/GenerateCode.ag" #-}+ [ Chunk (getName nt_)+ (Comment (getName nt_ ++ " " ++ replicate (60 - length (getName nt_)) '-'))+ (if _lhsIo_pretty then [_comment ] else [])+ (if isJust _lhsIo_data then [_dataDef ] else [])+ (if _lhsIo_cata && _genCata then _cataFun else [])+ (if _lhsIo_sig then _interIsemDom else [])+ (if nt_ `Set.member` _lhsIwrappers then _semWrapper else [])+ (if _lhsIo_sem then _prodsIdecls else [])+ (if _lhsIo_sem then _prodsIsemNames else [])+ ]+ {-# LINE 1129 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 995, column 18)+ _dataDef =+ ({-# LINE 995 "src-ag/GenerateCode.ag" #-}+ let params' = map getName params_+ typeSyn tp = let theType =+ case tp of+ CommonTypes.Maybe t -> TMaybe $ typeToCodeType (Just nt_) params' t+ CommonTypes.Either t1 t2 -> TEither (typeToCodeType (Just nt_) params' t1) (typeToCodeType (Just nt_) params' t2)+ CommonTypes.Map t1 t2 -> TMap (typeToCodeType (Just nt_) params' t1) (typeToCodeType (Just nt_) params' t2)+ CommonTypes.IntMap t -> TIntMap $ typeToCodeType (Just nt_) params' t+ CommonTypes.List t -> Code.List $ typeToCodeType (Just nt_) params' t+ CommonTypes.Tuple ts -> Code.TupleType [typeToCodeType (Just nt_) params' t+ | (_,t) <- ts+ ]+ in Code.Type (getName nt_) params' (idEvalType theType)+ derivings = maybe [] (map getName . Set.toList) (Map.lookup nt_ _lhsIderivings)+ dataDef = Data (getName nt_) (map getName params_) _prodsIdataAlts (maybe False id _lhsIo_data) derivings+ in maybe dataDef typeSyn $ lookup nt_ _lhsItypeSyns+ {-# LINE 1149 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 1038, column 18)+ _genCata =+ ({-# LINE 1038 "src-ag/GenerateCode.ag" #-}+ not (nt_ `Set.member` nocatas _lhsIoptions)+ {-# LINE 1155 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 1039, column 18)+ _cataFun =+ ({-# LINE 1039 "src-ag/GenerateCode.ag" #-}+ let appParams nm = TypeApp (SimpleType nm) (map SimpleType (map getName params_))+ evalTp | null params_ = id+ | otherwise = idEvalType+ tSig = TSig (cataname _lhsIprefix nt_)+ (appQuant _lhsIquantMap nt_ $ appContext _lhsIcontextMap nt_ $ evalTp $ appParams (getName nt_) `Arr` appParams (sdtype nt_))+ special typ = case typ of+ CommonTypes.List tp ->+ let cons = SimpleExpr (semname _lhsIprefix nt_ (identifier "Cons"))+ nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil" ))+ arg = SimpleExpr "list"+ rarg = case tp of+ NT t _ _ -> let t' = maybe t id (deforestedNt t)+ in SimpleExpr ("(Prelude.map " ++ (cataname _lhsIprefix t') ++ " list)")+ _ -> arg+ lhs = Fun (cataname _lhsIprefix nt_) [arg]+ rhs = (App "Prelude.foldr" [cons,nil,rarg])+ in [Decl lhs rhs Set.empty Set.empty]+ CommonTypes.Maybe tp ->+ let just = semname _lhsIprefix nt_ (identifier "Just")+ nothing = semname _lhsIprefix nt_ (identifier "Nothing" )+ arg = SimpleExpr "x"+ rarg = case tp of+ NT t _ _ -> let t' = maybe t id (deforestedNt t)+ in App (cataname _lhsIprefix t') [arg]+ _ -> arg+ lhs a = Fun (cataname _lhsIprefix nt_) [a]+ in [Decl (lhs (App "Prelude.Just" [arg])) (App just [rarg]) Set.empty Set.empty+ ,Decl (lhs (SimpleExpr "Prelude.Nothing")) (SimpleExpr nothing) Set.empty Set.empty+ ]+ CommonTypes.Either tp1 tp2 ->+ let left = semname _lhsIprefix nt_ (identifier "Left")+ right = semname _lhsIprefix nt_ (identifier "Right" )+ arg = SimpleExpr "x"+ rarg0 = case tp1 of+ NT t _ _ -> let t' = maybe t id (deforestedNt t)+ in App (cataname _lhsIprefix t') [arg]+ _ -> arg+ rarg1 = case tp2 of+ NT t _ _ -> let t' = maybe t id (deforestedNt t)+ in App (cataname _lhsIprefix t') [arg]+ _ -> arg+ lhs a = Fun (cataname _lhsIprefix nt_) [a]+ in [Decl (lhs (App "Prelude.Left" [arg])) (App left [rarg0]) Set.empty Set.empty+ ,Decl (lhs (App "Prelude.Right" [arg])) (App right [rarg1]) Set.empty Set.empty+ ]+ CommonTypes.Map _ tp ->+ let entry = SimpleExpr (semname _lhsIprefix nt_ (identifier "Entry"))+ nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil"))+ arg = SimpleExpr "m"+ rarg = case tp of+ NT t _ _ -> let t' = maybe t id (deforestedNt t)+ in App "Data.Map.map" [SimpleExpr $ cataname _lhsIprefix t', arg]+ _ -> arg+ lhs = Fun (cataname _lhsIprefix nt_) [arg]+ rhs = App "Data.Map.foldrWithKey" [entry,nil,rarg]+ in [Decl lhs rhs Set.empty Set.empty]+ CommonTypes.IntMap tp ->+ let entry = SimpleExpr (semname _lhsIprefix nt_ (identifier "Entry"))+ nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil"))+ arg = SimpleExpr "m"+ rarg = case tp of+ NT t _ _ -> let t' = maybe t id (deforestedNt t)+ in App "Data.IntMap.map" [SimpleExpr $ cataname _lhsIprefix t', arg]+ _ -> arg+ lhs = Fun (cataname _lhsIprefix nt_) [arg]+ rhs = App "Data.IntMap.foldWithKey" [entry,nil,rarg]+ in [Decl lhs rhs Set.empty Set.empty]+ CommonTypes.Tuple tps ->+ let con = semname _lhsIprefix nt_ (identifier "Tuple")+ tps' = [ (SimpleExpr (getName x),y) | (x,y) <- tps]+ rargs = map rarg tps'+ rarg (n, tp) = case tp of+ NT t _ _ -> let t' = maybe t id (deforestedNt t)+ in App (cataname _lhsIprefix t') [n]+ _ -> n+ lhs = Fun (cataname _lhsIprefix nt_) [TupleExpr (map fst tps')]+ rhs = App con rargs+ in [Decl lhs rhs Set.empty Set.empty]+ in Comment "cata" :+ (if _lhsIo_sig then [tSig] else []) +++ maybe _prodsIcataAlts special (lookup nt_ _lhsItypeSyns)+ {-# LINE 1241 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 744, column 86)+ _lhsOsemDomUnfoldGath =+ ({-# LINE 744 "src-ag/GenerateCode.ag" #-}+ _interIsemDomUnfoldGath+ {-# LINE 1247 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOallNts =+ ({-# LINE 132 "src-ag/GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 1253 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOallPragmas =+ ({-# LINE 73 "src-ag/GenerateCode.ag" #-}+ _lhsIallPragmas+ {-# LINE 1259 "dist/build/GenerateCode" #-}+ )+ -- copy rule (from local)+ _prodsOaroundMap =+ ({-# LINE 578 "src-ag/GenerateCode.ag" #-}+ _aroundMap+ {-# LINE 1265 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOcontextMap =+ ({-# LINE 115 "src-ag/GenerateCode.ag" #-}+ _lhsIcontextMap+ {-# LINE 1271 "dist/build/GenerateCode" #-}+ )+ -- copy rule (from local)+ _prodsOmergeMap =+ ({-# LINE 594 "src-ag/GenerateCode.ag" #-}+ _mergeMap+ {-# LINE 1277 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOo_case =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 1283 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOo_cata =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 1289 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOo_costcentre =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 1295 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOo_data =+ ({-# LINE 48 "src-ag/GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 1301 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOo_linePragmas =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 1307 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOo_monadic =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 1313 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOo_newtypes =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 1319 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOo_pretty =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 1325 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOo_rename =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 1331 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOo_sem =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 1337 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOo_sig =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 1343 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOo_splitsems =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 1349 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOo_strictwrap =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 1355 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOo_traces =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 1361 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOo_unbox =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 1367 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOoptions =+ ({-# LINE 50 "src-ag/GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 1373 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOparamMap =+ ({-# LINE 95 "src-ag/GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 1379 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOprefix =+ ({-# LINE 49 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 1385 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOquantMap =+ ({-# LINE 115 "src-ag/GenerateCode.ag" #-}+ _lhsIquantMap+ {-# LINE 1391 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOunfoldSemDom =+ ({-# LINE 750 "src-ag/GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 1397 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOwith_sig =+ ({-# LINE 851 "src-ag/GenerateCode.ag" #-}+ _lhsIwith_sig+ {-# LINE 1403 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _prodsOwrappers =+ ({-# LINE 987 "src-ag/GenerateCode.ag" #-}+ _lhsIwrappers+ {-# LINE 1409 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _interOo_case =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 1415 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _interOo_cata =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 1421 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _interOo_costcentre =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 1427 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _interOo_data =+ ({-# LINE 48 "src-ag/GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 1433 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _interOo_linePragmas =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 1439 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _interOo_monadic =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 1445 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _interOo_newtypes =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 1451 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _interOo_pretty =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 1457 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _interOo_rename =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 1463 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _interOo_sem =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 1469 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _interOo_sig =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 1475 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _interOo_splitsems =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 1481 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _interOo_strictwrap =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 1487 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _interOo_traces =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 1493 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _interOo_unbox =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 1499 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _interOoptions =+ ({-# LINE 50 "src-ag/GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 1505 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _interOparamMap =+ ({-# LINE 95 "src-ag/GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 1511 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _interOprefix =+ ({-# LINE 49 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 1517 "dist/build/GenerateCode" #-}+ )+ ( _prodsIcataAlts,_prodsIcomments,_prodsIdataAlts,_prodsIdecls,_prodsIsemNames) =+ prods_ _prodsOallNts _prodsOallPragmas _prodsOaroundMap _prodsOcontextMap _prodsOinh _prodsOmergeMap _prodsOnt _prodsOo_case _prodsOo_cata _prodsOo_costcentre _prodsOo_data _prodsOo_linePragmas _prodsOo_monadic _prodsOo_newtypes _prodsOo_pretty _prodsOo_rename _prodsOo_sem _prodsOo_sig _prodsOo_splitsems _prodsOo_strictwrap _prodsOo_traces _prodsOo_unbox _prodsOoptions _prodsOparamMap _prodsOprefix _prodsOquantMap _prodsOsyn _prodsOunfoldSemDom _prodsOwith_sig _prodsOwrappers+ ( _interIcomments,_interIsemDom,_interIsemDomUnfoldGath,_interIwrapDecls) =+ inter_ _interOinh _interOnt _interOo_case _interOo_cata _interOo_costcentre _interOo_data _interOo_linePragmas _interOo_monadic _interOo_newtypes _interOo_pretty _interOo_rename _interOo_sem _interOo_sig _interOo_splitsems _interOo_strictwrap _interOo_traces _interOo_unbox _interOoptions _interOparamMap _interOprefix _interOsyn+ ___node =+ (Syn_CNonterminal _lhsOchunks _lhsOgathNts _lhsOsemDomUnfoldGath)+ in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))))+-- CNonterminals -----------------------------------------------+{-+ visit 0:+ inherited attributes:+ allNts : Set NontermIdent+ allPragmas : PragmaMap+ aroundMap : Map NontermIdent (Map ConstructorIdent (Set Identifier))+ contextMap : ContextMap+ derivings : Derivings+ mergeMap : Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramMap : ParamMap+ prefix : String+ quantMap : QuantMap+ typeSyns : TypeSyns+ unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type+ with_sig : Bool+ wrappers : Set NontermIdent+ synthesized attributes:+ chunks : Chunks+ gathNts : Set NontermIdent+ semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)+ alternatives:+ alternative Cons:+ child hd : CNonterminal + child tl : CNonterminals + alternative Nil:+-}+-- cata+sem_CNonterminals :: CNonterminals ->+ T_CNonterminals+sem_CNonterminals list =+ (Prelude.foldr sem_CNonterminals_Cons sem_CNonterminals_Nil (Prelude.map sem_CNonterminal list))+-- semantic domain+newtype T_CNonterminals = T_CNonterminals ((Set NontermIdent) ->+ PragmaMap ->+ (Map NontermIdent (Map ConstructorIdent (Set Identifier))) ->+ ContextMap ->+ Derivings ->+ (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ ParamMap ->+ String ->+ QuantMap ->+ TypeSyns ->+ (NontermIdent -> Int -> [String] -> Code.Type) ->+ Bool ->+ (Set NontermIdent) ->+ ( Chunks,(Set NontermIdent),(Map (NontermIdent, Int) ([String], Code.Type))))+data Inh_CNonterminals = Inh_CNonterminals {allNts_Inh_CNonterminals :: !((Set NontermIdent)),allPragmas_Inh_CNonterminals :: !(PragmaMap),aroundMap_Inh_CNonterminals :: !((Map NontermIdent (Map ConstructorIdent (Set Identifier)))),contextMap_Inh_CNonterminals :: !(ContextMap),derivings_Inh_CNonterminals :: !(Derivings),mergeMap_Inh_CNonterminals :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))),o_case_Inh_CNonterminals :: !(Bool),o_cata_Inh_CNonterminals :: !(Bool),o_costcentre_Inh_CNonterminals :: !(Bool),o_data_Inh_CNonterminals :: !((Maybe Bool)),o_linePragmas_Inh_CNonterminals :: !(Bool),o_monadic_Inh_CNonterminals :: !(Bool),o_newtypes_Inh_CNonterminals :: !(Bool),o_pretty_Inh_CNonterminals :: !(Bool),o_rename_Inh_CNonterminals :: !(Bool),o_sem_Inh_CNonterminals :: !(Bool),o_sig_Inh_CNonterminals :: !(Bool),o_splitsems_Inh_CNonterminals :: !(Bool),o_strictwrap_Inh_CNonterminals :: !(Bool),o_traces_Inh_CNonterminals :: !(Bool),o_unbox_Inh_CNonterminals :: !(Bool),options_Inh_CNonterminals :: !(Options),paramMap_Inh_CNonterminals :: !(ParamMap),prefix_Inh_CNonterminals :: !(String),quantMap_Inh_CNonterminals :: !(QuantMap),typeSyns_Inh_CNonterminals :: !(TypeSyns),unfoldSemDom_Inh_CNonterminals :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CNonterminals :: !(Bool),wrappers_Inh_CNonterminals :: !((Set NontermIdent))}+data Syn_CNonterminals = Syn_CNonterminals {chunks_Syn_CNonterminals :: !(Chunks),gathNts_Syn_CNonterminals :: !((Set NontermIdent)),semDomUnfoldGath_Syn_CNonterminals :: !((Map (NontermIdent, Int) ([String], Code.Type)))}+wrap_CNonterminals :: T_CNonterminals ->+ Inh_CNonterminals ->+ Syn_CNonterminals+wrap_CNonterminals (T_CNonterminals sem) (Inh_CNonterminals _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers) =+ (let ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers+ in (Syn_CNonterminals _lhsOchunks _lhsOgathNts _lhsOsemDomUnfoldGath))+sem_CNonterminals_Cons :: T_CNonterminal ->+ T_CNonterminals ->+ T_CNonterminals+sem_CNonterminals_Cons (T_CNonterminal hd_) (T_CNonterminals tl_) =+ (T_CNonterminals (\ _lhsIallNts+ _lhsIallPragmas+ _lhsIaroundMap+ _lhsIcontextMap+ _lhsIderivings+ _lhsImergeMap+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsIquantMap+ _lhsItypeSyns+ _lhsIunfoldSemDom+ _lhsIwith_sig+ _lhsIwrappers ->+ (let _lhsOchunks :: Chunks+ _lhsOgathNts :: (Set NontermIdent)+ _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _hdOallNts :: (Set NontermIdent)+ _hdOallPragmas :: PragmaMap+ _hdOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier)))+ _hdOcontextMap :: ContextMap+ _hdOderivings :: Derivings+ _hdOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))+ _hdOo_case :: Bool+ _hdOo_cata :: Bool+ _hdOo_costcentre :: Bool+ _hdOo_data :: (Maybe Bool)+ _hdOo_linePragmas :: Bool+ _hdOo_monadic :: Bool+ _hdOo_newtypes :: Bool+ _hdOo_pretty :: Bool+ _hdOo_rename :: Bool+ _hdOo_sem :: Bool+ _hdOo_sig :: Bool+ _hdOo_splitsems :: Bool+ _hdOo_strictwrap :: Bool+ _hdOo_traces :: Bool+ _hdOo_unbox :: Bool+ _hdOoptions :: Options+ _hdOparamMap :: ParamMap+ _hdOprefix :: String+ _hdOquantMap :: QuantMap+ _hdOtypeSyns :: TypeSyns+ _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _hdOwith_sig :: Bool+ _hdOwrappers :: (Set NontermIdent)+ _tlOallNts :: (Set NontermIdent)+ _tlOallPragmas :: PragmaMap+ _tlOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier)))+ _tlOcontextMap :: ContextMap+ _tlOderivings :: Derivings+ _tlOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))+ _tlOo_case :: Bool+ _tlOo_cata :: Bool+ _tlOo_costcentre :: Bool+ _tlOo_data :: (Maybe Bool)+ _tlOo_linePragmas :: Bool+ _tlOo_monadic :: Bool+ _tlOo_newtypes :: Bool+ _tlOo_pretty :: Bool+ _tlOo_rename :: Bool+ _tlOo_sem :: Bool+ _tlOo_sig :: Bool+ _tlOo_splitsems :: Bool+ _tlOo_strictwrap :: Bool+ _tlOo_traces :: Bool+ _tlOo_unbox :: Bool+ _tlOoptions :: Options+ _tlOparamMap :: ParamMap+ _tlOprefix :: String+ _tlOquantMap :: QuantMap+ _tlOtypeSyns :: TypeSyns+ _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _tlOwith_sig :: Bool+ _tlOwrappers :: (Set NontermIdent)+ _hdIchunks :: Chunks+ _hdIgathNts :: (Set NontermIdent)+ _hdIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _tlIchunks :: Chunks+ _tlIgathNts :: (Set NontermIdent)+ _tlIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ -- use rule "src-ag/GenerateCode.ag"(line 918, column 49)+ _lhsOchunks =+ ({-# LINE 918 "src-ag/GenerateCode.ag" #-}+ _hdIchunks ++ _tlIchunks+ {-# LINE 1717 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 138, column 47)+ _lhsOgathNts =+ ({-# LINE 138 "src-ag/GenerateCode.ag" #-}+ _hdIgathNts `Set.union` _tlIgathNts+ {-# LINE 1723 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 744, column 86)+ _lhsOsemDomUnfoldGath =+ ({-# LINE 744 "src-ag/GenerateCode.ag" #-}+ _hdIsemDomUnfoldGath `Map.union` _tlIsemDomUnfoldGath+ {-# LINE 1729 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOallNts =+ ({-# LINE 132 "src-ag/GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 1735 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOallPragmas =+ ({-# LINE 73 "src-ag/GenerateCode.ag" #-}+ _lhsIallPragmas+ {-# LINE 1741 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOaroundMap =+ ({-# LINE 575 "src-ag/GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 1747 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOcontextMap =+ ({-# LINE 115 "src-ag/GenerateCode.ag" #-}+ _lhsIcontextMap+ {-# LINE 1753 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOderivings =+ ({-# LINE 986 "src-ag/GenerateCode.ag" #-}+ _lhsIderivings+ {-# LINE 1759 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOmergeMap =+ ({-# LINE 591 "src-ag/GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 1765 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_case =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 1771 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_cata =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 1777 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_costcentre =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 1783 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_data =+ ({-# LINE 48 "src-ag/GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 1789 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_linePragmas =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 1795 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_monadic =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 1801 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_newtypes =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 1807 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_pretty =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 1813 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_rename =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 1819 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_sem =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 1825 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_sig =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 1831 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_splitsems =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 1837 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_strictwrap =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 1843 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_traces =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 1849 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_unbox =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 1855 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 50 "src-ag/GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 1861 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOparamMap =+ ({-# LINE 95 "src-ag/GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 1867 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOprefix =+ ({-# LINE 49 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 1873 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOquantMap =+ ({-# LINE 115 "src-ag/GenerateCode.ag" #-}+ _lhsIquantMap+ {-# LINE 1879 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOtypeSyns =+ ({-# LINE 986 "src-ag/GenerateCode.ag" #-}+ _lhsItypeSyns+ {-# LINE 1885 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOunfoldSemDom =+ ({-# LINE 750 "src-ag/GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 1891 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOwith_sig =+ ({-# LINE 851 "src-ag/GenerateCode.ag" #-}+ _lhsIwith_sig+ {-# LINE 1897 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOwrappers =+ ({-# LINE 987 "src-ag/GenerateCode.ag" #-}+ _lhsIwrappers+ {-# LINE 1903 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOallNts =+ ({-# LINE 132 "src-ag/GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 1909 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOallPragmas =+ ({-# LINE 73 "src-ag/GenerateCode.ag" #-}+ _lhsIallPragmas+ {-# LINE 1915 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOaroundMap =+ ({-# LINE 575 "src-ag/GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 1921 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOcontextMap =+ ({-# LINE 115 "src-ag/GenerateCode.ag" #-}+ _lhsIcontextMap+ {-# LINE 1927 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOderivings =+ ({-# LINE 986 "src-ag/GenerateCode.ag" #-}+ _lhsIderivings+ {-# LINE 1933 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOmergeMap =+ ({-# LINE 591 "src-ag/GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 1939 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_case =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 1945 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_cata =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 1951 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_costcentre =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 1957 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_data =+ ({-# LINE 48 "src-ag/GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 1963 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_linePragmas =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 1969 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_monadic =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 1975 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_newtypes =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 1981 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_pretty =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 1987 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_rename =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 1993 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_sem =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 1999 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_sig =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 2005 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_splitsems =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 2011 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_strictwrap =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 2017 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_traces =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 2023 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_unbox =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 2029 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 50 "src-ag/GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 2035 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOparamMap =+ ({-# LINE 95 "src-ag/GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 2041 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOprefix =+ ({-# LINE 49 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 2047 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOquantMap =+ ({-# LINE 115 "src-ag/GenerateCode.ag" #-}+ _lhsIquantMap+ {-# LINE 2053 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOtypeSyns =+ ({-# LINE 986 "src-ag/GenerateCode.ag" #-}+ _lhsItypeSyns+ {-# LINE 2059 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOunfoldSemDom =+ ({-# LINE 750 "src-ag/GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 2065 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOwith_sig =+ ({-# LINE 851 "src-ag/GenerateCode.ag" #-}+ _lhsIwith_sig+ {-# LINE 2071 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOwrappers =+ ({-# LINE 987 "src-ag/GenerateCode.ag" #-}+ _lhsIwrappers+ {-# LINE 2077 "dist/build/GenerateCode" #-}+ )+ ( _hdIchunks,_hdIgathNts,_hdIsemDomUnfoldGath) =+ hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOcontextMap _hdOderivings _hdOmergeMap _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOquantMap _hdOtypeSyns _hdOunfoldSemDom _hdOwith_sig _hdOwrappers+ ( _tlIchunks,_tlIgathNts,_tlIsemDomUnfoldGath) =+ tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOcontextMap _tlOderivings _tlOmergeMap _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOquantMap _tlOtypeSyns _tlOunfoldSemDom _tlOwith_sig _tlOwrappers+ ___node =+ (Syn_CNonterminals _lhsOchunks _lhsOgathNts _lhsOsemDomUnfoldGath)+ in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))))+sem_CNonterminals_Nil :: T_CNonterminals+sem_CNonterminals_Nil =+ (T_CNonterminals (\ _lhsIallNts+ _lhsIallPragmas+ _lhsIaroundMap+ _lhsIcontextMap+ _lhsIderivings+ _lhsImergeMap+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsIquantMap+ _lhsItypeSyns+ _lhsIunfoldSemDom+ _lhsIwith_sig+ _lhsIwrappers ->+ (let _lhsOchunks :: Chunks+ _lhsOgathNts :: (Set NontermIdent)+ _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ -- use rule "src-ag/GenerateCode.ag"(line 918, column 49)+ _lhsOchunks =+ ({-# LINE 918 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 2124 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 138, column 47)+ _lhsOgathNts =+ ({-# LINE 138 "src-ag/GenerateCode.ag" #-}+ Set.empty+ {-# LINE 2130 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 744, column 86)+ _lhsOsemDomUnfoldGath =+ ({-# LINE 744 "src-ag/GenerateCode.ag" #-}+ Map.empty+ {-# LINE 2136 "dist/build/GenerateCode" #-}+ )+ ___node =+ (Syn_CNonterminals _lhsOchunks _lhsOgathNts _lhsOsemDomUnfoldGath)+ in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))))+-- CProduction -------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allNts : Set NontermIdent+ allPragmas : PragmaMap+ aroundMap : Map ConstructorIdent (Set Identifier)+ contextMap : ContextMap+ inh : Attributes+ mergeMap : Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))+ nt : NontermIdent+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramMap : ParamMap+ prefix : String+ quantMap : QuantMap+ syn : Attributes+ unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type+ with_sig : Bool+ wrappers : Set NontermIdent+ synthesized attributes:+ cataAlt : Decl+ comments : [String]+ dataAlt : DataAlt+ decls : Decls+ semNames : [String]+ alternatives:+ alternative CProduction:+ child con : {ConstructorIdent}+ child visits : CVisits + child children : {[(Identifier,Type,ChildKind)]}+ child terminals : {[Identifier]}+ visit 0:+ local paramInstMap : _+ local aroundMap : _+ local mergeMap : _+ local firstOrderChildren : _+ local params : _+-}+-- cata+sem_CProduction :: CProduction ->+ T_CProduction+sem_CProduction (CProduction _con _visits _children _terminals) =+ (sem_CProduction_CProduction _con (sem_CVisits _visits) _children _terminals)+-- semantic domain+newtype T_CProduction = T_CProduction ((Set NontermIdent) ->+ PragmaMap ->+ (Map ConstructorIdent (Set Identifier)) ->+ ContextMap ->+ Attributes ->+ (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) ->+ NontermIdent ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ ParamMap ->+ String ->+ QuantMap ->+ Attributes ->+ (NontermIdent -> Int -> [String] -> Code.Type) ->+ Bool ->+ (Set NontermIdent) ->+ ( Decl,([String]),DataAlt,Decls,([String])))+data Inh_CProduction = Inh_CProduction {allNts_Inh_CProduction :: !((Set NontermIdent)),allPragmas_Inh_CProduction :: !(PragmaMap),aroundMap_Inh_CProduction :: !((Map ConstructorIdent (Set Identifier))),contextMap_Inh_CProduction :: !(ContextMap),inh_Inh_CProduction :: !(Attributes),mergeMap_Inh_CProduction :: !((Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))),nt_Inh_CProduction :: !(NontermIdent),o_case_Inh_CProduction :: !(Bool),o_cata_Inh_CProduction :: !(Bool),o_costcentre_Inh_CProduction :: !(Bool),o_data_Inh_CProduction :: !((Maybe Bool)),o_linePragmas_Inh_CProduction :: !(Bool),o_monadic_Inh_CProduction :: !(Bool),o_newtypes_Inh_CProduction :: !(Bool),o_pretty_Inh_CProduction :: !(Bool),o_rename_Inh_CProduction :: !(Bool),o_sem_Inh_CProduction :: !(Bool),o_sig_Inh_CProduction :: !(Bool),o_splitsems_Inh_CProduction :: !(Bool),o_strictwrap_Inh_CProduction :: !(Bool),o_traces_Inh_CProduction :: !(Bool),o_unbox_Inh_CProduction :: !(Bool),options_Inh_CProduction :: !(Options),paramMap_Inh_CProduction :: !(ParamMap),prefix_Inh_CProduction :: !(String),quantMap_Inh_CProduction :: !(QuantMap),syn_Inh_CProduction :: !(Attributes),unfoldSemDom_Inh_CProduction :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CProduction :: !(Bool),wrappers_Inh_CProduction :: !((Set NontermIdent))}+data Syn_CProduction = Syn_CProduction {cataAlt_Syn_CProduction :: !(Decl),comments_Syn_CProduction :: !(([String])),dataAlt_Syn_CProduction :: !(DataAlt),decls_Syn_CProduction :: !(Decls),semNames_Syn_CProduction :: !(([String]))}+wrap_CProduction :: T_CProduction ->+ Inh_CProduction ->+ Syn_CProduction+wrap_CProduction (T_CProduction sem) (Inh_CProduction _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers) =+ (let ( _lhsOcataAlt,_lhsOcomments,_lhsOdataAlt,_lhsOdecls,_lhsOsemNames) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers+ in (Syn_CProduction _lhsOcataAlt _lhsOcomments _lhsOdataAlt _lhsOdecls _lhsOsemNames))+sem_CProduction_CProduction :: ConstructorIdent ->+ T_CVisits ->+ ([(Identifier,Type,ChildKind)]) ->+ ([Identifier]) ->+ T_CProduction+sem_CProduction_CProduction con_ (T_CVisits visits_) children_ terminals_ =+ (T_CProduction (\ _lhsIallNts+ _lhsIallPragmas+ _lhsIaroundMap+ _lhsIcontextMap+ _lhsIinh+ _lhsImergeMap+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsIquantMap+ _lhsIsyn+ _lhsIunfoldSemDom+ _lhsIwith_sig+ _lhsIwrappers ->+ (let _visitsOcon :: ConstructorIdent+ _visitsOterminals :: ([Identifier])+ _visitsOvisitedSet :: (Set Identifier)+ _visitsOnr :: Int+ _visitsOchildren :: ([(Identifier,Type, ChildKind)])+ _visitsOinstVisitNrs :: (Map Identifier Int)+ _lhsOcomments :: ([String])+ _lhsOdataAlt :: DataAlt+ _lhsOcataAlt :: Decl+ _lhsOdecls :: Decls+ _lhsOsemNames :: ([String])+ _visitsOallNts :: (Set NontermIdent)+ _visitsOallPragmas :: PragmaMap+ _visitsOaroundMap :: (Set Identifier)+ _visitsOcontextMap :: ContextMap+ _visitsOinh :: Attributes+ _visitsOmergeMap :: (Map Identifier (Identifier, [Identifier]))+ _visitsOnt :: NontermIdent+ _visitsOo_case :: Bool+ _visitsOo_cata :: Bool+ _visitsOo_costcentre :: Bool+ _visitsOo_data :: (Maybe Bool)+ _visitsOo_linePragmas :: Bool+ _visitsOo_monadic :: Bool+ _visitsOo_newtypes :: Bool+ _visitsOo_pretty :: Bool+ _visitsOo_rename :: Bool+ _visitsOo_sem :: Bool+ _visitsOo_sig :: Bool+ _visitsOo_splitsems :: Bool+ _visitsOo_strictwrap :: Bool+ _visitsOo_traces :: Bool+ _visitsOo_unbox :: Bool+ _visitsOoptions :: Options+ _visitsOparamInstMap :: (Map Identifier (NontermIdent, [String]))+ _visitsOparamMap :: ParamMap+ _visitsOprefix :: String+ _visitsOquantMap :: QuantMap+ _visitsOsyn :: Attributes+ _visitsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _visitsOwith_sig :: Bool+ _visitsOwrappers :: (Set NontermIdent)+ _visitsIcomments :: ([String])+ _visitsIdecls :: Decls+ _visitsIgatherInstVisitNrs :: (Map Identifier Int)+ _visitsIintra :: Exprs+ _visitsIintraVars :: (Set String)+ _visitsIisNil :: Bool+ _visitsIsemNames :: ([String])+ _visitsIvisitedSet :: (Set Identifier)+ -- "src-ag/GenerateCode.ag"(line 92, column 19)+ _visitsOcon =+ ({-# LINE 92 "src-ag/GenerateCode.ag" #-}+ con_+ {-# LINE 2329 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 93, column 20)+ _visitsOterminals =+ ({-# LINE 93 "src-ag/GenerateCode.ag" #-}+ terminals_+ {-# LINE 2335 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 105, column 7)+ _paramInstMap =+ ({-# LINE 105 "src-ag/GenerateCode.ag" #-}+ Map.fromList [(nm, (extractNonterminal tp, tps)) | (nm,tp,_) <- children_, let tps = map cleanupArg $ nontermArgs tp, not (null tps) ]+ {-# LINE 2341 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 146, column 32)+ _visitsOvisitedSet =+ ({-# LINE 146 "src-ag/GenerateCode.ag" #-}+ Set.empty+ {-# LINE 2347 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 280, column 18)+ _visitsOnr =+ ({-# LINE 280 "src-ag/GenerateCode.ag" #-}+ 0+ {-# LINE 2353 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 412, column 18)+ _visitsOchildren =+ ({-# LINE 412 "src-ag/GenerateCode.ag" #-}+ children_+ {-# LINE 2359 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 564, column 7)+ _visitsOinstVisitNrs =+ ({-# LINE 564 "src-ag/GenerateCode.ag" #-}+ _visitsIgatherInstVisitNrs+ {-# LINE 2365 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 584, column 34)+ _aroundMap =+ ({-# LINE 584 "src-ag/GenerateCode.ag" #-}+ Map.findWithDefault Set.empty con_ _lhsIaroundMap+ {-# LINE 2371 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 600, column 34)+ _mergeMap =+ ({-# LINE 600 "src-ag/GenerateCode.ag" #-}+ Map.findWithDefault Map.empty con_ _lhsImergeMap+ {-# LINE 2377 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 879, column 18)+ _firstOrderChildren =+ ({-# LINE 879 "src-ag/GenerateCode.ag" #-}+ [ (nm,fromJust mb,virt) | (nm,tp,virt) <- children_, let mb = isFirstOrder virt tp, isJust mb ]+ {-# LINE 2383 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 880, column 18)+ _lhsOcomments =+ ({-# LINE 880 "src-ag/GenerateCode.ag" #-}+ ("alternative " ++ getName con_ ++ ":")+ : map ind ( map (\(x,y,_) -> makeLocalComment 14 "child" x (Just y)) _firstOrderChildren+ ++ _visitsIcomments+ )+ {-# LINE 2392 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 1019, column 17)+ _params =+ ({-# LINE 1019 "src-ag/GenerateCode.ag" #-}+ map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap+ {-# LINE 2398 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 1020, column 17)+ _lhsOdataAlt =+ ({-# LINE 1020 "src-ag/GenerateCode.ag" #-}+ let conNm = conname _lhsIo_rename _lhsInt con_+ mkFields f = map (\(nm,t,_) -> f _lhsInt con_ nm (typeToCodeType (Just _lhsInt) _params $ removeDeforested t)) _firstOrderChildren+ in if dataRecords _lhsIoptions+ then Record conNm $ mkFields $ toNamedType (strictData _lhsIoptions)+ else DataAlt conNm $ mkFields $ \_ _ _ t -> t+ {-# LINE 2408 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 1131, column 17)+ _lhsOcataAlt =+ ({-# LINE 1131 "src-ag/GenerateCode.ag" #-}+ let lhs = Fun (cataname _lhsIprefix _lhsInt) [lhs_pat]+ lhs_pat = App (conname _lhsIo_rename _lhsInt con_)+ (map (\(n,_,_) -> SimpleExpr $ locname $ n) _firstOrderChildren )+ rhs = App (semname _lhsIprefix _lhsInt con_)+ (map argument _firstOrderChildren )+ argument (nm,NT tp _ _,_) = App (cataname _lhsIprefix tp)+ [SimpleExpr (locname nm)]+ argument (nm, _,_) = SimpleExpr (locname nm)+ in Decl lhs rhs Set.empty Set.empty+ {-# LINE 2422 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 919, column 44)+ _lhsOdecls =+ ({-# LINE 919 "src-ag/GenerateCode.ag" #-}+ _visitsIdecls+ {-# LINE 2428 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 1146, column 61)+ _lhsOsemNames =+ ({-# LINE 1146 "src-ag/GenerateCode.ag" #-}+ _visitsIsemNames+ {-# LINE 2434 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOallNts =+ ({-# LINE 132 "src-ag/GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 2440 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOallPragmas =+ ({-# LINE 73 "src-ag/GenerateCode.ag" #-}+ _lhsIallPragmas+ {-# LINE 2446 "dist/build/GenerateCode" #-}+ )+ -- copy rule (from local)+ _visitsOaroundMap =+ ({-# LINE 580 "src-ag/GenerateCode.ag" #-}+ _aroundMap+ {-# LINE 2452 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOcontextMap =+ ({-# LINE 115 "src-ag/GenerateCode.ag" #-}+ _lhsIcontextMap+ {-# LINE 2458 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOinh =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 2464 "dist/build/GenerateCode" #-}+ )+ -- copy rule (from local)+ _visitsOmergeMap =+ ({-# LINE 596 "src-ag/GenerateCode.ag" #-}+ _mergeMap+ {-# LINE 2470 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOnt =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 2476 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOo_case =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 2482 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOo_cata =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 2488 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOo_costcentre =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 2494 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOo_data =+ ({-# LINE 48 "src-ag/GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 2500 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOo_linePragmas =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 2506 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOo_monadic =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 2512 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOo_newtypes =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 2518 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOo_pretty =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 2524 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOo_rename =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 2530 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOo_sem =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 2536 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOo_sig =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 2542 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOo_splitsems =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 2548 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOo_strictwrap =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 2554 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOo_traces =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 2560 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOo_unbox =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 2566 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOoptions =+ ({-# LINE 50 "src-ag/GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 2572 "dist/build/GenerateCode" #-}+ )+ -- copy rule (from local)+ _visitsOparamInstMap =+ ({-# LINE 101 "src-ag/GenerateCode.ag" #-}+ _paramInstMap+ {-# LINE 2578 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOparamMap =+ ({-# LINE 95 "src-ag/GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 2584 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOprefix =+ ({-# LINE 49 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 2590 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOquantMap =+ ({-# LINE 115 "src-ag/GenerateCode.ag" #-}+ _lhsIquantMap+ {-# LINE 2596 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOsyn =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 2602 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOunfoldSemDom =+ ({-# LINE 750 "src-ag/GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 2608 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOwith_sig =+ ({-# LINE 851 "src-ag/GenerateCode.ag" #-}+ _lhsIwith_sig+ {-# LINE 2614 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _visitsOwrappers =+ ({-# LINE 987 "src-ag/GenerateCode.ag" #-}+ _lhsIwrappers+ {-# LINE 2620 "dist/build/GenerateCode" #-}+ )+ ( _visitsIcomments,_visitsIdecls,_visitsIgatherInstVisitNrs,_visitsIintra,_visitsIintraVars,_visitsIisNil,_visitsIsemNames,_visitsIvisitedSet) =+ visits_ _visitsOallNts _visitsOallPragmas _visitsOaroundMap _visitsOchildren _visitsOcon _visitsOcontextMap _visitsOinh _visitsOinstVisitNrs _visitsOmergeMap _visitsOnr _visitsOnt _visitsOo_case _visitsOo_cata _visitsOo_costcentre _visitsOo_data _visitsOo_linePragmas _visitsOo_monadic _visitsOo_newtypes _visitsOo_pretty _visitsOo_rename _visitsOo_sem _visitsOo_sig _visitsOo_splitsems _visitsOo_strictwrap _visitsOo_traces _visitsOo_unbox _visitsOoptions _visitsOparamInstMap _visitsOparamMap _visitsOprefix _visitsOquantMap _visitsOsyn _visitsOterminals _visitsOunfoldSemDom _visitsOvisitedSet _visitsOwith_sig _visitsOwrappers+ ___node =+ (Syn_CProduction _lhsOcataAlt _lhsOcomments _lhsOdataAlt _lhsOdecls _lhsOsemNames)+ in ( _lhsOcataAlt,_lhsOcomments,_lhsOdataAlt,_lhsOdecls,_lhsOsemNames))))+-- CProductions ------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allNts : Set NontermIdent+ allPragmas : PragmaMap+ aroundMap : Map ConstructorIdent (Set Identifier)+ contextMap : ContextMap+ inh : Attributes+ mergeMap : Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))+ nt : NontermIdent+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramMap : ParamMap+ prefix : String+ quantMap : QuantMap+ syn : Attributes+ unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type+ with_sig : Bool+ wrappers : Set NontermIdent+ synthesized attributes:+ cataAlts : Decls+ comments : [String]+ dataAlts : DataAlts+ decls : Decls+ semNames : [String]+ alternatives:+ alternative Cons:+ child hd : CProduction + child tl : CProductions + alternative Nil:+-}+-- cata+sem_CProductions :: CProductions ->+ T_CProductions+sem_CProductions list =+ (Prelude.foldr sem_CProductions_Cons sem_CProductions_Nil (Prelude.map sem_CProduction list))+-- semantic domain+newtype T_CProductions = T_CProductions ((Set NontermIdent) ->+ PragmaMap ->+ (Map ConstructorIdent (Set Identifier)) ->+ ContextMap ->+ Attributes ->+ (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) ->+ NontermIdent ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ ParamMap ->+ String ->+ QuantMap ->+ Attributes ->+ (NontermIdent -> Int -> [String] -> Code.Type) ->+ Bool ->+ (Set NontermIdent) ->+ ( Decls,([String]),DataAlts,Decls,([String])))+data Inh_CProductions = Inh_CProductions {allNts_Inh_CProductions :: !((Set NontermIdent)),allPragmas_Inh_CProductions :: !(PragmaMap),aroundMap_Inh_CProductions :: !((Map ConstructorIdent (Set Identifier))),contextMap_Inh_CProductions :: !(ContextMap),inh_Inh_CProductions :: !(Attributes),mergeMap_Inh_CProductions :: !((Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))),nt_Inh_CProductions :: !(NontermIdent),o_case_Inh_CProductions :: !(Bool),o_cata_Inh_CProductions :: !(Bool),o_costcentre_Inh_CProductions :: !(Bool),o_data_Inh_CProductions :: !((Maybe Bool)),o_linePragmas_Inh_CProductions :: !(Bool),o_monadic_Inh_CProductions :: !(Bool),o_newtypes_Inh_CProductions :: !(Bool),o_pretty_Inh_CProductions :: !(Bool),o_rename_Inh_CProductions :: !(Bool),o_sem_Inh_CProductions :: !(Bool),o_sig_Inh_CProductions :: !(Bool),o_splitsems_Inh_CProductions :: !(Bool),o_strictwrap_Inh_CProductions :: !(Bool),o_traces_Inh_CProductions :: !(Bool),o_unbox_Inh_CProductions :: !(Bool),options_Inh_CProductions :: !(Options),paramMap_Inh_CProductions :: !(ParamMap),prefix_Inh_CProductions :: !(String),quantMap_Inh_CProductions :: !(QuantMap),syn_Inh_CProductions :: !(Attributes),unfoldSemDom_Inh_CProductions :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CProductions :: !(Bool),wrappers_Inh_CProductions :: !((Set NontermIdent))}+data Syn_CProductions = Syn_CProductions {cataAlts_Syn_CProductions :: !(Decls),comments_Syn_CProductions :: !(([String])),dataAlts_Syn_CProductions :: !(DataAlts),decls_Syn_CProductions :: !(Decls),semNames_Syn_CProductions :: !(([String]))}+wrap_CProductions :: T_CProductions ->+ Inh_CProductions ->+ Syn_CProductions+wrap_CProductions (T_CProductions sem) (Inh_CProductions _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers) =+ (let ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers+ in (Syn_CProductions _lhsOcataAlts _lhsOcomments _lhsOdataAlts _lhsOdecls _lhsOsemNames))+sem_CProductions_Cons :: T_CProduction ->+ T_CProductions ->+ T_CProductions+sem_CProductions_Cons (T_CProduction hd_) (T_CProductions tl_) =+ (T_CProductions (\ _lhsIallNts+ _lhsIallPragmas+ _lhsIaroundMap+ _lhsIcontextMap+ _lhsIinh+ _lhsImergeMap+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsIquantMap+ _lhsIsyn+ _lhsIunfoldSemDom+ _lhsIwith_sig+ _lhsIwrappers ->+ (let _lhsOdataAlts :: DataAlts+ _lhsOcataAlts :: Decls+ _lhsOcomments :: ([String])+ _lhsOdecls :: Decls+ _lhsOsemNames :: ([String])+ _hdOallNts :: (Set NontermIdent)+ _hdOallPragmas :: PragmaMap+ _hdOaroundMap :: (Map ConstructorIdent (Set Identifier))+ _hdOcontextMap :: ContextMap+ _hdOinh :: Attributes+ _hdOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))+ _hdOnt :: NontermIdent+ _hdOo_case :: Bool+ _hdOo_cata :: Bool+ _hdOo_costcentre :: Bool+ _hdOo_data :: (Maybe Bool)+ _hdOo_linePragmas :: Bool+ _hdOo_monadic :: Bool+ _hdOo_newtypes :: Bool+ _hdOo_pretty :: Bool+ _hdOo_rename :: Bool+ _hdOo_sem :: Bool+ _hdOo_sig :: Bool+ _hdOo_splitsems :: Bool+ _hdOo_strictwrap :: Bool+ _hdOo_traces :: Bool+ _hdOo_unbox :: Bool+ _hdOoptions :: Options+ _hdOparamMap :: ParamMap+ _hdOprefix :: String+ _hdOquantMap :: QuantMap+ _hdOsyn :: Attributes+ _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _hdOwith_sig :: Bool+ _hdOwrappers :: (Set NontermIdent)+ _tlOallNts :: (Set NontermIdent)+ _tlOallPragmas :: PragmaMap+ _tlOaroundMap :: (Map ConstructorIdent (Set Identifier))+ _tlOcontextMap :: ContextMap+ _tlOinh :: Attributes+ _tlOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))+ _tlOnt :: NontermIdent+ _tlOo_case :: Bool+ _tlOo_cata :: Bool+ _tlOo_costcentre :: Bool+ _tlOo_data :: (Maybe Bool)+ _tlOo_linePragmas :: Bool+ _tlOo_monadic :: Bool+ _tlOo_newtypes :: Bool+ _tlOo_pretty :: Bool+ _tlOo_rename :: Bool+ _tlOo_sem :: Bool+ _tlOo_sig :: Bool+ _tlOo_splitsems :: Bool+ _tlOo_strictwrap :: Bool+ _tlOo_traces :: Bool+ _tlOo_unbox :: Bool+ _tlOoptions :: Options+ _tlOparamMap :: ParamMap+ _tlOprefix :: String+ _tlOquantMap :: QuantMap+ _tlOsyn :: Attributes+ _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _tlOwith_sig :: Bool+ _tlOwrappers :: (Set NontermIdent)+ _hdIcataAlt :: Decl+ _hdIcomments :: ([String])+ _hdIdataAlt :: DataAlt+ _hdIdecls :: Decls+ _hdIsemNames :: ([String])+ _tlIcataAlts :: Decls+ _tlIcomments :: ([String])+ _tlIdataAlts :: DataAlts+ _tlIdecls :: Decls+ _tlIsemNames :: ([String])+ -- "src-ag/GenerateCode.ag"(line 1015, column 17)+ _lhsOdataAlts =+ ({-# LINE 1015 "src-ag/GenerateCode.ag" #-}+ _hdIdataAlt : _tlIdataAlts+ {-# LINE 2831 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 1127, column 10)+ _lhsOcataAlts =+ ({-# LINE 1127 "src-ag/GenerateCode.ag" #-}+ _hdIcataAlt : _tlIcataAlts+ {-# LINE 2837 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)+ _lhsOcomments =+ ({-# LINE 868 "src-ag/GenerateCode.ag" #-}+ _hdIcomments ++ _tlIcomments+ {-# LINE 2843 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 919, column 44)+ _lhsOdecls =+ ({-# LINE 919 "src-ag/GenerateCode.ag" #-}+ _hdIdecls ++ _tlIdecls+ {-# LINE 2849 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 1146, column 61)+ _lhsOsemNames =+ ({-# LINE 1146 "src-ag/GenerateCode.ag" #-}+ _hdIsemNames ++ _tlIsemNames+ {-# LINE 2855 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOallNts =+ ({-# LINE 132 "src-ag/GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 2861 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOallPragmas =+ ({-# LINE 73 "src-ag/GenerateCode.ag" #-}+ _lhsIallPragmas+ {-# LINE 2867 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOaroundMap =+ ({-# LINE 578 "src-ag/GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 2873 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOcontextMap =+ ({-# LINE 115 "src-ag/GenerateCode.ag" #-}+ _lhsIcontextMap+ {-# LINE 2879 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOinh =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 2885 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOmergeMap =+ ({-# LINE 594 "src-ag/GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 2891 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOnt =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 2897 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_case =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 2903 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_cata =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 2909 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_costcentre =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 2915 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_data =+ ({-# LINE 48 "src-ag/GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 2921 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_linePragmas =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 2927 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_monadic =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 2933 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_newtypes =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 2939 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_pretty =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 2945 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_rename =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 2951 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_sem =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 2957 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_sig =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 2963 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_splitsems =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 2969 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_strictwrap =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 2975 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_traces =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 2981 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_unbox =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 2987 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 50 "src-ag/GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 2993 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOparamMap =+ ({-# LINE 95 "src-ag/GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 2999 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOprefix =+ ({-# LINE 49 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 3005 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOquantMap =+ ({-# LINE 115 "src-ag/GenerateCode.ag" #-}+ _lhsIquantMap+ {-# LINE 3011 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOsyn =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 3017 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOunfoldSemDom =+ ({-# LINE 750 "src-ag/GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 3023 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOwith_sig =+ ({-# LINE 851 "src-ag/GenerateCode.ag" #-}+ _lhsIwith_sig+ {-# LINE 3029 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOwrappers =+ ({-# LINE 987 "src-ag/GenerateCode.ag" #-}+ _lhsIwrappers+ {-# LINE 3035 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOallNts =+ ({-# LINE 132 "src-ag/GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 3041 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOallPragmas =+ ({-# LINE 73 "src-ag/GenerateCode.ag" #-}+ _lhsIallPragmas+ {-# LINE 3047 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOaroundMap =+ ({-# LINE 578 "src-ag/GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 3053 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOcontextMap =+ ({-# LINE 115 "src-ag/GenerateCode.ag" #-}+ _lhsIcontextMap+ {-# LINE 3059 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOinh =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 3065 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOmergeMap =+ ({-# LINE 594 "src-ag/GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 3071 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOnt =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 3077 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_case =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 3083 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_cata =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 3089 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_costcentre =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 3095 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_data =+ ({-# LINE 48 "src-ag/GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 3101 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_linePragmas =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 3107 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_monadic =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 3113 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_newtypes =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 3119 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_pretty =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 3125 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_rename =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 3131 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_sem =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 3137 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_sig =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 3143 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_splitsems =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 3149 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_strictwrap =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 3155 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_traces =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 3161 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_unbox =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 3167 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 50 "src-ag/GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 3173 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOparamMap =+ ({-# LINE 95 "src-ag/GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 3179 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOprefix =+ ({-# LINE 49 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 3185 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOquantMap =+ ({-# LINE 115 "src-ag/GenerateCode.ag" #-}+ _lhsIquantMap+ {-# LINE 3191 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOsyn =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 3197 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOunfoldSemDom =+ ({-# LINE 750 "src-ag/GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 3203 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOwith_sig =+ ({-# LINE 851 "src-ag/GenerateCode.ag" #-}+ _lhsIwith_sig+ {-# LINE 3209 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOwrappers =+ ({-# LINE 987 "src-ag/GenerateCode.ag" #-}+ _lhsIwrappers+ {-# LINE 3215 "dist/build/GenerateCode" #-}+ )+ ( _hdIcataAlt,_hdIcomments,_hdIdataAlt,_hdIdecls,_hdIsemNames) =+ hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOcontextMap _hdOinh _hdOmergeMap _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOquantMap _hdOsyn _hdOunfoldSemDom _hdOwith_sig _hdOwrappers+ ( _tlIcataAlts,_tlIcomments,_tlIdataAlts,_tlIdecls,_tlIsemNames) =+ tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOcontextMap _tlOinh _tlOmergeMap _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOquantMap _tlOsyn _tlOunfoldSemDom _tlOwith_sig _tlOwrappers+ ___node =+ (Syn_CProductions _lhsOcataAlts _lhsOcomments _lhsOdataAlts _lhsOdecls _lhsOsemNames)+ in ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames))))+sem_CProductions_Nil :: T_CProductions+sem_CProductions_Nil =+ (T_CProductions (\ _lhsIallNts+ _lhsIallPragmas+ _lhsIaroundMap+ _lhsIcontextMap+ _lhsIinh+ _lhsImergeMap+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsIquantMap+ _lhsIsyn+ _lhsIunfoldSemDom+ _lhsIwith_sig+ _lhsIwrappers ->+ (let _lhsOdataAlts :: DataAlts+ _lhsOcataAlts :: Decls+ _lhsOcomments :: ([String])+ _lhsOdecls :: Decls+ _lhsOsemNames :: ([String])+ -- "src-ag/GenerateCode.ag"(line 1016, column 17)+ _lhsOdataAlts =+ ({-# LINE 1016 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 3265 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 1128, column 10)+ _lhsOcataAlts =+ ({-# LINE 1128 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 3271 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)+ _lhsOcomments =+ ({-# LINE 868 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 3277 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 919, column 44)+ _lhsOdecls =+ ({-# LINE 919 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 3283 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 1146, column 61)+ _lhsOsemNames =+ ({-# LINE 1146 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 3289 "dist/build/GenerateCode" #-}+ )+ ___node =+ (Syn_CProductions _lhsOcataAlts _lhsOcomments _lhsOdataAlts _lhsOdecls _lhsOsemNames)+ in ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames))))+-- CRule -------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allNts : Set NontermIdent+ aroundMap : Set Identifier+ children : [(Identifier,Type,ChildKind)]+ con : ConstructorIdent+ inh : Attributes+ instVisitNrs : Map Identifier Int+ mergeMap : Map Identifier (Identifier, [Identifier])+ nr : Int+ nt : NontermIdent+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramInstMap : Map Identifier (NontermIdent, [String])+ paramMap : ParamMap+ prefix : String+ syn : Attributes+ terminals : [Identifier]+ unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type+ what : String+ chained attributes:+ declsAbove : [Decl]+ visitedSet : Set Identifier+ synthesized attributes:+ allTpsFound : Bool+ bldBlocksFun : DeclBlocks -> DeclBlocks+ comments : [String]+ decls : Decls+ definedInsts : [Identifier]+ exprs : Exprs+ tSigs : [Decl]+ tps : [Type]+ usedVars : Set String+ alternatives:+ alternative CChildVisit:+ child name : {Identifier}+ child nt : {NontermIdent}+ child nr : {Int}+ child inh : {Attributes}+ child syn : {Attributes}+ child isLast : {Bool}+ visit 0:+ local visitedSet : _+ local costCentreDescr : _+ local addCostCentre : _+ local decls : _+ local isSuperfluousHigherOrderIntra : _+ local names : _+ local mkTp : _+ local definedTps : _+ local nextTp : _+ local orgParams : _+ local instParams : _+ local replParamMap : _+ local replace : _+ local evalTp : _+ alternative CRule:+ child name : {Identifier}+ child isIn : {Bool}+ child hasCode : {Bool}+ child nt : {NontermIdent}+ child con : {ConstructorIdent}+ child field : {Identifier}+ child childnt : {Maybe NontermIdent}+ child tp : {Maybe Type}+ child pattern : Pattern + child rhs : {[String]}+ child defines : {Map Int (Identifier,Identifier,Maybe Type)}+ child owrt : {Bool}+ child origin : {String}+ child uses : {Set (Identifier, Identifier)}+ child explicit : {Bool}+ child mbNamed : {Maybe Identifier}+ visit 0:+ local instTypes : _+ local originComment : _+ local instDecls : _+ local patDescr : _+ local traceDescr : _+ local addTrace : _+ local costCentreDescr : _+ local addCostCentre : _+ local addLinePragma : _+ local decls : _+ local definedInsts : _+ local rulename : _+ local mkTp : _+ local orgParams : _+ local evalTp : _+-}+-- cata+sem_CRule :: CRule ->+ T_CRule+sem_CRule (CChildVisit _name _nt _nr _inh _syn _isLast) =+ (sem_CRule_CChildVisit _name _nt _nr _inh _syn _isLast)+sem_CRule (CRule _name _isIn _hasCode _nt _con _field _childnt _tp _pattern _rhs _defines _owrt _origin _uses _explicit _mbNamed) =+ (sem_CRule_CRule _name _isIn _hasCode _nt _con _field _childnt _tp (sem_Pattern _pattern) _rhs _defines _owrt _origin _uses _explicit _mbNamed)+-- semantic domain+newtype T_CRule = T_CRule ((Set NontermIdent) ->+ (Set Identifier) ->+ ([(Identifier,Type,ChildKind)]) ->+ ConstructorIdent ->+ ([Decl]) ->+ Attributes ->+ (Map Identifier Int) ->+ (Map Identifier (Identifier, [Identifier])) ->+ Int ->+ NontermIdent ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ (Map Identifier (NontermIdent, [String])) ->+ ParamMap ->+ String ->+ Attributes ->+ ([Identifier]) ->+ (NontermIdent -> Int -> [String] -> Code.Type) ->+ (Set Identifier) ->+ String ->+ ( Bool,(DeclBlocks -> DeclBlocks),([String]),Decls,([Decl]),([Identifier]),Exprs,([Decl]),([Type]),(Set String),(Set Identifier)))+data Inh_CRule = Inh_CRule {allNts_Inh_CRule :: !((Set NontermIdent)),aroundMap_Inh_CRule :: !((Set Identifier)),children_Inh_CRule :: !(([(Identifier,Type,ChildKind)])),con_Inh_CRule :: !(ConstructorIdent),declsAbove_Inh_CRule :: !(([Decl])),inh_Inh_CRule :: !(Attributes),instVisitNrs_Inh_CRule :: !((Map Identifier Int)),mergeMap_Inh_CRule :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_CRule :: !(Int),nt_Inh_CRule :: !(NontermIdent),o_case_Inh_CRule :: !(Bool),o_cata_Inh_CRule :: !(Bool),o_costcentre_Inh_CRule :: !(Bool),o_data_Inh_CRule :: !((Maybe Bool)),o_linePragmas_Inh_CRule :: !(Bool),o_monadic_Inh_CRule :: !(Bool),o_newtypes_Inh_CRule :: !(Bool),o_pretty_Inh_CRule :: !(Bool),o_rename_Inh_CRule :: !(Bool),o_sem_Inh_CRule :: !(Bool),o_sig_Inh_CRule :: !(Bool),o_splitsems_Inh_CRule :: !(Bool),o_strictwrap_Inh_CRule :: !(Bool),o_traces_Inh_CRule :: !(Bool),o_unbox_Inh_CRule :: !(Bool),options_Inh_CRule :: !(Options),paramInstMap_Inh_CRule :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CRule :: !(ParamMap),prefix_Inh_CRule :: !(String),syn_Inh_CRule :: !(Attributes),terminals_Inh_CRule :: !(([Identifier])),unfoldSemDom_Inh_CRule :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CRule :: !((Set Identifier)),what_Inh_CRule :: !(String)}+data Syn_CRule = Syn_CRule {allTpsFound_Syn_CRule :: !(Bool),bldBlocksFun_Syn_CRule :: !((DeclBlocks -> DeclBlocks)),comments_Syn_CRule :: !(([String])),decls_Syn_CRule :: !(Decls),declsAbove_Syn_CRule :: !(([Decl])),definedInsts_Syn_CRule :: !(([Identifier])),exprs_Syn_CRule :: !(Exprs),tSigs_Syn_CRule :: !(([Decl])),tps_Syn_CRule :: !(([Type])),usedVars_Syn_CRule :: !((Set String)),visitedSet_Syn_CRule :: !((Set Identifier))}+wrap_CRule :: T_CRule ->+ Inh_CRule ->+ Syn_CRule+wrap_CRule (T_CRule sem) (Inh_CRule _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat) =+ (let ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet) = sem _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat+ in (Syn_CRule _lhsOallTpsFound _lhsObldBlocksFun _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars _lhsOvisitedSet))+sem_CRule_CChildVisit :: Identifier ->+ NontermIdent ->+ Int ->+ Attributes ->+ Attributes ->+ Bool ->+ T_CRule+sem_CRule_CChildVisit name_ nt_ nr_ inh_ syn_ isLast_ =+ (T_CRule (\ _lhsIallNts+ _lhsIaroundMap+ _lhsIchildren+ _lhsIcon+ _lhsIdeclsAbove+ _lhsIinh+ _lhsIinstVisitNrs+ _lhsImergeMap+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamInstMap+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn+ _lhsIterminals+ _lhsIunfoldSemDom+ _lhsIvisitedSet+ _lhsIwhat ->+ (let _lhsOexprs :: Exprs+ _lhsOusedVars :: (Set String)+ _lhsOtSigs :: ([Decl])+ _lhsOtps :: ([Type])+ _lhsOdeclsAbove :: ([Decl])+ _lhsObldBlocksFun :: (DeclBlocks -> DeclBlocks)+ _lhsOallTpsFound :: Bool+ _lhsOcomments :: ([String])+ _lhsOdecls :: Decls+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOvisitedSet :: (Set Identifier)+ -- "src-ag/GenerateCode.ag"(line 147, column 26)+ _visitedSet =+ ({-# LINE 147 "src-ag/GenerateCode.ag" #-}+ Set.insert name_ _lhsIvisitedSet+ {-# LINE 3508 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 203, column 18)+ _costCentreDescr =+ ({-# LINE 203 "src-ag/GenerateCode.ag" #-}+ show _lhsInt ++ ":" ++ show _lhsIcon ++ ":" ++ show name_ ++ ":" ++ show nt_ ++ ":" ++ show nr_+ {-# LINE 3514 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 204, column 18)+ _addCostCentre =+ ({-# LINE 204 "src-ag/GenerateCode.ag" #-}+ \v -> if _lhsIo_costcentre+ then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v+ else v+ {-# LINE 3522 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 207, column 18)+ _decls =+ ({-# LINE 207 "src-ag/GenerateCode.ag" #-}+ let lhsVars = map (attrname True name_) (Map.keys syn_)+ ++ if isLast_ then [] else [unwrap ++ funname name_ (nr_+1)]+ rhsVars = map (attrname False name_) (Map.keys inh_)+ unwrap = if _lhsIo_newtypes then typeName nt_ (nr_ + 1) ++ " " else ""+ tuple | isMerging = TupleLhs [locname name_ ++ "_comp"]+ | otherwise = mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars+ rhs = _addCostCentre $ Code.InvokeExpr (typeName nt_ nr_) (SimpleExpr fun) (map SimpleExpr rhsVars)+ isVirtual _ [] = False+ isVirtual nm ((n,t,kind) : r)+ | nm == n = case kind of+ ChildAttr -> True+ _ -> False+ | otherwise = isVirtual nm r+ isMerged = name_ `Map.member` _lhsImergeMap+ isMerging = name_ `elem` concatMap (\(_,cs) -> cs) (Map.elems _lhsImergeMap)+ merges = [ (c,cs) | (c,(_,cs)) <- Map.assocs _lhsImergeMap, all (`Set.member` _visitedSet ) cs, name_ `elem` (c:cs) ]+ baseNm = if nr_ == 0 && isVirtual name_ _lhsIchildren+ then Ident (getName name_ ++ "_inst") (getPos name_)+ else name_+ fun | nr_ == 0 && Set.member name_ _lhsIaroundMap+ = locname name_ ++ "_around " ++ funname baseNm 0+ | otherwise = funname baseNm nr_+ outDecls | isMerged = []+ | otherwise =+ if isMerging+ then [mkDecl _lhsIo_monadic tuple rhs Set.empty Set.empty]+ else [Resume _lhsIo_monadic (typeName nt_ nr_) tuple rhs]+ outMerged | null merges || nr_ /= 0 = []+ | otherwise = let (c,cs) = head merges+ tuple' = mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars'+ lhsVars' = map (attrname True c) (Map.keys syn_)+ ++ if isLast_ then [] else [unwrap ++ funname c (nr_+1)]+ rhsVars = [ locname c ++ "_comp" | c <- cs ]+ fun = locname c ++ "_merge"+ rhs' = App fun (map SimpleExpr rhsVars)+ in [Resume _lhsIo_monadic (typeName nt_ nr_) tuple' rhs']+ in+ (outDecls ++ outMerged)+ {-# LINE 3565 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 327, column 7)+ _isSuperfluousHigherOrderIntra =+ ({-# LINE 327 "src-ag/GenerateCode.ag" #-}+ _lhsInr <= Map.findWithDefault (-1) name_ _lhsIinstVisitNrs+ {-# LINE 3571 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 341, column 8)+ _names =+ ({-# LINE 341 "src-ag/GenerateCode.ag" #-}+ if _isSuperfluousHigherOrderIntra+ then []+ else [funname name_ (nr_+1)]+ {-# LINE 3579 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 345, column 8)+ _lhsOexprs =+ ({-# LINE 345 "src-ag/GenerateCode.ag" #-}+ let wrap = if _lhsIo_newtypes then \x -> App (typeName nt_ (nr_ + 1)) [x] else id+ addType expr | null _instParams = expr+ | otherwise = TypedExpr expr (_lhsIunfoldSemDom nt_ (nr_+1) _instParams )+ in map (wrap . addType . SimpleExpr) _names+ {-# LINE 3588 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 357, column 7)+ _lhsOusedVars =+ ({-# LINE 357 "src-ag/GenerateCode.ag" #-}+ Set.fromList _names+ {-# LINE 3594 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 393, column 19)+ _mkTp =+ ({-# LINE 393 "src-ag/GenerateCode.ag" #-}+ _evalTp . typeToCodeType (Just nt_) _orgParams . removeDeforested+ {-# LINE 3600 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 394, column 19)+ _definedTps =+ ({-# LINE 394 "src-ag/GenerateCode.ag" #-}+ [ TSig (attrname True name_ a) (_mkTp tp) | (a,tp) <- Map.toList syn_ ]+ {-# LINE 3606 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 395, column 19)+ _nextTp =+ ({-# LINE 395 "src-ag/GenerateCode.ag" #-}+ typeName nt_ (nr_+1)+ {-# LINE 3612 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 396, column 19)+ _lhsOtSigs =+ ({-# LINE 396 "src-ag/GenerateCode.ag" #-}+ (if isLast_ then id else (TSig (funname name_ (nr_+1)) (TypeApp (SimpleType _nextTp) (map SimpleType _instParams )) :)) _definedTps+ {-# LINE 3618 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 398, column 19)+ _orgParams =+ ({-# LINE 398 "src-ag/GenerateCode.ag" #-}+ map getName $ Map.findWithDefault [] nt_ _lhsIparamMap+ {-# LINE 3624 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 399, column 19)+ _instParams =+ ({-# LINE 399 "src-ag/GenerateCode.ag" #-}+ snd $ Map.findWithDefault (nt_,[]) name_ _lhsIparamInstMap+ {-# LINE 3630 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 400, column 19)+ _replParamMap =+ ({-# LINE 400 "src-ag/GenerateCode.ag" #-}+ Map.fromList (zip _orgParams _instParams )+ {-# LINE 3636 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 401, column 19)+ _replace =+ ({-# LINE 401 "src-ag/GenerateCode.ag" #-}+ \k -> Map.findWithDefault k k _replParamMap+ {-# LINE 3642 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 402, column 19)+ _evalTp =+ ({-# LINE 402 "src-ag/GenerateCode.ag" #-}+ if null _orgParams then id else evalType _replace+ {-# LINE 3648 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 419, column 19)+ _lhsOtps =+ ({-# LINE 419 "src-ag/GenerateCode.ag" #-}+ if _isSuperfluousHigherOrderIntra+ then []+ else [NT (ntOfVisit nt_ (nr_+1)) _instParams False]+ {-# LINE 3656 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 618, column 7)+ _lhsOdeclsAbove =+ ({-# LINE 618 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 3662 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 631, column 7)+ _lhsObldBlocksFun =+ ({-# LINE 631 "src-ag/GenerateCode.ag" #-}+ DeclBlock _lhsIdeclsAbove (head _decls )+ {-# LINE 3668 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 416, column 39)+ _lhsOallTpsFound =+ ({-# LINE 416 "src-ag/GenerateCode.ag" #-}+ True+ {-# LINE 3674 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)+ _lhsOcomments =+ ({-# LINE 868 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 3680 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 155, column 34)+ _lhsOdecls =+ ({-# LINE 155 "src-ag/GenerateCode.ag" #-}+ _decls+ {-# LINE 3686 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 261 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 3692 "dist/build/GenerateCode" #-}+ )+ -- copy rule (from local)+ _lhsOvisitedSet =+ ({-# LINE 145 "src-ag/GenerateCode.ag" #-}+ _visitedSet+ {-# LINE 3698 "dist/build/GenerateCode" #-}+ )+ ___node =+ (Syn_CRule _lhsOallTpsFound _lhsObldBlocksFun _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars _lhsOvisitedSet)+ in ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))))+sem_CRule_CRule :: Identifier ->+ Bool ->+ Bool ->+ NontermIdent ->+ ConstructorIdent ->+ Identifier ->+ (Maybe NontermIdent) ->+ (Maybe Type) ->+ T_Pattern ->+ ([String]) ->+ (Map Int (Identifier,Identifier,Maybe Type)) ->+ Bool ->+ String ->+ (Set (Identifier, Identifier)) ->+ Bool ->+ (Maybe Identifier) ->+ T_CRule+sem_CRule_CRule name_ isIn_ hasCode_ nt_ con_ field_ childnt_ tp_ (T_Pattern pattern_) rhs_ defines_ owrt_ origin_ uses_ explicit_ mbNamed_ =+ (T_CRule (\ _lhsIallNts+ _lhsIaroundMap+ _lhsIchildren+ _lhsIcon+ _lhsIdeclsAbove+ _lhsIinh+ _lhsIinstVisitNrs+ _lhsImergeMap+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamInstMap+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn+ _lhsIterminals+ _lhsIunfoldSemDom+ _lhsIvisitedSet+ _lhsIwhat ->+ (let _lhsOexprs :: Exprs+ _lhsOusedVars :: (Set String)+ _lhsOtSigs :: ([Decl])+ _lhsOtps :: ([Type])+ _lhsOallTpsFound :: Bool+ _lhsOdeclsAbove :: ([Decl])+ _lhsObldBlocksFun :: (DeclBlocks -> DeclBlocks)+ _lhsOcomments :: ([String])+ _lhsOdecls :: Decls+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOvisitedSet :: (Set Identifier)+ _patternIcopy :: Pattern+ _patternIdefinedInsts :: ([Identifier])+ _patternIpatternAttributes :: ([(Identifier, Identifier)])+ -- "src-ag/GenerateCode.ag"(line 157, column 12)+ _instTypes =+ ({-# LINE 157 "src-ag/GenerateCode.ag" #-}+ [ (n, (t, mb, for)) | (n, NT t _ for, mb) <- _lhsIchildren ]+ {-# LINE 3773 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 158, column 12)+ _originComment =+ ({-# LINE 158 "src-ag/GenerateCode.ag" #-}+ if _lhsIo_pretty+ then (Comment origin_:)+ else id+ {-# LINE 3781 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 161, column 12)+ _instDecls =+ ({-# LINE 161 "src-ag/GenerateCode.ag" #-}+ [ mkDecl _lhsIo_monadic (Pattern3 (Alias _INST' inst (Underscore (getPos inst))))+ ( let (nm,mb,defor) = fromJust $ inst `lookup` _instTypes+ in unwrapSem _lhsIo_newtypes nm+ $ case mb of+ ChildReplace tp' -> App instLocFieldName [SimpleExpr $ fieldname inst]+ _ ->+ if defor+ then SimpleExpr instLocFieldName+ else App (cataname _lhsIprefix nm)+ [SimpleExpr instLocFieldName]+ )+ (Set.singleton instSemFieldName)+ (Set.singleton instLocFieldName)+ | inst <- _definedInsts+ , let instLocFieldName = attrname True _INST inst+ instSemFieldName = attrname False _INST' inst+ ]+ {-# LINE 3803 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 178, column 12)+ _patDescr =+ ({-# LINE 178 "src-ag/GenerateCode.ag" #-}+ if isIn_+ then "_"+ else concat $ intersperse "," (map (\(f,a) -> show f ++ "." ++ show a) _patternIpatternAttributes)+ {-# LINE 3811 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 181, column 12)+ _traceDescr =+ ({-# LINE 181 "src-ag/GenerateCode.ag" #-}+ (maybe "" (\nm -> show nm ++ ":") mbNamed_) ++ show nt_ ++ " :: " ++ show con_ ++ " :: " ++ _patDescr+ {-# LINE 3817 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 183, column 12)+ _addTrace =+ ({-# LINE 183 "src-ag/GenerateCode.ag" #-}+ \v -> if _lhsIo_traces+ then Trace _traceDescr v+ else v+ {-# LINE 3825 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 186, column 12)+ _costCentreDescr =+ ({-# LINE 186 "src-ag/GenerateCode.ag" #-}+ show nt_ ++ ":" ++ show con_ ++ ":" ++ _patDescr+ {-# LINE 3831 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 187, column 12)+ _addCostCentre =+ ({-# LINE 187 "src-ag/GenerateCode.ag" #-}+ \v -> if _lhsIo_costcentre+ then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v+ else v+ {-# LINE 3839 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 190, column 12)+ _addLinePragma =+ ({-# LINE 190 "src-ag/GenerateCode.ag" #-}+ \v -> let p = getPos name_+ hasPos = line p > 0 && column p >= 0 && not (null (file p))+ in if _lhsIo_linePragmas && hasPos+ then PragmaExpr True True ("LINE " ++ show (line p) ++ " " ++ show (file p))+ $ LineExpr+ $ v+ else v+ {-# LINE 3851 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 197, column 12)+ _decls =+ ({-# LINE 197 "src-ag/GenerateCode.ag" #-}+ if hasCode_+ then _originComment ( mkDecl (_lhsIo_monadic && explicit_) (Pattern3 _patternIcopy) (_addTrace $ _addCostCentre $ _addLinePragma $ (TextExpr rhs_))+ (Set.fromList [attrname False fld nm | (fld,nm,_) <- Map.elems defines_])+ (Set.fromList [attrname True fld nm | (fld,nm) <- Set.toList uses_])+ : _instDecls )+ else _instDecls+ {-# LINE 3862 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 266, column 12)+ _definedInsts =+ ({-# LINE 266 "src-ag/GenerateCode.ag" #-}+ if isIn_ then [] else _patternIdefinedInsts+ {-# LINE 3868 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 336, column 12)+ _rulename =+ ({-# LINE 336 "src-ag/GenerateCode.ag" #-}+ if field_ == _LOC && name_ `elem` _lhsIterminals+ then funname name_ 0+ else attrname isIn_ field_ name_+ {-# LINE 3876 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 339, column 12)+ _lhsOexprs =+ ({-# LINE 339 "src-ag/GenerateCode.ag" #-}+ [SimpleExpr _rulename ]+ {-# LINE 3882 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 355, column 7)+ _lhsOusedVars =+ ({-# LINE 355 "src-ag/GenerateCode.ag" #-}+ Set.singleton _rulename+ {-# LINE 3888 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 365, column 19)+ _mkTp =+ ({-# LINE 365 "src-ag/GenerateCode.ag" #-}+ typeToCodeType (Just _lhsInt) _orgParams+ {-# LINE 3894 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 366, column 19)+ _lhsOtSigs =+ ({-# LINE 366 "src-ag/GenerateCode.ag" #-}+ [ TSig (attrname False field attr) tp'+ | (field,attr,tp) <- Map.elems defines_, isJust tp+ , let tp1 = _evalTp field $ _mkTp (fromJust tp)+ tp' = case findOrigType attr _lhsIchildren of+ Just tp' -> let tp2 = _evalTp field $ _mkTp tp'+ in Arr tp2 tp1+ Nothing -> tp1+ findOrigType nm [] = Nothing+ findOrigType nm ((n,_,kind) : r)+ | nm == n = case kind of+ ChildReplace orig -> Just orig+ _ -> Nothing+ | otherwise = findOrigType nm r+ ]+ {-# LINE 3913 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 381, column 19)+ _orgParams =+ ({-# LINE 381 "src-ag/GenerateCode.ag" #-}+ map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap+ {-# LINE 3919 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 382, column 19)+ _evalTp =+ ({-# LINE 382 "src-ag/GenerateCode.ag" #-}+ \field tp -> let orgFldParams = map getName $ Map.findWithDefault [] childNt _lhsIparamMap+ (childNt,instParams) = Map.findWithDefault (_lhsInt,[]) field _lhsIparamInstMap+ replMap = Map.fromList (zip orgFldParams instParams)+ replace k = Map.findWithDefault ('@':k) k replMap+ in if null instParams+ then if null _orgParams+ then tp+ else idEvalType tp+ else evalType replace tp+ {-# LINE 3933 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 418, column 23)+ (_lhsOtps,_lhsOallTpsFound) =+ ({-# LINE 418 "src-ag/GenerateCode.ag" #-}+ maybe ([],False) (\tp -> ([tp],True)) tp_+ {-# LINE 3939 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 616, column 7)+ _lhsOdeclsAbove =+ ({-# LINE 616 "src-ag/GenerateCode.ag" #-}+ _lhsIdeclsAbove ++ _decls+ {-# LINE 3945 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 629, column 7)+ _lhsObldBlocksFun =+ ({-# LINE 629 "src-ag/GenerateCode.ag" #-}+ id+ {-# LINE 3951 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 903, column 18)+ _lhsOcomments =+ ({-# LINE 903 "src-ag/GenerateCode.ag" #-}+ [ makeLocalComment 11 _lhsIwhat name tp | (field,name,tp) <- Map.elems defines_, field == _LOC ]+ ++ [ makeLocalComment 11 "inst " name tp | (field,name,tp) <- Map.elems defines_, field == _INST ]+ {-# LINE 3958 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 155, column 34)+ _lhsOdecls =+ ({-# LINE 155 "src-ag/GenerateCode.ag" #-}+ _decls+ {-# LINE 3964 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 261 "src-ag/GenerateCode.ag" #-}+ _definedInsts+ {-# LINE 3970 "dist/build/GenerateCode" #-}+ )+ -- copy rule (chain)+ _lhsOvisitedSet =+ ({-# LINE 145 "src-ag/GenerateCode.ag" #-}+ _lhsIvisitedSet+ {-# LINE 3976 "dist/build/GenerateCode" #-}+ )+ ( _patternIcopy,_patternIdefinedInsts,_patternIpatternAttributes) =+ pattern_+ ___node =+ (Syn_CRule _lhsOallTpsFound _lhsObldBlocksFun _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars _lhsOvisitedSet)+ in ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))))+-- CSegment ----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ inh : Attributes+ isLast : Bool+ nr : Int+ nt : NontermIdent+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramMap : ParamMap+ prefix : String+ syn : Attributes+ synthesized attributes:+ comments : [String]+ semDom : [Decl]+ semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)+ wrapDecls : Decls+ alternatives:+ alternative CSegment:+ child inh : {Attributes}+ child syn : {Attributes}+ visit 0:+ local altSemForm : _+ local tp : _+ local inhTps : _+ local inhTup : _+ local synTps : _+ local curTypeName : _+ local nextTypeName : _+ local indexName : _+ local dataIndex : _+ local indexExpr : _+ local indexStr : _+ local inhInstance : _+ local synInstance : _+ local continuation : _+ local params : _+-}+-- cata+sem_CSegment :: CSegment ->+ T_CSegment+sem_CSegment (CSegment _inh _syn) =+ (sem_CSegment_CSegment _inh _syn)+-- semantic domain+newtype T_CSegment = T_CSegment (Attributes ->+ Bool ->+ Int ->+ NontermIdent ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ ParamMap ->+ String ->+ Attributes ->+ ( ([String]),([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls))+data Inh_CSegment = Inh_CSegment {inh_Inh_CSegment :: !(Attributes),isLast_Inh_CSegment :: !(Bool),nr_Inh_CSegment :: !(Int),nt_Inh_CSegment :: !(NontermIdent),o_case_Inh_CSegment :: !(Bool),o_cata_Inh_CSegment :: !(Bool),o_costcentre_Inh_CSegment :: !(Bool),o_data_Inh_CSegment :: !((Maybe Bool)),o_linePragmas_Inh_CSegment :: !(Bool),o_monadic_Inh_CSegment :: !(Bool),o_newtypes_Inh_CSegment :: !(Bool),o_pretty_Inh_CSegment :: !(Bool),o_rename_Inh_CSegment :: !(Bool),o_sem_Inh_CSegment :: !(Bool),o_sig_Inh_CSegment :: !(Bool),o_splitsems_Inh_CSegment :: !(Bool),o_strictwrap_Inh_CSegment :: !(Bool),o_traces_Inh_CSegment :: !(Bool),o_unbox_Inh_CSegment :: !(Bool),options_Inh_CSegment :: !(Options),paramMap_Inh_CSegment :: !(ParamMap),prefix_Inh_CSegment :: !(String),syn_Inh_CSegment :: !(Attributes)}+data Syn_CSegment = Syn_CSegment {comments_Syn_CSegment :: !(([String])),semDom_Syn_CSegment :: !(([Decl])),semDomUnfoldGath_Syn_CSegment :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CSegment :: !(Decls)}+wrap_CSegment :: T_CSegment ->+ Inh_CSegment ->+ Syn_CSegment+wrap_CSegment (T_CSegment sem) (Inh_CSegment _lhsIinh _lhsIisLast _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn) =+ (let ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsIisLast _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn+ in (Syn_CSegment _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls))+sem_CSegment_CSegment :: Attributes ->+ Attributes ->+ T_CSegment+sem_CSegment_CSegment inh_ syn_ =+ (T_CSegment (\ _lhsIinh+ _lhsIisLast+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn ->+ (let _lhsOsemDom :: ([Decl])+ _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _lhsOwrapDecls :: Decls+ _lhsOcomments :: ([String])+ -- "src-ag/GenerateCode.ag"(line 715, column 15)+ _altSemForm =+ ({-# LINE 715 "src-ag/GenerateCode.ag" #-}+ breadthFirst _lhsIoptions+ {-# LINE 4109 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 716, column 15)+ _tp =+ ({-# LINE 716 "src-ag/GenerateCode.ag" #-}+ if _altSemForm+ then TypeApp (SimpleType "Child") [SimpleType "EvalInfo", _indexExpr ]+ else foldr Arr _synTps _inhTps+ {-# LINE 4117 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 719, column 15)+ _inhTps =+ ({-# LINE 719 "src-ag/GenerateCode.ag" #-}+ [typeToCodeType (Just _lhsInt) _params tp | tp <- Map.elems inh_]+ {-# LINE 4123 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 720, column 15)+ _inhTup =+ ({-# LINE 720 "src-ag/GenerateCode.ag" #-}+ mkTupleType _lhsIo_unbox (null _inhTps ) _inhTps+ {-# LINE 4129 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 721, column 15)+ _synTps =+ ({-# LINE 721 "src-ag/GenerateCode.ag" #-}+ mkTupleType _lhsIo_unbox (null _inhTps ) ([typeToCodeType (Just _lhsInt) _params tp | tp <- Map.elems syn_] ++ _continuation )+ {-# LINE 4135 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 722, column 15)+ _curTypeName =+ ({-# LINE 722 "src-ag/GenerateCode.ag" #-}+ typeName _lhsInt _lhsInr+ {-# LINE 4141 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 723, column 15)+ _nextTypeName =+ ({-# LINE 723 "src-ag/GenerateCode.ag" #-}+ typeName _lhsInt (_lhsInr + 1)+ {-# LINE 4147 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 724, column 15)+ _indexName =+ ({-# LINE 724 "src-ag/GenerateCode.ag" #-}+ "I_" ++ _curTypeName+ {-# LINE 4153 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 725, column 15)+ _dataIndex =+ ({-# LINE 725 "src-ag/GenerateCode.ag" #-}+ Code.Data _indexName _params [DataAlt _indexName []] False []+ {-# LINE 4159 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 726, column 15)+ _indexExpr =+ ({-# LINE 726 "src-ag/GenerateCode.ag" #-}+ TypeApp (SimpleType _indexName ) (map (SimpleType . ('@':)) _params )+ {-# LINE 4165 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 727, column 15)+ _indexStr =+ ({-# LINE 727 "src-ag/GenerateCode.ag" #-}+ "(" ++ _indexName ++ concatMap (\p -> " " ++ p) _params ++ ")"+ {-# LINE 4171 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 728, column 15)+ _inhInstance =+ ({-# LINE 728 "src-ag/GenerateCode.ag" #-}+ Code.Data "instance Inh" [_indexStr ] [DataAlt (typeName _lhsInt _lhsInr ++ "_Inh") [_inhTup ] ] False []+ {-# LINE 4177 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 729, column 15)+ _synInstance =+ ({-# LINE 729 "src-ag/GenerateCode.ag" #-}+ Code.Data "instance Syn" [_indexStr ] [DataAlt (typeName _lhsInt _lhsInr ++ "_Syn") [_synTps ] ] False []+ {-# LINE 4183 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 730, column 15)+ _continuation =+ ({-# LINE 730 "src-ag/GenerateCode.ag" #-}+ if _lhsIisLast+ then []+ else [TypeApp (SimpleType _nextTypeName ) (map (SimpleType . ('@':)) _params )]+ {-# LINE 4191 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 733, column 15)+ _params =+ ({-# LINE 733 "src-ag/GenerateCode.ag" #-}+ map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap+ {-# LINE 4197 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 734, column 15)+ _lhsOsemDom =+ ({-# LINE 734 "src-ag/GenerateCode.ag" #-}+ let name = typeName _lhsInt _lhsInr+ evalTp | null _params = id+ | otherwise = idEvalType+ in ( if _lhsIo_newtypes+ then [ Code.NewType name _params name (evalTp _tp ) ]+ else [ Code.Type name _params (evalTp _tp ) ] )+ ++ ( if _altSemForm+ then [_dataIndex , _inhInstance , _synInstance ]+ else [] )+ {-# LINE 4211 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 748, column 7)+ _lhsOsemDomUnfoldGath =+ ({-# LINE 748 "src-ag/GenerateCode.ag" #-}+ Map.singleton (_lhsInt, _lhsInr) (_params , _tp )+ {-# LINE 4217 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 831, column 15)+ _lhsOwrapDecls =+ ({-# LINE 831 "src-ag/GenerateCode.ag" #-}+ let lhsVars = map (lhsname False) (Map.keys syn_)+ ++ if _lhsIisLast then [] else [unwrap ++ sem (_lhsInr+1)]+ rhsVars = map (lhsname True) (Map.keys inh_)+ rhs = map SimpleExpr rhsVars+ unwrap = if _lhsIo_newtypes then typeName _lhsInt (_lhsInr + 1) ++ " " else ""+ var = "sem"+ sem 0 = var+ sem n = var ++ "_" ++ show n+ ntt = typeName _lhsInt _lhsInr+ in [ EvalDecl ntt (mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars) (InvokeExpr ntt (SimpleExpr $ sem _lhsInr) rhs) ]+ {-# LINE 4232 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 873, column 18)+ _lhsOcomments =+ ({-# LINE 873 "src-ag/GenerateCode.ag" #-}+ let body = map ind (showsSegment (CSegment inh_ syn_))+ in if null body+ then []+ else ("visit " ++ show _lhsInr ++ ":") : body+ {-# LINE 4241 "dist/build/GenerateCode" #-}+ )+ ___node =+ (Syn_CSegment _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls)+ in ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))))+-- CSegments ---------------------------------------------------+{-+ visit 0:+ inherited attributes:+ inh : Attributes+ nr : Int+ nt : NontermIdent+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramMap : ParamMap+ prefix : String+ syn : Attributes+ synthesized attributes:+ comments : [String]+ isNil : Bool+ semDom : [Decl]+ semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)+ wrapDecls : Decls+ alternatives:+ alternative Cons:+ child hd : CSegment + child tl : CSegments + alternative Nil:+-}+-- cata+sem_CSegments :: CSegments ->+ T_CSegments+sem_CSegments list =+ (Prelude.foldr sem_CSegments_Cons sem_CSegments_Nil (Prelude.map sem_CSegment list))+-- semantic domain+newtype T_CSegments = T_CSegments (Attributes ->+ Int ->+ NontermIdent ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ ParamMap ->+ String ->+ Attributes ->+ ( ([String]),Bool,([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls))+data Inh_CSegments = Inh_CSegments {inh_Inh_CSegments :: !(Attributes),nr_Inh_CSegments :: !(Int),nt_Inh_CSegments :: !(NontermIdent),o_case_Inh_CSegments :: !(Bool),o_cata_Inh_CSegments :: !(Bool),o_costcentre_Inh_CSegments :: !(Bool),o_data_Inh_CSegments :: !((Maybe Bool)),o_linePragmas_Inh_CSegments :: !(Bool),o_monadic_Inh_CSegments :: !(Bool),o_newtypes_Inh_CSegments :: !(Bool),o_pretty_Inh_CSegments :: !(Bool),o_rename_Inh_CSegments :: !(Bool),o_sem_Inh_CSegments :: !(Bool),o_sig_Inh_CSegments :: !(Bool),o_splitsems_Inh_CSegments :: !(Bool),o_strictwrap_Inh_CSegments :: !(Bool),o_traces_Inh_CSegments :: !(Bool),o_unbox_Inh_CSegments :: !(Bool),options_Inh_CSegments :: !(Options),paramMap_Inh_CSegments :: !(ParamMap),prefix_Inh_CSegments :: !(String),syn_Inh_CSegments :: !(Attributes)}+data Syn_CSegments = Syn_CSegments {comments_Syn_CSegments :: !(([String])),isNil_Syn_CSegments :: !(Bool),semDom_Syn_CSegments :: !(([Decl])),semDomUnfoldGath_Syn_CSegments :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CSegments :: !(Decls)}+wrap_CSegments :: T_CSegments ->+ Inh_CSegments ->+ Syn_CSegments+wrap_CSegments (T_CSegments sem) (Inh_CSegments _lhsIinh _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn) =+ (let ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn+ in (Syn_CSegments _lhsOcomments _lhsOisNil _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls))+sem_CSegments_Cons :: T_CSegment ->+ T_CSegments ->+ T_CSegments+sem_CSegments_Cons (T_CSegment hd_) (T_CSegments tl_) =+ (T_CSegments (\ _lhsIinh+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn ->+ (let _tlOnr :: Int+ _lhsOisNil :: Bool+ _hdOisLast :: Bool+ _lhsOcomments :: ([String])+ _lhsOsemDom :: ([Decl])+ _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _lhsOwrapDecls :: Decls+ _hdOinh :: Attributes+ _hdOnr :: Int+ _hdOnt :: NontermIdent+ _hdOo_case :: Bool+ _hdOo_cata :: Bool+ _hdOo_costcentre :: Bool+ _hdOo_data :: (Maybe Bool)+ _hdOo_linePragmas :: Bool+ _hdOo_monadic :: Bool+ _hdOo_newtypes :: Bool+ _hdOo_pretty :: Bool+ _hdOo_rename :: Bool+ _hdOo_sem :: Bool+ _hdOo_sig :: Bool+ _hdOo_splitsems :: Bool+ _hdOo_strictwrap :: Bool+ _hdOo_traces :: Bool+ _hdOo_unbox :: Bool+ _hdOoptions :: Options+ _hdOparamMap :: ParamMap+ _hdOprefix :: String+ _hdOsyn :: Attributes+ _tlOinh :: Attributes+ _tlOnt :: NontermIdent+ _tlOo_case :: Bool+ _tlOo_cata :: Bool+ _tlOo_costcentre :: Bool+ _tlOo_data :: (Maybe Bool)+ _tlOo_linePragmas :: Bool+ _tlOo_monadic :: Bool+ _tlOo_newtypes :: Bool+ _tlOo_pretty :: Bool+ _tlOo_rename :: Bool+ _tlOo_sem :: Bool+ _tlOo_sig :: Bool+ _tlOo_splitsems :: Bool+ _tlOo_strictwrap :: Bool+ _tlOo_traces :: Bool+ _tlOo_unbox :: Bool+ _tlOoptions :: Options+ _tlOparamMap :: ParamMap+ _tlOprefix :: String+ _tlOsyn :: Attributes+ _hdIcomments :: ([String])+ _hdIsemDom :: ([Decl])+ _hdIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _hdIwrapDecls :: Decls+ _tlIcomments :: ([String])+ _tlIisNil :: Bool+ _tlIsemDom :: ([Decl])+ _tlIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _tlIwrapDecls :: Decls+ -- "src-ag/GenerateCode.ag"(line 286, column 11)+ _tlOnr =+ ({-# LINE 286 "src-ag/GenerateCode.ag" #-}+ _lhsInr + 1+ {-# LINE 4410 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 299, column 12)+ _lhsOisNil =+ ({-# LINE 299 "src-ag/GenerateCode.ag" #-}+ False+ {-# LINE 4416 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 300, column 12)+ _hdOisLast =+ ({-# LINE 300 "src-ag/GenerateCode.ag" #-}+ _tlIisNil+ {-# LINE 4422 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)+ _lhsOcomments =+ ({-# LINE 868 "src-ag/GenerateCode.ag" #-}+ _hdIcomments ++ _tlIcomments+ {-# LINE 4428 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 710, column 50)+ _lhsOsemDom =+ ({-# LINE 710 "src-ag/GenerateCode.ag" #-}+ _hdIsemDom ++ _tlIsemDom+ {-# LINE 4434 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 744, column 86)+ _lhsOsemDomUnfoldGath =+ ({-# LINE 744 "src-ag/GenerateCode.ag" #-}+ _hdIsemDomUnfoldGath `Map.union` _tlIsemDomUnfoldGath+ {-# LINE 4440 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 829, column 52)+ _lhsOwrapDecls =+ ({-# LINE 829 "src-ag/GenerateCode.ag" #-}+ _hdIwrapDecls ++ _tlIwrapDecls+ {-# LINE 4446 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOinh =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 4452 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOnr =+ ({-# LINE 278 "src-ag/GenerateCode.ag" #-}+ _lhsInr+ {-# LINE 4458 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOnt =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 4464 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_case =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 4470 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_cata =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 4476 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_costcentre =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 4482 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_data =+ ({-# LINE 48 "src-ag/GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 4488 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_linePragmas =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 4494 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_monadic =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 4500 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_newtypes =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 4506 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_pretty =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 4512 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_rename =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 4518 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_sem =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 4524 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_sig =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 4530 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_splitsems =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 4536 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_strictwrap =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 4542 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_traces =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 4548 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_unbox =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 4554 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 50 "src-ag/GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 4560 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOparamMap =+ ({-# LINE 95 "src-ag/GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 4566 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOprefix =+ ({-# LINE 49 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 4572 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOsyn =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 4578 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOinh =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 4584 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOnt =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 4590 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_case =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 4596 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_cata =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 4602 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_costcentre =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 4608 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_data =+ ({-# LINE 48 "src-ag/GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 4614 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_linePragmas =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 4620 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_monadic =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 4626 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_newtypes =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 4632 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_pretty =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 4638 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_rename =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 4644 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_sem =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 4650 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_sig =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 4656 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_splitsems =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 4662 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_strictwrap =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 4668 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_traces =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 4674 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_unbox =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 4680 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 50 "src-ag/GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 4686 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOparamMap =+ ({-# LINE 95 "src-ag/GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 4692 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOprefix =+ ({-# LINE 49 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 4698 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOsyn =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 4704 "dist/build/GenerateCode" #-}+ )+ ( _hdIcomments,_hdIsemDom,_hdIsemDomUnfoldGath,_hdIwrapDecls) =+ hd_ _hdOinh _hdOisLast _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOsyn+ ( _tlIcomments,_tlIisNil,_tlIsemDom,_tlIsemDomUnfoldGath,_tlIwrapDecls) =+ tl_ _tlOinh _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOsyn+ ___node =+ (Syn_CSegments _lhsOcomments _lhsOisNil _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls)+ in ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))))+sem_CSegments_Nil :: T_CSegments+sem_CSegments_Nil =+ (T_CSegments (\ _lhsIinh+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn ->+ (let _lhsOisNil :: Bool+ _lhsOcomments :: ([String])+ _lhsOsemDom :: ([Decl])+ _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))+ _lhsOwrapDecls :: Decls+ -- "src-ag/GenerateCode.ag"(line 301, column 10)+ _lhsOisNil =+ ({-# LINE 301 "src-ag/GenerateCode.ag" #-}+ True+ {-# LINE 4746 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)+ _lhsOcomments =+ ({-# LINE 868 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 4752 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 710, column 50)+ _lhsOsemDom =+ ({-# LINE 710 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 4758 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 744, column 86)+ _lhsOsemDomUnfoldGath =+ ({-# LINE 744 "src-ag/GenerateCode.ag" #-}+ Map.empty+ {-# LINE 4764 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 829, column 52)+ _lhsOwrapDecls =+ ({-# LINE 829 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 4770 "dist/build/GenerateCode" #-}+ )+ ___node =+ (Syn_CSegments _lhsOcomments _lhsOisNil _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls)+ in ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))))+-- CVisit ------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allNts : Set NontermIdent+ allPragmas : PragmaMap+ aroundMap : Set Identifier+ children : [(Identifier,Type, ChildKind)]+ con : ConstructorIdent+ contextMap : ContextMap+ inh : Attributes+ instVisitNrs : Map Identifier Int+ isLast : Bool+ mergeMap : Map Identifier (Identifier, [Identifier])+ nextIntra : Exprs+ nextIntraVars : Set String+ nr : Int+ nt : NontermIdent+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramInstMap : Map Identifier (NontermIdent, [String])+ paramMap : ParamMap+ prefix : String+ quantMap : QuantMap+ syn : Attributes+ terminals : [Identifier]+ unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type+ with_sig : Bool+ wrappers : Set NontermIdent+ chained attributes:+ decls : Decls+ visitedSet : Set Identifier+ synthesized attributes:+ comments : [String]+ gatherInstVisitNrs : Map Identifier Int+ intra : Exprs+ intraVars : Set String+ semNames : [String]+ alternatives:+ alternative CVisit:+ child inh : {Attributes}+ child syn : {Attributes}+ child vss : Sequence + child intra : Sequence + child ordered : {Bool}+ visit 0:+ local higherOrderChildren : _+ local firstOrderChildren : _+ local firstOrderOrig : _+ local funcname : _+ local nextVisitName : _+ local nextVisitDecl : _+ local isOneVisit : _+ local hasWrappers : _+ local refDecls : _+ local decls : _+ local lastExprVars : _+ local blockFunDecls : _+ local blockFirstFunCall : _+ local costCentreDescr : _+ local addCostCentre : _+ local params : _+ local semFun : _+ local tsig : _+ local semType : _+ local typeSigs : _+ local o_do : _+ local o_case : _+ local declsType : _+ local o_splitsems : _+-}+-- cata+sem_CVisit :: CVisit ->+ T_CVisit+sem_CVisit (CVisit _inh _syn _vss _intra _ordered) =+ (sem_CVisit_CVisit _inh _syn (sem_Sequence _vss) (sem_Sequence _intra) _ordered)+-- semantic domain+newtype T_CVisit = T_CVisit ((Set NontermIdent) ->+ PragmaMap ->+ (Set Identifier) ->+ ([(Identifier,Type, ChildKind)]) ->+ ConstructorIdent ->+ ContextMap ->+ Decls ->+ Attributes ->+ (Map Identifier Int) ->+ Bool ->+ (Map Identifier (Identifier, [Identifier])) ->+ Exprs ->+ (Set String) ->+ Int ->+ NontermIdent ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ (Map Identifier (NontermIdent, [String])) ->+ ParamMap ->+ String ->+ QuantMap ->+ Attributes ->+ ([Identifier]) ->+ (NontermIdent -> Int -> [String] -> Code.Type) ->+ (Set Identifier) ->+ Bool ->+ (Set NontermIdent) ->+ ( ([String]),Decls,(Map Identifier Int),Exprs,(Set String),([String]),(Set Identifier)))+data Inh_CVisit = Inh_CVisit {allNts_Inh_CVisit :: !((Set NontermIdent)),allPragmas_Inh_CVisit :: !(PragmaMap),aroundMap_Inh_CVisit :: !((Set Identifier)),children_Inh_CVisit :: !(([(Identifier,Type, ChildKind)])),con_Inh_CVisit :: !(ConstructorIdent),contextMap_Inh_CVisit :: !(ContextMap),decls_Inh_CVisit :: !(Decls),inh_Inh_CVisit :: !(Attributes),instVisitNrs_Inh_CVisit :: !((Map Identifier Int)),isLast_Inh_CVisit :: !(Bool),mergeMap_Inh_CVisit :: !((Map Identifier (Identifier, [Identifier]))),nextIntra_Inh_CVisit :: !(Exprs),nextIntraVars_Inh_CVisit :: !((Set String)),nr_Inh_CVisit :: !(Int),nt_Inh_CVisit :: !(NontermIdent),o_case_Inh_CVisit :: !(Bool),o_cata_Inh_CVisit :: !(Bool),o_costcentre_Inh_CVisit :: !(Bool),o_data_Inh_CVisit :: !((Maybe Bool)),o_linePragmas_Inh_CVisit :: !(Bool),o_monadic_Inh_CVisit :: !(Bool),o_newtypes_Inh_CVisit :: !(Bool),o_pretty_Inh_CVisit :: !(Bool),o_rename_Inh_CVisit :: !(Bool),o_sem_Inh_CVisit :: !(Bool),o_sig_Inh_CVisit :: !(Bool),o_splitsems_Inh_CVisit :: !(Bool),o_strictwrap_Inh_CVisit :: !(Bool),o_traces_Inh_CVisit :: !(Bool),o_unbox_Inh_CVisit :: !(Bool),options_Inh_CVisit :: !(Options),paramInstMap_Inh_CVisit :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CVisit :: !(ParamMap),prefix_Inh_CVisit :: !(String),quantMap_Inh_CVisit :: !(QuantMap),syn_Inh_CVisit :: !(Attributes),terminals_Inh_CVisit :: !(([Identifier])),unfoldSemDom_Inh_CVisit :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CVisit :: !((Set Identifier)),with_sig_Inh_CVisit :: !(Bool),wrappers_Inh_CVisit :: !((Set NontermIdent))}+data Syn_CVisit = Syn_CVisit {comments_Syn_CVisit :: !(([String])),decls_Syn_CVisit :: !(Decls),gatherInstVisitNrs_Syn_CVisit :: !((Map Identifier Int)),intra_Syn_CVisit :: !(Exprs),intraVars_Syn_CVisit :: !((Set String)),semNames_Syn_CVisit :: !(([String])),visitedSet_Syn_CVisit :: !((Set Identifier))}+wrap_CVisit :: T_CVisit ->+ Inh_CVisit ->+ Syn_CVisit+wrap_CVisit (T_CVisit sem) (Inh_CVisit _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIdecls _lhsIinh _lhsIinstVisitNrs _lhsIisLast _lhsImergeMap _lhsInextIntra _lhsInextIntraVars _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig _lhsIwrappers) =+ (let ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOsemNames,_lhsOvisitedSet) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIdecls _lhsIinh _lhsIinstVisitNrs _lhsIisLast _lhsImergeMap _lhsInextIntra _lhsInextIntraVars _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig _lhsIwrappers+ in (Syn_CVisit _lhsOcomments _lhsOdecls _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOsemNames _lhsOvisitedSet))+sem_CVisit_CVisit :: Attributes ->+ Attributes ->+ T_Sequence ->+ T_Sequence ->+ Bool ->+ T_CVisit+sem_CVisit_CVisit inh_ syn_ (T_Sequence vss_) (T_Sequence intra_) ordered_ =+ (T_CVisit (\ _lhsIallNts+ _lhsIallPragmas+ _lhsIaroundMap+ _lhsIchildren+ _lhsIcon+ _lhsIcontextMap+ _lhsIdecls+ _lhsIinh+ _lhsIinstVisitNrs+ _lhsIisLast+ _lhsImergeMap+ _lhsInextIntra+ _lhsInextIntraVars+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamInstMap+ _lhsIparamMap+ _lhsIprefix+ _lhsIquantMap+ _lhsIsyn+ _lhsIterminals+ _lhsIunfoldSemDom+ _lhsIvisitedSet+ _lhsIwith_sig+ _lhsIwrappers ->+ (let _lhsOintra :: Exprs+ _lhsOintraVars :: (Set String)+ _vssOlastExpr :: Expr+ _intraOlastExpr :: Expr+ _lhsOdecls :: Decls+ _lhsOgatherInstVisitNrs :: (Map Identifier Int)+ _vssOdeclsAbove :: ([Decl])+ _intraOdeclsAbove :: ([Decl])+ _lhsOcomments :: ([String])+ _vssOwhat :: String+ _intraOwhat :: String+ _lhsOsemNames :: ([String])+ _lhsOvisitedSet :: (Set Identifier)+ _vssOallNts :: (Set NontermIdent)+ _vssOaroundMap :: (Set Identifier)+ _vssOchildren :: ([(Identifier,Type,ChildKind)])+ _vssOcon :: ConstructorIdent+ _vssOinh :: Attributes+ _vssOinstVisitNrs :: (Map Identifier Int)+ _vssOmergeMap :: (Map Identifier (Identifier, [Identifier]))+ _vssOnr :: Int+ _vssOnt :: NontermIdent+ _vssOo_case :: Bool+ _vssOo_cata :: Bool+ _vssOo_costcentre :: Bool+ _vssOo_data :: (Maybe Bool)+ _vssOo_linePragmas :: Bool+ _vssOo_monadic :: Bool+ _vssOo_newtypes :: Bool+ _vssOo_pretty :: Bool+ _vssOo_rename :: Bool+ _vssOo_sem :: Bool+ _vssOo_sig :: Bool+ _vssOo_splitsems :: Bool+ _vssOo_strictwrap :: Bool+ _vssOo_traces :: Bool+ _vssOo_unbox :: Bool+ _vssOoptions :: Options+ _vssOparamInstMap :: (Map Identifier (NontermIdent, [String]))+ _vssOparamMap :: ParamMap+ _vssOprefix :: String+ _vssOsyn :: Attributes+ _vssOterminals :: ([Identifier])+ _vssOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _vssOvisitedSet :: (Set Identifier)+ _intraOallNts :: (Set NontermIdent)+ _intraOaroundMap :: (Set Identifier)+ _intraOchildren :: ([(Identifier,Type,ChildKind)])+ _intraOcon :: ConstructorIdent+ _intraOinh :: Attributes+ _intraOinstVisitNrs :: (Map Identifier Int)+ _intraOmergeMap :: (Map Identifier (Identifier, [Identifier]))+ _intraOnr :: Int+ _intraOnt :: NontermIdent+ _intraOo_case :: Bool+ _intraOo_cata :: Bool+ _intraOo_costcentre :: Bool+ _intraOo_data :: (Maybe Bool)+ _intraOo_linePragmas :: Bool+ _intraOo_monadic :: Bool+ _intraOo_newtypes :: Bool+ _intraOo_pretty :: Bool+ _intraOo_rename :: Bool+ _intraOo_sem :: Bool+ _intraOo_sig :: Bool+ _intraOo_splitsems :: Bool+ _intraOo_strictwrap :: Bool+ _intraOo_traces :: Bool+ _intraOo_unbox :: Bool+ _intraOoptions :: Options+ _intraOparamInstMap :: (Map Identifier (NontermIdent, [String]))+ _intraOparamMap :: ParamMap+ _intraOprefix :: String+ _intraOsyn :: Attributes+ _intraOterminals :: ([Identifier])+ _intraOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _intraOvisitedSet :: (Set Identifier)+ _vssIallTpsFound :: Bool+ _vssIblockDecls :: DeclBlocks+ _vssIcomments :: ([String])+ _vssIdecls :: Decls+ _vssIdeclsAbove :: ([Decl])+ _vssIdefinedInsts :: ([Identifier])+ _vssIexprs :: Exprs+ _vssItSigs :: ([Decl])+ _vssItps :: ([Type])+ _vssIusedVars :: (Set String)+ _vssIvisitedSet :: (Set Identifier)+ _intraIallTpsFound :: Bool+ _intraIblockDecls :: DeclBlocks+ _intraIcomments :: ([String])+ _intraIdecls :: Decls+ _intraIdeclsAbove :: ([Decl])+ _intraIdefinedInsts :: ([Identifier])+ _intraIexprs :: Exprs+ _intraItSigs :: ([Decl])+ _intraItps :: ([Type])+ _intraIusedVars :: (Set String)+ _intraIvisitedSet :: (Set Identifier)+ -- "src-ag/GenerateCode.ag"(line 310, column 13)+ _lhsOintra =+ ({-# LINE 310 "src-ag/GenerateCode.ag" #-}+ _intraIexprs+ {-# LINE 5067 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 311, column 13)+ _lhsOintraVars =+ ({-# LINE 311 "src-ag/GenerateCode.ag" #-}+ _intraIusedVars+ {-# LINE 5073 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 441, column 13)+ (_higherOrderChildren,_firstOrderChildren) =+ ({-# LINE 441 "src-ag/GenerateCode.ag" #-}+ partition (\(_,_,virt) -> isHigherOrder virt) _lhsIchildren+ {-# LINE 5079 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 442, column 13)+ _firstOrderOrig =+ ({-# LINE 442 "src-ag/GenerateCode.ag" #-}+ map pickOrigType _firstOrderChildren+ {-# LINE 5085 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 443, column 13)+ _funcname =+ ({-# LINE 443 "src-ag/GenerateCode.ag" #-}+ seqSemname _lhsIprefix _lhsInt _lhsIcon _lhsInr+ {-# LINE 5091 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 444, column 13)+ _nextVisitName =+ ({-# LINE 444 "src-ag/GenerateCode.ag" #-}+ if _lhsIisLast then [] else [visitname _lhsIprefix _lhsInt (_lhsInr+1)]+ {-# LINE 5097 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 445, column 13)+ _nextVisitDecl =+ ({-# LINE 445 "src-ag/GenerateCode.ag" #-}+ let lhs = TupleLhs _nextVisitName+ rhs = Let _lhsIdecls (SimpleExpr fun)+ fun = seqSemname _lhsIprefix _lhsInt _lhsIcon (_lhsInr+1)+ in if _lhsIisLast+ then []+ else [Decl lhs rhs (Set.fromList _nextVisitName) _lhsInextIntraVars]+ {-# LINE 5108 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 452, column 13)+ _isOneVisit =+ ({-# LINE 452 "src-ag/GenerateCode.ag" #-}+ _lhsIisLast && _lhsInr == 0+ {-# LINE 5114 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 453, column 13)+ _hasWrappers =+ ({-# LINE 453 "src-ag/GenerateCode.ag" #-}+ _lhsInt `Set.member` _lhsIwrappers+ {-# LINE 5120 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 454, column 13)+ _refDecls =+ ({-# LINE 454 "src-ag/GenerateCode.ag" #-}+ if _isOneVisit && _hasWrappers && reference _lhsIoptions+ then let synAttrs = Map.toList syn_+ synNT = "Syn" ++ "_" ++ getName _lhsInt+ synVars = [ SimpleExpr (attrname False _LHS a) | (a,_) <- synAttrs ]+ rhs = App synNT synVars+ lhs = Fun "___node" []+ in [Decl lhs rhs Set.empty Set.empty]+ else []+ {-# LINE 5133 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 462, column 13)+ _decls =+ ({-# LINE 462 "src-ag/GenerateCode.ag" #-}+ _typeSigs ++ _vssIdecls ++ _nextVisitDecl ++ _refDecls+ {-# LINE 5139 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 463, column 13)+ _vssOlastExpr =+ ({-# LINE 463 "src-ag/GenerateCode.ag" #-}+ mkTupleExpr _lhsIo_unbox (null $ Map.keys inh_) $ map (SimpleExpr . lhsname False) (Map.keys syn_) ++ map SimpleExpr _nextVisitName+ {-# LINE 5145 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 464, column 13)+ _intraOlastExpr =+ ({-# LINE 464 "src-ag/GenerateCode.ag" #-}+ error "lastExpr: not used here"+ {-# LINE 5151 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 465, column 13)+ _lastExprVars =+ ({-# LINE 465 "src-ag/GenerateCode.ag" #-}+ map (lhsname False) (Map.keys syn_) ++ _nextVisitName+ {-# LINE 5157 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 466, column 13)+ (_blockFunDecls,_blockFirstFunCall) =+ ({-# LINE 466 "src-ag/GenerateCode.ag" #-}+ mkPartitionedFunction _funcname _o_case _nextVisitDecl _lastExprVars _vssIblockDecls+ {-# LINE 5163 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 468, column 13)+ _costCentreDescr =+ ({-# LINE 468 "src-ag/GenerateCode.ag" #-}+ "b" ++ ":" ++ show _lhsInt ++ ":" ++ show _lhsIcon ++ ":" ++ show _lhsInr+ {-# LINE 5169 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 469, column 13)+ _addCostCentre =+ ({-# LINE 469 "src-ag/GenerateCode.ag" #-}+ \v -> if _lhsIo_costcentre+ then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v+ else v+ {-# LINE 5177 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 473, column 13)+ _params =+ ({-# LINE 473 "src-ag/GenerateCode.ag" #-}+ map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap+ {-# LINE 5183 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 474, column 13)+ _semFun =+ ({-# LINE 474 "src-ag/GenerateCode.ag" #-}+ let lhs = Fun _funcname lhs_args+ lhs_args = if _lhsInr == 0 then map field _firstOrderOrig else []+ field (name,NT tp tps _,_) = let unwrap | _lhsIo_newtypes = \x -> App (sdtype tp) [x]+ | otherwise = id+ addType expr | null tps = expr+ | otherwise = TypedExpr expr (_lhsIunfoldSemDom tp 0 tps)+ in unwrap $ addType $ SimpleExpr $ funname name 0+ field (name,tp,_) = let expr = SimpleExpr (funname name 0)+ in if null _params+ then expr+ else TypedExpr expr (idEvalType $ typeToCodeType (Just _lhsInt) _params $ removeDeforested tp)+ mbEvalTp | null _params = const Nothing+ | otherwise = Just . idEvalType+ rhs = wrap+ . mkSemFun _lhsInt _lhsInr [mkLambdaArg (lhsname True nm) (mbEvalTp $ typeToCodeType (Just _lhsInt) _params $ removeDeforested tp) | (nm,tp) <- Map.assocs inh_]+ $ _addCostCentre+ $ if ordered_ && _o_splitsems+ then _blockFirstFunCall+ else mkDecls _declsType _decls+ . ResultExpr (typeName _lhsInt _lhsInr)+ . mkTupleExpr _lhsIo_unbox (null $ Map.keys inh_)+ $ map (SimpleExpr . lhsname False) (Map.keys syn_) ++ map SimpleExpr _nextVisitName+ wrap = if _lhsIo_newtypes+ then \x -> App (typeName _lhsInt _lhsInr) [x]+ else id+ in Decl lhs rhs Set.empty Set.empty+ {-# LINE 5214 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 505, column 13)+ _tsig =+ ({-# LINE 505 "src-ag/GenerateCode.ag" #-}+ TSig _funcname _semType+ {-# LINE 5220 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 506, column 13)+ _semType =+ ({-# LINE 506 "src-ag/GenerateCode.ag" #-}+ let argType (NT tp tps _) r | tp /= _SELF = typeAppStrs (sdtype tp) tps `Arr` r+ | tp == _SELF = error "GenerateCode: found an intra-type with type SELF, which should have been prevented by CRule.tps"+ argType (Haskell tp) r = SimpleType tp `Arr` r+ evalTp | null _params = id+ | otherwise = idEvalType+ in appQuant _lhsIquantMap _lhsInt $ appContext _lhsIcontextMap _lhsInt $ evalTp $+ if _lhsInr == 0+ then foldr argType (typeAppStrs (sdtype _lhsInt ) _params ) (map (\(_,t,_) -> t) _firstOrderOrig )+ else foldr argType (typeAppStrs (typeName _lhsInt _lhsInr) _params ) []+ {-# LINE 5234 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 517, column 13)+ _lhsOdecls =+ ({-# LINE 517 "src-ag/GenerateCode.ag" #-}+ ( if _lhsIwith_sig+ then [_tsig, _semFun]+ else [_semFun]+ ) +++ ( if ordered_ && _o_splitsems+ then _blockFunDecls+ else []+ )+ {-# LINE 5247 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 525, column 13)+ _typeSigs =+ ({-# LINE 525 "src-ag/GenerateCode.ag" #-}+ if _lhsIo_sig && not _o_case+ then _vssItSigs+ else []+ {-# LINE 5255 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 528, column 13)+ _o_do =+ ({-# LINE 528 "src-ag/GenerateCode.ag" #-}+ ordered_ && _lhsIo_monadic+ {-# LINE 5261 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 529, column 13)+ _o_case =+ ({-# LINE 529 "src-ag/GenerateCode.ag" #-}+ not _o_do && _lhsIo_case && ordered_ && not (hasPragma _lhsIallPragmas _lhsInt _lhsIcon _NOCASE)+ {-# LINE 5267 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 530, column 13)+ _declsType =+ ({-# LINE 530 "src-ag/GenerateCode.ag" #-}+ if _o_do+ then DeclsDo+ else if _o_case+ then DeclsCase+ else DeclsLet+ {-# LINE 5277 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 535, column 13)+ _o_splitsems =+ ({-# LINE 535 "src-ag/GenerateCode.ag" #-}+ ordered_ && _lhsIo_splitsems+ {-# LINE 5283 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 568, column 7)+ _lhsOgatherInstVisitNrs =+ ({-# LINE 568 "src-ag/GenerateCode.ag" #-}+ Map.fromList [(i,_lhsInr) | i <- _vssIdefinedInsts]+ {-# LINE 5289 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 611, column 7)+ _vssOdeclsAbove =+ ({-# LINE 611 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 5295 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 612, column 7)+ _intraOdeclsAbove =+ ({-# LINE 612 "src-ag/GenerateCode.ag" #-}+ error "declsAbove: not used here"+ {-# LINE 5301 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 894, column 18)+ _lhsOcomments =+ ({-# LINE 894 "src-ag/GenerateCode.ag" #-}+ let body = map ind (_vssIcomments ++ _intraIcomments)+ in if null body+ then []+ else ("visit " ++ show _lhsInr ++ ":") : body+ {-# LINE 5310 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 898, column 18)+ _vssOwhat =+ ({-# LINE 898 "src-ag/GenerateCode.ag" #-}+ "local"+ {-# LINE 5316 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 899, column 18)+ _intraOwhat =+ ({-# LINE 899 "src-ag/GenerateCode.ag" #-}+ "intra"+ {-# LINE 5322 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 1156, column 7)+ _lhsOsemNames =+ ({-# LINE 1156 "src-ag/GenerateCode.ag" #-}+ [_funcname ]+ {-# LINE 5328 "dist/build/GenerateCode" #-}+ )+ -- copy rule (up)+ _lhsOvisitedSet =+ ({-# LINE 145 "src-ag/GenerateCode.ag" #-}+ _intraIvisitedSet+ {-# LINE 5334 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOallNts =+ ({-# LINE 132 "src-ag/GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 5340 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOaroundMap =+ ({-# LINE 580 "src-ag/GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 5346 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOchildren =+ ({-# LINE 259 "src-ag/GenerateCode.ag" #-}+ _lhsIchildren+ {-# LINE 5352 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOcon =+ ({-# LINE 89 "src-ag/GenerateCode.ag" #-}+ _lhsIcon+ {-# LINE 5358 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOinh =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 5364 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOinstVisitNrs =+ ({-# LINE 560 "src-ag/GenerateCode.ag" #-}+ _lhsIinstVisitNrs+ {-# LINE 5370 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOmergeMap =+ ({-# LINE 596 "src-ag/GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 5376 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOnr =+ ({-# LINE 278 "src-ag/GenerateCode.ag" #-}+ _lhsInr+ {-# LINE 5382 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOnt =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 5388 "dist/build/GenerateCode" #-}+ )+ -- copy rule (from local)+ _vssOo_case =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _o_case+ {-# LINE 5394 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOo_cata =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 5400 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOo_costcentre =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 5406 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOo_data =+ ({-# LINE 48 "src-ag/GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 5412 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOo_linePragmas =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 5418 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOo_monadic =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 5424 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOo_newtypes =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 5430 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOo_pretty =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 5436 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOo_rename =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 5442 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOo_sem =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 5448 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOo_sig =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 5454 "dist/build/GenerateCode" #-}+ )+ -- copy rule (from local)+ _vssOo_splitsems =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _o_splitsems+ {-# LINE 5460 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOo_strictwrap =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 5466 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOo_traces =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 5472 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOo_unbox =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 5478 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOoptions =+ ({-# LINE 50 "src-ag/GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 5484 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOparamInstMap =+ ({-# LINE 101 "src-ag/GenerateCode.ag" #-}+ _lhsIparamInstMap+ {-# LINE 5490 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOparamMap =+ ({-# LINE 95 "src-ag/GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 5496 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOprefix =+ ({-# LINE 49 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 5502 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOsyn =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 5508 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOterminals =+ ({-# LINE 90 "src-ag/GenerateCode.ag" #-}+ _lhsIterminals+ {-# LINE 5514 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOunfoldSemDom =+ ({-# LINE 750 "src-ag/GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 5520 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _vssOvisitedSet =+ ({-# LINE 145 "src-ag/GenerateCode.ag" #-}+ _lhsIvisitedSet+ {-# LINE 5526 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOallNts =+ ({-# LINE 132 "src-ag/GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 5532 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOaroundMap =+ ({-# LINE 580 "src-ag/GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 5538 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOchildren =+ ({-# LINE 259 "src-ag/GenerateCode.ag" #-}+ _lhsIchildren+ {-# LINE 5544 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOcon =+ ({-# LINE 89 "src-ag/GenerateCode.ag" #-}+ _lhsIcon+ {-# LINE 5550 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOinh =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 5556 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOinstVisitNrs =+ ({-# LINE 560 "src-ag/GenerateCode.ag" #-}+ _lhsIinstVisitNrs+ {-# LINE 5562 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOmergeMap =+ ({-# LINE 596 "src-ag/GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 5568 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOnr =+ ({-# LINE 278 "src-ag/GenerateCode.ag" #-}+ _lhsInr+ {-# LINE 5574 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOnt =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 5580 "dist/build/GenerateCode" #-}+ )+ -- copy rule (from local)+ _intraOo_case =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _o_case+ {-# LINE 5586 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOo_cata =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 5592 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOo_costcentre =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 5598 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOo_data =+ ({-# LINE 48 "src-ag/GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 5604 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOo_linePragmas =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 5610 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOo_monadic =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 5616 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOo_newtypes =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 5622 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOo_pretty =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 5628 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOo_rename =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 5634 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOo_sem =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 5640 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOo_sig =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 5646 "dist/build/GenerateCode" #-}+ )+ -- copy rule (from local)+ _intraOo_splitsems =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _o_splitsems+ {-# LINE 5652 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOo_strictwrap =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 5658 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOo_traces =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 5664 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOo_unbox =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 5670 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOoptions =+ ({-# LINE 50 "src-ag/GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 5676 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOparamInstMap =+ ({-# LINE 101 "src-ag/GenerateCode.ag" #-}+ _lhsIparamInstMap+ {-# LINE 5682 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOparamMap =+ ({-# LINE 95 "src-ag/GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 5688 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOprefix =+ ({-# LINE 49 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 5694 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOsyn =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 5700 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOterminals =+ ({-# LINE 90 "src-ag/GenerateCode.ag" #-}+ _lhsIterminals+ {-# LINE 5706 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _intraOunfoldSemDom =+ ({-# LINE 750 "src-ag/GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 5712 "dist/build/GenerateCode" #-}+ )+ -- copy rule (chain)+ _intraOvisitedSet =+ ({-# LINE 145 "src-ag/GenerateCode.ag" #-}+ _vssIvisitedSet+ {-# LINE 5718 "dist/build/GenerateCode" #-}+ )+ ( _vssIallTpsFound,_vssIblockDecls,_vssIcomments,_vssIdecls,_vssIdeclsAbove,_vssIdefinedInsts,_vssIexprs,_vssItSigs,_vssItps,_vssIusedVars,_vssIvisitedSet) =+ vss_ _vssOallNts _vssOaroundMap _vssOchildren _vssOcon _vssOdeclsAbove _vssOinh _vssOinstVisitNrs _vssOlastExpr _vssOmergeMap _vssOnr _vssOnt _vssOo_case _vssOo_cata _vssOo_costcentre _vssOo_data _vssOo_linePragmas _vssOo_monadic _vssOo_newtypes _vssOo_pretty _vssOo_rename _vssOo_sem _vssOo_sig _vssOo_splitsems _vssOo_strictwrap _vssOo_traces _vssOo_unbox _vssOoptions _vssOparamInstMap _vssOparamMap _vssOprefix _vssOsyn _vssOterminals _vssOunfoldSemDom _vssOvisitedSet _vssOwhat+ ( _intraIallTpsFound,_intraIblockDecls,_intraIcomments,_intraIdecls,_intraIdeclsAbove,_intraIdefinedInsts,_intraIexprs,_intraItSigs,_intraItps,_intraIusedVars,_intraIvisitedSet) =+ intra_ _intraOallNts _intraOaroundMap _intraOchildren _intraOcon _intraOdeclsAbove _intraOinh _intraOinstVisitNrs _intraOlastExpr _intraOmergeMap _intraOnr _intraOnt _intraOo_case _intraOo_cata _intraOo_costcentre _intraOo_data _intraOo_linePragmas _intraOo_monadic _intraOo_newtypes _intraOo_pretty _intraOo_rename _intraOo_sem _intraOo_sig _intraOo_splitsems _intraOo_strictwrap _intraOo_traces _intraOo_unbox _intraOoptions _intraOparamInstMap _intraOparamMap _intraOprefix _intraOsyn _intraOterminals _intraOunfoldSemDom _intraOvisitedSet _intraOwhat+ ___node =+ (Syn_CVisit _lhsOcomments _lhsOdecls _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOsemNames _lhsOvisitedSet)+ in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOsemNames,_lhsOvisitedSet))))+-- CVisits -----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allNts : Set NontermIdent+ allPragmas : PragmaMap+ aroundMap : Set Identifier+ children : [(Identifier,Type, ChildKind)]+ con : ConstructorIdent+ contextMap : ContextMap+ inh : Attributes+ instVisitNrs : Map Identifier Int+ mergeMap : Map Identifier (Identifier, [Identifier])+ nr : Int+ nt : NontermIdent+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramInstMap : Map Identifier (NontermIdent, [String])+ paramMap : ParamMap+ prefix : String+ quantMap : QuantMap+ syn : Attributes+ terminals : [Identifier]+ unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type+ with_sig : Bool+ wrappers : Set NontermIdent+ chained attribute:+ visitedSet : Set Identifier+ synthesized attributes:+ comments : [String]+ decls : Decls+ gatherInstVisitNrs : Map Identifier Int+ intra : Exprs+ intraVars : Set String+ isNil : Bool+ semNames : [String]+ alternatives:+ alternative Cons:+ child hd : CVisit + child tl : CVisits + alternative Nil:+-}+-- cata+sem_CVisits :: CVisits ->+ T_CVisits+sem_CVisits list =+ (Prelude.foldr sem_CVisits_Cons sem_CVisits_Nil (Prelude.map sem_CVisit list))+-- semantic domain+newtype T_CVisits = T_CVisits ((Set NontermIdent) ->+ PragmaMap ->+ (Set Identifier) ->+ ([(Identifier,Type, ChildKind)]) ->+ ConstructorIdent ->+ ContextMap ->+ Attributes ->+ (Map Identifier Int) ->+ (Map Identifier (Identifier, [Identifier])) ->+ Int ->+ NontermIdent ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ (Map Identifier (NontermIdent, [String])) ->+ ParamMap ->+ String ->+ QuantMap ->+ Attributes ->+ ([Identifier]) ->+ (NontermIdent -> Int -> [String] -> Code.Type) ->+ (Set Identifier) ->+ Bool ->+ (Set NontermIdent) ->+ ( ([String]),Decls,(Map Identifier Int),Exprs,(Set String),Bool,([String]),(Set Identifier)))+data Inh_CVisits = Inh_CVisits {allNts_Inh_CVisits :: !((Set NontermIdent)),allPragmas_Inh_CVisits :: !(PragmaMap),aroundMap_Inh_CVisits :: !((Set Identifier)),children_Inh_CVisits :: !(([(Identifier,Type, ChildKind)])),con_Inh_CVisits :: !(ConstructorIdent),contextMap_Inh_CVisits :: !(ContextMap),inh_Inh_CVisits :: !(Attributes),instVisitNrs_Inh_CVisits :: !((Map Identifier Int)),mergeMap_Inh_CVisits :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_CVisits :: !(Int),nt_Inh_CVisits :: !(NontermIdent),o_case_Inh_CVisits :: !(Bool),o_cata_Inh_CVisits :: !(Bool),o_costcentre_Inh_CVisits :: !(Bool),o_data_Inh_CVisits :: !((Maybe Bool)),o_linePragmas_Inh_CVisits :: !(Bool),o_monadic_Inh_CVisits :: !(Bool),o_newtypes_Inh_CVisits :: !(Bool),o_pretty_Inh_CVisits :: !(Bool),o_rename_Inh_CVisits :: !(Bool),o_sem_Inh_CVisits :: !(Bool),o_sig_Inh_CVisits :: !(Bool),o_splitsems_Inh_CVisits :: !(Bool),o_strictwrap_Inh_CVisits :: !(Bool),o_traces_Inh_CVisits :: !(Bool),o_unbox_Inh_CVisits :: !(Bool),options_Inh_CVisits :: !(Options),paramInstMap_Inh_CVisits :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CVisits :: !(ParamMap),prefix_Inh_CVisits :: !(String),quantMap_Inh_CVisits :: !(QuantMap),syn_Inh_CVisits :: !(Attributes),terminals_Inh_CVisits :: !(([Identifier])),unfoldSemDom_Inh_CVisits :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CVisits :: !((Set Identifier)),with_sig_Inh_CVisits :: !(Bool),wrappers_Inh_CVisits :: !((Set NontermIdent))}+data Syn_CVisits = Syn_CVisits {comments_Syn_CVisits :: !(([String])),decls_Syn_CVisits :: !(Decls),gatherInstVisitNrs_Syn_CVisits :: !((Map Identifier Int)),intra_Syn_CVisits :: !(Exprs),intraVars_Syn_CVisits :: !((Set String)),isNil_Syn_CVisits :: !(Bool),semNames_Syn_CVisits :: !(([String])),visitedSet_Syn_CVisits :: !((Set Identifier))}+wrap_CVisits :: T_CVisits ->+ Inh_CVisits ->+ Syn_CVisits+wrap_CVisits (T_CVisits sem) (Inh_CVisits _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig _lhsIwrappers) =+ (let ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig _lhsIwrappers+ in (Syn_CVisits _lhsOcomments _lhsOdecls _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOisNil _lhsOsemNames _lhsOvisitedSet))+sem_CVisits_Cons :: T_CVisit ->+ T_CVisits ->+ T_CVisits+sem_CVisits_Cons (T_CVisit hd_) (T_CVisits tl_) =+ (T_CVisits (\ _lhsIallNts+ _lhsIallPragmas+ _lhsIaroundMap+ _lhsIchildren+ _lhsIcon+ _lhsIcontextMap+ _lhsIinh+ _lhsIinstVisitNrs+ _lhsImergeMap+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamInstMap+ _lhsIparamMap+ _lhsIprefix+ _lhsIquantMap+ _lhsIsyn+ _lhsIterminals+ _lhsIunfoldSemDom+ _lhsIvisitedSet+ _lhsIwith_sig+ _lhsIwrappers ->+ (let _tlOnr :: Int+ _lhsOisNil :: Bool+ _hdOisLast :: Bool+ _hdOnextIntra :: Exprs+ _hdOnextIntraVars :: (Set String)+ _lhsOintra :: Exprs+ _lhsOintraVars :: (Set String)+ _lhsOdecls :: Decls+ _hdOdecls :: Decls+ _lhsOcomments :: ([String])+ _lhsOgatherInstVisitNrs :: (Map Identifier Int)+ _lhsOsemNames :: ([String])+ _lhsOvisitedSet :: (Set Identifier)+ _hdOallNts :: (Set NontermIdent)+ _hdOallPragmas :: PragmaMap+ _hdOaroundMap :: (Set Identifier)+ _hdOchildren :: ([(Identifier,Type, ChildKind)])+ _hdOcon :: ConstructorIdent+ _hdOcontextMap :: ContextMap+ _hdOinh :: Attributes+ _hdOinstVisitNrs :: (Map Identifier Int)+ _hdOmergeMap :: (Map Identifier (Identifier, [Identifier]))+ _hdOnr :: Int+ _hdOnt :: NontermIdent+ _hdOo_case :: Bool+ _hdOo_cata :: Bool+ _hdOo_costcentre :: Bool+ _hdOo_data :: (Maybe Bool)+ _hdOo_linePragmas :: Bool+ _hdOo_monadic :: Bool+ _hdOo_newtypes :: Bool+ _hdOo_pretty :: Bool+ _hdOo_rename :: Bool+ _hdOo_sem :: Bool+ _hdOo_sig :: Bool+ _hdOo_splitsems :: Bool+ _hdOo_strictwrap :: Bool+ _hdOo_traces :: Bool+ _hdOo_unbox :: Bool+ _hdOoptions :: Options+ _hdOparamInstMap :: (Map Identifier (NontermIdent, [String]))+ _hdOparamMap :: ParamMap+ _hdOprefix :: String+ _hdOquantMap :: QuantMap+ _hdOsyn :: Attributes+ _hdOterminals :: ([Identifier])+ _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _hdOvisitedSet :: (Set Identifier)+ _hdOwith_sig :: Bool+ _hdOwrappers :: (Set NontermIdent)+ _tlOallNts :: (Set NontermIdent)+ _tlOallPragmas :: PragmaMap+ _tlOaroundMap :: (Set Identifier)+ _tlOchildren :: ([(Identifier,Type, ChildKind)])+ _tlOcon :: ConstructorIdent+ _tlOcontextMap :: ContextMap+ _tlOinh :: Attributes+ _tlOinstVisitNrs :: (Map Identifier Int)+ _tlOmergeMap :: (Map Identifier (Identifier, [Identifier]))+ _tlOnt :: NontermIdent+ _tlOo_case :: Bool+ _tlOo_cata :: Bool+ _tlOo_costcentre :: Bool+ _tlOo_data :: (Maybe Bool)+ _tlOo_linePragmas :: Bool+ _tlOo_monadic :: Bool+ _tlOo_newtypes :: Bool+ _tlOo_pretty :: Bool+ _tlOo_rename :: Bool+ _tlOo_sem :: Bool+ _tlOo_sig :: Bool+ _tlOo_splitsems :: Bool+ _tlOo_strictwrap :: Bool+ _tlOo_traces :: Bool+ _tlOo_unbox :: Bool+ _tlOoptions :: Options+ _tlOparamInstMap :: (Map Identifier (NontermIdent, [String]))+ _tlOparamMap :: ParamMap+ _tlOprefix :: String+ _tlOquantMap :: QuantMap+ _tlOsyn :: Attributes+ _tlOterminals :: ([Identifier])+ _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _tlOvisitedSet :: (Set Identifier)+ _tlOwith_sig :: Bool+ _tlOwrappers :: (Set NontermIdent)+ _hdIcomments :: ([String])+ _hdIdecls :: Decls+ _hdIgatherInstVisitNrs :: (Map Identifier Int)+ _hdIintra :: Exprs+ _hdIintraVars :: (Set String)+ _hdIsemNames :: ([String])+ _hdIvisitedSet :: (Set Identifier)+ _tlIcomments :: ([String])+ _tlIdecls :: Decls+ _tlIgatherInstVisitNrs :: (Map Identifier Int)+ _tlIintra :: Exprs+ _tlIintraVars :: (Set String)+ _tlIisNil :: Bool+ _tlIsemNames :: ([String])+ _tlIvisitedSet :: (Set Identifier)+ -- "src-ag/GenerateCode.ag"(line 282, column 11)+ _tlOnr =+ ({-# LINE 282 "src-ag/GenerateCode.ag" #-}+ _lhsInr + 1+ {-# LINE 5981 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 295, column 12)+ _lhsOisNil =+ ({-# LINE 295 "src-ag/GenerateCode.ag" #-}+ False+ {-# LINE 5987 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 296, column 12)+ _hdOisLast =+ ({-# LINE 296 "src-ag/GenerateCode.ag" #-}+ _tlIisNil+ {-# LINE 5993 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 313, column 12)+ _hdOnextIntra =+ ({-# LINE 313 "src-ag/GenerateCode.ag" #-}+ _tlIintra+ {-# LINE 5999 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 314, column 12)+ _hdOnextIntraVars =+ ({-# LINE 314 "src-ag/GenerateCode.ag" #-}+ _tlIintraVars+ {-# LINE 6005 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 315, column 12)+ _lhsOintra =+ ({-# LINE 315 "src-ag/GenerateCode.ag" #-}+ _hdIintra+ {-# LINE 6011 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 316, column 12)+ _lhsOintraVars =+ ({-# LINE 316 "src-ag/GenerateCode.ag" #-}+ _hdIintraVars+ {-# LINE 6017 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 431, column 11)+ _lhsOdecls =+ ({-# LINE 431 "src-ag/GenerateCode.ag" #-}+ _hdIdecls+ {-# LINE 6023 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 432, column 11)+ _hdOdecls =+ ({-# LINE 432 "src-ag/GenerateCode.ag" #-}+ _tlIdecls+ {-# LINE 6029 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)+ _lhsOcomments =+ ({-# LINE 868 "src-ag/GenerateCode.ag" #-}+ _hdIcomments ++ _tlIcomments+ {-# LINE 6035 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 561, column 44)+ _lhsOgatherInstVisitNrs =+ ({-# LINE 561 "src-ag/GenerateCode.ag" #-}+ _hdIgatherInstVisitNrs `Map.union` _tlIgatherInstVisitNrs+ {-# LINE 6041 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 1146, column 61)+ _lhsOsemNames =+ ({-# LINE 1146 "src-ag/GenerateCode.ag" #-}+ _hdIsemNames ++ _tlIsemNames+ {-# LINE 6047 "dist/build/GenerateCode" #-}+ )+ -- copy rule (up)+ _lhsOvisitedSet =+ ({-# LINE 145 "src-ag/GenerateCode.ag" #-}+ _tlIvisitedSet+ {-# LINE 6053 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOallNts =+ ({-# LINE 132 "src-ag/GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 6059 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOallPragmas =+ ({-# LINE 73 "src-ag/GenerateCode.ag" #-}+ _lhsIallPragmas+ {-# LINE 6065 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOaroundMap =+ ({-# LINE 580 "src-ag/GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 6071 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOchildren =+ ({-# LINE 410 "src-ag/GenerateCode.ag" #-}+ _lhsIchildren+ {-# LINE 6077 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOcon =+ ({-# LINE 89 "src-ag/GenerateCode.ag" #-}+ _lhsIcon+ {-# LINE 6083 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOcontextMap =+ ({-# LINE 115 "src-ag/GenerateCode.ag" #-}+ _lhsIcontextMap+ {-# LINE 6089 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOinh =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 6095 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOinstVisitNrs =+ ({-# LINE 560 "src-ag/GenerateCode.ag" #-}+ _lhsIinstVisitNrs+ {-# LINE 6101 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOmergeMap =+ ({-# LINE 596 "src-ag/GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 6107 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOnr =+ ({-# LINE 278 "src-ag/GenerateCode.ag" #-}+ _lhsInr+ {-# LINE 6113 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOnt =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 6119 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_case =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 6125 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_cata =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 6131 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_costcentre =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 6137 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_data =+ ({-# LINE 48 "src-ag/GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 6143 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_linePragmas =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 6149 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_monadic =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 6155 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_newtypes =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 6161 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_pretty =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 6167 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_rename =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 6173 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_sem =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 6179 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_sig =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 6185 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_splitsems =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 6191 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_strictwrap =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 6197 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_traces =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 6203 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_unbox =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 6209 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 50 "src-ag/GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 6215 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOparamInstMap =+ ({-# LINE 101 "src-ag/GenerateCode.ag" #-}+ _lhsIparamInstMap+ {-# LINE 6221 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOparamMap =+ ({-# LINE 95 "src-ag/GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 6227 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOprefix =+ ({-# LINE 49 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 6233 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOquantMap =+ ({-# LINE 115 "src-ag/GenerateCode.ag" #-}+ _lhsIquantMap+ {-# LINE 6239 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOsyn =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 6245 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOterminals =+ ({-# LINE 90 "src-ag/GenerateCode.ag" #-}+ _lhsIterminals+ {-# LINE 6251 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOunfoldSemDom =+ ({-# LINE 750 "src-ag/GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 6257 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOvisitedSet =+ ({-# LINE 145 "src-ag/GenerateCode.ag" #-}+ _lhsIvisitedSet+ {-# LINE 6263 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOwith_sig =+ ({-# LINE 851 "src-ag/GenerateCode.ag" #-}+ _lhsIwith_sig+ {-# LINE 6269 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOwrappers =+ ({-# LINE 987 "src-ag/GenerateCode.ag" #-}+ _lhsIwrappers+ {-# LINE 6275 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOallNts =+ ({-# LINE 132 "src-ag/GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 6281 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOallPragmas =+ ({-# LINE 73 "src-ag/GenerateCode.ag" #-}+ _lhsIallPragmas+ {-# LINE 6287 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOaroundMap =+ ({-# LINE 580 "src-ag/GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 6293 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOchildren =+ ({-# LINE 410 "src-ag/GenerateCode.ag" #-}+ _lhsIchildren+ {-# LINE 6299 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOcon =+ ({-# LINE 89 "src-ag/GenerateCode.ag" #-}+ _lhsIcon+ {-# LINE 6305 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOcontextMap =+ ({-# LINE 115 "src-ag/GenerateCode.ag" #-}+ _lhsIcontextMap+ {-# LINE 6311 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOinh =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 6317 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOinstVisitNrs =+ ({-# LINE 560 "src-ag/GenerateCode.ag" #-}+ _lhsIinstVisitNrs+ {-# LINE 6323 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOmergeMap =+ ({-# LINE 596 "src-ag/GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 6329 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOnt =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 6335 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_case =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 6341 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_cata =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 6347 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_costcentre =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 6353 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_data =+ ({-# LINE 48 "src-ag/GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 6359 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_linePragmas =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 6365 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_monadic =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 6371 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_newtypes =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 6377 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_pretty =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 6383 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_rename =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 6389 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_sem =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 6395 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_sig =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 6401 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_splitsems =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 6407 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_strictwrap =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 6413 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_traces =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 6419 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_unbox =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 6425 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 50 "src-ag/GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 6431 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOparamInstMap =+ ({-# LINE 101 "src-ag/GenerateCode.ag" #-}+ _lhsIparamInstMap+ {-# LINE 6437 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOparamMap =+ ({-# LINE 95 "src-ag/GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 6443 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOprefix =+ ({-# LINE 49 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 6449 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOquantMap =+ ({-# LINE 115 "src-ag/GenerateCode.ag" #-}+ _lhsIquantMap+ {-# LINE 6455 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOsyn =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 6461 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOterminals =+ ({-# LINE 90 "src-ag/GenerateCode.ag" #-}+ _lhsIterminals+ {-# LINE 6467 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOunfoldSemDom =+ ({-# LINE 750 "src-ag/GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 6473 "dist/build/GenerateCode" #-}+ )+ -- copy rule (chain)+ _tlOvisitedSet =+ ({-# LINE 145 "src-ag/GenerateCode.ag" #-}+ _hdIvisitedSet+ {-# LINE 6479 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOwith_sig =+ ({-# LINE 851 "src-ag/GenerateCode.ag" #-}+ _lhsIwith_sig+ {-# LINE 6485 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOwrappers =+ ({-# LINE 987 "src-ag/GenerateCode.ag" #-}+ _lhsIwrappers+ {-# LINE 6491 "dist/build/GenerateCode" #-}+ )+ ( _hdIcomments,_hdIdecls,_hdIgatherInstVisitNrs,_hdIintra,_hdIintraVars,_hdIsemNames,_hdIvisitedSet) =+ hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOchildren _hdOcon _hdOcontextMap _hdOdecls _hdOinh _hdOinstVisitNrs _hdOisLast _hdOmergeMap _hdOnextIntra _hdOnextIntraVars _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamInstMap _hdOparamMap _hdOprefix _hdOquantMap _hdOsyn _hdOterminals _hdOunfoldSemDom _hdOvisitedSet _hdOwith_sig _hdOwrappers+ ( _tlIcomments,_tlIdecls,_tlIgatherInstVisitNrs,_tlIintra,_tlIintraVars,_tlIisNil,_tlIsemNames,_tlIvisitedSet) =+ tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOchildren _tlOcon _tlOcontextMap _tlOinh _tlOinstVisitNrs _tlOmergeMap _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamInstMap _tlOparamMap _tlOprefix _tlOquantMap _tlOsyn _tlOterminals _tlOunfoldSemDom _tlOvisitedSet _tlOwith_sig _tlOwrappers+ ___node =+ (Syn_CVisits _lhsOcomments _lhsOdecls _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOisNil _lhsOsemNames _lhsOvisitedSet)+ in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet))))+sem_CVisits_Nil :: T_CVisits+sem_CVisits_Nil =+ (T_CVisits (\ _lhsIallNts+ _lhsIallPragmas+ _lhsIaroundMap+ _lhsIchildren+ _lhsIcon+ _lhsIcontextMap+ _lhsIinh+ _lhsIinstVisitNrs+ _lhsImergeMap+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamInstMap+ _lhsIparamMap+ _lhsIprefix+ _lhsIquantMap+ _lhsIsyn+ _lhsIterminals+ _lhsIunfoldSemDom+ _lhsIvisitedSet+ _lhsIwith_sig+ _lhsIwrappers ->+ (let _lhsOisNil :: Bool+ _lhsOintra :: Exprs+ _lhsOintraVars :: (Set String)+ _lhsOdecls :: Decls+ _lhsOcomments :: ([String])+ _lhsOgatherInstVisitNrs :: (Map Identifier Int)+ _lhsOsemNames :: ([String])+ _lhsOvisitedSet :: (Set Identifier)+ -- "src-ag/GenerateCode.ag"(line 297, column 10)+ _lhsOisNil =+ ({-# LINE 297 "src-ag/GenerateCode.ag" #-}+ True+ {-# LINE 6551 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 317, column 10)+ _lhsOintra =+ ({-# LINE 317 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 6557 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 318, column 10)+ _lhsOintraVars =+ ({-# LINE 318 "src-ag/GenerateCode.ag" #-}+ Set.empty+ {-# LINE 6563 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 430, column 11)+ _lhsOdecls =+ ({-# LINE 430 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 6569 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)+ _lhsOcomments =+ ({-# LINE 868 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 6575 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 561, column 44)+ _lhsOgatherInstVisitNrs =+ ({-# LINE 561 "src-ag/GenerateCode.ag" #-}+ Map.empty+ {-# LINE 6581 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 1146, column 61)+ _lhsOsemNames =+ ({-# LINE 1146 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 6587 "dist/build/GenerateCode" #-}+ )+ -- copy rule (chain)+ _lhsOvisitedSet =+ ({-# LINE 145 "src-ag/GenerateCode.ag" #-}+ _lhsIvisitedSet+ {-# LINE 6593 "dist/build/GenerateCode" #-}+ )+ ___node =+ (Syn_CVisits _lhsOcomments _lhsOdecls _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOisNil _lhsOsemNames _lhsOvisitedSet)+ in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet))))+-- DeclBlocks --------------------------------------------------+{-+ visit 0:+ inherited attributes:+ blockNr : Int+ lastExprVars : [String]+ nextVisitDecls : [Decl]+ optCase : Bool+ prefix : String+ synthesized attributes:+ callExpr : Expr+ decls : [Decl]+ freeVars : [String]+ alternatives:+ alternative DeclBlock:+ child defs : {[Decl]}+ child visit : {Decl}+ child next : DeclBlocks + visit 0:+ local lambdaName : _+ local pragmaDecl : _+ local freeVars : _+ local decl : _+ alternative DeclTerminator:+ child defs : {[Decl]}+ child result : {Expr}+ visit 0:+ local lambdaName : _+ local pragmaDecl : _+ local freeVars : _+-}+-- cata+sem_DeclBlocks :: DeclBlocks ->+ T_DeclBlocks+sem_DeclBlocks (DeclBlock _defs _visit _next) =+ (sem_DeclBlocks_DeclBlock _defs _visit (sem_DeclBlocks _next))+sem_DeclBlocks (DeclTerminator _defs _result) =+ (sem_DeclBlocks_DeclTerminator _defs _result)+-- semantic domain+newtype T_DeclBlocks = T_DeclBlocks (Int ->+ ([String]) ->+ ([Decl]) ->+ Bool ->+ String ->+ ( Expr,([Decl]),([String])))+data Inh_DeclBlocks = Inh_DeclBlocks {blockNr_Inh_DeclBlocks :: !(Int),lastExprVars_Inh_DeclBlocks :: !(([String])),nextVisitDecls_Inh_DeclBlocks :: !(([Decl])),optCase_Inh_DeclBlocks :: !(Bool),prefix_Inh_DeclBlocks :: !(String)}+data Syn_DeclBlocks = Syn_DeclBlocks {callExpr_Syn_DeclBlocks :: !(Expr),decls_Syn_DeclBlocks :: !(([Decl])),freeVars_Syn_DeclBlocks :: !(([String]))}+wrap_DeclBlocks :: T_DeclBlocks ->+ Inh_DeclBlocks ->+ Syn_DeclBlocks+wrap_DeclBlocks (T_DeclBlocks sem) (Inh_DeclBlocks _lhsIblockNr _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix) =+ (let ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars) = sem _lhsIblockNr _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix+ in (Syn_DeclBlocks _lhsOcallExpr _lhsOdecls _lhsOfreeVars))+sem_DeclBlocks_DeclBlock :: ([Decl]) ->+ Decl ->+ T_DeclBlocks ->+ T_DeclBlocks+sem_DeclBlocks_DeclBlock defs_ visit_ (T_DeclBlocks next_) =+ (T_DeclBlocks (\ _lhsIblockNr+ _lhsIlastExprVars+ _lhsInextVisitDecls+ _lhsIoptCase+ _lhsIprefix ->+ (let _nextOblockNr :: Int+ _lhsOcallExpr :: Expr+ _lhsOdecls :: ([Decl])+ _lhsOfreeVars :: ([String])+ _nextOlastExprVars :: ([String])+ _nextOnextVisitDecls :: ([Decl])+ _nextOoptCase :: Bool+ _nextOprefix :: String+ _nextIcallExpr :: Expr+ _nextIdecls :: ([Decl])+ _nextIfreeVars :: ([String])+ -- "src-ag/GenerateCode.ag"(line 662, column 7)+ _nextOblockNr =+ ({-# LINE 662 "src-ag/GenerateCode.ag" #-}+ _lhsIblockNr + 1+ {-# LINE 6676 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 667, column 7)+ _lambdaName =+ ({-# LINE 667 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix ++ "_block" ++ show _lhsIblockNr+ {-# LINE 6682 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 668, column 7)+ _pragmaDecl =+ ({-# LINE 668 "src-ag/GenerateCode.ag" #-}+ PragmaDecl ("NOINLINE " ++ _lambdaName )+ {-# LINE 6688 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 669, column 7)+ _lhsOcallExpr =+ ({-# LINE 669 "src-ag/GenerateCode.ag" #-}+ App _lambdaName (map SimpleExpr _freeVars )+ {-# LINE 6694 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 673, column 7)+ _freeVars =+ ({-# LINE 673 "src-ag/GenerateCode.ag" #-}+ freevars _nextIfreeVars (visit_ : defs_)+ {-# LINE 6700 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 680, column 7)+ _decl =+ ({-# LINE 680 "src-ag/GenerateCode.ag" #-}+ mkBlockLambda _lhsIoptCase _lambdaName _freeVars (defs_ ++ [visit_]) _nextIcallExpr+ {-# LINE 6706 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 681, column 7)+ _lhsOdecls =+ ({-# LINE 681 "src-ag/GenerateCode.ag" #-}+ (if _lhsIblockNr > 1 then [_pragmaDecl ] else []) ++ [_decl ] ++ _nextIdecls+ {-# LINE 6712 "dist/build/GenerateCode" #-}+ )+ -- copy rule (from local)+ _lhsOfreeVars =+ ({-# LINE 664 "src-ag/GenerateCode.ag" #-}+ _freeVars+ {-# LINE 6718 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _nextOlastExprVars =+ ({-# LINE 648 "src-ag/GenerateCode.ag" #-}+ _lhsIlastExprVars+ {-# LINE 6724 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _nextOnextVisitDecls =+ ({-# LINE 648 "src-ag/GenerateCode.ag" #-}+ _lhsInextVisitDecls+ {-# LINE 6730 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _nextOoptCase =+ ({-# LINE 648 "src-ag/GenerateCode.ag" #-}+ _lhsIoptCase+ {-# LINE 6736 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _nextOprefix =+ ({-# LINE 648 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 6742 "dist/build/GenerateCode" #-}+ )+ ( _nextIcallExpr,_nextIdecls,_nextIfreeVars) =+ next_ _nextOblockNr _nextOlastExprVars _nextOnextVisitDecls _nextOoptCase _nextOprefix+ ___node =+ (Syn_DeclBlocks _lhsOcallExpr _lhsOdecls _lhsOfreeVars)+ in ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars))))+sem_DeclBlocks_DeclTerminator :: ([Decl]) ->+ Expr ->+ T_DeclBlocks+sem_DeclBlocks_DeclTerminator defs_ result_ =+ (T_DeclBlocks (\ _lhsIblockNr+ _lhsIlastExprVars+ _lhsInextVisitDecls+ _lhsIoptCase+ _lhsIprefix ->+ (let _lhsOcallExpr :: Expr+ _lhsOdecls :: ([Decl])+ _lhsOfreeVars :: ([String])+ -- "src-ag/GenerateCode.ag"(line 667, column 7)+ _lambdaName =+ ({-# LINE 667 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix ++ "_block" ++ show _lhsIblockNr+ {-# LINE 6765 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 668, column 7)+ _pragmaDecl =+ ({-# LINE 668 "src-ag/GenerateCode.ag" #-}+ PragmaDecl ("NOINLINE " ++ _lambdaName )+ {-# LINE 6771 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 669, column 7)+ _lhsOcallExpr =+ ({-# LINE 669 "src-ag/GenerateCode.ag" #-}+ App _lambdaName (map SimpleExpr _freeVars )+ {-# LINE 6777 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 671, column 7)+ _freeVars =+ ({-# LINE 671 "src-ag/GenerateCode.ag" #-}+ freevars _lhsIlastExprVars (defs_ ++ _lhsInextVisitDecls)+ {-# LINE 6783 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 678, column 7)+ _lhsOdecls =+ ({-# LINE 678 "src-ag/GenerateCode.ag" #-}+ [ mkBlockLambda _lhsIoptCase _lambdaName _freeVars (defs_ ++ _lhsInextVisitDecls) result_ ]+ {-# LINE 6789 "dist/build/GenerateCode" #-}+ )+ -- copy rule (from local)+ _lhsOfreeVars =+ ({-# LINE 664 "src-ag/GenerateCode.ag" #-}+ _freeVars+ {-# LINE 6795 "dist/build/GenerateCode" #-}+ )+ ___node =+ (Syn_DeclBlocks _lhsOcallExpr _lhsOdecls _lhsOfreeVars)+ in ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars))))+-- DeclBlocksRoot ----------------------------------------------+{-+ visit 0:+ inherited attributes:+ lastExprVars : [String]+ nextVisitDecls : [Decl]+ optCase : Bool+ prefix : String+ synthesized attributes:+ firstCall : Expr+ lambdas : [Decl]+ alternatives:+ alternative DeclBlocksRoot:+ child blocks : DeclBlocks +-}+-- cata+sem_DeclBlocksRoot :: DeclBlocksRoot ->+ T_DeclBlocksRoot+sem_DeclBlocksRoot (DeclBlocksRoot _blocks) =+ (sem_DeclBlocksRoot_DeclBlocksRoot (sem_DeclBlocks _blocks))+-- semantic domain+newtype T_DeclBlocksRoot = T_DeclBlocksRoot (([String]) ->+ ([Decl]) ->+ Bool ->+ String ->+ ( Expr,([Decl])))+data Inh_DeclBlocksRoot = Inh_DeclBlocksRoot {lastExprVars_Inh_DeclBlocksRoot :: !(([String])),nextVisitDecls_Inh_DeclBlocksRoot :: !(([Decl])),optCase_Inh_DeclBlocksRoot :: !(Bool),prefix_Inh_DeclBlocksRoot :: !(String)}+data Syn_DeclBlocksRoot = Syn_DeclBlocksRoot {firstCall_Syn_DeclBlocksRoot :: !(Expr),lambdas_Syn_DeclBlocksRoot :: !(([Decl]))}+wrap_DeclBlocksRoot :: T_DeclBlocksRoot ->+ Inh_DeclBlocksRoot ->+ Syn_DeclBlocksRoot+wrap_DeclBlocksRoot (T_DeclBlocksRoot sem) (Inh_DeclBlocksRoot _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix) =+ (let ( _lhsOfirstCall,_lhsOlambdas) = sem _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix+ in (Syn_DeclBlocksRoot _lhsOfirstCall _lhsOlambdas))+sem_DeclBlocksRoot_DeclBlocksRoot :: T_DeclBlocks ->+ T_DeclBlocksRoot+sem_DeclBlocksRoot_DeclBlocksRoot (T_DeclBlocks blocks_) =+ (T_DeclBlocksRoot (\ _lhsIlastExprVars+ _lhsInextVisitDecls+ _lhsIoptCase+ _lhsIprefix ->+ (let _lhsOlambdas :: ([Decl])+ _lhsOfirstCall :: Expr+ _blocksOblockNr :: Int+ _blocksOlastExprVars :: ([String])+ _blocksOnextVisitDecls :: ([Decl])+ _blocksOoptCase :: Bool+ _blocksOprefix :: String+ _blocksIcallExpr :: Expr+ _blocksIdecls :: ([Decl])+ _blocksIfreeVars :: ([String])+ -- "src-ag/GenerateCode.ag"(line 653, column 7)+ _lhsOlambdas =+ ({-# LINE 653 "src-ag/GenerateCode.ag" #-}+ _blocksIdecls+ {-# LINE 6855 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 654, column 7)+ _lhsOfirstCall =+ ({-# LINE 654 "src-ag/GenerateCode.ag" #-}+ _blocksIcallExpr+ {-# LINE 6861 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 659, column 7)+ _blocksOblockNr =+ ({-# LINE 659 "src-ag/GenerateCode.ag" #-}+ 1+ {-# LINE 6867 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _blocksOlastExprVars =+ ({-# LINE 648 "src-ag/GenerateCode.ag" #-}+ _lhsIlastExprVars+ {-# LINE 6873 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _blocksOnextVisitDecls =+ ({-# LINE 648 "src-ag/GenerateCode.ag" #-}+ _lhsInextVisitDecls+ {-# LINE 6879 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _blocksOoptCase =+ ({-# LINE 648 "src-ag/GenerateCode.ag" #-}+ _lhsIoptCase+ {-# LINE 6885 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _blocksOprefix =+ ({-# LINE 648 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 6891 "dist/build/GenerateCode" #-}+ )+ ( _blocksIcallExpr,_blocksIdecls,_blocksIfreeVars) =+ blocks_ _blocksOblockNr _blocksOlastExprVars _blocksOnextVisitDecls _blocksOoptCase _blocksOprefix+ ___node =+ (Syn_DeclBlocksRoot _lhsOfirstCall _lhsOlambdas)+ in ( _lhsOfirstCall,_lhsOlambdas))))+-- Pattern -----------------------------------------------------+{-+ visit 0:+ synthesized attributes:+ copy : Pattern + definedInsts : [Identifier]+ patternAttributes : [(Identifier, Identifier)]+ alternatives:+ alternative Alias:+ child field : {Identifier}+ child attr : {Identifier}+ child pat : Pattern + 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) =+ (sem_Pattern_Alias _field _attr (sem_Pattern _pat))+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,([Identifier]),([(Identifier, Identifier)])))+data Inh_Pattern = Inh_Pattern {}+data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern),definedInsts_Syn_Pattern :: !(([Identifier])),patternAttributes_Syn_Pattern :: !(([(Identifier, Identifier)]))}+wrap_Pattern :: T_Pattern ->+ Inh_Pattern ->+ Syn_Pattern+wrap_Pattern (T_Pattern sem) (Inh_Pattern) =+ (let ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes) = sem+ in (Syn_Pattern _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes))+sem_Pattern_Alias :: Identifier ->+ Identifier ->+ T_Pattern ->+ T_Pattern+sem_Pattern_Alias field_ attr_ (T_Pattern pat_) =+ (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])+ _lhsOpatternAttributes :: ([(Identifier, Identifier)])+ _lhsOcopy :: Pattern+ _patIcopy :: Pattern+ _patIdefinedInsts :: ([Identifier])+ _patIpatternAttributes :: ([(Identifier, Identifier)])+ -- "src-ag/GenerateCode.ag"(line 263, column 11)+ _lhsOdefinedInsts =+ ({-# LINE 263 "src-ag/GenerateCode.ag" #-}+ (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts+ {-# LINE 6969 "dist/build/GenerateCode" #-}+ )+ -- "src-ag/GenerateCode.ag"(line 271, column 7)+ _lhsOpatternAttributes =+ ({-# LINE 271 "src-ag/GenerateCode.ag" #-}+ (field_,attr_) : _patIpatternAttributes+ {-# LINE 6975 "dist/build/GenerateCode" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Alias field_ attr_ _patIcopy+ {-# LINE 6981 "dist/build/GenerateCode" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 6987 "dist/build/GenerateCode" #-}+ )+ ( _patIcopy,_patIdefinedInsts,_patIpatternAttributes) =+ pat_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes)+ in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)))+sem_Pattern_Constr :: ConstructorIdent ->+ T_Patterns ->+ T_Pattern+sem_Pattern_Constr name_ (T_Patterns pats_) =+ (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])+ _lhsOpatternAttributes :: ([(Identifier, Identifier)])+ _lhsOcopy :: Pattern+ _patsIcopy :: Patterns+ _patsIdefinedInsts :: ([Identifier])+ _patsIpatternAttributes :: ([(Identifier, Identifier)])+ -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 261 "src-ag/GenerateCode.ag" #-}+ _patsIdefinedInsts+ {-# LINE 7008 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 268, column 47)+ _lhsOpatternAttributes =+ ({-# LINE 268 "src-ag/GenerateCode.ag" #-}+ _patsIpatternAttributes+ {-# LINE 7014 "dist/build/GenerateCode" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Constr name_ _patsIcopy+ {-# LINE 7020 "dist/build/GenerateCode" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 7026 "dist/build/GenerateCode" #-}+ )+ ( _patsIcopy,_patsIdefinedInsts,_patsIpatternAttributes) =+ pats_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes)+ in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)))+sem_Pattern_Irrefutable :: T_Pattern ->+ T_Pattern+sem_Pattern_Irrefutable (T_Pattern pat_) =+ (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])+ _lhsOpatternAttributes :: ([(Identifier, Identifier)])+ _lhsOcopy :: Pattern+ _patIcopy :: Pattern+ _patIdefinedInsts :: ([Identifier])+ _patIpatternAttributes :: ([(Identifier, Identifier)])+ -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 261 "src-ag/GenerateCode.ag" #-}+ _patIdefinedInsts+ {-# LINE 7046 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 268, column 47)+ _lhsOpatternAttributes =+ ({-# LINE 268 "src-ag/GenerateCode.ag" #-}+ _patIpatternAttributes+ {-# LINE 7052 "dist/build/GenerateCode" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Irrefutable _patIcopy+ {-# LINE 7058 "dist/build/GenerateCode" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 7064 "dist/build/GenerateCode" #-}+ )+ ( _patIcopy,_patIdefinedInsts,_patIpatternAttributes) =+ pat_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes)+ in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)))+sem_Pattern_Product :: Pos ->+ T_Patterns ->+ T_Pattern+sem_Pattern_Product pos_ (T_Patterns pats_) =+ (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])+ _lhsOpatternAttributes :: ([(Identifier, Identifier)])+ _lhsOcopy :: Pattern+ _patsIcopy :: Patterns+ _patsIdefinedInsts :: ([Identifier])+ _patsIpatternAttributes :: ([(Identifier, Identifier)])+ -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 261 "src-ag/GenerateCode.ag" #-}+ _patsIdefinedInsts+ {-# LINE 7085 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 268, column 47)+ _lhsOpatternAttributes =+ ({-# LINE 268 "src-ag/GenerateCode.ag" #-}+ _patsIpatternAttributes+ {-# LINE 7091 "dist/build/GenerateCode" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Product pos_ _patsIcopy+ {-# LINE 7097 "dist/build/GenerateCode" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 7103 "dist/build/GenerateCode" #-}+ )+ ( _patsIcopy,_patsIdefinedInsts,_patsIpatternAttributes) =+ pats_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes)+ in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)))+sem_Pattern_Underscore :: Pos ->+ T_Pattern+sem_Pattern_Underscore pos_ =+ (T_Pattern (let _lhsOdefinedInsts :: ([Identifier])+ _lhsOpatternAttributes :: ([(Identifier, Identifier)])+ _lhsOcopy :: Pattern+ -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 261 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 7120 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 268, column 47)+ _lhsOpatternAttributes =+ ({-# LINE 268 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 7126 "dist/build/GenerateCode" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Underscore pos_+ {-# LINE 7132 "dist/build/GenerateCode" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 7138 "dist/build/GenerateCode" #-}+ )+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes)+ in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)))+-- Patterns ----------------------------------------------------+{-+ visit 0:+ synthesized attributes:+ copy : Patterns + definedInsts : [Identifier]+ patternAttributes : [(Identifier, Identifier)]+ 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,([Identifier]),([(Identifier, Identifier)])))+data Inh_Patterns = Inh_Patterns {}+data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns),definedInsts_Syn_Patterns :: !(([Identifier])),patternAttributes_Syn_Patterns :: !(([(Identifier, Identifier)]))}+wrap_Patterns :: T_Patterns ->+ Inh_Patterns ->+ Syn_Patterns+wrap_Patterns (T_Patterns sem) (Inh_Patterns) =+ (let ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes) = sem+ in (Syn_Patterns _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes))+sem_Patterns_Cons :: T_Pattern ->+ T_Patterns ->+ T_Patterns+sem_Patterns_Cons (T_Pattern hd_) (T_Patterns tl_) =+ (T_Patterns (let _lhsOdefinedInsts :: ([Identifier])+ _lhsOpatternAttributes :: ([(Identifier, Identifier)])+ _lhsOcopy :: Patterns+ _hdIcopy :: Pattern+ _hdIdefinedInsts :: ([Identifier])+ _hdIpatternAttributes :: ([(Identifier, Identifier)])+ _tlIcopy :: Patterns+ _tlIdefinedInsts :: ([Identifier])+ _tlIpatternAttributes :: ([(Identifier, Identifier)])+ -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 261 "src-ag/GenerateCode.ag" #-}+ _hdIdefinedInsts ++ _tlIdefinedInsts+ {-# LINE 7192 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 268, column 47)+ _lhsOpatternAttributes =+ ({-# LINE 268 "src-ag/GenerateCode.ag" #-}+ _hdIpatternAttributes ++ _tlIpatternAttributes+ {-# LINE 7198 "dist/build/GenerateCode" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ (:) _hdIcopy _tlIcopy+ {-# LINE 7204 "dist/build/GenerateCode" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 7210 "dist/build/GenerateCode" #-}+ )+ ( _hdIcopy,_hdIdefinedInsts,_hdIpatternAttributes) =+ hd_+ ( _tlIcopy,_tlIdefinedInsts,_tlIpatternAttributes) =+ tl_+ ___node =+ (Syn_Patterns _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes)+ in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)))+sem_Patterns_Nil :: T_Patterns+sem_Patterns_Nil =+ (T_Patterns (let _lhsOdefinedInsts :: ([Identifier])+ _lhsOpatternAttributes :: ([(Identifier, Identifier)])+ _lhsOcopy :: Patterns+ -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 261 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 7228 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 268, column 47)+ _lhsOpatternAttributes =+ ({-# LINE 268 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 7234 "dist/build/GenerateCode" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ []+ {-# LINE 7240 "dist/build/GenerateCode" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 7246 "dist/build/GenerateCode" #-}+ )+ ___node =+ (Syn_Patterns _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes)+ in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)))+-- Sequence ----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allNts : Set NontermIdent+ aroundMap : Set Identifier+ children : [(Identifier,Type,ChildKind)]+ con : ConstructorIdent+ inh : Attributes+ instVisitNrs : Map Identifier Int+ lastExpr : Expr+ mergeMap : Map Identifier (Identifier, [Identifier])+ nr : Int+ nt : NontermIdent+ o_case : Bool+ o_cata : Bool+ o_costcentre : Bool+ o_data : Maybe Bool+ o_linePragmas : Bool+ o_monadic : Bool+ o_newtypes : Bool+ o_pretty : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_splitsems : Bool+ o_strictwrap : Bool+ o_traces : Bool+ o_unbox : Bool+ options : Options+ paramInstMap : Map Identifier (NontermIdent, [String])+ paramMap : ParamMap+ prefix : String+ syn : Attributes+ terminals : [Identifier]+ unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type+ what : String+ chained attributes:+ declsAbove : [Decl]+ visitedSet : Set Identifier+ synthesized attributes:+ allTpsFound : Bool+ blockDecls : DeclBlocks + comments : [String]+ decls : Decls+ definedInsts : [Identifier]+ exprs : Exprs+ tSigs : [Decl]+ tps : [Type]+ usedVars : Set String+ alternatives:+ alternative Cons:+ child hd : CRule + child tl : Sequence + alternative Nil:+-}+-- cata+sem_Sequence :: Sequence ->+ T_Sequence+sem_Sequence list =+ (Prelude.foldr sem_Sequence_Cons sem_Sequence_Nil (Prelude.map sem_CRule list))+-- semantic domain+newtype T_Sequence = T_Sequence ((Set NontermIdent) ->+ (Set Identifier) ->+ ([(Identifier,Type,ChildKind)]) ->+ ConstructorIdent ->+ ([Decl]) ->+ Attributes ->+ (Map Identifier Int) ->+ Expr ->+ (Map Identifier (Identifier, [Identifier])) ->+ Int ->+ NontermIdent ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Bool) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Options ->+ (Map Identifier (NontermIdent, [String])) ->+ ParamMap ->+ String ->+ Attributes ->+ ([Identifier]) ->+ (NontermIdent -> Int -> [String] -> Code.Type) ->+ (Set Identifier) ->+ String ->+ ( Bool,DeclBlocks,([String]),Decls,([Decl]),([Identifier]),Exprs,([Decl]),([Type]),(Set String),(Set Identifier)))+data Inh_Sequence = Inh_Sequence {allNts_Inh_Sequence :: !((Set NontermIdent)),aroundMap_Inh_Sequence :: !((Set Identifier)),children_Inh_Sequence :: !(([(Identifier,Type,ChildKind)])),con_Inh_Sequence :: !(ConstructorIdent),declsAbove_Inh_Sequence :: !(([Decl])),inh_Inh_Sequence :: !(Attributes),instVisitNrs_Inh_Sequence :: !((Map Identifier Int)),lastExpr_Inh_Sequence :: !(Expr),mergeMap_Inh_Sequence :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_Sequence :: !(Int),nt_Inh_Sequence :: !(NontermIdent),o_case_Inh_Sequence :: !(Bool),o_cata_Inh_Sequence :: !(Bool),o_costcentre_Inh_Sequence :: !(Bool),o_data_Inh_Sequence :: !((Maybe Bool)),o_linePragmas_Inh_Sequence :: !(Bool),o_monadic_Inh_Sequence :: !(Bool),o_newtypes_Inh_Sequence :: !(Bool),o_pretty_Inh_Sequence :: !(Bool),o_rename_Inh_Sequence :: !(Bool),o_sem_Inh_Sequence :: !(Bool),o_sig_Inh_Sequence :: !(Bool),o_splitsems_Inh_Sequence :: !(Bool),o_strictwrap_Inh_Sequence :: !(Bool),o_traces_Inh_Sequence :: !(Bool),o_unbox_Inh_Sequence :: !(Bool),options_Inh_Sequence :: !(Options),paramInstMap_Inh_Sequence :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_Sequence :: !(ParamMap),prefix_Inh_Sequence :: !(String),syn_Inh_Sequence :: !(Attributes),terminals_Inh_Sequence :: !(([Identifier])),unfoldSemDom_Inh_Sequence :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_Sequence :: !((Set Identifier)),what_Inh_Sequence :: !(String)}+data Syn_Sequence = Syn_Sequence {allTpsFound_Syn_Sequence :: !(Bool),blockDecls_Syn_Sequence :: !(DeclBlocks),comments_Syn_Sequence :: !(([String])),decls_Syn_Sequence :: !(Decls),declsAbove_Syn_Sequence :: !(([Decl])),definedInsts_Syn_Sequence :: !(([Identifier])),exprs_Syn_Sequence :: !(Exprs),tSigs_Syn_Sequence :: !(([Decl])),tps_Syn_Sequence :: !(([Type])),usedVars_Syn_Sequence :: !((Set String)),visitedSet_Syn_Sequence :: !((Set Identifier))}+wrap_Sequence :: T_Sequence ->+ Inh_Sequence ->+ Syn_Sequence+wrap_Sequence (T_Sequence sem) (Inh_Sequence _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsIlastExpr _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat) =+ (let ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet) = sem _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsIlastExpr _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat+ in (Syn_Sequence _lhsOallTpsFound _lhsOblockDecls _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars _lhsOvisitedSet))+sem_Sequence_Cons :: T_CRule ->+ T_Sequence ->+ T_Sequence+sem_Sequence_Cons (T_CRule hd_) (T_Sequence tl_) =+ (T_Sequence (\ _lhsIallNts+ _lhsIaroundMap+ _lhsIchildren+ _lhsIcon+ _lhsIdeclsAbove+ _lhsIinh+ _lhsIinstVisitNrs+ _lhsIlastExpr+ _lhsImergeMap+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamInstMap+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn+ _lhsIterminals+ _lhsIunfoldSemDom+ _lhsIvisitedSet+ _lhsIwhat ->+ (let _lhsOblockDecls :: DeclBlocks+ _lhsOallTpsFound :: Bool+ _lhsOcomments :: ([String])+ _lhsOdecls :: Decls+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOexprs :: Exprs+ _lhsOtSigs :: ([Decl])+ _lhsOtps :: ([Type])+ _lhsOusedVars :: (Set String)+ _lhsOdeclsAbove :: ([Decl])+ _lhsOvisitedSet :: (Set Identifier)+ _hdOallNts :: (Set NontermIdent)+ _hdOaroundMap :: (Set Identifier)+ _hdOchildren :: ([(Identifier,Type,ChildKind)])+ _hdOcon :: ConstructorIdent+ _hdOdeclsAbove :: ([Decl])+ _hdOinh :: Attributes+ _hdOinstVisitNrs :: (Map Identifier Int)+ _hdOmergeMap :: (Map Identifier (Identifier, [Identifier]))+ _hdOnr :: Int+ _hdOnt :: NontermIdent+ _hdOo_case :: Bool+ _hdOo_cata :: Bool+ _hdOo_costcentre :: Bool+ _hdOo_data :: (Maybe Bool)+ _hdOo_linePragmas :: Bool+ _hdOo_monadic :: Bool+ _hdOo_newtypes :: Bool+ _hdOo_pretty :: Bool+ _hdOo_rename :: Bool+ _hdOo_sem :: Bool+ _hdOo_sig :: Bool+ _hdOo_splitsems :: Bool+ _hdOo_strictwrap :: Bool+ _hdOo_traces :: Bool+ _hdOo_unbox :: Bool+ _hdOoptions :: Options+ _hdOparamInstMap :: (Map Identifier (NontermIdent, [String]))+ _hdOparamMap :: ParamMap+ _hdOprefix :: String+ _hdOsyn :: Attributes+ _hdOterminals :: ([Identifier])+ _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _hdOvisitedSet :: (Set Identifier)+ _hdOwhat :: String+ _tlOallNts :: (Set NontermIdent)+ _tlOaroundMap :: (Set Identifier)+ _tlOchildren :: ([(Identifier,Type,ChildKind)])+ _tlOcon :: ConstructorIdent+ _tlOdeclsAbove :: ([Decl])+ _tlOinh :: Attributes+ _tlOinstVisitNrs :: (Map Identifier Int)+ _tlOlastExpr :: Expr+ _tlOmergeMap :: (Map Identifier (Identifier, [Identifier]))+ _tlOnr :: Int+ _tlOnt :: NontermIdent+ _tlOo_case :: Bool+ _tlOo_cata :: Bool+ _tlOo_costcentre :: Bool+ _tlOo_data :: (Maybe Bool)+ _tlOo_linePragmas :: Bool+ _tlOo_monadic :: Bool+ _tlOo_newtypes :: Bool+ _tlOo_pretty :: Bool+ _tlOo_rename :: Bool+ _tlOo_sem :: Bool+ _tlOo_sig :: Bool+ _tlOo_splitsems :: Bool+ _tlOo_strictwrap :: Bool+ _tlOo_traces :: Bool+ _tlOo_unbox :: Bool+ _tlOoptions :: Options+ _tlOparamInstMap :: (Map Identifier (NontermIdent, [String]))+ _tlOparamMap :: ParamMap+ _tlOprefix :: String+ _tlOsyn :: Attributes+ _tlOterminals :: ([Identifier])+ _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)+ _tlOvisitedSet :: (Set Identifier)+ _tlOwhat :: String+ _hdIallTpsFound :: Bool+ _hdIbldBlocksFun :: (DeclBlocks -> DeclBlocks)+ _hdIcomments :: ([String])+ _hdIdecls :: Decls+ _hdIdeclsAbove :: ([Decl])+ _hdIdefinedInsts :: ([Identifier])+ _hdIexprs :: Exprs+ _hdItSigs :: ([Decl])+ _hdItps :: ([Type])+ _hdIusedVars :: (Set String)+ _hdIvisitedSet :: (Set Identifier)+ _tlIallTpsFound :: Bool+ _tlIblockDecls :: DeclBlocks+ _tlIcomments :: ([String])+ _tlIdecls :: Decls+ _tlIdeclsAbove :: ([Decl])+ _tlIdefinedInsts :: ([Identifier])+ _tlIexprs :: Exprs+ _tlItSigs :: ([Decl])+ _tlItps :: ([Type])+ _tlIusedVars :: (Set String)+ _tlIvisitedSet :: (Set Identifier)+ -- "src-ag/GenerateCode.ag"(line 622, column 7)+ _lhsOblockDecls =+ ({-# LINE 622 "src-ag/GenerateCode.ag" #-}+ _hdIbldBlocksFun _tlIblockDecls+ {-# LINE 7502 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 416, column 39)+ _lhsOallTpsFound =+ ({-# LINE 416 "src-ag/GenerateCode.ag" #-}+ _hdIallTpsFound && _tlIallTpsFound+ {-# LINE 7508 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)+ _lhsOcomments =+ ({-# LINE 868 "src-ag/GenerateCode.ag" #-}+ _hdIcomments ++ _tlIcomments+ {-# LINE 7514 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 155, column 34)+ _lhsOdecls =+ ({-# LINE 155 "src-ag/GenerateCode.ag" #-}+ _hdIdecls ++ _tlIdecls+ {-# LINE 7520 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 261 "src-ag/GenerateCode.ag" #-}+ _hdIdefinedInsts ++ _tlIdefinedInsts+ {-# LINE 7526 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 334, column 34)+ _lhsOexprs =+ ({-# LINE 334 "src-ag/GenerateCode.ag" #-}+ _hdIexprs ++ _tlIexprs+ {-# LINE 7532 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 363, column 33)+ _lhsOtSigs =+ ({-# LINE 363 "src-ag/GenerateCode.ag" #-}+ _hdItSigs ++ _tlItSigs+ {-# LINE 7538 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 415, column 31)+ _lhsOtps =+ ({-# LINE 415 "src-ag/GenerateCode.ag" #-}+ _hdItps ++ _tlItps+ {-# LINE 7544 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 352, column 37)+ _lhsOusedVars =+ ({-# LINE 352 "src-ag/GenerateCode.ag" #-}+ _hdIusedVars `Set.union` _tlIusedVars+ {-# LINE 7550 "dist/build/GenerateCode" #-}+ )+ -- copy rule (up)+ _lhsOdeclsAbove =+ ({-# LINE 608 "src-ag/GenerateCode.ag" #-}+ _tlIdeclsAbove+ {-# LINE 7556 "dist/build/GenerateCode" #-}+ )+ -- copy rule (up)+ _lhsOvisitedSet =+ ({-# LINE 145 "src-ag/GenerateCode.ag" #-}+ _tlIvisitedSet+ {-# LINE 7562 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOallNts =+ ({-# LINE 132 "src-ag/GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 7568 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOaroundMap =+ ({-# LINE 580 "src-ag/GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 7574 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOchildren =+ ({-# LINE 259 "src-ag/GenerateCode.ag" #-}+ _lhsIchildren+ {-# LINE 7580 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOcon =+ ({-# LINE 89 "src-ag/GenerateCode.ag" #-}+ _lhsIcon+ {-# LINE 7586 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOdeclsAbove =+ ({-# LINE 608 "src-ag/GenerateCode.ag" #-}+ _lhsIdeclsAbove+ {-# LINE 7592 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOinh =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 7598 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOinstVisitNrs =+ ({-# LINE 560 "src-ag/GenerateCode.ag" #-}+ _lhsIinstVisitNrs+ {-# LINE 7604 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOmergeMap =+ ({-# LINE 596 "src-ag/GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 7610 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOnr =+ ({-# LINE 278 "src-ag/GenerateCode.ag" #-}+ _lhsInr+ {-# LINE 7616 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOnt =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 7622 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_case =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 7628 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_cata =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 7634 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_costcentre =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 7640 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_data =+ ({-# LINE 48 "src-ag/GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 7646 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_linePragmas =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 7652 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_monadic =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 7658 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_newtypes =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 7664 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_pretty =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 7670 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_rename =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 7676 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_sem =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 7682 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_sig =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 7688 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_splitsems =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 7694 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_strictwrap =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 7700 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_traces =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 7706 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOo_unbox =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 7712 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 50 "src-ag/GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 7718 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOparamInstMap =+ ({-# LINE 101 "src-ag/GenerateCode.ag" #-}+ _lhsIparamInstMap+ {-# LINE 7724 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOparamMap =+ ({-# LINE 95 "src-ag/GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 7730 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOprefix =+ ({-# LINE 49 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 7736 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOsyn =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 7742 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOterminals =+ ({-# LINE 90 "src-ag/GenerateCode.ag" #-}+ _lhsIterminals+ {-# LINE 7748 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOunfoldSemDom =+ ({-# LINE 750 "src-ag/GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 7754 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOvisitedSet =+ ({-# LINE 145 "src-ag/GenerateCode.ag" #-}+ _lhsIvisitedSet+ {-# LINE 7760 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _hdOwhat =+ ({-# LINE 870 "src-ag/GenerateCode.ag" #-}+ _lhsIwhat+ {-# LINE 7766 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOallNts =+ ({-# LINE 132 "src-ag/GenerateCode.ag" #-}+ _lhsIallNts+ {-# LINE 7772 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOaroundMap =+ ({-# LINE 580 "src-ag/GenerateCode.ag" #-}+ _lhsIaroundMap+ {-# LINE 7778 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOchildren =+ ({-# LINE 259 "src-ag/GenerateCode.ag" #-}+ _lhsIchildren+ {-# LINE 7784 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOcon =+ ({-# LINE 89 "src-ag/GenerateCode.ag" #-}+ _lhsIcon+ {-# LINE 7790 "dist/build/GenerateCode" #-}+ )+ -- copy rule (chain)+ _tlOdeclsAbove =+ ({-# LINE 608 "src-ag/GenerateCode.ag" #-}+ _hdIdeclsAbove+ {-# LINE 7796 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOinh =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIinh+ {-# LINE 7802 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOinstVisitNrs =+ ({-# LINE 560 "src-ag/GenerateCode.ag" #-}+ _lhsIinstVisitNrs+ {-# LINE 7808 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOlastExpr =+ ({-# LINE 606 "src-ag/GenerateCode.ag" #-}+ _lhsIlastExpr+ {-# LINE 7814 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOmergeMap =+ ({-# LINE 596 "src-ag/GenerateCode.ag" #-}+ _lhsImergeMap+ {-# LINE 7820 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOnr =+ ({-# LINE 278 "src-ag/GenerateCode.ag" #-}+ _lhsInr+ {-# LINE 7826 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOnt =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsInt+ {-# LINE 7832 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_case =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_case+ {-# LINE 7838 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_cata =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_cata+ {-# LINE 7844 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_costcentre =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_costcentre+ {-# LINE 7850 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_data =+ ({-# LINE 48 "src-ag/GenerateCode.ag" #-}+ _lhsIo_data+ {-# LINE 7856 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_linePragmas =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_linePragmas+ {-# LINE 7862 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_monadic =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_monadic+ {-# LINE 7868 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_newtypes =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_newtypes+ {-# LINE 7874 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_pretty =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_pretty+ {-# LINE 7880 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_rename =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_rename+ {-# LINE 7886 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_sem =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sem+ {-# LINE 7892 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_sig =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_sig+ {-# LINE 7898 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_splitsems =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_splitsems+ {-# LINE 7904 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_strictwrap =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_strictwrap+ {-# LINE 7910 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_traces =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_traces+ {-# LINE 7916 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOo_unbox =+ ({-# LINE 47 "src-ag/GenerateCode.ag" #-}+ _lhsIo_unbox+ {-# LINE 7922 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 50 "src-ag/GenerateCode.ag" #-}+ _lhsIoptions+ {-# LINE 7928 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOparamInstMap =+ ({-# LINE 101 "src-ag/GenerateCode.ag" #-}+ _lhsIparamInstMap+ {-# LINE 7934 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOparamMap =+ ({-# LINE 95 "src-ag/GenerateCode.ag" #-}+ _lhsIparamMap+ {-# LINE 7940 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOprefix =+ ({-# LINE 49 "src-ag/GenerateCode.ag" #-}+ _lhsIprefix+ {-# LINE 7946 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOsyn =+ ({-# LINE 84 "src-ag/GenerateCode.ag" #-}+ _lhsIsyn+ {-# LINE 7952 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOterminals =+ ({-# LINE 90 "src-ag/GenerateCode.ag" #-}+ _lhsIterminals+ {-# LINE 7958 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOunfoldSemDom =+ ({-# LINE 750 "src-ag/GenerateCode.ag" #-}+ _lhsIunfoldSemDom+ {-# LINE 7964 "dist/build/GenerateCode" #-}+ )+ -- copy rule (chain)+ _tlOvisitedSet =+ ({-# LINE 145 "src-ag/GenerateCode.ag" #-}+ _hdIvisitedSet+ {-# LINE 7970 "dist/build/GenerateCode" #-}+ )+ -- copy rule (down)+ _tlOwhat =+ ({-# LINE 870 "src-ag/GenerateCode.ag" #-}+ _lhsIwhat+ {-# LINE 7976 "dist/build/GenerateCode" #-}+ )+ ( _hdIallTpsFound,_hdIbldBlocksFun,_hdIcomments,_hdIdecls,_hdIdeclsAbove,_hdIdefinedInsts,_hdIexprs,_hdItSigs,_hdItps,_hdIusedVars,_hdIvisitedSet) =+ hd_ _hdOallNts _hdOaroundMap _hdOchildren _hdOcon _hdOdeclsAbove _hdOinh _hdOinstVisitNrs _hdOmergeMap _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamInstMap _hdOparamMap _hdOprefix _hdOsyn _hdOterminals _hdOunfoldSemDom _hdOvisitedSet _hdOwhat+ ( _tlIallTpsFound,_tlIblockDecls,_tlIcomments,_tlIdecls,_tlIdeclsAbove,_tlIdefinedInsts,_tlIexprs,_tlItSigs,_tlItps,_tlIusedVars,_tlIvisitedSet) =+ tl_ _tlOallNts _tlOaroundMap _tlOchildren _tlOcon _tlOdeclsAbove _tlOinh _tlOinstVisitNrs _tlOlastExpr _tlOmergeMap _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamInstMap _tlOparamMap _tlOprefix _tlOsyn _tlOterminals _tlOunfoldSemDom _tlOvisitedSet _tlOwhat+ ___node =+ (Syn_Sequence _lhsOallTpsFound _lhsOblockDecls _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars _lhsOvisitedSet)+ in ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))))+sem_Sequence_Nil :: T_Sequence+sem_Sequence_Nil =+ (T_Sequence (\ _lhsIallNts+ _lhsIaroundMap+ _lhsIchildren+ _lhsIcon+ _lhsIdeclsAbove+ _lhsIinh+ _lhsIinstVisitNrs+ _lhsIlastExpr+ _lhsImergeMap+ _lhsInr+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_costcentre+ _lhsIo_data+ _lhsIo_linePragmas+ _lhsIo_monadic+ _lhsIo_newtypes+ _lhsIo_pretty+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_splitsems+ _lhsIo_strictwrap+ _lhsIo_traces+ _lhsIo_unbox+ _lhsIoptions+ _lhsIparamInstMap+ _lhsIparamMap+ _lhsIprefix+ _lhsIsyn+ _lhsIterminals+ _lhsIunfoldSemDom+ _lhsIvisitedSet+ _lhsIwhat ->+ (let _lhsOblockDecls :: DeclBlocks+ _lhsOallTpsFound :: Bool+ _lhsOcomments :: ([String])+ _lhsOdecls :: Decls+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOexprs :: Exprs+ _lhsOtSigs :: ([Decl])+ _lhsOtps :: ([Type])+ _lhsOusedVars :: (Set String)+ _lhsOdeclsAbove :: ([Decl])+ _lhsOvisitedSet :: (Set Identifier)+ -- "src-ag/GenerateCode.ag"(line 624, column 7)+ _lhsOblockDecls =+ ({-# LINE 624 "src-ag/GenerateCode.ag" #-}+ DeclTerminator _lhsIdeclsAbove _lhsIlastExpr+ {-# LINE 8037 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 416, column 39)+ _lhsOallTpsFound =+ ({-# LINE 416 "src-ag/GenerateCode.ag" #-}+ True+ {-# LINE 8043 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 868, column 52)+ _lhsOcomments =+ ({-# LINE 868 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 8049 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 155, column 34)+ _lhsOdecls =+ ({-# LINE 155 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 8055 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 261, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 261 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 8061 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 334, column 34)+ _lhsOexprs =+ ({-# LINE 334 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 8067 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 363, column 33)+ _lhsOtSigs =+ ({-# LINE 363 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 8073 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 415, column 31)+ _lhsOtps =+ ({-# LINE 415 "src-ag/GenerateCode.ag" #-}+ []+ {-# LINE 8079 "dist/build/GenerateCode" #-}+ )+ -- use rule "src-ag/GenerateCode.ag"(line 352, column 37)+ _lhsOusedVars =+ ({-# LINE 352 "src-ag/GenerateCode.ag" #-}+ Set.empty+ {-# LINE 8085 "dist/build/GenerateCode" #-}+ )+ -- copy rule (chain)+ _lhsOdeclsAbove =+ ({-# LINE 608 "src-ag/GenerateCode.ag" #-}+ _lhsIdeclsAbove+ {-# LINE 8091 "dist/build/GenerateCode" #-}+ )+ -- copy rule (chain)+ _lhsOvisitedSet =+ ({-# LINE 145 "src-ag/GenerateCode.ag" #-}+ _lhsIvisitedSet+ {-# LINE 8097 "dist/build/GenerateCode" #-}+ )+ ___node =+ (Syn_Sequence _lhsOallTpsFound _lhsOblockDecls _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars _lhsOvisitedSet) in ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))))
src-derived/InterfacesRules.hs view
@@ -203,7 +203,9 @@ {-# LINE 204 "dist/build/InterfacesRules" #-} )) of { !_lhsOvisits ->- ( _lhsOedp,_lhsOinters,_lhsOvisits) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_IRoot _lhsOedp _lhsOinters _lhsOvisits)) of+ { ___node ->+ ( _lhsOedp,_lhsOinters,_lhsOvisits) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))) -- Interface --------------------------------------------------- {- visit 0:@@ -277,64 +279,64 @@ (!_lhsIv) -> (case (({-# LINE 83 "src-ag/InterfacesRules.lag" #-} _lhsIinfo- {-# LINE 281 "dist/build/InterfacesRules" #-}+ {-# LINE 283 "dist/build/InterfacesRules" #-} )) of { !_segOinfo -> (case (({-# LINE 205 "src-ag/InterfacesRules.lag" #-} 0- {-# LINE 286 "dist/build/InterfacesRules" #-}+ {-# LINE 288 "dist/build/InterfacesRules" #-} )) of { !_segOn -> (case (({-# LINE 195 "src-ag/InterfacesRules.lag" #-} \a -> ruleTable _lhsIinfo ! a- {-# LINE 291 "dist/build/InterfacesRules" #-}+ {-# LINE 293 "dist/build/InterfacesRules" #-} )) of { !_look -> (case (({-# LINE 187 "src-ag/InterfacesRules.lag" #-} _lhsIv- {-# LINE 296 "dist/build/InterfacesRules" #-}+ {-# LINE 298 "dist/build/InterfacesRules" #-} )) of { !_segOv -> (case (seg_ _segOinfo _segOn _segOv) of { ( !_segIdescr,!_segIgroups,!_segInewedges,!_segInewvertices,!_segIv,!T_Segments_1 seg_1) -> (case (({-# LINE 188 "src-ag/InterfacesRules.lag" #-} _segIv + length _segInewvertices- {-# LINE 303 "dist/build/InterfacesRules" #-}+ {-# LINE 305 "dist/build/InterfacesRules" #-} )) of { !_v -> (case (({-# LINE 190 "src-ag/InterfacesRules.lag" #-} [_segIv .. _v-1]- {-# LINE 308 "dist/build/InterfacesRules" #-}+ {-# LINE 310 "dist/build/InterfacesRules" #-} )) of { !_firstvisitvertices -> (case (({-# LINE 196 "src-ag/InterfacesRules.lag" #-} zipWith (cv _look (-1)) _firstvisitvertices _segIgroups- {-# LINE 313 "dist/build/InterfacesRules" #-}+ {-# LINE 315 "dist/build/InterfacesRules" #-} )) of { !_descr -> (case (({-# LINE 197 "src-ag/InterfacesRules.lag" #-} _segIdescr Seq.>< Seq.fromList _descr- {-# LINE 318 "dist/build/InterfacesRules" #-}+ {-# LINE 320 "dist/build/InterfacesRules" #-} )) of { !_lhsOdescr -> (case (({-# LINE 258 "src-ag/InterfacesRules.lag" #-} _firstvisitvertices- {-# LINE 323 "dist/build/InterfacesRules" #-}+ {-# LINE 325 "dist/build/InterfacesRules" #-} )) of { !_lhsOfirstvisitvertices -> (case (({-# LINE 191 "src-ag/InterfacesRules.lag" #-} zip _firstvisitvertices _segInewvertices- {-# LINE 328 "dist/build/InterfacesRules" #-}+ {-# LINE 330 "dist/build/InterfacesRules" #-} )) of { !_newedges -> (case (({-# LINE 192 "src-ag/InterfacesRules.lag" #-} _segInewedges Seq.>< Seq.fromList _newedges- {-# LINE 333 "dist/build/InterfacesRules" #-}+ {-# LINE 335 "dist/build/InterfacesRules" #-} )) of { !_lhsOnewedges -> (case (({-# LINE 189 "src-ag/InterfacesRules.lag" #-} _v- {-# LINE 338 "dist/build/InterfacesRules" #-}+ {-# LINE 340 "dist/build/InterfacesRules" #-} )) of { !_lhsOv -> (case ((let sem_Interface_Interface_1 :: T_Interface_1@@ -344,34 +346,34 @@ (!_lhsIvssGraph) -> (case (({-# LINE 216 "src-ag/InterfacesRules.lag" #-} _lhsIvssGraph- {-# LINE 348 "dist/build/InterfacesRules" #-}+ {-# LINE 350 "dist/build/InterfacesRules" #-} )) of { !_segOvssGraph -> (case (({-# LINE 125 "src-ag/InterfacesRules.lag" #-} _lhsIvisitDescr- {-# LINE 353 "dist/build/InterfacesRules" #-}+ {-# LINE 355 "dist/build/InterfacesRules" #-} )) of { !_segOvisitDescr -> (case (({-# LINE 263 "src-ag/InterfacesRules.lag" #-} _lhsIprev- {-# LINE 358 "dist/build/InterfacesRules" #-}+ {-# LINE 360 "dist/build/InterfacesRules" #-} )) of { !_segOprev -> (case (({-# LINE 237 "src-ag/InterfacesRules.lag" #-} cons_- {-# LINE 363 "dist/build/InterfacesRules" #-}+ {-# LINE 365 "dist/build/InterfacesRules" #-} )) of { !_segOcons -> (case (seg_1 _segOcons _segOprev _segOvisitDescr _segOvssGraph) of { ( !_segIsegs,!T_Segments_2 seg_2) -> (case (({-# LINE 395 "src-ag/InterfacesRules.lag" #-} CInterface _segIsegs- {-# LINE 370 "dist/build/InterfacesRules" #-}+ {-# LINE 372 "dist/build/InterfacesRules" #-} )) of { !_lhsOinter -> (case (({-# LINE 391 "src-ag/InterfacesRules.lag" #-} nt_- {-# LINE 375 "dist/build/InterfacesRules" #-}+ {-# LINE 377 "dist/build/InterfacesRules" #-} )) of { !_lhsOnt -> (case ((let sem_Interface_Interface_2 :: T_Interface_2@@ -380,34 +382,34 @@ (!_lhsIddp) -> (case (({-# LINE 341 "src-ag/InterfacesRules.lag" #-} _lhsIddp- {-# LINE 384 "dist/build/InterfacesRules" #-}+ {-# LINE 386 "dist/build/InterfacesRules" #-} )) of { !_segOddp -> (case (({-# LINE 378 "src-ag/InterfacesRules.lag" #-} _lhsIallInters- {-# LINE 389 "dist/build/InterfacesRules" #-}+ {-# LINE 391 "dist/build/InterfacesRules" #-} )) of { !_segOallInters -> (case (({-# LINE 351 "src-ag/InterfacesRules.lag" #-} _lhsIprev- {-# LINE 394 "dist/build/InterfacesRules" #-}+ {-# LINE 396 "dist/build/InterfacesRules" #-} )) of { !_segOfromLhs -> (case (({-# LINE 314 "src-ag/InterfacesRules.lag" #-} True- {-# LINE 399 "dist/build/InterfacesRules" #-}+ {-# LINE 401 "dist/build/InterfacesRules" #-} )) of { !_segOisFirst -> (case (seg_2 _segOallInters _segOddp _segOfromLhs _segOisFirst) of { ( !_segIcvisits,!_segIedp,!_segIfirstInh,!_segIhdIntravisits,!_segIprev) -> (case (({-# LINE 437 "src-ag/InterfacesRules.lag" #-} _segIedp- {-# LINE 406 "dist/build/InterfacesRules" #-}+ {-# LINE 408 "dist/build/InterfacesRules" #-} )) of { !_lhsOedp -> (case (({-# LINE 396 "src-ag/InterfacesRules.lag" #-} Map.fromList (zip cons_ (transpose _segIcvisits))- {-# LINE 411 "dist/build/InterfacesRules" #-}+ {-# LINE 413 "dist/build/InterfacesRules" #-} )) of { !_lhsOvisits -> ( _lhsOedp,_lhsOvisits) }) }) }) }) }) }) })))@@ -482,46 +484,46 @@ (!_lhsIv) -> (case (({-# LINE 82 "src-ag/InterfacesRules.lag" #-} _lhsIv- {-# LINE 486 "dist/build/InterfacesRules" #-}+ {-# LINE 488 "dist/build/InterfacesRules" #-} )) of { !_hdOv -> (case (({-# LINE 83 "src-ag/InterfacesRules.lag" #-} _lhsIinfo- {-# LINE 491 "dist/build/InterfacesRules" #-}+ {-# LINE 493 "dist/build/InterfacesRules" #-} )) of { !_hdOinfo -> (case (hd_ _hdOinfo _hdOv) of { ( !_hdIdescr,!_hdIfirstvisitvertices,!_hdInewedges,!_hdIv,!T_Interface_1 hd_1) -> (case (({-# LINE 82 "src-ag/InterfacesRules.lag" #-} _hdIv- {-# LINE 498 "dist/build/InterfacesRules" #-}+ {-# LINE 500 "dist/build/InterfacesRules" #-} )) of { !_tlOv -> (case (({-# LINE 83 "src-ag/InterfacesRules.lag" #-} _lhsIinfo- {-# LINE 503 "dist/build/InterfacesRules" #-}+ {-# LINE 505 "dist/build/InterfacesRules" #-} )) of { !_tlOinfo -> (case (tl_ _tlOinfo _tlOv) of { ( !_tlIdescr,!_tlIfirstvisitvertices,!_tlInewedges,!_tlIv,!T_Interfaces_1 tl_1) -> (case (({-# LINE 130 "src-ag/InterfacesRules.lag" #-} _hdIdescr Seq.>< _tlIdescr- {-# LINE 510 "dist/build/InterfacesRules" #-}+ {-# LINE 512 "dist/build/InterfacesRules" #-} )) of { !_lhsOdescr -> (case (({-# LINE 258 "src-ag/InterfacesRules.lag" #-} _hdIfirstvisitvertices ++ _tlIfirstvisitvertices- {-# LINE 515 "dist/build/InterfacesRules" #-}+ {-# LINE 517 "dist/build/InterfacesRules" #-} )) of { !_lhsOfirstvisitvertices -> (case (({-# LINE 129 "src-ag/InterfacesRules.lag" #-} _hdInewedges Seq.>< _tlInewedges- {-# LINE 520 "dist/build/InterfacesRules" #-}+ {-# LINE 522 "dist/build/InterfacesRules" #-} )) of { !_lhsOnewedges -> (case (({-# LINE 82 "src-ag/InterfacesRules.lag" #-} _tlIv- {-# LINE 525 "dist/build/InterfacesRules" #-}+ {-# LINE 527 "dist/build/InterfacesRules" #-} )) of { !_lhsOv -> (case ((let sem_Interfaces_Cons_1 :: T_Interfaces_1@@ -531,32 +533,32 @@ (!_lhsIvssGraph) -> (case (({-# LINE 216 "src-ag/InterfacesRules.lag" #-} _lhsIvssGraph- {-# LINE 535 "dist/build/InterfacesRules" #-}+ {-# LINE 537 "dist/build/InterfacesRules" #-} )) of { !_tlOvssGraph -> (case (({-# LINE 125 "src-ag/InterfacesRules.lag" #-} _lhsIvisitDescr- {-# LINE 540 "dist/build/InterfacesRules" #-}+ {-# LINE 542 "dist/build/InterfacesRules" #-} )) of { !_tlOvisitDescr -> (case (({-# LINE 258 "src-ag/InterfacesRules.lag" #-} _lhsIprev- {-# LINE 545 "dist/build/InterfacesRules" #-}+ {-# LINE 547 "dist/build/InterfacesRules" #-} )) of { !_tlOprev -> (case (({-# LINE 216 "src-ag/InterfacesRules.lag" #-} _lhsIvssGraph- {-# LINE 550 "dist/build/InterfacesRules" #-}+ {-# LINE 552 "dist/build/InterfacesRules" #-} )) of { !_hdOvssGraph -> (case (({-# LINE 125 "src-ag/InterfacesRules.lag" #-} _lhsIvisitDescr- {-# LINE 555 "dist/build/InterfacesRules" #-}+ {-# LINE 557 "dist/build/InterfacesRules" #-} )) of { !_hdOvisitDescr -> (case (({-# LINE 258 "src-ag/InterfacesRules.lag" #-} _lhsIprev- {-# LINE 560 "dist/build/InterfacesRules" #-}+ {-# LINE 562 "dist/build/InterfacesRules" #-} )) of { !_hdOprev -> (case (tl_1 _tlOprev _tlOvisitDescr _tlOvssGraph) of@@ -565,7 +567,7 @@ { ( !_hdIinter,!_hdInt,!T_Interface_2 hd_2) -> (case (({-# LINE 385 "src-ag/InterfacesRules.lag" #-} Map.insert _hdInt _hdIinter _tlIinters- {-# LINE 569 "dist/build/InterfacesRules" #-}+ {-# LINE 571 "dist/build/InterfacesRules" #-} )) of { !_lhsOinters -> (case ((let sem_Interfaces_Cons_2 :: T_Interfaces_2@@ -574,36 +576,36 @@ (!_lhsIddp) -> (case (({-# LINE 341 "src-ag/InterfacesRules.lag" #-} _lhsIddp- {-# LINE 578 "dist/build/InterfacesRules" #-}+ {-# LINE 580 "dist/build/InterfacesRules" #-} )) of { !_tlOddp -> (case (({-# LINE 378 "src-ag/InterfacesRules.lag" #-} _lhsIallInters- {-# LINE 583 "dist/build/InterfacesRules" #-}+ {-# LINE 585 "dist/build/InterfacesRules" #-} )) of { !_tlOallInters -> (case (tl_2 _tlOallInters _tlOddp) of { ( !_tlIedp,!_tlIvisits) -> (case (({-# LINE 341 "src-ag/InterfacesRules.lag" #-} _lhsIddp- {-# LINE 590 "dist/build/InterfacesRules" #-}+ {-# LINE 592 "dist/build/InterfacesRules" #-} )) of { !_hdOddp -> (case (({-# LINE 378 "src-ag/InterfacesRules.lag" #-} _lhsIallInters- {-# LINE 595 "dist/build/InterfacesRules" #-}+ {-# LINE 597 "dist/build/InterfacesRules" #-} )) of { !_hdOallInters -> (case (hd_2 _hdOallInters _hdOddp) of { ( !_hdIedp,!_hdIvisits) -> (case (({-# LINE 437 "src-ag/InterfacesRules.lag" #-} _hdIedp Seq.>< _tlIedp- {-# LINE 602 "dist/build/InterfacesRules" #-}+ {-# LINE 604 "dist/build/InterfacesRules" #-} )) of { !_lhsOedp -> (case (({-# LINE 386 "src-ag/InterfacesRules.lag" #-} Map.insert _hdInt _hdIvisits _tlIvisits- {-# LINE 607 "dist/build/InterfacesRules" #-}+ {-# LINE 609 "dist/build/InterfacesRules" #-} )) of { !_lhsOvisits -> ( _lhsOedp,_lhsOvisits) }) }) }) }) }) }) }) })))@@ -619,22 +621,22 @@ (!_lhsIv) -> (case (({-# LINE 130 "src-ag/InterfacesRules.lag" #-} Seq.empty- {-# LINE 623 "dist/build/InterfacesRules" #-}+ {-# LINE 625 "dist/build/InterfacesRules" #-} )) of { !_lhsOdescr -> (case (({-# LINE 258 "src-ag/InterfacesRules.lag" #-} []- {-# LINE 628 "dist/build/InterfacesRules" #-}+ {-# LINE 630 "dist/build/InterfacesRules" #-} )) of { !_lhsOfirstvisitvertices -> (case (({-# LINE 129 "src-ag/InterfacesRules.lag" #-} Seq.empty- {-# LINE 633 "dist/build/InterfacesRules" #-}+ {-# LINE 635 "dist/build/InterfacesRules" #-} )) of { !_lhsOnewedges -> (case (({-# LINE 82 "src-ag/InterfacesRules.lag" #-} _lhsIv- {-# LINE 638 "dist/build/InterfacesRules" #-}+ {-# LINE 640 "dist/build/InterfacesRules" #-} )) of { !_lhsOv -> (case ((let sem_Interfaces_Nil_1 :: T_Interfaces_1@@ -644,7 +646,7 @@ (!_lhsIvssGraph) -> (case (({-# LINE 387 "src-ag/InterfacesRules.lag" #-} Map.empty- {-# LINE 648 "dist/build/InterfacesRules" #-}+ {-# LINE 650 "dist/build/InterfacesRules" #-} )) of { !_lhsOinters -> (case ((let sem_Interfaces_Nil_2 :: T_Interfaces_2@@ -653,12 +655,12 @@ (!_lhsIddp) -> (case (({-# LINE 437 "src-ag/InterfacesRules.lag" #-} Seq.empty- {-# LINE 657 "dist/build/InterfacesRules" #-}+ {-# LINE 659 "dist/build/InterfacesRules" #-} )) of { !_lhsOedp -> (case (({-# LINE 388 "src-ag/InterfacesRules.lag" #-} Map.empty- {-# LINE 662 "dist/build/InterfacesRules" #-}+ {-# LINE 664 "dist/build/InterfacesRules" #-} )) of { !_lhsOvisits -> ( _lhsOedp,_lhsOvisits) }) })))@@ -787,30 +789,30 @@ (!_lhsIv) -> (case (({-# LINE 106 "src-ag/InterfacesRules.lag" #-} \a -> ruleTable _lhsIinfo ! a- {-# LINE 791 "dist/build/InterfacesRules" #-}+ {-# LINE 793 "dist/build/InterfacesRules" #-} )) of { !_look -> (case (({-# LINE 109 "src-ag/InterfacesRules.lag" #-} \p us -> [ a | u <- us , a <- tdsToTdp _lhsIinfo ! u , p (_look a)]- {-# LINE 798 "dist/build/InterfacesRules" #-}+ {-# LINE 800 "dist/build/InterfacesRules" #-} )) of { !_occurAs -> (case (({-# LINE 113 "src-ag/InterfacesRules.lag" #-} let group as = gather _lhsIinfo (_occurAs isRhs as) in map (partition (isInh . _look)) (group (inh_ ++ syn_))- {-# LINE 804 "dist/build/InterfacesRules" #-}+ {-# LINE 806 "dist/build/InterfacesRules" #-} )) of { !_groups -> (case (({-# LINE 116 "src-ag/InterfacesRules.lag" #-} _lhsIv + length _groups- {-# LINE 809 "dist/build/InterfacesRules" #-}+ {-# LINE 811 "dist/build/InterfacesRules" #-} )) of { !_v -> (case (({-# LINE 82 "src-ag/InterfacesRules.lag" #-} _v- {-# LINE 814 "dist/build/InterfacesRules" #-}+ {-# LINE 816 "dist/build/InterfacesRules" #-} )) of { !_lhsOv -> (case ((let sem_Segment_Segment_1 :: T_Segment_1@@ -819,37 +821,37 @@ (!_lhsInextNewvertices) -> (case (({-# LINE 117 "src-ag/InterfacesRules.lag" #-} [_lhsIv .. _v -1]- {-# LINE 823 "dist/build/InterfacesRules" #-}+ {-# LINE 825 "dist/build/InterfacesRules" #-} )) of { !_newvertices -> (case (({-# LINE 132 "src-ag/InterfacesRules.lag" #-} Seq.fromList $ zipWith (cv _look _lhsIn) _newvertices _groups- {-# LINE 828 "dist/build/InterfacesRules" #-}+ {-# LINE 830 "dist/build/InterfacesRules" #-} )) of { !_lhsOdescr -> (case (({-# LINE 182 "src-ag/InterfacesRules.lag" #-} _groups- {-# LINE 833 "dist/build/InterfacesRules" #-}+ {-# LINE 835 "dist/build/InterfacesRules" #-} )) of { !_lhsOgroups -> (case (({-# LINE 174 "src-ag/InterfacesRules.lag" #-} zip _newvertices _lhsInextNewvertices- {-# LINE 838 "dist/build/InterfacesRules" #-}+ {-# LINE 840 "dist/build/InterfacesRules" #-} )) of { !_visitedges -> (case (({-# LINE 155 "src-ag/InterfacesRules.lag" #-} concat (zipWith ed _newvertices _groups)- {-# LINE 843 "dist/build/InterfacesRules" #-}+ {-# LINE 845 "dist/build/InterfacesRules" #-} )) of { !_attredges -> (case (({-# LINE 175 "src-ag/InterfacesRules.lag" #-} Seq.fromList _attredges Seq.>< Seq.fromList _visitedges- {-# LINE 848 "dist/build/InterfacesRules" #-}+ {-# LINE 850 "dist/build/InterfacesRules" #-} )) of { !_lhsOnewedges -> (case (({-# LINE 166 "src-ag/InterfacesRules.lag" #-} _newvertices- {-# LINE 853 "dist/build/InterfacesRules" #-}+ {-# LINE 855 "dist/build/InterfacesRules" #-} )) of { !_lhsOnewvertices -> (case ((let sem_Segment_Segment_2 :: T_Segment_2@@ -860,7 +862,7 @@ (!_lhsIvssGraph) -> (case (({-# LINE 229 "src-ag/InterfacesRules.lag" #-} gather _lhsIinfo (_occurAs isLhs syn_)- {-# LINE 864 "dist/build/InterfacesRules" #-}+ {-# LINE 866 "dist/build/InterfacesRules" #-} )) of { !_synOccur -> (case (({-# LINE 230 "src-ag/InterfacesRules.lag" #-}@@ -869,12 +871,12 @@ in if null syn_ then replicate (length _lhsIcons) [] else map (filter hasCode . topSort' _lhsIvssGraph) _synOccur- {-# LINE 873 "dist/build/InterfacesRules" #-}+ {-# LINE 875 "dist/build/InterfacesRules" #-} )) of { !_vss -> (case (({-# LINE 270 "src-ag/InterfacesRules.lag" #-} map (\\ _lhsIprev) _vss- {-# LINE 878 "dist/build/InterfacesRules" #-}+ {-# LINE 880 "dist/build/InterfacesRules" #-} )) of { !_visitss' -> (case (({-# LINE 284 "src-ag/InterfacesRules.lag" #-}@@ -894,7 +896,7 @@ | otherwise = v:rem prev vs table = ruleTable _lhsIinfo in map (rem []) _visitss'- {-# LINE 898 "dist/build/InterfacesRules" #-}+ {-# LINE 900 "dist/build/InterfacesRules" #-} )) of { !_visitss -> (case (({-# LINE 271 "src-ag/InterfacesRules.lag" #-}@@ -902,34 +904,34 @@ Nothing -> [v] Just (ChildVisit _ _ _ inh _) -> v:inh in concatMap (concatMap defines) _visitss- {-# LINE 906 "dist/build/InterfacesRules" #-}+ {-# LINE 908 "dist/build/InterfacesRules" #-} )) of { !_defined -> (case (({-# LINE 275 "src-ag/InterfacesRules.lag" #-} _lhsIprev ++ _defined- {-# LINE 911 "dist/build/InterfacesRules" #-}+ {-# LINE 913 "dist/build/InterfacesRules" #-} )) of { !_lhsOprev -> (case (({-# LINE 409 "src-ag/InterfacesRules.lag" #-} let makemap = Map.fromList . map findType findType v = getNtaNameType (attrTable _lhsIinfo ! v) in (makemap inh_,makemap syn_)- {-# LINE 918 "dist/build/InterfacesRules" #-}+ {-# LINE 920 "dist/build/InterfacesRules" #-} )) of { !__tup1 -> (case (({-# LINE 409 "src-ag/InterfacesRules.lag" #-} __tup1- {-# LINE 923 "dist/build/InterfacesRules" #-}+ {-# LINE 925 "dist/build/InterfacesRules" #-} )) of { !(_,!_synmap) -> (case (({-# LINE 409 "src-ag/InterfacesRules.lag" #-} __tup1- {-# LINE 928 "dist/build/InterfacesRules" #-}+ {-# LINE 930 "dist/build/InterfacesRules" #-} )) of { !(!_inhmap,_) -> (case (({-# LINE 405 "src-ag/InterfacesRules.lag" #-} if False then undefined _lhsIvssGraph _lhsIvisitDescr _lhsIprev else CSegment _inhmap _synmap- {-# LINE 933 "dist/build/InterfacesRules" #-}+ {-# LINE 935 "dist/build/InterfacesRules" #-} )) of { !_lhsOseg -> (case ((let sem_Segment_Segment_3 :: T_Segment_3@@ -945,24 +947,24 @@ Nothing -> Map.keys (getDefines (ruleTable _lhsIinfo ! v)) Just (ChildVisit _ _ _ _ syn) -> v:syn in concatMap (concatMap computes) _visitss- {-# LINE 949 "dist/build/InterfacesRules" #-}+ {-# LINE 951 "dist/build/InterfacesRules" #-} )) of { !_computed -> (case (({-# LINE 356 "src-ag/InterfacesRules.lag" #-} _occurAs isLhs inh_ ++ _lhsIfromLhs- {-# LINE 954 "dist/build/InterfacesRules" #-}+ {-# LINE 956 "dist/build/InterfacesRules" #-} )) of { !_fromLhs -> (case (({-# LINE 362 "src-ag/InterfacesRules.lag" #-} \vs next -> let needed = concatMap (_lhsIddp !) vs in nub (needed ++ next) \\ (_fromLhs ++ _computed)- {-# LINE 961 "dist/build/InterfacesRules" #-}+ {-# LINE 963 "dist/build/InterfacesRules" #-} )) of { !_iv -> (case (({-# LINE 361 "src-ag/InterfacesRules.lag" #-} zipWith _iv _visitss _lhsInextIntravisits- {-# LINE 966 "dist/build/InterfacesRules" #-}+ {-# LINE 968 "dist/build/InterfacesRules" #-} )) of { !_intravisits -> (case (({-# LINE 412 "src-ag/InterfacesRules.lag" #-}@@ -972,28 +974,28 @@ Nothing -> ruleTable _lhsIinfo ! v Just (ChildVisit name nt n _ _) -> ccv name nt n _lhsIallInters in zipWith mkVisit _visitss _intravisits- {-# LINE 976 "dist/build/InterfacesRules" #-}+ {-# LINE 978 "dist/build/InterfacesRules" #-} )) of { !_lhsOcvisits -> (case (({-# LINE 439 "src-ag/InterfacesRules.lag" #-} Seq.fromList [(i,s) | i <- inh_, s <- syn_] Seq.>< Seq.fromList [(s,i) | s <- syn_, i <- _lhsInextInh ]- {-# LINE 982 "dist/build/InterfacesRules" #-}+ {-# LINE 984 "dist/build/InterfacesRules" #-} )) of { !_lhsOedp -> (case (({-# LINE 444 "src-ag/InterfacesRules.lag" #-} inh_- {-# LINE 987 "dist/build/InterfacesRules" #-}+ {-# LINE 989 "dist/build/InterfacesRules" #-} )) of { !_lhsOinh -> (case (({-# LINE 327 "src-ag/InterfacesRules.lag" #-} _intravisits- {-# LINE 992 "dist/build/InterfacesRules" #-}+ {-# LINE 994 "dist/build/InterfacesRules" #-} )) of { !_lhsOintravisits -> (case (({-# LINE 269 "src-ag/InterfacesRules.lag" #-} _visitss- {-# LINE 997 "dist/build/InterfacesRules" #-}+ {-# LINE 999 "dist/build/InterfacesRules" #-} )) of { !_lhsOvisitss -> ( _lhsOcvisits,_lhsOedp,_lhsOinh,_lhsOintravisits,_lhsOvisitss) }) }) }) }) }) }) }) }) })))@@ -1084,68 +1086,68 @@ (!_lhsIv) -> (case (({-# LINE 82 "src-ag/InterfacesRules.lag" #-} _lhsIv- {-# LINE 1088 "dist/build/InterfacesRules" #-}+ {-# LINE 1090 "dist/build/InterfacesRules" #-} )) of { !_hdOv -> (case (({-# LINE 83 "src-ag/InterfacesRules.lag" #-} _lhsIinfo- {-# LINE 1093 "dist/build/InterfacesRules" #-}+ {-# LINE 1095 "dist/build/InterfacesRules" #-} )) of { !_hdOinfo -> (case (hd_ _hdOinfo _hdOv) of { ( !_hdIv,!T_Segment_1 hd_1) -> (case (({-# LINE 82 "src-ag/InterfacesRules.lag" #-} _hdIv- {-# LINE 1100 "dist/build/InterfacesRules" #-}+ {-# LINE 1102 "dist/build/InterfacesRules" #-} )) of { !_tlOv -> (case (({-# LINE 83 "src-ag/InterfacesRules.lag" #-} _lhsIinfo- {-# LINE 1105 "dist/build/InterfacesRules" #-}+ {-# LINE 1107 "dist/build/InterfacesRules" #-} )) of { !_tlOinfo -> (case (({-# LINE 203 "src-ag/InterfacesRules.lag" #-} _lhsIn- {-# LINE 1110 "dist/build/InterfacesRules" #-}+ {-# LINE 1112 "dist/build/InterfacesRules" #-} )) of { !_hdOn -> (case (({-# LINE 207 "src-ag/InterfacesRules.lag" #-} _lhsIn + 1- {-# LINE 1115 "dist/build/InterfacesRules" #-}+ {-# LINE 1117 "dist/build/InterfacesRules" #-} )) of { !_tlOn -> (case (tl_ _tlOinfo _tlOn _tlOv) of { ( !_tlIdescr,!_tlIgroups,!_tlInewedges,!_tlInewvertices,!_tlIv,!T_Segments_1 tl_1) -> (case (({-# LINE 169 "src-ag/InterfacesRules.lag" #-} _tlInewvertices- {-# LINE 1122 "dist/build/InterfacesRules" #-}+ {-# LINE 1124 "dist/build/InterfacesRules" #-} )) of { !_hdOnextNewvertices -> (case (hd_1 _hdOn _hdOnextNewvertices) of { ( !_hdIdescr,!_hdIgroups,!_hdInewedges,!_hdInewvertices,!T_Segment_2 hd_2) -> (case (({-# LINE 130 "src-ag/InterfacesRules.lag" #-} _hdIdescr Seq.>< _tlIdescr- {-# LINE 1129 "dist/build/InterfacesRules" #-}+ {-# LINE 1131 "dist/build/InterfacesRules" #-} )) of { !_lhsOdescr -> (case (({-# LINE 184 "src-ag/InterfacesRules.lag" #-} _hdIgroups- {-# LINE 1134 "dist/build/InterfacesRules" #-}+ {-# LINE 1136 "dist/build/InterfacesRules" #-} )) of { !_lhsOgroups -> (case (({-# LINE 129 "src-ag/InterfacesRules.lag" #-} _hdInewedges Seq.>< _tlInewedges- {-# LINE 1139 "dist/build/InterfacesRules" #-}+ {-# LINE 1141 "dist/build/InterfacesRules" #-} )) of { !_lhsOnewedges -> (case (({-# LINE 170 "src-ag/InterfacesRules.lag" #-} _hdInewvertices- {-# LINE 1144 "dist/build/InterfacesRules" #-}+ {-# LINE 1146 "dist/build/InterfacesRules" #-} )) of { !_lhsOnewvertices -> (case (({-# LINE 82 "src-ag/InterfacesRules.lag" #-} _tlIv- {-# LINE 1149 "dist/build/InterfacesRules" #-}+ {-# LINE 1151 "dist/build/InterfacesRules" #-} )) of { !_lhsOv -> (case ((let sem_Segments_Cons_1 :: T_Segments_1@@ -1156,51 +1158,51 @@ (!_lhsIvssGraph) -> (case (({-# LINE 216 "src-ag/InterfacesRules.lag" #-} _lhsIvssGraph- {-# LINE 1160 "dist/build/InterfacesRules" #-}+ {-# LINE 1162 "dist/build/InterfacesRules" #-} )) of { !_tlOvssGraph -> (case (({-# LINE 125 "src-ag/InterfacesRules.lag" #-} _lhsIvisitDescr- {-# LINE 1165 "dist/build/InterfacesRules" #-}+ {-# LINE 1167 "dist/build/InterfacesRules" #-} )) of { !_tlOvisitDescr -> (case (({-# LINE 216 "src-ag/InterfacesRules.lag" #-} _lhsIvssGraph- {-# LINE 1170 "dist/build/InterfacesRules" #-}+ {-# LINE 1172 "dist/build/InterfacesRules" #-} )) of { !_hdOvssGraph -> (case (({-# LINE 125 "src-ag/InterfacesRules.lag" #-} _lhsIvisitDescr- {-# LINE 1175 "dist/build/InterfacesRules" #-}+ {-# LINE 1177 "dist/build/InterfacesRules" #-} )) of { !_hdOvisitDescr -> (case (({-# LINE 263 "src-ag/InterfacesRules.lag" #-} _lhsIprev- {-# LINE 1180 "dist/build/InterfacesRules" #-}+ {-# LINE 1182 "dist/build/InterfacesRules" #-} )) of { !_hdOprev -> (case (({-# LINE 235 "src-ag/InterfacesRules.lag" #-} _lhsIcons- {-# LINE 1185 "dist/build/InterfacesRules" #-}+ {-# LINE 1187 "dist/build/InterfacesRules" #-} )) of { !_hdOcons -> (case (hd_2 _hdOcons _hdOprev _hdOvisitDescr _hdOvssGraph) of { ( !_hdIprev,!_hdIseg,!T_Segment_3 hd_3) -> (case (({-# LINE 263 "src-ag/InterfacesRules.lag" #-} _hdIprev- {-# LINE 1192 "dist/build/InterfacesRules" #-}+ {-# LINE 1194 "dist/build/InterfacesRules" #-} )) of { !_tlOprev -> (case (({-# LINE 235 "src-ag/InterfacesRules.lag" #-} _lhsIcons- {-# LINE 1197 "dist/build/InterfacesRules" #-}+ {-# LINE 1199 "dist/build/InterfacesRules" #-} )) of { !_tlOcons -> (case (tl_1 _tlOcons _tlOprev _tlOvisitDescr _tlOvssGraph) of { ( !_tlIsegs,!T_Segments_2 tl_2) -> (case (({-# LINE 400 "src-ag/InterfacesRules.lag" #-} _hdIseg : _tlIsegs- {-# LINE 1204 "dist/build/InterfacesRules" #-}+ {-# LINE 1206 "dist/build/InterfacesRules" #-} )) of { !_lhsOsegs -> (case ((let sem_Segments_Cons_2 :: T_Segments_2@@ -1211,81 +1213,81 @@ (!_lhsIisFirst) -> (case (({-# LINE 341 "src-ag/InterfacesRules.lag" #-} _lhsIddp- {-# LINE 1215 "dist/build/InterfacesRules" #-}+ {-# LINE 1217 "dist/build/InterfacesRules" #-} )) of { !_tlOddp -> (case (({-# LINE 378 "src-ag/InterfacesRules.lag" #-} _lhsIallInters- {-# LINE 1220 "dist/build/InterfacesRules" #-}+ {-# LINE 1222 "dist/build/InterfacesRules" #-} )) of { !_tlOallInters -> (case (({-# LINE 341 "src-ag/InterfacesRules.lag" #-} _lhsIddp- {-# LINE 1225 "dist/build/InterfacesRules" #-}+ {-# LINE 1227 "dist/build/InterfacesRules" #-} )) of { !_hdOddp -> (case (({-# LINE 378 "src-ag/InterfacesRules.lag" #-} _lhsIallInters- {-# LINE 1230 "dist/build/InterfacesRules" #-}+ {-# LINE 1232 "dist/build/InterfacesRules" #-} )) of { !_hdOallInters -> (case (({-# LINE 354 "src-ag/InterfacesRules.lag" #-} []- {-# LINE 1235 "dist/build/InterfacesRules" #-}+ {-# LINE 1237 "dist/build/InterfacesRules" #-} )) of { !_tlOfromLhs -> (case (({-# LINE 353 "src-ag/InterfacesRules.lag" #-} _lhsIfromLhs- {-# LINE 1240 "dist/build/InterfacesRules" #-}+ {-# LINE 1242 "dist/build/InterfacesRules" #-} )) of { !_hdOfromLhs -> (case (({-# LINE 316 "src-ag/InterfacesRules.lag" #-} False- {-# LINE 1245 "dist/build/InterfacesRules" #-}+ {-# LINE 1247 "dist/build/InterfacesRules" #-} )) of { !_tlOisFirst -> (case (tl_2 _tlOallInters _tlOddp _tlOfromLhs _tlOisFirst) of { ( !_tlIcvisits,!_tlIedp,!_tlIfirstInh,!_tlIhdIntravisits,!_tlIprev) -> (case (({-# LINE 329 "src-ag/InterfacesRules.lag" #-} _tlIhdIntravisits- {-# LINE 1252 "dist/build/InterfacesRules" #-}+ {-# LINE 1254 "dist/build/InterfacesRules" #-} )) of { !_hdOnextIntravisits -> (case (({-# LINE 312 "src-ag/InterfacesRules.lag" #-} _lhsIisFirst- {-# LINE 1257 "dist/build/InterfacesRules" #-}+ {-# LINE 1259 "dist/build/InterfacesRules" #-} )) of { !_hdOisFirst -> (case (({-# LINE 446 "src-ag/InterfacesRules.lag" #-} _tlIfirstInh- {-# LINE 1262 "dist/build/InterfacesRules" #-}+ {-# LINE 1264 "dist/build/InterfacesRules" #-} )) of { !_hdOnextInh -> (case (hd_3 _hdOallInters _hdOddp _hdOfromLhs _hdOisFirst _hdOnextInh _hdOnextIntravisits) of { ( !_hdIcvisits,!_hdIedp,!_hdIinh,!_hdIintravisits,!_hdIvisitss) -> (case (({-# LINE 399 "src-ag/InterfacesRules.lag" #-} _hdIcvisits : _tlIcvisits- {-# LINE 1269 "dist/build/InterfacesRules" #-}+ {-# LINE 1271 "dist/build/InterfacesRules" #-} )) of { !_lhsOcvisits -> (case (({-# LINE 437 "src-ag/InterfacesRules.lag" #-} _hdIedp Seq.>< _tlIedp- {-# LINE 1274 "dist/build/InterfacesRules" #-}+ {-# LINE 1276 "dist/build/InterfacesRules" #-} )) of { !_lhsOedp -> (case (({-# LINE 447 "src-ag/InterfacesRules.lag" #-} _hdIinh- {-# LINE 1279 "dist/build/InterfacesRules" #-}+ {-# LINE 1281 "dist/build/InterfacesRules" #-} )) of { !_lhsOfirstInh -> (case (({-# LINE 330 "src-ag/InterfacesRules.lag" #-} _hdIintravisits- {-# LINE 1284 "dist/build/InterfacesRules" #-}+ {-# LINE 1286 "dist/build/InterfacesRules" #-} )) of { !_lhsOhdIntravisits -> (case (({-# LINE 263 "src-ag/InterfacesRules.lag" #-} _tlIprev- {-# LINE 1289 "dist/build/InterfacesRules" #-}+ {-# LINE 1291 "dist/build/InterfacesRules" #-} )) of { !_lhsOprev -> ( _lhsOcvisits,_lhsOedp,_lhsOfirstInh,_lhsOhdIntravisits,_lhsOprev) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))@@ -1302,27 +1304,27 @@ (!_lhsIv) -> (case (({-# LINE 130 "src-ag/InterfacesRules.lag" #-} Seq.empty- {-# LINE 1306 "dist/build/InterfacesRules" #-}+ {-# LINE 1308 "dist/build/InterfacesRules" #-} )) of { !_lhsOdescr -> (case (({-# LINE 185 "src-ag/InterfacesRules.lag" #-} []- {-# LINE 1311 "dist/build/InterfacesRules" #-}+ {-# LINE 1313 "dist/build/InterfacesRules" #-} )) of { !_lhsOgroups -> (case (({-# LINE 129 "src-ag/InterfacesRules.lag" #-} Seq.empty- {-# LINE 1316 "dist/build/InterfacesRules" #-}+ {-# LINE 1318 "dist/build/InterfacesRules" #-} )) of { !_lhsOnewedges -> (case (({-# LINE 171 "src-ag/InterfacesRules.lag" #-} []- {-# LINE 1321 "dist/build/InterfacesRules" #-}+ {-# LINE 1323 "dist/build/InterfacesRules" #-} )) of { !_lhsOnewvertices -> (case (({-# LINE 82 "src-ag/InterfacesRules.lag" #-} _lhsIv- {-# LINE 1326 "dist/build/InterfacesRules" #-}+ {-# LINE 1328 "dist/build/InterfacesRules" #-} )) of { !_lhsOv -> (case ((let sem_Segments_Nil_1 :: T_Segments_1@@ -1333,7 +1335,7 @@ (!_lhsIvssGraph) -> (case (({-# LINE 401 "src-ag/InterfacesRules.lag" #-} []- {-# LINE 1337 "dist/build/InterfacesRules" #-}+ {-# LINE 1339 "dist/build/InterfacesRules" #-} )) of { !_lhsOsegs -> (case ((let sem_Segments_Nil_2 :: T_Segments_2@@ -1344,27 +1346,27 @@ (!_lhsIisFirst) -> (case (({-# LINE 399 "src-ag/InterfacesRules.lag" #-} []- {-# LINE 1348 "dist/build/InterfacesRules" #-}+ {-# LINE 1350 "dist/build/InterfacesRules" #-} )) of { !_lhsOcvisits -> (case (({-# LINE 437 "src-ag/InterfacesRules.lag" #-} Seq.empty- {-# LINE 1353 "dist/build/InterfacesRules" #-}+ {-# LINE 1355 "dist/build/InterfacesRules" #-} )) of { !_lhsOedp -> (case (({-# LINE 448 "src-ag/InterfacesRules.lag" #-} []- {-# LINE 1358 "dist/build/InterfacesRules" #-}+ {-# LINE 1360 "dist/build/InterfacesRules" #-} )) of { !_lhsOfirstInh -> (case (({-# LINE 331 "src-ag/InterfacesRules.lag" #-} repeat []- {-# LINE 1363 "dist/build/InterfacesRules" #-}+ {-# LINE 1365 "dist/build/InterfacesRules" #-} )) of { !_lhsOhdIntravisits -> (case (({-# LINE 263 "src-ag/InterfacesRules.lag" #-} _lhsIprev- {-# LINE 1368 "dist/build/InterfacesRules" #-}+ {-# LINE 1370 "dist/build/InterfacesRules" #-} )) of { !_lhsOprev -> ( _lhsOcvisits,_lhsOedp,_lhsOfirstInh,_lhsOhdIntravisits,_lhsOprev) }) }) }) }) })))
src-derived/KWOrder.hs view
@@ -312,6 +312,8 @@ _refNts {-# LINE 314 "dist/build/KWOrder" #-} )+ ___node =+ (Syn_Child _lhsOechilds _lhsOedges _lhsOnontnames _lhsOrefHoNts _lhsOrefNts _lhsOvertices) in ( _lhsOechilds,_lhsOedges,_lhsOnontnames,_lhsOrefHoNts,_lhsOrefNts,_lhsOvertices)))) -- Children ---------------------------------------------------- {-@@ -401,114 +403,116 @@ _lhsOechilds = ({-# LINE 175 "src-ag/KWOrder.ag" #-} _hdIechilds : _tlIechilds- {-# LINE 405 "dist/build/KWOrder" #-}+ {-# LINE 407 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 233, column 33) _lhsOedges = ({-# LINE 233 "src-ag/KWOrder.ag" #-} _hdIedges `Set.union` _tlIedges- {-# LINE 411 "dist/build/KWOrder" #-}+ {-# LINE 413 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 298, column 37) _lhsOnontnames = ({-# LINE 298 "src-ag/KWOrder.ag" #-} _hdInontnames ++ _tlInontnames- {-# LINE 417 "dist/build/KWOrder" #-}+ {-# LINE 419 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 56, column 67) _lhsOrefHoNts = ({-# LINE 56 "src-ag/KWOrder.ag" #-} _hdIrefHoNts `mappend` _tlIrefHoNts- {-# LINE 423 "dist/build/KWOrder" #-}+ {-# LINE 425 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 56, column 67) _lhsOrefNts = ({-# LINE 56 "src-ag/KWOrder.ag" #-} _hdIrefNts `mappend` _tlIrefNts- {-# LINE 429 "dist/build/KWOrder" #-}+ {-# LINE 431 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 189, column 36) _lhsOvertices = ({-# LINE 189 "src-ag/KWOrder.ag" #-} _hdIvertices `Set.union` _tlIvertices- {-# LINE 435 "dist/build/KWOrder" #-}+ {-# LINE 437 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOaroundMap = ({-# LINE 99 "src-ag/KWOrder.ag" #-} _lhsIaroundMap- {-# LINE 441 "dist/build/KWOrder" #-}+ {-# LINE 443 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 447 "dist/build/KWOrder" #-}+ {-# LINE 449 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOmergeMap = ({-# LINE 124 "src-ag/KWOrder.ag" #-} _lhsImergeMap- {-# LINE 453 "dist/build/KWOrder" #-}+ {-# LINE 455 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOmergedChildren = ({-# LINE 124 "src-ag/KWOrder.ag" #-} _lhsImergedChildren- {-# LINE 459 "dist/build/KWOrder" #-}+ {-# LINE 461 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOoptions = ({-# LINE 34 "src-ag/KWOrder.ag" #-} _lhsIoptions- {-# LINE 465 "dist/build/KWOrder" #-}+ {-# LINE 467 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 471 "dist/build/KWOrder" #-}+ {-# LINE 473 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOaroundMap = ({-# LINE 99 "src-ag/KWOrder.ag" #-} _lhsIaroundMap- {-# LINE 477 "dist/build/KWOrder" #-}+ {-# LINE 479 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 483 "dist/build/KWOrder" #-}+ {-# LINE 485 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOmergeMap = ({-# LINE 124 "src-ag/KWOrder.ag" #-} _lhsImergeMap- {-# LINE 489 "dist/build/KWOrder" #-}+ {-# LINE 491 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOmergedChildren = ({-# LINE 124 "src-ag/KWOrder.ag" #-} _lhsImergedChildren- {-# LINE 495 "dist/build/KWOrder" #-}+ {-# LINE 497 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOoptions = ({-# LINE 34 "src-ag/KWOrder.ag" #-} _lhsIoptions- {-# LINE 501 "dist/build/KWOrder" #-}+ {-# LINE 503 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 507 "dist/build/KWOrder" #-}+ {-# LINE 509 "dist/build/KWOrder" #-} ) ( _hdIechilds,_hdIedges,_hdInontnames,_hdIrefHoNts,_hdIrefNts,_hdIvertices) = hd_ _hdOaroundMap _hdOinhMap _hdOmergeMap _hdOmergedChildren _hdOoptions _hdOsynMap ( _tlIechilds,_tlIedges,_tlInontnames,_tlIrefHoNts,_tlIrefNts,_tlIvertices) = tl_ _tlOaroundMap _tlOinhMap _tlOmergeMap _tlOmergedChildren _tlOoptions _tlOsynMap+ ___node =+ (Syn_Children _lhsOechilds _lhsOedges _lhsOnontnames _lhsOrefHoNts _lhsOrefNts _lhsOvertices) in ( _lhsOechilds,_lhsOedges,_lhsOnontnames,_lhsOrefHoNts,_lhsOrefNts,_lhsOvertices)))) sem_Children_Nil :: T_Children sem_Children_Nil =@@ -528,38 +532,40 @@ _lhsOechilds = ({-# LINE 175 "src-ag/KWOrder.ag" #-} []- {-# LINE 532 "dist/build/KWOrder" #-}+ {-# LINE 536 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 233, column 33) _lhsOedges = ({-# LINE 233 "src-ag/KWOrder.ag" #-} Set.empty- {-# LINE 538 "dist/build/KWOrder" #-}+ {-# LINE 542 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 298, column 37) _lhsOnontnames = ({-# LINE 298 "src-ag/KWOrder.ag" #-} []- {-# LINE 544 "dist/build/KWOrder" #-}+ {-# LINE 548 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 56, column 67) _lhsOrefHoNts = ({-# LINE 56 "src-ag/KWOrder.ag" #-} mempty- {-# LINE 550 "dist/build/KWOrder" #-}+ {-# LINE 554 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 56, column 67) _lhsOrefNts = ({-# LINE 56 "src-ag/KWOrder.ag" #-} mempty- {-# LINE 556 "dist/build/KWOrder" #-}+ {-# LINE 560 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 189, column 36) _lhsOvertices = ({-# LINE 189 "src-ag/KWOrder.ag" #-} Set.empty- {-# LINE 562 "dist/build/KWOrder" #-}+ {-# LINE 566 "dist/build/KWOrder" #-} )+ ___node =+ (Syn_Children _lhsOechilds _lhsOedges _lhsOnontnames _lhsOrefHoNts _lhsOrefNts _lhsOvertices) in ( _lhsOechilds,_lhsOedges,_lhsOnontnames,_lhsOrefHoNts,_lhsOrefNts,_lhsOvertices)))) -- Expression -------------------------------------------------- {-@@ -600,20 +606,22 @@ ({-# LINE 200 "src-ag/KWOrder.ag" #-} Set.unions $ map (\tok -> vertices_Syn_HsToken (wrap_HsToken (sem_HsToken tok) Inh_HsToken)) tks_- {-# LINE 604 "dist/build/KWOrder" #-}+ {-# LINE 610 "dist/build/KWOrder" #-} ) -- self rule _copy = ({-# LINE 154 "src-ag/KWOrder.ag" #-} Expression pos_ tks_- {-# LINE 610 "dist/build/KWOrder" #-}+ {-# LINE 616 "dist/build/KWOrder" #-} ) -- self rule _lhsOcopy = ({-# LINE 154 "src-ag/KWOrder.ag" #-} _copy- {-# LINE 616 "dist/build/KWOrder" #-}+ {-# LINE 622 "dist/build/KWOrder" #-} )+ ___node =+ (Syn_Expression _lhsOcopy _lhsOvertices) in ( _lhsOcopy,_lhsOvertices))) -- Grammar ----------------------------------------------------- {-@@ -713,117 +721,119 @@ _nontsOrulenumber = ({-# LINE 44 "src-ag/KWOrder.ag" #-} 0- {-# LINE 717 "dist/build/KWOrder" #-}+ {-# LINE 725 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 83, column 3) _closedNtDeps = ({-# LINE 83 "src-ag/KWOrder.ag" #-} closeMap _nontsIntDeps- {-# LINE 723 "dist/build/KWOrder" #-}+ {-# LINE 731 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 84, column 3) _closedHoNtDeps = ({-# LINE 84 "src-ag/KWOrder.ag" #-} closeMap _nontsIntHoDeps- {-# LINE 729 "dist/build/KWOrder" #-}+ {-# LINE 737 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 85, column 3) _closedHoNtRevDeps = ({-# LINE 85 "src-ag/KWOrder.ag" #-} revDeps _closedHoNtDeps- {-# LINE 735 "dist/build/KWOrder" #-}+ {-# LINE 743 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 105, column 3) _nontsOaroundMap = ({-# LINE 105 "src-ag/KWOrder.ag" #-} aroundsMap_- {-# LINE 741 "dist/build/KWOrder" #-}+ {-# LINE 749 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 130, column 3) _nontsOmergeMap = ({-# LINE 130 "src-ag/KWOrder.ag" #-} mergeMap_- {-# LINE 747 "dist/build/KWOrder" #-}+ {-# LINE 755 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 146, column 3) _nontsOclassContexts = ({-# LINE 146 "src-ag/KWOrder.ag" #-} contextMap_- {-# LINE 753 "dist/build/KWOrder" #-}+ {-# LINE 761 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 269, column 31) _nontsOmanualDeps = ({-# LINE 269 "src-ag/KWOrder.ag" #-} manualAttrOrderMap_- {-# LINE 759 "dist/build/KWOrder" #-}+ {-# LINE 767 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 359, column 15) (_lhsOoutput,_lhsOdepgraphs,_lhsOvisitgraph,_lhsOerrors) = ({-# LINE 359 "src-ag/KWOrder.ag" #-} let lazyPlan = kennedyWarrenLazy _lhsIoptions wrappers_ _nontsIdepinfo typeSyns_ derivings_- in if visit _lhsIoptions && withCycle _lhsIoptions+ in if visit _lhsIoptions then case kennedyWarrenOrder _lhsIoptions wrappers_ _nontsIdepinfo typeSyns_ derivings_ of Left e -> (lazyPlan,empty,empty,Seq.singleton e) Right (o,d,v) -> (o,d,v,Seq.empty) else (lazyPlan,empty,empty,Seq.empty)- {-# LINE 770 "dist/build/KWOrder" #-}+ {-# LINE 778 "dist/build/KWOrder" #-} ) -- "src-ag/DistChildAttr.ag"(line 15, column 13) _nontsOinhMap = ({-# LINE 15 "src-ag/DistChildAttr.ag" #-} _nontsIinhMap'- {-# LINE 776 "dist/build/KWOrder" #-}+ {-# LINE 784 "dist/build/KWOrder" #-} ) -- "src-ag/DistChildAttr.ag"(line 16, column 13) _nontsOsynMap = ({-# LINE 16 "src-ag/DistChildAttr.ag" #-} _nontsIsynMap'- {-# LINE 782 "dist/build/KWOrder" #-}+ {-# LINE 790 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 371, column 33) _lhsOinhmap = ({-# LINE 371 "src-ag/KWOrder.ag" #-} _nontsIinhmap- {-# LINE 788 "dist/build/KWOrder" #-}+ {-# LINE 796 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 383, column 57) _lhsOlocalSigMap = ({-# LINE 383 "src-ag/KWOrder.ag" #-} _nontsIlocalSigMap- {-# LINE 794 "dist/build/KWOrder" #-}+ {-# LINE 802 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 372, column 33) _lhsOsynmap = ({-# LINE 372 "src-ag/KWOrder.ag" #-} _nontsIsynmap- {-# LINE 800 "dist/build/KWOrder" #-}+ {-# LINE 808 "dist/build/KWOrder" #-} ) -- copy rule (from local) _nontsOclosedHoNtDeps = ({-# LINE 55 "src-ag/KWOrder.ag" #-} _closedHoNtDeps- {-# LINE 806 "dist/build/KWOrder" #-}+ {-# LINE 814 "dist/build/KWOrder" #-} ) -- copy rule (from local) _nontsOclosedHoNtRevDeps = ({-# LINE 55 "src-ag/KWOrder.ag" #-} _closedHoNtRevDeps- {-# LINE 812 "dist/build/KWOrder" #-}+ {-# LINE 820 "dist/build/KWOrder" #-} ) -- copy rule (from local) _nontsOclosedNtDeps = ({-# LINE 55 "src-ag/KWOrder.ag" #-} _closedNtDeps- {-# LINE 818 "dist/build/KWOrder" #-}+ {-# LINE 826 "dist/build/KWOrder" #-} ) -- copy rule (down) _nontsOoptions = ({-# LINE 34 "src-ag/KWOrder.ag" #-} _lhsIoptions- {-# LINE 824 "dist/build/KWOrder" #-}+ {-# LINE 832 "dist/build/KWOrder" #-} ) ( _nontsIdepinfo,_nontsIinhMap',_nontsIinhmap,_nontsIlocalSigMap,_nontsIntDeps,_nontsIntHoDeps,_nontsIrulenumber,_nontsIsynMap',_nontsIsynmap) = nonts_ _nontsOaroundMap _nontsOclassContexts _nontsOclosedHoNtDeps _nontsOclosedHoNtRevDeps _nontsOclosedNtDeps _nontsOinhMap _nontsOmanualDeps _nontsOmergeMap _nontsOoptions _nontsOrulenumber _nontsOsynMap+ ___node =+ (Syn_Grammar _lhsOdepgraphs _lhsOerrors _lhsOinhmap _lhsOlocalSigMap _lhsOoutput _lhsOsynmap _lhsOvisitgraph) in ( _lhsOdepgraphs,_lhsOerrors,_lhsOinhmap,_lhsOlocalSigMap,_lhsOoutput,_lhsOsynmap,_lhsOvisitgraph)))) -- HsToken ----------------------------------------------------- {-@@ -891,8 +901,10 @@ Set.singleton $ VAttr (if field_ == _LHS then Inh else if field_ == _LOC then Loc else Syn) field_ attr_- {-# LINE 895 "dist/build/KWOrder" #-}+ {-# LINE 905 "dist/build/KWOrder" #-} )+ ___node =+ (Syn_HsToken _lhsOvertices) in ( _lhsOvertices))) sem_HsToken_AGLocal :: Identifier -> Pos ->@@ -904,8 +916,10 @@ _lhsOvertices = ({-# LINE 193 "src-ag/KWOrder.ag" #-} Set.singleton $ VChild var_- {-# LINE 908 "dist/build/KWOrder" #-}+ {-# LINE 920 "dist/build/KWOrder" #-} )+ ___node =+ (Syn_HsToken _lhsOvertices) in ( _lhsOvertices))) sem_HsToken_CharToken :: String -> Pos ->@@ -916,8 +930,10 @@ _lhsOvertices = ({-# LINE 189 "src-ag/KWOrder.ag" #-} Set.empty- {-# LINE 920 "dist/build/KWOrder" #-}+ {-# LINE 934 "dist/build/KWOrder" #-} )+ ___node =+ (Syn_HsToken _lhsOvertices) in ( _lhsOvertices))) sem_HsToken_Err :: String -> Pos ->@@ -928,8 +944,10 @@ _lhsOvertices = ({-# LINE 189 "src-ag/KWOrder.ag" #-} Set.empty- {-# LINE 932 "dist/build/KWOrder" #-}+ {-# LINE 948 "dist/build/KWOrder" #-} )+ ___node =+ (Syn_HsToken _lhsOvertices) in ( _lhsOvertices))) sem_HsToken_HsToken :: String -> Pos ->@@ -940,8 +958,10 @@ _lhsOvertices = ({-# LINE 189 "src-ag/KWOrder.ag" #-} Set.empty- {-# LINE 944 "dist/build/KWOrder" #-}+ {-# LINE 962 "dist/build/KWOrder" #-} )+ ___node =+ (Syn_HsToken _lhsOvertices) in ( _lhsOvertices))) sem_HsToken_StrToken :: String -> Pos ->@@ -952,8 +972,10 @@ _lhsOvertices = ({-# LINE 189 "src-ag/KWOrder.ag" #-} Set.empty- {-# LINE 956 "dist/build/KWOrder" #-}+ {-# LINE 976 "dist/build/KWOrder" #-} )+ ___node =+ (Syn_HsToken _lhsOvertices) in ( _lhsOvertices))) -- HsTokens ---------------------------------------------------- {-@@ -985,10 +1007,13 @@ (T_HsTokens (let _hdIvertices :: (Set.Set Vertex) ( _hdIvertices) = hd_+ ___node =+ (Syn_HsTokens) in ( ))) sem_HsTokens_Nil :: T_HsTokens sem_HsTokens_Nil =- (T_HsTokens (let+ (T_HsTokens (let ___node =+ (Syn_HsTokens) in ( ))) -- HsTokensRoot ------------------------------------------------ {-@@ -1014,7 +1039,8 @@ sem_HsTokensRoot_HsTokensRoot :: T_HsTokens -> T_HsTokensRoot sem_HsTokensRoot_HsTokensRoot (T_HsTokens tokens_) =- (T_HsTokensRoot (let+ (T_HsTokensRoot (let ___node =+ (Syn_HsTokensRoot) in ( ))) -- Nonterminal ------------------------------------------------- {-@@ -1132,43 +1158,43 @@ _lhsOntDeps = ({-# LINE 59 "src-ag/KWOrder.ag" #-} Map.singleton nt_ _prodsIrefNts- {-# LINE 1136 "dist/build/KWOrder" #-}+ {-# LINE 1162 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 60, column 3) _lhsOntHoDeps = ({-# LINE 60 "src-ag/KWOrder.ag" #-} Map.singleton nt_ _prodsIrefHoNts- {-# LINE 1142 "dist/build/KWOrder" #-}+ {-# LINE 1168 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 62, column 3) _closedNtDeps = ({-# LINE 62 "src-ag/KWOrder.ag" #-} Map.findWithDefault Set.empty nt_ _lhsIclosedNtDeps- {-# LINE 1148 "dist/build/KWOrder" #-}+ {-# LINE 1174 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 63, column 3) _closedHoNtDeps = ({-# LINE 63 "src-ag/KWOrder.ag" #-} Map.findWithDefault Set.empty nt_ _lhsIclosedHoNtDeps- {-# LINE 1154 "dist/build/KWOrder" #-}+ {-# LINE 1180 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 64, column 3) _closedHoNtRevDeps = ({-# LINE 64 "src-ag/KWOrder.ag" #-} Map.findWithDefault Set.empty nt_ _lhsIclosedHoNtRevDeps- {-# LINE 1160 "dist/build/KWOrder" #-}+ {-# LINE 1186 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 66, column 3) _recursive = ({-# LINE 66 "src-ag/KWOrder.ag" #-} nt_ `Set.member` _closedNtDeps- {-# LINE 1166 "dist/build/KWOrder" #-}+ {-# LINE 1192 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 67, column 3) _nontrivAcyc = ({-# LINE 67 "src-ag/KWOrder.ag" #-} nt_ `Set.member` _closedHoNtDeps- {-# LINE 1172 "dist/build/KWOrder" #-}+ {-# LINE 1198 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 68, column 3) _hoInfo =@@ -1177,56 +1203,56 @@ , hoNtRevDeps = _closedHoNtRevDeps , hoAcyclic = _nontrivAcyc }- {-# LINE 1181 "dist/build/KWOrder" #-}+ {-# LINE 1207 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 101, column 32) _aroundMap = ({-# LINE 101 "src-ag/KWOrder.ag" #-} Map.findWithDefault Map.empty nt_ _lhsIaroundMap- {-# LINE 1187 "dist/build/KWOrder" #-}+ {-# LINE 1213 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 126, column 32) _mergeMap = ({-# LINE 126 "src-ag/KWOrder.ag" #-} Map.findWithDefault Map.empty nt_ _lhsImergeMap- {-# LINE 1193 "dist/build/KWOrder" #-}+ {-# LINE 1219 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 149, column 3) _classContexts = ({-# LINE 149 "src-ag/KWOrder.ag" #-} Map.findWithDefault [] nt_ _lhsIclassContexts- {-# LINE 1199 "dist/build/KWOrder" #-}+ {-# LINE 1225 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 270, column 31) _prodsOmanualDeps = ({-# LINE 270 "src-ag/KWOrder.ag" #-} Map.findWithDefault Map.empty nt_ _lhsImanualDeps- {-# LINE 1205 "dist/build/KWOrder" #-}+ {-# LINE 1231 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 325, column 18) _synvertices = ({-# LINE 325 "src-ag/KWOrder.ag" #-} map (VAttr Syn nt_) . Map.keys $ syn_- {-# LINE 1211 "dist/build/KWOrder" #-}+ {-# LINE 1237 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 326, column 18) _inhvertices = ({-# LINE 326 "src-ag/KWOrder.ag" #-} map (VAttr Inh nt_) . Map.keys $ inh_- {-# LINE 1217 "dist/build/KWOrder" #-}+ {-# LINE 1243 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 327, column 18) _vertices = ({-# LINE 327 "src-ag/KWOrder.ag" #-} _synvertices ++ _inhvertices- {-# LINE 1223 "dist/build/KWOrder" #-}+ {-# LINE 1249 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 331, column 18) _nontgraph = ({-# LINE 331 "src-ag/KWOrder.ag" #-} NontDependencyGraph { ndgVertices = _vertices , ndgEdges = [] }- {-# LINE 1230 "dist/build/KWOrder" #-}+ {-# LINE 1256 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 339, column 18) _lhsOdepinfo =@@ -1241,82 +1267,84 @@ , ndiHoInfo = _hoInfo , ndiClassCtxs = _classContexts }- {-# LINE 1245 "dist/build/KWOrder" #-}+ {-# LINE 1271 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 377, column 17) _lhsOinhmap = ({-# LINE 377 "src-ag/KWOrder.ag" #-} Map.singleton nt_ inh_- {-# LINE 1251 "dist/build/KWOrder" #-}+ {-# LINE 1277 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 378, column 17) _lhsOsynmap = ({-# LINE 378 "src-ag/KWOrder.ag" #-} Map.singleton nt_ syn_- {-# LINE 1257 "dist/build/KWOrder" #-}+ {-# LINE 1283 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 387, column 32) _lhsOlocalSigMap = ({-# LINE 387 "src-ag/KWOrder.ag" #-} Map.singleton nt_ _prodsIlocalSigMap- {-# LINE 1263 "dist/build/KWOrder" #-}+ {-# LINE 1289 "dist/build/KWOrder" #-} ) -- "src-ag/DistChildAttr.ag"(line 7, column 18) _lhsOinhMap' = ({-# LINE 7 "src-ag/DistChildAttr.ag" #-} Map.singleton nt_ inh_- {-# LINE 1269 "dist/build/KWOrder" #-}+ {-# LINE 1295 "dist/build/KWOrder" #-} ) -- "src-ag/DistChildAttr.ag"(line 8, column 18) _lhsOsynMap' = ({-# LINE 8 "src-ag/DistChildAttr.ag" #-} Map.singleton nt_ syn_- {-# LINE 1275 "dist/build/KWOrder" #-}+ {-# LINE 1301 "dist/build/KWOrder" #-} ) -- copy rule (up) _lhsOrulenumber = ({-# LINE 41 "src-ag/KWOrder.ag" #-} _prodsIrulenumber- {-# LINE 1281 "dist/build/KWOrder" #-}+ {-# LINE 1307 "dist/build/KWOrder" #-} ) -- copy rule (from local) _prodsOaroundMap = ({-# LINE 96 "src-ag/KWOrder.ag" #-} _aroundMap- {-# LINE 1287 "dist/build/KWOrder" #-}+ {-# LINE 1313 "dist/build/KWOrder" #-} ) -- copy rule (down) _prodsOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 1293 "dist/build/KWOrder" #-}+ {-# LINE 1319 "dist/build/KWOrder" #-} ) -- copy rule (from local) _prodsOmergeMap = ({-# LINE 121 "src-ag/KWOrder.ag" #-} _mergeMap- {-# LINE 1299 "dist/build/KWOrder" #-}+ {-# LINE 1325 "dist/build/KWOrder" #-} ) -- copy rule (down) _prodsOoptions = ({-# LINE 34 "src-ag/KWOrder.ag" #-} _lhsIoptions- {-# LINE 1305 "dist/build/KWOrder" #-}+ {-# LINE 1331 "dist/build/KWOrder" #-} ) -- copy rule (down) _prodsOrulenumber = ({-# LINE 41 "src-ag/KWOrder.ag" #-} _lhsIrulenumber- {-# LINE 1311 "dist/build/KWOrder" #-}+ {-# LINE 1337 "dist/build/KWOrder" #-} ) -- copy rule (down) _prodsOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 1317 "dist/build/KWOrder" #-}+ {-# LINE 1343 "dist/build/KWOrder" #-} ) ( _prodsIdepgraph,_prodsIlocalSigMap,_prodsIrefHoNts,_prodsIrefNts,_prodsIrulenumber) = prods_ _prodsOaroundMap _prodsOinhMap _prodsOmanualDeps _prodsOmergeMap _prodsOoptions _prodsOrulenumber _prodsOsynMap+ ___node =+ (Syn_Nonterminal _lhsOdepinfo _lhsOinhMap' _lhsOinhmap _lhsOlocalSigMap _lhsOntDeps _lhsOntHoDeps _lhsOrulenumber _lhsOsynMap' _lhsOsynmap) in ( _lhsOdepinfo,_lhsOinhMap',_lhsOinhmap,_lhsOlocalSigMap,_lhsOntDeps,_lhsOntHoDeps,_lhsOrulenumber,_lhsOsynMap',_lhsOsynmap)))) -- Nonterminals ------------------------------------------------ {-@@ -1443,192 +1471,194 @@ _lhsOdepinfo = ({-# LINE 336 "src-ag/KWOrder.ag" #-} _hdIdepinfo : _tlIdepinfo- {-# LINE 1447 "dist/build/KWOrder" #-}+ {-# LINE 1475 "dist/build/KWOrder" #-} ) -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53) _lhsOinhMap' = ({-# LINE 4 "src-ag/DistChildAttr.ag" #-} _hdIinhMap' `Map.union` _tlIinhMap'- {-# LINE 1453 "dist/build/KWOrder" #-}+ {-# LINE 1481 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 371, column 33) _lhsOinhmap = ({-# LINE 371 "src-ag/KWOrder.ag" #-} _hdIinhmap `Map.union` _tlIinhmap- {-# LINE 1459 "dist/build/KWOrder" #-}+ {-# LINE 1487 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 383, column 57) _lhsOlocalSigMap = ({-# LINE 383 "src-ag/KWOrder.ag" #-} _hdIlocalSigMap `Map.union` _tlIlocalSigMap- {-# LINE 1465 "dist/build/KWOrder" #-}+ {-# LINE 1493 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 54, column 54) _lhsOntDeps = ({-# LINE 54 "src-ag/KWOrder.ag" #-} _hdIntDeps `mappend` _tlIntDeps- {-# LINE 1471 "dist/build/KWOrder" #-}+ {-# LINE 1499 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 54, column 54) _lhsOntHoDeps = ({-# LINE 54 "src-ag/KWOrder.ag" #-} _hdIntHoDeps `mappend` _tlIntHoDeps- {-# LINE 1477 "dist/build/KWOrder" #-}+ {-# LINE 1505 "dist/build/KWOrder" #-} ) -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53) _lhsOsynMap' = ({-# LINE 4 "src-ag/DistChildAttr.ag" #-} _hdIsynMap' `Map.union` _tlIsynMap'- {-# LINE 1483 "dist/build/KWOrder" #-}+ {-# LINE 1511 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 372, column 33) _lhsOsynmap = ({-# LINE 372 "src-ag/KWOrder.ag" #-} _hdIsynmap `Map.union` _tlIsynmap- {-# LINE 1489 "dist/build/KWOrder" #-}+ {-# LINE 1517 "dist/build/KWOrder" #-} ) -- copy rule (up) _lhsOrulenumber = ({-# LINE 41 "src-ag/KWOrder.ag" #-} _tlIrulenumber- {-# LINE 1495 "dist/build/KWOrder" #-}+ {-# LINE 1523 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOaroundMap = ({-# LINE 93 "src-ag/KWOrder.ag" #-} _lhsIaroundMap- {-# LINE 1501 "dist/build/KWOrder" #-}+ {-# LINE 1529 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOclassContexts = ({-# LINE 143 "src-ag/KWOrder.ag" #-} _lhsIclassContexts- {-# LINE 1507 "dist/build/KWOrder" #-}+ {-# LINE 1535 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOclosedHoNtDeps = ({-# LINE 55 "src-ag/KWOrder.ag" #-} _lhsIclosedHoNtDeps- {-# LINE 1513 "dist/build/KWOrder" #-}+ {-# LINE 1541 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOclosedHoNtRevDeps = ({-# LINE 55 "src-ag/KWOrder.ag" #-} _lhsIclosedHoNtRevDeps- {-# LINE 1519 "dist/build/KWOrder" #-}+ {-# LINE 1547 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOclosedNtDeps = ({-# LINE 55 "src-ag/KWOrder.ag" #-} _lhsIclosedNtDeps- {-# LINE 1525 "dist/build/KWOrder" #-}+ {-# LINE 1553 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 1531 "dist/build/KWOrder" #-}+ {-# LINE 1559 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOmanualDeps = ({-# LINE 266 "src-ag/KWOrder.ag" #-} _lhsImanualDeps- {-# LINE 1537 "dist/build/KWOrder" #-}+ {-# LINE 1565 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOmergeMap = ({-# LINE 118 "src-ag/KWOrder.ag" #-} _lhsImergeMap- {-# LINE 1543 "dist/build/KWOrder" #-}+ {-# LINE 1571 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOoptions = ({-# LINE 34 "src-ag/KWOrder.ag" #-} _lhsIoptions- {-# LINE 1549 "dist/build/KWOrder" #-}+ {-# LINE 1577 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOrulenumber = ({-# LINE 41 "src-ag/KWOrder.ag" #-} _lhsIrulenumber- {-# LINE 1555 "dist/build/KWOrder" #-}+ {-# LINE 1583 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 1561 "dist/build/KWOrder" #-}+ {-# LINE 1589 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOaroundMap = ({-# LINE 93 "src-ag/KWOrder.ag" #-} _lhsIaroundMap- {-# LINE 1567 "dist/build/KWOrder" #-}+ {-# LINE 1595 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOclassContexts = ({-# LINE 143 "src-ag/KWOrder.ag" #-} _lhsIclassContexts- {-# LINE 1573 "dist/build/KWOrder" #-}+ {-# LINE 1601 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOclosedHoNtDeps = ({-# LINE 55 "src-ag/KWOrder.ag" #-} _lhsIclosedHoNtDeps- {-# LINE 1579 "dist/build/KWOrder" #-}+ {-# LINE 1607 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOclosedHoNtRevDeps = ({-# LINE 55 "src-ag/KWOrder.ag" #-} _lhsIclosedHoNtRevDeps- {-# LINE 1585 "dist/build/KWOrder" #-}+ {-# LINE 1613 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOclosedNtDeps = ({-# LINE 55 "src-ag/KWOrder.ag" #-} _lhsIclosedNtDeps- {-# LINE 1591 "dist/build/KWOrder" #-}+ {-# LINE 1619 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 1597 "dist/build/KWOrder" #-}+ {-# LINE 1625 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOmanualDeps = ({-# LINE 266 "src-ag/KWOrder.ag" #-} _lhsImanualDeps- {-# LINE 1603 "dist/build/KWOrder" #-}+ {-# LINE 1631 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOmergeMap = ({-# LINE 118 "src-ag/KWOrder.ag" #-} _lhsImergeMap- {-# LINE 1609 "dist/build/KWOrder" #-}+ {-# LINE 1637 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOoptions = ({-# LINE 34 "src-ag/KWOrder.ag" #-} _lhsIoptions- {-# LINE 1615 "dist/build/KWOrder" #-}+ {-# LINE 1643 "dist/build/KWOrder" #-} ) -- copy rule (chain) _tlOrulenumber = ({-# LINE 41 "src-ag/KWOrder.ag" #-} _hdIrulenumber- {-# LINE 1621 "dist/build/KWOrder" #-}+ {-# LINE 1649 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 1627 "dist/build/KWOrder" #-}+ {-# LINE 1655 "dist/build/KWOrder" #-} ) ( _hdIdepinfo,_hdIinhMap',_hdIinhmap,_hdIlocalSigMap,_hdIntDeps,_hdIntHoDeps,_hdIrulenumber,_hdIsynMap',_hdIsynmap) = hd_ _hdOaroundMap _hdOclassContexts _hdOclosedHoNtDeps _hdOclosedHoNtRevDeps _hdOclosedNtDeps _hdOinhMap _hdOmanualDeps _hdOmergeMap _hdOoptions _hdOrulenumber _hdOsynMap ( _tlIdepinfo,_tlIinhMap',_tlIinhmap,_tlIlocalSigMap,_tlIntDeps,_tlIntHoDeps,_tlIrulenumber,_tlIsynMap',_tlIsynmap) = tl_ _tlOaroundMap _tlOclassContexts _tlOclosedHoNtDeps _tlOclosedHoNtRevDeps _tlOclosedNtDeps _tlOinhMap _tlOmanualDeps _tlOmergeMap _tlOoptions _tlOrulenumber _tlOsynMap+ ___node =+ (Syn_Nonterminals _lhsOdepinfo _lhsOinhMap' _lhsOinhmap _lhsOlocalSigMap _lhsOntDeps _lhsOntHoDeps _lhsOrulenumber _lhsOsynMap' _lhsOsynmap) in ( _lhsOdepinfo,_lhsOinhMap',_lhsOinhmap,_lhsOlocalSigMap,_lhsOntDeps,_lhsOntHoDeps,_lhsOrulenumber,_lhsOsynMap',_lhsOsynmap)))) sem_Nonterminals_Nil :: T_Nonterminals sem_Nonterminals_Nil =@@ -1656,56 +1686,58 @@ _lhsOdepinfo = ({-# LINE 336 "src-ag/KWOrder.ag" #-} []- {-# LINE 1660 "dist/build/KWOrder" #-}+ {-# LINE 1690 "dist/build/KWOrder" #-} ) -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53) _lhsOinhMap' = ({-# LINE 4 "src-ag/DistChildAttr.ag" #-} Map.empty- {-# LINE 1666 "dist/build/KWOrder" #-}+ {-# LINE 1696 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 371, column 33) _lhsOinhmap = ({-# LINE 371 "src-ag/KWOrder.ag" #-} Map.empty- {-# LINE 1672 "dist/build/KWOrder" #-}+ {-# LINE 1702 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 383, column 57) _lhsOlocalSigMap = ({-# LINE 383 "src-ag/KWOrder.ag" #-} Map.empty- {-# LINE 1678 "dist/build/KWOrder" #-}+ {-# LINE 1708 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 54, column 54) _lhsOntDeps = ({-# LINE 54 "src-ag/KWOrder.ag" #-} mempty- {-# LINE 1684 "dist/build/KWOrder" #-}+ {-# LINE 1714 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 54, column 54) _lhsOntHoDeps = ({-# LINE 54 "src-ag/KWOrder.ag" #-} mempty- {-# LINE 1690 "dist/build/KWOrder" #-}+ {-# LINE 1720 "dist/build/KWOrder" #-} ) -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53) _lhsOsynMap' = ({-# LINE 4 "src-ag/DistChildAttr.ag" #-} Map.empty- {-# LINE 1696 "dist/build/KWOrder" #-}+ {-# LINE 1726 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 372, column 33) _lhsOsynmap = ({-# LINE 372 "src-ag/KWOrder.ag" #-} Map.empty- {-# LINE 1702 "dist/build/KWOrder" #-}+ {-# LINE 1732 "dist/build/KWOrder" #-} ) -- copy rule (chain) _lhsOrulenumber = ({-# LINE 41 "src-ag/KWOrder.ag" #-} _lhsIrulenumber- {-# LINE 1708 "dist/build/KWOrder" #-}+ {-# LINE 1738 "dist/build/KWOrder" #-} )+ ___node =+ (Syn_Nonterminals _lhsOdepinfo _lhsOinhMap' _lhsOinhmap _lhsOlocalSigMap _lhsOntDeps _lhsOntHoDeps _lhsOrulenumber _lhsOsynMap' _lhsOsynmap) in ( _lhsOdepinfo,_lhsOinhMap',_lhsOinhmap,_lhsOlocalSigMap,_lhsOntDeps,_lhsOntHoDeps,_lhsOrulenumber,_lhsOsynMap',_lhsOsynmap)))) -- Pattern ----------------------------------------------------- {-@@ -1779,28 +1811,30 @@ else VAttr (if field_ == _LHS then Syn else if field_ == _LOC then Loc else Inh) field_ attr_- {-# LINE 1783 "dist/build/KWOrder" #-}+ {-# LINE 1815 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 209, column 12) _lhsOvertices = ({-# LINE 209 "src-ag/KWOrder.ag" #-} Set.insert _vertex _patIvertices- {-# LINE 1789 "dist/build/KWOrder" #-}+ {-# LINE 1821 "dist/build/KWOrder" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Alias field_ attr_ _patIcopy- {-# LINE 1795 "dist/build/KWOrder" #-}+ {-# LINE 1827 "dist/build/KWOrder" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1801 "dist/build/KWOrder" #-}+ {-# LINE 1833 "dist/build/KWOrder" #-} ) ( _patIcopy,_patIvertices) = pat_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOvertices) in ( _lhsOcopy,_lhsOvertices))) sem_Pattern_Constr :: ConstructorIdent -> T_Patterns ->@@ -1814,22 +1848,24 @@ _lhsOvertices = ({-# LINE 189 "src-ag/KWOrder.ag" #-} _patsIvertices- {-# LINE 1818 "dist/build/KWOrder" #-}+ {-# LINE 1852 "dist/build/KWOrder" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Constr name_ _patsIcopy- {-# LINE 1824 "dist/build/KWOrder" #-}+ {-# LINE 1858 "dist/build/KWOrder" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1830 "dist/build/KWOrder" #-}+ {-# LINE 1864 "dist/build/KWOrder" #-} ) ( _patsIcopy,_patsIvertices) = pats_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOvertices) in ( _lhsOcopy,_lhsOvertices))) sem_Pattern_Irrefutable :: T_Pattern -> T_Pattern@@ -1842,22 +1878,24 @@ _lhsOvertices = ({-# LINE 189 "src-ag/KWOrder.ag" #-} _patIvertices- {-# LINE 1846 "dist/build/KWOrder" #-}+ {-# LINE 1882 "dist/build/KWOrder" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Irrefutable _patIcopy- {-# LINE 1852 "dist/build/KWOrder" #-}+ {-# LINE 1888 "dist/build/KWOrder" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1858 "dist/build/KWOrder" #-}+ {-# LINE 1894 "dist/build/KWOrder" #-} ) ( _patIcopy,_patIvertices) = pat_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOvertices) in ( _lhsOcopy,_lhsOvertices))) sem_Pattern_Product :: Pos -> T_Patterns ->@@ -1871,22 +1909,24 @@ _lhsOvertices = ({-# LINE 189 "src-ag/KWOrder.ag" #-} _patsIvertices- {-# LINE 1875 "dist/build/KWOrder" #-}+ {-# LINE 1913 "dist/build/KWOrder" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Product pos_ _patsIcopy- {-# LINE 1881 "dist/build/KWOrder" #-}+ {-# LINE 1919 "dist/build/KWOrder" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1887 "dist/build/KWOrder" #-}+ {-# LINE 1925 "dist/build/KWOrder" #-} ) ( _patsIcopy,_patsIvertices) = pats_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOvertices) in ( _lhsOcopy,_lhsOvertices))) sem_Pattern_Underscore :: Pos -> T_Pattern@@ -1897,20 +1937,22 @@ _lhsOvertices = ({-# LINE 189 "src-ag/KWOrder.ag" #-} Set.empty- {-# LINE 1901 "dist/build/KWOrder" #-}+ {-# LINE 1941 "dist/build/KWOrder" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Underscore pos_- {-# LINE 1907 "dist/build/KWOrder" #-}+ {-# LINE 1947 "dist/build/KWOrder" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1913 "dist/build/KWOrder" #-}+ {-# LINE 1953 "dist/build/KWOrder" #-} )+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOvertices) in ( _lhsOcopy,_lhsOvertices))) -- Patterns ---------------------------------------------------- {-@@ -1957,24 +1999,26 @@ _lhsOvertices = ({-# LINE 189 "src-ag/KWOrder.ag" #-} _hdIvertices `Set.union` _tlIvertices- {-# LINE 1961 "dist/build/KWOrder" #-}+ {-# LINE 2003 "dist/build/KWOrder" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} (:) _hdIcopy _tlIcopy- {-# LINE 1967 "dist/build/KWOrder" #-}+ {-# LINE 2009 "dist/build/KWOrder" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1973 "dist/build/KWOrder" #-}+ {-# LINE 2015 "dist/build/KWOrder" #-} ) ( _hdIcopy,_hdIvertices) = hd_ ( _tlIcopy,_tlIvertices) = tl_+ ___node =+ (Syn_Patterns _lhsOcopy _lhsOvertices) in ( _lhsOcopy,_lhsOvertices))) sem_Patterns_Nil :: T_Patterns sem_Patterns_Nil =@@ -1984,20 +2028,22 @@ _lhsOvertices = ({-# LINE 189 "src-ag/KWOrder.ag" #-} Set.empty- {-# LINE 1988 "dist/build/KWOrder" #-}+ {-# LINE 2032 "dist/build/KWOrder" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} []- {-# LINE 1994 "dist/build/KWOrder" #-}+ {-# LINE 2038 "dist/build/KWOrder" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 2000 "dist/build/KWOrder" #-}+ {-# LINE 2044 "dist/build/KWOrder" #-} )+ ___node =+ (Syn_Patterns _lhsOcopy _lhsOvertices) in ( _lhsOcopy,_lhsOvertices))) -- Production -------------------------------------------------- {-@@ -2099,43 +2145,43 @@ _aroundMap = ({-# LINE 102 "src-ag/KWOrder.ag" #-} Map.findWithDefault Map.empty con_ _lhsIaroundMap- {-# LINE 2103 "dist/build/KWOrder" #-}+ {-# LINE 2149 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 127, column 32) _mergeMap = ({-# LINE 127 "src-ag/KWOrder.ag" #-} Map.findWithDefault Map.empty con_ _lhsImergeMap- {-# LINE 2109 "dist/build/KWOrder" #-}+ {-# LINE 2155 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 133, column 3) _mergedChildren = ({-# LINE 133 "src-ag/KWOrder.ag" #-} Set.unions [ Set.fromList ms | (_,ms,_) <- Map.elems _mergeMap ]- {-# LINE 2115 "dist/build/KWOrder" #-}+ {-# LINE 2161 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 229, column 17) _vertices = ({-# LINE 229 "src-ag/KWOrder.ag" #-} _rulesIvertices `Set.union` _childrenIvertices- {-# LINE 2121 "dist/build/KWOrder" #-}+ {-# LINE 2167 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 272, column 3) _manualDeps = ({-# LINE 272 "src-ag/KWOrder.ag" #-} Map.findWithDefault Set.empty con_ _lhsImanualDeps- {-# LINE 2127 "dist/build/KWOrder" #-}+ {-# LINE 2173 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 273, column 3) _manualEdges = ({-# LINE 273 "src-ag/KWOrder.ag" #-} Set.map depToEdge _manualDeps- {-# LINE 2133 "dist/build/KWOrder" #-}+ {-# LINE 2179 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 295, column 17) _edges = ({-# LINE 295 "src-ag/KWOrder.ag" #-} _rulesIedges `Set.union` _childrenIedges- {-# LINE 2139 "dist/build/KWOrder" #-}+ {-# LINE 2185 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 310, column 17) _lhsOdepgraph =@@ -2148,73 +2194,73 @@ , pdgChildMap = _childrenInontnames , pdgConstraints = constraints_ , pdgParams = params_ }- {-# LINE 2152 "dist/build/KWOrder" #-}+ {-# LINE 2198 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 388, column 32) _lhsOlocalSigMap = ({-# LINE 388 "src-ag/KWOrder.ag" #-} Map.singleton con_ _typeSigsIlocalSigMap- {-# LINE 2158 "dist/build/KWOrder" #-}+ {-# LINE 2204 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 56, column 67) _lhsOrefHoNts = ({-# LINE 56 "src-ag/KWOrder.ag" #-} _childrenIrefHoNts- {-# LINE 2164 "dist/build/KWOrder" #-}+ {-# LINE 2210 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 56, column 67) _lhsOrefNts = ({-# LINE 56 "src-ag/KWOrder.ag" #-} _childrenIrefNts- {-# LINE 2170 "dist/build/KWOrder" #-}+ {-# LINE 2216 "dist/build/KWOrder" #-} ) -- copy rule (up) _lhsOrulenumber = ({-# LINE 41 "src-ag/KWOrder.ag" #-} _rulesIrulenumber- {-# LINE 2176 "dist/build/KWOrder" #-}+ {-# LINE 2222 "dist/build/KWOrder" #-} ) -- copy rule (from local) _childrenOaroundMap = ({-# LINE 99 "src-ag/KWOrder.ag" #-} _aroundMap- {-# LINE 2182 "dist/build/KWOrder" #-}+ {-# LINE 2228 "dist/build/KWOrder" #-} ) -- copy rule (down) _childrenOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 2188 "dist/build/KWOrder" #-}+ {-# LINE 2234 "dist/build/KWOrder" #-} ) -- copy rule (from local) _childrenOmergeMap = ({-# LINE 124 "src-ag/KWOrder.ag" #-} _mergeMap- {-# LINE 2194 "dist/build/KWOrder" #-}+ {-# LINE 2240 "dist/build/KWOrder" #-} ) -- copy rule (from local) _childrenOmergedChildren = ({-# LINE 124 "src-ag/KWOrder.ag" #-} _mergedChildren- {-# LINE 2200 "dist/build/KWOrder" #-}+ {-# LINE 2246 "dist/build/KWOrder" #-} ) -- copy rule (down) _childrenOoptions = ({-# LINE 34 "src-ag/KWOrder.ag" #-} _lhsIoptions- {-# LINE 2206 "dist/build/KWOrder" #-}+ {-# LINE 2252 "dist/build/KWOrder" #-} ) -- copy rule (down) _childrenOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 2212 "dist/build/KWOrder" #-}+ {-# LINE 2258 "dist/build/KWOrder" #-} ) -- copy rule (down) _rulesOrulenumber = ({-# LINE 41 "src-ag/KWOrder.ag" #-} _lhsIrulenumber- {-# LINE 2218 "dist/build/KWOrder" #-}+ {-# LINE 2264 "dist/build/KWOrder" #-} ) ( _childrenIechilds,_childrenIedges,_childrenInontnames,_childrenIrefHoNts,_childrenIrefNts,_childrenIvertices) = children_ _childrenOaroundMap _childrenOinhMap _childrenOmergeMap _childrenOmergedChildren _childrenOoptions _childrenOsynMap@@ -2222,6 +2268,8 @@ rules_ _rulesOrulenumber ( _typeSigsIlocalSigMap) = typeSigs_+ ___node =+ (Syn_Production _lhsOdepgraph _lhsOlocalSigMap _lhsOrefHoNts _lhsOrefNts _lhsOrulenumber) in ( _lhsOdepgraph,_lhsOlocalSigMap,_lhsOrefHoNts,_lhsOrefNts,_lhsOrulenumber)))) -- Productions ------------------------------------------------- {-@@ -2312,120 +2360,122 @@ _lhsOdepgraph = ({-# LINE 307 "src-ag/KWOrder.ag" #-} _hdIdepgraph : _tlIdepgraph- {-# LINE 2316 "dist/build/KWOrder" #-}+ {-# LINE 2364 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 384, column 57) _lhsOlocalSigMap = ({-# LINE 384 "src-ag/KWOrder.ag" #-} _hdIlocalSigMap `Map.union` _tlIlocalSigMap- {-# LINE 2322 "dist/build/KWOrder" #-}+ {-# LINE 2370 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 56, column 67) _lhsOrefHoNts = ({-# LINE 56 "src-ag/KWOrder.ag" #-} _hdIrefHoNts `mappend` _tlIrefHoNts- {-# LINE 2328 "dist/build/KWOrder" #-}+ {-# LINE 2376 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 56, column 67) _lhsOrefNts = ({-# LINE 56 "src-ag/KWOrder.ag" #-} _hdIrefNts `mappend` _tlIrefNts- {-# LINE 2334 "dist/build/KWOrder" #-}+ {-# LINE 2382 "dist/build/KWOrder" #-} ) -- copy rule (up) _lhsOrulenumber = ({-# LINE 41 "src-ag/KWOrder.ag" #-} _tlIrulenumber- {-# LINE 2340 "dist/build/KWOrder" #-}+ {-# LINE 2388 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOaroundMap = ({-# LINE 96 "src-ag/KWOrder.ag" #-} _lhsIaroundMap- {-# LINE 2346 "dist/build/KWOrder" #-}+ {-# LINE 2394 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 2352 "dist/build/KWOrder" #-}+ {-# LINE 2400 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOmanualDeps = ({-# LINE 267 "src-ag/KWOrder.ag" #-} _lhsImanualDeps- {-# LINE 2358 "dist/build/KWOrder" #-}+ {-# LINE 2406 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOmergeMap = ({-# LINE 121 "src-ag/KWOrder.ag" #-} _lhsImergeMap- {-# LINE 2364 "dist/build/KWOrder" #-}+ {-# LINE 2412 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOoptions = ({-# LINE 34 "src-ag/KWOrder.ag" #-} _lhsIoptions- {-# LINE 2370 "dist/build/KWOrder" #-}+ {-# LINE 2418 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOrulenumber = ({-# LINE 41 "src-ag/KWOrder.ag" #-} _lhsIrulenumber- {-# LINE 2376 "dist/build/KWOrder" #-}+ {-# LINE 2424 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 2382 "dist/build/KWOrder" #-}+ {-# LINE 2430 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOaroundMap = ({-# LINE 96 "src-ag/KWOrder.ag" #-} _lhsIaroundMap- {-# LINE 2388 "dist/build/KWOrder" #-}+ {-# LINE 2436 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 2394 "dist/build/KWOrder" #-}+ {-# LINE 2442 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOmanualDeps = ({-# LINE 267 "src-ag/KWOrder.ag" #-} _lhsImanualDeps- {-# LINE 2400 "dist/build/KWOrder" #-}+ {-# LINE 2448 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOmergeMap = ({-# LINE 121 "src-ag/KWOrder.ag" #-} _lhsImergeMap- {-# LINE 2406 "dist/build/KWOrder" #-}+ {-# LINE 2454 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOoptions = ({-# LINE 34 "src-ag/KWOrder.ag" #-} _lhsIoptions- {-# LINE 2412 "dist/build/KWOrder" #-}+ {-# LINE 2460 "dist/build/KWOrder" #-} ) -- copy rule (chain) _tlOrulenumber = ({-# LINE 41 "src-ag/KWOrder.ag" #-} _hdIrulenumber- {-# LINE 2418 "dist/build/KWOrder" #-}+ {-# LINE 2466 "dist/build/KWOrder" #-} ) -- copy rule (down) _tlOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 2424 "dist/build/KWOrder" #-}+ {-# LINE 2472 "dist/build/KWOrder" #-} ) ( _hdIdepgraph,_hdIlocalSigMap,_hdIrefHoNts,_hdIrefNts,_hdIrulenumber) = hd_ _hdOaroundMap _hdOinhMap _hdOmanualDeps _hdOmergeMap _hdOoptions _hdOrulenumber _hdOsynMap ( _tlIdepgraph,_tlIlocalSigMap,_tlIrefHoNts,_tlIrefNts,_tlIrulenumber) = tl_ _tlOaroundMap _tlOinhMap _tlOmanualDeps _tlOmergeMap _tlOoptions _tlOrulenumber _tlOsynMap+ ___node =+ (Syn_Productions _lhsOdepgraph _lhsOlocalSigMap _lhsOrefHoNts _lhsOrefNts _lhsOrulenumber) in ( _lhsOdepgraph,_lhsOlocalSigMap,_lhsOrefHoNts,_lhsOrefNts,_lhsOrulenumber)))) sem_Productions_Nil :: T_Productions sem_Productions_Nil =@@ -2445,32 +2495,34 @@ _lhsOdepgraph = ({-# LINE 307 "src-ag/KWOrder.ag" #-} []- {-# LINE 2449 "dist/build/KWOrder" #-}+ {-# LINE 2499 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 384, column 57) _lhsOlocalSigMap = ({-# LINE 384 "src-ag/KWOrder.ag" #-} Map.empty- {-# LINE 2455 "dist/build/KWOrder" #-}+ {-# LINE 2505 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 56, column 67) _lhsOrefHoNts = ({-# LINE 56 "src-ag/KWOrder.ag" #-} mempty- {-# LINE 2461 "dist/build/KWOrder" #-}+ {-# LINE 2511 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 56, column 67) _lhsOrefNts = ({-# LINE 56 "src-ag/KWOrder.ag" #-} mempty- {-# LINE 2467 "dist/build/KWOrder" #-}+ {-# LINE 2517 "dist/build/KWOrder" #-} ) -- copy rule (chain) _lhsOrulenumber = ({-# LINE 41 "src-ag/KWOrder.ag" #-} _lhsIrulenumber- {-# LINE 2473 "dist/build/KWOrder" #-}+ {-# LINE 2523 "dist/build/KWOrder" #-} )+ ___node =+ (Syn_Productions _lhsOdepgraph _lhsOlocalSigMap _lhsOrefHoNts _lhsOrefNts _lhsOrulenumber) in ( _lhsOdepgraph,_lhsOlocalSigMap,_lhsOrefHoNts,_lhsOrefNts,_lhsOrulenumber)))) -- Rule -------------------------------------------------------- {-@@ -2540,13 +2592,13 @@ _lhsOrulenumber = ({-# LINE 47 "src-ag/KWOrder.ag" #-} _lhsIrulenumber + 1- {-# LINE 2544 "dist/build/KWOrder" #-}+ {-# LINE 2596 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 48, column 11) _rulename = ({-# LINE 48 "src-ag/KWOrder.ag" #-} maybe (identifier $ "rule" ++ show _lhsIrulenumber) id mbName_- {-# LINE 2550 "dist/build/KWOrder" #-}+ {-# LINE 2602 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 160, column 10) _lhsOerules =@@ -2559,42 +2611,44 @@ explicit_ pure_ mbError_- {-# LINE 2563 "dist/build/KWOrder" #-}+ {-# LINE 2615 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 224, column 11) _vertex = ({-# LINE 224 "src-ag/KWOrder.ag" #-} VRule _rulename- {-# LINE 2569 "dist/build/KWOrder" #-}+ {-# LINE 2621 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 225, column 11) _lhsOvertices = ({-# LINE 225 "src-ag/KWOrder.ag" #-} Set.insert _vertex $ _patternIvertices `Set.union` _rhsIvertices- {-# LINE 2575 "dist/build/KWOrder" #-}+ {-# LINE 2627 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 237, column 11) _edgesout = ({-# LINE 237 "src-ag/KWOrder.ag" #-} map ((,) _vertex ) (Set.toList _rhsIvertices)- {-# LINE 2581 "dist/build/KWOrder" #-}+ {-# LINE 2633 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 238, column 11) _edgesin = ({-# LINE 238 "src-ag/KWOrder.ag" #-} map (flip (,) _vertex ) (Set.toList _patternIvertices)- {-# LINE 2587 "dist/build/KWOrder" #-}+ {-# LINE 2639 "dist/build/KWOrder" #-} ) -- "src-ag/KWOrder.ag"(line 239, column 11) _lhsOedges = ({-# LINE 239 "src-ag/KWOrder.ag" #-} Set.fromList $ _edgesout ++ _edgesin- {-# LINE 2593 "dist/build/KWOrder" #-}+ {-# LINE 2645 "dist/build/KWOrder" #-} ) ( _patternIcopy,_patternIvertices) = pattern_ ( _rhsIcopy,_rhsIvertices) = rhs_+ ___node =+ (Syn_Rule _lhsOedges _lhsOerules _lhsOrulenumber _lhsOvertices) in ( _lhsOedges,_lhsOerules,_lhsOrulenumber,_lhsOvertices)))) -- Rules ------------------------------------------------------- {-@@ -2650,42 +2704,44 @@ _lhsOedges = ({-# LINE 233 "src-ag/KWOrder.ag" #-} _hdIedges `Set.union` _tlIedges- {-# LINE 2654 "dist/build/KWOrder" #-}+ {-# LINE 2708 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 157, column 25) _lhsOerules = ({-# LINE 157 "src-ag/KWOrder.ag" #-} _hdIerules : _tlIerules- {-# LINE 2660 "dist/build/KWOrder" #-}+ {-# LINE 2714 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 189, column 36) _lhsOvertices = ({-# LINE 189 "src-ag/KWOrder.ag" #-} _hdIvertices `Set.union` _tlIvertices- {-# LINE 2666 "dist/build/KWOrder" #-}+ {-# LINE 2720 "dist/build/KWOrder" #-} ) -- copy rule (up) _lhsOrulenumber = ({-# LINE 41 "src-ag/KWOrder.ag" #-} _tlIrulenumber- {-# LINE 2672 "dist/build/KWOrder" #-}+ {-# LINE 2726 "dist/build/KWOrder" #-} ) -- copy rule (down) _hdOrulenumber = ({-# LINE 41 "src-ag/KWOrder.ag" #-} _lhsIrulenumber- {-# LINE 2678 "dist/build/KWOrder" #-}+ {-# LINE 2732 "dist/build/KWOrder" #-} ) -- copy rule (chain) _tlOrulenumber = ({-# LINE 41 "src-ag/KWOrder.ag" #-} _hdIrulenumber- {-# LINE 2684 "dist/build/KWOrder" #-}+ {-# LINE 2738 "dist/build/KWOrder" #-} ) ( _hdIedges,_hdIerules,_hdIrulenumber,_hdIvertices) = hd_ _hdOrulenumber ( _tlIedges,_tlIerules,_tlIrulenumber,_tlIvertices) = tl_ _tlOrulenumber+ ___node =+ (Syn_Rules _lhsOedges _lhsOerules _lhsOrulenumber _lhsOvertices) in ( _lhsOedges,_lhsOerules,_lhsOrulenumber,_lhsOvertices)))) sem_Rules_Nil :: T_Rules sem_Rules_Nil =@@ -2698,26 +2754,28 @@ _lhsOedges = ({-# LINE 233 "src-ag/KWOrder.ag" #-} Set.empty- {-# LINE 2702 "dist/build/KWOrder" #-}+ {-# LINE 2758 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 157, column 25) _lhsOerules = ({-# LINE 157 "src-ag/KWOrder.ag" #-} []- {-# LINE 2708 "dist/build/KWOrder" #-}+ {-# LINE 2764 "dist/build/KWOrder" #-} ) -- use rule "src-ag/KWOrder.ag"(line 189, column 36) _lhsOvertices = ({-# LINE 189 "src-ag/KWOrder.ag" #-} Set.empty- {-# LINE 2714 "dist/build/KWOrder" #-}+ {-# LINE 2770 "dist/build/KWOrder" #-} ) -- copy rule (chain) _lhsOrulenumber = ({-# LINE 41 "src-ag/KWOrder.ag" #-} _lhsIrulenumber- {-# LINE 2720 "dist/build/KWOrder" #-}+ {-# LINE 2776 "dist/build/KWOrder" #-} )+ ___node =+ (Syn_Rules _lhsOedges _lhsOerules _lhsOrulenumber _lhsOvertices) in ( _lhsOedges,_lhsOerules,_lhsOrulenumber,_lhsOvertices)))) -- TypeSig ----------------------------------------------------- {-@@ -2753,8 +2811,10 @@ _lhsOlocalSigMap = ({-# LINE 389 "src-ag/KWOrder.ag" #-} Map.singleton name_ tp_- {-# LINE 2757 "dist/build/KWOrder" #-}+ {-# LINE 2815 "dist/build/KWOrder" #-} )+ ___node =+ (Syn_TypeSig _lhsOlocalSigMap) in ( _lhsOlocalSigMap))) -- TypeSigs ---------------------------------------------------- {-@@ -2793,12 +2853,14 @@ _lhsOlocalSigMap = ({-# LINE 385 "src-ag/KWOrder.ag" #-} _hdIlocalSigMap `Map.union` _tlIlocalSigMap- {-# LINE 2797 "dist/build/KWOrder" #-}+ {-# LINE 2857 "dist/build/KWOrder" #-} ) ( _hdIlocalSigMap) = hd_ ( _tlIlocalSigMap) = tl_+ ___node =+ (Syn_TypeSigs _lhsOlocalSigMap) in ( _lhsOlocalSigMap))) sem_TypeSigs_Nil :: T_TypeSigs sem_TypeSigs_Nil =@@ -2807,6 +2869,8 @@ _lhsOlocalSigMap = ({-# LINE 385 "src-ag/KWOrder.ag" #-} Map.empty- {-# LINE 2811 "dist/build/KWOrder" #-}+ {-# LINE 2873 "dist/build/KWOrder" #-} )+ ___node =+ (Syn_TypeSigs _lhsOlocalSigMap) in ( _lhsOlocalSigMap)))
src-derived/Order.hs view
@@ -426,5259 +426,5307 @@ _gathRules {-# LINE 428 "dist/build/Order" #-} )- in ( _lhsOattributes,_lhsOcollectChildrenInhs,_lhsOcollectChildrenSyns,_lhsOerrors,_lhsOfield,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinhs,_lhsOnts,_lhsOsinglevisits,_lhsOterminals))))--- Children -----------------------------------------------------{-- visit 0:- inherited attributes:- allfields : [(Identifier,Type,ChildKind)]- allnts : [Identifier]- attrs : [(Identifier,Identifier)]- con : Identifier- inh : Attributes- inhMap : Map Identifier Attributes- mergeMap : Map Identifier (Identifier,[Identifier])- nt : Identifier- o_unbox : Bool- syn : Attributes- synMap : Map Identifier Attributes- synthesized attributes:- attributes : [(Identifier,Attributes,Attributes)]- collectChildrenInhs : Map Identifier Attributes - collectChildrenSyns : Map Identifier Attributes - errors : Seq Error- fields : [(Identifier,Type,ChildKind)]- gathAltAttrs : [AltAttr]- gathRules : Seq CRule- inhs : Seq (Identifier,Attributes)- nts : Seq (Identifier,NontermIdent)- singlevisits : [CRule]- terminals : [Identifier]- alternatives:- alternative Cons:- child hd : Child - child tl : Children - alternative Nil:--}--- cata-sem_Children :: Children ->- T_Children-sem_Children list =- (Prelude.foldr sem_Children_Cons sem_Children_Nil (Prelude.map sem_Child list))--- semantic domain-newtype T_Children = T_Children (([(Identifier,Type,ChildKind)]) ->- ([Identifier]) ->- ([(Identifier,Identifier)]) ->- Identifier ->- Attributes ->- (Map Identifier Attributes) ->- (Map Identifier (Identifier,[Identifier])) ->- Identifier ->- Bool ->- Attributes ->- (Map Identifier Attributes) ->- ( ([(Identifier,Attributes,Attributes)]),(Map Identifier Attributes ),(Map Identifier Attributes ),(Seq Error),([(Identifier,Type,ChildKind)]),([AltAttr]),(Seq CRule),(Seq (Identifier,Attributes)),(Seq (Identifier,NontermIdent)),([CRule]),([Identifier])))-data Inh_Children = Inh_Children {allfields_Inh_Children :: !(([(Identifier,Type,ChildKind)])),allnts_Inh_Children :: !(([Identifier])),attrs_Inh_Children :: !(([(Identifier,Identifier)])),con_Inh_Children :: !(Identifier),inh_Inh_Children :: !(Attributes),inhMap_Inh_Children :: !((Map Identifier Attributes)),mergeMap_Inh_Children :: !((Map Identifier (Identifier,[Identifier]))),nt_Inh_Children :: !(Identifier),o_unbox_Inh_Children :: !(Bool),syn_Inh_Children :: !(Attributes),synMap_Inh_Children :: !((Map Identifier Attributes))}-data Syn_Children = Syn_Children {attributes_Syn_Children :: !(([(Identifier,Attributes,Attributes)])),collectChildrenInhs_Syn_Children :: !((Map Identifier Attributes )),collectChildrenSyns_Syn_Children :: !((Map Identifier Attributes )),errors_Syn_Children :: !((Seq Error)),fields_Syn_Children :: !(([(Identifier,Type,ChildKind)])),gathAltAttrs_Syn_Children :: !(([AltAttr])),gathRules_Syn_Children :: !((Seq CRule)),inhs_Syn_Children :: !((Seq (Identifier,Attributes))),nts_Syn_Children :: !((Seq (Identifier,NontermIdent))),singlevisits_Syn_Children :: !(([CRule])),terminals_Syn_Children :: !(([Identifier]))}-wrap_Children :: T_Children ->- Inh_Children ->- Syn_Children-wrap_Children (T_Children sem) (Inh_Children _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsIinh _lhsIinhMap _lhsImergeMap _lhsInt _lhsIo_unbox _lhsIsyn _lhsIsynMap) =- (let ( _lhsOattributes,_lhsOcollectChildrenInhs,_lhsOcollectChildrenSyns,_lhsOerrors,_lhsOfields,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinhs,_lhsOnts,_lhsOsinglevisits,_lhsOterminals) = sem _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsIinh _lhsIinhMap _lhsImergeMap _lhsInt _lhsIo_unbox _lhsIsyn _lhsIsynMap- in (Syn_Children _lhsOattributes _lhsOcollectChildrenInhs _lhsOcollectChildrenSyns _lhsOerrors _lhsOfields _lhsOgathAltAttrs _lhsOgathRules _lhsOinhs _lhsOnts _lhsOsinglevisits _lhsOterminals))-sem_Children_Cons :: T_Child ->- T_Children ->- T_Children-sem_Children_Cons (T_Child hd_) (T_Children tl_) =- (T_Children (\ _lhsIallfields- _lhsIallnts- _lhsIattrs- _lhsIcon- _lhsIinh- _lhsIinhMap- _lhsImergeMap- _lhsInt- _lhsIo_unbox- _lhsIsyn- _lhsIsynMap ->- (let _lhsOfields :: ([(Identifier,Type,ChildKind)])- _lhsOattributes :: ([(Identifier,Attributes,Attributes)])- _lhsOcollectChildrenInhs :: (Map Identifier Attributes )- _lhsOcollectChildrenSyns :: (Map Identifier Attributes )- _lhsOerrors :: (Seq Error)- _lhsOgathAltAttrs :: ([AltAttr])- _lhsOgathRules :: (Seq CRule)- _lhsOinhs :: (Seq (Identifier,Attributes))- _lhsOnts :: (Seq (Identifier,NontermIdent))- _lhsOsinglevisits :: ([CRule])- _lhsOterminals :: ([Identifier])- _hdOallfields :: ([(Identifier,Type,ChildKind)])- _hdOallnts :: ([Identifier])- _hdOattrs :: ([(Identifier,Identifier)])- _hdOcon :: Identifier- _hdOinh :: Attributes- _hdOinhMap :: (Map Identifier Attributes)- _hdOmergeMap :: (Map Identifier (Identifier,[Identifier]))- _hdOnt :: Identifier- _hdOo_unbox :: Bool- _hdOsyn :: Attributes- _hdOsynMap :: (Map Identifier Attributes)- _tlOallfields :: ([(Identifier,Type,ChildKind)])- _tlOallnts :: ([Identifier])- _tlOattrs :: ([(Identifier,Identifier)])- _tlOcon :: Identifier- _tlOinh :: Attributes- _tlOinhMap :: (Map Identifier Attributes)- _tlOmergeMap :: (Map Identifier (Identifier,[Identifier]))- _tlOnt :: Identifier- _tlOo_unbox :: Bool- _tlOsyn :: Attributes- _tlOsynMap :: (Map Identifier Attributes)- _hdIattributes :: ([(Identifier,Attributes,Attributes)])- _hdIcollectChildrenInhs :: (Map Identifier Attributes )- _hdIcollectChildrenSyns :: (Map Identifier Attributes )- _hdIerrors :: (Seq Error)- _hdIfield :: ((Identifier,Type,ChildKind))- _hdIgathAltAttrs :: ([AltAttr])- _hdIgathRules :: (Seq CRule)- _hdIinhs :: (Seq (Identifier,Attributes))- _hdInts :: (Seq (Identifier,NontermIdent))- _hdIsinglevisits :: ([CRule])- _hdIterminals :: ([Identifier])- _tlIattributes :: ([(Identifier,Attributes,Attributes)])- _tlIcollectChildrenInhs :: (Map Identifier Attributes )- _tlIcollectChildrenSyns :: (Map Identifier Attributes )- _tlIerrors :: (Seq Error)- _tlIfields :: ([(Identifier,Type,ChildKind)])- _tlIgathAltAttrs :: ([AltAttr])- _tlIgathRules :: (Seq CRule)- _tlIinhs :: (Seq (Identifier,Attributes))- _tlInts :: (Seq (Identifier,NontermIdent))- _tlIsinglevisits :: ([CRule])- _tlIterminals :: ([Identifier])- -- "src-ag/Order.ag"(line 675, column 11)- _lhsOfields =- ({-# LINE 675 "src-ag/Order.ag" #-}- _hdIfield : _tlIfields- {-# LINE 564 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 666, column 32)- _lhsOattributes =- ({-# LINE 666 "src-ag/Order.ag" #-}- _hdIattributes ++ _tlIattributes- {-# LINE 570 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 343, column 68)- _lhsOcollectChildrenInhs =- ({-# LINE 343 "src-ag/Order.ag" #-}- _hdIcollectChildrenInhs `Map.union` _tlIcollectChildrenInhs- {-# LINE 576 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 343, column 68)- _lhsOcollectChildrenSyns =- ({-# LINE 343 "src-ag/Order.ag" #-}- _hdIcollectChildrenSyns `Map.union` _tlIcollectChildrenSyns- {-# LINE 582 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 85, column 70)- _lhsOerrors =- ({-# LINE 85 "src-ag/Order.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 588 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 171, column 68)- _lhsOgathAltAttrs =- ({-# LINE 171 "src-ag/Order.ag" #-}- _hdIgathAltAttrs ++ _tlIgathAltAttrs- {-# LINE 594 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 207, column 23)- _lhsOgathRules =- ({-# LINE 207 "src-ag/Order.ag" #-}- _hdIgathRules Seq.>< _tlIgathRules- {-# LINE 600 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 194, column 20)- _lhsOinhs =- ({-# LINE 194 "src-ag/Order.ag" #-}- _hdIinhs Seq.>< _tlIinhs- {-# LINE 606 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 193, column 19)- _lhsOnts =- ({-# LINE 193 "src-ag/Order.ag" #-}- _hdInts Seq.>< _tlInts- {-# LINE 612 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 612, column 40)- _lhsOsinglevisits =- ({-# LINE 612 "src-ag/Order.ag" #-}- _hdIsinglevisits ++ _tlIsinglevisits- {-# LINE 618 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 637, column 38)- _lhsOterminals =- ({-# LINE 637 "src-ag/Order.ag" #-}- _hdIterminals ++ _tlIterminals- {-# LINE 624 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOallfields =- ({-# LINE 655 "src-ag/Order.ag" #-}- _lhsIallfields- {-# LINE 630 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOallnts =- ({-# LINE 648 "src-ag/Order.ag" #-}- _lhsIallnts- {-# LINE 636 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOattrs =- ({-# LINE 655 "src-ag/Order.ag" #-}- _lhsIattrs- {-# LINE 642 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOcon =- ({-# LINE 91 "src-ag/Order.ag" #-}- _lhsIcon- {-# LINE 648 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOinh =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIinh- {-# LINE 654 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOinhMap =- ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}- _lhsIinhMap- {-# LINE 660 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOmergeMap =- ({-# LINE 361 "src-ag/Order.ag" #-}- _lhsImergeMap- {-# LINE 666 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOnt =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsInt- {-# LINE 672 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_unbox =- ({-# LINE 120 "src-ag/Order.ag" #-}- _lhsIo_unbox- {-# LINE 678 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOsyn =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIsyn- {-# LINE 684 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOsynMap =- ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}- _lhsIsynMap- {-# LINE 690 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOallfields =- ({-# LINE 655 "src-ag/Order.ag" #-}- _lhsIallfields- {-# LINE 696 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOallnts =- ({-# LINE 648 "src-ag/Order.ag" #-}- _lhsIallnts- {-# LINE 702 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOattrs =- ({-# LINE 655 "src-ag/Order.ag" #-}- _lhsIattrs- {-# LINE 708 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOcon =- ({-# LINE 91 "src-ag/Order.ag" #-}- _lhsIcon- {-# LINE 714 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOinh =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIinh- {-# LINE 720 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOinhMap =- ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}- _lhsIinhMap- {-# LINE 726 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOmergeMap =- ({-# LINE 361 "src-ag/Order.ag" #-}- _lhsImergeMap- {-# LINE 732 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOnt =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsInt- {-# LINE 738 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_unbox =- ({-# LINE 120 "src-ag/Order.ag" #-}- _lhsIo_unbox- {-# LINE 744 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOsyn =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIsyn- {-# LINE 750 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOsynMap =- ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}- _lhsIsynMap- {-# LINE 756 "dist/build/Order" #-}- )- ( _hdIattributes,_hdIcollectChildrenInhs,_hdIcollectChildrenSyns,_hdIerrors,_hdIfield,_hdIgathAltAttrs,_hdIgathRules,_hdIinhs,_hdInts,_hdIsinglevisits,_hdIterminals) =- hd_ _hdOallfields _hdOallnts _hdOattrs _hdOcon _hdOinh _hdOinhMap _hdOmergeMap _hdOnt _hdOo_unbox _hdOsyn _hdOsynMap- ( _tlIattributes,_tlIcollectChildrenInhs,_tlIcollectChildrenSyns,_tlIerrors,_tlIfields,_tlIgathAltAttrs,_tlIgathRules,_tlIinhs,_tlInts,_tlIsinglevisits,_tlIterminals) =- tl_ _tlOallfields _tlOallnts _tlOattrs _tlOcon _tlOinh _tlOinhMap _tlOmergeMap _tlOnt _tlOo_unbox _tlOsyn _tlOsynMap- in ( _lhsOattributes,_lhsOcollectChildrenInhs,_lhsOcollectChildrenSyns,_lhsOerrors,_lhsOfields,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinhs,_lhsOnts,_lhsOsinglevisits,_lhsOterminals))))-sem_Children_Nil :: T_Children-sem_Children_Nil =- (T_Children (\ _lhsIallfields- _lhsIallnts- _lhsIattrs- _lhsIcon- _lhsIinh- _lhsIinhMap- _lhsImergeMap- _lhsInt- _lhsIo_unbox- _lhsIsyn- _lhsIsynMap ->- (let _lhsOfields :: ([(Identifier,Type,ChildKind)])- _lhsOattributes :: ([(Identifier,Attributes,Attributes)])- _lhsOcollectChildrenInhs :: (Map Identifier Attributes )- _lhsOcollectChildrenSyns :: (Map Identifier Attributes )- _lhsOerrors :: (Seq Error)- _lhsOgathAltAttrs :: ([AltAttr])- _lhsOgathRules :: (Seq CRule)- _lhsOinhs :: (Seq (Identifier,Attributes))- _lhsOnts :: (Seq (Identifier,NontermIdent))- _lhsOsinglevisits :: ([CRule])- _lhsOterminals :: ([Identifier])- -- "src-ag/Order.ag"(line 676, column 11)- _lhsOfields =- ({-# LINE 676 "src-ag/Order.ag" #-}- []- {-# LINE 791 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 666, column 32)- _lhsOattributes =- ({-# LINE 666 "src-ag/Order.ag" #-}- []- {-# LINE 797 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 343, column 68)- _lhsOcollectChildrenInhs =- ({-# LINE 343 "src-ag/Order.ag" #-}- Map.empty- {-# LINE 803 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 343, column 68)- _lhsOcollectChildrenSyns =- ({-# LINE 343 "src-ag/Order.ag" #-}- Map.empty- {-# LINE 809 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 85, column 70)- _lhsOerrors =- ({-# LINE 85 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 815 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 171, column 68)- _lhsOgathAltAttrs =- ({-# LINE 171 "src-ag/Order.ag" #-}- []- {-# LINE 821 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 207, column 23)- _lhsOgathRules =- ({-# LINE 207 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 827 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 194, column 20)- _lhsOinhs =- ({-# LINE 194 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 833 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 193, column 19)- _lhsOnts =- ({-# LINE 193 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 839 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 612, column 40)- _lhsOsinglevisits =- ({-# LINE 612 "src-ag/Order.ag" #-}- []- {-# LINE 845 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 637, column 38)- _lhsOterminals =- ({-# LINE 637 "src-ag/Order.ag" #-}- []- {-# LINE 851 "dist/build/Order" #-}- )- in ( _lhsOattributes,_lhsOcollectChildrenInhs,_lhsOcollectChildrenSyns,_lhsOerrors,_lhsOfields,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinhs,_lhsOnts,_lhsOsinglevisits,_lhsOterminals))))--- Expression ---------------------------------------------------{-- visit 0:- inherited attributes:- allfields : [(Identifier,Type,ChildKind)]- allnts : [Identifier]- attrs : [(Identifier,Identifier)]- con : Identifier- mergeMap : Map Identifier (Identifier,[Identifier])- nt : Identifier- synthesized attributes:- allRhsVars : Set (Identifier,Identifier)- copy : Expression - errors : Seq Error- textLines : [String]- usedAttrs : [(Identifier,Identifier)]- usedFields : [Identifier]- usedLocals : [Identifier]- alternatives:- alternative Expression:- child pos : {Pos}- child tks : {[HsToken]}- visit 0:- local textLines : _- local usedAttrs : _- local usedLocals : _- local usedFields : _- local copy : _--}--- cata-sem_Expression :: Expression ->- T_Expression-sem_Expression (Expression _pos _tks) =- (sem_Expression_Expression _pos _tks)--- semantic domain-newtype T_Expression = T_Expression (([(Identifier,Type,ChildKind)]) ->- ([Identifier]) ->- ([(Identifier,Identifier)]) ->- Identifier ->- (Map Identifier (Identifier,[Identifier])) ->- Identifier ->- ( (Set (Identifier,Identifier)),Expression,(Seq Error),([String]),([(Identifier,Identifier)]),([Identifier]),([Identifier])))-data Inh_Expression = Inh_Expression {allfields_Inh_Expression :: !(([(Identifier,Type,ChildKind)])),allnts_Inh_Expression :: !(([Identifier])),attrs_Inh_Expression :: !(([(Identifier,Identifier)])),con_Inh_Expression :: !(Identifier),mergeMap_Inh_Expression :: !((Map Identifier (Identifier,[Identifier]))),nt_Inh_Expression :: !(Identifier)}-data Syn_Expression = Syn_Expression {allRhsVars_Syn_Expression :: !((Set (Identifier,Identifier))),copy_Syn_Expression :: !(Expression),errors_Syn_Expression :: !((Seq Error)),textLines_Syn_Expression :: !(([String])),usedAttrs_Syn_Expression :: !(([(Identifier,Identifier)])),usedFields_Syn_Expression :: !(([Identifier])),usedLocals_Syn_Expression :: !(([Identifier]))}-wrap_Expression :: T_Expression ->- Inh_Expression ->- Syn_Expression-wrap_Expression (T_Expression sem) (Inh_Expression _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsImergeMap _lhsInt) =- (let ( _lhsOallRhsVars,_lhsOcopy,_lhsOerrors,_lhsOtextLines,_lhsOusedAttrs,_lhsOusedFields,_lhsOusedLocals) = sem _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsImergeMap _lhsInt- in (Syn_Expression _lhsOallRhsVars _lhsOcopy _lhsOerrors _lhsOtextLines _lhsOusedAttrs _lhsOusedFields _lhsOusedLocals))-sem_Expression_Expression :: Pos ->- ([HsToken]) ->- T_Expression-sem_Expression_Expression pos_ tks_ =- (T_Expression (\ _lhsIallfields- _lhsIallnts- _lhsIattrs- _lhsIcon- _lhsImergeMap- _lhsInt ->- (let _lhsOerrors :: (Seq Error)- _lhsOallRhsVars :: (Set (Identifier,Identifier))- _lhsOcopy :: Expression- _lhsOtextLines :: ([String])- _lhsOusedAttrs :: ([(Identifier,Identifier)])- _lhsOusedFields :: ([Identifier])- _lhsOusedLocals :: ([Identifier])- -- "src-ag/Order.ag"(line 465, column 21)- (_textLines,_usedAttrs,_usedLocals,_usedFields) =- ({-# LINE 465 "src-ag/Order.ag" #-}- let mergedChildren = [ x | (_,xs) <- Map.elems _lhsImergeMap, x <- xs ]- attrsIn = filter (\(fld,_) -> not (fld `elem` mergedChildren)) _lhsIattrs- inherited = Inh_HsTokensRoot- { attrs_Inh_HsTokensRoot = attrsIn- , con_Inh_HsTokensRoot = _lhsIcon- , allfields_Inh_HsTokensRoot = _lhsIallfields- , allnts_Inh_HsTokensRoot = _lhsIallnts- , nt_Inh_HsTokensRoot = _lhsInt- }- synthesized = wrap_HsTokensRoot (sem_HsTokensRoot (HsTokensRoot tks_)) inherited- in case synthesized of- Syn_HsTokensRoot- { textLines_Syn_HsTokensRoot = textLines- , usedAttrs_Syn_HsTokensRoot = usedAttrs- , usedLocals_Syn_HsTokensRoot = usedLocals- , usedFields_Syn_HsTokensRoot = usedFields- } -> let extraAttrs = [ (src,attr)- | (fld,attr) <- usedAttrs, let mbMerged = Map.lookup fld _lhsImergeMap, isJust mbMerged- , let (Just (_, srcs)) = mbMerged, src <- srcs ]- usedAttrs' = usedAttrs ++ extraAttrs- in (textLines,usedAttrs',usedLocals,usedFields)- {-# LINE 945 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 488, column 17)- _lhsOerrors =- ({-# LINE 488 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 951 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 489, column 17)- _lhsOallRhsVars =- ({-# LINE 489 "src-ag/Order.ag" #-}- Set.fromList _usedAttrs- `Set.union`- Set.fromList [ (_LOC, l) | l <- _usedLocals ]- `Set.union`- Set.fromList [ (_FIELD, fld) | fld <- _usedFields ]- {-# LINE 961 "dist/build/Order" #-}- )- -- self rule- _copy =- ({-# LINE 456 "src-ag/Order.ag" #-}- Expression pos_ tks_- {-# LINE 967 "dist/build/Order" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 456 "src-ag/Order.ag" #-}- _copy- {-# LINE 973 "dist/build/Order" #-}- )- -- copy rule (from local)- _lhsOtextLines =- ({-# LINE 455 "src-ag/Order.ag" #-}- _textLines- {-# LINE 979 "dist/build/Order" #-}- )- -- copy rule (from local)- _lhsOusedAttrs =- ({-# LINE 453 "src-ag/Order.ag" #-}- _usedAttrs- {-# LINE 985 "dist/build/Order" #-}- )- -- copy rule (from local)- _lhsOusedFields =- ({-# LINE 454 "src-ag/Order.ag" #-}- _usedFields- {-# LINE 991 "dist/build/Order" #-}- )- -- copy rule (from local)- _lhsOusedLocals =- ({-# LINE 452 "src-ag/Order.ag" #-}- _usedLocals- {-# LINE 997 "dist/build/Order" #-}- )- in ( _lhsOallRhsVars,_lhsOcopy,_lhsOerrors,_lhsOtextLines,_lhsOusedAttrs,_lhsOusedFields,_lhsOusedLocals))))--- Grammar ------------------------------------------------------{-- visit 0:- inherited attribute:- options : Options- synthesized attributes:- errors : Seq Error- nAutoRules : Int- nExplicitRules : Int- output : CGrammar- alternatives:- alternative Grammar:- child typeSyns : {TypeSyns}- child useMap : {UseMap}- child derivings : {Derivings}- child wrappers : {Set NontermIdent}- child nonts : Nonterminals - child pragmas : {PragmaMap}- child manualAttrOrderMap : {AttrOrderMap}- child paramMap : {ParamMap}- child contextMap : {ContextMap}- child quantMap : {QuantMap}- child uniqueMap : {UniqueMap}- child augmentsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))}- child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))}- child mergeMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression)))}- visit 0:- local o_dovisit : _- local ruleTable : _- local attrTable : _- local attrVertex : _- local tdpToTds : _- local tdsToTdp : _- local directDep : _- local instDep : _- local aroundDep : _- local mergeDep : _- local info : _- local cInterfaceMap : _- local cVisitsMap : _- local cyclesErrors : _- local aroundMap : _- local mergeMap : _--}--- cata-sem_Grammar :: Grammar ->- T_Grammar-sem_Grammar (Grammar _typeSyns _useMap _derivings _wrappers _nonts _pragmas _manualAttrOrderMap _paramMap _contextMap _quantMap _uniqueMap _augmentsMap _aroundsMap _mergeMap) =- (sem_Grammar_Grammar _typeSyns _useMap _derivings _wrappers (sem_Nonterminals _nonts) _pragmas _manualAttrOrderMap _paramMap _contextMap _quantMap _uniqueMap _augmentsMap _aroundsMap _mergeMap)--- semantic domain-newtype T_Grammar = T_Grammar (Options ->- ( (Seq Error),Int,Int,CGrammar))-data Inh_Grammar = Inh_Grammar {options_Inh_Grammar :: !(Options)}-data Syn_Grammar = Syn_Grammar {errors_Syn_Grammar :: !((Seq Error)),nAutoRules_Syn_Grammar :: !(Int),nExplicitRules_Syn_Grammar :: !(Int),output_Syn_Grammar :: !(CGrammar)}-wrap_Grammar :: T_Grammar ->- Inh_Grammar ->- Syn_Grammar-wrap_Grammar (T_Grammar sem) (Inh_Grammar _lhsIoptions) =- (let ( _lhsOerrors,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOoutput) = sem _lhsIoptions- in (Syn_Grammar _lhsOerrors _lhsOnAutoRules _lhsOnExplicitRules _lhsOoutput))-sem_Grammar_Grammar :: TypeSyns ->- UseMap ->- Derivings ->- (Set NontermIdent) ->- T_Nonterminals ->- PragmaMap ->- AttrOrderMap ->- ParamMap ->- ContextMap ->- QuantMap ->- UniqueMap ->- (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) ->- (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) ->- (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression)))) ->- T_Grammar-sem_Grammar_Grammar typeSyns_ useMap_ derivings_ wrappers_ (T_Nonterminals nonts_) pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ quantMap_ uniqueMap_ augmentsMap_ aroundsMap_ mergeMap_ =- (T_Grammar (\ _lhsIoptions ->- (let _nontsOo_cata :: Bool- _nontsOo_data :: Bool- _nontsOo_sig :: Bool- _nontsOo_sem :: Bool- _nontsOo_rename :: Bool- _nontsOo_newtypes :: Bool- _nontsOo_wantvisit :: Bool- _nontsOo_unbox :: Bool- _nontsOo_case :: Bool- _nontsOprefix :: String- _nontsOvcount :: Int- _nontsOmanualAttrDepMap :: AttrOrderMap- _nontsOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))- _nontsOacount :: Int- _lhsOerrors :: (Seq Error)- _lhsOoutput :: CGrammar- _nontsOallnts :: ([Identifier])- _nontsOinhMap :: (Map Identifier Attributes)- _nontsOsynMap :: (Map Identifier Attributes)- _lhsOnAutoRules :: Int- _lhsOnExplicitRules :: Int- _nontsOcInterfaceMap :: CInterfaceMap- _nontsOcVisitsMap :: CVisitsMap- _nontsOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))))- _nontsOo_dovisit :: Bool- _nontsIacount :: Int- _nontsIadditionalDep :: (Seq Edge)- _nontsIaranges :: (Seq (Int,Int,Int))- _nontsIaroundDep :: (Seq Edge)- _nontsIcNonterminals :: CNonterminals- _nontsIdirectDep :: (Seq Edge)- _nontsIerrors :: (Seq Error)- _nontsIinhMap' :: (Map Identifier Attributes)- _nontsIinstDep :: (Seq Edge)- _nontsImergeDep :: (Seq Edge)- _nontsInAutoRules :: Int- _nontsInExplicitRules :: Int- _nontsInonts :: ([(NontermIdent,[ConstructorIdent])])- _nontsIntattrs :: (Seq (Vertex,NTAttr))- _nontsIrules :: (Seq (Vertex,CRule))- _nontsIsynMap' :: (Map Identifier Attributes)- _nontsIvcount :: Int- -- "src-ag/Order.ag"(line 124, column 17)- _o_dovisit =- ({-# LINE 124 "src-ag/Order.ag" #-}- visit _lhsIoptions && null _cyclesErrors- {-# LINE 1123 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 125, column 17)- _nontsOo_cata =- ({-# LINE 125 "src-ag/Order.ag" #-}- folds _lhsIoptions- {-# LINE 1129 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 125, column 17)- _nontsOo_data =- ({-# LINE 126 "src-ag/Order.ag" #-}- dataTypes _lhsIoptions- {-# LINE 1135 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 125, column 17)- _nontsOo_sig =- ({-# LINE 127 "src-ag/Order.ag" #-}- typeSigs _lhsIoptions- {-# LINE 1141 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 125, column 17)- _nontsOo_sem =- ({-# LINE 128 "src-ag/Order.ag" #-}- semfuns _lhsIoptions- {-# LINE 1147 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 125, column 17)- _nontsOo_rename =- ({-# LINE 129 "src-ag/Order.ag" #-}- rename _lhsIoptions- {-# LINE 1153 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 125, column 17)- _nontsOo_newtypes =- ({-# LINE 130 "src-ag/Order.ag" #-}- newtypes _lhsIoptions- {-# LINE 1159 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 125, column 17)- _nontsOo_wantvisit =- ({-# LINE 131 "src-ag/Order.ag" #-}- visit _lhsIoptions- {-# LINE 1165 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 125, column 17)- _nontsOo_unbox =- ({-# LINE 132 "src-ag/Order.ag" #-}- unbox _lhsIoptions- {-# LINE 1171 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 125, column 17)- _nontsOo_case =- ({-# LINE 133 "src-ag/Order.ag" #-}- cases _lhsIoptions- {-# LINE 1177 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 125, column 17)- _nontsOprefix =- ({-# LINE 134 "src-ag/Order.ag" #-}- prefix _lhsIoptions- {-# LINE 1183 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 260, column 15)- _nontsOvcount =- ({-# LINE 260 "src-ag/Order.ag" #-}- 0- {-# LINE 1189 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 286, column 7)- _nontsOmanualAttrDepMap =- ({-# LINE 286 "src-ag/Order.ag" #-}- manualAttrOrderMap_- {-# LINE 1195 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 415, column 14)- _nontsOaroundMap =- ({-# LINE 415 "src-ag/Order.ag" #-}- aroundsMap_- {-# LINE 1201 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 504, column 13)- _nontsOacount =- ({-# LINE 504 "src-ag/Order.ag" #-}- 0- {-# LINE 1207 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 542, column 13)- _ruleTable =- ({-# LINE 542 "src-ag/Order.ag" #-}- Array.array (0,_nontsIvcount-1) (toList _nontsIrules)- {-# LINE 1213 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 543, column 13)- _attrTable =- ({-# LINE 543 "src-ag/Order.ag" #-}- Array.array (0,_nontsIacount-1) (toList _nontsIntattrs)- {-# LINE 1219 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 544, column 13)- _attrVertex =- ({-# LINE 544 "src-ag/Order.ag" #-}- Map.fromList (map swap (toList _nontsIntattrs))- {-# LINE 1225 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 545, column 13)- _tdpToTds =- ({-# LINE 545 "src-ag/Order.ag" #-}- [ (s, maybe (-1) (\v -> findWithErr1 "Grammar.tdpToTds" v _attrVertex) (ntattr cr))- | (s,cr) <- toList _nontsIrules]- {-# LINE 1232 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 547, column 13)- _tdsToTdp =- ({-# LINE 547 "src-ag/Order.ag" #-}- let eq (_,v) (_,v') = v == v'- conv ((s,v):svs) | v == -1 = Nothing- | otherwise = Just (v,s:map fst svs)- in mapMaybe conv (eqClasses eq _tdpToTds)- {-# LINE 1241 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 551, column 13)- _directDep =- ({-# LINE 551 "src-ag/Order.ag" #-}- toList (_nontsIdirectDep Seq.>< _nontsIadditionalDep)- {-# LINE 1247 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 552, column 13)- _instDep =- ({-# LINE 552 "src-ag/Order.ag" #-}- toList _nontsIinstDep- {-# LINE 1253 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 553, column 13)- _aroundDep =- ({-# LINE 553 "src-ag/Order.ag" #-}- toList _nontsIaroundDep- {-# LINE 1259 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 554, column 13)- _mergeDep =- ({-# LINE 554 "src-ag/Order.ag" #-}- toList _nontsImergeDep- {-# LINE 1265 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 555, column 13)- _info =- ({-# LINE 555 "src-ag/Order.ag" #-}- let def [] = -1- def (v:vs) = v- in Info { tdsToTdp = Array.array (0,_nontsIacount-1) _tdsToTdp- , tdpToTds = Array.array (0,_nontsIvcount-1) _tdpToTds- , attrTable = _attrTable- , ruleTable = _ruleTable- , lmh = toList _nontsIaranges- , nonts = _nontsInonts- , wraps = wrappers_- }- {-# LINE 1280 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 566, column 17)- (_cInterfaceMap,_cVisitsMap,_cyclesErrors) =- ({-# LINE 566 "src-ag/Order.ag" #-}- case computeSequential _info _directDep (_instDep ++ _aroundDep ++ _mergeDep ) of- CycleFree cim cvm -> ( cim- , cvm- , []- )- LocalCycle errs -> ( error "No interfaces for AG with local cycles"- , error "No visit sub-sequences for AG with local cycles"- , map (localCycleErr _ruleTable (visit _lhsIoptions)) errs- )- InstCycle errs -> ( error "No interfaces for AG with cycles through insts"- , error "No visit sub-sequences for AG with cycles through insts"- , map (instCycleErr _ruleTable (visit _lhsIoptions)) errs- )- DirectCycle errs -> ( error "No interfaces for AG with direct cycles"- , error "No visit sub-sequences for AG with direct cycles"- , directCycleErrs _attrTable _ruleTable (visit _lhsIoptions) errs- )- InducedCycle cim errs -> ( cim- , error "No visit sub-sequences for AG with induced cycles"- , inducedCycleErrs _attrTable _ruleTable cim errs- )- {-# LINE 1306 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 588, column 13)- _lhsOerrors =- ({-# LINE 588 "src-ag/Order.ag" #-}- (if withCycle _lhsIoptions then Seq.fromList _cyclesErrors else Seq.empty)- Seq.>< _nontsIerrors- {-# LINE 1313 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 620, column 15)- _lhsOoutput =- ({-# LINE 620 "src-ag/Order.ag" #-}- CGrammar typeSyns_ derivings_ wrappers_ _nontsIcNonterminals pragmas_ paramMap_ contextMap_ quantMap_ _aroundMap _mergeMap _o_dovisit- {-# LINE 1319 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 633, column 14)- _aroundMap =- ({-# LINE 633 "src-ag/Order.ag" #-}- Map.map (Map.map Map.keysSet) aroundsMap_- {-# LINE 1325 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 634, column 14)- _mergeMap =- ({-# LINE 634 "src-ag/Order.ag" #-}- Map.map (Map.map (Map.map (\(nt,srcs,_) -> (nt,srcs)))) mergeMap_- {-# LINE 1331 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 651, column 13)- _nontsOallnts =- ({-# LINE 651 "src-ag/Order.ag" #-}- map fst (_nontsInonts)- {-# LINE 1337 "dist/build/Order" #-}- )- -- "src-ag/DistChildAttr.ag"(line 15, column 13)- _nontsOinhMap =- ({-# LINE 15 "src-ag/DistChildAttr.ag" #-}- _nontsIinhMap'- {-# LINE 1343 "dist/build/Order" #-}- )- -- "src-ag/DistChildAttr.ag"(line 16, column 13)- _nontsOsynMap =- ({-# LINE 16 "src-ag/DistChildAttr.ag" #-}- _nontsIsynMap'- {-# LINE 1349 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 62, column 105)- _lhsOnAutoRules =- ({-# LINE 62 "src-ag/Order.ag" #-}- _nontsInAutoRules- {-# LINE 1355 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 62, column 105)- _lhsOnExplicitRules =- ({-# LINE 62 "src-ag/Order.ag" #-}- _nontsInExplicitRules- {-# LINE 1361 "dist/build/Order" #-}- )- -- copy rule (from local)- _nontsOcInterfaceMap =- ({-# LINE 595 "src-ag/Order.ag" #-}- _cInterfaceMap- {-# LINE 1367 "dist/build/Order" #-}- )- -- copy rule (from local)- _nontsOcVisitsMap =- ({-# LINE 602 "src-ag/Order.ag" #-}- _cVisitsMap- {-# LINE 1373 "dist/build/Order" #-}- )- -- copy rule (from local)- _nontsOmergeMap =- ({-# LINE 353 "src-ag/Order.ag" #-}- _mergeMap- {-# LINE 1379 "dist/build/Order" #-}- )- -- copy rule (from local)- _nontsOo_dovisit =- ({-# LINE 117 "src-ag/Order.ag" #-}- _o_dovisit- {-# LINE 1385 "dist/build/Order" #-}- )- ( _nontsIacount,_nontsIadditionalDep,_nontsIaranges,_nontsIaroundDep,_nontsIcNonterminals,_nontsIdirectDep,_nontsIerrors,_nontsIinhMap',_nontsIinstDep,_nontsImergeDep,_nontsInAutoRules,_nontsInExplicitRules,_nontsInonts,_nontsIntattrs,_nontsIrules,_nontsIsynMap',_nontsIvcount) =- nonts_ _nontsOacount _nontsOallnts _nontsOaroundMap _nontsOcInterfaceMap _nontsOcVisitsMap _nontsOinhMap _nontsOmanualAttrDepMap _nontsOmergeMap _nontsOo_case _nontsOo_cata _nontsOo_data _nontsOo_dovisit _nontsOo_newtypes _nontsOo_rename _nontsOo_sem _nontsOo_sig _nontsOo_unbox _nontsOo_wantvisit _nontsOprefix _nontsOsynMap _nontsOvcount- in ( _lhsOerrors,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOoutput))))--- Nonterminal --------------------------------------------------{-- visit 0:- inherited attributes:- allnts : [Identifier]- aroundMap : Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))- cInterfaceMap : CInterfaceMap- cVisitsMap : CVisitsMap- inhMap : Map Identifier Attributes- manualAttrDepMap : AttrOrderMap- mergeMap : Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))- o_case : Bool- o_cata : Bool- o_data : Bool- o_dovisit : Bool- o_newtypes : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_unbox : Bool- o_wantvisit : Bool- prefix : String- synMap : Map Identifier Attributes- chained attributes:- acount : Int- vcount : Int- synthesized attributes:- additionalDep : Seq Edge- aranges : Seq (Int,Int,Int)- aroundDep : Seq Edge- cNonterminal : CNonterminal- directDep : Seq Edge- errors : Seq Error- inhMap' : Map Identifier Attributes- instDep : Seq Edge- mergeDep : Seq Edge- nAutoRules : Int- nExplicitRules : Int- nonts : [(NontermIdent,[ConstructorIdent])]- ntattrs : Seq (Vertex,NTAttr)- rules : Seq (Vertex,CRule)- synMap' : Map Identifier Attributes- alternatives:- alternative Nonterminal:- child nt : {NontermIdent}- child params : {[Identifier]}- child inh : {Attributes}- child syn : {Attributes}- child prods : Productions - visit 0:- local mergeMap : _- local aroundMap : _- local ntattrs : _- local cInter : _--}--- cata-sem_Nonterminal :: Nonterminal ->- T_Nonterminal-sem_Nonterminal (Nonterminal _nt _params _inh _syn _prods) =- (sem_Nonterminal_Nonterminal _nt _params _inh _syn (sem_Productions _prods))--- semantic domain-newtype T_Nonterminal = T_Nonterminal (Int ->- ([Identifier]) ->- (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) ->- CInterfaceMap ->- CVisitsMap ->- (Map Identifier Attributes) ->- AttrOrderMap ->- (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- String ->- (Map Identifier Attributes) ->- Int ->- ( Int,(Seq Edge),(Seq (Int,Int,Int)),(Seq Edge),CNonterminal,(Seq Edge),(Seq Error),(Map Identifier Attributes),(Seq Edge),(Seq Edge),Int,Int,([(NontermIdent,[ConstructorIdent])]),(Seq (Vertex,NTAttr)),(Seq (Vertex,CRule)),(Map Identifier Attributes),Int))-data Inh_Nonterminal = Inh_Nonterminal {acount_Inh_Nonterminal :: !(Int),allnts_Inh_Nonterminal :: !(([Identifier])),aroundMap_Inh_Nonterminal :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))),cInterfaceMap_Inh_Nonterminal :: !(CInterfaceMap),cVisitsMap_Inh_Nonterminal :: !(CVisitsMap),inhMap_Inh_Nonterminal :: !((Map Identifier Attributes)),manualAttrDepMap_Inh_Nonterminal :: !(AttrOrderMap),mergeMap_Inh_Nonterminal :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))))),o_case_Inh_Nonterminal :: !(Bool),o_cata_Inh_Nonterminal :: !(Bool),o_data_Inh_Nonterminal :: !(Bool),o_dovisit_Inh_Nonterminal :: !(Bool),o_newtypes_Inh_Nonterminal :: !(Bool),o_rename_Inh_Nonterminal :: !(Bool),o_sem_Inh_Nonterminal :: !(Bool),o_sig_Inh_Nonterminal :: !(Bool),o_unbox_Inh_Nonterminal :: !(Bool),o_wantvisit_Inh_Nonterminal :: !(Bool),prefix_Inh_Nonterminal :: !(String),synMap_Inh_Nonterminal :: !((Map Identifier Attributes)),vcount_Inh_Nonterminal :: !(Int)}-data Syn_Nonterminal = Syn_Nonterminal {acount_Syn_Nonterminal :: !(Int),additionalDep_Syn_Nonterminal :: !((Seq Edge)),aranges_Syn_Nonterminal :: !((Seq (Int,Int,Int))),aroundDep_Syn_Nonterminal :: !((Seq Edge)),cNonterminal_Syn_Nonterminal :: !(CNonterminal),directDep_Syn_Nonterminal :: !((Seq Edge)),errors_Syn_Nonterminal :: !((Seq Error)),inhMap'_Syn_Nonterminal :: !((Map Identifier Attributes)),instDep_Syn_Nonterminal :: !((Seq Edge)),mergeDep_Syn_Nonterminal :: !((Seq Edge)),nAutoRules_Syn_Nonterminal :: !(Int),nExplicitRules_Syn_Nonterminal :: !(Int),nonts_Syn_Nonterminal :: !(([(NontermIdent,[ConstructorIdent])])),ntattrs_Syn_Nonterminal :: !((Seq (Vertex,NTAttr))),rules_Syn_Nonterminal :: !((Seq (Vertex,CRule))),synMap'_Syn_Nonterminal :: !((Map Identifier Attributes)),vcount_Syn_Nonterminal :: !(Int)}-wrap_Nonterminal :: T_Nonterminal ->- Inh_Nonterminal ->- Syn_Nonterminal-wrap_Nonterminal (T_Nonterminal sem) (Inh_Nonterminal _lhsIacount _lhsIallnts _lhsIaroundMap _lhsIcInterfaceMap _lhsIcVisitsMap _lhsIinhMap _lhsImanualAttrDepMap _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_data _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsynMap _lhsIvcount) =- (let ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminal,_lhsOdirectDep,_lhsOerrors,_lhsOinhMap',_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOsynMap',_lhsOvcount) = sem _lhsIacount _lhsIallnts _lhsIaroundMap _lhsIcInterfaceMap _lhsIcVisitsMap _lhsIinhMap _lhsImanualAttrDepMap _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_data _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsynMap _lhsIvcount- in (Syn_Nonterminal _lhsOacount _lhsOadditionalDep _lhsOaranges _lhsOaroundDep _lhsOcNonterminal _lhsOdirectDep _lhsOerrors _lhsOinhMap' _lhsOinstDep _lhsOmergeDep _lhsOnAutoRules _lhsOnExplicitRules _lhsOnonts _lhsOntattrs _lhsOrules _lhsOsynMap' _lhsOvcount))-sem_Nonterminal_Nonterminal :: NontermIdent ->- ([Identifier]) ->- Attributes ->- Attributes ->- T_Productions ->- T_Nonterminal-sem_Nonterminal_Nonterminal nt_ params_ inh_ syn_ (T_Productions prods_) =- (T_Nonterminal (\ _lhsIacount- _lhsIallnts- _lhsIaroundMap- _lhsIcInterfaceMap- _lhsIcVisitsMap- _lhsIinhMap- _lhsImanualAttrDepMap- _lhsImergeMap- _lhsIo_case- _lhsIo_cata- _lhsIo_data- _lhsIo_dovisit- _lhsIo_newtypes- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_unbox- _lhsIo_wantvisit- _lhsIprefix- _lhsIsynMap- _lhsIvcount ->- (let _prodsOnt :: Identifier- _prodsOinh :: Attributes- _prodsOsyn :: Attributes- _lhsOntattrs :: (Seq (Vertex,NTAttr))- _lhsOacount :: Int- _lhsOaranges :: (Seq (Int,Int,Int))- _lhsOnonts :: ([(NontermIdent,[ConstructorIdent])])- _lhsOcNonterminal :: CNonterminal- _lhsOinhMap' :: (Map Identifier Attributes)- _lhsOsynMap' :: (Map Identifier Attributes)- _lhsOadditionalDep :: (Seq Edge)- _lhsOaroundDep :: (Seq Edge)- _lhsOdirectDep :: (Seq Edge)- _lhsOerrors :: (Seq Error)- _lhsOinstDep :: (Seq Edge)- _lhsOmergeDep :: (Seq Edge)- _lhsOnAutoRules :: Int- _lhsOnExplicitRules :: Int- _lhsOrules :: (Seq (Vertex,CRule))- _lhsOvcount :: Int- _prodsOallnts :: ([Identifier])- _prodsOaroundMap :: (Map ConstructorIdent (Map Identifier [Expression]))- _prodsOcVisitsMap :: CVisitsMap- _prodsOinhMap :: (Map Identifier Attributes)- _prodsOmanualAttrDepMap :: AttrOrderMap- _prodsOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))- _prodsOo_case :: Bool- _prodsOo_cata :: Bool- _prodsOo_dovisit :: Bool- _prodsOo_newtypes :: Bool- _prodsOo_rename :: Bool- _prodsOo_sem :: Bool- _prodsOo_sig :: Bool- _prodsOo_unbox :: Bool- _prodsOo_wantvisit :: Bool- _prodsOprefix :: String- _prodsOsynMap :: (Map Identifier Attributes)- _prodsOvcount :: Int- _prodsIadditionalDep :: (Seq Edge)- _prodsIaroundDep :: (Seq Edge)- _prodsIcProductions :: CProductions- _prodsIcons :: ([ConstructorIdent])- _prodsIdirectDep :: (Seq Edge)- _prodsIerrors :: (Seq Error)- _prodsIinstDep :: (Seq Edge)- _prodsImergeDep :: (Seq Edge)- _prodsInAutoRules :: Int- _prodsInExplicitRules :: Int- _prodsIrules :: (Seq (Vertex,CRule))- _prodsIvcount :: Int- -- "src-ag/Order.ag"(line 98, column 17)- _prodsOnt =- ({-# LINE 98 "src-ag/Order.ag" #-}- nt_- {-# LINE 1563 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 101, column 17)- _prodsOinh =- ({-# LINE 101 "src-ag/Order.ag" #-}- inh_- {-# LINE 1569 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 102, column 17)- _prodsOsyn =- ({-# LINE 102 "src-ag/Order.ag" #-}- syn_- {-# LINE 1575 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 358, column 32)- _mergeMap =- ({-# LINE 358 "src-ag/Order.ag" #-}- Map.findWithDefault Map.empty nt_ _lhsImergeMap- {-# LINE 1581 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 411, column 32)- _aroundMap =- ({-# LINE 411 "src-ag/Order.ag" #-}- Map.findWithDefault Map.empty nt_ _lhsIaroundMap- {-# LINE 1587 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 507, column 17)- _ntattrs =- ({-# LINE 507 "src-ag/Order.ag" #-}- [ NTAInh nt_ inh tp | (inh,tp) <- Map.assocs inh_ ]- ++ [NTASyn nt_ syn tp | (syn,tp) <- Map.assocs syn_ ]- {-# LINE 1594 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 509, column 17)- _lhsOntattrs =- ({-# LINE 509 "src-ag/Order.ag" #-}- Seq.fromList (zip [_lhsIacount ..] _ntattrs)- {-# LINE 1600 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 510, column 17)- _lhsOacount =- ({-# LINE 510 "src-ag/Order.ag" #-}- _lhsIacount + Map.size inh_ + Map.size syn_- {-# LINE 1606 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 511, column 17)- _lhsOaranges =- ({-# LINE 511 "src-ag/Order.ag" #-}- Seq.singleton- (_lhsIacount- ,_lhsIacount + Map.size inh_- ,_lhsIacount + Map.size syn_ + Map.size inh_ - 1)- {-# LINE 1615 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 520, column 19)- _lhsOnonts =- ({-# LINE 520 "src-ag/Order.ag" #-}- [(nt_,_prodsIcons)]- {-# LINE 1621 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 597, column 19)- _cInter =- ({-# LINE 597 "src-ag/Order.ag" #-}- if _lhsIo_dovisit- then findWithErr1 "Nonterminal.cInter" nt_ _lhsIcInterfaceMap- else CInterface [CSegment inh_ syn_]- {-# LINE 1629 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 625, column 19)- _lhsOcNonterminal =- ({-# LINE 625 "src-ag/Order.ag" #-}- CNonterminal nt_ params_ inh_ syn_ _prodsIcProductions _cInter- {-# LINE 1635 "dist/build/Order" #-}- )- -- "src-ag/DistChildAttr.ag"(line 7, column 18)- _lhsOinhMap' =- ({-# LINE 7 "src-ag/DistChildAttr.ag" #-}- Map.singleton nt_ inh_- {-# LINE 1641 "dist/build/Order" #-}- )- -- "src-ag/DistChildAttr.ag"(line 8, column 18)- _lhsOsynMap' =- ({-# LINE 8 "src-ag/DistChildAttr.ag" #-}- Map.singleton nt_ syn_- {-# LINE 1647 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 282, column 60)- _lhsOadditionalDep =- ({-# LINE 282 "src-ag/Order.ag" #-}- _prodsIadditionalDep- {-# LINE 1653 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 403, column 24)- _lhsOaroundDep =- ({-# LINE 403 "src-ag/Order.ag" #-}- _prodsIaroundDep- {-# LINE 1659 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 268, column 33)- _lhsOdirectDep =- ({-# LINE 268 "src-ag/Order.ag" #-}- _prodsIdirectDep- {-# LINE 1665 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 85, column 70)- _lhsOerrors =- ({-# LINE 85 "src-ag/Order.ag" #-}- _prodsIerrors- {-# LINE 1671 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 311, column 31)- _lhsOinstDep =- ({-# LINE 311 "src-ag/Order.ag" #-}- _prodsIinstDep- {-# LINE 1677 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 366, column 18)- _lhsOmergeDep =- ({-# LINE 366 "src-ag/Order.ag" #-}- _prodsImergeDep- {-# LINE 1683 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 62, column 105)- _lhsOnAutoRules =- ({-# LINE 62 "src-ag/Order.ag" #-}- _prodsInAutoRules- {-# LINE 1689 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 62, column 105)- _lhsOnExplicitRules =- ({-# LINE 62 "src-ag/Order.ag" #-}- _prodsInExplicitRules- {-# LINE 1695 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 258, column 18)- _lhsOrules =- ({-# LINE 258 "src-ag/Order.ag" #-}- _prodsIrules- {-# LINE 1701 "dist/build/Order" #-}- )- -- copy rule (up)- _lhsOvcount =- ({-# LINE 257 "src-ag/Order.ag" #-}- _prodsIvcount- {-# LINE 1707 "dist/build/Order" #-}- )- -- copy rule (down)- _prodsOallnts =- ({-# LINE 648 "src-ag/Order.ag" #-}- _lhsIallnts- {-# LINE 1713 "dist/build/Order" #-}- )- -- copy rule (from local)- _prodsOaroundMap =- ({-# LINE 409 "src-ag/Order.ag" #-}- _aroundMap- {-# LINE 1719 "dist/build/Order" #-}- )- -- copy rule (down)- _prodsOcVisitsMap =- ({-# LINE 602 "src-ag/Order.ag" #-}- _lhsIcVisitsMap- {-# LINE 1725 "dist/build/Order" #-}- )- -- copy rule (down)- _prodsOinhMap =- ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}- _lhsIinhMap- {-# LINE 1731 "dist/build/Order" #-}- )- -- copy rule (down)- _prodsOmanualAttrDepMap =- ({-# LINE 282 "src-ag/Order.ag" #-}- _lhsImanualAttrDepMap- {-# LINE 1737 "dist/build/Order" #-}- )- -- copy rule (from local)- _prodsOmergeMap =- ({-# LINE 356 "src-ag/Order.ag" #-}- _mergeMap- {-# LINE 1743 "dist/build/Order" #-}- )- -- copy rule (down)- _prodsOo_case =- ({-# LINE 118 "src-ag/Order.ag" #-}- _lhsIo_case- {-# LINE 1749 "dist/build/Order" #-}- )- -- copy rule (down)- _prodsOo_cata =- ({-# LINE 112 "src-ag/Order.ag" #-}- _lhsIo_cata- {-# LINE 1755 "dist/build/Order" #-}- )- -- copy rule (down)- _prodsOo_dovisit =- ({-# LINE 117 "src-ag/Order.ag" #-}- _lhsIo_dovisit- {-# LINE 1761 "dist/build/Order" #-}- )- -- copy rule (down)- _prodsOo_newtypes =- ({-# LINE 111 "src-ag/Order.ag" #-}- _lhsIo_newtypes- {-# LINE 1767 "dist/build/Order" #-}- )- -- copy rule (down)- _prodsOo_rename =- ({-# LINE 115 "src-ag/Order.ag" #-}- _lhsIo_rename- {-# LINE 1773 "dist/build/Order" #-}- )- -- copy rule (down)- _prodsOo_sem =- ({-# LINE 114 "src-ag/Order.ag" #-}- _lhsIo_sem- {-# LINE 1779 "dist/build/Order" #-}- )- -- copy rule (down)- _prodsOo_sig =- ({-# LINE 113 "src-ag/Order.ag" #-}- _lhsIo_sig- {-# LINE 1785 "dist/build/Order" #-}- )- -- copy rule (down)- _prodsOo_unbox =- ({-# LINE 120 "src-ag/Order.ag" #-}- _lhsIo_unbox- {-# LINE 1791 "dist/build/Order" #-}- )- -- copy rule (down)- _prodsOo_wantvisit =- ({-# LINE 116 "src-ag/Order.ag" #-}- _lhsIo_wantvisit- {-# LINE 1797 "dist/build/Order" #-}- )- -- copy rule (down)- _prodsOprefix =- ({-# LINE 119 "src-ag/Order.ag" #-}- _lhsIprefix- {-# LINE 1803 "dist/build/Order" #-}- )- -- copy rule (down)- _prodsOsynMap =- ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}- _lhsIsynMap- {-# LINE 1809 "dist/build/Order" #-}- )- -- copy rule (down)- _prodsOvcount =- ({-# LINE 257 "src-ag/Order.ag" #-}- _lhsIvcount- {-# LINE 1815 "dist/build/Order" #-}- )- ( _prodsIadditionalDep,_prodsIaroundDep,_prodsIcProductions,_prodsIcons,_prodsIdirectDep,_prodsIerrors,_prodsIinstDep,_prodsImergeDep,_prodsInAutoRules,_prodsInExplicitRules,_prodsIrules,_prodsIvcount) =- prods_ _prodsOallnts _prodsOaroundMap _prodsOcVisitsMap _prodsOinh _prodsOinhMap _prodsOmanualAttrDepMap _prodsOmergeMap _prodsOnt _prodsOo_case _prodsOo_cata _prodsOo_dovisit _prodsOo_newtypes _prodsOo_rename _prodsOo_sem _prodsOo_sig _prodsOo_unbox _prodsOo_wantvisit _prodsOprefix _prodsOsyn _prodsOsynMap _prodsOvcount- in ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminal,_lhsOdirectDep,_lhsOerrors,_lhsOinhMap',_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOsynMap',_lhsOvcount))))--- Nonterminals -------------------------------------------------{-- visit 0:- inherited attributes:- allnts : [Identifier]- aroundMap : Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))- cInterfaceMap : CInterfaceMap- cVisitsMap : CVisitsMap- inhMap : Map Identifier Attributes- manualAttrDepMap : AttrOrderMap- mergeMap : Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))- o_case : Bool- o_cata : Bool- o_data : Bool- o_dovisit : Bool- o_newtypes : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_unbox : Bool- o_wantvisit : Bool- prefix : String- synMap : Map Identifier Attributes- chained attributes:- acount : Int- vcount : Int- synthesized attributes:- additionalDep : Seq Edge- aranges : Seq (Int,Int,Int)- aroundDep : Seq Edge- cNonterminals : CNonterminals- directDep : Seq Edge- errors : Seq Error- inhMap' : Map Identifier Attributes- instDep : Seq Edge- mergeDep : Seq Edge- nAutoRules : Int- nExplicitRules : Int- nonts : [(NontermIdent,[ConstructorIdent])]- ntattrs : Seq (Vertex,NTAttr)- rules : Seq (Vertex,CRule)- synMap' : Map Identifier Attributes- alternatives:- alternative Cons:- child hd : Nonterminal - child tl : Nonterminals - alternative Nil:--}--- cata-sem_Nonterminals :: Nonterminals ->- T_Nonterminals-sem_Nonterminals list =- (Prelude.foldr sem_Nonterminals_Cons sem_Nonterminals_Nil (Prelude.map sem_Nonterminal list))--- semantic domain-newtype T_Nonterminals = T_Nonterminals (Int ->- ([Identifier]) ->- (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) ->- CInterfaceMap ->- CVisitsMap ->- (Map Identifier Attributes) ->- AttrOrderMap ->- (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))) ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- String ->- (Map Identifier Attributes) ->- Int ->- ( Int,(Seq Edge),(Seq (Int,Int,Int)),(Seq Edge),CNonterminals,(Seq Edge),(Seq Error),(Map Identifier Attributes),(Seq Edge),(Seq Edge),Int,Int,([(NontermIdent,[ConstructorIdent])]),(Seq (Vertex,NTAttr)),(Seq (Vertex,CRule)),(Map Identifier Attributes),Int))-data Inh_Nonterminals = Inh_Nonterminals {acount_Inh_Nonterminals :: !(Int),allnts_Inh_Nonterminals :: !(([Identifier])),aroundMap_Inh_Nonterminals :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))),cInterfaceMap_Inh_Nonterminals :: !(CInterfaceMap),cVisitsMap_Inh_Nonterminals :: !(CVisitsMap),inhMap_Inh_Nonterminals :: !((Map Identifier Attributes)),manualAttrDepMap_Inh_Nonterminals :: !(AttrOrderMap),mergeMap_Inh_Nonterminals :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))))),o_case_Inh_Nonterminals :: !(Bool),o_cata_Inh_Nonterminals :: !(Bool),o_data_Inh_Nonterminals :: !(Bool),o_dovisit_Inh_Nonterminals :: !(Bool),o_newtypes_Inh_Nonterminals :: !(Bool),o_rename_Inh_Nonterminals :: !(Bool),o_sem_Inh_Nonterminals :: !(Bool),o_sig_Inh_Nonterminals :: !(Bool),o_unbox_Inh_Nonterminals :: !(Bool),o_wantvisit_Inh_Nonterminals :: !(Bool),prefix_Inh_Nonterminals :: !(String),synMap_Inh_Nonterminals :: !((Map Identifier Attributes)),vcount_Inh_Nonterminals :: !(Int)}-data Syn_Nonterminals = Syn_Nonterminals {acount_Syn_Nonterminals :: !(Int),additionalDep_Syn_Nonterminals :: !((Seq Edge)),aranges_Syn_Nonterminals :: !((Seq (Int,Int,Int))),aroundDep_Syn_Nonterminals :: !((Seq Edge)),cNonterminals_Syn_Nonterminals :: !(CNonterminals),directDep_Syn_Nonterminals :: !((Seq Edge)),errors_Syn_Nonterminals :: !((Seq Error)),inhMap'_Syn_Nonterminals :: !((Map Identifier Attributes)),instDep_Syn_Nonterminals :: !((Seq Edge)),mergeDep_Syn_Nonterminals :: !((Seq Edge)),nAutoRules_Syn_Nonterminals :: !(Int),nExplicitRules_Syn_Nonterminals :: !(Int),nonts_Syn_Nonterminals :: !(([(NontermIdent,[ConstructorIdent])])),ntattrs_Syn_Nonterminals :: !((Seq (Vertex,NTAttr))),rules_Syn_Nonterminals :: !((Seq (Vertex,CRule))),synMap'_Syn_Nonterminals :: !((Map Identifier Attributes)),vcount_Syn_Nonterminals :: !(Int)}-wrap_Nonterminals :: T_Nonterminals ->- Inh_Nonterminals ->- Syn_Nonterminals-wrap_Nonterminals (T_Nonterminals sem) (Inh_Nonterminals _lhsIacount _lhsIallnts _lhsIaroundMap _lhsIcInterfaceMap _lhsIcVisitsMap _lhsIinhMap _lhsImanualAttrDepMap _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_data _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsynMap _lhsIvcount) =- (let ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminals,_lhsOdirectDep,_lhsOerrors,_lhsOinhMap',_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOsynMap',_lhsOvcount) = sem _lhsIacount _lhsIallnts _lhsIaroundMap _lhsIcInterfaceMap _lhsIcVisitsMap _lhsIinhMap _lhsImanualAttrDepMap _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_data _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsynMap _lhsIvcount- in (Syn_Nonterminals _lhsOacount _lhsOadditionalDep _lhsOaranges _lhsOaroundDep _lhsOcNonterminals _lhsOdirectDep _lhsOerrors _lhsOinhMap' _lhsOinstDep _lhsOmergeDep _lhsOnAutoRules _lhsOnExplicitRules _lhsOnonts _lhsOntattrs _lhsOrules _lhsOsynMap' _lhsOvcount))-sem_Nonterminals_Cons :: T_Nonterminal ->- T_Nonterminals ->- T_Nonterminals-sem_Nonterminals_Cons (T_Nonterminal hd_) (T_Nonterminals tl_) =- (T_Nonterminals (\ _lhsIacount- _lhsIallnts- _lhsIaroundMap- _lhsIcInterfaceMap- _lhsIcVisitsMap- _lhsIinhMap- _lhsImanualAttrDepMap- _lhsImergeMap- _lhsIo_case- _lhsIo_cata- _lhsIo_data- _lhsIo_dovisit- _lhsIo_newtypes- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_unbox- _lhsIo_wantvisit- _lhsIprefix- _lhsIsynMap- _lhsIvcount ->- (let _lhsOcNonterminals :: CNonterminals- _lhsOadditionalDep :: (Seq Edge)- _lhsOaranges :: (Seq (Int,Int,Int))- _lhsOaroundDep :: (Seq Edge)- _lhsOdirectDep :: (Seq Edge)- _lhsOerrors :: (Seq Error)- _lhsOinhMap' :: (Map Identifier Attributes)- _lhsOinstDep :: (Seq Edge)- _lhsOmergeDep :: (Seq Edge)- _lhsOnAutoRules :: Int- _lhsOnExplicitRules :: Int- _lhsOnonts :: ([(NontermIdent,[ConstructorIdent])])- _lhsOntattrs :: (Seq (Vertex,NTAttr))- _lhsOrules :: (Seq (Vertex,CRule))- _lhsOsynMap' :: (Map Identifier Attributes)- _lhsOacount :: Int- _lhsOvcount :: Int- _hdOacount :: Int- _hdOallnts :: ([Identifier])- _hdOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))- _hdOcInterfaceMap :: CInterfaceMap- _hdOcVisitsMap :: CVisitsMap- _hdOinhMap :: (Map Identifier Attributes)- _hdOmanualAttrDepMap :: AttrOrderMap- _hdOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))))- _hdOo_case :: Bool- _hdOo_cata :: Bool- _hdOo_data :: Bool- _hdOo_dovisit :: Bool- _hdOo_newtypes :: Bool- _hdOo_rename :: Bool- _hdOo_sem :: Bool- _hdOo_sig :: Bool- _hdOo_unbox :: Bool- _hdOo_wantvisit :: Bool- _hdOprefix :: String- _hdOsynMap :: (Map Identifier Attributes)- _hdOvcount :: Int- _tlOacount :: Int- _tlOallnts :: ([Identifier])- _tlOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))- _tlOcInterfaceMap :: CInterfaceMap- _tlOcVisitsMap :: CVisitsMap- _tlOinhMap :: (Map Identifier Attributes)- _tlOmanualAttrDepMap :: AttrOrderMap- _tlOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))))- _tlOo_case :: Bool- _tlOo_cata :: Bool- _tlOo_data :: Bool- _tlOo_dovisit :: Bool- _tlOo_newtypes :: Bool- _tlOo_rename :: Bool- _tlOo_sem :: Bool- _tlOo_sig :: Bool- _tlOo_unbox :: Bool- _tlOo_wantvisit :: Bool- _tlOprefix :: String- _tlOsynMap :: (Map Identifier Attributes)- _tlOvcount :: Int- _hdIacount :: Int- _hdIadditionalDep :: (Seq Edge)- _hdIaranges :: (Seq (Int,Int,Int))- _hdIaroundDep :: (Seq Edge)- _hdIcNonterminal :: CNonterminal- _hdIdirectDep :: (Seq Edge)- _hdIerrors :: (Seq Error)- _hdIinhMap' :: (Map Identifier Attributes)- _hdIinstDep :: (Seq Edge)- _hdImergeDep :: (Seq Edge)- _hdInAutoRules :: Int- _hdInExplicitRules :: Int- _hdInonts :: ([(NontermIdent,[ConstructorIdent])])- _hdIntattrs :: (Seq (Vertex,NTAttr))- _hdIrules :: (Seq (Vertex,CRule))- _hdIsynMap' :: (Map Identifier Attributes)- _hdIvcount :: Int- _tlIacount :: Int- _tlIadditionalDep :: (Seq Edge)- _tlIaranges :: (Seq (Int,Int,Int))- _tlIaroundDep :: (Seq Edge)- _tlIcNonterminals :: CNonterminals- _tlIdirectDep :: (Seq Edge)- _tlIerrors :: (Seq Error)- _tlIinhMap' :: (Map Identifier Attributes)- _tlIinstDep :: (Seq Edge)- _tlImergeDep :: (Seq Edge)- _tlInAutoRules :: Int- _tlInExplicitRules :: Int- _tlInonts :: ([(NontermIdent,[ConstructorIdent])])- _tlIntattrs :: (Seq (Vertex,NTAttr))- _tlIrules :: (Seq (Vertex,CRule))- _tlIsynMap' :: (Map Identifier Attributes)- _tlIvcount :: Int- -- "src-ag/Order.ag"(line 622, column 12)- _lhsOcNonterminals =- ({-# LINE 622 "src-ag/Order.ag" #-}- _hdIcNonterminal : _tlIcNonterminals- {-# LINE 2026 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 282, column 60)- _lhsOadditionalDep =- ({-# LINE 282 "src-ag/Order.ag" #-}- _hdIadditionalDep Seq.>< _tlIadditionalDep- {-# LINE 2032 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 501, column 36)- _lhsOaranges =- ({-# LINE 501 "src-ag/Order.ag" #-}- _hdIaranges Seq.>< _tlIaranges- {-# LINE 2038 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 403, column 24)- _lhsOaroundDep =- ({-# LINE 403 "src-ag/Order.ag" #-}- _hdIaroundDep Seq.>< _tlIaroundDep- {-# LINE 2044 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 268, column 33)- _lhsOdirectDep =- ({-# LINE 268 "src-ag/Order.ag" #-}- _hdIdirectDep Seq.>< _tlIdirectDep- {-# LINE 2050 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 85, column 70)- _lhsOerrors =- ({-# LINE 85 "src-ag/Order.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 2056 "dist/build/Order" #-}- )- -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53)- _lhsOinhMap' =- ({-# LINE 4 "src-ag/DistChildAttr.ag" #-}- _hdIinhMap' `Map.union` _tlIinhMap'- {-# LINE 2062 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 311, column 31)- _lhsOinstDep =- ({-# LINE 311 "src-ag/Order.ag" #-}- _hdIinstDep Seq.>< _tlIinstDep- {-# LINE 2068 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 366, column 18)- _lhsOmergeDep =- ({-# LINE 366 "src-ag/Order.ag" #-}- _hdImergeDep Seq.>< _tlImergeDep- {-# LINE 2074 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 62, column 105)- _lhsOnAutoRules =- ({-# LINE 62 "src-ag/Order.ag" #-}- _hdInAutoRules + _tlInAutoRules- {-# LINE 2080 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 62, column 105)- _lhsOnExplicitRules =- ({-# LINE 62 "src-ag/Order.ag" #-}- _hdInExplicitRules + _tlInExplicitRules- {-# LINE 2086 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 518, column 43)- _lhsOnonts =- ({-# LINE 518 "src-ag/Order.ag" #-}- _hdInonts ++ _tlInonts- {-# LINE 2092 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 500, column 35)- _lhsOntattrs =- ({-# LINE 500 "src-ag/Order.ag" #-}- _hdIntattrs Seq.>< _tlIntattrs- {-# LINE 2098 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 258, column 18)- _lhsOrules =- ({-# LINE 258 "src-ag/Order.ag" #-}- _hdIrules Seq.>< _tlIrules- {-# LINE 2104 "dist/build/Order" #-}- )- -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53)- _lhsOsynMap' =- ({-# LINE 4 "src-ag/DistChildAttr.ag" #-}- _hdIsynMap' `Map.union` _tlIsynMap'- {-# LINE 2110 "dist/build/Order" #-}- )- -- copy rule (up)- _lhsOacount =- ({-# LINE 500 "src-ag/Order.ag" #-}- _tlIacount- {-# LINE 2116 "dist/build/Order" #-}- )- -- copy rule (up)- _lhsOvcount =- ({-# LINE 257 "src-ag/Order.ag" #-}- _tlIvcount- {-# LINE 2122 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOacount =- ({-# LINE 500 "src-ag/Order.ag" #-}- _lhsIacount- {-# LINE 2128 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOallnts =- ({-# LINE 648 "src-ag/Order.ag" #-}- _lhsIallnts- {-# LINE 2134 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOaroundMap =- ({-# LINE 406 "src-ag/Order.ag" #-}- _lhsIaroundMap- {-# LINE 2140 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOcInterfaceMap =- ({-# LINE 595 "src-ag/Order.ag" #-}- _lhsIcInterfaceMap- {-# LINE 2146 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOcVisitsMap =- ({-# LINE 602 "src-ag/Order.ag" #-}- _lhsIcVisitsMap- {-# LINE 2152 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOinhMap =- ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}- _lhsIinhMap- {-# LINE 2158 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOmanualAttrDepMap =- ({-# LINE 282 "src-ag/Order.ag" #-}- _lhsImanualAttrDepMap- {-# LINE 2164 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOmergeMap =- ({-# LINE 353 "src-ag/Order.ag" #-}- _lhsImergeMap- {-# LINE 2170 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_case =- ({-# LINE 118 "src-ag/Order.ag" #-}- _lhsIo_case- {-# LINE 2176 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_cata =- ({-# LINE 112 "src-ag/Order.ag" #-}- _lhsIo_cata- {-# LINE 2182 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_data =- ({-# LINE 121 "src-ag/Order.ag" #-}- _lhsIo_data- {-# LINE 2188 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_dovisit =- ({-# LINE 117 "src-ag/Order.ag" #-}- _lhsIo_dovisit- {-# LINE 2194 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_newtypes =- ({-# LINE 111 "src-ag/Order.ag" #-}- _lhsIo_newtypes- {-# LINE 2200 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_rename =- ({-# LINE 115 "src-ag/Order.ag" #-}- _lhsIo_rename- {-# LINE 2206 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_sem =- ({-# LINE 114 "src-ag/Order.ag" #-}- _lhsIo_sem- {-# LINE 2212 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_sig =- ({-# LINE 113 "src-ag/Order.ag" #-}- _lhsIo_sig- {-# LINE 2218 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_unbox =- ({-# LINE 120 "src-ag/Order.ag" #-}- _lhsIo_unbox- {-# LINE 2224 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_wantvisit =- ({-# LINE 116 "src-ag/Order.ag" #-}- _lhsIo_wantvisit- {-# LINE 2230 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOprefix =- ({-# LINE 119 "src-ag/Order.ag" #-}- _lhsIprefix- {-# LINE 2236 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOsynMap =- ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}- _lhsIsynMap- {-# LINE 2242 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOvcount =- ({-# LINE 257 "src-ag/Order.ag" #-}- _lhsIvcount- {-# LINE 2248 "dist/build/Order" #-}- )- -- copy rule (chain)- _tlOacount =- ({-# LINE 500 "src-ag/Order.ag" #-}- _hdIacount- {-# LINE 2254 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOallnts =- ({-# LINE 648 "src-ag/Order.ag" #-}- _lhsIallnts- {-# LINE 2260 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOaroundMap =- ({-# LINE 406 "src-ag/Order.ag" #-}- _lhsIaroundMap- {-# LINE 2266 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOcInterfaceMap =- ({-# LINE 595 "src-ag/Order.ag" #-}- _lhsIcInterfaceMap- {-# LINE 2272 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOcVisitsMap =- ({-# LINE 602 "src-ag/Order.ag" #-}- _lhsIcVisitsMap- {-# LINE 2278 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOinhMap =- ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}- _lhsIinhMap- {-# LINE 2284 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOmanualAttrDepMap =- ({-# LINE 282 "src-ag/Order.ag" #-}- _lhsImanualAttrDepMap- {-# LINE 2290 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOmergeMap =- ({-# LINE 353 "src-ag/Order.ag" #-}- _lhsImergeMap- {-# LINE 2296 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_case =- ({-# LINE 118 "src-ag/Order.ag" #-}- _lhsIo_case- {-# LINE 2302 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_cata =- ({-# LINE 112 "src-ag/Order.ag" #-}- _lhsIo_cata- {-# LINE 2308 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_data =- ({-# LINE 121 "src-ag/Order.ag" #-}- _lhsIo_data- {-# LINE 2314 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_dovisit =- ({-# LINE 117 "src-ag/Order.ag" #-}- _lhsIo_dovisit- {-# LINE 2320 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_newtypes =- ({-# LINE 111 "src-ag/Order.ag" #-}- _lhsIo_newtypes- {-# LINE 2326 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_rename =- ({-# LINE 115 "src-ag/Order.ag" #-}- _lhsIo_rename- {-# LINE 2332 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_sem =- ({-# LINE 114 "src-ag/Order.ag" #-}- _lhsIo_sem- {-# LINE 2338 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_sig =- ({-# LINE 113 "src-ag/Order.ag" #-}- _lhsIo_sig- {-# LINE 2344 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_unbox =- ({-# LINE 120 "src-ag/Order.ag" #-}- _lhsIo_unbox- {-# LINE 2350 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_wantvisit =- ({-# LINE 116 "src-ag/Order.ag" #-}- _lhsIo_wantvisit- {-# LINE 2356 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOprefix =- ({-# LINE 119 "src-ag/Order.ag" #-}- _lhsIprefix- {-# LINE 2362 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOsynMap =- ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}- _lhsIsynMap- {-# LINE 2368 "dist/build/Order" #-}- )- -- copy rule (chain)- _tlOvcount =- ({-# LINE 257 "src-ag/Order.ag" #-}- _hdIvcount- {-# LINE 2374 "dist/build/Order" #-}- )- ( _hdIacount,_hdIadditionalDep,_hdIaranges,_hdIaroundDep,_hdIcNonterminal,_hdIdirectDep,_hdIerrors,_hdIinhMap',_hdIinstDep,_hdImergeDep,_hdInAutoRules,_hdInExplicitRules,_hdInonts,_hdIntattrs,_hdIrules,_hdIsynMap',_hdIvcount) =- hd_ _hdOacount _hdOallnts _hdOaroundMap _hdOcInterfaceMap _hdOcVisitsMap _hdOinhMap _hdOmanualAttrDepMap _hdOmergeMap _hdOo_case _hdOo_cata _hdOo_data _hdOo_dovisit _hdOo_newtypes _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_unbox _hdOo_wantvisit _hdOprefix _hdOsynMap _hdOvcount- ( _tlIacount,_tlIadditionalDep,_tlIaranges,_tlIaroundDep,_tlIcNonterminals,_tlIdirectDep,_tlIerrors,_tlIinhMap',_tlIinstDep,_tlImergeDep,_tlInAutoRules,_tlInExplicitRules,_tlInonts,_tlIntattrs,_tlIrules,_tlIsynMap',_tlIvcount) =- tl_ _tlOacount _tlOallnts _tlOaroundMap _tlOcInterfaceMap _tlOcVisitsMap _tlOinhMap _tlOmanualAttrDepMap _tlOmergeMap _tlOo_case _tlOo_cata _tlOo_data _tlOo_dovisit _tlOo_newtypes _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_unbox _tlOo_wantvisit _tlOprefix _tlOsynMap _tlOvcount- in ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminals,_lhsOdirectDep,_lhsOerrors,_lhsOinhMap',_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOsynMap',_lhsOvcount))))-sem_Nonterminals_Nil :: T_Nonterminals-sem_Nonterminals_Nil =- (T_Nonterminals (\ _lhsIacount- _lhsIallnts- _lhsIaroundMap- _lhsIcInterfaceMap- _lhsIcVisitsMap- _lhsIinhMap- _lhsImanualAttrDepMap- _lhsImergeMap- _lhsIo_case- _lhsIo_cata- _lhsIo_data- _lhsIo_dovisit- _lhsIo_newtypes- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_unbox- _lhsIo_wantvisit- _lhsIprefix- _lhsIsynMap- _lhsIvcount ->- (let _lhsOcNonterminals :: CNonterminals- _lhsOadditionalDep :: (Seq Edge)- _lhsOaranges :: (Seq (Int,Int,Int))- _lhsOaroundDep :: (Seq Edge)- _lhsOdirectDep :: (Seq Edge)- _lhsOerrors :: (Seq Error)- _lhsOinhMap' :: (Map Identifier Attributes)- _lhsOinstDep :: (Seq Edge)- _lhsOmergeDep :: (Seq Edge)- _lhsOnAutoRules :: Int- _lhsOnExplicitRules :: Int- _lhsOnonts :: ([(NontermIdent,[ConstructorIdent])])- _lhsOntattrs :: (Seq (Vertex,NTAttr))- _lhsOrules :: (Seq (Vertex,CRule))- _lhsOsynMap' :: (Map Identifier Attributes)- _lhsOacount :: Int- _lhsOvcount :: Int- -- "src-ag/Order.ag"(line 623, column 12)- _lhsOcNonterminals =- ({-# LINE 623 "src-ag/Order.ag" #-}- []- {-# LINE 2425 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 282, column 60)- _lhsOadditionalDep =- ({-# LINE 282 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 2431 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 501, column 36)- _lhsOaranges =- ({-# LINE 501 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 2437 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 403, column 24)- _lhsOaroundDep =- ({-# LINE 403 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 2443 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 268, column 33)- _lhsOdirectDep =- ({-# LINE 268 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 2449 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 85, column 70)- _lhsOerrors =- ({-# LINE 85 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 2455 "dist/build/Order" #-}- )- -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53)- _lhsOinhMap' =- ({-# LINE 4 "src-ag/DistChildAttr.ag" #-}- Map.empty- {-# LINE 2461 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 311, column 31)- _lhsOinstDep =- ({-# LINE 311 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 2467 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 366, column 18)- _lhsOmergeDep =- ({-# LINE 366 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 2473 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 62, column 105)- _lhsOnAutoRules =- ({-# LINE 62 "src-ag/Order.ag" #-}- 0- {-# LINE 2479 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 62, column 105)- _lhsOnExplicitRules =- ({-# LINE 62 "src-ag/Order.ag" #-}- 0- {-# LINE 2485 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 518, column 43)- _lhsOnonts =- ({-# LINE 518 "src-ag/Order.ag" #-}- []- {-# LINE 2491 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 500, column 35)- _lhsOntattrs =- ({-# LINE 500 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 2497 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 258, column 18)- _lhsOrules =- ({-# LINE 258 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 2503 "dist/build/Order" #-}- )- -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53)- _lhsOsynMap' =- ({-# LINE 4 "src-ag/DistChildAttr.ag" #-}- Map.empty- {-# LINE 2509 "dist/build/Order" #-}- )- -- copy rule (chain)- _lhsOacount =- ({-# LINE 500 "src-ag/Order.ag" #-}- _lhsIacount- {-# LINE 2515 "dist/build/Order" #-}- )- -- copy rule (chain)- _lhsOvcount =- ({-# LINE 257 "src-ag/Order.ag" #-}- _lhsIvcount- {-# LINE 2521 "dist/build/Order" #-}- )- in ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminals,_lhsOdirectDep,_lhsOerrors,_lhsOinhMap',_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOsynMap',_lhsOvcount))))--- Pattern ------------------------------------------------------{-- visit 0:- inherited attributes:- allTypeSigs : Map Identifier Type- altAttrs : Map AltAttr Vertex- con : Identifier- inh : Attributes- nt : Identifier- syn : Attributes- synthesized attributes:- copy : Pattern - errors : Seq Error- gathAltAttrs : [AltAttr]- instVars : [Identifier]- locVars : [Identifier]- patternAttrs : [(Identifier,Identifier,Bool)]- alternatives:- alternative Alias:- child field : {Identifier}- child attr : {Identifier}- child pat : Pattern - 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) =- (sem_Pattern_Alias _field _attr (sem_Pattern _pat))-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 ((Map Identifier Type) ->- (Map AltAttr Vertex) ->- Identifier ->- Attributes ->- Identifier ->- Attributes ->- ( Pattern,(Seq Error),([AltAttr]),([Identifier]),([Identifier]),([(Identifier,Identifier,Bool)])))-data Inh_Pattern = Inh_Pattern {allTypeSigs_Inh_Pattern :: !((Map Identifier Type)),altAttrs_Inh_Pattern :: !((Map AltAttr Vertex)),con_Inh_Pattern :: !(Identifier),inh_Inh_Pattern :: !(Attributes),nt_Inh_Pattern :: !(Identifier),syn_Inh_Pattern :: !(Attributes)}-data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern),errors_Syn_Pattern :: !((Seq Error)),gathAltAttrs_Syn_Pattern :: !(([AltAttr])),instVars_Syn_Pattern :: !(([Identifier])),locVars_Syn_Pattern :: !(([Identifier])),patternAttrs_Syn_Pattern :: !(([(Identifier,Identifier,Bool)]))}-wrap_Pattern :: T_Pattern ->- Inh_Pattern ->- Syn_Pattern-wrap_Pattern (T_Pattern sem) (Inh_Pattern _lhsIallTypeSigs _lhsIaltAttrs _lhsIcon _lhsIinh _lhsInt _lhsIsyn) =- (let ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs) = sem _lhsIallTypeSigs _lhsIaltAttrs _lhsIcon _lhsIinh _lhsInt _lhsIsyn- in (Syn_Pattern _lhsOcopy _lhsOerrors _lhsOgathAltAttrs _lhsOinstVars _lhsOlocVars _lhsOpatternAttrs))-sem_Pattern_Alias :: Identifier ->- Identifier ->- T_Pattern ->- T_Pattern-sem_Pattern_Alias field_ attr_ (T_Pattern pat_) =- (T_Pattern (\ _lhsIallTypeSigs- _lhsIaltAttrs- _lhsIcon- _lhsIinh- _lhsInt- _lhsIsyn ->- (let _lhsOgathAltAttrs :: ([AltAttr])- _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool)])- _lhsOlocVars :: ([Identifier])- _lhsOinstVars :: ([Identifier])- _lhsOerrors :: (Seq Error)- _lhsOcopy :: Pattern- _patOallTypeSigs :: (Map Identifier Type)- _patOaltAttrs :: (Map AltAttr Vertex)- _patOcon :: Identifier- _patOinh :: Attributes- _patOnt :: Identifier- _patOsyn :: Attributes- _patIcopy :: Pattern- _patIerrors :: (Seq Error)- _patIgathAltAttrs :: ([AltAttr])- _patIinstVars :: ([Identifier])- _patIlocVars :: ([Identifier])- _patIpatternAttrs :: ([(Identifier,Identifier,Bool)])- -- "src-ag/Order.ag"(line 185, column 12)- _lhsOgathAltAttrs =- ({-# LINE 185 "src-ag/Order.ag" #-}- [AltAttr field_ attr_ (field_ == _LOC || field_ == _INST)]- {-# LINE 2629 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 251, column 12)- _lhsOpatternAttrs =- ({-# LINE 251 "src-ag/Order.ag" #-}- [(field_,attr_,(field_ == _LOC || field_ == _INST))]- {-# LINE 2635 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 681, column 14)- _lhsOlocVars =- ({-# LINE 681 "src-ag/Order.ag" #-}- if field_ == _LOC- then [attr_]- else []- {-# LINE 2643 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 684, column 14)- _lhsOinstVars =- ({-# LINE 684 "src-ag/Order.ag" #-}- if field_ == _INST- then [attr_]- else []- {-# LINE 2651 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 85, column 70)- _lhsOerrors =- ({-# LINE 85 "src-ag/Order.ag" #-}- _patIerrors- {-# LINE 2657 "dist/build/Order" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Alias field_ attr_ _patIcopy- {-# LINE 2663 "dist/build/Order" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 2669 "dist/build/Order" #-}- )- -- copy rule (down)- _patOallTypeSigs =- ({-# LINE 534 "src-ag/Order.ag" #-}- _lhsIallTypeSigs- {-# LINE 2675 "dist/build/Order" #-}- )- -- copy rule (down)- _patOaltAttrs =- ({-# LINE 187 "src-ag/Order.ag" #-}- _lhsIaltAttrs- {-# LINE 2681 "dist/build/Order" #-}- )- -- copy rule (down)- _patOcon =- ({-# LINE 91 "src-ag/Order.ag" #-}- _lhsIcon- {-# LINE 2687 "dist/build/Order" #-}- )- -- copy rule (down)- _patOinh =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIinh- {-# LINE 2693 "dist/build/Order" #-}- )- -- copy rule (down)- _patOnt =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsInt- {-# LINE 2699 "dist/build/Order" #-}- )- -- copy rule (down)- _patOsyn =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIsyn- {-# LINE 2705 "dist/build/Order" #-}- )- ( _patIcopy,_patIerrors,_patIgathAltAttrs,_patIinstVars,_patIlocVars,_patIpatternAttrs) =- pat_ _patOallTypeSigs _patOaltAttrs _patOcon _patOinh _patOnt _patOsyn- in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))))-sem_Pattern_Constr :: ConstructorIdent ->- T_Patterns ->- T_Pattern-sem_Pattern_Constr name_ (T_Patterns pats_) =- (T_Pattern (\ _lhsIallTypeSigs- _lhsIaltAttrs- _lhsIcon- _lhsIinh- _lhsInt- _lhsIsyn ->- (let _lhsOerrors :: (Seq Error)- _lhsOgathAltAttrs :: ([AltAttr])- _lhsOinstVars :: ([Identifier])- _lhsOlocVars :: ([Identifier])- _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool)])- _lhsOcopy :: Pattern- _patsOallTypeSigs :: (Map Identifier Type)- _patsOaltAttrs :: (Map AltAttr Vertex)- _patsOcon :: Identifier- _patsOinh :: Attributes- _patsOnt :: Identifier- _patsOsyn :: Attributes- _patsIcopy :: Patterns- _patsIerrors :: (Seq Error)- _patsIgathAltAttrs :: ([AltAttr])- _patsIinstVars :: ([Identifier])- _patsIlocVars :: ([Identifier])- _patsIpatternAttrs :: ([(Identifier,Identifier,Bool)])- -- use rule "src-ag/Order.ag"(line 85, column 70)- _lhsOerrors =- ({-# LINE 85 "src-ag/Order.ag" #-}- _patsIerrors- {-# LINE 2742 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 171, column 68)- _lhsOgathAltAttrs =- ({-# LINE 171 "src-ag/Order.ag" #-}- _patsIgathAltAttrs- {-# LINE 2748 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 678, column 86)- _lhsOinstVars =- ({-# LINE 678 "src-ag/Order.ag" #-}- _patsIinstVars- {-# LINE 2754 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 678, column 48)- _lhsOlocVars =- ({-# LINE 678 "src-ag/Order.ag" #-}- _patsIlocVars- {-# LINE 2760 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 248, column 42)- _lhsOpatternAttrs =- ({-# LINE 248 "src-ag/Order.ag" #-}- _patsIpatternAttrs- {-# LINE 2766 "dist/build/Order" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Constr name_ _patsIcopy- {-# LINE 2772 "dist/build/Order" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 2778 "dist/build/Order" #-}- )- -- copy rule (down)- _patsOallTypeSigs =- ({-# LINE 534 "src-ag/Order.ag" #-}- _lhsIallTypeSigs- {-# LINE 2784 "dist/build/Order" #-}- )- -- copy rule (down)- _patsOaltAttrs =- ({-# LINE 187 "src-ag/Order.ag" #-}- _lhsIaltAttrs- {-# LINE 2790 "dist/build/Order" #-}- )- -- copy rule (down)- _patsOcon =- ({-# LINE 91 "src-ag/Order.ag" #-}- _lhsIcon- {-# LINE 2796 "dist/build/Order" #-}- )- -- copy rule (down)- _patsOinh =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIinh- {-# LINE 2802 "dist/build/Order" #-}- )- -- copy rule (down)- _patsOnt =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsInt- {-# LINE 2808 "dist/build/Order" #-}- )- -- copy rule (down)- _patsOsyn =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIsyn- {-# LINE 2814 "dist/build/Order" #-}- )- ( _patsIcopy,_patsIerrors,_patsIgathAltAttrs,_patsIinstVars,_patsIlocVars,_patsIpatternAttrs) =- pats_ _patsOallTypeSigs _patsOaltAttrs _patsOcon _patsOinh _patsOnt _patsOsyn- in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))))-sem_Pattern_Irrefutable :: T_Pattern ->- T_Pattern-sem_Pattern_Irrefutable (T_Pattern pat_) =- (T_Pattern (\ _lhsIallTypeSigs- _lhsIaltAttrs- _lhsIcon- _lhsIinh- _lhsInt- _lhsIsyn ->- (let _lhsOerrors :: (Seq Error)- _lhsOgathAltAttrs :: ([AltAttr])- _lhsOinstVars :: ([Identifier])- _lhsOlocVars :: ([Identifier])- _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool)])- _lhsOcopy :: Pattern- _patOallTypeSigs :: (Map Identifier Type)- _patOaltAttrs :: (Map AltAttr Vertex)- _patOcon :: Identifier- _patOinh :: Attributes- _patOnt :: Identifier- _patOsyn :: Attributes- _patIcopy :: Pattern- _patIerrors :: (Seq Error)- _patIgathAltAttrs :: ([AltAttr])- _patIinstVars :: ([Identifier])- _patIlocVars :: ([Identifier])- _patIpatternAttrs :: ([(Identifier,Identifier,Bool)])- -- use rule "src-ag/Order.ag"(line 85, column 70)- _lhsOerrors =- ({-# LINE 85 "src-ag/Order.ag" #-}- _patIerrors- {-# LINE 2850 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 171, column 68)- _lhsOgathAltAttrs =- ({-# LINE 171 "src-ag/Order.ag" #-}- _patIgathAltAttrs- {-# LINE 2856 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 678, column 86)- _lhsOinstVars =- ({-# LINE 678 "src-ag/Order.ag" #-}- _patIinstVars- {-# LINE 2862 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 678, column 48)- _lhsOlocVars =- ({-# LINE 678 "src-ag/Order.ag" #-}- _patIlocVars- {-# LINE 2868 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 248, column 42)- _lhsOpatternAttrs =- ({-# LINE 248 "src-ag/Order.ag" #-}- _patIpatternAttrs- {-# LINE 2874 "dist/build/Order" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Irrefutable _patIcopy- {-# LINE 2880 "dist/build/Order" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 2886 "dist/build/Order" #-}- )- -- copy rule (down)- _patOallTypeSigs =- ({-# LINE 534 "src-ag/Order.ag" #-}- _lhsIallTypeSigs- {-# LINE 2892 "dist/build/Order" #-}- )- -- copy rule (down)- _patOaltAttrs =- ({-# LINE 187 "src-ag/Order.ag" #-}- _lhsIaltAttrs- {-# LINE 2898 "dist/build/Order" #-}- )- -- copy rule (down)- _patOcon =- ({-# LINE 91 "src-ag/Order.ag" #-}- _lhsIcon- {-# LINE 2904 "dist/build/Order" #-}- )- -- copy rule (down)- _patOinh =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIinh- {-# LINE 2910 "dist/build/Order" #-}- )- -- copy rule (down)- _patOnt =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsInt- {-# LINE 2916 "dist/build/Order" #-}- )- -- copy rule (down)- _patOsyn =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIsyn- {-# LINE 2922 "dist/build/Order" #-}- )- ( _patIcopy,_patIerrors,_patIgathAltAttrs,_patIinstVars,_patIlocVars,_patIpatternAttrs) =- pat_ _patOallTypeSigs _patOaltAttrs _patOcon _patOinh _patOnt _patOsyn- in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))))-sem_Pattern_Product :: Pos ->- T_Patterns ->- T_Pattern-sem_Pattern_Product pos_ (T_Patterns pats_) =- (T_Pattern (\ _lhsIallTypeSigs- _lhsIaltAttrs- _lhsIcon- _lhsIinh- _lhsInt- _lhsIsyn ->- (let _lhsOerrors :: (Seq Error)- _lhsOgathAltAttrs :: ([AltAttr])- _lhsOinstVars :: ([Identifier])- _lhsOlocVars :: ([Identifier])- _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool)])- _lhsOcopy :: Pattern- _patsOallTypeSigs :: (Map Identifier Type)- _patsOaltAttrs :: (Map AltAttr Vertex)- _patsOcon :: Identifier- _patsOinh :: Attributes- _patsOnt :: Identifier- _patsOsyn :: Attributes- _patsIcopy :: Patterns- _patsIerrors :: (Seq Error)- _patsIgathAltAttrs :: ([AltAttr])- _patsIinstVars :: ([Identifier])- _patsIlocVars :: ([Identifier])- _patsIpatternAttrs :: ([(Identifier,Identifier,Bool)])- -- use rule "src-ag/Order.ag"(line 85, column 70)- _lhsOerrors =- ({-# LINE 85 "src-ag/Order.ag" #-}- _patsIerrors- {-# LINE 2959 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 171, column 68)- _lhsOgathAltAttrs =- ({-# LINE 171 "src-ag/Order.ag" #-}- _patsIgathAltAttrs- {-# LINE 2965 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 678, column 86)- _lhsOinstVars =- ({-# LINE 678 "src-ag/Order.ag" #-}- _patsIinstVars- {-# LINE 2971 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 678, column 48)- _lhsOlocVars =- ({-# LINE 678 "src-ag/Order.ag" #-}- _patsIlocVars- {-# LINE 2977 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 248, column 42)- _lhsOpatternAttrs =- ({-# LINE 248 "src-ag/Order.ag" #-}- _patsIpatternAttrs- {-# LINE 2983 "dist/build/Order" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Product pos_ _patsIcopy- {-# LINE 2989 "dist/build/Order" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 2995 "dist/build/Order" #-}- )- -- copy rule (down)- _patsOallTypeSigs =- ({-# LINE 534 "src-ag/Order.ag" #-}- _lhsIallTypeSigs- {-# LINE 3001 "dist/build/Order" #-}- )- -- copy rule (down)- _patsOaltAttrs =- ({-# LINE 187 "src-ag/Order.ag" #-}- _lhsIaltAttrs- {-# LINE 3007 "dist/build/Order" #-}- )- -- copy rule (down)- _patsOcon =- ({-# LINE 91 "src-ag/Order.ag" #-}- _lhsIcon- {-# LINE 3013 "dist/build/Order" #-}- )- -- copy rule (down)- _patsOinh =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIinh- {-# LINE 3019 "dist/build/Order" #-}- )- -- copy rule (down)- _patsOnt =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsInt- {-# LINE 3025 "dist/build/Order" #-}- )- -- copy rule (down)- _patsOsyn =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIsyn- {-# LINE 3031 "dist/build/Order" #-}- )- ( _patsIcopy,_patsIerrors,_patsIgathAltAttrs,_patsIinstVars,_patsIlocVars,_patsIpatternAttrs) =- pats_ _patsOallTypeSigs _patsOaltAttrs _patsOcon _patsOinh _patsOnt _patsOsyn- in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))))-sem_Pattern_Underscore :: Pos ->- T_Pattern-sem_Pattern_Underscore pos_ =- (T_Pattern (\ _lhsIallTypeSigs- _lhsIaltAttrs- _lhsIcon- _lhsIinh- _lhsInt- _lhsIsyn ->- (let _lhsOerrors :: (Seq Error)- _lhsOgathAltAttrs :: ([AltAttr])- _lhsOinstVars :: ([Identifier])- _lhsOlocVars :: ([Identifier])- _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool)])- _lhsOcopy :: Pattern- -- use rule "src-ag/Order.ag"(line 85, column 70)- _lhsOerrors =- ({-# LINE 85 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 3055 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 171, column 68)- _lhsOgathAltAttrs =- ({-# LINE 171 "src-ag/Order.ag" #-}- []- {-# LINE 3061 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 678, column 86)- _lhsOinstVars =- ({-# LINE 678 "src-ag/Order.ag" #-}- []- {-# LINE 3067 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 678, column 48)- _lhsOlocVars =- ({-# LINE 678 "src-ag/Order.ag" #-}- []- {-# LINE 3073 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 248, column 42)- _lhsOpatternAttrs =- ({-# LINE 248 "src-ag/Order.ag" #-}- []- {-# LINE 3079 "dist/build/Order" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Underscore pos_- {-# LINE 3085 "dist/build/Order" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 3091 "dist/build/Order" #-}- )- in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))))--- Patterns -----------------------------------------------------{-- visit 0:- inherited attributes:- allTypeSigs : Map Identifier Type- altAttrs : Map AltAttr Vertex- con : Identifier- inh : Attributes- nt : Identifier- syn : Attributes- synthesized attributes:- copy : Patterns - errors : Seq Error- gathAltAttrs : [AltAttr]- instVars : [Identifier]- locVars : [Identifier]- patternAttrs : [(Identifier,Identifier,Bool)]- 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 ((Map Identifier Type) ->- (Map AltAttr Vertex) ->- Identifier ->- Attributes ->- Identifier ->- Attributes ->- ( Patterns,(Seq Error),([AltAttr]),([Identifier]),([Identifier]),([(Identifier,Identifier,Bool)])))-data Inh_Patterns = Inh_Patterns {allTypeSigs_Inh_Patterns :: !((Map Identifier Type)),altAttrs_Inh_Patterns :: !((Map AltAttr Vertex)),con_Inh_Patterns :: !(Identifier),inh_Inh_Patterns :: !(Attributes),nt_Inh_Patterns :: !(Identifier),syn_Inh_Patterns :: !(Attributes)}-data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns),errors_Syn_Patterns :: !((Seq Error)),gathAltAttrs_Syn_Patterns :: !(([AltAttr])),instVars_Syn_Patterns :: !(([Identifier])),locVars_Syn_Patterns :: !(([Identifier])),patternAttrs_Syn_Patterns :: !(([(Identifier,Identifier,Bool)]))}-wrap_Patterns :: T_Patterns ->- Inh_Patterns ->- Syn_Patterns-wrap_Patterns (T_Patterns sem) (Inh_Patterns _lhsIallTypeSigs _lhsIaltAttrs _lhsIcon _lhsIinh _lhsInt _lhsIsyn) =- (let ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs) = sem _lhsIallTypeSigs _lhsIaltAttrs _lhsIcon _lhsIinh _lhsInt _lhsIsyn- in (Syn_Patterns _lhsOcopy _lhsOerrors _lhsOgathAltAttrs _lhsOinstVars _lhsOlocVars _lhsOpatternAttrs))-sem_Patterns_Cons :: T_Pattern ->- T_Patterns ->- T_Patterns-sem_Patterns_Cons (T_Pattern hd_) (T_Patterns tl_) =- (T_Patterns (\ _lhsIallTypeSigs- _lhsIaltAttrs- _lhsIcon- _lhsIinh- _lhsInt- _lhsIsyn ->- (let _lhsOerrors :: (Seq Error)- _lhsOgathAltAttrs :: ([AltAttr])- _lhsOinstVars :: ([Identifier])- _lhsOlocVars :: ([Identifier])- _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool)])- _lhsOcopy :: Patterns- _hdOallTypeSigs :: (Map Identifier Type)- _hdOaltAttrs :: (Map AltAttr Vertex)- _hdOcon :: Identifier- _hdOinh :: Attributes- _hdOnt :: Identifier- _hdOsyn :: Attributes- _tlOallTypeSigs :: (Map Identifier Type)- _tlOaltAttrs :: (Map AltAttr Vertex)- _tlOcon :: Identifier- _tlOinh :: Attributes- _tlOnt :: Identifier- _tlOsyn :: Attributes- _hdIcopy :: Pattern- _hdIerrors :: (Seq Error)- _hdIgathAltAttrs :: ([AltAttr])- _hdIinstVars :: ([Identifier])- _hdIlocVars :: ([Identifier])- _hdIpatternAttrs :: ([(Identifier,Identifier,Bool)])- _tlIcopy :: Patterns- _tlIerrors :: (Seq Error)- _tlIgathAltAttrs :: ([AltAttr])- _tlIinstVars :: ([Identifier])- _tlIlocVars :: ([Identifier])- _tlIpatternAttrs :: ([(Identifier,Identifier,Bool)])- -- use rule "src-ag/Order.ag"(line 85, column 70)- _lhsOerrors =- ({-# LINE 85 "src-ag/Order.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 3186 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 171, column 68)- _lhsOgathAltAttrs =- ({-# LINE 171 "src-ag/Order.ag" #-}- _hdIgathAltAttrs ++ _tlIgathAltAttrs- {-# LINE 3192 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 678, column 86)- _lhsOinstVars =- ({-# LINE 678 "src-ag/Order.ag" #-}- _hdIinstVars ++ _tlIinstVars- {-# LINE 3198 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 678, column 48)- _lhsOlocVars =- ({-# LINE 678 "src-ag/Order.ag" #-}- _hdIlocVars ++ _tlIlocVars- {-# LINE 3204 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 248, column 42)- _lhsOpatternAttrs =- ({-# LINE 248 "src-ag/Order.ag" #-}- _hdIpatternAttrs ++ _tlIpatternAttrs- {-# LINE 3210 "dist/build/Order" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- (:) _hdIcopy _tlIcopy- {-# LINE 3216 "dist/build/Order" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 3222 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOallTypeSigs =- ({-# LINE 534 "src-ag/Order.ag" #-}- _lhsIallTypeSigs- {-# LINE 3228 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOaltAttrs =- ({-# LINE 187 "src-ag/Order.ag" #-}- _lhsIaltAttrs- {-# LINE 3234 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOcon =- ({-# LINE 91 "src-ag/Order.ag" #-}- _lhsIcon- {-# LINE 3240 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOinh =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIinh- {-# LINE 3246 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOnt =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsInt- {-# LINE 3252 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOsyn =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIsyn- {-# LINE 3258 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOallTypeSigs =- ({-# LINE 534 "src-ag/Order.ag" #-}- _lhsIallTypeSigs- {-# LINE 3264 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOaltAttrs =- ({-# LINE 187 "src-ag/Order.ag" #-}- _lhsIaltAttrs- {-# LINE 3270 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOcon =- ({-# LINE 91 "src-ag/Order.ag" #-}- _lhsIcon- {-# LINE 3276 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOinh =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIinh- {-# LINE 3282 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOnt =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsInt- {-# LINE 3288 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOsyn =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIsyn- {-# LINE 3294 "dist/build/Order" #-}- )- ( _hdIcopy,_hdIerrors,_hdIgathAltAttrs,_hdIinstVars,_hdIlocVars,_hdIpatternAttrs) =- hd_ _hdOallTypeSigs _hdOaltAttrs _hdOcon _hdOinh _hdOnt _hdOsyn- ( _tlIcopy,_tlIerrors,_tlIgathAltAttrs,_tlIinstVars,_tlIlocVars,_tlIpatternAttrs) =- tl_ _tlOallTypeSigs _tlOaltAttrs _tlOcon _tlOinh _tlOnt _tlOsyn- in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))))-sem_Patterns_Nil :: T_Patterns-sem_Patterns_Nil =- (T_Patterns (\ _lhsIallTypeSigs- _lhsIaltAttrs- _lhsIcon- _lhsIinh- _lhsInt- _lhsIsyn ->- (let _lhsOerrors :: (Seq Error)- _lhsOgathAltAttrs :: ([AltAttr])- _lhsOinstVars :: ([Identifier])- _lhsOlocVars :: ([Identifier])- _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool)])- _lhsOcopy :: Patterns- -- use rule "src-ag/Order.ag"(line 85, column 70)- _lhsOerrors =- ({-# LINE 85 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 3319 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 171, column 68)- _lhsOgathAltAttrs =- ({-# LINE 171 "src-ag/Order.ag" #-}- []- {-# LINE 3325 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 678, column 86)- _lhsOinstVars =- ({-# LINE 678 "src-ag/Order.ag" #-}- []- {-# LINE 3331 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 678, column 48)- _lhsOlocVars =- ({-# LINE 678 "src-ag/Order.ag" #-}- []- {-# LINE 3337 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 248, column 42)- _lhsOpatternAttrs =- ({-# LINE 248 "src-ag/Order.ag" #-}- []- {-# LINE 3343 "dist/build/Order" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- []- {-# LINE 3349 "dist/build/Order" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 3355 "dist/build/Order" #-}- )- in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))))--- Production ---------------------------------------------------{-- visit 0:- inherited attributes:- allnts : [Identifier]- aroundMap : Map ConstructorIdent (Map Identifier [Expression])- cVisitsMap : CVisitsMap- inh : Attributes- inhMap : Map Identifier Attributes- manualAttrDepMap : AttrOrderMap- mergeMap : Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))- nt : Identifier- o_case : Bool- o_cata : Bool- o_dovisit : Bool- o_newtypes : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_unbox : Bool- o_wantvisit : Bool- prefix : String- syn : Attributes- synMap : Map Identifier Attributes- chained attribute:- vcount : Int- synthesized attributes:- additionalDep : Seq Edge- aroundDep : Seq Edge- cProduction : CProduction- cons : [ConstructorIdent]- directDep : Seq Edge- errors : Seq Error- instDep : Seq Edge- mergeDep : Seq Edge- nAutoRules : Int- nExplicitRules : Int- rules : Seq (Vertex,CRule)- alternatives:- alternative Production:- child con : {ConstructorIdent}- child params : {[Identifier]}- child constraints : {[Type]}- child children : Children - child rules : Rules - child typeSigs : TypeSigs - child macro : {MaybeMacro}- visit 0:- local gathAltAttrs : _- local altAttrs : _- local inhRules : _- local gathRules : _- local manualDeps : _- local mergeMap : _- local mergeDep1 : _- local mergeDep2 : _- local aroundMap : _- local aroundDep1 : _- local aroundDep2 : _- local cVisits : _- local allfields : _- local attrs : _- local inhnames : _- local synnames : _--}--- cata-sem_Production :: Production ->- T_Production-sem_Production (Production _con _params _constraints _children _rules _typeSigs _macro) =- (sem_Production_Production _con _params _constraints (sem_Children _children) (sem_Rules _rules) (sem_TypeSigs _typeSigs) _macro)--- semantic domain-newtype T_Production = T_Production (([Identifier]) ->- (Map ConstructorIdent (Map Identifier [Expression])) ->- CVisitsMap ->- Attributes ->- (Map Identifier Attributes) ->- AttrOrderMap ->- (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))) ->- Identifier ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- String ->- Attributes ->- (Map Identifier Attributes) ->- Int ->- ( (Seq Edge),(Seq Edge),CProduction,([ConstructorIdent]),(Seq Edge),(Seq Error),(Seq Edge),(Seq Edge),Int,Int,(Seq (Vertex,CRule)),Int))-data Inh_Production = Inh_Production {allnts_Inh_Production :: !(([Identifier])),aroundMap_Inh_Production :: !((Map ConstructorIdent (Map Identifier [Expression]))),cVisitsMap_Inh_Production :: !(CVisitsMap),inh_Inh_Production :: !(Attributes),inhMap_Inh_Production :: !((Map Identifier Attributes)),manualAttrDepMap_Inh_Production :: !(AttrOrderMap),mergeMap_Inh_Production :: !((Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))),nt_Inh_Production :: !(Identifier),o_case_Inh_Production :: !(Bool),o_cata_Inh_Production :: !(Bool),o_dovisit_Inh_Production :: !(Bool),o_newtypes_Inh_Production :: !(Bool),o_rename_Inh_Production :: !(Bool),o_sem_Inh_Production :: !(Bool),o_sig_Inh_Production :: !(Bool),o_unbox_Inh_Production :: !(Bool),o_wantvisit_Inh_Production :: !(Bool),prefix_Inh_Production :: !(String),syn_Inh_Production :: !(Attributes),synMap_Inh_Production :: !((Map Identifier Attributes)),vcount_Inh_Production :: !(Int)}-data Syn_Production = Syn_Production {additionalDep_Syn_Production :: !((Seq Edge)),aroundDep_Syn_Production :: !((Seq Edge)),cProduction_Syn_Production :: !(CProduction),cons_Syn_Production :: !(([ConstructorIdent])),directDep_Syn_Production :: !((Seq Edge)),errors_Syn_Production :: !((Seq Error)),instDep_Syn_Production :: !((Seq Edge)),mergeDep_Syn_Production :: !((Seq Edge)),nAutoRules_Syn_Production :: !(Int),nExplicitRules_Syn_Production :: !(Int),rules_Syn_Production :: !((Seq (Vertex,CRule))),vcount_Syn_Production :: !(Int)}-wrap_Production :: T_Production ->- Inh_Production ->- Syn_Production-wrap_Production (T_Production sem) (Inh_Production _lhsIallnts _lhsIaroundMap _lhsIcVisitsMap _lhsIinh _lhsIinhMap _lhsImanualAttrDepMap _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynMap _lhsIvcount) =- (let ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProduction,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOrules,_lhsOvcount) = sem _lhsIallnts _lhsIaroundMap _lhsIcVisitsMap _lhsIinh _lhsIinhMap _lhsImanualAttrDepMap _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynMap _lhsIvcount- in (Syn_Production _lhsOadditionalDep _lhsOaroundDep _lhsOcProduction _lhsOcons _lhsOdirectDep _lhsOerrors _lhsOinstDep _lhsOmergeDep _lhsOnAutoRules _lhsOnExplicitRules _lhsOrules _lhsOvcount))-sem_Production_Production :: ConstructorIdent ->- ([Identifier]) ->- ([Type]) ->- T_Children ->- T_Rules ->- T_TypeSigs ->- MaybeMacro ->- T_Production-sem_Production_Production con_ params_ constraints_ (T_Children children_) (T_Rules rules_) (T_TypeSigs typeSigs_) macro_ =- (T_Production (\ _lhsIallnts- _lhsIaroundMap- _lhsIcVisitsMap- _lhsIinh- _lhsIinhMap- _lhsImanualAttrDepMap- _lhsImergeMap- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_dovisit- _lhsIo_newtypes- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_unbox- _lhsIo_wantvisit- _lhsIprefix- _lhsIsyn- _lhsIsynMap- _lhsIvcount ->- (let _childrenOcon :: Identifier- _rulesOcon :: Identifier- _rulesOchildNts :: (Map Identifier NontermIdent)- _rulesOchildInhs :: (Map Identifier Attributes)- _lhsOrules :: (Seq (Vertex,CRule))- _lhsOvcount :: Int- _lhsOadditionalDep :: (Seq Edge)- _rulesOsynsOfChildren :: (Map Identifier Attributes)- _rulesOinhsOfChildren :: (Map Identifier Attributes)- _lhsOmergeDep :: (Seq Edge)- _lhsOaroundDep :: (Seq Edge)- _lhsOcons :: ([ConstructorIdent])- _typeSigsOtypeSigs :: (Map Identifier Type)- _rulesOallTypeSigs :: (Map Identifier Type)- _lhsOcProduction :: CProduction- _lhsOdirectDep :: (Seq Edge)- _lhsOerrors :: (Seq Error)- _lhsOinstDep :: (Seq Edge)- _lhsOnAutoRules :: Int- _lhsOnExplicitRules :: Int- _childrenOallfields :: ([(Identifier,Type,ChildKind)])- _childrenOallnts :: ([Identifier])- _childrenOattrs :: ([(Identifier,Identifier)])- _childrenOinh :: Attributes- _childrenOinhMap :: (Map Identifier Attributes)- _childrenOmergeMap :: (Map Identifier (Identifier,[Identifier]))- _childrenOnt :: Identifier- _childrenOo_unbox :: Bool- _childrenOsyn :: Attributes- _childrenOsynMap :: (Map Identifier Attributes)- _rulesOallfields :: ([(Identifier,Type,ChildKind)])- _rulesOallnts :: ([Identifier])- _rulesOaltAttrs :: (Map AltAttr Vertex)- _rulesOattrs :: ([(Identifier,Identifier)])- _rulesOinh :: Attributes- _rulesOmergeMap :: (Map Identifier (Identifier,[Identifier]))- _rulesOnt :: Identifier- _rulesOo_case :: Bool- _rulesOo_cata :: Bool- _rulesOo_dovisit :: Bool- _rulesOo_newtypes :: Bool- _rulesOo_rename :: Bool- _rulesOo_sem :: Bool- _rulesOo_sig :: Bool- _rulesOo_wantvisit :: Bool- _rulesOprefix :: String- _rulesOsyn :: Attributes- _childrenIattributes :: ([(Identifier,Attributes,Attributes)])- _childrenIcollectChildrenInhs :: (Map Identifier Attributes )- _childrenIcollectChildrenSyns :: (Map Identifier Attributes )- _childrenIerrors :: (Seq Error)- _childrenIfields :: ([(Identifier,Type,ChildKind)])- _childrenIgathAltAttrs :: ([AltAttr])- _childrenIgathRules :: (Seq CRule)- _childrenIinhs :: (Seq (Identifier,Attributes))- _childrenInts :: (Seq (Identifier,NontermIdent))- _childrenIsinglevisits :: ([CRule])- _childrenIterminals :: ([Identifier])- _rulesIdirectDep :: (Seq Edge)- _rulesIerrors :: (Seq Error)- _rulesIgathAltAttrs :: ([AltAttr])- _rulesIgathRules :: (Seq CRule)- _rulesIinstDep :: (Seq Edge)- _rulesIinstVars :: ([Identifier])- _rulesIlocVars :: ([Identifier])- _rulesInAutoRules :: Int- _rulesInExplicitRules :: Int- _typeSigsItypeSigs :: (Map Identifier Type)- -- "src-ag/Order.ag"(line 94, column 16)- _childrenOcon =- ({-# LINE 94 "src-ag/Order.ag" #-}- con_- {-# LINE 3561 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 96, column 16)- _rulesOcon =- ({-# LINE 96 "src-ag/Order.ag" #-}- con_- {-# LINE 3567 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 173, column 18)- _gathAltAttrs =- ({-# LINE 173 "src-ag/Order.ag" #-}- [ AltAttr _LHS inh True | inh <- Map.keys _lhsIinh ]- ++ _childrenIgathAltAttrs- ++ _rulesIgathAltAttrs- {-# LINE 3575 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 189, column 17)- _altAttrs =- ({-# LINE 189 "src-ag/Order.ag" #-}- Map.fromList (zip _gathAltAttrs [_lhsIvcount..])- {-# LINE 3581 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 202, column 18)- _rulesOchildNts =- ({-# LINE 202 "src-ag/Order.ag" #-}- Map.fromList (toList _childrenInts)- {-# LINE 3587 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 203, column 19)- _rulesOchildInhs =- ({-# LINE 203 "src-ag/Order.ag" #-}- Map.fromList (toList _childrenIinhs)- {-# LINE 3593 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 209, column 18)- _inhRules =- ({-# LINE 209 "src-ag/Order.ag" #-}- [ cRuleLhsInh inh _lhsInt con_ tp | (inh,tp) <- Map.assocs _lhsIinh ]- {-# LINE 3599 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 210, column 19)- _gathRules =- ({-# LINE 210 "src-ag/Order.ag" #-}- _inhRules ++ toList (_childrenIgathRules Seq.>< _rulesIgathRules)- {-# LINE 3605 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 262, column 18)- _lhsOrules =- ({-# LINE 262 "src-ag/Order.ag" #-}- Seq.fromList (zip [_lhsIvcount..] _gathRules)- {-# LINE 3611 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 263, column 19)- _lhsOvcount =- ({-# LINE 263 "src-ag/Order.ag" #-}- _lhsIvcount + length _gathRules- {-# LINE 3617 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 290, column 7)- _manualDeps =- ({-# LINE 290 "src-ag/Order.ag" #-}- Set.toList $ Map.findWithDefault Set.empty con_ $ Map.findWithDefault Map.empty _lhsInt _lhsImanualAttrDepMap- {-# LINE 3623 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 293, column 7)- _lhsOadditionalDep =- ({-# LINE 293 "src-ag/Order.ag" #-}- Seq.fromList [ (vertex True occA, vertex False occB)- | Dependency occA occB <- _manualDeps- , let vertex inout (OccAttr child nm)- | child == _LOC = findWithErr2 (AltAttr _LOC nm True) _altAttrs- | otherwise = findWithErr2 (AltAttr child nm inout) _altAttrs- vertex _ (OccRule nm)- = findWithErr2 (AltAttr _LOC (Ident ("_rule_" ++ show nm) (getPos nm)) True) _altAttrs- ]- {-# LINE 3636 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 340, column 17)- _rulesOsynsOfChildren =- ({-# LINE 340 "src-ag/Order.ag" #-}- _childrenIcollectChildrenSyns- {-# LINE 3642 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 341, column 17)- _rulesOinhsOfChildren =- ({-# LINE 341 "src-ag/Order.ag" #-}- _childrenIcollectChildrenInhs- {-# LINE 3648 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 359, column 32)- _mergeMap =- ({-# LINE 359 "src-ag/Order.ag" #-}- Map.findWithDefault Map.empty con_ _lhsImergeMap- {-# LINE 3654 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 370, column 7)- _lhsOmergeDep =- ({-# LINE 370 "src-ag/Order.ag" #-}- _mergeDep1 Seq.>< _mergeDep2- {-# LINE 3660 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 371, column 7)- _mergeDep1 =- ({-# LINE 371 "src-ag/Order.ag" #-}- Seq.fromList $- [ (childVert, synVert)- | childNm <- Map.keys _mergeMap- , synNm <- Map.keys (findWithErr2 childNm _childrenIcollectChildrenSyns)- , let childNm' = Ident (show childNm ++ "_merge") (getPos childNm)- childAttr = AltAttr _LOC childNm' True- synAttr = AltAttr childNm synNm True- childVert = findWithErr2 childAttr _altAttrs- synVert = findWithErr2 synAttr _altAttrs- ]- {-# LINE 3675 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 382, column 7)- _mergeDep2 =- ({-# LINE 382 "src-ag/Order.ag" #-}- Seq.fromList $- [ (mergedVert, sourceVert)- | (childNm, (_,cs)) <- Map.assocs _mergeMap- , c <- cs- , synNm <- Map.keys (findWithErr2 childNm _childrenIcollectChildrenSyns)- , let sourceAttr = AltAttr childNm synNm True- mergedAttr = AltAttr c synNm True- sourceVert = findWithErr2 sourceAttr _altAttrs- mergedVert = findWithErr2 mergedAttr _altAttrs- ]- {-# LINE 3690 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 412, column 32)- _aroundMap =- ({-# LINE 412 "src-ag/Order.ag" #-}- Map.findWithDefault Map.empty con_ _lhsIaroundMap- {-# LINE 3696 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 419, column 6)- _aroundDep1 =- ({-# LINE 419 "src-ag/Order.ag" #-}- Seq.fromList $- [ (childVert, synVert)- | childNm <- Map.keys _aroundMap- , synNm <- Map.keys (findWithErr2 childNm _childrenIcollectChildrenSyns)- , let childNm' = Ident (show childNm ++ "_around") (getPos childNm)- childAttr = AltAttr _LOC childNm' True- synAttr = AltAttr childNm synNm True- childVert = findWithErr2 childAttr _altAttrs- synVert = findWithErr2 synAttr _altAttrs- ]- {-# LINE 3711 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 430, column 6)- _aroundDep2 =- ({-# LINE 430 "src-ag/Order.ag" #-}- Seq.fromList $- [ (childVert, inhVert)- | childNm <- Map.keys _aroundMap- , inhNm <- Map.keys (findWithErr2 childNm _childrenIcollectChildrenInhs)- , let childNm' = Ident (show childNm ++ "_around") (getPos childNm)- childAttr = AltAttr _LOC childNm' True- inhAttr = AltAttr childNm inhNm False- childVert = findWithErr2 childAttr _altAttrs- inhVert = findWithErr2 inhAttr _altAttrs- ]- {-# LINE 3726 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 441, column 6)- _lhsOaroundDep =- ({-# LINE 441 "src-ag/Order.ag" #-}- _aroundDep1 Seq.>< _aroundDep2- {-# LINE 3732 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 523, column 18)- _lhsOcons =- ({-# LINE 523 "src-ag/Order.ag" #-}- [con_]- {-# LINE 3738 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 530, column 16)- _typeSigsOtypeSigs =- ({-# LINE 530 "src-ag/Order.ag" #-}- Map.empty- {-# LINE 3744 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 536, column 17)- _rulesOallTypeSigs =- ({-# LINE 536 "src-ag/Order.ag" #-}- _typeSigsItypeSigs- {-# LINE 3750 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 604, column 17)- _cVisits =- ({-# LINE 604 "src-ag/Order.ag" #-}- if _lhsIo_dovisit- then let prodsVisitsMap = findWithErr1 "Production.cVisits.nt" _lhsInt _lhsIcVisitsMap- visits = findWithErr1 "Production.cVisits.con" con_ prodsVisitsMap- in visits- else let vss = nubBy eqCRuleDefines _gathRules ++ _childrenIsinglevisits- in [CVisit _lhsIinh _lhsIsyn vss [] False]- {-# LINE 3761 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 630, column 18)- _lhsOcProduction =- ({-# LINE 630 "src-ag/Order.ag" #-}- CProduction con_ _cVisits _childrenIfields _childrenIterminals- {-# LINE 3767 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 658, column 16)- _allfields =- ({-# LINE 658 "src-ag/Order.ag" #-}- _childrenIfields- {-# LINE 3773 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 658, column 16)- _attrs =- ({-# LINE 659 "src-ag/Order.ag" #-}- map ((,) _LOC) _rulesIlocVars ++- map ((,) _INST) _rulesIinstVars ++- map ((,) _LHS) _inhnames ++- concat [map ((,) nm) (Map.keys as) | (nm,_,as) <- _childrenIattributes]- {-# LINE 3782 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 658, column 16)- _inhnames =- ({-# LINE 663 "src-ag/Order.ag" #-}- Map.keys _lhsIinh- {-# LINE 3788 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 658, column 16)- _synnames =- ({-# LINE 664 "src-ag/Order.ag" #-}- Map.keys _lhsIsyn- {-# LINE 3794 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 268, column 33)- _lhsOdirectDep =- ({-# LINE 268 "src-ag/Order.ag" #-}- _rulesIdirectDep- {-# LINE 3800 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 85, column 70)- _lhsOerrors =- ({-# LINE 85 "src-ag/Order.ag" #-}- _childrenIerrors Seq.>< _rulesIerrors- {-# LINE 3806 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 311, column 31)- _lhsOinstDep =- ({-# LINE 311 "src-ag/Order.ag" #-}- _rulesIinstDep- {-# LINE 3812 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 62, column 105)- _lhsOnAutoRules =- ({-# LINE 62 "src-ag/Order.ag" #-}- _rulesInAutoRules- {-# LINE 3818 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 62, column 105)- _lhsOnExplicitRules =- ({-# LINE 62 "src-ag/Order.ag" #-}- _rulesInExplicitRules- {-# LINE 3824 "dist/build/Order" #-}- )- -- copy rule (from local)- _childrenOallfields =- ({-# LINE 655 "src-ag/Order.ag" #-}- _allfields- {-# LINE 3830 "dist/build/Order" #-}- )- -- copy rule (down)- _childrenOallnts =- ({-# LINE 648 "src-ag/Order.ag" #-}- _lhsIallnts- {-# LINE 3836 "dist/build/Order" #-}- )- -- copy rule (from local)- _childrenOattrs =- ({-# LINE 655 "src-ag/Order.ag" #-}- _attrs- {-# LINE 3842 "dist/build/Order" #-}- )- -- copy rule (down)- _childrenOinh =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIinh- {-# LINE 3848 "dist/build/Order" #-}- )- -- copy rule (down)- _childrenOinhMap =- ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}- _lhsIinhMap- {-# LINE 3854 "dist/build/Order" #-}- )- -- copy rule (from local)- _childrenOmergeMap =- ({-# LINE 361 "src-ag/Order.ag" #-}- _mergeMap- {-# LINE 3860 "dist/build/Order" #-}- )- -- copy rule (down)- _childrenOnt =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsInt- {-# LINE 3866 "dist/build/Order" #-}- )- -- copy rule (down)- _childrenOo_unbox =- ({-# LINE 120 "src-ag/Order.ag" #-}- _lhsIo_unbox- {-# LINE 3872 "dist/build/Order" #-}- )- -- copy rule (down)- _childrenOsyn =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIsyn- {-# LINE 3878 "dist/build/Order" #-}- )- -- copy rule (down)- _childrenOsynMap =- ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}- _lhsIsynMap- {-# LINE 3884 "dist/build/Order" #-}- )- -- copy rule (from local)- _rulesOallfields =- ({-# LINE 655 "src-ag/Order.ag" #-}- _allfields- {-# LINE 3890 "dist/build/Order" #-}- )- -- copy rule (down)- _rulesOallnts =- ({-# LINE 648 "src-ag/Order.ag" #-}- _lhsIallnts- {-# LINE 3896 "dist/build/Order" #-}- )- -- copy rule (from local)- _rulesOaltAttrs =- ({-# LINE 187 "src-ag/Order.ag" #-}- _altAttrs- {-# LINE 3902 "dist/build/Order" #-}- )- -- copy rule (from local)- _rulesOattrs =- ({-# LINE 655 "src-ag/Order.ag" #-}- _attrs- {-# LINE 3908 "dist/build/Order" #-}- )- -- copy rule (down)- _rulesOinh =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIinh- {-# LINE 3914 "dist/build/Order" #-}- )- -- copy rule (from local)- _rulesOmergeMap =- ({-# LINE 361 "src-ag/Order.ag" #-}- _mergeMap- {-# LINE 3920 "dist/build/Order" #-}- )- -- copy rule (down)- _rulesOnt =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsInt- {-# LINE 3926 "dist/build/Order" #-}- )- -- copy rule (down)- _rulesOo_case =- ({-# LINE 118 "src-ag/Order.ag" #-}- _lhsIo_case- {-# LINE 3932 "dist/build/Order" #-}- )- -- copy rule (down)- _rulesOo_cata =- ({-# LINE 112 "src-ag/Order.ag" #-}- _lhsIo_cata- {-# LINE 3938 "dist/build/Order" #-}- )- -- copy rule (down)- _rulesOo_dovisit =- ({-# LINE 117 "src-ag/Order.ag" #-}- _lhsIo_dovisit- {-# LINE 3944 "dist/build/Order" #-}- )- -- copy rule (down)- _rulesOo_newtypes =- ({-# LINE 111 "src-ag/Order.ag" #-}- _lhsIo_newtypes- {-# LINE 3950 "dist/build/Order" #-}- )- -- copy rule (down)- _rulesOo_rename =- ({-# LINE 115 "src-ag/Order.ag" #-}- _lhsIo_rename- {-# LINE 3956 "dist/build/Order" #-}- )- -- copy rule (down)- _rulesOo_sem =- ({-# LINE 114 "src-ag/Order.ag" #-}- _lhsIo_sem- {-# LINE 3962 "dist/build/Order" #-}- )- -- copy rule (down)- _rulesOo_sig =- ({-# LINE 113 "src-ag/Order.ag" #-}- _lhsIo_sig- {-# LINE 3968 "dist/build/Order" #-}- )- -- copy rule (down)- _rulesOo_wantvisit =- ({-# LINE 116 "src-ag/Order.ag" #-}- _lhsIo_wantvisit- {-# LINE 3974 "dist/build/Order" #-}- )- -- copy rule (down)- _rulesOprefix =- ({-# LINE 119 "src-ag/Order.ag" #-}- _lhsIprefix- {-# LINE 3980 "dist/build/Order" #-}- )- -- copy rule (down)- _rulesOsyn =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIsyn- {-# LINE 3986 "dist/build/Order" #-}- )- ( _childrenIattributes,_childrenIcollectChildrenInhs,_childrenIcollectChildrenSyns,_childrenIerrors,_childrenIfields,_childrenIgathAltAttrs,_childrenIgathRules,_childrenIinhs,_childrenInts,_childrenIsinglevisits,_childrenIterminals) =- children_ _childrenOallfields _childrenOallnts _childrenOattrs _childrenOcon _childrenOinh _childrenOinhMap _childrenOmergeMap _childrenOnt _childrenOo_unbox _childrenOsyn _childrenOsynMap- ( _rulesIdirectDep,_rulesIerrors,_rulesIgathAltAttrs,_rulesIgathRules,_rulesIinstDep,_rulesIinstVars,_rulesIlocVars,_rulesInAutoRules,_rulesInExplicitRules) =- rules_ _rulesOallTypeSigs _rulesOallfields _rulesOallnts _rulesOaltAttrs _rulesOattrs _rulesOchildInhs _rulesOchildNts _rulesOcon _rulesOinh _rulesOinhsOfChildren _rulesOmergeMap _rulesOnt _rulesOo_case _rulesOo_cata _rulesOo_dovisit _rulesOo_newtypes _rulesOo_rename _rulesOo_sem _rulesOo_sig _rulesOo_wantvisit _rulesOprefix _rulesOsyn _rulesOsynsOfChildren- ( _typeSigsItypeSigs) =- typeSigs_ _typeSigsOtypeSigs- in ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProduction,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOrules,_lhsOvcount))))--- Productions --------------------------------------------------{-- visit 0:- inherited attributes:- allnts : [Identifier]- aroundMap : Map ConstructorIdent (Map Identifier [Expression])- cVisitsMap : CVisitsMap- inh : Attributes- inhMap : Map Identifier Attributes- manualAttrDepMap : AttrOrderMap- mergeMap : Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))- nt : Identifier- o_case : Bool- o_cata : Bool- o_dovisit : Bool- o_newtypes : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_unbox : Bool- o_wantvisit : Bool- prefix : String- syn : Attributes- synMap : Map Identifier Attributes- chained attribute:- vcount : Int- synthesized attributes:- additionalDep : Seq Edge- aroundDep : Seq Edge- cProductions : CProductions- cons : [ConstructorIdent]- directDep : Seq Edge- errors : Seq Error- instDep : Seq Edge- mergeDep : Seq Edge- nAutoRules : Int- nExplicitRules : Int- rules : Seq (Vertex,CRule)- alternatives:- alternative Cons:- child hd : Production - child tl : Productions - alternative Nil:--}--- cata-sem_Productions :: Productions ->- T_Productions-sem_Productions list =- (Prelude.foldr sem_Productions_Cons sem_Productions_Nil (Prelude.map sem_Production list))--- semantic domain-newtype T_Productions = T_Productions (([Identifier]) ->- (Map ConstructorIdent (Map Identifier [Expression])) ->- CVisitsMap ->- Attributes ->- (Map Identifier Attributes) ->- AttrOrderMap ->- (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))) ->- Identifier ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- String ->- Attributes ->- (Map Identifier Attributes) ->- Int ->- ( (Seq Edge),(Seq Edge),CProductions,([ConstructorIdent]),(Seq Edge),(Seq Error),(Seq Edge),(Seq Edge),Int,Int,(Seq (Vertex,CRule)),Int))-data Inh_Productions = Inh_Productions {allnts_Inh_Productions :: !(([Identifier])),aroundMap_Inh_Productions :: !((Map ConstructorIdent (Map Identifier [Expression]))),cVisitsMap_Inh_Productions :: !(CVisitsMap),inh_Inh_Productions :: !(Attributes),inhMap_Inh_Productions :: !((Map Identifier Attributes)),manualAttrDepMap_Inh_Productions :: !(AttrOrderMap),mergeMap_Inh_Productions :: !((Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))),nt_Inh_Productions :: !(Identifier),o_case_Inh_Productions :: !(Bool),o_cata_Inh_Productions :: !(Bool),o_dovisit_Inh_Productions :: !(Bool),o_newtypes_Inh_Productions :: !(Bool),o_rename_Inh_Productions :: !(Bool),o_sem_Inh_Productions :: !(Bool),o_sig_Inh_Productions :: !(Bool),o_unbox_Inh_Productions :: !(Bool),o_wantvisit_Inh_Productions :: !(Bool),prefix_Inh_Productions :: !(String),syn_Inh_Productions :: !(Attributes),synMap_Inh_Productions :: !((Map Identifier Attributes)),vcount_Inh_Productions :: !(Int)}-data Syn_Productions = Syn_Productions {additionalDep_Syn_Productions :: !((Seq Edge)),aroundDep_Syn_Productions :: !((Seq Edge)),cProductions_Syn_Productions :: !(CProductions),cons_Syn_Productions :: !(([ConstructorIdent])),directDep_Syn_Productions :: !((Seq Edge)),errors_Syn_Productions :: !((Seq Error)),instDep_Syn_Productions :: !((Seq Edge)),mergeDep_Syn_Productions :: !((Seq Edge)),nAutoRules_Syn_Productions :: !(Int),nExplicitRules_Syn_Productions :: !(Int),rules_Syn_Productions :: !((Seq (Vertex,CRule))),vcount_Syn_Productions :: !(Int)}-wrap_Productions :: T_Productions ->- Inh_Productions ->- Syn_Productions-wrap_Productions (T_Productions sem) (Inh_Productions _lhsIallnts _lhsIaroundMap _lhsIcVisitsMap _lhsIinh _lhsIinhMap _lhsImanualAttrDepMap _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynMap _lhsIvcount) =- (let ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProductions,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOrules,_lhsOvcount) = sem _lhsIallnts _lhsIaroundMap _lhsIcVisitsMap _lhsIinh _lhsIinhMap _lhsImanualAttrDepMap _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynMap _lhsIvcount- in (Syn_Productions _lhsOadditionalDep _lhsOaroundDep _lhsOcProductions _lhsOcons _lhsOdirectDep _lhsOerrors _lhsOinstDep _lhsOmergeDep _lhsOnAutoRules _lhsOnExplicitRules _lhsOrules _lhsOvcount))-sem_Productions_Cons :: T_Production ->- T_Productions ->- T_Productions-sem_Productions_Cons (T_Production hd_) (T_Productions tl_) =- (T_Productions (\ _lhsIallnts- _lhsIaroundMap- _lhsIcVisitsMap- _lhsIinh- _lhsIinhMap- _lhsImanualAttrDepMap- _lhsImergeMap- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_dovisit- _lhsIo_newtypes- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_unbox- _lhsIo_wantvisit- _lhsIprefix- _lhsIsyn- _lhsIsynMap- _lhsIvcount ->- (let _lhsOcProductions :: CProductions- _lhsOadditionalDep :: (Seq Edge)- _lhsOaroundDep :: (Seq Edge)- _lhsOcons :: ([ConstructorIdent])- _lhsOdirectDep :: (Seq Edge)- _lhsOerrors :: (Seq Error)- _lhsOinstDep :: (Seq Edge)- _lhsOmergeDep :: (Seq Edge)- _lhsOnAutoRules :: Int- _lhsOnExplicitRules :: Int- _lhsOrules :: (Seq (Vertex,CRule))- _lhsOvcount :: Int- _hdOallnts :: ([Identifier])- _hdOaroundMap :: (Map ConstructorIdent (Map Identifier [Expression]))- _hdOcVisitsMap :: CVisitsMap- _hdOinh :: Attributes- _hdOinhMap :: (Map Identifier Attributes)- _hdOmanualAttrDepMap :: AttrOrderMap- _hdOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))- _hdOnt :: Identifier- _hdOo_case :: Bool- _hdOo_cata :: Bool- _hdOo_dovisit :: Bool- _hdOo_newtypes :: Bool- _hdOo_rename :: Bool- _hdOo_sem :: Bool- _hdOo_sig :: Bool- _hdOo_unbox :: Bool- _hdOo_wantvisit :: Bool- _hdOprefix :: String- _hdOsyn :: Attributes- _hdOsynMap :: (Map Identifier Attributes)- _hdOvcount :: Int- _tlOallnts :: ([Identifier])- _tlOaroundMap :: (Map ConstructorIdent (Map Identifier [Expression]))- _tlOcVisitsMap :: CVisitsMap- _tlOinh :: Attributes- _tlOinhMap :: (Map Identifier Attributes)- _tlOmanualAttrDepMap :: AttrOrderMap- _tlOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))- _tlOnt :: Identifier- _tlOo_case :: Bool- _tlOo_cata :: Bool- _tlOo_dovisit :: Bool- _tlOo_newtypes :: Bool- _tlOo_rename :: Bool- _tlOo_sem :: Bool- _tlOo_sig :: Bool- _tlOo_unbox :: Bool- _tlOo_wantvisit :: Bool- _tlOprefix :: String- _tlOsyn :: Attributes- _tlOsynMap :: (Map Identifier Attributes)- _tlOvcount :: Int- _hdIadditionalDep :: (Seq Edge)- _hdIaroundDep :: (Seq Edge)- _hdIcProduction :: CProduction- _hdIcons :: ([ConstructorIdent])- _hdIdirectDep :: (Seq Edge)- _hdIerrors :: (Seq Error)- _hdIinstDep :: (Seq Edge)- _hdImergeDep :: (Seq Edge)- _hdInAutoRules :: Int- _hdInExplicitRules :: Int- _hdIrules :: (Seq (Vertex,CRule))- _hdIvcount :: Int- _tlIadditionalDep :: (Seq Edge)- _tlIaroundDep :: (Seq Edge)- _tlIcProductions :: CProductions- _tlIcons :: ([ConstructorIdent])- _tlIdirectDep :: (Seq Edge)- _tlIerrors :: (Seq Error)- _tlIinstDep :: (Seq Edge)- _tlImergeDep :: (Seq Edge)- _tlInAutoRules :: Int- _tlInExplicitRules :: Int- _tlIrules :: (Seq (Vertex,CRule))- _tlIvcount :: Int- -- "src-ag/Order.ag"(line 627, column 12)- _lhsOcProductions =- ({-# LINE 627 "src-ag/Order.ag" #-}- _hdIcProduction : _tlIcProductions- {-# LINE 4182 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 282, column 60)- _lhsOadditionalDep =- ({-# LINE 282 "src-ag/Order.ag" #-}- _hdIadditionalDep Seq.>< _tlIadditionalDep- {-# LINE 4188 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 403, column 24)- _lhsOaroundDep =- ({-# LINE 403 "src-ag/Order.ag" #-}- _hdIaroundDep Seq.>< _tlIaroundDep- {-# LINE 4194 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 521, column 40)- _lhsOcons =- ({-# LINE 521 "src-ag/Order.ag" #-}- _hdIcons ++ _tlIcons- {-# LINE 4200 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 268, column 33)- _lhsOdirectDep =- ({-# LINE 268 "src-ag/Order.ag" #-}- _hdIdirectDep Seq.>< _tlIdirectDep- {-# LINE 4206 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 85, column 70)- _lhsOerrors =- ({-# LINE 85 "src-ag/Order.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 4212 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 311, column 31)- _lhsOinstDep =- ({-# LINE 311 "src-ag/Order.ag" #-}- _hdIinstDep Seq.>< _tlIinstDep- {-# LINE 4218 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 366, column 18)- _lhsOmergeDep =- ({-# LINE 366 "src-ag/Order.ag" #-}- _hdImergeDep Seq.>< _tlImergeDep- {-# LINE 4224 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 62, column 105)- _lhsOnAutoRules =- ({-# LINE 62 "src-ag/Order.ag" #-}- _hdInAutoRules + _tlInAutoRules- {-# LINE 4230 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 62, column 105)- _lhsOnExplicitRules =- ({-# LINE 62 "src-ag/Order.ag" #-}- _hdInExplicitRules + _tlInExplicitRules- {-# LINE 4236 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 258, column 18)- _lhsOrules =- ({-# LINE 258 "src-ag/Order.ag" #-}- _hdIrules Seq.>< _tlIrules- {-# LINE 4242 "dist/build/Order" #-}- )- -- copy rule (up)- _lhsOvcount =- ({-# LINE 257 "src-ag/Order.ag" #-}- _tlIvcount- {-# LINE 4248 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOallnts =- ({-# LINE 648 "src-ag/Order.ag" #-}- _lhsIallnts- {-# LINE 4254 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOaroundMap =- ({-# LINE 409 "src-ag/Order.ag" #-}- _lhsIaroundMap- {-# LINE 4260 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOcVisitsMap =- ({-# LINE 602 "src-ag/Order.ag" #-}- _lhsIcVisitsMap- {-# LINE 4266 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOinh =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIinh- {-# LINE 4272 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOinhMap =- ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}- _lhsIinhMap- {-# LINE 4278 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOmanualAttrDepMap =- ({-# LINE 282 "src-ag/Order.ag" #-}- _lhsImanualAttrDepMap- {-# LINE 4284 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOmergeMap =- ({-# LINE 356 "src-ag/Order.ag" #-}- _lhsImergeMap- {-# LINE 4290 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOnt =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsInt- {-# LINE 4296 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_case =- ({-# LINE 118 "src-ag/Order.ag" #-}- _lhsIo_case- {-# LINE 4302 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_cata =- ({-# LINE 112 "src-ag/Order.ag" #-}- _lhsIo_cata- {-# LINE 4308 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_dovisit =- ({-# LINE 117 "src-ag/Order.ag" #-}- _lhsIo_dovisit- {-# LINE 4314 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_newtypes =- ({-# LINE 111 "src-ag/Order.ag" #-}- _lhsIo_newtypes- {-# LINE 4320 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_rename =- ({-# LINE 115 "src-ag/Order.ag" #-}- _lhsIo_rename- {-# LINE 4326 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_sem =- ({-# LINE 114 "src-ag/Order.ag" #-}- _lhsIo_sem- {-# LINE 4332 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_sig =- ({-# LINE 113 "src-ag/Order.ag" #-}- _lhsIo_sig- {-# LINE 4338 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_unbox =- ({-# LINE 120 "src-ag/Order.ag" #-}- _lhsIo_unbox- {-# LINE 4344 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_wantvisit =- ({-# LINE 116 "src-ag/Order.ag" #-}- _lhsIo_wantvisit- {-# LINE 4350 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOprefix =- ({-# LINE 119 "src-ag/Order.ag" #-}- _lhsIprefix- {-# LINE 4356 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOsyn =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIsyn- {-# LINE 4362 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOsynMap =- ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}- _lhsIsynMap- {-# LINE 4368 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOvcount =- ({-# LINE 257 "src-ag/Order.ag" #-}- _lhsIvcount- {-# LINE 4374 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOallnts =- ({-# LINE 648 "src-ag/Order.ag" #-}- _lhsIallnts- {-# LINE 4380 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOaroundMap =- ({-# LINE 409 "src-ag/Order.ag" #-}- _lhsIaroundMap- {-# LINE 4386 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOcVisitsMap =- ({-# LINE 602 "src-ag/Order.ag" #-}- _lhsIcVisitsMap- {-# LINE 4392 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOinh =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIinh- {-# LINE 4398 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOinhMap =- ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}- _lhsIinhMap- {-# LINE 4404 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOmanualAttrDepMap =- ({-# LINE 282 "src-ag/Order.ag" #-}- _lhsImanualAttrDepMap- {-# LINE 4410 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOmergeMap =- ({-# LINE 356 "src-ag/Order.ag" #-}- _lhsImergeMap- {-# LINE 4416 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOnt =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsInt- {-# LINE 4422 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_case =- ({-# LINE 118 "src-ag/Order.ag" #-}- _lhsIo_case- {-# LINE 4428 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_cata =- ({-# LINE 112 "src-ag/Order.ag" #-}- _lhsIo_cata- {-# LINE 4434 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_dovisit =- ({-# LINE 117 "src-ag/Order.ag" #-}- _lhsIo_dovisit- {-# LINE 4440 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_newtypes =- ({-# LINE 111 "src-ag/Order.ag" #-}- _lhsIo_newtypes- {-# LINE 4446 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_rename =- ({-# LINE 115 "src-ag/Order.ag" #-}- _lhsIo_rename- {-# LINE 4452 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_sem =- ({-# LINE 114 "src-ag/Order.ag" #-}- _lhsIo_sem- {-# LINE 4458 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_sig =- ({-# LINE 113 "src-ag/Order.ag" #-}- _lhsIo_sig- {-# LINE 4464 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_unbox =- ({-# LINE 120 "src-ag/Order.ag" #-}- _lhsIo_unbox- {-# LINE 4470 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_wantvisit =- ({-# LINE 116 "src-ag/Order.ag" #-}- _lhsIo_wantvisit- {-# LINE 4476 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOprefix =- ({-# LINE 119 "src-ag/Order.ag" #-}- _lhsIprefix- {-# LINE 4482 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOsyn =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIsyn- {-# LINE 4488 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOsynMap =- ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}- _lhsIsynMap- {-# LINE 4494 "dist/build/Order" #-}- )- -- copy rule (chain)- _tlOvcount =- ({-# LINE 257 "src-ag/Order.ag" #-}- _hdIvcount- {-# LINE 4500 "dist/build/Order" #-}- )- ( _hdIadditionalDep,_hdIaroundDep,_hdIcProduction,_hdIcons,_hdIdirectDep,_hdIerrors,_hdIinstDep,_hdImergeDep,_hdInAutoRules,_hdInExplicitRules,_hdIrules,_hdIvcount) =- hd_ _hdOallnts _hdOaroundMap _hdOcVisitsMap _hdOinh _hdOinhMap _hdOmanualAttrDepMap _hdOmergeMap _hdOnt _hdOo_case _hdOo_cata _hdOo_dovisit _hdOo_newtypes _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_unbox _hdOo_wantvisit _hdOprefix _hdOsyn _hdOsynMap _hdOvcount- ( _tlIadditionalDep,_tlIaroundDep,_tlIcProductions,_tlIcons,_tlIdirectDep,_tlIerrors,_tlIinstDep,_tlImergeDep,_tlInAutoRules,_tlInExplicitRules,_tlIrules,_tlIvcount) =- tl_ _tlOallnts _tlOaroundMap _tlOcVisitsMap _tlOinh _tlOinhMap _tlOmanualAttrDepMap _tlOmergeMap _tlOnt _tlOo_case _tlOo_cata _tlOo_dovisit _tlOo_newtypes _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_unbox _tlOo_wantvisit _tlOprefix _tlOsyn _tlOsynMap _tlOvcount- in ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProductions,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOrules,_lhsOvcount))))-sem_Productions_Nil :: T_Productions-sem_Productions_Nil =- (T_Productions (\ _lhsIallnts- _lhsIaroundMap- _lhsIcVisitsMap- _lhsIinh- _lhsIinhMap- _lhsImanualAttrDepMap- _lhsImergeMap- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_dovisit- _lhsIo_newtypes- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_unbox- _lhsIo_wantvisit- _lhsIprefix- _lhsIsyn- _lhsIsynMap- _lhsIvcount ->- (let _lhsOcProductions :: CProductions- _lhsOadditionalDep :: (Seq Edge)- _lhsOaroundDep :: (Seq Edge)- _lhsOcons :: ([ConstructorIdent])- _lhsOdirectDep :: (Seq Edge)- _lhsOerrors :: (Seq Error)- _lhsOinstDep :: (Seq Edge)- _lhsOmergeDep :: (Seq Edge)- _lhsOnAutoRules :: Int- _lhsOnExplicitRules :: Int- _lhsOrules :: (Seq (Vertex,CRule))- _lhsOvcount :: Int- -- "src-ag/Order.ag"(line 628, column 12)- _lhsOcProductions =- ({-# LINE 628 "src-ag/Order.ag" #-}- []- {-# LINE 4546 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 282, column 60)- _lhsOadditionalDep =- ({-# LINE 282 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 4552 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 403, column 24)- _lhsOaroundDep =- ({-# LINE 403 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 4558 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 521, column 40)- _lhsOcons =- ({-# LINE 521 "src-ag/Order.ag" #-}- []- {-# LINE 4564 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 268, column 33)- _lhsOdirectDep =- ({-# LINE 268 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 4570 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 85, column 70)- _lhsOerrors =- ({-# LINE 85 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 4576 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 311, column 31)- _lhsOinstDep =- ({-# LINE 311 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 4582 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 366, column 18)- _lhsOmergeDep =- ({-# LINE 366 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 4588 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 62, column 105)- _lhsOnAutoRules =- ({-# LINE 62 "src-ag/Order.ag" #-}- 0- {-# LINE 4594 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 62, column 105)- _lhsOnExplicitRules =- ({-# LINE 62 "src-ag/Order.ag" #-}- 0- {-# LINE 4600 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 258, column 18)- _lhsOrules =- ({-# LINE 258 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 4606 "dist/build/Order" #-}- )- -- copy rule (chain)- _lhsOvcount =- ({-# LINE 257 "src-ag/Order.ag" #-}- _lhsIvcount- {-# LINE 4612 "dist/build/Order" #-}- )- in ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProductions,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOrules,_lhsOvcount))))--- Rule ---------------------------------------------------------{-- visit 0:- inherited attributes:- allTypeSigs : Map Identifier Type- allfields : [(Identifier,Type,ChildKind)]- allnts : [Identifier]- altAttrs : Map AltAttr Vertex- attrs : [(Identifier,Identifier)]- childInhs : Map Identifier Attributes- childNts : Map Identifier NontermIdent- con : Identifier- inh : Attributes- inhsOfChildren : Map Identifier Attributes- mergeMap : Map Identifier (Identifier,[Identifier])- nt : Identifier- o_case : Bool- o_cata : Bool- o_dovisit : Bool- o_newtypes : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_wantvisit : Bool- prefix : String- syn : Attributes- synsOfChildren : Map Identifier Attributes- synthesized attributes:- directDep : Seq Edge- errors : Seq Error- gathAltAttrs : [AltAttr]- gathRules : Seq CRule- instDep : Seq Edge- instVars : [Identifier]- locVars : [Identifier]- nAutoRules : Int- nExplicitRules : Int- alternatives:- alternative Rule:- child mbName : {Maybe Identifier}- child pattern : Pattern - child rhs : Expression - child owrt : {Bool}- child origin : {String}- child explicit : {Bool}- child pure : {Bool}- child identity : {Bool}- child mbError : {Maybe Error}- child eager : {Bool}- visit 0:- local defines : _- local gathRules : _- local instDep1 : _- local instDep2 : _--}--- cata-sem_Rule :: Rule ->- T_Rule-sem_Rule (Rule _mbName _pattern _rhs _owrt _origin _explicit _pure _identity _mbError _eager) =- (sem_Rule_Rule _mbName (sem_Pattern _pattern) (sem_Expression _rhs) _owrt _origin _explicit _pure _identity _mbError _eager)--- semantic domain-newtype T_Rule = T_Rule ((Map Identifier Type) ->- ([(Identifier,Type,ChildKind)]) ->- ([Identifier]) ->- (Map AltAttr Vertex) ->- ([(Identifier,Identifier)]) ->- (Map Identifier Attributes) ->- (Map Identifier NontermIdent) ->- Identifier ->- Attributes ->- (Map Identifier Attributes) ->- (Map Identifier (Identifier,[Identifier])) ->- Identifier ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- String ->- Attributes ->- (Map Identifier Attributes) ->- ( (Seq Edge),(Seq Error),([AltAttr]),(Seq CRule),(Seq Edge),([Identifier]),([Identifier]),Int,Int))-data Inh_Rule = Inh_Rule {allTypeSigs_Inh_Rule :: !((Map Identifier Type)),allfields_Inh_Rule :: !(([(Identifier,Type,ChildKind)])),allnts_Inh_Rule :: !(([Identifier])),altAttrs_Inh_Rule :: !((Map AltAttr Vertex)),attrs_Inh_Rule :: !(([(Identifier,Identifier)])),childInhs_Inh_Rule :: !((Map Identifier Attributes)),childNts_Inh_Rule :: !((Map Identifier NontermIdent)),con_Inh_Rule :: !(Identifier),inh_Inh_Rule :: !(Attributes),inhsOfChildren_Inh_Rule :: !((Map Identifier Attributes)),mergeMap_Inh_Rule :: !((Map Identifier (Identifier,[Identifier]))),nt_Inh_Rule :: !(Identifier),o_case_Inh_Rule :: !(Bool),o_cata_Inh_Rule :: !(Bool),o_dovisit_Inh_Rule :: !(Bool),o_newtypes_Inh_Rule :: !(Bool),o_rename_Inh_Rule :: !(Bool),o_sem_Inh_Rule :: !(Bool),o_sig_Inh_Rule :: !(Bool),o_wantvisit_Inh_Rule :: !(Bool),prefix_Inh_Rule :: !(String),syn_Inh_Rule :: !(Attributes),synsOfChildren_Inh_Rule :: !((Map Identifier Attributes))}-data Syn_Rule = Syn_Rule {directDep_Syn_Rule :: !((Seq Edge)),errors_Syn_Rule :: !((Seq Error)),gathAltAttrs_Syn_Rule :: !(([AltAttr])),gathRules_Syn_Rule :: !((Seq CRule)),instDep_Syn_Rule :: !((Seq Edge)),instVars_Syn_Rule :: !(([Identifier])),locVars_Syn_Rule :: !(([Identifier])),nAutoRules_Syn_Rule :: !(Int),nExplicitRules_Syn_Rule :: !(Int)}-wrap_Rule :: T_Rule ->- Inh_Rule ->- Syn_Rule-wrap_Rule (T_Rule sem) (Inh_Rule _lhsIallTypeSigs _lhsIallfields _lhsIallnts _lhsIaltAttrs _lhsIattrs _lhsIchildInhs _lhsIchildNts _lhsIcon _lhsIinh _lhsIinhsOfChildren _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynsOfChildren) =- (let ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars,_lhsOnAutoRules,_lhsOnExplicitRules) = sem _lhsIallTypeSigs _lhsIallfields _lhsIallnts _lhsIaltAttrs _lhsIattrs _lhsIchildInhs _lhsIchildNts _lhsIcon _lhsIinh _lhsIinhsOfChildren _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynsOfChildren- in (Syn_Rule _lhsOdirectDep _lhsOerrors _lhsOgathAltAttrs _lhsOgathRules _lhsOinstDep _lhsOinstVars _lhsOlocVars _lhsOnAutoRules _lhsOnExplicitRules))-sem_Rule_Rule :: (Maybe Identifier) ->- T_Pattern ->- T_Expression ->- Bool ->- String ->- Bool ->- Bool ->- Bool ->- (Maybe Error) ->- Bool ->- T_Rule-sem_Rule_Rule mbName_ (T_Pattern pattern_) (T_Expression rhs_) owrt_ origin_ explicit_ pure_ identity_ mbError_ eager_ =- (T_Rule (\ _lhsIallTypeSigs- _lhsIallfields- _lhsIallnts- _lhsIaltAttrs- _lhsIattrs- _lhsIchildInhs- _lhsIchildNts- _lhsIcon- _lhsIinh- _lhsIinhsOfChildren- _lhsImergeMap- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_dovisit- _lhsIo_newtypes- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_wantvisit- _lhsIprefix- _lhsIsyn- _lhsIsynsOfChildren ->- (let _lhsOnExplicitRules :: Int- _lhsOnAutoRules :: Int- _lhsOdirectDep :: (Seq Edge)- _lhsOinstDep :: (Seq Edge)- _lhsOerrors :: (Seq Error)- _lhsOgathAltAttrs :: ([AltAttr])- _lhsOgathRules :: (Seq CRule)- _lhsOinstVars :: ([Identifier])- _lhsOlocVars :: ([Identifier])- _patternOallTypeSigs :: (Map Identifier Type)- _patternOaltAttrs :: (Map AltAttr Vertex)- _patternOcon :: Identifier- _patternOinh :: Attributes- _patternOnt :: Identifier- _patternOsyn :: Attributes- _rhsOallfields :: ([(Identifier,Type,ChildKind)])- _rhsOallnts :: ([Identifier])- _rhsOattrs :: ([(Identifier,Identifier)])- _rhsOcon :: Identifier- _rhsOmergeMap :: (Map Identifier (Identifier,[Identifier]))- _rhsOnt :: Identifier- _patternIcopy :: Pattern- _patternIerrors :: (Seq Error)- _patternIgathAltAttrs :: ([AltAttr])- _patternIinstVars :: ([Identifier])- _patternIlocVars :: ([Identifier])- _patternIpatternAttrs :: ([(Identifier,Identifier,Bool)])- _rhsIallRhsVars :: (Set (Identifier,Identifier))- _rhsIcopy :: Expression- _rhsIerrors :: (Seq Error)- _rhsItextLines :: ([String])- _rhsIusedAttrs :: ([(Identifier,Identifier)])- _rhsIusedFields :: ([Identifier])- _rhsIusedLocals :: ([Identifier])- -- "src-ag/Order.ag"(line 65, column 11)- _lhsOnExplicitRules =- ({-# LINE 65 "src-ag/Order.ag" #-}- if explicit_- then 1- else 0- {-# LINE 4783 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 68, column 11)- _lhsOnAutoRules =- ({-# LINE 68 "src-ag/Order.ag" #-}- if startsWith "use rule" origin_ || startsWith "copy rule" origin_- then 1- else 0- {-# LINE 4791 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 218, column 12)- _defines =- ({-# LINE 218 "src-ag/Order.ag" #-}- let tp field attr | field == _LOC || field == _INST- = Map.lookup attr _lhsIallTypeSigs- | field == _LHS = Map.lookup attr _lhsIsyn- | otherwise = Map.lookup attr (findWithErr1 "Rule.defines.tp" field _lhsIchildInhs)- typ :: Pattern -> Maybe Type- typ (Alias field attr _) = tp field attr- typ (Underscore _) = Nothing- typ _ = Nothing- in Map.fromList [ (findWithErr1 "Rule.defines" aa _lhsIaltAttrs, (field,attr,(tp field attr)))- | (field,attr,isLocalOrInst) <- _patternIpatternAttrs- , let aa = AltAttr field attr isLocalOrInst- ]- {-# LINE 4808 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 232, column 12)- _gathRules =- ({-# LINE 232 "src-ag/Order.ag" #-}- let childnt field = Map.lookup field _lhsIchildNts- in Seq.fromList [ CRule attr False True _lhsInt _lhsIcon field (childnt field) tp _patternIcopy _rhsItextLines _defines owrt_ origin_ _rhsIallRhsVars explicit_ mbName_- | (field,attr,tp) <- Map.elems _defines- ]- {-# LINE 4817 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 270, column 12)- _lhsOdirectDep =- ({-# LINE 270 "src-ag/Order.ag" #-}- let defined = Map.keys _defines- used = [ Map.lookup (AltAttr field attr True) _lhsIaltAttrs | (field,attr) <- _rhsIusedAttrs]- ++ [ Map.lookup (AltAttr _LOC attr True) _lhsIaltAttrs | attr <- _rhsIusedLocals ++ _rhsIusedFields ]- in Seq.fromList [ (x,y) | Just x <- used, y <- defined ]- {-# LINE 4826 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 314, column 6)- _instDep1 =- ({-# LINE 314 "src-ag/Order.ag" #-}- Seq.fromList $- [ (instVert, synVert)- | (field,instNm,_) <- Map.elems _defines- , field == _INST- , synNm <- Map.keys (findWithErr2 instNm _lhsIsynsOfChildren)- , let instAttr = AltAttr _INST instNm True- synAttr = AltAttr instNm synNm True- instVert = findWithErr2 instAttr _lhsIaltAttrs- synVert = findWithErr2 synAttr _lhsIaltAttrs- ]- {-# LINE 4841 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 325, column 6)- _instDep2 =- ({-# LINE 325 "src-ag/Order.ag" #-}- Seq.fromList $- [ (instVert, inhVert)- | (field,instNm,_) <- Map.elems _defines- , field == _INST- , inhNm <- Map.keys (findWithErr2 instNm _lhsIinhsOfChildren)- , let instAttr = AltAttr _INST instNm True- inhAttr = AltAttr instNm inhNm False- instVert = findWithErr2 instAttr _lhsIaltAttrs- inhVert = findWithErr2 inhAttr _lhsIaltAttrs- ]- {-# LINE 4856 "dist/build/Order" #-}- )- -- "src-ag/Order.ag"(line 336, column 6)- _lhsOinstDep =- ({-# LINE 336 "src-ag/Order.ag" #-}- _instDep1 Seq.>< _instDep2- {-# LINE 4862 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 85, column 70)- _lhsOerrors =- ({-# LINE 85 "src-ag/Order.ag" #-}- _patternIerrors Seq.>< _rhsIerrors- {-# LINE 4868 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 171, column 68)- _lhsOgathAltAttrs =- ({-# LINE 171 "src-ag/Order.ag" #-}- _patternIgathAltAttrs- {-# LINE 4874 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 207, column 23)- _lhsOgathRules =- ({-# LINE 207 "src-ag/Order.ag" #-}- _gathRules- {-# LINE 4880 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 678, column 86)- _lhsOinstVars =- ({-# LINE 678 "src-ag/Order.ag" #-}- _patternIinstVars- {-# LINE 4886 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 678, column 48)- _lhsOlocVars =- ({-# LINE 678 "src-ag/Order.ag" #-}- _patternIlocVars- {-# LINE 4892 "dist/build/Order" #-}- )- -- copy rule (down)- _patternOallTypeSigs =- ({-# LINE 534 "src-ag/Order.ag" #-}- _lhsIallTypeSigs- {-# LINE 4898 "dist/build/Order" #-}- )- -- copy rule (down)- _patternOaltAttrs =- ({-# LINE 187 "src-ag/Order.ag" #-}- _lhsIaltAttrs- {-# LINE 4904 "dist/build/Order" #-}- )- -- copy rule (down)- _patternOcon =- ({-# LINE 91 "src-ag/Order.ag" #-}- _lhsIcon- {-# LINE 4910 "dist/build/Order" #-}- )- -- copy rule (down)- _patternOinh =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIinh- {-# LINE 4916 "dist/build/Order" #-}- )- -- copy rule (down)- _patternOnt =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsInt- {-# LINE 4922 "dist/build/Order" #-}- )- -- copy rule (down)- _patternOsyn =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIsyn- {-# LINE 4928 "dist/build/Order" #-}- )- -- copy rule (down)- _rhsOallfields =- ({-# LINE 447 "src-ag/Order.ag" #-}- _lhsIallfields- {-# LINE 4934 "dist/build/Order" #-}- )- -- copy rule (down)- _rhsOallnts =- ({-# LINE 448 "src-ag/Order.ag" #-}- _lhsIallnts- {-# LINE 4940 "dist/build/Order" #-}- )- -- copy rule (down)- _rhsOattrs =- ({-# LINE 449 "src-ag/Order.ag" #-}- _lhsIattrs- {-# LINE 4946 "dist/build/Order" #-}- )- -- copy rule (down)- _rhsOcon =- ({-# LINE 446 "src-ag/Order.ag" #-}- _lhsIcon- {-# LINE 4952 "dist/build/Order" #-}- )- -- copy rule (down)- _rhsOmergeMap =- ({-# LINE 361 "src-ag/Order.ag" #-}- _lhsImergeMap- {-# LINE 4958 "dist/build/Order" #-}- )- -- copy rule (down)- _rhsOnt =- ({-# LINE 446 "src-ag/Order.ag" #-}- _lhsInt- {-# LINE 4964 "dist/build/Order" #-}- )- ( _patternIcopy,_patternIerrors,_patternIgathAltAttrs,_patternIinstVars,_patternIlocVars,_patternIpatternAttrs) =- pattern_ _patternOallTypeSigs _patternOaltAttrs _patternOcon _patternOinh _patternOnt _patternOsyn- ( _rhsIallRhsVars,_rhsIcopy,_rhsIerrors,_rhsItextLines,_rhsIusedAttrs,_rhsIusedFields,_rhsIusedLocals) =- rhs_ _rhsOallfields _rhsOallnts _rhsOattrs _rhsOcon _rhsOmergeMap _rhsOnt- in ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars,_lhsOnAutoRules,_lhsOnExplicitRules))))--- Rules --------------------------------------------------------{-- visit 0:- inherited attributes:- allTypeSigs : Map Identifier Type- allfields : [(Identifier,Type,ChildKind)]- allnts : [Identifier]- altAttrs : Map AltAttr Vertex- attrs : [(Identifier,Identifier)]- childInhs : Map Identifier Attributes- childNts : Map Identifier NontermIdent- con : Identifier- inh : Attributes- inhsOfChildren : Map Identifier Attributes- mergeMap : Map Identifier (Identifier,[Identifier])- nt : Identifier- o_case : Bool- o_cata : Bool- o_dovisit : Bool- o_newtypes : Bool- o_rename : Bool- o_sem : Bool- o_sig : Bool- o_wantvisit : Bool- prefix : String- syn : Attributes- synsOfChildren : Map Identifier Attributes- synthesized attributes:- directDep : Seq Edge- errors : Seq Error- gathAltAttrs : [AltAttr]- gathRules : Seq CRule- instDep : Seq Edge- instVars : [Identifier]- locVars : [Identifier]- nAutoRules : Int- nExplicitRules : Int- alternatives:- alternative Cons:- child hd : Rule - child tl : Rules - alternative Nil:--}--- cata-sem_Rules :: Rules ->- T_Rules-sem_Rules list =- (Prelude.foldr sem_Rules_Cons sem_Rules_Nil (Prelude.map sem_Rule list))--- semantic domain-newtype T_Rules = T_Rules ((Map Identifier Type) ->- ([(Identifier,Type,ChildKind)]) ->- ([Identifier]) ->- (Map AltAttr Vertex) ->- ([(Identifier,Identifier)]) ->- (Map Identifier Attributes) ->- (Map Identifier NontermIdent) ->- Identifier ->- Attributes ->- (Map Identifier Attributes) ->- (Map Identifier (Identifier,[Identifier])) ->- Identifier ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- Bool ->- String ->- Attributes ->- (Map Identifier Attributes) ->- ( (Seq Edge),(Seq Error),([AltAttr]),(Seq CRule),(Seq Edge),([Identifier]),([Identifier]),Int,Int))-data Inh_Rules = Inh_Rules {allTypeSigs_Inh_Rules :: !((Map Identifier Type)),allfields_Inh_Rules :: !(([(Identifier,Type,ChildKind)])),allnts_Inh_Rules :: !(([Identifier])),altAttrs_Inh_Rules :: !((Map AltAttr Vertex)),attrs_Inh_Rules :: !(([(Identifier,Identifier)])),childInhs_Inh_Rules :: !((Map Identifier Attributes)),childNts_Inh_Rules :: !((Map Identifier NontermIdent)),con_Inh_Rules :: !(Identifier),inh_Inh_Rules :: !(Attributes),inhsOfChildren_Inh_Rules :: !((Map Identifier Attributes)),mergeMap_Inh_Rules :: !((Map Identifier (Identifier,[Identifier]))),nt_Inh_Rules :: !(Identifier),o_case_Inh_Rules :: !(Bool),o_cata_Inh_Rules :: !(Bool),o_dovisit_Inh_Rules :: !(Bool),o_newtypes_Inh_Rules :: !(Bool),o_rename_Inh_Rules :: !(Bool),o_sem_Inh_Rules :: !(Bool),o_sig_Inh_Rules :: !(Bool),o_wantvisit_Inh_Rules :: !(Bool),prefix_Inh_Rules :: !(String),syn_Inh_Rules :: !(Attributes),synsOfChildren_Inh_Rules :: !((Map Identifier Attributes))}-data Syn_Rules = Syn_Rules {directDep_Syn_Rules :: !((Seq Edge)),errors_Syn_Rules :: !((Seq Error)),gathAltAttrs_Syn_Rules :: !(([AltAttr])),gathRules_Syn_Rules :: !((Seq CRule)),instDep_Syn_Rules :: !((Seq Edge)),instVars_Syn_Rules :: !(([Identifier])),locVars_Syn_Rules :: !(([Identifier])),nAutoRules_Syn_Rules :: !(Int),nExplicitRules_Syn_Rules :: !(Int)}-wrap_Rules :: T_Rules ->- Inh_Rules ->- Syn_Rules-wrap_Rules (T_Rules sem) (Inh_Rules _lhsIallTypeSigs _lhsIallfields _lhsIallnts _lhsIaltAttrs _lhsIattrs _lhsIchildInhs _lhsIchildNts _lhsIcon _lhsIinh _lhsIinhsOfChildren _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynsOfChildren) =- (let ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars,_lhsOnAutoRules,_lhsOnExplicitRules) = sem _lhsIallTypeSigs _lhsIallfields _lhsIallnts _lhsIaltAttrs _lhsIattrs _lhsIchildInhs _lhsIchildNts _lhsIcon _lhsIinh _lhsIinhsOfChildren _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynsOfChildren- in (Syn_Rules _lhsOdirectDep _lhsOerrors _lhsOgathAltAttrs _lhsOgathRules _lhsOinstDep _lhsOinstVars _lhsOlocVars _lhsOnAutoRules _lhsOnExplicitRules))-sem_Rules_Cons :: T_Rule ->- T_Rules ->- T_Rules-sem_Rules_Cons (T_Rule hd_) (T_Rules tl_) =- (T_Rules (\ _lhsIallTypeSigs- _lhsIallfields- _lhsIallnts- _lhsIaltAttrs- _lhsIattrs- _lhsIchildInhs- _lhsIchildNts- _lhsIcon- _lhsIinh- _lhsIinhsOfChildren- _lhsImergeMap- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_dovisit- _lhsIo_newtypes- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_wantvisit- _lhsIprefix- _lhsIsyn- _lhsIsynsOfChildren ->- (let _lhsOdirectDep :: (Seq Edge)- _lhsOerrors :: (Seq Error)- _lhsOgathAltAttrs :: ([AltAttr])- _lhsOgathRules :: (Seq CRule)- _lhsOinstDep :: (Seq Edge)- _lhsOinstVars :: ([Identifier])- _lhsOlocVars :: ([Identifier])- _lhsOnAutoRules :: Int- _lhsOnExplicitRules :: Int- _hdOallTypeSigs :: (Map Identifier Type)- _hdOallfields :: ([(Identifier,Type,ChildKind)])- _hdOallnts :: ([Identifier])- _hdOaltAttrs :: (Map AltAttr Vertex)- _hdOattrs :: ([(Identifier,Identifier)])- _hdOchildInhs :: (Map Identifier Attributes)- _hdOchildNts :: (Map Identifier NontermIdent)- _hdOcon :: Identifier- _hdOinh :: Attributes- _hdOinhsOfChildren :: (Map Identifier Attributes)- _hdOmergeMap :: (Map Identifier (Identifier,[Identifier]))- _hdOnt :: Identifier- _hdOo_case :: Bool- _hdOo_cata :: Bool- _hdOo_dovisit :: Bool- _hdOo_newtypes :: Bool- _hdOo_rename :: Bool- _hdOo_sem :: Bool- _hdOo_sig :: Bool- _hdOo_wantvisit :: Bool- _hdOprefix :: String- _hdOsyn :: Attributes- _hdOsynsOfChildren :: (Map Identifier Attributes)- _tlOallTypeSigs :: (Map Identifier Type)- _tlOallfields :: ([(Identifier,Type,ChildKind)])- _tlOallnts :: ([Identifier])- _tlOaltAttrs :: (Map AltAttr Vertex)- _tlOattrs :: ([(Identifier,Identifier)])- _tlOchildInhs :: (Map Identifier Attributes)- _tlOchildNts :: (Map Identifier NontermIdent)- _tlOcon :: Identifier- _tlOinh :: Attributes- _tlOinhsOfChildren :: (Map Identifier Attributes)- _tlOmergeMap :: (Map Identifier (Identifier,[Identifier]))- _tlOnt :: Identifier- _tlOo_case :: Bool- _tlOo_cata :: Bool- _tlOo_dovisit :: Bool- _tlOo_newtypes :: Bool- _tlOo_rename :: Bool- _tlOo_sem :: Bool- _tlOo_sig :: Bool- _tlOo_wantvisit :: Bool- _tlOprefix :: String- _tlOsyn :: Attributes- _tlOsynsOfChildren :: (Map Identifier Attributes)- _hdIdirectDep :: (Seq Edge)- _hdIerrors :: (Seq Error)- _hdIgathAltAttrs :: ([AltAttr])- _hdIgathRules :: (Seq CRule)- _hdIinstDep :: (Seq Edge)- _hdIinstVars :: ([Identifier])- _hdIlocVars :: ([Identifier])- _hdInAutoRules :: Int- _hdInExplicitRules :: Int- _tlIdirectDep :: (Seq Edge)- _tlIerrors :: (Seq Error)- _tlIgathAltAttrs :: ([AltAttr])- _tlIgathRules :: (Seq CRule)- _tlIinstDep :: (Seq Edge)- _tlIinstVars :: ([Identifier])- _tlIlocVars :: ([Identifier])- _tlInAutoRules :: Int- _tlInExplicitRules :: Int- -- use rule "src-ag/Order.ag"(line 268, column 33)- _lhsOdirectDep =- ({-# LINE 268 "src-ag/Order.ag" #-}- _hdIdirectDep Seq.>< _tlIdirectDep- {-# LINE 5156 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 85, column 70)- _lhsOerrors =- ({-# LINE 85 "src-ag/Order.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 5162 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 171, column 68)- _lhsOgathAltAttrs =- ({-# LINE 171 "src-ag/Order.ag" #-}- _hdIgathAltAttrs ++ _tlIgathAltAttrs- {-# LINE 5168 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 207, column 23)- _lhsOgathRules =- ({-# LINE 207 "src-ag/Order.ag" #-}- _hdIgathRules Seq.>< _tlIgathRules- {-# LINE 5174 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 311, column 31)- _lhsOinstDep =- ({-# LINE 311 "src-ag/Order.ag" #-}- _hdIinstDep Seq.>< _tlIinstDep- {-# LINE 5180 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 678, column 86)- _lhsOinstVars =- ({-# LINE 678 "src-ag/Order.ag" #-}- _hdIinstVars ++ _tlIinstVars- {-# LINE 5186 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 678, column 48)- _lhsOlocVars =- ({-# LINE 678 "src-ag/Order.ag" #-}- _hdIlocVars ++ _tlIlocVars- {-# LINE 5192 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 62, column 105)- _lhsOnAutoRules =- ({-# LINE 62 "src-ag/Order.ag" #-}- _hdInAutoRules + _tlInAutoRules- {-# LINE 5198 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 62, column 105)- _lhsOnExplicitRules =- ({-# LINE 62 "src-ag/Order.ag" #-}- _hdInExplicitRules + _tlInExplicitRules- {-# LINE 5204 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOallTypeSigs =- ({-# LINE 534 "src-ag/Order.ag" #-}- _lhsIallTypeSigs- {-# LINE 5210 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOallfields =- ({-# LINE 655 "src-ag/Order.ag" #-}- _lhsIallfields- {-# LINE 5216 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOallnts =- ({-# LINE 648 "src-ag/Order.ag" #-}- _lhsIallnts- {-# LINE 5222 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOaltAttrs =- ({-# LINE 187 "src-ag/Order.ag" #-}- _lhsIaltAttrs- {-# LINE 5228 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOattrs =- ({-# LINE 655 "src-ag/Order.ag" #-}- _lhsIattrs- {-# LINE 5234 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOchildInhs =- ({-# LINE 200 "src-ag/Order.ag" #-}- _lhsIchildInhs- {-# LINE 5240 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOchildNts =- ({-# LINE 199 "src-ag/Order.ag" #-}- _lhsIchildNts- {-# LINE 5246 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOcon =- ({-# LINE 91 "src-ag/Order.ag" #-}- _lhsIcon- {-# LINE 5252 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOinh =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIinh- {-# LINE 5258 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOinhsOfChildren =- ({-# LINE 338 "src-ag/Order.ag" #-}- _lhsIinhsOfChildren- {-# LINE 5264 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOmergeMap =- ({-# LINE 361 "src-ag/Order.ag" #-}- _lhsImergeMap- {-# LINE 5270 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOnt =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsInt- {-# LINE 5276 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_case =- ({-# LINE 118 "src-ag/Order.ag" #-}- _lhsIo_case- {-# LINE 5282 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_cata =- ({-# LINE 112 "src-ag/Order.ag" #-}- _lhsIo_cata- {-# LINE 5288 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_dovisit =- ({-# LINE 117 "src-ag/Order.ag" #-}- _lhsIo_dovisit- {-# LINE 5294 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_newtypes =- ({-# LINE 111 "src-ag/Order.ag" #-}- _lhsIo_newtypes- {-# LINE 5300 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_rename =- ({-# LINE 115 "src-ag/Order.ag" #-}- _lhsIo_rename- {-# LINE 5306 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_sem =- ({-# LINE 114 "src-ag/Order.ag" #-}- _lhsIo_sem- {-# LINE 5312 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_sig =- ({-# LINE 113 "src-ag/Order.ag" #-}- _lhsIo_sig- {-# LINE 5318 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOo_wantvisit =- ({-# LINE 116 "src-ag/Order.ag" #-}- _lhsIo_wantvisit- {-# LINE 5324 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOprefix =- ({-# LINE 119 "src-ag/Order.ag" #-}- _lhsIprefix- {-# LINE 5330 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOsyn =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIsyn- {-# LINE 5336 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOsynsOfChildren =- ({-# LINE 338 "src-ag/Order.ag" #-}- _lhsIsynsOfChildren- {-# LINE 5342 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOallTypeSigs =- ({-# LINE 534 "src-ag/Order.ag" #-}- _lhsIallTypeSigs- {-# LINE 5348 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOallfields =- ({-# LINE 655 "src-ag/Order.ag" #-}- _lhsIallfields- {-# LINE 5354 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOallnts =- ({-# LINE 648 "src-ag/Order.ag" #-}- _lhsIallnts- {-# LINE 5360 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOaltAttrs =- ({-# LINE 187 "src-ag/Order.ag" #-}- _lhsIaltAttrs- {-# LINE 5366 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOattrs =- ({-# LINE 655 "src-ag/Order.ag" #-}- _lhsIattrs- {-# LINE 5372 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOchildInhs =- ({-# LINE 200 "src-ag/Order.ag" #-}- _lhsIchildInhs- {-# LINE 5378 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOchildNts =- ({-# LINE 199 "src-ag/Order.ag" #-}- _lhsIchildNts- {-# LINE 5384 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOcon =- ({-# LINE 91 "src-ag/Order.ag" #-}- _lhsIcon- {-# LINE 5390 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOinh =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIinh- {-# LINE 5396 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOinhsOfChildren =- ({-# LINE 338 "src-ag/Order.ag" #-}- _lhsIinhsOfChildren- {-# LINE 5402 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOmergeMap =- ({-# LINE 361 "src-ag/Order.ag" #-}- _lhsImergeMap- {-# LINE 5408 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOnt =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsInt- {-# LINE 5414 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_case =- ({-# LINE 118 "src-ag/Order.ag" #-}- _lhsIo_case- {-# LINE 5420 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_cata =- ({-# LINE 112 "src-ag/Order.ag" #-}- _lhsIo_cata- {-# LINE 5426 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_dovisit =- ({-# LINE 117 "src-ag/Order.ag" #-}- _lhsIo_dovisit- {-# LINE 5432 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_newtypes =- ({-# LINE 111 "src-ag/Order.ag" #-}- _lhsIo_newtypes- {-# LINE 5438 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_rename =- ({-# LINE 115 "src-ag/Order.ag" #-}- _lhsIo_rename- {-# LINE 5444 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_sem =- ({-# LINE 114 "src-ag/Order.ag" #-}- _lhsIo_sem- {-# LINE 5450 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_sig =- ({-# LINE 113 "src-ag/Order.ag" #-}- _lhsIo_sig- {-# LINE 5456 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOo_wantvisit =- ({-# LINE 116 "src-ag/Order.ag" #-}- _lhsIo_wantvisit- {-# LINE 5462 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOprefix =- ({-# LINE 119 "src-ag/Order.ag" #-}- _lhsIprefix- {-# LINE 5468 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOsyn =- ({-# LINE 90 "src-ag/Order.ag" #-}- _lhsIsyn- {-# LINE 5474 "dist/build/Order" #-}- )- -- copy rule (down)- _tlOsynsOfChildren =- ({-# LINE 338 "src-ag/Order.ag" #-}- _lhsIsynsOfChildren- {-# LINE 5480 "dist/build/Order" #-}- )- ( _hdIdirectDep,_hdIerrors,_hdIgathAltAttrs,_hdIgathRules,_hdIinstDep,_hdIinstVars,_hdIlocVars,_hdInAutoRules,_hdInExplicitRules) =- hd_ _hdOallTypeSigs _hdOallfields _hdOallnts _hdOaltAttrs _hdOattrs _hdOchildInhs _hdOchildNts _hdOcon _hdOinh _hdOinhsOfChildren _hdOmergeMap _hdOnt _hdOo_case _hdOo_cata _hdOo_dovisit _hdOo_newtypes _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_wantvisit _hdOprefix _hdOsyn _hdOsynsOfChildren- ( _tlIdirectDep,_tlIerrors,_tlIgathAltAttrs,_tlIgathRules,_tlIinstDep,_tlIinstVars,_tlIlocVars,_tlInAutoRules,_tlInExplicitRules) =- tl_ _tlOallTypeSigs _tlOallfields _tlOallnts _tlOaltAttrs _tlOattrs _tlOchildInhs _tlOchildNts _tlOcon _tlOinh _tlOinhsOfChildren _tlOmergeMap _tlOnt _tlOo_case _tlOo_cata _tlOo_dovisit _tlOo_newtypes _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_wantvisit _tlOprefix _tlOsyn _tlOsynsOfChildren- in ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars,_lhsOnAutoRules,_lhsOnExplicitRules))))-sem_Rules_Nil :: T_Rules-sem_Rules_Nil =- (T_Rules (\ _lhsIallTypeSigs- _lhsIallfields- _lhsIallnts- _lhsIaltAttrs- _lhsIattrs- _lhsIchildInhs- _lhsIchildNts- _lhsIcon- _lhsIinh- _lhsIinhsOfChildren- _lhsImergeMap- _lhsInt- _lhsIo_case- _lhsIo_cata- _lhsIo_dovisit- _lhsIo_newtypes- _lhsIo_rename- _lhsIo_sem- _lhsIo_sig- _lhsIo_wantvisit- _lhsIprefix- _lhsIsyn- _lhsIsynsOfChildren ->- (let _lhsOdirectDep :: (Seq Edge)- _lhsOerrors :: (Seq Error)- _lhsOgathAltAttrs :: ([AltAttr])- _lhsOgathRules :: (Seq CRule)- _lhsOinstDep :: (Seq Edge)- _lhsOinstVars :: ([Identifier])- _lhsOlocVars :: ([Identifier])- _lhsOnAutoRules :: Int- _lhsOnExplicitRules :: Int- -- use rule "src-ag/Order.ag"(line 268, column 33)- _lhsOdirectDep =- ({-# LINE 268 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 5525 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 85, column 70)- _lhsOerrors =- ({-# LINE 85 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 5531 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 171, column 68)- _lhsOgathAltAttrs =- ({-# LINE 171 "src-ag/Order.ag" #-}- []- {-# LINE 5537 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 207, column 23)- _lhsOgathRules =- ({-# LINE 207 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 5543 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 311, column 31)- _lhsOinstDep =- ({-# LINE 311 "src-ag/Order.ag" #-}- Seq.empty- {-# LINE 5549 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 678, column 86)- _lhsOinstVars =- ({-# LINE 678 "src-ag/Order.ag" #-}- []- {-# LINE 5555 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 678, column 48)- _lhsOlocVars =- ({-# LINE 678 "src-ag/Order.ag" #-}- []- {-# LINE 5561 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 62, column 105)- _lhsOnAutoRules =- ({-# LINE 62 "src-ag/Order.ag" #-}- 0- {-# LINE 5567 "dist/build/Order" #-}- )- -- use rule "src-ag/Order.ag"(line 62, column 105)- _lhsOnExplicitRules =- ({-# LINE 62 "src-ag/Order.ag" #-}- 0- {-# LINE 5573 "dist/build/Order" #-}- )- in ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars,_lhsOnAutoRules,_lhsOnExplicitRules))))--- TypeSig ------------------------------------------------------{-- visit 0:- chained attribute:- typeSigs : Map Identifier Type- alternatives:- alternative TypeSig:- child name : {Identifier}- child tp : {Type}--}--- cata-sem_TypeSig :: TypeSig ->- T_TypeSig-sem_TypeSig (TypeSig _name _tp) =- (sem_TypeSig_TypeSig _name _tp)--- semantic domain-newtype T_TypeSig = T_TypeSig ((Map Identifier Type) ->- ( (Map Identifier Type)))-data Inh_TypeSig = Inh_TypeSig {typeSigs_Inh_TypeSig :: !((Map Identifier Type))}-data Syn_TypeSig = Syn_TypeSig {typeSigs_Syn_TypeSig :: !((Map Identifier Type))}-wrap_TypeSig :: T_TypeSig ->- Inh_TypeSig ->- Syn_TypeSig-wrap_TypeSig (T_TypeSig sem) (Inh_TypeSig _lhsItypeSigs) =- (let ( _lhsOtypeSigs) = sem _lhsItypeSigs- in (Syn_TypeSig _lhsOtypeSigs))-sem_TypeSig_TypeSig :: Identifier ->- Type ->- T_TypeSig-sem_TypeSig_TypeSig name_ tp_ =- (T_TypeSig (\ _lhsItypeSigs ->- (let _lhsOtypeSigs :: (Map Identifier Type)- -- "src-ag/Order.ag"(line 532, column 13)- _lhsOtypeSigs =- ({-# LINE 532 "src-ag/Order.ag" #-}- Map.insert name_ tp_ _lhsItypeSigs- {-# LINE 5612 "dist/build/Order" #-}- )- in ( _lhsOtypeSigs))))--- TypeSigs -----------------------------------------------------{-- visit 0:- chained attribute:- typeSigs : Map Identifier Type- alternatives:- alternative Cons:- child hd : TypeSig - child tl : TypeSigs - alternative Nil:--}--- cata-sem_TypeSigs :: TypeSigs ->- T_TypeSigs-sem_TypeSigs list =- (Prelude.foldr sem_TypeSigs_Cons sem_TypeSigs_Nil (Prelude.map sem_TypeSig list))--- semantic domain-newtype T_TypeSigs = T_TypeSigs ((Map Identifier Type) ->- ( (Map Identifier Type)))-data Inh_TypeSigs = Inh_TypeSigs {typeSigs_Inh_TypeSigs :: !((Map Identifier Type))}-data Syn_TypeSigs = Syn_TypeSigs {typeSigs_Syn_TypeSigs :: !((Map Identifier Type))}-wrap_TypeSigs :: T_TypeSigs ->- Inh_TypeSigs ->- Syn_TypeSigs-wrap_TypeSigs (T_TypeSigs sem) (Inh_TypeSigs _lhsItypeSigs) =- (let ( _lhsOtypeSigs) = sem _lhsItypeSigs- in (Syn_TypeSigs _lhsOtypeSigs))-sem_TypeSigs_Cons :: T_TypeSig ->- T_TypeSigs ->- T_TypeSigs-sem_TypeSigs_Cons (T_TypeSig hd_) (T_TypeSigs tl_) =- (T_TypeSigs (\ _lhsItypeSigs ->- (let _lhsOtypeSigs :: (Map Identifier Type)- _hdOtypeSigs :: (Map Identifier Type)- _tlOtypeSigs :: (Map Identifier Type)- _hdItypeSigs :: (Map Identifier Type)- _tlItypeSigs :: (Map Identifier Type)- -- copy rule (up)- _lhsOtypeSigs =- ({-# LINE 528 "src-ag/Order.ag" #-}- _tlItypeSigs- {-# LINE 5656 "dist/build/Order" #-}- )- -- copy rule (down)- _hdOtypeSigs =- ({-# LINE 528 "src-ag/Order.ag" #-}- _lhsItypeSigs- {-# LINE 5662 "dist/build/Order" #-}- )- -- copy rule (chain)- _tlOtypeSigs =- ({-# LINE 528 "src-ag/Order.ag" #-}- _hdItypeSigs- {-# LINE 5668 "dist/build/Order" #-}- )- ( _hdItypeSigs) =- hd_ _hdOtypeSigs- ( _tlItypeSigs) =- tl_ _tlOtypeSigs- in ( _lhsOtypeSigs))))-sem_TypeSigs_Nil :: T_TypeSigs-sem_TypeSigs_Nil =- (T_TypeSigs (\ _lhsItypeSigs ->- (let _lhsOtypeSigs :: (Map Identifier Type)- -- copy rule (chain)- _lhsOtypeSigs =- ({-# LINE 528 "src-ag/Order.ag" #-}- _lhsItypeSigs- {-# LINE 5683 "dist/build/Order" #-}- )+ ___node =+ (Syn_Child _lhsOattributes _lhsOcollectChildrenInhs _lhsOcollectChildrenSyns _lhsOerrors _lhsOfield _lhsOgathAltAttrs _lhsOgathRules _lhsOinhs _lhsOnts _lhsOsinglevisits _lhsOterminals)+ in ( _lhsOattributes,_lhsOcollectChildrenInhs,_lhsOcollectChildrenSyns,_lhsOerrors,_lhsOfield,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinhs,_lhsOnts,_lhsOsinglevisits,_lhsOterminals))))+-- Children ----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allfields : [(Identifier,Type,ChildKind)]+ allnts : [Identifier]+ attrs : [(Identifier,Identifier)]+ con : Identifier+ inh : Attributes+ inhMap : Map Identifier Attributes+ mergeMap : Map Identifier (Identifier,[Identifier])+ nt : Identifier+ o_unbox : Bool+ syn : Attributes+ synMap : Map Identifier Attributes+ synthesized attributes:+ attributes : [(Identifier,Attributes,Attributes)]+ collectChildrenInhs : Map Identifier Attributes + collectChildrenSyns : Map Identifier Attributes + errors : Seq Error+ fields : [(Identifier,Type,ChildKind)]+ gathAltAttrs : [AltAttr]+ gathRules : Seq CRule+ inhs : Seq (Identifier,Attributes)+ nts : Seq (Identifier,NontermIdent)+ singlevisits : [CRule]+ terminals : [Identifier]+ alternatives:+ alternative Cons:+ child hd : Child + child tl : Children + alternative Nil:+-}+-- cata+sem_Children :: Children ->+ T_Children+sem_Children list =+ (Prelude.foldr sem_Children_Cons sem_Children_Nil (Prelude.map sem_Child list))+-- semantic domain+newtype T_Children = T_Children (([(Identifier,Type,ChildKind)]) ->+ ([Identifier]) ->+ ([(Identifier,Identifier)]) ->+ Identifier ->+ Attributes ->+ (Map Identifier Attributes) ->+ (Map Identifier (Identifier,[Identifier])) ->+ Identifier ->+ Bool ->+ Attributes ->+ (Map Identifier Attributes) ->+ ( ([(Identifier,Attributes,Attributes)]),(Map Identifier Attributes ),(Map Identifier Attributes ),(Seq Error),([(Identifier,Type,ChildKind)]),([AltAttr]),(Seq CRule),(Seq (Identifier,Attributes)),(Seq (Identifier,NontermIdent)),([CRule]),([Identifier])))+data Inh_Children = Inh_Children {allfields_Inh_Children :: !(([(Identifier,Type,ChildKind)])),allnts_Inh_Children :: !(([Identifier])),attrs_Inh_Children :: !(([(Identifier,Identifier)])),con_Inh_Children :: !(Identifier),inh_Inh_Children :: !(Attributes),inhMap_Inh_Children :: !((Map Identifier Attributes)),mergeMap_Inh_Children :: !((Map Identifier (Identifier,[Identifier]))),nt_Inh_Children :: !(Identifier),o_unbox_Inh_Children :: !(Bool),syn_Inh_Children :: !(Attributes),synMap_Inh_Children :: !((Map Identifier Attributes))}+data Syn_Children = Syn_Children {attributes_Syn_Children :: !(([(Identifier,Attributes,Attributes)])),collectChildrenInhs_Syn_Children :: !((Map Identifier Attributes )),collectChildrenSyns_Syn_Children :: !((Map Identifier Attributes )),errors_Syn_Children :: !((Seq Error)),fields_Syn_Children :: !(([(Identifier,Type,ChildKind)])),gathAltAttrs_Syn_Children :: !(([AltAttr])),gathRules_Syn_Children :: !((Seq CRule)),inhs_Syn_Children :: !((Seq (Identifier,Attributes))),nts_Syn_Children :: !((Seq (Identifier,NontermIdent))),singlevisits_Syn_Children :: !(([CRule])),terminals_Syn_Children :: !(([Identifier]))}+wrap_Children :: T_Children ->+ Inh_Children ->+ Syn_Children+wrap_Children (T_Children sem) (Inh_Children _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsIinh _lhsIinhMap _lhsImergeMap _lhsInt _lhsIo_unbox _lhsIsyn _lhsIsynMap) =+ (let ( _lhsOattributes,_lhsOcollectChildrenInhs,_lhsOcollectChildrenSyns,_lhsOerrors,_lhsOfields,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinhs,_lhsOnts,_lhsOsinglevisits,_lhsOterminals) = sem _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsIinh _lhsIinhMap _lhsImergeMap _lhsInt _lhsIo_unbox _lhsIsyn _lhsIsynMap+ in (Syn_Children _lhsOattributes _lhsOcollectChildrenInhs _lhsOcollectChildrenSyns _lhsOerrors _lhsOfields _lhsOgathAltAttrs _lhsOgathRules _lhsOinhs _lhsOnts _lhsOsinglevisits _lhsOterminals))+sem_Children_Cons :: T_Child ->+ T_Children ->+ T_Children+sem_Children_Cons (T_Child hd_) (T_Children tl_) =+ (T_Children (\ _lhsIallfields+ _lhsIallnts+ _lhsIattrs+ _lhsIcon+ _lhsIinh+ _lhsIinhMap+ _lhsImergeMap+ _lhsInt+ _lhsIo_unbox+ _lhsIsyn+ _lhsIsynMap ->+ (let _lhsOfields :: ([(Identifier,Type,ChildKind)])+ _lhsOattributes :: ([(Identifier,Attributes,Attributes)])+ _lhsOcollectChildrenInhs :: (Map Identifier Attributes )+ _lhsOcollectChildrenSyns :: (Map Identifier Attributes )+ _lhsOerrors :: (Seq Error)+ _lhsOgathAltAttrs :: ([AltAttr])+ _lhsOgathRules :: (Seq CRule)+ _lhsOinhs :: (Seq (Identifier,Attributes))+ _lhsOnts :: (Seq (Identifier,NontermIdent))+ _lhsOsinglevisits :: ([CRule])+ _lhsOterminals :: ([Identifier])+ _hdOallfields :: ([(Identifier,Type,ChildKind)])+ _hdOallnts :: ([Identifier])+ _hdOattrs :: ([(Identifier,Identifier)])+ _hdOcon :: Identifier+ _hdOinh :: Attributes+ _hdOinhMap :: (Map Identifier Attributes)+ _hdOmergeMap :: (Map Identifier (Identifier,[Identifier]))+ _hdOnt :: Identifier+ _hdOo_unbox :: Bool+ _hdOsyn :: Attributes+ _hdOsynMap :: (Map Identifier Attributes)+ _tlOallfields :: ([(Identifier,Type,ChildKind)])+ _tlOallnts :: ([Identifier])+ _tlOattrs :: ([(Identifier,Identifier)])+ _tlOcon :: Identifier+ _tlOinh :: Attributes+ _tlOinhMap :: (Map Identifier Attributes)+ _tlOmergeMap :: (Map Identifier (Identifier,[Identifier]))+ _tlOnt :: Identifier+ _tlOo_unbox :: Bool+ _tlOsyn :: Attributes+ _tlOsynMap :: (Map Identifier Attributes)+ _hdIattributes :: ([(Identifier,Attributes,Attributes)])+ _hdIcollectChildrenInhs :: (Map Identifier Attributes )+ _hdIcollectChildrenSyns :: (Map Identifier Attributes )+ _hdIerrors :: (Seq Error)+ _hdIfield :: ((Identifier,Type,ChildKind))+ _hdIgathAltAttrs :: ([AltAttr])+ _hdIgathRules :: (Seq CRule)+ _hdIinhs :: (Seq (Identifier,Attributes))+ _hdInts :: (Seq (Identifier,NontermIdent))+ _hdIsinglevisits :: ([CRule])+ _hdIterminals :: ([Identifier])+ _tlIattributes :: ([(Identifier,Attributes,Attributes)])+ _tlIcollectChildrenInhs :: (Map Identifier Attributes )+ _tlIcollectChildrenSyns :: (Map Identifier Attributes )+ _tlIerrors :: (Seq Error)+ _tlIfields :: ([(Identifier,Type,ChildKind)])+ _tlIgathAltAttrs :: ([AltAttr])+ _tlIgathRules :: (Seq CRule)+ _tlIinhs :: (Seq (Identifier,Attributes))+ _tlInts :: (Seq (Identifier,NontermIdent))+ _tlIsinglevisits :: ([CRule])+ _tlIterminals :: ([Identifier])+ -- "src-ag/Order.ag"(line 675, column 11)+ _lhsOfields =+ ({-# LINE 675 "src-ag/Order.ag" #-}+ _hdIfield : _tlIfields+ {-# LINE 566 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 666, column 32)+ _lhsOattributes =+ ({-# LINE 666 "src-ag/Order.ag" #-}+ _hdIattributes ++ _tlIattributes+ {-# LINE 572 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 343, column 68)+ _lhsOcollectChildrenInhs =+ ({-# LINE 343 "src-ag/Order.ag" #-}+ _hdIcollectChildrenInhs `Map.union` _tlIcollectChildrenInhs+ {-# LINE 578 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 343, column 68)+ _lhsOcollectChildrenSyns =+ ({-# LINE 343 "src-ag/Order.ag" #-}+ _hdIcollectChildrenSyns `Map.union` _tlIcollectChildrenSyns+ {-# LINE 584 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 85, column 70)+ _lhsOerrors =+ ({-# LINE 85 "src-ag/Order.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 590 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 171, column 68)+ _lhsOgathAltAttrs =+ ({-# LINE 171 "src-ag/Order.ag" #-}+ _hdIgathAltAttrs ++ _tlIgathAltAttrs+ {-# LINE 596 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 207, column 23)+ _lhsOgathRules =+ ({-# LINE 207 "src-ag/Order.ag" #-}+ _hdIgathRules Seq.>< _tlIgathRules+ {-# LINE 602 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 194, column 20)+ _lhsOinhs =+ ({-# LINE 194 "src-ag/Order.ag" #-}+ _hdIinhs Seq.>< _tlIinhs+ {-# LINE 608 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 193, column 19)+ _lhsOnts =+ ({-# LINE 193 "src-ag/Order.ag" #-}+ _hdInts Seq.>< _tlInts+ {-# LINE 614 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 612, column 40)+ _lhsOsinglevisits =+ ({-# LINE 612 "src-ag/Order.ag" #-}+ _hdIsinglevisits ++ _tlIsinglevisits+ {-# LINE 620 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 637, column 38)+ _lhsOterminals =+ ({-# LINE 637 "src-ag/Order.ag" #-}+ _hdIterminals ++ _tlIterminals+ {-# LINE 626 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOallfields =+ ({-# LINE 655 "src-ag/Order.ag" #-}+ _lhsIallfields+ {-# LINE 632 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOallnts =+ ({-# LINE 648 "src-ag/Order.ag" #-}+ _lhsIallnts+ {-# LINE 638 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOattrs =+ ({-# LINE 655 "src-ag/Order.ag" #-}+ _lhsIattrs+ {-# LINE 644 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOcon =+ ({-# LINE 91 "src-ag/Order.ag" #-}+ _lhsIcon+ {-# LINE 650 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOinh =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIinh+ {-# LINE 656 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOinhMap =+ ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}+ _lhsIinhMap+ {-# LINE 662 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOmergeMap =+ ({-# LINE 361 "src-ag/Order.ag" #-}+ _lhsImergeMap+ {-# LINE 668 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOnt =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsInt+ {-# LINE 674 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_unbox =+ ({-# LINE 120 "src-ag/Order.ag" #-}+ _lhsIo_unbox+ {-# LINE 680 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOsyn =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIsyn+ {-# LINE 686 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOsynMap =+ ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}+ _lhsIsynMap+ {-# LINE 692 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOallfields =+ ({-# LINE 655 "src-ag/Order.ag" #-}+ _lhsIallfields+ {-# LINE 698 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOallnts =+ ({-# LINE 648 "src-ag/Order.ag" #-}+ _lhsIallnts+ {-# LINE 704 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOattrs =+ ({-# LINE 655 "src-ag/Order.ag" #-}+ _lhsIattrs+ {-# LINE 710 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOcon =+ ({-# LINE 91 "src-ag/Order.ag" #-}+ _lhsIcon+ {-# LINE 716 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOinh =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIinh+ {-# LINE 722 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOinhMap =+ ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}+ _lhsIinhMap+ {-# LINE 728 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOmergeMap =+ ({-# LINE 361 "src-ag/Order.ag" #-}+ _lhsImergeMap+ {-# LINE 734 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOnt =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsInt+ {-# LINE 740 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_unbox =+ ({-# LINE 120 "src-ag/Order.ag" #-}+ _lhsIo_unbox+ {-# LINE 746 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOsyn =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIsyn+ {-# LINE 752 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOsynMap =+ ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}+ _lhsIsynMap+ {-# LINE 758 "dist/build/Order" #-}+ )+ ( _hdIattributes,_hdIcollectChildrenInhs,_hdIcollectChildrenSyns,_hdIerrors,_hdIfield,_hdIgathAltAttrs,_hdIgathRules,_hdIinhs,_hdInts,_hdIsinglevisits,_hdIterminals) =+ hd_ _hdOallfields _hdOallnts _hdOattrs _hdOcon _hdOinh _hdOinhMap _hdOmergeMap _hdOnt _hdOo_unbox _hdOsyn _hdOsynMap+ ( _tlIattributes,_tlIcollectChildrenInhs,_tlIcollectChildrenSyns,_tlIerrors,_tlIfields,_tlIgathAltAttrs,_tlIgathRules,_tlIinhs,_tlInts,_tlIsinglevisits,_tlIterminals) =+ tl_ _tlOallfields _tlOallnts _tlOattrs _tlOcon _tlOinh _tlOinhMap _tlOmergeMap _tlOnt _tlOo_unbox _tlOsyn _tlOsynMap+ ___node =+ (Syn_Children _lhsOattributes _lhsOcollectChildrenInhs _lhsOcollectChildrenSyns _lhsOerrors _lhsOfields _lhsOgathAltAttrs _lhsOgathRules _lhsOinhs _lhsOnts _lhsOsinglevisits _lhsOterminals)+ in ( _lhsOattributes,_lhsOcollectChildrenInhs,_lhsOcollectChildrenSyns,_lhsOerrors,_lhsOfields,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinhs,_lhsOnts,_lhsOsinglevisits,_lhsOterminals))))+sem_Children_Nil :: T_Children+sem_Children_Nil =+ (T_Children (\ _lhsIallfields+ _lhsIallnts+ _lhsIattrs+ _lhsIcon+ _lhsIinh+ _lhsIinhMap+ _lhsImergeMap+ _lhsInt+ _lhsIo_unbox+ _lhsIsyn+ _lhsIsynMap ->+ (let _lhsOfields :: ([(Identifier,Type,ChildKind)])+ _lhsOattributes :: ([(Identifier,Attributes,Attributes)])+ _lhsOcollectChildrenInhs :: (Map Identifier Attributes )+ _lhsOcollectChildrenSyns :: (Map Identifier Attributes )+ _lhsOerrors :: (Seq Error)+ _lhsOgathAltAttrs :: ([AltAttr])+ _lhsOgathRules :: (Seq CRule)+ _lhsOinhs :: (Seq (Identifier,Attributes))+ _lhsOnts :: (Seq (Identifier,NontermIdent))+ _lhsOsinglevisits :: ([CRule])+ _lhsOterminals :: ([Identifier])+ -- "src-ag/Order.ag"(line 676, column 11)+ _lhsOfields =+ ({-# LINE 676 "src-ag/Order.ag" #-}+ []+ {-# LINE 795 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 666, column 32)+ _lhsOattributes =+ ({-# LINE 666 "src-ag/Order.ag" #-}+ []+ {-# LINE 801 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 343, column 68)+ _lhsOcollectChildrenInhs =+ ({-# LINE 343 "src-ag/Order.ag" #-}+ Map.empty+ {-# LINE 807 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 343, column 68)+ _lhsOcollectChildrenSyns =+ ({-# LINE 343 "src-ag/Order.ag" #-}+ Map.empty+ {-# LINE 813 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 85, column 70)+ _lhsOerrors =+ ({-# LINE 85 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 819 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 171, column 68)+ _lhsOgathAltAttrs =+ ({-# LINE 171 "src-ag/Order.ag" #-}+ []+ {-# LINE 825 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 207, column 23)+ _lhsOgathRules =+ ({-# LINE 207 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 831 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 194, column 20)+ _lhsOinhs =+ ({-# LINE 194 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 837 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 193, column 19)+ _lhsOnts =+ ({-# LINE 193 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 843 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 612, column 40)+ _lhsOsinglevisits =+ ({-# LINE 612 "src-ag/Order.ag" #-}+ []+ {-# LINE 849 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 637, column 38)+ _lhsOterminals =+ ({-# LINE 637 "src-ag/Order.ag" #-}+ []+ {-# LINE 855 "dist/build/Order" #-}+ )+ ___node =+ (Syn_Children _lhsOattributes _lhsOcollectChildrenInhs _lhsOcollectChildrenSyns _lhsOerrors _lhsOfields _lhsOgathAltAttrs _lhsOgathRules _lhsOinhs _lhsOnts _lhsOsinglevisits _lhsOterminals)+ in ( _lhsOattributes,_lhsOcollectChildrenInhs,_lhsOcollectChildrenSyns,_lhsOerrors,_lhsOfields,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinhs,_lhsOnts,_lhsOsinglevisits,_lhsOterminals))))+-- Expression --------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allfields : [(Identifier,Type,ChildKind)]+ allnts : [Identifier]+ attrs : [(Identifier,Identifier)]+ con : Identifier+ mergeMap : Map Identifier (Identifier,[Identifier])+ nt : Identifier+ synthesized attributes:+ allRhsVars : Set (Identifier,Identifier)+ copy : Expression + errors : Seq Error+ textLines : [String]+ usedAttrs : [(Identifier,Identifier)]+ usedFields : [Identifier]+ usedLocals : [Identifier]+ alternatives:+ alternative Expression:+ child pos : {Pos}+ child tks : {[HsToken]}+ visit 0:+ local textLines : _+ local usedAttrs : _+ local usedLocals : _+ local usedFields : _+ local copy : _+-}+-- cata+sem_Expression :: Expression ->+ T_Expression+sem_Expression (Expression _pos _tks) =+ (sem_Expression_Expression _pos _tks)+-- semantic domain+newtype T_Expression = T_Expression (([(Identifier,Type,ChildKind)]) ->+ ([Identifier]) ->+ ([(Identifier,Identifier)]) ->+ Identifier ->+ (Map Identifier (Identifier,[Identifier])) ->+ Identifier ->+ ( (Set (Identifier,Identifier)),Expression,(Seq Error),([String]),([(Identifier,Identifier)]),([Identifier]),([Identifier])))+data Inh_Expression = Inh_Expression {allfields_Inh_Expression :: !(([(Identifier,Type,ChildKind)])),allnts_Inh_Expression :: !(([Identifier])),attrs_Inh_Expression :: !(([(Identifier,Identifier)])),con_Inh_Expression :: !(Identifier),mergeMap_Inh_Expression :: !((Map Identifier (Identifier,[Identifier]))),nt_Inh_Expression :: !(Identifier)}+data Syn_Expression = Syn_Expression {allRhsVars_Syn_Expression :: !((Set (Identifier,Identifier))),copy_Syn_Expression :: !(Expression),errors_Syn_Expression :: !((Seq Error)),textLines_Syn_Expression :: !(([String])),usedAttrs_Syn_Expression :: !(([(Identifier,Identifier)])),usedFields_Syn_Expression :: !(([Identifier])),usedLocals_Syn_Expression :: !(([Identifier]))}+wrap_Expression :: T_Expression ->+ Inh_Expression ->+ Syn_Expression+wrap_Expression (T_Expression sem) (Inh_Expression _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsImergeMap _lhsInt) =+ (let ( _lhsOallRhsVars,_lhsOcopy,_lhsOerrors,_lhsOtextLines,_lhsOusedAttrs,_lhsOusedFields,_lhsOusedLocals) = sem _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsImergeMap _lhsInt+ in (Syn_Expression _lhsOallRhsVars _lhsOcopy _lhsOerrors _lhsOtextLines _lhsOusedAttrs _lhsOusedFields _lhsOusedLocals))+sem_Expression_Expression :: Pos ->+ ([HsToken]) ->+ T_Expression+sem_Expression_Expression pos_ tks_ =+ (T_Expression (\ _lhsIallfields+ _lhsIallnts+ _lhsIattrs+ _lhsIcon+ _lhsImergeMap+ _lhsInt ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOallRhsVars :: (Set (Identifier,Identifier))+ _lhsOcopy :: Expression+ _lhsOtextLines :: ([String])+ _lhsOusedAttrs :: ([(Identifier,Identifier)])+ _lhsOusedFields :: ([Identifier])+ _lhsOusedLocals :: ([Identifier])+ -- "src-ag/Order.ag"(line 465, column 21)+ (_textLines,_usedAttrs,_usedLocals,_usedFields) =+ ({-# LINE 465 "src-ag/Order.ag" #-}+ let mergedChildren = [ x | (_,xs) <- Map.elems _lhsImergeMap, x <- xs ]+ attrsIn = filter (\(fld,_) -> not (fld `elem` mergedChildren)) _lhsIattrs+ inherited = Inh_HsTokensRoot+ { attrs_Inh_HsTokensRoot = attrsIn+ , con_Inh_HsTokensRoot = _lhsIcon+ , allfields_Inh_HsTokensRoot = _lhsIallfields+ , allnts_Inh_HsTokensRoot = _lhsIallnts+ , nt_Inh_HsTokensRoot = _lhsInt+ }+ synthesized = wrap_HsTokensRoot (sem_HsTokensRoot (HsTokensRoot tks_)) inherited+ in case synthesized of+ Syn_HsTokensRoot+ { textLines_Syn_HsTokensRoot = textLines+ , usedAttrs_Syn_HsTokensRoot = usedAttrs+ , usedLocals_Syn_HsTokensRoot = usedLocals+ , usedFields_Syn_HsTokensRoot = usedFields+ } -> let extraAttrs = [ (src,attr)+ | (fld,attr) <- usedAttrs, let mbMerged = Map.lookup fld _lhsImergeMap, isJust mbMerged+ , let (Just (_, srcs)) = mbMerged, src <- srcs ]+ usedAttrs' = usedAttrs ++ extraAttrs+ in (textLines,usedAttrs',usedLocals,usedFields)+ {-# LINE 951 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 488, column 17)+ _lhsOerrors =+ ({-# LINE 488 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 957 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 489, column 17)+ _lhsOallRhsVars =+ ({-# LINE 489 "src-ag/Order.ag" #-}+ Set.fromList _usedAttrs+ `Set.union`+ Set.fromList [ (_LOC, l) | l <- _usedLocals ]+ `Set.union`+ Set.fromList [ (_FIELD, fld) | fld <- _usedFields ]+ {-# LINE 967 "dist/build/Order" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 456 "src-ag/Order.ag" #-}+ Expression pos_ tks_+ {-# LINE 973 "dist/build/Order" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 456 "src-ag/Order.ag" #-}+ _copy+ {-# LINE 979 "dist/build/Order" #-}+ )+ -- copy rule (from local)+ _lhsOtextLines =+ ({-# LINE 455 "src-ag/Order.ag" #-}+ _textLines+ {-# LINE 985 "dist/build/Order" #-}+ )+ -- copy rule (from local)+ _lhsOusedAttrs =+ ({-# LINE 453 "src-ag/Order.ag" #-}+ _usedAttrs+ {-# LINE 991 "dist/build/Order" #-}+ )+ -- copy rule (from local)+ _lhsOusedFields =+ ({-# LINE 454 "src-ag/Order.ag" #-}+ _usedFields+ {-# LINE 997 "dist/build/Order" #-}+ )+ -- copy rule (from local)+ _lhsOusedLocals =+ ({-# LINE 452 "src-ag/Order.ag" #-}+ _usedLocals+ {-# LINE 1003 "dist/build/Order" #-}+ )+ ___node =+ (Syn_Expression _lhsOallRhsVars _lhsOcopy _lhsOerrors _lhsOtextLines _lhsOusedAttrs _lhsOusedFields _lhsOusedLocals)+ in ( _lhsOallRhsVars,_lhsOcopy,_lhsOerrors,_lhsOtextLines,_lhsOusedAttrs,_lhsOusedFields,_lhsOusedLocals))))+-- Grammar -----------------------------------------------------+{-+ visit 0:+ inherited attribute:+ options : Options+ synthesized attributes:+ errors : Seq Error+ nAutoRules : Int+ nExplicitRules : Int+ output : CGrammar+ alternatives:+ alternative Grammar:+ child typeSyns : {TypeSyns}+ child useMap : {UseMap}+ child derivings : {Derivings}+ child wrappers : {Set NontermIdent}+ child nonts : Nonterminals + child pragmas : {PragmaMap}+ child manualAttrOrderMap : {AttrOrderMap}+ child paramMap : {ParamMap}+ child contextMap : {ContextMap}+ child quantMap : {QuantMap}+ child uniqueMap : {UniqueMap}+ child augmentsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))}+ child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))}+ child mergeMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression)))}+ visit 0:+ local o_dovisit : _+ local ruleTable : _+ local attrTable : _+ local attrVertex : _+ local tdpToTds : _+ local tdsToTdp : _+ local directDep : _+ local instDep : _+ local aroundDep : _+ local mergeDep : _+ local info : _+ local cInterfaceMap : _+ local cVisitsMap : _+ local cyclesErrors : _+ local aroundMap : _+ local mergeMap : _+-}+-- cata+sem_Grammar :: Grammar ->+ T_Grammar+sem_Grammar (Grammar _typeSyns _useMap _derivings _wrappers _nonts _pragmas _manualAttrOrderMap _paramMap _contextMap _quantMap _uniqueMap _augmentsMap _aroundsMap _mergeMap) =+ (sem_Grammar_Grammar _typeSyns _useMap _derivings _wrappers (sem_Nonterminals _nonts) _pragmas _manualAttrOrderMap _paramMap _contextMap _quantMap _uniqueMap _augmentsMap _aroundsMap _mergeMap)+-- semantic domain+newtype T_Grammar = T_Grammar (Options ->+ ( (Seq Error),Int,Int,CGrammar))+data Inh_Grammar = Inh_Grammar {options_Inh_Grammar :: !(Options)}+data Syn_Grammar = Syn_Grammar {errors_Syn_Grammar :: !((Seq Error)),nAutoRules_Syn_Grammar :: !(Int),nExplicitRules_Syn_Grammar :: !(Int),output_Syn_Grammar :: !(CGrammar)}+wrap_Grammar :: T_Grammar ->+ Inh_Grammar ->+ Syn_Grammar+wrap_Grammar (T_Grammar sem) (Inh_Grammar _lhsIoptions) =+ (let ( _lhsOerrors,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOoutput) = sem _lhsIoptions+ in (Syn_Grammar _lhsOerrors _lhsOnAutoRules _lhsOnExplicitRules _lhsOoutput))+sem_Grammar_Grammar :: TypeSyns ->+ UseMap ->+ Derivings ->+ (Set NontermIdent) ->+ T_Nonterminals ->+ PragmaMap ->+ AttrOrderMap ->+ ParamMap ->+ ContextMap ->+ QuantMap ->+ UniqueMap ->+ (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) ->+ (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) ->+ (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression)))) ->+ T_Grammar+sem_Grammar_Grammar typeSyns_ useMap_ derivings_ wrappers_ (T_Nonterminals nonts_) pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ quantMap_ uniqueMap_ augmentsMap_ aroundsMap_ mergeMap_ =+ (T_Grammar (\ _lhsIoptions ->+ (let _nontsOo_cata :: Bool+ _nontsOo_data :: Bool+ _nontsOo_sig :: Bool+ _nontsOo_sem :: Bool+ _nontsOo_rename :: Bool+ _nontsOo_newtypes :: Bool+ _nontsOo_wantvisit :: Bool+ _nontsOo_unbox :: Bool+ _nontsOo_case :: Bool+ _nontsOprefix :: String+ _nontsOvcount :: Int+ _nontsOmanualAttrDepMap :: AttrOrderMap+ _nontsOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))+ _nontsOacount :: Int+ _lhsOerrors :: (Seq Error)+ _lhsOoutput :: CGrammar+ _nontsOallnts :: ([Identifier])+ _nontsOinhMap :: (Map Identifier Attributes)+ _nontsOsynMap :: (Map Identifier Attributes)+ _lhsOnAutoRules :: Int+ _lhsOnExplicitRules :: Int+ _nontsOcInterfaceMap :: CInterfaceMap+ _nontsOcVisitsMap :: CVisitsMap+ _nontsOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))))+ _nontsOo_dovisit :: Bool+ _nontsIacount :: Int+ _nontsIadditionalDep :: (Seq Edge)+ _nontsIaranges :: (Seq (Int,Int,Int))+ _nontsIaroundDep :: (Seq Edge)+ _nontsIcNonterminals :: CNonterminals+ _nontsIdirectDep :: (Seq Edge)+ _nontsIerrors :: (Seq Error)+ _nontsIinhMap' :: (Map Identifier Attributes)+ _nontsIinstDep :: (Seq Edge)+ _nontsImergeDep :: (Seq Edge)+ _nontsInAutoRules :: Int+ _nontsInExplicitRules :: Int+ _nontsInonts :: ([(NontermIdent,[ConstructorIdent])])+ _nontsIntattrs :: (Seq (Vertex,NTAttr))+ _nontsIrules :: (Seq (Vertex,CRule))+ _nontsIsynMap' :: (Map Identifier Attributes)+ _nontsIvcount :: Int+ -- "src-ag/Order.ag"(line 124, column 17)+ _o_dovisit =+ ({-# LINE 124 "src-ag/Order.ag" #-}+ visit _lhsIoptions && null _cyclesErrors+ {-# LINE 1131 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 125, column 17)+ _nontsOo_cata =+ ({-# LINE 125 "src-ag/Order.ag" #-}+ folds _lhsIoptions+ {-# LINE 1137 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 125, column 17)+ _nontsOo_data =+ ({-# LINE 126 "src-ag/Order.ag" #-}+ dataTypes _lhsIoptions+ {-# LINE 1143 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 125, column 17)+ _nontsOo_sig =+ ({-# LINE 127 "src-ag/Order.ag" #-}+ typeSigs _lhsIoptions+ {-# LINE 1149 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 125, column 17)+ _nontsOo_sem =+ ({-# LINE 128 "src-ag/Order.ag" #-}+ semfuns _lhsIoptions+ {-# LINE 1155 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 125, column 17)+ _nontsOo_rename =+ ({-# LINE 129 "src-ag/Order.ag" #-}+ rename _lhsIoptions+ {-# LINE 1161 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 125, column 17)+ _nontsOo_newtypes =+ ({-# LINE 130 "src-ag/Order.ag" #-}+ newtypes _lhsIoptions+ {-# LINE 1167 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 125, column 17)+ _nontsOo_wantvisit =+ ({-# LINE 131 "src-ag/Order.ag" #-}+ visit _lhsIoptions+ {-# LINE 1173 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 125, column 17)+ _nontsOo_unbox =+ ({-# LINE 132 "src-ag/Order.ag" #-}+ unbox _lhsIoptions+ {-# LINE 1179 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 125, column 17)+ _nontsOo_case =+ ({-# LINE 133 "src-ag/Order.ag" #-}+ cases _lhsIoptions+ {-# LINE 1185 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 125, column 17)+ _nontsOprefix =+ ({-# LINE 134 "src-ag/Order.ag" #-}+ prefix _lhsIoptions+ {-# LINE 1191 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 260, column 15)+ _nontsOvcount =+ ({-# LINE 260 "src-ag/Order.ag" #-}+ 0+ {-# LINE 1197 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 286, column 7)+ _nontsOmanualAttrDepMap =+ ({-# LINE 286 "src-ag/Order.ag" #-}+ manualAttrOrderMap_+ {-# LINE 1203 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 415, column 14)+ _nontsOaroundMap =+ ({-# LINE 415 "src-ag/Order.ag" #-}+ aroundsMap_+ {-# LINE 1209 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 504, column 13)+ _nontsOacount =+ ({-# LINE 504 "src-ag/Order.ag" #-}+ 0+ {-# LINE 1215 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 542, column 13)+ _ruleTable =+ ({-# LINE 542 "src-ag/Order.ag" #-}+ Array.array (0,_nontsIvcount-1) (toList _nontsIrules)+ {-# LINE 1221 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 543, column 13)+ _attrTable =+ ({-# LINE 543 "src-ag/Order.ag" #-}+ Array.array (0,_nontsIacount-1) (toList _nontsIntattrs)+ {-# LINE 1227 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 544, column 13)+ _attrVertex =+ ({-# LINE 544 "src-ag/Order.ag" #-}+ Map.fromList (map swap (toList _nontsIntattrs))+ {-# LINE 1233 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 545, column 13)+ _tdpToTds =+ ({-# LINE 545 "src-ag/Order.ag" #-}+ [ (s, maybe (-1) (\v -> findWithErr1 "Grammar.tdpToTds" v _attrVertex) (ntattr cr))+ | (s,cr) <- toList _nontsIrules]+ {-# LINE 1240 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 547, column 13)+ _tdsToTdp =+ ({-# LINE 547 "src-ag/Order.ag" #-}+ let eq (_,v) (_,v') = v == v'+ conv ((s,v):svs) | v == -1 = Nothing+ | otherwise = Just (v,s:map fst svs)+ in mapMaybe conv (eqClasses eq _tdpToTds)+ {-# LINE 1249 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 551, column 13)+ _directDep =+ ({-# LINE 551 "src-ag/Order.ag" #-}+ toList (_nontsIdirectDep Seq.>< _nontsIadditionalDep)+ {-# LINE 1255 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 552, column 13)+ _instDep =+ ({-# LINE 552 "src-ag/Order.ag" #-}+ toList _nontsIinstDep+ {-# LINE 1261 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 553, column 13)+ _aroundDep =+ ({-# LINE 553 "src-ag/Order.ag" #-}+ toList _nontsIaroundDep+ {-# LINE 1267 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 554, column 13)+ _mergeDep =+ ({-# LINE 554 "src-ag/Order.ag" #-}+ toList _nontsImergeDep+ {-# LINE 1273 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 555, column 13)+ _info =+ ({-# LINE 555 "src-ag/Order.ag" #-}+ let def [] = -1+ def (v:vs) = v+ in Info { tdsToTdp = Array.array (0,_nontsIacount-1) _tdsToTdp+ , tdpToTds = Array.array (0,_nontsIvcount-1) _tdpToTds+ , attrTable = _attrTable+ , ruleTable = _ruleTable+ , lmh = toList _nontsIaranges+ , nonts = _nontsInonts+ , wraps = wrappers_+ }+ {-# LINE 1288 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 566, column 17)+ (_cInterfaceMap,_cVisitsMap,_cyclesErrors) =+ ({-# LINE 566 "src-ag/Order.ag" #-}+ case computeSequential _info _directDep (_instDep ++ _aroundDep ++ _mergeDep ) of+ CycleFree cim cvm -> ( cim+ , cvm+ , []+ )+ LocalCycle errs -> ( error "No interfaces for AG with local cycles"+ , error "No visit sub-sequences for AG with local cycles"+ , map (localCycleErr _ruleTable (visit _lhsIoptions)) errs+ )+ InstCycle errs -> ( error "No interfaces for AG with cycles through insts"+ , error "No visit sub-sequences for AG with cycles through insts"+ , map (instCycleErr _ruleTable (visit _lhsIoptions)) errs+ )+ DirectCycle errs -> ( error "No interfaces for AG with direct cycles"+ , error "No visit sub-sequences for AG with direct cycles"+ , directCycleErrs _attrTable _ruleTable (visit _lhsIoptions) errs+ )+ InducedCycle cim errs -> ( cim+ , error "No visit sub-sequences for AG with induced cycles"+ , inducedCycleErrs _attrTable _ruleTable cim errs+ )+ {-# LINE 1314 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 588, column 13)+ _lhsOerrors =+ ({-# LINE 588 "src-ag/Order.ag" #-}+ (if withCycle _lhsIoptions then Seq.fromList _cyclesErrors else Seq.empty)+ Seq.>< _nontsIerrors+ {-# LINE 1321 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 620, column 15)+ _lhsOoutput =+ ({-# LINE 620 "src-ag/Order.ag" #-}+ CGrammar typeSyns_ derivings_ wrappers_ _nontsIcNonterminals pragmas_ paramMap_ contextMap_ quantMap_ _aroundMap _mergeMap _o_dovisit+ {-# LINE 1327 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 633, column 14)+ _aroundMap =+ ({-# LINE 633 "src-ag/Order.ag" #-}+ Map.map (Map.map Map.keysSet) aroundsMap_+ {-# LINE 1333 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 634, column 14)+ _mergeMap =+ ({-# LINE 634 "src-ag/Order.ag" #-}+ Map.map (Map.map (Map.map (\(nt,srcs,_) -> (nt,srcs)))) mergeMap_+ {-# LINE 1339 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 651, column 13)+ _nontsOallnts =+ ({-# LINE 651 "src-ag/Order.ag" #-}+ map fst (_nontsInonts)+ {-# LINE 1345 "dist/build/Order" #-}+ )+ -- "src-ag/DistChildAttr.ag"(line 15, column 13)+ _nontsOinhMap =+ ({-# LINE 15 "src-ag/DistChildAttr.ag" #-}+ _nontsIinhMap'+ {-# LINE 1351 "dist/build/Order" #-}+ )+ -- "src-ag/DistChildAttr.ag"(line 16, column 13)+ _nontsOsynMap =+ ({-# LINE 16 "src-ag/DistChildAttr.ag" #-}+ _nontsIsynMap'+ {-# LINE 1357 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 62, column 105)+ _lhsOnAutoRules =+ ({-# LINE 62 "src-ag/Order.ag" #-}+ _nontsInAutoRules+ {-# LINE 1363 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 62, column 105)+ _lhsOnExplicitRules =+ ({-# LINE 62 "src-ag/Order.ag" #-}+ _nontsInExplicitRules+ {-# LINE 1369 "dist/build/Order" #-}+ )+ -- copy rule (from local)+ _nontsOcInterfaceMap =+ ({-# LINE 595 "src-ag/Order.ag" #-}+ _cInterfaceMap+ {-# LINE 1375 "dist/build/Order" #-}+ )+ -- copy rule (from local)+ _nontsOcVisitsMap =+ ({-# LINE 602 "src-ag/Order.ag" #-}+ _cVisitsMap+ {-# LINE 1381 "dist/build/Order" #-}+ )+ -- copy rule (from local)+ _nontsOmergeMap =+ ({-# LINE 353 "src-ag/Order.ag" #-}+ _mergeMap+ {-# LINE 1387 "dist/build/Order" #-}+ )+ -- copy rule (from local)+ _nontsOo_dovisit =+ ({-# LINE 117 "src-ag/Order.ag" #-}+ _o_dovisit+ {-# LINE 1393 "dist/build/Order" #-}+ )+ ( _nontsIacount,_nontsIadditionalDep,_nontsIaranges,_nontsIaroundDep,_nontsIcNonterminals,_nontsIdirectDep,_nontsIerrors,_nontsIinhMap',_nontsIinstDep,_nontsImergeDep,_nontsInAutoRules,_nontsInExplicitRules,_nontsInonts,_nontsIntattrs,_nontsIrules,_nontsIsynMap',_nontsIvcount) =+ nonts_ _nontsOacount _nontsOallnts _nontsOaroundMap _nontsOcInterfaceMap _nontsOcVisitsMap _nontsOinhMap _nontsOmanualAttrDepMap _nontsOmergeMap _nontsOo_case _nontsOo_cata _nontsOo_data _nontsOo_dovisit _nontsOo_newtypes _nontsOo_rename _nontsOo_sem _nontsOo_sig _nontsOo_unbox _nontsOo_wantvisit _nontsOprefix _nontsOsynMap _nontsOvcount+ ___node =+ (Syn_Grammar _lhsOerrors _lhsOnAutoRules _lhsOnExplicitRules _lhsOoutput)+ in ( _lhsOerrors,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOoutput))))+-- Nonterminal -------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allnts : [Identifier]+ aroundMap : Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))+ cInterfaceMap : CInterfaceMap+ cVisitsMap : CVisitsMap+ inhMap : Map Identifier Attributes+ manualAttrDepMap : AttrOrderMap+ mergeMap : Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))+ o_case : Bool+ o_cata : Bool+ o_data : Bool+ o_dovisit : Bool+ o_newtypes : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_unbox : Bool+ o_wantvisit : Bool+ prefix : String+ synMap : Map Identifier Attributes+ chained attributes:+ acount : Int+ vcount : Int+ synthesized attributes:+ additionalDep : Seq Edge+ aranges : Seq (Int,Int,Int)+ aroundDep : Seq Edge+ cNonterminal : CNonterminal+ directDep : Seq Edge+ errors : Seq Error+ inhMap' : Map Identifier Attributes+ instDep : Seq Edge+ mergeDep : Seq Edge+ nAutoRules : Int+ nExplicitRules : Int+ nonts : [(NontermIdent,[ConstructorIdent])]+ ntattrs : Seq (Vertex,NTAttr)+ rules : Seq (Vertex,CRule)+ synMap' : Map Identifier Attributes+ alternatives:+ alternative Nonterminal:+ child nt : {NontermIdent}+ child params : {[Identifier]}+ child inh : {Attributes}+ child syn : {Attributes}+ child prods : Productions + visit 0:+ local mergeMap : _+ local aroundMap : _+ local ntattrs : _+ local cInter : _+-}+-- cata+sem_Nonterminal :: Nonterminal ->+ T_Nonterminal+sem_Nonterminal (Nonterminal _nt _params _inh _syn _prods) =+ (sem_Nonterminal_Nonterminal _nt _params _inh _syn (sem_Productions _prods))+-- semantic domain+newtype T_Nonterminal = T_Nonterminal (Int ->+ ([Identifier]) ->+ (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) ->+ CInterfaceMap ->+ CVisitsMap ->+ (Map Identifier Attributes) ->+ AttrOrderMap ->+ (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ String ->+ (Map Identifier Attributes) ->+ Int ->+ ( Int,(Seq Edge),(Seq (Int,Int,Int)),(Seq Edge),CNonterminal,(Seq Edge),(Seq Error),(Map Identifier Attributes),(Seq Edge),(Seq Edge),Int,Int,([(NontermIdent,[ConstructorIdent])]),(Seq (Vertex,NTAttr)),(Seq (Vertex,CRule)),(Map Identifier Attributes),Int))+data Inh_Nonterminal = Inh_Nonterminal {acount_Inh_Nonterminal :: !(Int),allnts_Inh_Nonterminal :: !(([Identifier])),aroundMap_Inh_Nonterminal :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))),cInterfaceMap_Inh_Nonterminal :: !(CInterfaceMap),cVisitsMap_Inh_Nonterminal :: !(CVisitsMap),inhMap_Inh_Nonterminal :: !((Map Identifier Attributes)),manualAttrDepMap_Inh_Nonterminal :: !(AttrOrderMap),mergeMap_Inh_Nonterminal :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))))),o_case_Inh_Nonterminal :: !(Bool),o_cata_Inh_Nonterminal :: !(Bool),o_data_Inh_Nonterminal :: !(Bool),o_dovisit_Inh_Nonterminal :: !(Bool),o_newtypes_Inh_Nonterminal :: !(Bool),o_rename_Inh_Nonterminal :: !(Bool),o_sem_Inh_Nonterminal :: !(Bool),o_sig_Inh_Nonterminal :: !(Bool),o_unbox_Inh_Nonterminal :: !(Bool),o_wantvisit_Inh_Nonterminal :: !(Bool),prefix_Inh_Nonterminal :: !(String),synMap_Inh_Nonterminal :: !((Map Identifier Attributes)),vcount_Inh_Nonterminal :: !(Int)}+data Syn_Nonterminal = Syn_Nonterminal {acount_Syn_Nonterminal :: !(Int),additionalDep_Syn_Nonterminal :: !((Seq Edge)),aranges_Syn_Nonterminal :: !((Seq (Int,Int,Int))),aroundDep_Syn_Nonterminal :: !((Seq Edge)),cNonterminal_Syn_Nonterminal :: !(CNonterminal),directDep_Syn_Nonterminal :: !((Seq Edge)),errors_Syn_Nonterminal :: !((Seq Error)),inhMap'_Syn_Nonterminal :: !((Map Identifier Attributes)),instDep_Syn_Nonterminal :: !((Seq Edge)),mergeDep_Syn_Nonterminal :: !((Seq Edge)),nAutoRules_Syn_Nonterminal :: !(Int),nExplicitRules_Syn_Nonterminal :: !(Int),nonts_Syn_Nonterminal :: !(([(NontermIdent,[ConstructorIdent])])),ntattrs_Syn_Nonterminal :: !((Seq (Vertex,NTAttr))),rules_Syn_Nonterminal :: !((Seq (Vertex,CRule))),synMap'_Syn_Nonterminal :: !((Map Identifier Attributes)),vcount_Syn_Nonterminal :: !(Int)}+wrap_Nonterminal :: T_Nonterminal ->+ Inh_Nonterminal ->+ Syn_Nonterminal+wrap_Nonterminal (T_Nonterminal sem) (Inh_Nonterminal _lhsIacount _lhsIallnts _lhsIaroundMap _lhsIcInterfaceMap _lhsIcVisitsMap _lhsIinhMap _lhsImanualAttrDepMap _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_data _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsynMap _lhsIvcount) =+ (let ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminal,_lhsOdirectDep,_lhsOerrors,_lhsOinhMap',_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOsynMap',_lhsOvcount) = sem _lhsIacount _lhsIallnts _lhsIaroundMap _lhsIcInterfaceMap _lhsIcVisitsMap _lhsIinhMap _lhsImanualAttrDepMap _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_data _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsynMap _lhsIvcount+ in (Syn_Nonterminal _lhsOacount _lhsOadditionalDep _lhsOaranges _lhsOaroundDep _lhsOcNonterminal _lhsOdirectDep _lhsOerrors _lhsOinhMap' _lhsOinstDep _lhsOmergeDep _lhsOnAutoRules _lhsOnExplicitRules _lhsOnonts _lhsOntattrs _lhsOrules _lhsOsynMap' _lhsOvcount))+sem_Nonterminal_Nonterminal :: NontermIdent ->+ ([Identifier]) ->+ Attributes ->+ Attributes ->+ T_Productions ->+ T_Nonterminal+sem_Nonterminal_Nonterminal nt_ params_ inh_ syn_ (T_Productions prods_) =+ (T_Nonterminal (\ _lhsIacount+ _lhsIallnts+ _lhsIaroundMap+ _lhsIcInterfaceMap+ _lhsIcVisitsMap+ _lhsIinhMap+ _lhsImanualAttrDepMap+ _lhsImergeMap+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_data+ _lhsIo_dovisit+ _lhsIo_newtypes+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_unbox+ _lhsIo_wantvisit+ _lhsIprefix+ _lhsIsynMap+ _lhsIvcount ->+ (let _prodsOnt :: Identifier+ _prodsOinh :: Attributes+ _prodsOsyn :: Attributes+ _lhsOntattrs :: (Seq (Vertex,NTAttr))+ _lhsOacount :: Int+ _lhsOaranges :: (Seq (Int,Int,Int))+ _lhsOnonts :: ([(NontermIdent,[ConstructorIdent])])+ _lhsOcNonterminal :: CNonterminal+ _lhsOinhMap' :: (Map Identifier Attributes)+ _lhsOsynMap' :: (Map Identifier Attributes)+ _lhsOadditionalDep :: (Seq Edge)+ _lhsOaroundDep :: (Seq Edge)+ _lhsOdirectDep :: (Seq Edge)+ _lhsOerrors :: (Seq Error)+ _lhsOinstDep :: (Seq Edge)+ _lhsOmergeDep :: (Seq Edge)+ _lhsOnAutoRules :: Int+ _lhsOnExplicitRules :: Int+ _lhsOrules :: (Seq (Vertex,CRule))+ _lhsOvcount :: Int+ _prodsOallnts :: ([Identifier])+ _prodsOaroundMap :: (Map ConstructorIdent (Map Identifier [Expression]))+ _prodsOcVisitsMap :: CVisitsMap+ _prodsOinhMap :: (Map Identifier Attributes)+ _prodsOmanualAttrDepMap :: AttrOrderMap+ _prodsOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))+ _prodsOo_case :: Bool+ _prodsOo_cata :: Bool+ _prodsOo_dovisit :: Bool+ _prodsOo_newtypes :: Bool+ _prodsOo_rename :: Bool+ _prodsOo_sem :: Bool+ _prodsOo_sig :: Bool+ _prodsOo_unbox :: Bool+ _prodsOo_wantvisit :: Bool+ _prodsOprefix :: String+ _prodsOsynMap :: (Map Identifier Attributes)+ _prodsOvcount :: Int+ _prodsIadditionalDep :: (Seq Edge)+ _prodsIaroundDep :: (Seq Edge)+ _prodsIcProductions :: CProductions+ _prodsIcons :: ([ConstructorIdent])+ _prodsIdirectDep :: (Seq Edge)+ _prodsIerrors :: (Seq Error)+ _prodsIinstDep :: (Seq Edge)+ _prodsImergeDep :: (Seq Edge)+ _prodsInAutoRules :: Int+ _prodsInExplicitRules :: Int+ _prodsIrules :: (Seq (Vertex,CRule))+ _prodsIvcount :: Int+ -- "src-ag/Order.ag"(line 98, column 17)+ _prodsOnt =+ ({-# LINE 98 "src-ag/Order.ag" #-}+ nt_+ {-# LINE 1573 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 101, column 17)+ _prodsOinh =+ ({-# LINE 101 "src-ag/Order.ag" #-}+ inh_+ {-# LINE 1579 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 102, column 17)+ _prodsOsyn =+ ({-# LINE 102 "src-ag/Order.ag" #-}+ syn_+ {-# LINE 1585 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 358, column 32)+ _mergeMap =+ ({-# LINE 358 "src-ag/Order.ag" #-}+ Map.findWithDefault Map.empty nt_ _lhsImergeMap+ {-# LINE 1591 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 411, column 32)+ _aroundMap =+ ({-# LINE 411 "src-ag/Order.ag" #-}+ Map.findWithDefault Map.empty nt_ _lhsIaroundMap+ {-# LINE 1597 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 507, column 17)+ _ntattrs =+ ({-# LINE 507 "src-ag/Order.ag" #-}+ [ NTAInh nt_ inh tp | (inh,tp) <- Map.assocs inh_ ]+ ++ [NTASyn nt_ syn tp | (syn,tp) <- Map.assocs syn_ ]+ {-# LINE 1604 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 509, column 17)+ _lhsOntattrs =+ ({-# LINE 509 "src-ag/Order.ag" #-}+ Seq.fromList (zip [_lhsIacount ..] _ntattrs)+ {-# LINE 1610 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 510, column 17)+ _lhsOacount =+ ({-# LINE 510 "src-ag/Order.ag" #-}+ _lhsIacount + Map.size inh_ + Map.size syn_+ {-# LINE 1616 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 511, column 17)+ _lhsOaranges =+ ({-# LINE 511 "src-ag/Order.ag" #-}+ Seq.singleton+ (_lhsIacount+ ,_lhsIacount + Map.size inh_+ ,_lhsIacount + Map.size syn_ + Map.size inh_ - 1)+ {-# LINE 1625 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 520, column 19)+ _lhsOnonts =+ ({-# LINE 520 "src-ag/Order.ag" #-}+ [(nt_,_prodsIcons)]+ {-# LINE 1631 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 597, column 19)+ _cInter =+ ({-# LINE 597 "src-ag/Order.ag" #-}+ if _lhsIo_dovisit+ then findWithErr1 "Nonterminal.cInter" nt_ _lhsIcInterfaceMap+ else CInterface [CSegment inh_ syn_]+ {-# LINE 1639 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 625, column 19)+ _lhsOcNonterminal =+ ({-# LINE 625 "src-ag/Order.ag" #-}+ CNonterminal nt_ params_ inh_ syn_ _prodsIcProductions _cInter+ {-# LINE 1645 "dist/build/Order" #-}+ )+ -- "src-ag/DistChildAttr.ag"(line 7, column 18)+ _lhsOinhMap' =+ ({-# LINE 7 "src-ag/DistChildAttr.ag" #-}+ Map.singleton nt_ inh_+ {-# LINE 1651 "dist/build/Order" #-}+ )+ -- "src-ag/DistChildAttr.ag"(line 8, column 18)+ _lhsOsynMap' =+ ({-# LINE 8 "src-ag/DistChildAttr.ag" #-}+ Map.singleton nt_ syn_+ {-# LINE 1657 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 282, column 60)+ _lhsOadditionalDep =+ ({-# LINE 282 "src-ag/Order.ag" #-}+ _prodsIadditionalDep+ {-# LINE 1663 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 403, column 24)+ _lhsOaroundDep =+ ({-# LINE 403 "src-ag/Order.ag" #-}+ _prodsIaroundDep+ {-# LINE 1669 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 268, column 33)+ _lhsOdirectDep =+ ({-# LINE 268 "src-ag/Order.ag" #-}+ _prodsIdirectDep+ {-# LINE 1675 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 85, column 70)+ _lhsOerrors =+ ({-# LINE 85 "src-ag/Order.ag" #-}+ _prodsIerrors+ {-# LINE 1681 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 311, column 31)+ _lhsOinstDep =+ ({-# LINE 311 "src-ag/Order.ag" #-}+ _prodsIinstDep+ {-# LINE 1687 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 366, column 18)+ _lhsOmergeDep =+ ({-# LINE 366 "src-ag/Order.ag" #-}+ _prodsImergeDep+ {-# LINE 1693 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 62, column 105)+ _lhsOnAutoRules =+ ({-# LINE 62 "src-ag/Order.ag" #-}+ _prodsInAutoRules+ {-# LINE 1699 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 62, column 105)+ _lhsOnExplicitRules =+ ({-# LINE 62 "src-ag/Order.ag" #-}+ _prodsInExplicitRules+ {-# LINE 1705 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 258, column 18)+ _lhsOrules =+ ({-# LINE 258 "src-ag/Order.ag" #-}+ _prodsIrules+ {-# LINE 1711 "dist/build/Order" #-}+ )+ -- copy rule (up)+ _lhsOvcount =+ ({-# LINE 257 "src-ag/Order.ag" #-}+ _prodsIvcount+ {-# LINE 1717 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _prodsOallnts =+ ({-# LINE 648 "src-ag/Order.ag" #-}+ _lhsIallnts+ {-# LINE 1723 "dist/build/Order" #-}+ )+ -- copy rule (from local)+ _prodsOaroundMap =+ ({-# LINE 409 "src-ag/Order.ag" #-}+ _aroundMap+ {-# LINE 1729 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _prodsOcVisitsMap =+ ({-# LINE 602 "src-ag/Order.ag" #-}+ _lhsIcVisitsMap+ {-# LINE 1735 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _prodsOinhMap =+ ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}+ _lhsIinhMap+ {-# LINE 1741 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _prodsOmanualAttrDepMap =+ ({-# LINE 282 "src-ag/Order.ag" #-}+ _lhsImanualAttrDepMap+ {-# LINE 1747 "dist/build/Order" #-}+ )+ -- copy rule (from local)+ _prodsOmergeMap =+ ({-# LINE 356 "src-ag/Order.ag" #-}+ _mergeMap+ {-# LINE 1753 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _prodsOo_case =+ ({-# LINE 118 "src-ag/Order.ag" #-}+ _lhsIo_case+ {-# LINE 1759 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _prodsOo_cata =+ ({-# LINE 112 "src-ag/Order.ag" #-}+ _lhsIo_cata+ {-# LINE 1765 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _prodsOo_dovisit =+ ({-# LINE 117 "src-ag/Order.ag" #-}+ _lhsIo_dovisit+ {-# LINE 1771 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _prodsOo_newtypes =+ ({-# LINE 111 "src-ag/Order.ag" #-}+ _lhsIo_newtypes+ {-# LINE 1777 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _prodsOo_rename =+ ({-# LINE 115 "src-ag/Order.ag" #-}+ _lhsIo_rename+ {-# LINE 1783 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _prodsOo_sem =+ ({-# LINE 114 "src-ag/Order.ag" #-}+ _lhsIo_sem+ {-# LINE 1789 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _prodsOo_sig =+ ({-# LINE 113 "src-ag/Order.ag" #-}+ _lhsIo_sig+ {-# LINE 1795 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _prodsOo_unbox =+ ({-# LINE 120 "src-ag/Order.ag" #-}+ _lhsIo_unbox+ {-# LINE 1801 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _prodsOo_wantvisit =+ ({-# LINE 116 "src-ag/Order.ag" #-}+ _lhsIo_wantvisit+ {-# LINE 1807 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _prodsOprefix =+ ({-# LINE 119 "src-ag/Order.ag" #-}+ _lhsIprefix+ {-# LINE 1813 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _prodsOsynMap =+ ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}+ _lhsIsynMap+ {-# LINE 1819 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _prodsOvcount =+ ({-# LINE 257 "src-ag/Order.ag" #-}+ _lhsIvcount+ {-# LINE 1825 "dist/build/Order" #-}+ )+ ( _prodsIadditionalDep,_prodsIaroundDep,_prodsIcProductions,_prodsIcons,_prodsIdirectDep,_prodsIerrors,_prodsIinstDep,_prodsImergeDep,_prodsInAutoRules,_prodsInExplicitRules,_prodsIrules,_prodsIvcount) =+ prods_ _prodsOallnts _prodsOaroundMap _prodsOcVisitsMap _prodsOinh _prodsOinhMap _prodsOmanualAttrDepMap _prodsOmergeMap _prodsOnt _prodsOo_case _prodsOo_cata _prodsOo_dovisit _prodsOo_newtypes _prodsOo_rename _prodsOo_sem _prodsOo_sig _prodsOo_unbox _prodsOo_wantvisit _prodsOprefix _prodsOsyn _prodsOsynMap _prodsOvcount+ ___node =+ (Syn_Nonterminal _lhsOacount _lhsOadditionalDep _lhsOaranges _lhsOaroundDep _lhsOcNonterminal _lhsOdirectDep _lhsOerrors _lhsOinhMap' _lhsOinstDep _lhsOmergeDep _lhsOnAutoRules _lhsOnExplicitRules _lhsOnonts _lhsOntattrs _lhsOrules _lhsOsynMap' _lhsOvcount)+ in ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminal,_lhsOdirectDep,_lhsOerrors,_lhsOinhMap',_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOsynMap',_lhsOvcount))))+-- Nonterminals ------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allnts : [Identifier]+ aroundMap : Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))+ cInterfaceMap : CInterfaceMap+ cVisitsMap : CVisitsMap+ inhMap : Map Identifier Attributes+ manualAttrDepMap : AttrOrderMap+ mergeMap : Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))+ o_case : Bool+ o_cata : Bool+ o_data : Bool+ o_dovisit : Bool+ o_newtypes : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_unbox : Bool+ o_wantvisit : Bool+ prefix : String+ synMap : Map Identifier Attributes+ chained attributes:+ acount : Int+ vcount : Int+ synthesized attributes:+ additionalDep : Seq Edge+ aranges : Seq (Int,Int,Int)+ aroundDep : Seq Edge+ cNonterminals : CNonterminals+ directDep : Seq Edge+ errors : Seq Error+ inhMap' : Map Identifier Attributes+ instDep : Seq Edge+ mergeDep : Seq Edge+ nAutoRules : Int+ nExplicitRules : Int+ nonts : [(NontermIdent,[ConstructorIdent])]+ ntattrs : Seq (Vertex,NTAttr)+ rules : Seq (Vertex,CRule)+ synMap' : Map Identifier Attributes+ alternatives:+ alternative Cons:+ child hd : Nonterminal + child tl : Nonterminals + alternative Nil:+-}+-- cata+sem_Nonterminals :: Nonterminals ->+ T_Nonterminals+sem_Nonterminals list =+ (Prelude.foldr sem_Nonterminals_Cons sem_Nonterminals_Nil (Prelude.map sem_Nonterminal list))+-- semantic domain+newtype T_Nonterminals = T_Nonterminals (Int ->+ ([Identifier]) ->+ (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) ->+ CInterfaceMap ->+ CVisitsMap ->+ (Map Identifier Attributes) ->+ AttrOrderMap ->+ (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))) ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ String ->+ (Map Identifier Attributes) ->+ Int ->+ ( Int,(Seq Edge),(Seq (Int,Int,Int)),(Seq Edge),CNonterminals,(Seq Edge),(Seq Error),(Map Identifier Attributes),(Seq Edge),(Seq Edge),Int,Int,([(NontermIdent,[ConstructorIdent])]),(Seq (Vertex,NTAttr)),(Seq (Vertex,CRule)),(Map Identifier Attributes),Int))+data Inh_Nonterminals = Inh_Nonterminals {acount_Inh_Nonterminals :: !(Int),allnts_Inh_Nonterminals :: !(([Identifier])),aroundMap_Inh_Nonterminals :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))),cInterfaceMap_Inh_Nonterminals :: !(CInterfaceMap),cVisitsMap_Inh_Nonterminals :: !(CVisitsMap),inhMap_Inh_Nonterminals :: !((Map Identifier Attributes)),manualAttrDepMap_Inh_Nonterminals :: !(AttrOrderMap),mergeMap_Inh_Nonterminals :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))))),o_case_Inh_Nonterminals :: !(Bool),o_cata_Inh_Nonterminals :: !(Bool),o_data_Inh_Nonterminals :: !(Bool),o_dovisit_Inh_Nonterminals :: !(Bool),o_newtypes_Inh_Nonterminals :: !(Bool),o_rename_Inh_Nonterminals :: !(Bool),o_sem_Inh_Nonterminals :: !(Bool),o_sig_Inh_Nonterminals :: !(Bool),o_unbox_Inh_Nonterminals :: !(Bool),o_wantvisit_Inh_Nonterminals :: !(Bool),prefix_Inh_Nonterminals :: !(String),synMap_Inh_Nonterminals :: !((Map Identifier Attributes)),vcount_Inh_Nonterminals :: !(Int)}+data Syn_Nonterminals = Syn_Nonterminals {acount_Syn_Nonterminals :: !(Int),additionalDep_Syn_Nonterminals :: !((Seq Edge)),aranges_Syn_Nonterminals :: !((Seq (Int,Int,Int))),aroundDep_Syn_Nonterminals :: !((Seq Edge)),cNonterminals_Syn_Nonterminals :: !(CNonterminals),directDep_Syn_Nonterminals :: !((Seq Edge)),errors_Syn_Nonterminals :: !((Seq Error)),inhMap'_Syn_Nonterminals :: !((Map Identifier Attributes)),instDep_Syn_Nonterminals :: !((Seq Edge)),mergeDep_Syn_Nonterminals :: !((Seq Edge)),nAutoRules_Syn_Nonterminals :: !(Int),nExplicitRules_Syn_Nonterminals :: !(Int),nonts_Syn_Nonterminals :: !(([(NontermIdent,[ConstructorIdent])])),ntattrs_Syn_Nonterminals :: !((Seq (Vertex,NTAttr))),rules_Syn_Nonterminals :: !((Seq (Vertex,CRule))),synMap'_Syn_Nonterminals :: !((Map Identifier Attributes)),vcount_Syn_Nonterminals :: !(Int)}+wrap_Nonterminals :: T_Nonterminals ->+ Inh_Nonterminals ->+ Syn_Nonterminals+wrap_Nonterminals (T_Nonterminals sem) (Inh_Nonterminals _lhsIacount _lhsIallnts _lhsIaroundMap _lhsIcInterfaceMap _lhsIcVisitsMap _lhsIinhMap _lhsImanualAttrDepMap _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_data _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsynMap _lhsIvcount) =+ (let ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminals,_lhsOdirectDep,_lhsOerrors,_lhsOinhMap',_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOsynMap',_lhsOvcount) = sem _lhsIacount _lhsIallnts _lhsIaroundMap _lhsIcInterfaceMap _lhsIcVisitsMap _lhsIinhMap _lhsImanualAttrDepMap _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_data _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsynMap _lhsIvcount+ in (Syn_Nonterminals _lhsOacount _lhsOadditionalDep _lhsOaranges _lhsOaroundDep _lhsOcNonterminals _lhsOdirectDep _lhsOerrors _lhsOinhMap' _lhsOinstDep _lhsOmergeDep _lhsOnAutoRules _lhsOnExplicitRules _lhsOnonts _lhsOntattrs _lhsOrules _lhsOsynMap' _lhsOvcount))+sem_Nonterminals_Cons :: T_Nonterminal ->+ T_Nonterminals ->+ T_Nonterminals+sem_Nonterminals_Cons (T_Nonterminal hd_) (T_Nonterminals tl_) =+ (T_Nonterminals (\ _lhsIacount+ _lhsIallnts+ _lhsIaroundMap+ _lhsIcInterfaceMap+ _lhsIcVisitsMap+ _lhsIinhMap+ _lhsImanualAttrDepMap+ _lhsImergeMap+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_data+ _lhsIo_dovisit+ _lhsIo_newtypes+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_unbox+ _lhsIo_wantvisit+ _lhsIprefix+ _lhsIsynMap+ _lhsIvcount ->+ (let _lhsOcNonterminals :: CNonterminals+ _lhsOadditionalDep :: (Seq Edge)+ _lhsOaranges :: (Seq (Int,Int,Int))+ _lhsOaroundDep :: (Seq Edge)+ _lhsOdirectDep :: (Seq Edge)+ _lhsOerrors :: (Seq Error)+ _lhsOinhMap' :: (Map Identifier Attributes)+ _lhsOinstDep :: (Seq Edge)+ _lhsOmergeDep :: (Seq Edge)+ _lhsOnAutoRules :: Int+ _lhsOnExplicitRules :: Int+ _lhsOnonts :: ([(NontermIdent,[ConstructorIdent])])+ _lhsOntattrs :: (Seq (Vertex,NTAttr))+ _lhsOrules :: (Seq (Vertex,CRule))+ _lhsOsynMap' :: (Map Identifier Attributes)+ _lhsOacount :: Int+ _lhsOvcount :: Int+ _hdOacount :: Int+ _hdOallnts :: ([Identifier])+ _hdOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))+ _hdOcInterfaceMap :: CInterfaceMap+ _hdOcVisitsMap :: CVisitsMap+ _hdOinhMap :: (Map Identifier Attributes)+ _hdOmanualAttrDepMap :: AttrOrderMap+ _hdOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))))+ _hdOo_case :: Bool+ _hdOo_cata :: Bool+ _hdOo_data :: Bool+ _hdOo_dovisit :: Bool+ _hdOo_newtypes :: Bool+ _hdOo_rename :: Bool+ _hdOo_sem :: Bool+ _hdOo_sig :: Bool+ _hdOo_unbox :: Bool+ _hdOo_wantvisit :: Bool+ _hdOprefix :: String+ _hdOsynMap :: (Map Identifier Attributes)+ _hdOvcount :: Int+ _tlOacount :: Int+ _tlOallnts :: ([Identifier])+ _tlOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))+ _tlOcInterfaceMap :: CInterfaceMap+ _tlOcVisitsMap :: CVisitsMap+ _tlOinhMap :: (Map Identifier Attributes)+ _tlOmanualAttrDepMap :: AttrOrderMap+ _tlOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))))+ _tlOo_case :: Bool+ _tlOo_cata :: Bool+ _tlOo_data :: Bool+ _tlOo_dovisit :: Bool+ _tlOo_newtypes :: Bool+ _tlOo_rename :: Bool+ _tlOo_sem :: Bool+ _tlOo_sig :: Bool+ _tlOo_unbox :: Bool+ _tlOo_wantvisit :: Bool+ _tlOprefix :: String+ _tlOsynMap :: (Map Identifier Attributes)+ _tlOvcount :: Int+ _hdIacount :: Int+ _hdIadditionalDep :: (Seq Edge)+ _hdIaranges :: (Seq (Int,Int,Int))+ _hdIaroundDep :: (Seq Edge)+ _hdIcNonterminal :: CNonterminal+ _hdIdirectDep :: (Seq Edge)+ _hdIerrors :: (Seq Error)+ _hdIinhMap' :: (Map Identifier Attributes)+ _hdIinstDep :: (Seq Edge)+ _hdImergeDep :: (Seq Edge)+ _hdInAutoRules :: Int+ _hdInExplicitRules :: Int+ _hdInonts :: ([(NontermIdent,[ConstructorIdent])])+ _hdIntattrs :: (Seq (Vertex,NTAttr))+ _hdIrules :: (Seq (Vertex,CRule))+ _hdIsynMap' :: (Map Identifier Attributes)+ _hdIvcount :: Int+ _tlIacount :: Int+ _tlIadditionalDep :: (Seq Edge)+ _tlIaranges :: (Seq (Int,Int,Int))+ _tlIaroundDep :: (Seq Edge)+ _tlIcNonterminals :: CNonterminals+ _tlIdirectDep :: (Seq Edge)+ _tlIerrors :: (Seq Error)+ _tlIinhMap' :: (Map Identifier Attributes)+ _tlIinstDep :: (Seq Edge)+ _tlImergeDep :: (Seq Edge)+ _tlInAutoRules :: Int+ _tlInExplicitRules :: Int+ _tlInonts :: ([(NontermIdent,[ConstructorIdent])])+ _tlIntattrs :: (Seq (Vertex,NTAttr))+ _tlIrules :: (Seq (Vertex,CRule))+ _tlIsynMap' :: (Map Identifier Attributes)+ _tlIvcount :: Int+ -- "src-ag/Order.ag"(line 622, column 12)+ _lhsOcNonterminals =+ ({-# LINE 622 "src-ag/Order.ag" #-}+ _hdIcNonterminal : _tlIcNonterminals+ {-# LINE 2038 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 282, column 60)+ _lhsOadditionalDep =+ ({-# LINE 282 "src-ag/Order.ag" #-}+ _hdIadditionalDep Seq.>< _tlIadditionalDep+ {-# LINE 2044 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 501, column 36)+ _lhsOaranges =+ ({-# LINE 501 "src-ag/Order.ag" #-}+ _hdIaranges Seq.>< _tlIaranges+ {-# LINE 2050 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 403, column 24)+ _lhsOaroundDep =+ ({-# LINE 403 "src-ag/Order.ag" #-}+ _hdIaroundDep Seq.>< _tlIaroundDep+ {-# LINE 2056 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 268, column 33)+ _lhsOdirectDep =+ ({-# LINE 268 "src-ag/Order.ag" #-}+ _hdIdirectDep Seq.>< _tlIdirectDep+ {-# LINE 2062 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 85, column 70)+ _lhsOerrors =+ ({-# LINE 85 "src-ag/Order.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 2068 "dist/build/Order" #-}+ )+ -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53)+ _lhsOinhMap' =+ ({-# LINE 4 "src-ag/DistChildAttr.ag" #-}+ _hdIinhMap' `Map.union` _tlIinhMap'+ {-# LINE 2074 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 311, column 31)+ _lhsOinstDep =+ ({-# LINE 311 "src-ag/Order.ag" #-}+ _hdIinstDep Seq.>< _tlIinstDep+ {-# LINE 2080 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 366, column 18)+ _lhsOmergeDep =+ ({-# LINE 366 "src-ag/Order.ag" #-}+ _hdImergeDep Seq.>< _tlImergeDep+ {-# LINE 2086 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 62, column 105)+ _lhsOnAutoRules =+ ({-# LINE 62 "src-ag/Order.ag" #-}+ _hdInAutoRules + _tlInAutoRules+ {-# LINE 2092 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 62, column 105)+ _lhsOnExplicitRules =+ ({-# LINE 62 "src-ag/Order.ag" #-}+ _hdInExplicitRules + _tlInExplicitRules+ {-# LINE 2098 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 518, column 43)+ _lhsOnonts =+ ({-# LINE 518 "src-ag/Order.ag" #-}+ _hdInonts ++ _tlInonts+ {-# LINE 2104 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 500, column 35)+ _lhsOntattrs =+ ({-# LINE 500 "src-ag/Order.ag" #-}+ _hdIntattrs Seq.>< _tlIntattrs+ {-# LINE 2110 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 258, column 18)+ _lhsOrules =+ ({-# LINE 258 "src-ag/Order.ag" #-}+ _hdIrules Seq.>< _tlIrules+ {-# LINE 2116 "dist/build/Order" #-}+ )+ -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53)+ _lhsOsynMap' =+ ({-# LINE 4 "src-ag/DistChildAttr.ag" #-}+ _hdIsynMap' `Map.union` _tlIsynMap'+ {-# LINE 2122 "dist/build/Order" #-}+ )+ -- copy rule (up)+ _lhsOacount =+ ({-# LINE 500 "src-ag/Order.ag" #-}+ _tlIacount+ {-# LINE 2128 "dist/build/Order" #-}+ )+ -- copy rule (up)+ _lhsOvcount =+ ({-# LINE 257 "src-ag/Order.ag" #-}+ _tlIvcount+ {-# LINE 2134 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOacount =+ ({-# LINE 500 "src-ag/Order.ag" #-}+ _lhsIacount+ {-# LINE 2140 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOallnts =+ ({-# LINE 648 "src-ag/Order.ag" #-}+ _lhsIallnts+ {-# LINE 2146 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOaroundMap =+ ({-# LINE 406 "src-ag/Order.ag" #-}+ _lhsIaroundMap+ {-# LINE 2152 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOcInterfaceMap =+ ({-# LINE 595 "src-ag/Order.ag" #-}+ _lhsIcInterfaceMap+ {-# LINE 2158 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOcVisitsMap =+ ({-# LINE 602 "src-ag/Order.ag" #-}+ _lhsIcVisitsMap+ {-# LINE 2164 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOinhMap =+ ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}+ _lhsIinhMap+ {-# LINE 2170 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOmanualAttrDepMap =+ ({-# LINE 282 "src-ag/Order.ag" #-}+ _lhsImanualAttrDepMap+ {-# LINE 2176 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOmergeMap =+ ({-# LINE 353 "src-ag/Order.ag" #-}+ _lhsImergeMap+ {-# LINE 2182 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_case =+ ({-# LINE 118 "src-ag/Order.ag" #-}+ _lhsIo_case+ {-# LINE 2188 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_cata =+ ({-# LINE 112 "src-ag/Order.ag" #-}+ _lhsIo_cata+ {-# LINE 2194 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_data =+ ({-# LINE 121 "src-ag/Order.ag" #-}+ _lhsIo_data+ {-# LINE 2200 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_dovisit =+ ({-# LINE 117 "src-ag/Order.ag" #-}+ _lhsIo_dovisit+ {-# LINE 2206 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_newtypes =+ ({-# LINE 111 "src-ag/Order.ag" #-}+ _lhsIo_newtypes+ {-# LINE 2212 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_rename =+ ({-# LINE 115 "src-ag/Order.ag" #-}+ _lhsIo_rename+ {-# LINE 2218 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_sem =+ ({-# LINE 114 "src-ag/Order.ag" #-}+ _lhsIo_sem+ {-# LINE 2224 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_sig =+ ({-# LINE 113 "src-ag/Order.ag" #-}+ _lhsIo_sig+ {-# LINE 2230 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_unbox =+ ({-# LINE 120 "src-ag/Order.ag" #-}+ _lhsIo_unbox+ {-# LINE 2236 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_wantvisit =+ ({-# LINE 116 "src-ag/Order.ag" #-}+ _lhsIo_wantvisit+ {-# LINE 2242 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOprefix =+ ({-# LINE 119 "src-ag/Order.ag" #-}+ _lhsIprefix+ {-# LINE 2248 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOsynMap =+ ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}+ _lhsIsynMap+ {-# LINE 2254 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOvcount =+ ({-# LINE 257 "src-ag/Order.ag" #-}+ _lhsIvcount+ {-# LINE 2260 "dist/build/Order" #-}+ )+ -- copy rule (chain)+ _tlOacount =+ ({-# LINE 500 "src-ag/Order.ag" #-}+ _hdIacount+ {-# LINE 2266 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOallnts =+ ({-# LINE 648 "src-ag/Order.ag" #-}+ _lhsIallnts+ {-# LINE 2272 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOaroundMap =+ ({-# LINE 406 "src-ag/Order.ag" #-}+ _lhsIaroundMap+ {-# LINE 2278 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOcInterfaceMap =+ ({-# LINE 595 "src-ag/Order.ag" #-}+ _lhsIcInterfaceMap+ {-# LINE 2284 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOcVisitsMap =+ ({-# LINE 602 "src-ag/Order.ag" #-}+ _lhsIcVisitsMap+ {-# LINE 2290 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOinhMap =+ ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}+ _lhsIinhMap+ {-# LINE 2296 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOmanualAttrDepMap =+ ({-# LINE 282 "src-ag/Order.ag" #-}+ _lhsImanualAttrDepMap+ {-# LINE 2302 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOmergeMap =+ ({-# LINE 353 "src-ag/Order.ag" #-}+ _lhsImergeMap+ {-# LINE 2308 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_case =+ ({-# LINE 118 "src-ag/Order.ag" #-}+ _lhsIo_case+ {-# LINE 2314 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_cata =+ ({-# LINE 112 "src-ag/Order.ag" #-}+ _lhsIo_cata+ {-# LINE 2320 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_data =+ ({-# LINE 121 "src-ag/Order.ag" #-}+ _lhsIo_data+ {-# LINE 2326 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_dovisit =+ ({-# LINE 117 "src-ag/Order.ag" #-}+ _lhsIo_dovisit+ {-# LINE 2332 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_newtypes =+ ({-# LINE 111 "src-ag/Order.ag" #-}+ _lhsIo_newtypes+ {-# LINE 2338 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_rename =+ ({-# LINE 115 "src-ag/Order.ag" #-}+ _lhsIo_rename+ {-# LINE 2344 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_sem =+ ({-# LINE 114 "src-ag/Order.ag" #-}+ _lhsIo_sem+ {-# LINE 2350 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_sig =+ ({-# LINE 113 "src-ag/Order.ag" #-}+ _lhsIo_sig+ {-# LINE 2356 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_unbox =+ ({-# LINE 120 "src-ag/Order.ag" #-}+ _lhsIo_unbox+ {-# LINE 2362 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_wantvisit =+ ({-# LINE 116 "src-ag/Order.ag" #-}+ _lhsIo_wantvisit+ {-# LINE 2368 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOprefix =+ ({-# LINE 119 "src-ag/Order.ag" #-}+ _lhsIprefix+ {-# LINE 2374 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOsynMap =+ ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}+ _lhsIsynMap+ {-# LINE 2380 "dist/build/Order" #-}+ )+ -- copy rule (chain)+ _tlOvcount =+ ({-# LINE 257 "src-ag/Order.ag" #-}+ _hdIvcount+ {-# LINE 2386 "dist/build/Order" #-}+ )+ ( _hdIacount,_hdIadditionalDep,_hdIaranges,_hdIaroundDep,_hdIcNonterminal,_hdIdirectDep,_hdIerrors,_hdIinhMap',_hdIinstDep,_hdImergeDep,_hdInAutoRules,_hdInExplicitRules,_hdInonts,_hdIntattrs,_hdIrules,_hdIsynMap',_hdIvcount) =+ hd_ _hdOacount _hdOallnts _hdOaroundMap _hdOcInterfaceMap _hdOcVisitsMap _hdOinhMap _hdOmanualAttrDepMap _hdOmergeMap _hdOo_case _hdOo_cata _hdOo_data _hdOo_dovisit _hdOo_newtypes _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_unbox _hdOo_wantvisit _hdOprefix _hdOsynMap _hdOvcount+ ( _tlIacount,_tlIadditionalDep,_tlIaranges,_tlIaroundDep,_tlIcNonterminals,_tlIdirectDep,_tlIerrors,_tlIinhMap',_tlIinstDep,_tlImergeDep,_tlInAutoRules,_tlInExplicitRules,_tlInonts,_tlIntattrs,_tlIrules,_tlIsynMap',_tlIvcount) =+ tl_ _tlOacount _tlOallnts _tlOaroundMap _tlOcInterfaceMap _tlOcVisitsMap _tlOinhMap _tlOmanualAttrDepMap _tlOmergeMap _tlOo_case _tlOo_cata _tlOo_data _tlOo_dovisit _tlOo_newtypes _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_unbox _tlOo_wantvisit _tlOprefix _tlOsynMap _tlOvcount+ ___node =+ (Syn_Nonterminals _lhsOacount _lhsOadditionalDep _lhsOaranges _lhsOaroundDep _lhsOcNonterminals _lhsOdirectDep _lhsOerrors _lhsOinhMap' _lhsOinstDep _lhsOmergeDep _lhsOnAutoRules _lhsOnExplicitRules _lhsOnonts _lhsOntattrs _lhsOrules _lhsOsynMap' _lhsOvcount)+ in ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminals,_lhsOdirectDep,_lhsOerrors,_lhsOinhMap',_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOsynMap',_lhsOvcount))))+sem_Nonterminals_Nil :: T_Nonterminals+sem_Nonterminals_Nil =+ (T_Nonterminals (\ _lhsIacount+ _lhsIallnts+ _lhsIaroundMap+ _lhsIcInterfaceMap+ _lhsIcVisitsMap+ _lhsIinhMap+ _lhsImanualAttrDepMap+ _lhsImergeMap+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_data+ _lhsIo_dovisit+ _lhsIo_newtypes+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_unbox+ _lhsIo_wantvisit+ _lhsIprefix+ _lhsIsynMap+ _lhsIvcount ->+ (let _lhsOcNonterminals :: CNonterminals+ _lhsOadditionalDep :: (Seq Edge)+ _lhsOaranges :: (Seq (Int,Int,Int))+ _lhsOaroundDep :: (Seq Edge)+ _lhsOdirectDep :: (Seq Edge)+ _lhsOerrors :: (Seq Error)+ _lhsOinhMap' :: (Map Identifier Attributes)+ _lhsOinstDep :: (Seq Edge)+ _lhsOmergeDep :: (Seq Edge)+ _lhsOnAutoRules :: Int+ _lhsOnExplicitRules :: Int+ _lhsOnonts :: ([(NontermIdent,[ConstructorIdent])])+ _lhsOntattrs :: (Seq (Vertex,NTAttr))+ _lhsOrules :: (Seq (Vertex,CRule))+ _lhsOsynMap' :: (Map Identifier Attributes)+ _lhsOacount :: Int+ _lhsOvcount :: Int+ -- "src-ag/Order.ag"(line 623, column 12)+ _lhsOcNonterminals =+ ({-# LINE 623 "src-ag/Order.ag" #-}+ []+ {-# LINE 2439 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 282, column 60)+ _lhsOadditionalDep =+ ({-# LINE 282 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 2445 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 501, column 36)+ _lhsOaranges =+ ({-# LINE 501 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 2451 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 403, column 24)+ _lhsOaroundDep =+ ({-# LINE 403 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 2457 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 268, column 33)+ _lhsOdirectDep =+ ({-# LINE 268 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 2463 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 85, column 70)+ _lhsOerrors =+ ({-# LINE 85 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 2469 "dist/build/Order" #-}+ )+ -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53)+ _lhsOinhMap' =+ ({-# LINE 4 "src-ag/DistChildAttr.ag" #-}+ Map.empty+ {-# LINE 2475 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 311, column 31)+ _lhsOinstDep =+ ({-# LINE 311 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 2481 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 366, column 18)+ _lhsOmergeDep =+ ({-# LINE 366 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 2487 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 62, column 105)+ _lhsOnAutoRules =+ ({-# LINE 62 "src-ag/Order.ag" #-}+ 0+ {-# LINE 2493 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 62, column 105)+ _lhsOnExplicitRules =+ ({-# LINE 62 "src-ag/Order.ag" #-}+ 0+ {-# LINE 2499 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 518, column 43)+ _lhsOnonts =+ ({-# LINE 518 "src-ag/Order.ag" #-}+ []+ {-# LINE 2505 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 500, column 35)+ _lhsOntattrs =+ ({-# LINE 500 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 2511 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 258, column 18)+ _lhsOrules =+ ({-# LINE 258 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 2517 "dist/build/Order" #-}+ )+ -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53)+ _lhsOsynMap' =+ ({-# LINE 4 "src-ag/DistChildAttr.ag" #-}+ Map.empty+ {-# LINE 2523 "dist/build/Order" #-}+ )+ -- copy rule (chain)+ _lhsOacount =+ ({-# LINE 500 "src-ag/Order.ag" #-}+ _lhsIacount+ {-# LINE 2529 "dist/build/Order" #-}+ )+ -- copy rule (chain)+ _lhsOvcount =+ ({-# LINE 257 "src-ag/Order.ag" #-}+ _lhsIvcount+ {-# LINE 2535 "dist/build/Order" #-}+ )+ ___node =+ (Syn_Nonterminals _lhsOacount _lhsOadditionalDep _lhsOaranges _lhsOaroundDep _lhsOcNonterminals _lhsOdirectDep _lhsOerrors _lhsOinhMap' _lhsOinstDep _lhsOmergeDep _lhsOnAutoRules _lhsOnExplicitRules _lhsOnonts _lhsOntattrs _lhsOrules _lhsOsynMap' _lhsOvcount)+ in ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminals,_lhsOdirectDep,_lhsOerrors,_lhsOinhMap',_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOsynMap',_lhsOvcount))))+-- Pattern -----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allTypeSigs : Map Identifier Type+ altAttrs : Map AltAttr Vertex+ con : Identifier+ inh : Attributes+ nt : Identifier+ syn : Attributes+ synthesized attributes:+ copy : Pattern + errors : Seq Error+ gathAltAttrs : [AltAttr]+ instVars : [Identifier]+ locVars : [Identifier]+ patternAttrs : [(Identifier,Identifier,Bool)]+ alternatives:+ alternative Alias:+ child field : {Identifier}+ child attr : {Identifier}+ child pat : Pattern + 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) =+ (sem_Pattern_Alias _field _attr (sem_Pattern _pat))+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 ((Map Identifier Type) ->+ (Map AltAttr Vertex) ->+ Identifier ->+ Attributes ->+ Identifier ->+ Attributes ->+ ( Pattern,(Seq Error),([AltAttr]),([Identifier]),([Identifier]),([(Identifier,Identifier,Bool)])))+data Inh_Pattern = Inh_Pattern {allTypeSigs_Inh_Pattern :: !((Map Identifier Type)),altAttrs_Inh_Pattern :: !((Map AltAttr Vertex)),con_Inh_Pattern :: !(Identifier),inh_Inh_Pattern :: !(Attributes),nt_Inh_Pattern :: !(Identifier),syn_Inh_Pattern :: !(Attributes)}+data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern),errors_Syn_Pattern :: !((Seq Error)),gathAltAttrs_Syn_Pattern :: !(([AltAttr])),instVars_Syn_Pattern :: !(([Identifier])),locVars_Syn_Pattern :: !(([Identifier])),patternAttrs_Syn_Pattern :: !(([(Identifier,Identifier,Bool)]))}+wrap_Pattern :: T_Pattern ->+ Inh_Pattern ->+ Syn_Pattern+wrap_Pattern (T_Pattern sem) (Inh_Pattern _lhsIallTypeSigs _lhsIaltAttrs _lhsIcon _lhsIinh _lhsInt _lhsIsyn) =+ (let ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs) = sem _lhsIallTypeSigs _lhsIaltAttrs _lhsIcon _lhsIinh _lhsInt _lhsIsyn+ in (Syn_Pattern _lhsOcopy _lhsOerrors _lhsOgathAltAttrs _lhsOinstVars _lhsOlocVars _lhsOpatternAttrs))+sem_Pattern_Alias :: Identifier ->+ Identifier ->+ T_Pattern ->+ T_Pattern+sem_Pattern_Alias field_ attr_ (T_Pattern pat_) =+ (T_Pattern (\ _lhsIallTypeSigs+ _lhsIaltAttrs+ _lhsIcon+ _lhsIinh+ _lhsInt+ _lhsIsyn ->+ (let _lhsOgathAltAttrs :: ([AltAttr])+ _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool)])+ _lhsOlocVars :: ([Identifier])+ _lhsOinstVars :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOcopy :: Pattern+ _patOallTypeSigs :: (Map Identifier Type)+ _patOaltAttrs :: (Map AltAttr Vertex)+ _patOcon :: Identifier+ _patOinh :: Attributes+ _patOnt :: Identifier+ _patOsyn :: Attributes+ _patIcopy :: Pattern+ _patIerrors :: (Seq Error)+ _patIgathAltAttrs :: ([AltAttr])+ _patIinstVars :: ([Identifier])+ _patIlocVars :: ([Identifier])+ _patIpatternAttrs :: ([(Identifier,Identifier,Bool)])+ -- "src-ag/Order.ag"(line 185, column 12)+ _lhsOgathAltAttrs =+ ({-# LINE 185 "src-ag/Order.ag" #-}+ [AltAttr field_ attr_ (field_ == _LOC || field_ == _INST)]+ {-# LINE 2645 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 251, column 12)+ _lhsOpatternAttrs =+ ({-# LINE 251 "src-ag/Order.ag" #-}+ [(field_,attr_,(field_ == _LOC || field_ == _INST))]+ {-# LINE 2651 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 681, column 14)+ _lhsOlocVars =+ ({-# LINE 681 "src-ag/Order.ag" #-}+ if field_ == _LOC+ then [attr_]+ else []+ {-# LINE 2659 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 684, column 14)+ _lhsOinstVars =+ ({-# LINE 684 "src-ag/Order.ag" #-}+ if field_ == _INST+ then [attr_]+ else []+ {-# LINE 2667 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 85, column 70)+ _lhsOerrors =+ ({-# LINE 85 "src-ag/Order.ag" #-}+ _patIerrors+ {-# LINE 2673 "dist/build/Order" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Alias field_ attr_ _patIcopy+ {-# LINE 2679 "dist/build/Order" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 2685 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patOallTypeSigs =+ ({-# LINE 534 "src-ag/Order.ag" #-}+ _lhsIallTypeSigs+ {-# LINE 2691 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patOaltAttrs =+ ({-# LINE 187 "src-ag/Order.ag" #-}+ _lhsIaltAttrs+ {-# LINE 2697 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patOcon =+ ({-# LINE 91 "src-ag/Order.ag" #-}+ _lhsIcon+ {-# LINE 2703 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patOinh =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIinh+ {-# LINE 2709 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patOnt =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsInt+ {-# LINE 2715 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patOsyn =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIsyn+ {-# LINE 2721 "dist/build/Order" #-}+ )+ ( _patIcopy,_patIerrors,_patIgathAltAttrs,_patIinstVars,_patIlocVars,_patIpatternAttrs) =+ pat_ _patOallTypeSigs _patOaltAttrs _patOcon _patOinh _patOnt _patOsyn+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOerrors _lhsOgathAltAttrs _lhsOinstVars _lhsOlocVars _lhsOpatternAttrs)+ in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))))+sem_Pattern_Constr :: ConstructorIdent ->+ T_Patterns ->+ T_Pattern+sem_Pattern_Constr name_ (T_Patterns pats_) =+ (T_Pattern (\ _lhsIallTypeSigs+ _lhsIaltAttrs+ _lhsIcon+ _lhsIinh+ _lhsInt+ _lhsIsyn ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOgathAltAttrs :: ([AltAttr])+ _lhsOinstVars :: ([Identifier])+ _lhsOlocVars :: ([Identifier])+ _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool)])+ _lhsOcopy :: Pattern+ _patsOallTypeSigs :: (Map Identifier Type)+ _patsOaltAttrs :: (Map AltAttr Vertex)+ _patsOcon :: Identifier+ _patsOinh :: Attributes+ _patsOnt :: Identifier+ _patsOsyn :: Attributes+ _patsIcopy :: Patterns+ _patsIerrors :: (Seq Error)+ _patsIgathAltAttrs :: ([AltAttr])+ _patsIinstVars :: ([Identifier])+ _patsIlocVars :: ([Identifier])+ _patsIpatternAttrs :: ([(Identifier,Identifier,Bool)])+ -- use rule "src-ag/Order.ag"(line 85, column 70)+ _lhsOerrors =+ ({-# LINE 85 "src-ag/Order.ag" #-}+ _patsIerrors+ {-# LINE 2760 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 171, column 68)+ _lhsOgathAltAttrs =+ ({-# LINE 171 "src-ag/Order.ag" #-}+ _patsIgathAltAttrs+ {-# LINE 2766 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 678, column 86)+ _lhsOinstVars =+ ({-# LINE 678 "src-ag/Order.ag" #-}+ _patsIinstVars+ {-# LINE 2772 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 678, column 48)+ _lhsOlocVars =+ ({-# LINE 678 "src-ag/Order.ag" #-}+ _patsIlocVars+ {-# LINE 2778 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 248, column 42)+ _lhsOpatternAttrs =+ ({-# LINE 248 "src-ag/Order.ag" #-}+ _patsIpatternAttrs+ {-# LINE 2784 "dist/build/Order" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Constr name_ _patsIcopy+ {-# LINE 2790 "dist/build/Order" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 2796 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patsOallTypeSigs =+ ({-# LINE 534 "src-ag/Order.ag" #-}+ _lhsIallTypeSigs+ {-# LINE 2802 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patsOaltAttrs =+ ({-# LINE 187 "src-ag/Order.ag" #-}+ _lhsIaltAttrs+ {-# LINE 2808 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patsOcon =+ ({-# LINE 91 "src-ag/Order.ag" #-}+ _lhsIcon+ {-# LINE 2814 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patsOinh =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIinh+ {-# LINE 2820 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patsOnt =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsInt+ {-# LINE 2826 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patsOsyn =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIsyn+ {-# LINE 2832 "dist/build/Order" #-}+ )+ ( _patsIcopy,_patsIerrors,_patsIgathAltAttrs,_patsIinstVars,_patsIlocVars,_patsIpatternAttrs) =+ pats_ _patsOallTypeSigs _patsOaltAttrs _patsOcon _patsOinh _patsOnt _patsOsyn+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOerrors _lhsOgathAltAttrs _lhsOinstVars _lhsOlocVars _lhsOpatternAttrs)+ in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))))+sem_Pattern_Irrefutable :: T_Pattern ->+ T_Pattern+sem_Pattern_Irrefutable (T_Pattern pat_) =+ (T_Pattern (\ _lhsIallTypeSigs+ _lhsIaltAttrs+ _lhsIcon+ _lhsIinh+ _lhsInt+ _lhsIsyn ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOgathAltAttrs :: ([AltAttr])+ _lhsOinstVars :: ([Identifier])+ _lhsOlocVars :: ([Identifier])+ _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool)])+ _lhsOcopy :: Pattern+ _patOallTypeSigs :: (Map Identifier Type)+ _patOaltAttrs :: (Map AltAttr Vertex)+ _patOcon :: Identifier+ _patOinh :: Attributes+ _patOnt :: Identifier+ _patOsyn :: Attributes+ _patIcopy :: Pattern+ _patIerrors :: (Seq Error)+ _patIgathAltAttrs :: ([AltAttr])+ _patIinstVars :: ([Identifier])+ _patIlocVars :: ([Identifier])+ _patIpatternAttrs :: ([(Identifier,Identifier,Bool)])+ -- use rule "src-ag/Order.ag"(line 85, column 70)+ _lhsOerrors =+ ({-# LINE 85 "src-ag/Order.ag" #-}+ _patIerrors+ {-# LINE 2870 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 171, column 68)+ _lhsOgathAltAttrs =+ ({-# LINE 171 "src-ag/Order.ag" #-}+ _patIgathAltAttrs+ {-# LINE 2876 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 678, column 86)+ _lhsOinstVars =+ ({-# LINE 678 "src-ag/Order.ag" #-}+ _patIinstVars+ {-# LINE 2882 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 678, column 48)+ _lhsOlocVars =+ ({-# LINE 678 "src-ag/Order.ag" #-}+ _patIlocVars+ {-# LINE 2888 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 248, column 42)+ _lhsOpatternAttrs =+ ({-# LINE 248 "src-ag/Order.ag" #-}+ _patIpatternAttrs+ {-# LINE 2894 "dist/build/Order" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Irrefutable _patIcopy+ {-# LINE 2900 "dist/build/Order" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 2906 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patOallTypeSigs =+ ({-# LINE 534 "src-ag/Order.ag" #-}+ _lhsIallTypeSigs+ {-# LINE 2912 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patOaltAttrs =+ ({-# LINE 187 "src-ag/Order.ag" #-}+ _lhsIaltAttrs+ {-# LINE 2918 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patOcon =+ ({-# LINE 91 "src-ag/Order.ag" #-}+ _lhsIcon+ {-# LINE 2924 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patOinh =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIinh+ {-# LINE 2930 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patOnt =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsInt+ {-# LINE 2936 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patOsyn =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIsyn+ {-# LINE 2942 "dist/build/Order" #-}+ )+ ( _patIcopy,_patIerrors,_patIgathAltAttrs,_patIinstVars,_patIlocVars,_patIpatternAttrs) =+ pat_ _patOallTypeSigs _patOaltAttrs _patOcon _patOinh _patOnt _patOsyn+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOerrors _lhsOgathAltAttrs _lhsOinstVars _lhsOlocVars _lhsOpatternAttrs)+ in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))))+sem_Pattern_Product :: Pos ->+ T_Patterns ->+ T_Pattern+sem_Pattern_Product pos_ (T_Patterns pats_) =+ (T_Pattern (\ _lhsIallTypeSigs+ _lhsIaltAttrs+ _lhsIcon+ _lhsIinh+ _lhsInt+ _lhsIsyn ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOgathAltAttrs :: ([AltAttr])+ _lhsOinstVars :: ([Identifier])+ _lhsOlocVars :: ([Identifier])+ _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool)])+ _lhsOcopy :: Pattern+ _patsOallTypeSigs :: (Map Identifier Type)+ _patsOaltAttrs :: (Map AltAttr Vertex)+ _patsOcon :: Identifier+ _patsOinh :: Attributes+ _patsOnt :: Identifier+ _patsOsyn :: Attributes+ _patsIcopy :: Patterns+ _patsIerrors :: (Seq Error)+ _patsIgathAltAttrs :: ([AltAttr])+ _patsIinstVars :: ([Identifier])+ _patsIlocVars :: ([Identifier])+ _patsIpatternAttrs :: ([(Identifier,Identifier,Bool)])+ -- use rule "src-ag/Order.ag"(line 85, column 70)+ _lhsOerrors =+ ({-# LINE 85 "src-ag/Order.ag" #-}+ _patsIerrors+ {-# LINE 2981 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 171, column 68)+ _lhsOgathAltAttrs =+ ({-# LINE 171 "src-ag/Order.ag" #-}+ _patsIgathAltAttrs+ {-# LINE 2987 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 678, column 86)+ _lhsOinstVars =+ ({-# LINE 678 "src-ag/Order.ag" #-}+ _patsIinstVars+ {-# LINE 2993 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 678, column 48)+ _lhsOlocVars =+ ({-# LINE 678 "src-ag/Order.ag" #-}+ _patsIlocVars+ {-# LINE 2999 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 248, column 42)+ _lhsOpatternAttrs =+ ({-# LINE 248 "src-ag/Order.ag" #-}+ _patsIpatternAttrs+ {-# LINE 3005 "dist/build/Order" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Product pos_ _patsIcopy+ {-# LINE 3011 "dist/build/Order" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 3017 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patsOallTypeSigs =+ ({-# LINE 534 "src-ag/Order.ag" #-}+ _lhsIallTypeSigs+ {-# LINE 3023 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patsOaltAttrs =+ ({-# LINE 187 "src-ag/Order.ag" #-}+ _lhsIaltAttrs+ {-# LINE 3029 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patsOcon =+ ({-# LINE 91 "src-ag/Order.ag" #-}+ _lhsIcon+ {-# LINE 3035 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patsOinh =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIinh+ {-# LINE 3041 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patsOnt =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsInt+ {-# LINE 3047 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patsOsyn =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIsyn+ {-# LINE 3053 "dist/build/Order" #-}+ )+ ( _patsIcopy,_patsIerrors,_patsIgathAltAttrs,_patsIinstVars,_patsIlocVars,_patsIpatternAttrs) =+ pats_ _patsOallTypeSigs _patsOaltAttrs _patsOcon _patsOinh _patsOnt _patsOsyn+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOerrors _lhsOgathAltAttrs _lhsOinstVars _lhsOlocVars _lhsOpatternAttrs)+ in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))))+sem_Pattern_Underscore :: Pos ->+ T_Pattern+sem_Pattern_Underscore pos_ =+ (T_Pattern (\ _lhsIallTypeSigs+ _lhsIaltAttrs+ _lhsIcon+ _lhsIinh+ _lhsInt+ _lhsIsyn ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOgathAltAttrs :: ([AltAttr])+ _lhsOinstVars :: ([Identifier])+ _lhsOlocVars :: ([Identifier])+ _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool)])+ _lhsOcopy :: Pattern+ -- use rule "src-ag/Order.ag"(line 85, column 70)+ _lhsOerrors =+ ({-# LINE 85 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 3079 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 171, column 68)+ _lhsOgathAltAttrs =+ ({-# LINE 171 "src-ag/Order.ag" #-}+ []+ {-# LINE 3085 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 678, column 86)+ _lhsOinstVars =+ ({-# LINE 678 "src-ag/Order.ag" #-}+ []+ {-# LINE 3091 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 678, column 48)+ _lhsOlocVars =+ ({-# LINE 678 "src-ag/Order.ag" #-}+ []+ {-# LINE 3097 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 248, column 42)+ _lhsOpatternAttrs =+ ({-# LINE 248 "src-ag/Order.ag" #-}+ []+ {-# LINE 3103 "dist/build/Order" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Underscore pos_+ {-# LINE 3109 "dist/build/Order" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 3115 "dist/build/Order" #-}+ )+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOerrors _lhsOgathAltAttrs _lhsOinstVars _lhsOlocVars _lhsOpatternAttrs)+ in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))))+-- Patterns ----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allTypeSigs : Map Identifier Type+ altAttrs : Map AltAttr Vertex+ con : Identifier+ inh : Attributes+ nt : Identifier+ syn : Attributes+ synthesized attributes:+ copy : Patterns + errors : Seq Error+ gathAltAttrs : [AltAttr]+ instVars : [Identifier]+ locVars : [Identifier]+ patternAttrs : [(Identifier,Identifier,Bool)]+ 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 ((Map Identifier Type) ->+ (Map AltAttr Vertex) ->+ Identifier ->+ Attributes ->+ Identifier ->+ Attributes ->+ ( Patterns,(Seq Error),([AltAttr]),([Identifier]),([Identifier]),([(Identifier,Identifier,Bool)])))+data Inh_Patterns = Inh_Patterns {allTypeSigs_Inh_Patterns :: !((Map Identifier Type)),altAttrs_Inh_Patterns :: !((Map AltAttr Vertex)),con_Inh_Patterns :: !(Identifier),inh_Inh_Patterns :: !(Attributes),nt_Inh_Patterns :: !(Identifier),syn_Inh_Patterns :: !(Attributes)}+data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns),errors_Syn_Patterns :: !((Seq Error)),gathAltAttrs_Syn_Patterns :: !(([AltAttr])),instVars_Syn_Patterns :: !(([Identifier])),locVars_Syn_Patterns :: !(([Identifier])),patternAttrs_Syn_Patterns :: !(([(Identifier,Identifier,Bool)]))}+wrap_Patterns :: T_Patterns ->+ Inh_Patterns ->+ Syn_Patterns+wrap_Patterns (T_Patterns sem) (Inh_Patterns _lhsIallTypeSigs _lhsIaltAttrs _lhsIcon _lhsIinh _lhsInt _lhsIsyn) =+ (let ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs) = sem _lhsIallTypeSigs _lhsIaltAttrs _lhsIcon _lhsIinh _lhsInt _lhsIsyn+ in (Syn_Patterns _lhsOcopy _lhsOerrors _lhsOgathAltAttrs _lhsOinstVars _lhsOlocVars _lhsOpatternAttrs))+sem_Patterns_Cons :: T_Pattern ->+ T_Patterns ->+ T_Patterns+sem_Patterns_Cons (T_Pattern hd_) (T_Patterns tl_) =+ (T_Patterns (\ _lhsIallTypeSigs+ _lhsIaltAttrs+ _lhsIcon+ _lhsIinh+ _lhsInt+ _lhsIsyn ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOgathAltAttrs :: ([AltAttr])+ _lhsOinstVars :: ([Identifier])+ _lhsOlocVars :: ([Identifier])+ _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool)])+ _lhsOcopy :: Patterns+ _hdOallTypeSigs :: (Map Identifier Type)+ _hdOaltAttrs :: (Map AltAttr Vertex)+ _hdOcon :: Identifier+ _hdOinh :: Attributes+ _hdOnt :: Identifier+ _hdOsyn :: Attributes+ _tlOallTypeSigs :: (Map Identifier Type)+ _tlOaltAttrs :: (Map AltAttr Vertex)+ _tlOcon :: Identifier+ _tlOinh :: Attributes+ _tlOnt :: Identifier+ _tlOsyn :: Attributes+ _hdIcopy :: Pattern+ _hdIerrors :: (Seq Error)+ _hdIgathAltAttrs :: ([AltAttr])+ _hdIinstVars :: ([Identifier])+ _hdIlocVars :: ([Identifier])+ _hdIpatternAttrs :: ([(Identifier,Identifier,Bool)])+ _tlIcopy :: Patterns+ _tlIerrors :: (Seq Error)+ _tlIgathAltAttrs :: ([AltAttr])+ _tlIinstVars :: ([Identifier])+ _tlIlocVars :: ([Identifier])+ _tlIpatternAttrs :: ([(Identifier,Identifier,Bool)])+ -- use rule "src-ag/Order.ag"(line 85, column 70)+ _lhsOerrors =+ ({-# LINE 85 "src-ag/Order.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 3212 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 171, column 68)+ _lhsOgathAltAttrs =+ ({-# LINE 171 "src-ag/Order.ag" #-}+ _hdIgathAltAttrs ++ _tlIgathAltAttrs+ {-# LINE 3218 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 678, column 86)+ _lhsOinstVars =+ ({-# LINE 678 "src-ag/Order.ag" #-}+ _hdIinstVars ++ _tlIinstVars+ {-# LINE 3224 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 678, column 48)+ _lhsOlocVars =+ ({-# LINE 678 "src-ag/Order.ag" #-}+ _hdIlocVars ++ _tlIlocVars+ {-# LINE 3230 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 248, column 42)+ _lhsOpatternAttrs =+ ({-# LINE 248 "src-ag/Order.ag" #-}+ _hdIpatternAttrs ++ _tlIpatternAttrs+ {-# LINE 3236 "dist/build/Order" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ (:) _hdIcopy _tlIcopy+ {-# LINE 3242 "dist/build/Order" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 3248 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOallTypeSigs =+ ({-# LINE 534 "src-ag/Order.ag" #-}+ _lhsIallTypeSigs+ {-# LINE 3254 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOaltAttrs =+ ({-# LINE 187 "src-ag/Order.ag" #-}+ _lhsIaltAttrs+ {-# LINE 3260 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOcon =+ ({-# LINE 91 "src-ag/Order.ag" #-}+ _lhsIcon+ {-# LINE 3266 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOinh =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIinh+ {-# LINE 3272 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOnt =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsInt+ {-# LINE 3278 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOsyn =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIsyn+ {-# LINE 3284 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOallTypeSigs =+ ({-# LINE 534 "src-ag/Order.ag" #-}+ _lhsIallTypeSigs+ {-# LINE 3290 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOaltAttrs =+ ({-# LINE 187 "src-ag/Order.ag" #-}+ _lhsIaltAttrs+ {-# LINE 3296 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOcon =+ ({-# LINE 91 "src-ag/Order.ag" #-}+ _lhsIcon+ {-# LINE 3302 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOinh =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIinh+ {-# LINE 3308 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOnt =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsInt+ {-# LINE 3314 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOsyn =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIsyn+ {-# LINE 3320 "dist/build/Order" #-}+ )+ ( _hdIcopy,_hdIerrors,_hdIgathAltAttrs,_hdIinstVars,_hdIlocVars,_hdIpatternAttrs) =+ hd_ _hdOallTypeSigs _hdOaltAttrs _hdOcon _hdOinh _hdOnt _hdOsyn+ ( _tlIcopy,_tlIerrors,_tlIgathAltAttrs,_tlIinstVars,_tlIlocVars,_tlIpatternAttrs) =+ tl_ _tlOallTypeSigs _tlOaltAttrs _tlOcon _tlOinh _tlOnt _tlOsyn+ ___node =+ (Syn_Patterns _lhsOcopy _lhsOerrors _lhsOgathAltAttrs _lhsOinstVars _lhsOlocVars _lhsOpatternAttrs)+ in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))))+sem_Patterns_Nil :: T_Patterns+sem_Patterns_Nil =+ (T_Patterns (\ _lhsIallTypeSigs+ _lhsIaltAttrs+ _lhsIcon+ _lhsIinh+ _lhsInt+ _lhsIsyn ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOgathAltAttrs :: ([AltAttr])+ _lhsOinstVars :: ([Identifier])+ _lhsOlocVars :: ([Identifier])+ _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool)])+ _lhsOcopy :: Patterns+ -- use rule "src-ag/Order.ag"(line 85, column 70)+ _lhsOerrors =+ ({-# LINE 85 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 3347 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 171, column 68)+ _lhsOgathAltAttrs =+ ({-# LINE 171 "src-ag/Order.ag" #-}+ []+ {-# LINE 3353 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 678, column 86)+ _lhsOinstVars =+ ({-# LINE 678 "src-ag/Order.ag" #-}+ []+ {-# LINE 3359 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 678, column 48)+ _lhsOlocVars =+ ({-# LINE 678 "src-ag/Order.ag" #-}+ []+ {-# LINE 3365 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 248, column 42)+ _lhsOpatternAttrs =+ ({-# LINE 248 "src-ag/Order.ag" #-}+ []+ {-# LINE 3371 "dist/build/Order" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ []+ {-# LINE 3377 "dist/build/Order" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 3383 "dist/build/Order" #-}+ )+ ___node =+ (Syn_Patterns _lhsOcopy _lhsOerrors _lhsOgathAltAttrs _lhsOinstVars _lhsOlocVars _lhsOpatternAttrs)+ in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))))+-- Production --------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allnts : [Identifier]+ aroundMap : Map ConstructorIdent (Map Identifier [Expression])+ cVisitsMap : CVisitsMap+ inh : Attributes+ inhMap : Map Identifier Attributes+ manualAttrDepMap : AttrOrderMap+ mergeMap : Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))+ nt : Identifier+ o_case : Bool+ o_cata : Bool+ o_dovisit : Bool+ o_newtypes : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_unbox : Bool+ o_wantvisit : Bool+ prefix : String+ syn : Attributes+ synMap : Map Identifier Attributes+ chained attribute:+ vcount : Int+ synthesized attributes:+ additionalDep : Seq Edge+ aroundDep : Seq Edge+ cProduction : CProduction+ cons : [ConstructorIdent]+ directDep : Seq Edge+ errors : Seq Error+ instDep : Seq Edge+ mergeDep : Seq Edge+ nAutoRules : Int+ nExplicitRules : Int+ rules : Seq (Vertex,CRule)+ alternatives:+ alternative Production:+ child con : {ConstructorIdent}+ child params : {[Identifier]}+ child constraints : {[Type]}+ child children : Children + child rules : Rules + child typeSigs : TypeSigs + child macro : {MaybeMacro}+ visit 0:+ local gathAltAttrs : _+ local altAttrs : _+ local inhRules : _+ local gathRules : _+ local manualDeps : _+ local mergeMap : _+ local mergeDep1 : _+ local mergeDep2 : _+ local aroundMap : _+ local aroundDep1 : _+ local aroundDep2 : _+ local cVisits : _+ local allfields : _+ local attrs : _+ local inhnames : _+ local synnames : _+-}+-- cata+sem_Production :: Production ->+ T_Production+sem_Production (Production _con _params _constraints _children _rules _typeSigs _macro) =+ (sem_Production_Production _con _params _constraints (sem_Children _children) (sem_Rules _rules) (sem_TypeSigs _typeSigs) _macro)+-- semantic domain+newtype T_Production = T_Production (([Identifier]) ->+ (Map ConstructorIdent (Map Identifier [Expression])) ->+ CVisitsMap ->+ Attributes ->+ (Map Identifier Attributes) ->+ AttrOrderMap ->+ (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))) ->+ Identifier ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ String ->+ Attributes ->+ (Map Identifier Attributes) ->+ Int ->+ ( (Seq Edge),(Seq Edge),CProduction,([ConstructorIdent]),(Seq Edge),(Seq Error),(Seq Edge),(Seq Edge),Int,Int,(Seq (Vertex,CRule)),Int))+data Inh_Production = Inh_Production {allnts_Inh_Production :: !(([Identifier])),aroundMap_Inh_Production :: !((Map ConstructorIdent (Map Identifier [Expression]))),cVisitsMap_Inh_Production :: !(CVisitsMap),inh_Inh_Production :: !(Attributes),inhMap_Inh_Production :: !((Map Identifier Attributes)),manualAttrDepMap_Inh_Production :: !(AttrOrderMap),mergeMap_Inh_Production :: !((Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))),nt_Inh_Production :: !(Identifier),o_case_Inh_Production :: !(Bool),o_cata_Inh_Production :: !(Bool),o_dovisit_Inh_Production :: !(Bool),o_newtypes_Inh_Production :: !(Bool),o_rename_Inh_Production :: !(Bool),o_sem_Inh_Production :: !(Bool),o_sig_Inh_Production :: !(Bool),o_unbox_Inh_Production :: !(Bool),o_wantvisit_Inh_Production :: !(Bool),prefix_Inh_Production :: !(String),syn_Inh_Production :: !(Attributes),synMap_Inh_Production :: !((Map Identifier Attributes)),vcount_Inh_Production :: !(Int)}+data Syn_Production = Syn_Production {additionalDep_Syn_Production :: !((Seq Edge)),aroundDep_Syn_Production :: !((Seq Edge)),cProduction_Syn_Production :: !(CProduction),cons_Syn_Production :: !(([ConstructorIdent])),directDep_Syn_Production :: !((Seq Edge)),errors_Syn_Production :: !((Seq Error)),instDep_Syn_Production :: !((Seq Edge)),mergeDep_Syn_Production :: !((Seq Edge)),nAutoRules_Syn_Production :: !(Int),nExplicitRules_Syn_Production :: !(Int),rules_Syn_Production :: !((Seq (Vertex,CRule))),vcount_Syn_Production :: !(Int)}+wrap_Production :: T_Production ->+ Inh_Production ->+ Syn_Production+wrap_Production (T_Production sem) (Inh_Production _lhsIallnts _lhsIaroundMap _lhsIcVisitsMap _lhsIinh _lhsIinhMap _lhsImanualAttrDepMap _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynMap _lhsIvcount) =+ (let ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProduction,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOrules,_lhsOvcount) = sem _lhsIallnts _lhsIaroundMap _lhsIcVisitsMap _lhsIinh _lhsIinhMap _lhsImanualAttrDepMap _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynMap _lhsIvcount+ in (Syn_Production _lhsOadditionalDep _lhsOaroundDep _lhsOcProduction _lhsOcons _lhsOdirectDep _lhsOerrors _lhsOinstDep _lhsOmergeDep _lhsOnAutoRules _lhsOnExplicitRules _lhsOrules _lhsOvcount))+sem_Production_Production :: ConstructorIdent ->+ ([Identifier]) ->+ ([Type]) ->+ T_Children ->+ T_Rules ->+ T_TypeSigs ->+ MaybeMacro ->+ T_Production+sem_Production_Production con_ params_ constraints_ (T_Children children_) (T_Rules rules_) (T_TypeSigs typeSigs_) macro_ =+ (T_Production (\ _lhsIallnts+ _lhsIaroundMap+ _lhsIcVisitsMap+ _lhsIinh+ _lhsIinhMap+ _lhsImanualAttrDepMap+ _lhsImergeMap+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_dovisit+ _lhsIo_newtypes+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_unbox+ _lhsIo_wantvisit+ _lhsIprefix+ _lhsIsyn+ _lhsIsynMap+ _lhsIvcount ->+ (let _childrenOcon :: Identifier+ _rulesOcon :: Identifier+ _rulesOchildNts :: (Map Identifier NontermIdent)+ _rulesOchildInhs :: (Map Identifier Attributes)+ _lhsOrules :: (Seq (Vertex,CRule))+ _lhsOvcount :: Int+ _lhsOadditionalDep :: (Seq Edge)+ _rulesOsynsOfChildren :: (Map Identifier Attributes)+ _rulesOinhsOfChildren :: (Map Identifier Attributes)+ _lhsOmergeDep :: (Seq Edge)+ _lhsOaroundDep :: (Seq Edge)+ _lhsOcons :: ([ConstructorIdent])+ _typeSigsOtypeSigs :: (Map Identifier Type)+ _rulesOallTypeSigs :: (Map Identifier Type)+ _lhsOcProduction :: CProduction+ _lhsOdirectDep :: (Seq Edge)+ _lhsOerrors :: (Seq Error)+ _lhsOinstDep :: (Seq Edge)+ _lhsOnAutoRules :: Int+ _lhsOnExplicitRules :: Int+ _childrenOallfields :: ([(Identifier,Type,ChildKind)])+ _childrenOallnts :: ([Identifier])+ _childrenOattrs :: ([(Identifier,Identifier)])+ _childrenOinh :: Attributes+ _childrenOinhMap :: (Map Identifier Attributes)+ _childrenOmergeMap :: (Map Identifier (Identifier,[Identifier]))+ _childrenOnt :: Identifier+ _childrenOo_unbox :: Bool+ _childrenOsyn :: Attributes+ _childrenOsynMap :: (Map Identifier Attributes)+ _rulesOallfields :: ([(Identifier,Type,ChildKind)])+ _rulesOallnts :: ([Identifier])+ _rulesOaltAttrs :: (Map AltAttr Vertex)+ _rulesOattrs :: ([(Identifier,Identifier)])+ _rulesOinh :: Attributes+ _rulesOmergeMap :: (Map Identifier (Identifier,[Identifier]))+ _rulesOnt :: Identifier+ _rulesOo_case :: Bool+ _rulesOo_cata :: Bool+ _rulesOo_dovisit :: Bool+ _rulesOo_newtypes :: Bool+ _rulesOo_rename :: Bool+ _rulesOo_sem :: Bool+ _rulesOo_sig :: Bool+ _rulesOo_wantvisit :: Bool+ _rulesOprefix :: String+ _rulesOsyn :: Attributes+ _childrenIattributes :: ([(Identifier,Attributes,Attributes)])+ _childrenIcollectChildrenInhs :: (Map Identifier Attributes )+ _childrenIcollectChildrenSyns :: (Map Identifier Attributes )+ _childrenIerrors :: (Seq Error)+ _childrenIfields :: ([(Identifier,Type,ChildKind)])+ _childrenIgathAltAttrs :: ([AltAttr])+ _childrenIgathRules :: (Seq CRule)+ _childrenIinhs :: (Seq (Identifier,Attributes))+ _childrenInts :: (Seq (Identifier,NontermIdent))+ _childrenIsinglevisits :: ([CRule])+ _childrenIterminals :: ([Identifier])+ _rulesIdirectDep :: (Seq Edge)+ _rulesIerrors :: (Seq Error)+ _rulesIgathAltAttrs :: ([AltAttr])+ _rulesIgathRules :: (Seq CRule)+ _rulesIinstDep :: (Seq Edge)+ _rulesIinstVars :: ([Identifier])+ _rulesIlocVars :: ([Identifier])+ _rulesInAutoRules :: Int+ _rulesInExplicitRules :: Int+ _typeSigsItypeSigs :: (Map Identifier Type)+ -- "src-ag/Order.ag"(line 94, column 16)+ _childrenOcon =+ ({-# LINE 94 "src-ag/Order.ag" #-}+ con_+ {-# LINE 3591 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 96, column 16)+ _rulesOcon =+ ({-# LINE 96 "src-ag/Order.ag" #-}+ con_+ {-# LINE 3597 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 173, column 18)+ _gathAltAttrs =+ ({-# LINE 173 "src-ag/Order.ag" #-}+ [ AltAttr _LHS inh True | inh <- Map.keys _lhsIinh ]+ ++ _childrenIgathAltAttrs+ ++ _rulesIgathAltAttrs+ {-# LINE 3605 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 189, column 17)+ _altAttrs =+ ({-# LINE 189 "src-ag/Order.ag" #-}+ Map.fromList (zip _gathAltAttrs [_lhsIvcount..])+ {-# LINE 3611 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 202, column 18)+ _rulesOchildNts =+ ({-# LINE 202 "src-ag/Order.ag" #-}+ Map.fromList (toList _childrenInts)+ {-# LINE 3617 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 203, column 19)+ _rulesOchildInhs =+ ({-# LINE 203 "src-ag/Order.ag" #-}+ Map.fromList (toList _childrenIinhs)+ {-# LINE 3623 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 209, column 18)+ _inhRules =+ ({-# LINE 209 "src-ag/Order.ag" #-}+ [ cRuleLhsInh inh _lhsInt con_ tp | (inh,tp) <- Map.assocs _lhsIinh ]+ {-# LINE 3629 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 210, column 19)+ _gathRules =+ ({-# LINE 210 "src-ag/Order.ag" #-}+ _inhRules ++ toList (_childrenIgathRules Seq.>< _rulesIgathRules)+ {-# LINE 3635 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 262, column 18)+ _lhsOrules =+ ({-# LINE 262 "src-ag/Order.ag" #-}+ Seq.fromList (zip [_lhsIvcount..] _gathRules)+ {-# LINE 3641 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 263, column 19)+ _lhsOvcount =+ ({-# LINE 263 "src-ag/Order.ag" #-}+ _lhsIvcount + length _gathRules+ {-# LINE 3647 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 290, column 7)+ _manualDeps =+ ({-# LINE 290 "src-ag/Order.ag" #-}+ Set.toList $ Map.findWithDefault Set.empty con_ $ Map.findWithDefault Map.empty _lhsInt _lhsImanualAttrDepMap+ {-# LINE 3653 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 293, column 7)+ _lhsOadditionalDep =+ ({-# LINE 293 "src-ag/Order.ag" #-}+ Seq.fromList [ (vertex True occA, vertex False occB)+ | Dependency occA occB <- _manualDeps+ , let vertex inout (OccAttr child nm)+ | child == _LOC = findWithErr2 (AltAttr _LOC nm True) _altAttrs+ | otherwise = findWithErr2 (AltAttr child nm inout) _altAttrs+ vertex _ (OccRule nm)+ = findWithErr2 (AltAttr _LOC (Ident ("_rule_" ++ show nm) (getPos nm)) True) _altAttrs+ ]+ {-# LINE 3666 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 340, column 17)+ _rulesOsynsOfChildren =+ ({-# LINE 340 "src-ag/Order.ag" #-}+ _childrenIcollectChildrenSyns+ {-# LINE 3672 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 341, column 17)+ _rulesOinhsOfChildren =+ ({-# LINE 341 "src-ag/Order.ag" #-}+ _childrenIcollectChildrenInhs+ {-# LINE 3678 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 359, column 32)+ _mergeMap =+ ({-# LINE 359 "src-ag/Order.ag" #-}+ Map.findWithDefault Map.empty con_ _lhsImergeMap+ {-# LINE 3684 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 370, column 7)+ _lhsOmergeDep =+ ({-# LINE 370 "src-ag/Order.ag" #-}+ _mergeDep1 Seq.>< _mergeDep2+ {-# LINE 3690 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 371, column 7)+ _mergeDep1 =+ ({-# LINE 371 "src-ag/Order.ag" #-}+ Seq.fromList $+ [ (childVert, synVert)+ | childNm <- Map.keys _mergeMap+ , synNm <- Map.keys (findWithErr2 childNm _childrenIcollectChildrenSyns)+ , let childNm' = Ident (show childNm ++ "_merge") (getPos childNm)+ childAttr = AltAttr _LOC childNm' True+ synAttr = AltAttr childNm synNm True+ childVert = findWithErr2 childAttr _altAttrs+ synVert = findWithErr2 synAttr _altAttrs+ ]+ {-# LINE 3705 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 382, column 7)+ _mergeDep2 =+ ({-# LINE 382 "src-ag/Order.ag" #-}+ Seq.fromList $+ [ (mergedVert, sourceVert)+ | (childNm, (_,cs)) <- Map.assocs _mergeMap+ , c <- cs+ , synNm <- Map.keys (findWithErr2 childNm _childrenIcollectChildrenSyns)+ , let sourceAttr = AltAttr childNm synNm True+ mergedAttr = AltAttr c synNm True+ sourceVert = findWithErr2 sourceAttr _altAttrs+ mergedVert = findWithErr2 mergedAttr _altAttrs+ ]+ {-# LINE 3720 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 412, column 32)+ _aroundMap =+ ({-# LINE 412 "src-ag/Order.ag" #-}+ Map.findWithDefault Map.empty con_ _lhsIaroundMap+ {-# LINE 3726 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 419, column 6)+ _aroundDep1 =+ ({-# LINE 419 "src-ag/Order.ag" #-}+ Seq.fromList $+ [ (childVert, synVert)+ | childNm <- Map.keys _aroundMap+ , synNm <- Map.keys (findWithErr2 childNm _childrenIcollectChildrenSyns)+ , let childNm' = Ident (show childNm ++ "_around") (getPos childNm)+ childAttr = AltAttr _LOC childNm' True+ synAttr = AltAttr childNm synNm True+ childVert = findWithErr2 childAttr _altAttrs+ synVert = findWithErr2 synAttr _altAttrs+ ]+ {-# LINE 3741 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 430, column 6)+ _aroundDep2 =+ ({-# LINE 430 "src-ag/Order.ag" #-}+ Seq.fromList $+ [ (childVert, inhVert)+ | childNm <- Map.keys _aroundMap+ , inhNm <- Map.keys (findWithErr2 childNm _childrenIcollectChildrenInhs)+ , let childNm' = Ident (show childNm ++ "_around") (getPos childNm)+ childAttr = AltAttr _LOC childNm' True+ inhAttr = AltAttr childNm inhNm False+ childVert = findWithErr2 childAttr _altAttrs+ inhVert = findWithErr2 inhAttr _altAttrs+ ]+ {-# LINE 3756 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 441, column 6)+ _lhsOaroundDep =+ ({-# LINE 441 "src-ag/Order.ag" #-}+ _aroundDep1 Seq.>< _aroundDep2+ {-# LINE 3762 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 523, column 18)+ _lhsOcons =+ ({-# LINE 523 "src-ag/Order.ag" #-}+ [con_]+ {-# LINE 3768 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 530, column 16)+ _typeSigsOtypeSigs =+ ({-# LINE 530 "src-ag/Order.ag" #-}+ Map.empty+ {-# LINE 3774 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 536, column 17)+ _rulesOallTypeSigs =+ ({-# LINE 536 "src-ag/Order.ag" #-}+ _typeSigsItypeSigs+ {-# LINE 3780 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 604, column 17)+ _cVisits =+ ({-# LINE 604 "src-ag/Order.ag" #-}+ if _lhsIo_dovisit+ then let prodsVisitsMap = findWithErr1 "Production.cVisits.nt" _lhsInt _lhsIcVisitsMap+ visits = findWithErr1 "Production.cVisits.con" con_ prodsVisitsMap+ in visits+ else let vss = nubBy eqCRuleDefines _gathRules ++ _childrenIsinglevisits+ in [CVisit _lhsIinh _lhsIsyn vss [] False]+ {-# LINE 3791 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 630, column 18)+ _lhsOcProduction =+ ({-# LINE 630 "src-ag/Order.ag" #-}+ CProduction con_ _cVisits _childrenIfields _childrenIterminals+ {-# LINE 3797 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 658, column 16)+ _allfields =+ ({-# LINE 658 "src-ag/Order.ag" #-}+ _childrenIfields+ {-# LINE 3803 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 658, column 16)+ _attrs =+ ({-# LINE 659 "src-ag/Order.ag" #-}+ map ((,) _LOC) _rulesIlocVars +++ map ((,) _INST) _rulesIinstVars +++ map ((,) _LHS) _inhnames +++ concat [map ((,) nm) (Map.keys as) | (nm,_,as) <- _childrenIattributes]+ {-# LINE 3812 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 658, column 16)+ _inhnames =+ ({-# LINE 663 "src-ag/Order.ag" #-}+ Map.keys _lhsIinh+ {-# LINE 3818 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 658, column 16)+ _synnames =+ ({-# LINE 664 "src-ag/Order.ag" #-}+ Map.keys _lhsIsyn+ {-# LINE 3824 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 268, column 33)+ _lhsOdirectDep =+ ({-# LINE 268 "src-ag/Order.ag" #-}+ _rulesIdirectDep+ {-# LINE 3830 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 85, column 70)+ _lhsOerrors =+ ({-# LINE 85 "src-ag/Order.ag" #-}+ _childrenIerrors Seq.>< _rulesIerrors+ {-# LINE 3836 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 311, column 31)+ _lhsOinstDep =+ ({-# LINE 311 "src-ag/Order.ag" #-}+ _rulesIinstDep+ {-# LINE 3842 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 62, column 105)+ _lhsOnAutoRules =+ ({-# LINE 62 "src-ag/Order.ag" #-}+ _rulesInAutoRules+ {-# LINE 3848 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 62, column 105)+ _lhsOnExplicitRules =+ ({-# LINE 62 "src-ag/Order.ag" #-}+ _rulesInExplicitRules+ {-# LINE 3854 "dist/build/Order" #-}+ )+ -- copy rule (from local)+ _childrenOallfields =+ ({-# LINE 655 "src-ag/Order.ag" #-}+ _allfields+ {-# LINE 3860 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _childrenOallnts =+ ({-# LINE 648 "src-ag/Order.ag" #-}+ _lhsIallnts+ {-# LINE 3866 "dist/build/Order" #-}+ )+ -- copy rule (from local)+ _childrenOattrs =+ ({-# LINE 655 "src-ag/Order.ag" #-}+ _attrs+ {-# LINE 3872 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _childrenOinh =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIinh+ {-# LINE 3878 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _childrenOinhMap =+ ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}+ _lhsIinhMap+ {-# LINE 3884 "dist/build/Order" #-}+ )+ -- copy rule (from local)+ _childrenOmergeMap =+ ({-# LINE 361 "src-ag/Order.ag" #-}+ _mergeMap+ {-# LINE 3890 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _childrenOnt =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsInt+ {-# LINE 3896 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _childrenOo_unbox =+ ({-# LINE 120 "src-ag/Order.ag" #-}+ _lhsIo_unbox+ {-# LINE 3902 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _childrenOsyn =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIsyn+ {-# LINE 3908 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _childrenOsynMap =+ ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}+ _lhsIsynMap+ {-# LINE 3914 "dist/build/Order" #-}+ )+ -- copy rule (from local)+ _rulesOallfields =+ ({-# LINE 655 "src-ag/Order.ag" #-}+ _allfields+ {-# LINE 3920 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _rulesOallnts =+ ({-# LINE 648 "src-ag/Order.ag" #-}+ _lhsIallnts+ {-# LINE 3926 "dist/build/Order" #-}+ )+ -- copy rule (from local)+ _rulesOaltAttrs =+ ({-# LINE 187 "src-ag/Order.ag" #-}+ _altAttrs+ {-# LINE 3932 "dist/build/Order" #-}+ )+ -- copy rule (from local)+ _rulesOattrs =+ ({-# LINE 655 "src-ag/Order.ag" #-}+ _attrs+ {-# LINE 3938 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _rulesOinh =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIinh+ {-# LINE 3944 "dist/build/Order" #-}+ )+ -- copy rule (from local)+ _rulesOmergeMap =+ ({-# LINE 361 "src-ag/Order.ag" #-}+ _mergeMap+ {-# LINE 3950 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _rulesOnt =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsInt+ {-# LINE 3956 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _rulesOo_case =+ ({-# LINE 118 "src-ag/Order.ag" #-}+ _lhsIo_case+ {-# LINE 3962 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _rulesOo_cata =+ ({-# LINE 112 "src-ag/Order.ag" #-}+ _lhsIo_cata+ {-# LINE 3968 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _rulesOo_dovisit =+ ({-# LINE 117 "src-ag/Order.ag" #-}+ _lhsIo_dovisit+ {-# LINE 3974 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _rulesOo_newtypes =+ ({-# LINE 111 "src-ag/Order.ag" #-}+ _lhsIo_newtypes+ {-# LINE 3980 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _rulesOo_rename =+ ({-# LINE 115 "src-ag/Order.ag" #-}+ _lhsIo_rename+ {-# LINE 3986 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _rulesOo_sem =+ ({-# LINE 114 "src-ag/Order.ag" #-}+ _lhsIo_sem+ {-# LINE 3992 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _rulesOo_sig =+ ({-# LINE 113 "src-ag/Order.ag" #-}+ _lhsIo_sig+ {-# LINE 3998 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _rulesOo_wantvisit =+ ({-# LINE 116 "src-ag/Order.ag" #-}+ _lhsIo_wantvisit+ {-# LINE 4004 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _rulesOprefix =+ ({-# LINE 119 "src-ag/Order.ag" #-}+ _lhsIprefix+ {-# LINE 4010 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _rulesOsyn =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIsyn+ {-# LINE 4016 "dist/build/Order" #-}+ )+ ( _childrenIattributes,_childrenIcollectChildrenInhs,_childrenIcollectChildrenSyns,_childrenIerrors,_childrenIfields,_childrenIgathAltAttrs,_childrenIgathRules,_childrenIinhs,_childrenInts,_childrenIsinglevisits,_childrenIterminals) =+ children_ _childrenOallfields _childrenOallnts _childrenOattrs _childrenOcon _childrenOinh _childrenOinhMap _childrenOmergeMap _childrenOnt _childrenOo_unbox _childrenOsyn _childrenOsynMap+ ( _rulesIdirectDep,_rulesIerrors,_rulesIgathAltAttrs,_rulesIgathRules,_rulesIinstDep,_rulesIinstVars,_rulesIlocVars,_rulesInAutoRules,_rulesInExplicitRules) =+ rules_ _rulesOallTypeSigs _rulesOallfields _rulesOallnts _rulesOaltAttrs _rulesOattrs _rulesOchildInhs _rulesOchildNts _rulesOcon _rulesOinh _rulesOinhsOfChildren _rulesOmergeMap _rulesOnt _rulesOo_case _rulesOo_cata _rulesOo_dovisit _rulesOo_newtypes _rulesOo_rename _rulesOo_sem _rulesOo_sig _rulesOo_wantvisit _rulesOprefix _rulesOsyn _rulesOsynsOfChildren+ ( _typeSigsItypeSigs) =+ typeSigs_ _typeSigsOtypeSigs+ ___node =+ (Syn_Production _lhsOadditionalDep _lhsOaroundDep _lhsOcProduction _lhsOcons _lhsOdirectDep _lhsOerrors _lhsOinstDep _lhsOmergeDep _lhsOnAutoRules _lhsOnExplicitRules _lhsOrules _lhsOvcount)+ in ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProduction,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOrules,_lhsOvcount))))+-- Productions -------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allnts : [Identifier]+ aroundMap : Map ConstructorIdent (Map Identifier [Expression])+ cVisitsMap : CVisitsMap+ inh : Attributes+ inhMap : Map Identifier Attributes+ manualAttrDepMap : AttrOrderMap+ mergeMap : Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))+ nt : Identifier+ o_case : Bool+ o_cata : Bool+ o_dovisit : Bool+ o_newtypes : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_unbox : Bool+ o_wantvisit : Bool+ prefix : String+ syn : Attributes+ synMap : Map Identifier Attributes+ chained attribute:+ vcount : Int+ synthesized attributes:+ additionalDep : Seq Edge+ aroundDep : Seq Edge+ cProductions : CProductions+ cons : [ConstructorIdent]+ directDep : Seq Edge+ errors : Seq Error+ instDep : Seq Edge+ mergeDep : Seq Edge+ nAutoRules : Int+ nExplicitRules : Int+ rules : Seq (Vertex,CRule)+ alternatives:+ alternative Cons:+ child hd : Production + child tl : Productions + alternative Nil:+-}+-- cata+sem_Productions :: Productions ->+ T_Productions+sem_Productions list =+ (Prelude.foldr sem_Productions_Cons sem_Productions_Nil (Prelude.map sem_Production list))+-- semantic domain+newtype T_Productions = T_Productions (([Identifier]) ->+ (Map ConstructorIdent (Map Identifier [Expression])) ->+ CVisitsMap ->+ Attributes ->+ (Map Identifier Attributes) ->+ AttrOrderMap ->+ (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))) ->+ Identifier ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ String ->+ Attributes ->+ (Map Identifier Attributes) ->+ Int ->+ ( (Seq Edge),(Seq Edge),CProductions,([ConstructorIdent]),(Seq Edge),(Seq Error),(Seq Edge),(Seq Edge),Int,Int,(Seq (Vertex,CRule)),Int))+data Inh_Productions = Inh_Productions {allnts_Inh_Productions :: !(([Identifier])),aroundMap_Inh_Productions :: !((Map ConstructorIdent (Map Identifier [Expression]))),cVisitsMap_Inh_Productions :: !(CVisitsMap),inh_Inh_Productions :: !(Attributes),inhMap_Inh_Productions :: !((Map Identifier Attributes)),manualAttrDepMap_Inh_Productions :: !(AttrOrderMap),mergeMap_Inh_Productions :: !((Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))),nt_Inh_Productions :: !(Identifier),o_case_Inh_Productions :: !(Bool),o_cata_Inh_Productions :: !(Bool),o_dovisit_Inh_Productions :: !(Bool),o_newtypes_Inh_Productions :: !(Bool),o_rename_Inh_Productions :: !(Bool),o_sem_Inh_Productions :: !(Bool),o_sig_Inh_Productions :: !(Bool),o_unbox_Inh_Productions :: !(Bool),o_wantvisit_Inh_Productions :: !(Bool),prefix_Inh_Productions :: !(String),syn_Inh_Productions :: !(Attributes),synMap_Inh_Productions :: !((Map Identifier Attributes)),vcount_Inh_Productions :: !(Int)}+data Syn_Productions = Syn_Productions {additionalDep_Syn_Productions :: !((Seq Edge)),aroundDep_Syn_Productions :: !((Seq Edge)),cProductions_Syn_Productions :: !(CProductions),cons_Syn_Productions :: !(([ConstructorIdent])),directDep_Syn_Productions :: !((Seq Edge)),errors_Syn_Productions :: !((Seq Error)),instDep_Syn_Productions :: !((Seq Edge)),mergeDep_Syn_Productions :: !((Seq Edge)),nAutoRules_Syn_Productions :: !(Int),nExplicitRules_Syn_Productions :: !(Int),rules_Syn_Productions :: !((Seq (Vertex,CRule))),vcount_Syn_Productions :: !(Int)}+wrap_Productions :: T_Productions ->+ Inh_Productions ->+ Syn_Productions+wrap_Productions (T_Productions sem) (Inh_Productions _lhsIallnts _lhsIaroundMap _lhsIcVisitsMap _lhsIinh _lhsIinhMap _lhsImanualAttrDepMap _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynMap _lhsIvcount) =+ (let ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProductions,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOrules,_lhsOvcount) = sem _lhsIallnts _lhsIaroundMap _lhsIcVisitsMap _lhsIinh _lhsIinhMap _lhsImanualAttrDepMap _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynMap _lhsIvcount+ in (Syn_Productions _lhsOadditionalDep _lhsOaroundDep _lhsOcProductions _lhsOcons _lhsOdirectDep _lhsOerrors _lhsOinstDep _lhsOmergeDep _lhsOnAutoRules _lhsOnExplicitRules _lhsOrules _lhsOvcount))+sem_Productions_Cons :: T_Production ->+ T_Productions ->+ T_Productions+sem_Productions_Cons (T_Production hd_) (T_Productions tl_) =+ (T_Productions (\ _lhsIallnts+ _lhsIaroundMap+ _lhsIcVisitsMap+ _lhsIinh+ _lhsIinhMap+ _lhsImanualAttrDepMap+ _lhsImergeMap+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_dovisit+ _lhsIo_newtypes+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_unbox+ _lhsIo_wantvisit+ _lhsIprefix+ _lhsIsyn+ _lhsIsynMap+ _lhsIvcount ->+ (let _lhsOcProductions :: CProductions+ _lhsOadditionalDep :: (Seq Edge)+ _lhsOaroundDep :: (Seq Edge)+ _lhsOcons :: ([ConstructorIdent])+ _lhsOdirectDep :: (Seq Edge)+ _lhsOerrors :: (Seq Error)+ _lhsOinstDep :: (Seq Edge)+ _lhsOmergeDep :: (Seq Edge)+ _lhsOnAutoRules :: Int+ _lhsOnExplicitRules :: Int+ _lhsOrules :: (Seq (Vertex,CRule))+ _lhsOvcount :: Int+ _hdOallnts :: ([Identifier])+ _hdOaroundMap :: (Map ConstructorIdent (Map Identifier [Expression]))+ _hdOcVisitsMap :: CVisitsMap+ _hdOinh :: Attributes+ _hdOinhMap :: (Map Identifier Attributes)+ _hdOmanualAttrDepMap :: AttrOrderMap+ _hdOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))+ _hdOnt :: Identifier+ _hdOo_case :: Bool+ _hdOo_cata :: Bool+ _hdOo_dovisit :: Bool+ _hdOo_newtypes :: Bool+ _hdOo_rename :: Bool+ _hdOo_sem :: Bool+ _hdOo_sig :: Bool+ _hdOo_unbox :: Bool+ _hdOo_wantvisit :: Bool+ _hdOprefix :: String+ _hdOsyn :: Attributes+ _hdOsynMap :: (Map Identifier Attributes)+ _hdOvcount :: Int+ _tlOallnts :: ([Identifier])+ _tlOaroundMap :: (Map ConstructorIdent (Map Identifier [Expression]))+ _tlOcVisitsMap :: CVisitsMap+ _tlOinh :: Attributes+ _tlOinhMap :: (Map Identifier Attributes)+ _tlOmanualAttrDepMap :: AttrOrderMap+ _tlOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))+ _tlOnt :: Identifier+ _tlOo_case :: Bool+ _tlOo_cata :: Bool+ _tlOo_dovisit :: Bool+ _tlOo_newtypes :: Bool+ _tlOo_rename :: Bool+ _tlOo_sem :: Bool+ _tlOo_sig :: Bool+ _tlOo_unbox :: Bool+ _tlOo_wantvisit :: Bool+ _tlOprefix :: String+ _tlOsyn :: Attributes+ _tlOsynMap :: (Map Identifier Attributes)+ _tlOvcount :: Int+ _hdIadditionalDep :: (Seq Edge)+ _hdIaroundDep :: (Seq Edge)+ _hdIcProduction :: CProduction+ _hdIcons :: ([ConstructorIdent])+ _hdIdirectDep :: (Seq Edge)+ _hdIerrors :: (Seq Error)+ _hdIinstDep :: (Seq Edge)+ _hdImergeDep :: (Seq Edge)+ _hdInAutoRules :: Int+ _hdInExplicitRules :: Int+ _hdIrules :: (Seq (Vertex,CRule))+ _hdIvcount :: Int+ _tlIadditionalDep :: (Seq Edge)+ _tlIaroundDep :: (Seq Edge)+ _tlIcProductions :: CProductions+ _tlIcons :: ([ConstructorIdent])+ _tlIdirectDep :: (Seq Edge)+ _tlIerrors :: (Seq Error)+ _tlIinstDep :: (Seq Edge)+ _tlImergeDep :: (Seq Edge)+ _tlInAutoRules :: Int+ _tlInExplicitRules :: Int+ _tlIrules :: (Seq (Vertex,CRule))+ _tlIvcount :: Int+ -- "src-ag/Order.ag"(line 627, column 12)+ _lhsOcProductions =+ ({-# LINE 627 "src-ag/Order.ag" #-}+ _hdIcProduction : _tlIcProductions+ {-# LINE 4214 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 282, column 60)+ _lhsOadditionalDep =+ ({-# LINE 282 "src-ag/Order.ag" #-}+ _hdIadditionalDep Seq.>< _tlIadditionalDep+ {-# LINE 4220 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 403, column 24)+ _lhsOaroundDep =+ ({-# LINE 403 "src-ag/Order.ag" #-}+ _hdIaroundDep Seq.>< _tlIaroundDep+ {-# LINE 4226 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 521, column 40)+ _lhsOcons =+ ({-# LINE 521 "src-ag/Order.ag" #-}+ _hdIcons ++ _tlIcons+ {-# LINE 4232 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 268, column 33)+ _lhsOdirectDep =+ ({-# LINE 268 "src-ag/Order.ag" #-}+ _hdIdirectDep Seq.>< _tlIdirectDep+ {-# LINE 4238 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 85, column 70)+ _lhsOerrors =+ ({-# LINE 85 "src-ag/Order.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 4244 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 311, column 31)+ _lhsOinstDep =+ ({-# LINE 311 "src-ag/Order.ag" #-}+ _hdIinstDep Seq.>< _tlIinstDep+ {-# LINE 4250 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 366, column 18)+ _lhsOmergeDep =+ ({-# LINE 366 "src-ag/Order.ag" #-}+ _hdImergeDep Seq.>< _tlImergeDep+ {-# LINE 4256 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 62, column 105)+ _lhsOnAutoRules =+ ({-# LINE 62 "src-ag/Order.ag" #-}+ _hdInAutoRules + _tlInAutoRules+ {-# LINE 4262 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 62, column 105)+ _lhsOnExplicitRules =+ ({-# LINE 62 "src-ag/Order.ag" #-}+ _hdInExplicitRules + _tlInExplicitRules+ {-# LINE 4268 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 258, column 18)+ _lhsOrules =+ ({-# LINE 258 "src-ag/Order.ag" #-}+ _hdIrules Seq.>< _tlIrules+ {-# LINE 4274 "dist/build/Order" #-}+ )+ -- copy rule (up)+ _lhsOvcount =+ ({-# LINE 257 "src-ag/Order.ag" #-}+ _tlIvcount+ {-# LINE 4280 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOallnts =+ ({-# LINE 648 "src-ag/Order.ag" #-}+ _lhsIallnts+ {-# LINE 4286 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOaroundMap =+ ({-# LINE 409 "src-ag/Order.ag" #-}+ _lhsIaroundMap+ {-# LINE 4292 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOcVisitsMap =+ ({-# LINE 602 "src-ag/Order.ag" #-}+ _lhsIcVisitsMap+ {-# LINE 4298 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOinh =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIinh+ {-# LINE 4304 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOinhMap =+ ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}+ _lhsIinhMap+ {-# LINE 4310 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOmanualAttrDepMap =+ ({-# LINE 282 "src-ag/Order.ag" #-}+ _lhsImanualAttrDepMap+ {-# LINE 4316 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOmergeMap =+ ({-# LINE 356 "src-ag/Order.ag" #-}+ _lhsImergeMap+ {-# LINE 4322 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOnt =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsInt+ {-# LINE 4328 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_case =+ ({-# LINE 118 "src-ag/Order.ag" #-}+ _lhsIo_case+ {-# LINE 4334 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_cata =+ ({-# LINE 112 "src-ag/Order.ag" #-}+ _lhsIo_cata+ {-# LINE 4340 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_dovisit =+ ({-# LINE 117 "src-ag/Order.ag" #-}+ _lhsIo_dovisit+ {-# LINE 4346 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_newtypes =+ ({-# LINE 111 "src-ag/Order.ag" #-}+ _lhsIo_newtypes+ {-# LINE 4352 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_rename =+ ({-# LINE 115 "src-ag/Order.ag" #-}+ _lhsIo_rename+ {-# LINE 4358 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_sem =+ ({-# LINE 114 "src-ag/Order.ag" #-}+ _lhsIo_sem+ {-# LINE 4364 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_sig =+ ({-# LINE 113 "src-ag/Order.ag" #-}+ _lhsIo_sig+ {-# LINE 4370 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_unbox =+ ({-# LINE 120 "src-ag/Order.ag" #-}+ _lhsIo_unbox+ {-# LINE 4376 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_wantvisit =+ ({-# LINE 116 "src-ag/Order.ag" #-}+ _lhsIo_wantvisit+ {-# LINE 4382 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOprefix =+ ({-# LINE 119 "src-ag/Order.ag" #-}+ _lhsIprefix+ {-# LINE 4388 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOsyn =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIsyn+ {-# LINE 4394 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOsynMap =+ ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}+ _lhsIsynMap+ {-# LINE 4400 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOvcount =+ ({-# LINE 257 "src-ag/Order.ag" #-}+ _lhsIvcount+ {-# LINE 4406 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOallnts =+ ({-# LINE 648 "src-ag/Order.ag" #-}+ _lhsIallnts+ {-# LINE 4412 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOaroundMap =+ ({-# LINE 409 "src-ag/Order.ag" #-}+ _lhsIaroundMap+ {-# LINE 4418 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOcVisitsMap =+ ({-# LINE 602 "src-ag/Order.ag" #-}+ _lhsIcVisitsMap+ {-# LINE 4424 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOinh =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIinh+ {-# LINE 4430 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOinhMap =+ ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}+ _lhsIinhMap+ {-# LINE 4436 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOmanualAttrDepMap =+ ({-# LINE 282 "src-ag/Order.ag" #-}+ _lhsImanualAttrDepMap+ {-# LINE 4442 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOmergeMap =+ ({-# LINE 356 "src-ag/Order.ag" #-}+ _lhsImergeMap+ {-# LINE 4448 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOnt =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsInt+ {-# LINE 4454 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_case =+ ({-# LINE 118 "src-ag/Order.ag" #-}+ _lhsIo_case+ {-# LINE 4460 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_cata =+ ({-# LINE 112 "src-ag/Order.ag" #-}+ _lhsIo_cata+ {-# LINE 4466 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_dovisit =+ ({-# LINE 117 "src-ag/Order.ag" #-}+ _lhsIo_dovisit+ {-# LINE 4472 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_newtypes =+ ({-# LINE 111 "src-ag/Order.ag" #-}+ _lhsIo_newtypes+ {-# LINE 4478 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_rename =+ ({-# LINE 115 "src-ag/Order.ag" #-}+ _lhsIo_rename+ {-# LINE 4484 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_sem =+ ({-# LINE 114 "src-ag/Order.ag" #-}+ _lhsIo_sem+ {-# LINE 4490 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_sig =+ ({-# LINE 113 "src-ag/Order.ag" #-}+ _lhsIo_sig+ {-# LINE 4496 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_unbox =+ ({-# LINE 120 "src-ag/Order.ag" #-}+ _lhsIo_unbox+ {-# LINE 4502 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_wantvisit =+ ({-# LINE 116 "src-ag/Order.ag" #-}+ _lhsIo_wantvisit+ {-# LINE 4508 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOprefix =+ ({-# LINE 119 "src-ag/Order.ag" #-}+ _lhsIprefix+ {-# LINE 4514 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOsyn =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIsyn+ {-# LINE 4520 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOsynMap =+ ({-# LINE 12 "src-ag/DistChildAttr.ag" #-}+ _lhsIsynMap+ {-# LINE 4526 "dist/build/Order" #-}+ )+ -- copy rule (chain)+ _tlOvcount =+ ({-# LINE 257 "src-ag/Order.ag" #-}+ _hdIvcount+ {-# LINE 4532 "dist/build/Order" #-}+ )+ ( _hdIadditionalDep,_hdIaroundDep,_hdIcProduction,_hdIcons,_hdIdirectDep,_hdIerrors,_hdIinstDep,_hdImergeDep,_hdInAutoRules,_hdInExplicitRules,_hdIrules,_hdIvcount) =+ hd_ _hdOallnts _hdOaroundMap _hdOcVisitsMap _hdOinh _hdOinhMap _hdOmanualAttrDepMap _hdOmergeMap _hdOnt _hdOo_case _hdOo_cata _hdOo_dovisit _hdOo_newtypes _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_unbox _hdOo_wantvisit _hdOprefix _hdOsyn _hdOsynMap _hdOvcount+ ( _tlIadditionalDep,_tlIaroundDep,_tlIcProductions,_tlIcons,_tlIdirectDep,_tlIerrors,_tlIinstDep,_tlImergeDep,_tlInAutoRules,_tlInExplicitRules,_tlIrules,_tlIvcount) =+ tl_ _tlOallnts _tlOaroundMap _tlOcVisitsMap _tlOinh _tlOinhMap _tlOmanualAttrDepMap _tlOmergeMap _tlOnt _tlOo_case _tlOo_cata _tlOo_dovisit _tlOo_newtypes _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_unbox _tlOo_wantvisit _tlOprefix _tlOsyn _tlOsynMap _tlOvcount+ ___node =+ (Syn_Productions _lhsOadditionalDep _lhsOaroundDep _lhsOcProductions _lhsOcons _lhsOdirectDep _lhsOerrors _lhsOinstDep _lhsOmergeDep _lhsOnAutoRules _lhsOnExplicitRules _lhsOrules _lhsOvcount)+ in ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProductions,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOrules,_lhsOvcount))))+sem_Productions_Nil :: T_Productions+sem_Productions_Nil =+ (T_Productions (\ _lhsIallnts+ _lhsIaroundMap+ _lhsIcVisitsMap+ _lhsIinh+ _lhsIinhMap+ _lhsImanualAttrDepMap+ _lhsImergeMap+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_dovisit+ _lhsIo_newtypes+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_unbox+ _lhsIo_wantvisit+ _lhsIprefix+ _lhsIsyn+ _lhsIsynMap+ _lhsIvcount ->+ (let _lhsOcProductions :: CProductions+ _lhsOadditionalDep :: (Seq Edge)+ _lhsOaroundDep :: (Seq Edge)+ _lhsOcons :: ([ConstructorIdent])+ _lhsOdirectDep :: (Seq Edge)+ _lhsOerrors :: (Seq Error)+ _lhsOinstDep :: (Seq Edge)+ _lhsOmergeDep :: (Seq Edge)+ _lhsOnAutoRules :: Int+ _lhsOnExplicitRules :: Int+ _lhsOrules :: (Seq (Vertex,CRule))+ _lhsOvcount :: Int+ -- "src-ag/Order.ag"(line 628, column 12)+ _lhsOcProductions =+ ({-# LINE 628 "src-ag/Order.ag" #-}+ []+ {-# LINE 4580 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 282, column 60)+ _lhsOadditionalDep =+ ({-# LINE 282 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 4586 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 403, column 24)+ _lhsOaroundDep =+ ({-# LINE 403 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 4592 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 521, column 40)+ _lhsOcons =+ ({-# LINE 521 "src-ag/Order.ag" #-}+ []+ {-# LINE 4598 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 268, column 33)+ _lhsOdirectDep =+ ({-# LINE 268 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 4604 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 85, column 70)+ _lhsOerrors =+ ({-# LINE 85 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 4610 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 311, column 31)+ _lhsOinstDep =+ ({-# LINE 311 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 4616 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 366, column 18)+ _lhsOmergeDep =+ ({-# LINE 366 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 4622 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 62, column 105)+ _lhsOnAutoRules =+ ({-# LINE 62 "src-ag/Order.ag" #-}+ 0+ {-# LINE 4628 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 62, column 105)+ _lhsOnExplicitRules =+ ({-# LINE 62 "src-ag/Order.ag" #-}+ 0+ {-# LINE 4634 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 258, column 18)+ _lhsOrules =+ ({-# LINE 258 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 4640 "dist/build/Order" #-}+ )+ -- copy rule (chain)+ _lhsOvcount =+ ({-# LINE 257 "src-ag/Order.ag" #-}+ _lhsIvcount+ {-# LINE 4646 "dist/build/Order" #-}+ )+ ___node =+ (Syn_Productions _lhsOadditionalDep _lhsOaroundDep _lhsOcProductions _lhsOcons _lhsOdirectDep _lhsOerrors _lhsOinstDep _lhsOmergeDep _lhsOnAutoRules _lhsOnExplicitRules _lhsOrules _lhsOvcount)+ in ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProductions,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOrules,_lhsOvcount))))+-- Rule --------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allTypeSigs : Map Identifier Type+ allfields : [(Identifier,Type,ChildKind)]+ allnts : [Identifier]+ altAttrs : Map AltAttr Vertex+ attrs : [(Identifier,Identifier)]+ childInhs : Map Identifier Attributes+ childNts : Map Identifier NontermIdent+ con : Identifier+ inh : Attributes+ inhsOfChildren : Map Identifier Attributes+ mergeMap : Map Identifier (Identifier,[Identifier])+ nt : Identifier+ o_case : Bool+ o_cata : Bool+ o_dovisit : Bool+ o_newtypes : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_wantvisit : Bool+ prefix : String+ syn : Attributes+ synsOfChildren : Map Identifier Attributes+ synthesized attributes:+ directDep : Seq Edge+ errors : Seq Error+ gathAltAttrs : [AltAttr]+ gathRules : Seq CRule+ instDep : Seq Edge+ instVars : [Identifier]+ locVars : [Identifier]+ nAutoRules : Int+ nExplicitRules : Int+ alternatives:+ alternative Rule:+ child mbName : {Maybe Identifier}+ child pattern : Pattern + child rhs : Expression + child owrt : {Bool}+ child origin : {String}+ child explicit : {Bool}+ child pure : {Bool}+ child identity : {Bool}+ child mbError : {Maybe Error}+ child eager : {Bool}+ visit 0:+ local defines : _+ local gathRules : _+ local instDep1 : _+ local instDep2 : _+-}+-- cata+sem_Rule :: Rule ->+ T_Rule+sem_Rule (Rule _mbName _pattern _rhs _owrt _origin _explicit _pure _identity _mbError _eager) =+ (sem_Rule_Rule _mbName (sem_Pattern _pattern) (sem_Expression _rhs) _owrt _origin _explicit _pure _identity _mbError _eager)+-- semantic domain+newtype T_Rule = T_Rule ((Map Identifier Type) ->+ ([(Identifier,Type,ChildKind)]) ->+ ([Identifier]) ->+ (Map AltAttr Vertex) ->+ ([(Identifier,Identifier)]) ->+ (Map Identifier Attributes) ->+ (Map Identifier NontermIdent) ->+ Identifier ->+ Attributes ->+ (Map Identifier Attributes) ->+ (Map Identifier (Identifier,[Identifier])) ->+ Identifier ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ String ->+ Attributes ->+ (Map Identifier Attributes) ->+ ( (Seq Edge),(Seq Error),([AltAttr]),(Seq CRule),(Seq Edge),([Identifier]),([Identifier]),Int,Int))+data Inh_Rule = Inh_Rule {allTypeSigs_Inh_Rule :: !((Map Identifier Type)),allfields_Inh_Rule :: !(([(Identifier,Type,ChildKind)])),allnts_Inh_Rule :: !(([Identifier])),altAttrs_Inh_Rule :: !((Map AltAttr Vertex)),attrs_Inh_Rule :: !(([(Identifier,Identifier)])),childInhs_Inh_Rule :: !((Map Identifier Attributes)),childNts_Inh_Rule :: !((Map Identifier NontermIdent)),con_Inh_Rule :: !(Identifier),inh_Inh_Rule :: !(Attributes),inhsOfChildren_Inh_Rule :: !((Map Identifier Attributes)),mergeMap_Inh_Rule :: !((Map Identifier (Identifier,[Identifier]))),nt_Inh_Rule :: !(Identifier),o_case_Inh_Rule :: !(Bool),o_cata_Inh_Rule :: !(Bool),o_dovisit_Inh_Rule :: !(Bool),o_newtypes_Inh_Rule :: !(Bool),o_rename_Inh_Rule :: !(Bool),o_sem_Inh_Rule :: !(Bool),o_sig_Inh_Rule :: !(Bool),o_wantvisit_Inh_Rule :: !(Bool),prefix_Inh_Rule :: !(String),syn_Inh_Rule :: !(Attributes),synsOfChildren_Inh_Rule :: !((Map Identifier Attributes))}+data Syn_Rule = Syn_Rule {directDep_Syn_Rule :: !((Seq Edge)),errors_Syn_Rule :: !((Seq Error)),gathAltAttrs_Syn_Rule :: !(([AltAttr])),gathRules_Syn_Rule :: !((Seq CRule)),instDep_Syn_Rule :: !((Seq Edge)),instVars_Syn_Rule :: !(([Identifier])),locVars_Syn_Rule :: !(([Identifier])),nAutoRules_Syn_Rule :: !(Int),nExplicitRules_Syn_Rule :: !(Int)}+wrap_Rule :: T_Rule ->+ Inh_Rule ->+ Syn_Rule+wrap_Rule (T_Rule sem) (Inh_Rule _lhsIallTypeSigs _lhsIallfields _lhsIallnts _lhsIaltAttrs _lhsIattrs _lhsIchildInhs _lhsIchildNts _lhsIcon _lhsIinh _lhsIinhsOfChildren _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynsOfChildren) =+ (let ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars,_lhsOnAutoRules,_lhsOnExplicitRules) = sem _lhsIallTypeSigs _lhsIallfields _lhsIallnts _lhsIaltAttrs _lhsIattrs _lhsIchildInhs _lhsIchildNts _lhsIcon _lhsIinh _lhsIinhsOfChildren _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynsOfChildren+ in (Syn_Rule _lhsOdirectDep _lhsOerrors _lhsOgathAltAttrs _lhsOgathRules _lhsOinstDep _lhsOinstVars _lhsOlocVars _lhsOnAutoRules _lhsOnExplicitRules))+sem_Rule_Rule :: (Maybe Identifier) ->+ T_Pattern ->+ T_Expression ->+ Bool ->+ String ->+ Bool ->+ Bool ->+ Bool ->+ (Maybe Error) ->+ Bool ->+ T_Rule+sem_Rule_Rule mbName_ (T_Pattern pattern_) (T_Expression rhs_) owrt_ origin_ explicit_ pure_ identity_ mbError_ eager_ =+ (T_Rule (\ _lhsIallTypeSigs+ _lhsIallfields+ _lhsIallnts+ _lhsIaltAttrs+ _lhsIattrs+ _lhsIchildInhs+ _lhsIchildNts+ _lhsIcon+ _lhsIinh+ _lhsIinhsOfChildren+ _lhsImergeMap+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_dovisit+ _lhsIo_newtypes+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_wantvisit+ _lhsIprefix+ _lhsIsyn+ _lhsIsynsOfChildren ->+ (let _lhsOnExplicitRules :: Int+ _lhsOnAutoRules :: Int+ _lhsOdirectDep :: (Seq Edge)+ _lhsOinstDep :: (Seq Edge)+ _lhsOerrors :: (Seq Error)+ _lhsOgathAltAttrs :: ([AltAttr])+ _lhsOgathRules :: (Seq CRule)+ _lhsOinstVars :: ([Identifier])+ _lhsOlocVars :: ([Identifier])+ _patternOallTypeSigs :: (Map Identifier Type)+ _patternOaltAttrs :: (Map AltAttr Vertex)+ _patternOcon :: Identifier+ _patternOinh :: Attributes+ _patternOnt :: Identifier+ _patternOsyn :: Attributes+ _rhsOallfields :: ([(Identifier,Type,ChildKind)])+ _rhsOallnts :: ([Identifier])+ _rhsOattrs :: ([(Identifier,Identifier)])+ _rhsOcon :: Identifier+ _rhsOmergeMap :: (Map Identifier (Identifier,[Identifier]))+ _rhsOnt :: Identifier+ _patternIcopy :: Pattern+ _patternIerrors :: (Seq Error)+ _patternIgathAltAttrs :: ([AltAttr])+ _patternIinstVars :: ([Identifier])+ _patternIlocVars :: ([Identifier])+ _patternIpatternAttrs :: ([(Identifier,Identifier,Bool)])+ _rhsIallRhsVars :: (Set (Identifier,Identifier))+ _rhsIcopy :: Expression+ _rhsIerrors :: (Seq Error)+ _rhsItextLines :: ([String])+ _rhsIusedAttrs :: ([(Identifier,Identifier)])+ _rhsIusedFields :: ([Identifier])+ _rhsIusedLocals :: ([Identifier])+ -- "src-ag/Order.ag"(line 65, column 11)+ _lhsOnExplicitRules =+ ({-# LINE 65 "src-ag/Order.ag" #-}+ if explicit_+ then 1+ else 0+ {-# LINE 4819 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 68, column 11)+ _lhsOnAutoRules =+ ({-# LINE 68 "src-ag/Order.ag" #-}+ if startsWith "use rule" origin_ || startsWith "copy rule" origin_+ then 1+ else 0+ {-# LINE 4827 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 218, column 12)+ _defines =+ ({-# LINE 218 "src-ag/Order.ag" #-}+ let tp field attr | field == _LOC || field == _INST+ = Map.lookup attr _lhsIallTypeSigs+ | field == _LHS = Map.lookup attr _lhsIsyn+ | otherwise = Map.lookup attr (findWithErr1 "Rule.defines.tp" field _lhsIchildInhs)+ typ :: Pattern -> Maybe Type+ typ (Alias field attr _) = tp field attr+ typ (Underscore _) = Nothing+ typ _ = Nothing+ in Map.fromList [ (findWithErr1 "Rule.defines" aa _lhsIaltAttrs, (field,attr,(tp field attr)))+ | (field,attr,isLocalOrInst) <- _patternIpatternAttrs+ , let aa = AltAttr field attr isLocalOrInst+ ]+ {-# LINE 4844 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 232, column 12)+ _gathRules =+ ({-# LINE 232 "src-ag/Order.ag" #-}+ let childnt field = Map.lookup field _lhsIchildNts+ in Seq.fromList [ CRule attr False True _lhsInt _lhsIcon field (childnt field) tp _patternIcopy _rhsItextLines _defines owrt_ origin_ _rhsIallRhsVars explicit_ mbName_+ | (field,attr,tp) <- Map.elems _defines+ ]+ {-# LINE 4853 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 270, column 12)+ _lhsOdirectDep =+ ({-# LINE 270 "src-ag/Order.ag" #-}+ let defined = Map.keys _defines+ used = [ Map.lookup (AltAttr field attr True) _lhsIaltAttrs | (field,attr) <- _rhsIusedAttrs]+ ++ [ Map.lookup (AltAttr _LOC attr True) _lhsIaltAttrs | attr <- _rhsIusedLocals ++ _rhsIusedFields ]+ in Seq.fromList [ (x,y) | Just x <- used, y <- defined ]+ {-# LINE 4862 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 314, column 6)+ _instDep1 =+ ({-# LINE 314 "src-ag/Order.ag" #-}+ Seq.fromList $+ [ (instVert, synVert)+ | (field,instNm,_) <- Map.elems _defines+ , field == _INST+ , synNm <- Map.keys (findWithErr2 instNm _lhsIsynsOfChildren)+ , let instAttr = AltAttr _INST instNm True+ synAttr = AltAttr instNm synNm True+ instVert = findWithErr2 instAttr _lhsIaltAttrs+ synVert = findWithErr2 synAttr _lhsIaltAttrs+ ]+ {-# LINE 4877 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 325, column 6)+ _instDep2 =+ ({-# LINE 325 "src-ag/Order.ag" #-}+ Seq.fromList $+ [ (instVert, inhVert)+ | (field,instNm,_) <- Map.elems _defines+ , field == _INST+ , inhNm <- Map.keys (findWithErr2 instNm _lhsIinhsOfChildren)+ , let instAttr = AltAttr _INST instNm True+ inhAttr = AltAttr instNm inhNm False+ instVert = findWithErr2 instAttr _lhsIaltAttrs+ inhVert = findWithErr2 inhAttr _lhsIaltAttrs+ ]+ {-# LINE 4892 "dist/build/Order" #-}+ )+ -- "src-ag/Order.ag"(line 336, column 6)+ _lhsOinstDep =+ ({-# LINE 336 "src-ag/Order.ag" #-}+ _instDep1 Seq.>< _instDep2+ {-# LINE 4898 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 85, column 70)+ _lhsOerrors =+ ({-# LINE 85 "src-ag/Order.ag" #-}+ _patternIerrors Seq.>< _rhsIerrors+ {-# LINE 4904 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 171, column 68)+ _lhsOgathAltAttrs =+ ({-# LINE 171 "src-ag/Order.ag" #-}+ _patternIgathAltAttrs+ {-# LINE 4910 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 207, column 23)+ _lhsOgathRules =+ ({-# LINE 207 "src-ag/Order.ag" #-}+ _gathRules+ {-# LINE 4916 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 678, column 86)+ _lhsOinstVars =+ ({-# LINE 678 "src-ag/Order.ag" #-}+ _patternIinstVars+ {-# LINE 4922 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 678, column 48)+ _lhsOlocVars =+ ({-# LINE 678 "src-ag/Order.ag" #-}+ _patternIlocVars+ {-# LINE 4928 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patternOallTypeSigs =+ ({-# LINE 534 "src-ag/Order.ag" #-}+ _lhsIallTypeSigs+ {-# LINE 4934 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patternOaltAttrs =+ ({-# LINE 187 "src-ag/Order.ag" #-}+ _lhsIaltAttrs+ {-# LINE 4940 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patternOcon =+ ({-# LINE 91 "src-ag/Order.ag" #-}+ _lhsIcon+ {-# LINE 4946 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patternOinh =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIinh+ {-# LINE 4952 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patternOnt =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsInt+ {-# LINE 4958 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _patternOsyn =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIsyn+ {-# LINE 4964 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _rhsOallfields =+ ({-# LINE 447 "src-ag/Order.ag" #-}+ _lhsIallfields+ {-# LINE 4970 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _rhsOallnts =+ ({-# LINE 448 "src-ag/Order.ag" #-}+ _lhsIallnts+ {-# LINE 4976 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _rhsOattrs =+ ({-# LINE 449 "src-ag/Order.ag" #-}+ _lhsIattrs+ {-# LINE 4982 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _rhsOcon =+ ({-# LINE 446 "src-ag/Order.ag" #-}+ _lhsIcon+ {-# LINE 4988 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _rhsOmergeMap =+ ({-# LINE 361 "src-ag/Order.ag" #-}+ _lhsImergeMap+ {-# LINE 4994 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _rhsOnt =+ ({-# LINE 446 "src-ag/Order.ag" #-}+ _lhsInt+ {-# LINE 5000 "dist/build/Order" #-}+ )+ ( _patternIcopy,_patternIerrors,_patternIgathAltAttrs,_patternIinstVars,_patternIlocVars,_patternIpatternAttrs) =+ pattern_ _patternOallTypeSigs _patternOaltAttrs _patternOcon _patternOinh _patternOnt _patternOsyn+ ( _rhsIallRhsVars,_rhsIcopy,_rhsIerrors,_rhsItextLines,_rhsIusedAttrs,_rhsIusedFields,_rhsIusedLocals) =+ rhs_ _rhsOallfields _rhsOallnts _rhsOattrs _rhsOcon _rhsOmergeMap _rhsOnt+ ___node =+ (Syn_Rule _lhsOdirectDep _lhsOerrors _lhsOgathAltAttrs _lhsOgathRules _lhsOinstDep _lhsOinstVars _lhsOlocVars _lhsOnAutoRules _lhsOnExplicitRules)+ in ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars,_lhsOnAutoRules,_lhsOnExplicitRules))))+-- Rules -------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allTypeSigs : Map Identifier Type+ allfields : [(Identifier,Type,ChildKind)]+ allnts : [Identifier]+ altAttrs : Map AltAttr Vertex+ attrs : [(Identifier,Identifier)]+ childInhs : Map Identifier Attributes+ childNts : Map Identifier NontermIdent+ con : Identifier+ inh : Attributes+ inhsOfChildren : Map Identifier Attributes+ mergeMap : Map Identifier (Identifier,[Identifier])+ nt : Identifier+ o_case : Bool+ o_cata : Bool+ o_dovisit : Bool+ o_newtypes : Bool+ o_rename : Bool+ o_sem : Bool+ o_sig : Bool+ o_wantvisit : Bool+ prefix : String+ syn : Attributes+ synsOfChildren : Map Identifier Attributes+ synthesized attributes:+ directDep : Seq Edge+ errors : Seq Error+ gathAltAttrs : [AltAttr]+ gathRules : Seq CRule+ instDep : Seq Edge+ instVars : [Identifier]+ locVars : [Identifier]+ nAutoRules : Int+ nExplicitRules : Int+ alternatives:+ alternative Cons:+ child hd : Rule + child tl : Rules + alternative Nil:+-}+-- cata+sem_Rules :: Rules ->+ T_Rules+sem_Rules list =+ (Prelude.foldr sem_Rules_Cons sem_Rules_Nil (Prelude.map sem_Rule list))+-- semantic domain+newtype T_Rules = T_Rules ((Map Identifier Type) ->+ ([(Identifier,Type,ChildKind)]) ->+ ([Identifier]) ->+ (Map AltAttr Vertex) ->+ ([(Identifier,Identifier)]) ->+ (Map Identifier Attributes) ->+ (Map Identifier NontermIdent) ->+ Identifier ->+ Attributes ->+ (Map Identifier Attributes) ->+ (Map Identifier (Identifier,[Identifier])) ->+ Identifier ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ Bool ->+ String ->+ Attributes ->+ (Map Identifier Attributes) ->+ ( (Seq Edge),(Seq Error),([AltAttr]),(Seq CRule),(Seq Edge),([Identifier]),([Identifier]),Int,Int))+data Inh_Rules = Inh_Rules {allTypeSigs_Inh_Rules :: !((Map Identifier Type)),allfields_Inh_Rules :: !(([(Identifier,Type,ChildKind)])),allnts_Inh_Rules :: !(([Identifier])),altAttrs_Inh_Rules :: !((Map AltAttr Vertex)),attrs_Inh_Rules :: !(([(Identifier,Identifier)])),childInhs_Inh_Rules :: !((Map Identifier Attributes)),childNts_Inh_Rules :: !((Map Identifier NontermIdent)),con_Inh_Rules :: !(Identifier),inh_Inh_Rules :: !(Attributes),inhsOfChildren_Inh_Rules :: !((Map Identifier Attributes)),mergeMap_Inh_Rules :: !((Map Identifier (Identifier,[Identifier]))),nt_Inh_Rules :: !(Identifier),o_case_Inh_Rules :: !(Bool),o_cata_Inh_Rules :: !(Bool),o_dovisit_Inh_Rules :: !(Bool),o_newtypes_Inh_Rules :: !(Bool),o_rename_Inh_Rules :: !(Bool),o_sem_Inh_Rules :: !(Bool),o_sig_Inh_Rules :: !(Bool),o_wantvisit_Inh_Rules :: !(Bool),prefix_Inh_Rules :: !(String),syn_Inh_Rules :: !(Attributes),synsOfChildren_Inh_Rules :: !((Map Identifier Attributes))}+data Syn_Rules = Syn_Rules {directDep_Syn_Rules :: !((Seq Edge)),errors_Syn_Rules :: !((Seq Error)),gathAltAttrs_Syn_Rules :: !(([AltAttr])),gathRules_Syn_Rules :: !((Seq CRule)),instDep_Syn_Rules :: !((Seq Edge)),instVars_Syn_Rules :: !(([Identifier])),locVars_Syn_Rules :: !(([Identifier])),nAutoRules_Syn_Rules :: !(Int),nExplicitRules_Syn_Rules :: !(Int)}+wrap_Rules :: T_Rules ->+ Inh_Rules ->+ Syn_Rules+wrap_Rules (T_Rules sem) (Inh_Rules _lhsIallTypeSigs _lhsIallfields _lhsIallnts _lhsIaltAttrs _lhsIattrs _lhsIchildInhs _lhsIchildNts _lhsIcon _lhsIinh _lhsIinhsOfChildren _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynsOfChildren) =+ (let ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars,_lhsOnAutoRules,_lhsOnExplicitRules) = sem _lhsIallTypeSigs _lhsIallfields _lhsIallnts _lhsIaltAttrs _lhsIattrs _lhsIchildInhs _lhsIchildNts _lhsIcon _lhsIinh _lhsIinhsOfChildren _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynsOfChildren+ in (Syn_Rules _lhsOdirectDep _lhsOerrors _lhsOgathAltAttrs _lhsOgathRules _lhsOinstDep _lhsOinstVars _lhsOlocVars _lhsOnAutoRules _lhsOnExplicitRules))+sem_Rules_Cons :: T_Rule ->+ T_Rules ->+ T_Rules+sem_Rules_Cons (T_Rule hd_) (T_Rules tl_) =+ (T_Rules (\ _lhsIallTypeSigs+ _lhsIallfields+ _lhsIallnts+ _lhsIaltAttrs+ _lhsIattrs+ _lhsIchildInhs+ _lhsIchildNts+ _lhsIcon+ _lhsIinh+ _lhsIinhsOfChildren+ _lhsImergeMap+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_dovisit+ _lhsIo_newtypes+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_wantvisit+ _lhsIprefix+ _lhsIsyn+ _lhsIsynsOfChildren ->+ (let _lhsOdirectDep :: (Seq Edge)+ _lhsOerrors :: (Seq Error)+ _lhsOgathAltAttrs :: ([AltAttr])+ _lhsOgathRules :: (Seq CRule)+ _lhsOinstDep :: (Seq Edge)+ _lhsOinstVars :: ([Identifier])+ _lhsOlocVars :: ([Identifier])+ _lhsOnAutoRules :: Int+ _lhsOnExplicitRules :: Int+ _hdOallTypeSigs :: (Map Identifier Type)+ _hdOallfields :: ([(Identifier,Type,ChildKind)])+ _hdOallnts :: ([Identifier])+ _hdOaltAttrs :: (Map AltAttr Vertex)+ _hdOattrs :: ([(Identifier,Identifier)])+ _hdOchildInhs :: (Map Identifier Attributes)+ _hdOchildNts :: (Map Identifier NontermIdent)+ _hdOcon :: Identifier+ _hdOinh :: Attributes+ _hdOinhsOfChildren :: (Map Identifier Attributes)+ _hdOmergeMap :: (Map Identifier (Identifier,[Identifier]))+ _hdOnt :: Identifier+ _hdOo_case :: Bool+ _hdOo_cata :: Bool+ _hdOo_dovisit :: Bool+ _hdOo_newtypes :: Bool+ _hdOo_rename :: Bool+ _hdOo_sem :: Bool+ _hdOo_sig :: Bool+ _hdOo_wantvisit :: Bool+ _hdOprefix :: String+ _hdOsyn :: Attributes+ _hdOsynsOfChildren :: (Map Identifier Attributes)+ _tlOallTypeSigs :: (Map Identifier Type)+ _tlOallfields :: ([(Identifier,Type,ChildKind)])+ _tlOallnts :: ([Identifier])+ _tlOaltAttrs :: (Map AltAttr Vertex)+ _tlOattrs :: ([(Identifier,Identifier)])+ _tlOchildInhs :: (Map Identifier Attributes)+ _tlOchildNts :: (Map Identifier NontermIdent)+ _tlOcon :: Identifier+ _tlOinh :: Attributes+ _tlOinhsOfChildren :: (Map Identifier Attributes)+ _tlOmergeMap :: (Map Identifier (Identifier,[Identifier]))+ _tlOnt :: Identifier+ _tlOo_case :: Bool+ _tlOo_cata :: Bool+ _tlOo_dovisit :: Bool+ _tlOo_newtypes :: Bool+ _tlOo_rename :: Bool+ _tlOo_sem :: Bool+ _tlOo_sig :: Bool+ _tlOo_wantvisit :: Bool+ _tlOprefix :: String+ _tlOsyn :: Attributes+ _tlOsynsOfChildren :: (Map Identifier Attributes)+ _hdIdirectDep :: (Seq Edge)+ _hdIerrors :: (Seq Error)+ _hdIgathAltAttrs :: ([AltAttr])+ _hdIgathRules :: (Seq CRule)+ _hdIinstDep :: (Seq Edge)+ _hdIinstVars :: ([Identifier])+ _hdIlocVars :: ([Identifier])+ _hdInAutoRules :: Int+ _hdInExplicitRules :: Int+ _tlIdirectDep :: (Seq Edge)+ _tlIerrors :: (Seq Error)+ _tlIgathAltAttrs :: ([AltAttr])+ _tlIgathRules :: (Seq CRule)+ _tlIinstDep :: (Seq Edge)+ _tlIinstVars :: ([Identifier])+ _tlIlocVars :: ([Identifier])+ _tlInAutoRules :: Int+ _tlInExplicitRules :: Int+ -- use rule "src-ag/Order.ag"(line 268, column 33)+ _lhsOdirectDep =+ ({-# LINE 268 "src-ag/Order.ag" #-}+ _hdIdirectDep Seq.>< _tlIdirectDep+ {-# LINE 5194 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 85, column 70)+ _lhsOerrors =+ ({-# LINE 85 "src-ag/Order.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 5200 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 171, column 68)+ _lhsOgathAltAttrs =+ ({-# LINE 171 "src-ag/Order.ag" #-}+ _hdIgathAltAttrs ++ _tlIgathAltAttrs+ {-# LINE 5206 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 207, column 23)+ _lhsOgathRules =+ ({-# LINE 207 "src-ag/Order.ag" #-}+ _hdIgathRules Seq.>< _tlIgathRules+ {-# LINE 5212 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 311, column 31)+ _lhsOinstDep =+ ({-# LINE 311 "src-ag/Order.ag" #-}+ _hdIinstDep Seq.>< _tlIinstDep+ {-# LINE 5218 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 678, column 86)+ _lhsOinstVars =+ ({-# LINE 678 "src-ag/Order.ag" #-}+ _hdIinstVars ++ _tlIinstVars+ {-# LINE 5224 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 678, column 48)+ _lhsOlocVars =+ ({-# LINE 678 "src-ag/Order.ag" #-}+ _hdIlocVars ++ _tlIlocVars+ {-# LINE 5230 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 62, column 105)+ _lhsOnAutoRules =+ ({-# LINE 62 "src-ag/Order.ag" #-}+ _hdInAutoRules + _tlInAutoRules+ {-# LINE 5236 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 62, column 105)+ _lhsOnExplicitRules =+ ({-# LINE 62 "src-ag/Order.ag" #-}+ _hdInExplicitRules + _tlInExplicitRules+ {-# LINE 5242 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOallTypeSigs =+ ({-# LINE 534 "src-ag/Order.ag" #-}+ _lhsIallTypeSigs+ {-# LINE 5248 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOallfields =+ ({-# LINE 655 "src-ag/Order.ag" #-}+ _lhsIallfields+ {-# LINE 5254 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOallnts =+ ({-# LINE 648 "src-ag/Order.ag" #-}+ _lhsIallnts+ {-# LINE 5260 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOaltAttrs =+ ({-# LINE 187 "src-ag/Order.ag" #-}+ _lhsIaltAttrs+ {-# LINE 5266 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOattrs =+ ({-# LINE 655 "src-ag/Order.ag" #-}+ _lhsIattrs+ {-# LINE 5272 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOchildInhs =+ ({-# LINE 200 "src-ag/Order.ag" #-}+ _lhsIchildInhs+ {-# LINE 5278 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOchildNts =+ ({-# LINE 199 "src-ag/Order.ag" #-}+ _lhsIchildNts+ {-# LINE 5284 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOcon =+ ({-# LINE 91 "src-ag/Order.ag" #-}+ _lhsIcon+ {-# LINE 5290 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOinh =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIinh+ {-# LINE 5296 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOinhsOfChildren =+ ({-# LINE 338 "src-ag/Order.ag" #-}+ _lhsIinhsOfChildren+ {-# LINE 5302 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOmergeMap =+ ({-# LINE 361 "src-ag/Order.ag" #-}+ _lhsImergeMap+ {-# LINE 5308 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOnt =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsInt+ {-# LINE 5314 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_case =+ ({-# LINE 118 "src-ag/Order.ag" #-}+ _lhsIo_case+ {-# LINE 5320 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_cata =+ ({-# LINE 112 "src-ag/Order.ag" #-}+ _lhsIo_cata+ {-# LINE 5326 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_dovisit =+ ({-# LINE 117 "src-ag/Order.ag" #-}+ _lhsIo_dovisit+ {-# LINE 5332 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_newtypes =+ ({-# LINE 111 "src-ag/Order.ag" #-}+ _lhsIo_newtypes+ {-# LINE 5338 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_rename =+ ({-# LINE 115 "src-ag/Order.ag" #-}+ _lhsIo_rename+ {-# LINE 5344 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_sem =+ ({-# LINE 114 "src-ag/Order.ag" #-}+ _lhsIo_sem+ {-# LINE 5350 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_sig =+ ({-# LINE 113 "src-ag/Order.ag" #-}+ _lhsIo_sig+ {-# LINE 5356 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOo_wantvisit =+ ({-# LINE 116 "src-ag/Order.ag" #-}+ _lhsIo_wantvisit+ {-# LINE 5362 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOprefix =+ ({-# LINE 119 "src-ag/Order.ag" #-}+ _lhsIprefix+ {-# LINE 5368 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOsyn =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIsyn+ {-# LINE 5374 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOsynsOfChildren =+ ({-# LINE 338 "src-ag/Order.ag" #-}+ _lhsIsynsOfChildren+ {-# LINE 5380 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOallTypeSigs =+ ({-# LINE 534 "src-ag/Order.ag" #-}+ _lhsIallTypeSigs+ {-# LINE 5386 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOallfields =+ ({-# LINE 655 "src-ag/Order.ag" #-}+ _lhsIallfields+ {-# LINE 5392 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOallnts =+ ({-# LINE 648 "src-ag/Order.ag" #-}+ _lhsIallnts+ {-# LINE 5398 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOaltAttrs =+ ({-# LINE 187 "src-ag/Order.ag" #-}+ _lhsIaltAttrs+ {-# LINE 5404 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOattrs =+ ({-# LINE 655 "src-ag/Order.ag" #-}+ _lhsIattrs+ {-# LINE 5410 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOchildInhs =+ ({-# LINE 200 "src-ag/Order.ag" #-}+ _lhsIchildInhs+ {-# LINE 5416 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOchildNts =+ ({-# LINE 199 "src-ag/Order.ag" #-}+ _lhsIchildNts+ {-# LINE 5422 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOcon =+ ({-# LINE 91 "src-ag/Order.ag" #-}+ _lhsIcon+ {-# LINE 5428 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOinh =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIinh+ {-# LINE 5434 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOinhsOfChildren =+ ({-# LINE 338 "src-ag/Order.ag" #-}+ _lhsIinhsOfChildren+ {-# LINE 5440 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOmergeMap =+ ({-# LINE 361 "src-ag/Order.ag" #-}+ _lhsImergeMap+ {-# LINE 5446 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOnt =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsInt+ {-# LINE 5452 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_case =+ ({-# LINE 118 "src-ag/Order.ag" #-}+ _lhsIo_case+ {-# LINE 5458 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_cata =+ ({-# LINE 112 "src-ag/Order.ag" #-}+ _lhsIo_cata+ {-# LINE 5464 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_dovisit =+ ({-# LINE 117 "src-ag/Order.ag" #-}+ _lhsIo_dovisit+ {-# LINE 5470 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_newtypes =+ ({-# LINE 111 "src-ag/Order.ag" #-}+ _lhsIo_newtypes+ {-# LINE 5476 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_rename =+ ({-# LINE 115 "src-ag/Order.ag" #-}+ _lhsIo_rename+ {-# LINE 5482 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_sem =+ ({-# LINE 114 "src-ag/Order.ag" #-}+ _lhsIo_sem+ {-# LINE 5488 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_sig =+ ({-# LINE 113 "src-ag/Order.ag" #-}+ _lhsIo_sig+ {-# LINE 5494 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOo_wantvisit =+ ({-# LINE 116 "src-ag/Order.ag" #-}+ _lhsIo_wantvisit+ {-# LINE 5500 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOprefix =+ ({-# LINE 119 "src-ag/Order.ag" #-}+ _lhsIprefix+ {-# LINE 5506 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOsyn =+ ({-# LINE 90 "src-ag/Order.ag" #-}+ _lhsIsyn+ {-# LINE 5512 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _tlOsynsOfChildren =+ ({-# LINE 338 "src-ag/Order.ag" #-}+ _lhsIsynsOfChildren+ {-# LINE 5518 "dist/build/Order" #-}+ )+ ( _hdIdirectDep,_hdIerrors,_hdIgathAltAttrs,_hdIgathRules,_hdIinstDep,_hdIinstVars,_hdIlocVars,_hdInAutoRules,_hdInExplicitRules) =+ hd_ _hdOallTypeSigs _hdOallfields _hdOallnts _hdOaltAttrs _hdOattrs _hdOchildInhs _hdOchildNts _hdOcon _hdOinh _hdOinhsOfChildren _hdOmergeMap _hdOnt _hdOo_case _hdOo_cata _hdOo_dovisit _hdOo_newtypes _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_wantvisit _hdOprefix _hdOsyn _hdOsynsOfChildren+ ( _tlIdirectDep,_tlIerrors,_tlIgathAltAttrs,_tlIgathRules,_tlIinstDep,_tlIinstVars,_tlIlocVars,_tlInAutoRules,_tlInExplicitRules) =+ tl_ _tlOallTypeSigs _tlOallfields _tlOallnts _tlOaltAttrs _tlOattrs _tlOchildInhs _tlOchildNts _tlOcon _tlOinh _tlOinhsOfChildren _tlOmergeMap _tlOnt _tlOo_case _tlOo_cata _tlOo_dovisit _tlOo_newtypes _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_wantvisit _tlOprefix _tlOsyn _tlOsynsOfChildren+ ___node =+ (Syn_Rules _lhsOdirectDep _lhsOerrors _lhsOgathAltAttrs _lhsOgathRules _lhsOinstDep _lhsOinstVars _lhsOlocVars _lhsOnAutoRules _lhsOnExplicitRules)+ in ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars,_lhsOnAutoRules,_lhsOnExplicitRules))))+sem_Rules_Nil :: T_Rules+sem_Rules_Nil =+ (T_Rules (\ _lhsIallTypeSigs+ _lhsIallfields+ _lhsIallnts+ _lhsIaltAttrs+ _lhsIattrs+ _lhsIchildInhs+ _lhsIchildNts+ _lhsIcon+ _lhsIinh+ _lhsIinhsOfChildren+ _lhsImergeMap+ _lhsInt+ _lhsIo_case+ _lhsIo_cata+ _lhsIo_dovisit+ _lhsIo_newtypes+ _lhsIo_rename+ _lhsIo_sem+ _lhsIo_sig+ _lhsIo_wantvisit+ _lhsIprefix+ _lhsIsyn+ _lhsIsynsOfChildren ->+ (let _lhsOdirectDep :: (Seq Edge)+ _lhsOerrors :: (Seq Error)+ _lhsOgathAltAttrs :: ([AltAttr])+ _lhsOgathRules :: (Seq CRule)+ _lhsOinstDep :: (Seq Edge)+ _lhsOinstVars :: ([Identifier])+ _lhsOlocVars :: ([Identifier])+ _lhsOnAutoRules :: Int+ _lhsOnExplicitRules :: Int+ -- use rule "src-ag/Order.ag"(line 268, column 33)+ _lhsOdirectDep =+ ({-# LINE 268 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 5565 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 85, column 70)+ _lhsOerrors =+ ({-# LINE 85 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 5571 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 171, column 68)+ _lhsOgathAltAttrs =+ ({-# LINE 171 "src-ag/Order.ag" #-}+ []+ {-# LINE 5577 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 207, column 23)+ _lhsOgathRules =+ ({-# LINE 207 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 5583 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 311, column 31)+ _lhsOinstDep =+ ({-# LINE 311 "src-ag/Order.ag" #-}+ Seq.empty+ {-# LINE 5589 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 678, column 86)+ _lhsOinstVars =+ ({-# LINE 678 "src-ag/Order.ag" #-}+ []+ {-# LINE 5595 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 678, column 48)+ _lhsOlocVars =+ ({-# LINE 678 "src-ag/Order.ag" #-}+ []+ {-# LINE 5601 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 62, column 105)+ _lhsOnAutoRules =+ ({-# LINE 62 "src-ag/Order.ag" #-}+ 0+ {-# LINE 5607 "dist/build/Order" #-}+ )+ -- use rule "src-ag/Order.ag"(line 62, column 105)+ _lhsOnExplicitRules =+ ({-# LINE 62 "src-ag/Order.ag" #-}+ 0+ {-# LINE 5613 "dist/build/Order" #-}+ )+ ___node =+ (Syn_Rules _lhsOdirectDep _lhsOerrors _lhsOgathAltAttrs _lhsOgathRules _lhsOinstDep _lhsOinstVars _lhsOlocVars _lhsOnAutoRules _lhsOnExplicitRules)+ in ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars,_lhsOnAutoRules,_lhsOnExplicitRules))))+-- TypeSig -----------------------------------------------------+{-+ visit 0:+ chained attribute:+ typeSigs : Map Identifier Type+ alternatives:+ alternative TypeSig:+ child name : {Identifier}+ child tp : {Type}+-}+-- cata+sem_TypeSig :: TypeSig ->+ T_TypeSig+sem_TypeSig (TypeSig _name _tp) =+ (sem_TypeSig_TypeSig _name _tp)+-- semantic domain+newtype T_TypeSig = T_TypeSig ((Map Identifier Type) ->+ ( (Map Identifier Type)))+data Inh_TypeSig = Inh_TypeSig {typeSigs_Inh_TypeSig :: !((Map Identifier Type))}+data Syn_TypeSig = Syn_TypeSig {typeSigs_Syn_TypeSig :: !((Map Identifier Type))}+wrap_TypeSig :: T_TypeSig ->+ Inh_TypeSig ->+ Syn_TypeSig+wrap_TypeSig (T_TypeSig sem) (Inh_TypeSig _lhsItypeSigs) =+ (let ( _lhsOtypeSigs) = sem _lhsItypeSigs+ in (Syn_TypeSig _lhsOtypeSigs))+sem_TypeSig_TypeSig :: Identifier ->+ Type ->+ T_TypeSig+sem_TypeSig_TypeSig name_ tp_ =+ (T_TypeSig (\ _lhsItypeSigs ->+ (let _lhsOtypeSigs :: (Map Identifier Type)+ -- "src-ag/Order.ag"(line 532, column 13)+ _lhsOtypeSigs =+ ({-# LINE 532 "src-ag/Order.ag" #-}+ Map.insert name_ tp_ _lhsItypeSigs+ {-# LINE 5654 "dist/build/Order" #-}+ )+ ___node =+ (Syn_TypeSig _lhsOtypeSigs)+ in ( _lhsOtypeSigs))))+-- TypeSigs ----------------------------------------------------+{-+ visit 0:+ chained attribute:+ typeSigs : Map Identifier Type+ alternatives:+ alternative Cons:+ child hd : TypeSig + child tl : TypeSigs + alternative Nil:+-}+-- cata+sem_TypeSigs :: TypeSigs ->+ T_TypeSigs+sem_TypeSigs list =+ (Prelude.foldr sem_TypeSigs_Cons sem_TypeSigs_Nil (Prelude.map sem_TypeSig list))+-- semantic domain+newtype T_TypeSigs = T_TypeSigs ((Map Identifier Type) ->+ ( (Map Identifier Type)))+data Inh_TypeSigs = Inh_TypeSigs {typeSigs_Inh_TypeSigs :: !((Map Identifier Type))}+data Syn_TypeSigs = Syn_TypeSigs {typeSigs_Syn_TypeSigs :: !((Map Identifier Type))}+wrap_TypeSigs :: T_TypeSigs ->+ Inh_TypeSigs ->+ Syn_TypeSigs+wrap_TypeSigs (T_TypeSigs sem) (Inh_TypeSigs _lhsItypeSigs) =+ (let ( _lhsOtypeSigs) = sem _lhsItypeSigs+ in (Syn_TypeSigs _lhsOtypeSigs))+sem_TypeSigs_Cons :: T_TypeSig ->+ T_TypeSigs ->+ T_TypeSigs+sem_TypeSigs_Cons (T_TypeSig hd_) (T_TypeSigs tl_) =+ (T_TypeSigs (\ _lhsItypeSigs ->+ (let _lhsOtypeSigs :: (Map Identifier Type)+ _hdOtypeSigs :: (Map Identifier Type)+ _tlOtypeSigs :: (Map Identifier Type)+ _hdItypeSigs :: (Map Identifier Type)+ _tlItypeSigs :: (Map Identifier Type)+ -- copy rule (up)+ _lhsOtypeSigs =+ ({-# LINE 528 "src-ag/Order.ag" #-}+ _tlItypeSigs+ {-# LINE 5700 "dist/build/Order" #-}+ )+ -- copy rule (down)+ _hdOtypeSigs =+ ({-# LINE 528 "src-ag/Order.ag" #-}+ _lhsItypeSigs+ {-# LINE 5706 "dist/build/Order" #-}+ )+ -- copy rule (chain)+ _tlOtypeSigs =+ ({-# LINE 528 "src-ag/Order.ag" #-}+ _hdItypeSigs+ {-# LINE 5712 "dist/build/Order" #-}+ )+ ( _hdItypeSigs) =+ hd_ _hdOtypeSigs+ ( _tlItypeSigs) =+ tl_ _tlOtypeSigs+ ___node =+ (Syn_TypeSigs _lhsOtypeSigs)+ in ( _lhsOtypeSigs))))+sem_TypeSigs_Nil :: T_TypeSigs+sem_TypeSigs_Nil =+ (T_TypeSigs (\ _lhsItypeSigs ->+ (let _lhsOtypeSigs :: (Map Identifier Type)+ -- copy rule (chain)+ _lhsOtypeSigs =+ ({-# LINE 528 "src-ag/Order.ag" #-}+ _lhsItypeSigs+ {-# LINE 5729 "dist/build/Order" #-}+ )+ ___node =+ (Syn_TypeSigs _lhsOtypeSigs) in ( _lhsOtypeSigs))))
src-derived/PrintCode.hs view
@@ -194,3926 +194,4074 @@ {-# LINE 195 "dist/build/PrintCode" #-} )) of { !_lhsOpps ->- ( _lhsOpps) }) }) }) }) }) }) }) }) }) })))--- CaseAlts -----------------------------------------------------{-- visit 0:- inherited attributes:- nested : Bool- options : Options- outputfile : String- synthesized attribute:- pps : PP_Docs- alternatives:- alternative Cons:- child hd : CaseAlt - child tl : CaseAlts - alternative Nil:--}--- cata-sem_CaseAlts :: CaseAlts ->- T_CaseAlts-sem_CaseAlts !list =- (Prelude.foldr sem_CaseAlts_Cons sem_CaseAlts_Nil (Prelude.map sem_CaseAlt list))--- semantic domain-newtype T_CaseAlts = T_CaseAlts (Bool ->- Options ->- String ->- ( PP_Docs))-data Inh_CaseAlts = Inh_CaseAlts {nested_Inh_CaseAlts :: !(Bool),options_Inh_CaseAlts :: !(Options),outputfile_Inh_CaseAlts :: !(String)}-data Syn_CaseAlts = Syn_CaseAlts {pps_Syn_CaseAlts :: !(PP_Docs)}-wrap_CaseAlts :: T_CaseAlts ->- Inh_CaseAlts ->- Syn_CaseAlts-wrap_CaseAlts !(T_CaseAlts sem) !(Inh_CaseAlts _lhsInested _lhsIoptions _lhsIoutputfile) =- (let ( !_lhsOpps) = sem _lhsInested _lhsIoptions _lhsIoutputfile- in (Syn_CaseAlts _lhsOpps))-sem_CaseAlts_Cons :: T_CaseAlt ->- T_CaseAlts ->- T_CaseAlts-sem_CaseAlts_Cons !(T_CaseAlt hd_) !(T_CaseAlts tl_) =- (T_CaseAlts (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 241 "dist/build/PrintCode" #-}- )) of- { !_tlOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 246 "dist/build/PrintCode" #-}- )) of- { !_tlOoptions ->- (case (({-# LINE 56 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 251 "dist/build/PrintCode" #-}- )) of- { !_tlOnested ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 256 "dist/build/PrintCode" #-}- )) of- { !_hdOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 261 "dist/build/PrintCode" #-}- )) of- { !_hdOoptions ->- (case (({-# LINE 56 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 266 "dist/build/PrintCode" #-}- )) of- { !_hdOnested ->- (case (tl_ _tlOnested _tlOoptions _tlOoutputfile) of- { ( !_tlIpps) ->- (case (hd_ _hdOnested _hdOoptions _hdOoutputfile) of- { ( !_hdIpps) ->- (case (({-# LINE 69 "src-ag/PrintCode.ag" #-}- _hdIpps ++ _tlIpps- {-# LINE 275 "dist/build/PrintCode" #-}- )) of- { !_lhsOpps ->- ( _lhsOpps) }) }) }) }) }) }) }) }) })))-sem_CaseAlts_Nil :: T_CaseAlts-sem_CaseAlts_Nil =- (T_CaseAlts (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 70 "src-ag/PrintCode.ag" #-}- []- {-# LINE 286 "dist/build/PrintCode" #-}- )) of- { !_lhsOpps ->- ( _lhsOpps) })))--- Chunk --------------------------------------------------------{-- visit 0:- inherited attributes:- importBlocks : PP_Doc- isDeclOfLet : Bool- mainFile : String- mainName : String- moduleHeader : String -> String -> String -> Bool -> String- nested : Bool- options : Options- optionsLine : String- pragmaBlocks : String- textBlockMap : Map BlockInfo PP_Doc- textBlocks : PP_Doc- synthesized attributes:- appendCommon : [[PP_Doc]]- appendMain : [[PP_Doc]]- genSems : IO ()- imports : [String]- pps : PP_Docs- alternatives:- alternative Chunk:- child name : {String}- child comment : Decl - child info : Decls - child dataDef : Decls - child cataFun : Decls - child semDom : Decls - child semWrapper : Decls - child semFunctions : Decls - child semNames : {[String]}- visit 0:- local outputfile : _- local exports : _--}--- cata-sem_Chunk :: Chunk ->- T_Chunk-sem_Chunk !(Chunk _name _comment _info _dataDef _cataFun _semDom _semWrapper _semFunctions _semNames) =- (sem_Chunk_Chunk _name (sem_Decl _comment) (sem_Decls _info) (sem_Decls _dataDef) (sem_Decls _cataFun) (sem_Decls _semDom) (sem_Decls _semWrapper) (sem_Decls _semFunctions) _semNames)--- semantic domain-newtype T_Chunk = T_Chunk (PP_Doc ->- Bool ->- String ->- String ->- (String -> String -> String -> Bool -> String) ->- Bool ->- Options ->- String ->- String ->- (Map BlockInfo PP_Doc) ->- PP_Doc ->- ( ([[PP_Doc]]),([[PP_Doc]]),(IO ()),([String]),PP_Docs))-data Inh_Chunk = Inh_Chunk {importBlocks_Inh_Chunk :: !(PP_Doc),isDeclOfLet_Inh_Chunk :: !(Bool),mainFile_Inh_Chunk :: !(String),mainName_Inh_Chunk :: !(String),moduleHeader_Inh_Chunk :: !((String -> String -> String -> Bool -> String)),nested_Inh_Chunk :: !(Bool),options_Inh_Chunk :: !(Options),optionsLine_Inh_Chunk :: !(String),pragmaBlocks_Inh_Chunk :: !(String),textBlockMap_Inh_Chunk :: !((Map BlockInfo PP_Doc)),textBlocks_Inh_Chunk :: !(PP_Doc)}-data Syn_Chunk = Syn_Chunk {appendCommon_Syn_Chunk :: !(([[PP_Doc]])),appendMain_Syn_Chunk :: !(([[PP_Doc]])),genSems_Syn_Chunk :: !((IO ())),imports_Syn_Chunk :: !(([String])),pps_Syn_Chunk :: !(PP_Docs)}-wrap_Chunk :: T_Chunk ->- Inh_Chunk ->- Syn_Chunk-wrap_Chunk !(T_Chunk sem) !(Inh_Chunk _lhsIimportBlocks _lhsIisDeclOfLet _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInested _lhsIoptions _lhsIoptionsLine _lhsIpragmaBlocks _lhsItextBlockMap _lhsItextBlocks) =- (let ( !_lhsOappendCommon,!_lhsOappendMain,!_lhsOgenSems,!_lhsOimports,!_lhsOpps) = sem _lhsIimportBlocks _lhsIisDeclOfLet _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInested _lhsIoptions _lhsIoptionsLine _lhsIpragmaBlocks _lhsItextBlockMap _lhsItextBlocks- in (Syn_Chunk _lhsOappendCommon _lhsOappendMain _lhsOgenSems _lhsOimports _lhsOpps))-sem_Chunk_Chunk :: String ->- T_Decl ->- T_Decls ->- T_Decls ->- T_Decls ->- T_Decls ->- T_Decls ->- T_Decls ->- ([String]) ->- T_Chunk-sem_Chunk_Chunk !name_ !(T_Decl comment_) !(T_Decls info_) !(T_Decls dataDef_) !(T_Decls cataFun_) !(T_Decls semDom_) !(T_Decls semWrapper_) !(T_Decls semFunctions_) !semNames_ =- (T_Chunk (\ (!_lhsIimportBlocks)- (!_lhsIisDeclOfLet)- (!_lhsImainFile)- (!_lhsImainName)- (!_lhsImoduleHeader)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoptionsLine)- (!_lhsIpragmaBlocks)- (!_lhsItextBlockMap)- (!_lhsItextBlocks) ->- (case (({-# LINE 44 "src-ag/PrintCode.ag" #-}- if sepSemMods _lhsIoptions- then replaceBaseName _lhsImainFile (takeBaseName _lhsImainFile ++ "_" ++ name_)- else _lhsImainFile- {-# LINE 378 "dist/build/PrintCode" #-}- )) of- { !_outputfile ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _outputfile- {-# LINE 383 "dist/build/PrintCode" #-}- )) of- { !_semWrapperOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 388 "dist/build/PrintCode" #-}- )) of- { !_semWrapperOoptions ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 393 "dist/build/PrintCode" #-}- )) of- { !_semWrapperOnested ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 398 "dist/build/PrintCode" #-}- )) of- { !_semWrapperOisDeclOfLet ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _outputfile- {-# LINE 403 "dist/build/PrintCode" #-}- )) of- { !_semDomOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 408 "dist/build/PrintCode" #-}- )) of- { !_semDomOoptions ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 413 "dist/build/PrintCode" #-}- )) of- { !_semDomOnested ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 418 "dist/build/PrintCode" #-}- )) of- { !_semDomOisDeclOfLet ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _outputfile- {-# LINE 423 "dist/build/PrintCode" #-}- )) of- { !_dataDefOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 428 "dist/build/PrintCode" #-}- )) of- { !_dataDefOoptions ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 433 "dist/build/PrintCode" #-}- )) of- { !_dataDefOnested ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 438 "dist/build/PrintCode" #-}- )) of- { !_dataDefOisDeclOfLet ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _outputfile- {-# LINE 443 "dist/build/PrintCode" #-}- )) of- { !_commentOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 448 "dist/build/PrintCode" #-}- )) of- { !_commentOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 453 "dist/build/PrintCode" #-}- )) of- { !_commentOnested ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 458 "dist/build/PrintCode" #-}- )) of- { !_commentOisDeclOfLet ->- (case (semWrapper_ _semWrapperOisDeclOfLet _semWrapperOnested _semWrapperOoptions _semWrapperOoutputfile) of- { ( !_semWrapperIpps) ->- (case (semDom_ _semDomOisDeclOfLet _semDomOnested _semDomOoptions _semDomOoutputfile) of- { ( !_semDomIpps) ->- (case (dataDef_ _dataDefOisDeclOfLet _dataDefOnested _dataDefOoptions _dataDefOoutputfile) of- { ( !_dataDefIpps) ->- (case (comment_ _commentOisDeclOfLet _commentOnested _commentOoptions _commentOoutputfile) of- { ( !_commentIpp) ->- (case (({-# LINE 487 "src-ag/PrintCode.ag" #-}- [ [_commentIpp]- , _dataDefIpps- , _semDomIpps- , if reference _lhsIoptions then _semWrapperIpps else []- ]- {-# LINE 475 "dist/build/PrintCode" #-}- )) of- { !_lhsOappendCommon ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _outputfile- {-# LINE 480 "dist/build/PrintCode" #-}- )) of- { !_cataFunOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 485 "dist/build/PrintCode" #-}- )) of- { !_cataFunOoptions ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 490 "dist/build/PrintCode" #-}- )) of- { !_cataFunOnested ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 495 "dist/build/PrintCode" #-}- )) of- { !_cataFunOisDeclOfLet ->- (case (cataFun_ _cataFunOisDeclOfLet _cataFunOnested _cataFunOoptions _cataFunOoutputfile) of- { ( !_cataFunIpps) ->- (case (({-# LINE 493 "src-ag/PrintCode.ag" #-}- [ [_commentIpp]- , _cataFunIpps- , if reference _lhsIoptions then [] else _semWrapperIpps- ]- {-# LINE 505 "dist/build/PrintCode" #-}- )) of- { !_lhsOappendMain ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _outputfile- {-# LINE 510 "dist/build/PrintCode" #-}- )) of- { !_semFunctionsOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 515 "dist/build/PrintCode" #-}- )) of- { !_semFunctionsOoptions ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 520 "dist/build/PrintCode" #-}- )) of- { !_semFunctionsOnested ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 525 "dist/build/PrintCode" #-}- )) of- { !_semFunctionsOisDeclOfLet ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _outputfile- {-# LINE 530 "dist/build/PrintCode" #-}- )) of- { !_infoOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 535 "dist/build/PrintCode" #-}- )) of- { !_infoOoptions ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 540 "dist/build/PrintCode" #-}- )) of- { !_infoOnested ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 545 "dist/build/PrintCode" #-}- )) of- { !_infoOisDeclOfLet ->- (case (({-# LINE 519 "src-ag/PrintCode.ag" #-}- concat $ intersperse "," semNames_- {-# LINE 550 "dist/build/PrintCode" #-}- )) of- { !_exports ->- (case (semFunctions_ _semFunctionsOisDeclOfLet _semFunctionsOnested _semFunctionsOoptions _semFunctionsOoutputfile) of- { ( !_semFunctionsIpps) ->- (case (info_ _infoOisDeclOfLet _infoOnested _infoOoptions _infoOoutputfile) of- { ( !_infoIpps) ->- (case (({-# LINE 503 "src-ag/PrintCode.ag" #-}- writeModule _outputfile- [ pp $ _lhsIpragmaBlocks- , pp $ Map.findWithDefault empty (BlockPragma, Just $ identifier name_) _lhsItextBlockMap- , pp $ _lhsIoptionsLine- , pp $ _lhsImoduleHeader _lhsImainName ("_" ++ name_) _exports True- , pp $ ("import " ++ _lhsImainName ++ "_common\n")- , pp $ Map.findWithDefault empty (BlockImport, Just $ identifier name_) _lhsItextBlockMap- , _commentIpp- , vlist_sep "" _infoIpps- , vlist_sep "" _semFunctionsIpps- , Map.findWithDefault empty (BlockOther, Just $ identifier name_) _lhsItextBlockMap- ]- {-# LINE 570 "dist/build/PrintCode" #-}- )) of- { !_lhsOgenSems ->- (case (({-# LINE 481 "src-ag/PrintCode.ag" #-}- ["import " ++ _lhsImainName ++ "_" ++ name_ ++ "\n"]- {-# LINE 575 "dist/build/PrintCode" #-}- )) of- { !_lhsOimports ->- (case (({-# LINE 97 "src-ag/PrintCode.ag" #-}- _commentIpp- : _infoIpps- ++ _dataDefIpps- ++ _cataFunIpps- ++ _semDomIpps- ++ _semWrapperIpps- ++ _semFunctionsIpps- ++ [Map.findWithDefault empty (BlockOther, Just $ identifier name_) _lhsItextBlockMap]- {-# LINE 587 "dist/build/PrintCode" #-}- )) of- { !_lhsOpps ->- ( _lhsOappendCommon,_lhsOappendMain,_lhsOgenSems,_lhsOimports,_lhsOpps) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))--- Chunks -------------------------------------------------------{-- visit 0:- inherited attributes:- importBlocks : PP_Doc- isDeclOfLet : Bool- mainFile : String- mainName : String- moduleHeader : String -> String -> String -> Bool -> String- nested : Bool- options : Options- optionsLine : String- pragmaBlocks : String- textBlockMap : Map BlockInfo PP_Doc- textBlocks : PP_Doc- synthesized attributes:- appendCommon : [[PP_Doc]]- appendMain : [[PP_Doc]]- genSems : IO ()- imports : [String]- pps : PP_Docs- alternatives:- alternative Cons:- child hd : Chunk - child tl : Chunks - alternative Nil:--}--- cata-sem_Chunks :: Chunks ->- T_Chunks-sem_Chunks !list =- (Prelude.foldr sem_Chunks_Cons sem_Chunks_Nil (Prelude.map sem_Chunk list))--- semantic domain-newtype T_Chunks = T_Chunks (PP_Doc ->- Bool ->- String ->- String ->- (String -> String -> String -> Bool -> String) ->- Bool ->- Options ->- String ->- String ->- (Map BlockInfo PP_Doc) ->- PP_Doc ->- ( ([[PP_Doc]]),([[PP_Doc]]),(IO ()),([String]),PP_Docs))-data Inh_Chunks = Inh_Chunks {importBlocks_Inh_Chunks :: !(PP_Doc),isDeclOfLet_Inh_Chunks :: !(Bool),mainFile_Inh_Chunks :: !(String),mainName_Inh_Chunks :: !(String),moduleHeader_Inh_Chunks :: !((String -> String -> String -> Bool -> String)),nested_Inh_Chunks :: !(Bool),options_Inh_Chunks :: !(Options),optionsLine_Inh_Chunks :: !(String),pragmaBlocks_Inh_Chunks :: !(String),textBlockMap_Inh_Chunks :: !((Map BlockInfo PP_Doc)),textBlocks_Inh_Chunks :: !(PP_Doc)}-data Syn_Chunks = Syn_Chunks {appendCommon_Syn_Chunks :: !(([[PP_Doc]])),appendMain_Syn_Chunks :: !(([[PP_Doc]])),genSems_Syn_Chunks :: !((IO ())),imports_Syn_Chunks :: !(([String])),pps_Syn_Chunks :: !(PP_Docs)}-wrap_Chunks :: T_Chunks ->- Inh_Chunks ->- Syn_Chunks-wrap_Chunks !(T_Chunks sem) !(Inh_Chunks _lhsIimportBlocks _lhsIisDeclOfLet _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInested _lhsIoptions _lhsIoptionsLine _lhsIpragmaBlocks _lhsItextBlockMap _lhsItextBlocks) =- (let ( !_lhsOappendCommon,!_lhsOappendMain,!_lhsOgenSems,!_lhsOimports,!_lhsOpps) = sem _lhsIimportBlocks _lhsIisDeclOfLet _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInested _lhsIoptions _lhsIoptionsLine _lhsIpragmaBlocks _lhsItextBlockMap _lhsItextBlocks- in (Syn_Chunks _lhsOappendCommon _lhsOappendMain _lhsOgenSems _lhsOimports _lhsOpps))-sem_Chunks_Cons :: T_Chunk ->- T_Chunks ->- T_Chunks-sem_Chunks_Cons !(T_Chunk hd_) !(T_Chunks tl_) =- (T_Chunks (\ (!_lhsIimportBlocks)- (!_lhsIisDeclOfLet)- (!_lhsImainFile)- (!_lhsImainName)- (!_lhsImoduleHeader)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoptionsLine)- (!_lhsIpragmaBlocks)- (!_lhsItextBlockMap)- (!_lhsItextBlocks) ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 661 "dist/build/PrintCode" #-}- )) of- { !_tlOoptions ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 666 "dist/build/PrintCode" #-}- )) of- { !_tlOnested ->- (case (({-# LINE 437 "src-ag/PrintCode.ag" #-}- _lhsImainFile- {-# LINE 671 "dist/build/PrintCode" #-}- )) of- { !_tlOmainFile ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 676 "dist/build/PrintCode" #-}- )) of- { !_tlOisDeclOfLet ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 681 "dist/build/PrintCode" #-}- )) of- { !_hdOoptions ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 686 "dist/build/PrintCode" #-}- )) of- { !_hdOnested ->- (case (({-# LINE 437 "src-ag/PrintCode.ag" #-}- _lhsImainFile- {-# LINE 691 "dist/build/PrintCode" #-}- )) of- { !_hdOmainFile ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 696 "dist/build/PrintCode" #-}- )) of- { !_hdOisDeclOfLet ->- (case (({-# LINE 434 "src-ag/PrintCode.ag" #-}- _lhsItextBlocks- {-# LINE 701 "dist/build/PrintCode" #-}- )) of- { !_tlOtextBlocks ->- (case (({-# LINE 435 "src-ag/PrintCode.ag" #-}- _lhsItextBlockMap- {-# LINE 706 "dist/build/PrintCode" #-}- )) of- { !_tlOtextBlockMap ->- (case (({-# LINE 433 "src-ag/PrintCode.ag" #-}- _lhsIpragmaBlocks- {-# LINE 711 "dist/build/PrintCode" #-}- )) of- { !_tlOpragmaBlocks ->- (case (({-# LINE 436 "src-ag/PrintCode.ag" #-}- _lhsIoptionsLine- {-# LINE 716 "dist/build/PrintCode" #-}- )) of- { !_tlOoptionsLine ->- (case (({-# LINE 439 "src-ag/PrintCode.ag" #-}- _lhsImoduleHeader- {-# LINE 721 "dist/build/PrintCode" #-}- )) of- { !_tlOmoduleHeader ->- (case (({-# LINE 438 "src-ag/PrintCode.ag" #-}- _lhsImainName- {-# LINE 726 "dist/build/PrintCode" #-}- )) of- { !_tlOmainName ->- (case (({-# LINE 432 "src-ag/PrintCode.ag" #-}- _lhsIimportBlocks- {-# LINE 731 "dist/build/PrintCode" #-}- )) of- { !_tlOimportBlocks ->- (case (tl_ _tlOimportBlocks _tlOisDeclOfLet _tlOmainFile _tlOmainName _tlOmoduleHeader _tlOnested _tlOoptions _tlOoptionsLine _tlOpragmaBlocks _tlOtextBlockMap _tlOtextBlocks) of- { ( !_tlIappendCommon,!_tlIappendMain,!_tlIgenSems,!_tlIimports,!_tlIpps) ->- (case (({-# LINE 434 "src-ag/PrintCode.ag" #-}- _lhsItextBlocks- {-# LINE 738 "dist/build/PrintCode" #-}- )) of- { !_hdOtextBlocks ->- (case (({-# LINE 435 "src-ag/PrintCode.ag" #-}- _lhsItextBlockMap- {-# LINE 743 "dist/build/PrintCode" #-}- )) of- { !_hdOtextBlockMap ->- (case (({-# LINE 433 "src-ag/PrintCode.ag" #-}- _lhsIpragmaBlocks- {-# LINE 748 "dist/build/PrintCode" #-}- )) of- { !_hdOpragmaBlocks ->- (case (({-# LINE 436 "src-ag/PrintCode.ag" #-}- _lhsIoptionsLine- {-# LINE 753 "dist/build/PrintCode" #-}- )) of- { !_hdOoptionsLine ->- (case (({-# LINE 439 "src-ag/PrintCode.ag" #-}- _lhsImoduleHeader- {-# LINE 758 "dist/build/PrintCode" #-}- )) of- { !_hdOmoduleHeader ->- (case (({-# LINE 438 "src-ag/PrintCode.ag" #-}- _lhsImainName- {-# LINE 763 "dist/build/PrintCode" #-}- )) of- { !_hdOmainName ->- (case (({-# LINE 432 "src-ag/PrintCode.ag" #-}- _lhsIimportBlocks- {-# LINE 768 "dist/build/PrintCode" #-}- )) of- { !_hdOimportBlocks ->- (case (hd_ _hdOimportBlocks _hdOisDeclOfLet _hdOmainFile _hdOmainName _hdOmoduleHeader _hdOnested _hdOoptions _hdOoptionsLine _hdOpragmaBlocks _hdOtextBlockMap _hdOtextBlocks) of- { ( !_hdIappendCommon,!_hdIappendMain,!_hdIgenSems,!_hdIimports,!_hdIpps) ->- (case (({-# LINE 483 "src-ag/PrintCode.ag" #-}- _hdIappendCommon ++ _tlIappendCommon- {-# LINE 775 "dist/build/PrintCode" #-}- )) of- { !_lhsOappendCommon ->- (case (({-# LINE 483 "src-ag/PrintCode.ag" #-}- _hdIappendMain ++ _tlIappendMain- {-# LINE 780 "dist/build/PrintCode" #-}- )) of- { !_lhsOappendMain ->- (case (({-# LINE 499 "src-ag/PrintCode.ag" #-}- _hdIgenSems >> _tlIgenSems- {-# LINE 785 "dist/build/PrintCode" #-}- )) of- { !_lhsOgenSems ->- (case (({-# LINE 478 "src-ag/PrintCode.ag" #-}- _hdIimports ++ _tlIimports- {-# LINE 790 "dist/build/PrintCode" #-}- )) of- { !_lhsOimports ->- (case (({-# LINE 89 "src-ag/PrintCode.ag" #-}- _hdIpps ++ _tlIpps- {-# LINE 795 "dist/build/PrintCode" #-}- )) of- { !_lhsOpps ->- ( _lhsOappendCommon,_lhsOappendMain,_lhsOgenSems,_lhsOimports,_lhsOpps) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))-sem_Chunks_Nil :: T_Chunks-sem_Chunks_Nil =- (T_Chunks (\ (!_lhsIimportBlocks)- (!_lhsIisDeclOfLet)- (!_lhsImainFile)- (!_lhsImainName)- (!_lhsImoduleHeader)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoptionsLine)- (!_lhsIpragmaBlocks)- (!_lhsItextBlockMap)- (!_lhsItextBlocks) ->- (case (({-# LINE 483 "src-ag/PrintCode.ag" #-}- []- {-# LINE 814 "dist/build/PrintCode" #-}- )) of- { !_lhsOappendCommon ->- (case (({-# LINE 483 "src-ag/PrintCode.ag" #-}- []- {-# LINE 819 "dist/build/PrintCode" #-}- )) of- { !_lhsOappendMain ->- (case (({-# LINE 499 "src-ag/PrintCode.ag" #-}- return ()- {-# LINE 824 "dist/build/PrintCode" #-}- )) of- { !_lhsOgenSems ->- (case (({-# LINE 478 "src-ag/PrintCode.ag" #-}- []- {-# LINE 829 "dist/build/PrintCode" #-}- )) of- { !_lhsOimports ->- (case (({-# LINE 90 "src-ag/PrintCode.ag" #-}- []- {-# LINE 834 "dist/build/PrintCode" #-}- )) of- { !_lhsOpps ->- ( _lhsOappendCommon,_lhsOappendMain,_lhsOgenSems,_lhsOimports,_lhsOpps) }) }) }) }) })))--- DataAlt ------------------------------------------------------{-- visit 0:- inherited attributes:- nested : Bool- strictPre : PP_Doc- synthesized attribute:- pp : PP_Doc- alternatives:- alternative DataAlt:- child name : {String}- child args : Types - alternative Record:- child name : {String}- child args : NamedTypes --}--- cata-sem_DataAlt :: DataAlt ->- T_DataAlt-sem_DataAlt !(DataAlt _name _args) =- (sem_DataAlt_DataAlt _name (sem_Types _args))-sem_DataAlt !(Record _name _args) =- (sem_DataAlt_Record _name (sem_NamedTypes _args))--- semantic domain-newtype T_DataAlt = T_DataAlt (Bool ->- PP_Doc ->- ( PP_Doc))-data Inh_DataAlt = Inh_DataAlt {nested_Inh_DataAlt :: !(Bool),strictPre_Inh_DataAlt :: !(PP_Doc)}-data Syn_DataAlt = Syn_DataAlt {pp_Syn_DataAlt :: !(PP_Doc)}-wrap_DataAlt :: T_DataAlt ->- Inh_DataAlt ->- Syn_DataAlt-wrap_DataAlt !(T_DataAlt sem) !(Inh_DataAlt _lhsInested _lhsIstrictPre) =- (let ( !_lhsOpp) = sem _lhsInested _lhsIstrictPre- in (Syn_DataAlt _lhsOpp))-sem_DataAlt_DataAlt :: String ->- T_Types ->- T_DataAlt-sem_DataAlt_DataAlt !name_ !(T_Types args_) =- (T_DataAlt (\ (!_lhsInested)- (!_lhsIstrictPre) ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 881 "dist/build/PrintCode" #-}- )) of- { !_argsOnested ->- (case (args_ _argsOnested) of- { ( !_argsIpps) ->- (case (({-# LINE 222 "src-ag/PrintCode.ag" #-}- name_ >#< hv_sp (map ((_lhsIstrictPre >|<) . pp_parens) _argsIpps)- {-# LINE 888 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) })))-sem_DataAlt_Record :: String ->- T_NamedTypes ->- T_DataAlt-sem_DataAlt_Record !name_ !(T_NamedTypes args_) =- (T_DataAlt (\ (!_lhsInested)- (!_lhsIstrictPre) ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 900 "dist/build/PrintCode" #-}- )) of- { !_argsOnested ->- (case (args_ _argsOnested) of- { ( !_argsIpps) ->- (case (({-# LINE 223 "src-ag/PrintCode.ag" #-}- name_ >#< pp_block "{" "}" "," _argsIpps- {-# LINE 907 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) })))--- DataAlts -----------------------------------------------------{-- visit 0:- inherited attributes:- nested : Bool- strictPre : PP_Doc- synthesized attribute:- pps : PP_Docs- alternatives:- alternative Cons:- child hd : DataAlt - child tl : DataAlts - alternative Nil:--}--- cata-sem_DataAlts :: DataAlts ->- T_DataAlts-sem_DataAlts !list =- (Prelude.foldr sem_DataAlts_Cons sem_DataAlts_Nil (Prelude.map sem_DataAlt list))--- semantic domain-newtype T_DataAlts = T_DataAlts (Bool ->- PP_Doc ->- ( PP_Docs))-data Inh_DataAlts = Inh_DataAlts {nested_Inh_DataAlts :: !(Bool),strictPre_Inh_DataAlts :: !(PP_Doc)}-data Syn_DataAlts = Syn_DataAlts {pps_Syn_DataAlts :: !(PP_Docs)}-wrap_DataAlts :: T_DataAlts ->- Inh_DataAlts ->- Syn_DataAlts-wrap_DataAlts !(T_DataAlts sem) !(Inh_DataAlts _lhsInested _lhsIstrictPre) =- (let ( !_lhsOpps) = sem _lhsInested _lhsIstrictPre- in (Syn_DataAlts _lhsOpps))-sem_DataAlts_Cons :: T_DataAlt ->- T_DataAlts ->- T_DataAlts-sem_DataAlts_Cons !(T_DataAlt hd_) !(T_DataAlts tl_) =- (T_DataAlts (\ (!_lhsInested)- (!_lhsIstrictPre) ->- (case (({-# LINE 317 "src-ag/PrintCode.ag" #-}- _lhsIstrictPre- {-# LINE 950 "dist/build/PrintCode" #-}- )) of- { !_tlOstrictPre ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 955 "dist/build/PrintCode" #-}- )) of- { !_tlOnested ->- (case (({-# LINE 317 "src-ag/PrintCode.ag" #-}- _lhsIstrictPre- {-# LINE 960 "dist/build/PrintCode" #-}- )) of- { !_hdOstrictPre ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 965 "dist/build/PrintCode" #-}- )) of- { !_hdOnested ->- (case (tl_ _tlOnested _tlOstrictPre) of- { ( !_tlIpps) ->- (case (hd_ _hdOnested _hdOstrictPre) of- { ( !_hdIpp) ->- (case (({-# LINE 73 "src-ag/PrintCode.ag" #-}- _hdIpp : _tlIpps- {-# LINE 974 "dist/build/PrintCode" #-}- )) of- { !_lhsOpps ->- ( _lhsOpps) }) }) }) }) }) }) })))-sem_DataAlts_Nil :: T_DataAlts-sem_DataAlts_Nil =- (T_DataAlts (\ (!_lhsInested)- (!_lhsIstrictPre) ->- (case (({-# LINE 74 "src-ag/PrintCode.ag" #-}- []- {-# LINE 984 "dist/build/PrintCode" #-}- )) of- { !_lhsOpps ->- ( _lhsOpps) })))--- Decl ---------------------------------------------------------{-- visit 0:- inherited attributes:- isDeclOfLet : Bool- nested : Bool- options : Options- outputfile : String- synthesized attribute:- pp : PP_Doc- alternatives:- alternative Bind:- child left : Lhs - child rhs : Expr - alternative BindLet:- child left : Lhs - child rhs : Expr - alternative Comment:- child txt : {String}- alternative Data:- child name : {String}- child params : {[String]}- child alts : DataAlts - child strict : {Bool}- child derivings : {[String]}- alternative Decl:- child left : Lhs - child rhs : Expr - child binds : {Set String}- child uses : {Set String}- alternative EvalDecl:- child nt : {String}- child left : Lhs - child rhs : Expr - visit 0:- local strat : _- alternative NewType:- child name : {String}- child params : {[String]}- child con : {String}- child tp : Type - alternative PragmaDecl:- child txt : {String}- alternative Resume:- child monadic : {Bool}- child nt : {String}- child left : Lhs - child rhs : Expr - alternative TSig:- child name : {String}- child tp : Type - alternative Type:- child name : {String}- child params : {[String]}- child tp : Type --}--- cata-sem_Decl :: Decl ->- T_Decl-sem_Decl !(Bind _left _rhs) =- (sem_Decl_Bind (sem_Lhs _left) (sem_Expr _rhs))-sem_Decl !(BindLet _left _rhs) =- (sem_Decl_BindLet (sem_Lhs _left) (sem_Expr _rhs))-sem_Decl !(Comment _txt) =- (sem_Decl_Comment _txt)-sem_Decl !(Data _name _params _alts _strict _derivings) =- (sem_Decl_Data _name _params (sem_DataAlts _alts) _strict _derivings)-sem_Decl !(Decl _left _rhs _binds _uses) =- (sem_Decl_Decl (sem_Lhs _left) (sem_Expr _rhs) _binds _uses)-sem_Decl !(EvalDecl _nt _left _rhs) =- (sem_Decl_EvalDecl _nt (sem_Lhs _left) (sem_Expr _rhs))-sem_Decl !(NewType _name _params _con _tp) =- (sem_Decl_NewType _name _params _con (sem_Type _tp))-sem_Decl !(PragmaDecl _txt) =- (sem_Decl_PragmaDecl _txt)-sem_Decl !(Resume _monadic _nt _left _rhs) =- (sem_Decl_Resume _monadic _nt (sem_Lhs _left) (sem_Expr _rhs))-sem_Decl !(TSig _name _tp) =- (sem_Decl_TSig _name (sem_Type _tp))-sem_Decl !(Type _name _params _tp) =- (sem_Decl_Type _name _params (sem_Type _tp))--- semantic domain-newtype T_Decl = T_Decl (Bool ->- Bool ->- Options ->- String ->- ( PP_Doc))-data Inh_Decl = Inh_Decl {isDeclOfLet_Inh_Decl :: !(Bool),nested_Inh_Decl :: !(Bool),options_Inh_Decl :: !(Options),outputfile_Inh_Decl :: !(String)}-data Syn_Decl = Syn_Decl {pp_Syn_Decl :: !(PP_Doc)}-wrap_Decl :: T_Decl ->- Inh_Decl ->- Syn_Decl-wrap_Decl !(T_Decl sem) !(Inh_Decl _lhsIisDeclOfLet _lhsInested _lhsIoptions _lhsIoutputfile) =- (let ( !_lhsOpp) = sem _lhsIisDeclOfLet _lhsInested _lhsIoptions _lhsIoutputfile- in (Syn_Decl _lhsOpp))-sem_Decl_Bind :: T_Lhs ->- T_Expr ->- T_Decl-sem_Decl_Bind !(T_Lhs left_) !(T_Expr rhs_) =- (T_Decl (\ (!_lhsIisDeclOfLet)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1093 "dist/build/PrintCode" #-}- )) of- { !_rhsOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1098 "dist/build/PrintCode" #-}- )) of- { !_rhsOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1103 "dist/build/PrintCode" #-}- )) of- { !_rhsOnested ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1108 "dist/build/PrintCode" #-}- )) of- { !_leftOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1113 "dist/build/PrintCode" #-}- )) of- { !_leftOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1118 "dist/build/PrintCode" #-}- )) of- { !_leftOnested ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 1123 "dist/build/PrintCode" #-}- )) of- { !_leftOisDeclOfLet ->- (case (rhs_ _rhsOnested _rhsOoptions _rhsOoutputfile) of- { ( !_rhsIpp) ->- (case (left_ _leftOisDeclOfLet _leftOnested _leftOoptions _leftOoutputfile) of- { ( !_leftIpp) ->- (case (({-# LINE 109 "src-ag/PrintCode.ag" #-}- _leftIpp >#< "<-" >#< _rhsIpp- {-# LINE 1132 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) }) }) }) }) }) })))-sem_Decl_BindLet :: T_Lhs ->- T_Expr ->- T_Decl-sem_Decl_BindLet !(T_Lhs left_) !(T_Expr rhs_) =- (T_Decl (\ (!_lhsIisDeclOfLet)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1146 "dist/build/PrintCode" #-}- )) of- { !_rhsOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1151 "dist/build/PrintCode" #-}- )) of- { !_rhsOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1156 "dist/build/PrintCode" #-}- )) of- { !_rhsOnested ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1161 "dist/build/PrintCode" #-}- )) of- { !_leftOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1166 "dist/build/PrintCode" #-}- )) of- { !_leftOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1171 "dist/build/PrintCode" #-}- )) of- { !_leftOnested ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 1176 "dist/build/PrintCode" #-}- )) of- { !_leftOisDeclOfLet ->- (case (rhs_ _rhsOnested _rhsOoptions _rhsOoutputfile) of- { ( !_rhsIpp) ->- (case (left_ _leftOisDeclOfLet _leftOnested _leftOoptions _leftOoutputfile) of- { ( !_leftIpp) ->- (case (({-# LINE 110 "src-ag/PrintCode.ag" #-}- "let" >#< _leftIpp >#< "=" >#< _rhsIpp- {-# LINE 1185 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) }) }) }) }) }) })))-sem_Decl_Comment :: String ->- T_Decl-sem_Decl_Comment !txt_ =- (T_Decl (\ (!_lhsIisDeclOfLet)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 123 "src-ag/PrintCode.ag" #-}- if '\n' `elem` txt_- then "{-" >-< vlist (lines txt_) >-< "-}"- else "--" >#< txt_- {-# LINE 1200 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) })))-sem_Decl_Data :: String ->- ([String]) ->- T_DataAlts ->- Bool ->- ([String]) ->- T_Decl-sem_Decl_Data !name_ !params_ !(T_DataAlts alts_) !strict_ !derivings_ =- (T_Decl (\ (!_lhsIisDeclOfLet)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1217 "dist/build/PrintCode" #-}- )) of- { !_altsOnested ->- (case (({-# LINE 320 "src-ag/PrintCode.ag" #-}- if strict_ then pp "!" else empty- {-# LINE 1222 "dist/build/PrintCode" #-}- )) of- { !_altsOstrictPre ->- (case (alts_ _altsOnested _altsOstrictPre) of- { ( !_altsIpps) ->- (case (({-# LINE 111 "src-ag/PrintCode.ag" #-}- "data" >#< hv_sp (name_ : params_)- >#< ( case _altsIpps of- [] -> empty- (x:xs) -> "=" >#< x- >-< vlist (map ("|" >#<) xs)- >-< if null derivings_- then empty- else "deriving" >#< ppTuple False (map text derivings_)- )- {-# LINE 1237 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) })))-sem_Decl_Decl :: T_Lhs ->- T_Expr ->- (Set String) ->- (Set String) ->- T_Decl-sem_Decl_Decl !(T_Lhs left_) !(T_Expr rhs_) !binds_ !uses_ =- (T_Decl (\ (!_lhsIisDeclOfLet)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1253 "dist/build/PrintCode" #-}- )) of- { !_rhsOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1258 "dist/build/PrintCode" #-}- )) of- { !_rhsOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1263 "dist/build/PrintCode" #-}- )) of- { !_rhsOnested ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1268 "dist/build/PrintCode" #-}- )) of- { !_leftOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1273 "dist/build/PrintCode" #-}- )) of- { !_leftOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1278 "dist/build/PrintCode" #-}- )) of- { !_leftOnested ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 1283 "dist/build/PrintCode" #-}- )) of- { !_leftOisDeclOfLet ->- (case (rhs_ _rhsOnested _rhsOoptions _rhsOoutputfile) of- { ( !_rhsIpp) ->- (case (left_ _leftOisDeclOfLet _leftOnested _leftOoptions _leftOoutputfile) of- { ( !_leftIpp) ->- (case (({-# LINE 107 "src-ag/PrintCode.ag" #-}- _leftIpp >#< "="- >-< indent 4 _rhsIpp- {-# LINE 1293 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) }) }) }) }) }) })))-sem_Decl_EvalDecl :: String ->- T_Lhs ->- T_Expr ->- T_Decl-sem_Decl_EvalDecl !nt_ !(T_Lhs left_) !(T_Expr rhs_) =- (T_Decl (\ (!_lhsIisDeclOfLet)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1308 "dist/build/PrintCode" #-}- )) of- { !_rhsOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1313 "dist/build/PrintCode" #-}- )) of- { !_rhsOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1318 "dist/build/PrintCode" #-}- )) of- { !_rhsOnested ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1323 "dist/build/PrintCode" #-}- )) of- { !_leftOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1328 "dist/build/PrintCode" #-}- )) of- { !_leftOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1333 "dist/build/PrintCode" #-}- )) of- { !_leftOnested ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 1338 "dist/build/PrintCode" #-}- )) of- { !_leftOisDeclOfLet ->- (case (({-# LINE 130 "src-ag/PrintCode.ag" #-}- if breadthFirstStrict _lhsIoptions- then "stepwiseEval"- else "lazyEval"- {-# LINE 1345 "dist/build/PrintCode" #-}- )) of- { !_strat ->- (case (rhs_ _rhsOnested _rhsOoptions _rhsOoutputfile) of- { ( !_rhsIpp) ->- (case (left_ _leftOisDeclOfLet _leftOnested _leftOoptions _leftOoutputfile) of- { ( !_leftIpp) ->- (case (({-# LINE 133 "src-ag/PrintCode.ag" #-}- if breadthFirst _lhsIoptions- then _leftIpp >#< "=" >#< "case" >#< _strat >#< pp_parens _rhsIpp >#< "of"- >-< indent 4 (- pp_parens (nt_ >|< "_Syn" >#< "_val") >#< "-> _val"- )- else _leftIpp >#< "=" >#< _rhsIpp- {-# LINE 1359 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) }) }) }) }) }) }) })))-sem_Decl_NewType :: String ->- ([String]) ->- String ->- T_Type ->- T_Decl-sem_Decl_NewType !name_ !params_ !con_ !(T_Type tp_) =- (T_Decl (\ (!_lhsIisDeclOfLet)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1375 "dist/build/PrintCode" #-}- )) of- { !_tpOnested ->- (case (tp_ _tpOnested) of- { ( !_tpIpp,!_tpIprec) ->- (case (({-# LINE 120 "src-ag/PrintCode.ag" #-}- "newtype" >#< hv_sp (name_ : params_) >#< "=" >#< con_ >#< pp_parens _tpIpp- {-# LINE 1382 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) })))-sem_Decl_PragmaDecl :: String ->- T_Decl-sem_Decl_PragmaDecl !txt_ =- (T_Decl (\ (!_lhsIisDeclOfLet)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 126 "src-ag/PrintCode.ag" #-}- "{-#" >#< text txt_ >#< "#-}"- {-# LINE 1395 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) })))-sem_Decl_Resume :: Bool ->- String ->- T_Lhs ->- T_Expr ->- T_Decl-sem_Decl_Resume !monadic_ !nt_ !(T_Lhs left_) !(T_Expr rhs_) =- (T_Decl (\ (!_lhsIisDeclOfLet)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1411 "dist/build/PrintCode" #-}- )) of- { !_rhsOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1416 "dist/build/PrintCode" #-}- )) of- { !_rhsOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1421 "dist/build/PrintCode" #-}- )) of- { !_rhsOnested ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1426 "dist/build/PrintCode" #-}- )) of- { !_leftOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1431 "dist/build/PrintCode" #-}- )) of- { !_leftOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1436 "dist/build/PrintCode" #-}- )) of- { !_leftOnested ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 1441 "dist/build/PrintCode" #-}- )) of- { !_leftOisDeclOfLet ->- (case (rhs_ _rhsOnested _rhsOoptions _rhsOoutputfile) of- { ( !_rhsIpp) ->- (case (left_ _leftOisDeclOfLet _leftOnested _leftOoptions _leftOoutputfile) of- { ( !_leftIpp) ->- (case (({-# LINE 127 "src-ag/PrintCode.ag" #-}- if monadic_- then _leftIpp >#< "<-" >#< _rhsIpp- else _leftIpp >#< "=" >-< indent 4 _rhsIpp- {-# LINE 1452 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) }) }) }) }) }) })))-sem_Decl_TSig :: String ->- T_Type ->- T_Decl-sem_Decl_TSig !name_ !(T_Type tp_) =- (T_Decl (\ (!_lhsIisDeclOfLet)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1466 "dist/build/PrintCode" #-}- )) of- { !_tpOnested ->- (case (tp_ _tpOnested) of- { ( !_tpIpp,!_tpIprec) ->- (case (({-# LINE 122 "src-ag/PrintCode.ag" #-}- name_ >#< "::" >#< _tpIpp- {-# LINE 1473 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) })))-sem_Decl_Type :: String ->- ([String]) ->- T_Type ->- T_Decl-sem_Decl_Type !name_ !params_ !(T_Type tp_) =- (T_Decl (\ (!_lhsIisDeclOfLet)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1488 "dist/build/PrintCode" #-}- )) of- { !_tpOnested ->- (case (tp_ _tpOnested) of- { ( !_tpIpp,!_tpIprec) ->- (case (({-# LINE 121 "src-ag/PrintCode.ag" #-}- "type" >#< hv_sp (name_ : params_) >#< "=" >#< _tpIpp- {-# LINE 1495 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) })))--- Decls --------------------------------------------------------{-- visit 0:- inherited attributes:- isDeclOfLet : Bool- nested : Bool- options : Options- outputfile : String- synthesized attribute:- pps : PP_Docs- alternatives:- alternative Cons:- child hd : Decl - child tl : Decls - alternative Nil:--}--- cata-sem_Decls :: Decls ->- T_Decls-sem_Decls !list =- (Prelude.foldr sem_Decls_Cons sem_Decls_Nil (Prelude.map sem_Decl list))--- semantic domain-newtype T_Decls = T_Decls (Bool ->- Bool ->- Options ->- String ->- ( PP_Docs))-data Inh_Decls = Inh_Decls {isDeclOfLet_Inh_Decls :: !(Bool),nested_Inh_Decls :: !(Bool),options_Inh_Decls :: !(Options),outputfile_Inh_Decls :: !(String)}-data Syn_Decls = Syn_Decls {pps_Syn_Decls :: !(PP_Docs)}-wrap_Decls :: T_Decls ->- Inh_Decls ->- Syn_Decls-wrap_Decls !(T_Decls sem) !(Inh_Decls _lhsIisDeclOfLet _lhsInested _lhsIoptions _lhsIoutputfile) =- (let ( !_lhsOpps) = sem _lhsIisDeclOfLet _lhsInested _lhsIoptions _lhsIoutputfile- in (Syn_Decls _lhsOpps))-sem_Decls_Cons :: T_Decl ->- T_Decls ->- T_Decls-sem_Decls_Cons !(T_Decl hd_) !(T_Decls tl_) =- (T_Decls (\ (!_lhsIisDeclOfLet)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1544 "dist/build/PrintCode" #-}- )) of- { !_tlOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1549 "dist/build/PrintCode" #-}- )) of- { !_tlOoptions ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1554 "dist/build/PrintCode" #-}- )) of- { !_tlOnested ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 1559 "dist/build/PrintCode" #-}- )) of- { !_tlOisDeclOfLet ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1564 "dist/build/PrintCode" #-}- )) of- { !_hdOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1569 "dist/build/PrintCode" #-}- )) of- { !_hdOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1574 "dist/build/PrintCode" #-}- )) of- { !_hdOnested ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 1579 "dist/build/PrintCode" #-}- )) of- { !_hdOisDeclOfLet ->- (case (tl_ _tlOisDeclOfLet _tlOnested _tlOoptions _tlOoutputfile) of- { ( !_tlIpps) ->- (case (hd_ _hdOisDeclOfLet _hdOnested _hdOoptions _hdOoutputfile) of- { ( !_hdIpp) ->- (case (({-# LINE 85 "src-ag/PrintCode.ag" #-}- _hdIpp : _tlIpps- {-# LINE 1588 "dist/build/PrintCode" #-}- )) of- { !_lhsOpps ->- ( _lhsOpps) }) }) }) }) }) }) }) }) }) }) })))-sem_Decls_Nil :: T_Decls-sem_Decls_Nil =- (T_Decls (\ (!_lhsIisDeclOfLet)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 86 "src-ag/PrintCode.ag" #-}- []- {-# LINE 1600 "dist/build/PrintCode" #-}- )) of- { !_lhsOpps ->- ( _lhsOpps) })))--- Expr ---------------------------------------------------------{-- visit 0:- inherited attributes:- nested : Bool- options : Options- outputfile : String- synthesized attribute:- pp : PP_Doc- alternatives:- alternative App:- child name : {String}- child args : Exprs - alternative Case:- child expr : Expr - child alts : CaseAlts - alternative Do:- child stmts : Decls - child body : Expr - alternative InvokeExpr:- child nt : {String}- child expr : Expr - child args : Exprs - alternative Lambda:- child args : Exprs - child body : Expr - visit 0:- local addBang : _- local strictParams : _- alternative Let:- child decls : Decls - child body : Expr - alternative LineExpr:- child expr : Expr - alternative PragmaExpr:- child onLeftSide : {Bool}- child onNewLine : {Bool}- child txt : {String}- child expr : Expr - alternative ResultExpr:- child nt : {String}- child expr : Expr - alternative ResumeExpr:- child nt : {String}- child expr : Expr - child left : Lhs - child rhs : Expr - alternative SemFun:- child nt : {String}- child args : Exprs - child body : Expr - visit 0:- local addBang : _- local strictParams : _- alternative SimpleExpr:- child txt : {String}- alternative TextExpr:- child lns : {[String]}- alternative Trace:- child txt : {String}- child expr : Expr - alternative TupleExpr:- child exprs : Exprs - alternative TypedExpr:- child expr : Expr - child tp : Type - alternative UnboxedTupleExpr:- child exprs : Exprs --}--- cata-sem_Expr :: Expr ->- T_Expr-sem_Expr !(App _name _args) =- (sem_Expr_App _name (sem_Exprs _args))-sem_Expr !(Case _expr _alts) =- (sem_Expr_Case (sem_Expr _expr) (sem_CaseAlts _alts))-sem_Expr !(Do _stmts _body) =- (sem_Expr_Do (sem_Decls _stmts) (sem_Expr _body))-sem_Expr !(InvokeExpr _nt _expr _args) =- (sem_Expr_InvokeExpr _nt (sem_Expr _expr) (sem_Exprs _args))-sem_Expr !(Lambda _args _body) =- (sem_Expr_Lambda (sem_Exprs _args) (sem_Expr _body))-sem_Expr !(Let _decls _body) =- (sem_Expr_Let (sem_Decls _decls) (sem_Expr _body))-sem_Expr !(LineExpr _expr) =- (sem_Expr_LineExpr (sem_Expr _expr))-sem_Expr !(PragmaExpr _onLeftSide _onNewLine _txt _expr) =- (sem_Expr_PragmaExpr _onLeftSide _onNewLine _txt (sem_Expr _expr))-sem_Expr !(ResultExpr _nt _expr) =- (sem_Expr_ResultExpr _nt (sem_Expr _expr))-sem_Expr !(ResumeExpr _nt _expr _left _rhs) =- (sem_Expr_ResumeExpr _nt (sem_Expr _expr) (sem_Lhs _left) (sem_Expr _rhs))-sem_Expr !(SemFun _nt _args _body) =- (sem_Expr_SemFun _nt (sem_Exprs _args) (sem_Expr _body))-sem_Expr !(SimpleExpr _txt) =- (sem_Expr_SimpleExpr _txt)-sem_Expr !(TextExpr _lns) =- (sem_Expr_TextExpr _lns)-sem_Expr !(Trace _txt _expr) =- (sem_Expr_Trace _txt (sem_Expr _expr))-sem_Expr !(TupleExpr _exprs) =- (sem_Expr_TupleExpr (sem_Exprs _exprs))-sem_Expr !(TypedExpr _expr _tp) =- (sem_Expr_TypedExpr (sem_Expr _expr) (sem_Type _tp))-sem_Expr !(UnboxedTupleExpr _exprs) =- (sem_Expr_UnboxedTupleExpr (sem_Exprs _exprs))--- semantic domain-newtype T_Expr = T_Expr (Bool ->- Options ->- String ->- ( PP_Doc))-data Inh_Expr = Inh_Expr {nested_Inh_Expr :: !(Bool),options_Inh_Expr :: !(Options),outputfile_Inh_Expr :: !(String)}-data Syn_Expr = Syn_Expr {pp_Syn_Expr :: !(PP_Doc)}-wrap_Expr :: T_Expr ->- Inh_Expr ->- Syn_Expr-wrap_Expr !(T_Expr sem) !(Inh_Expr _lhsInested _lhsIoptions _lhsIoutputfile) =- (let ( !_lhsOpp) = sem _lhsInested _lhsIoptions _lhsIoutputfile- in (Syn_Expr _lhsOpp))-sem_Expr_App :: String ->- T_Exprs ->- T_Expr-sem_Expr_App !name_ !(T_Exprs args_) =- (T_Expr (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1732 "dist/build/PrintCode" #-}- )) of- { !_argsOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1737 "dist/build/PrintCode" #-}- )) of- { !_argsOoptions ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1742 "dist/build/PrintCode" #-}- )) of- { !_argsOnested ->- (case (args_ _argsOnested _argsOoptions _argsOoutputfile) of- { ( !_argsIpps) ->- (case (({-# LINE 161 "src-ag/PrintCode.ag" #-}- pp_parens $ name_ >#< hv_sp _argsIpps- {-# LINE 1749 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) })))-sem_Expr_Case :: T_Expr ->- T_CaseAlts ->- T_Expr-sem_Expr_Case !(T_Expr expr_) !(T_CaseAlts alts_) =- (T_Expr (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1762 "dist/build/PrintCode" #-}- )) of- { !_altsOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1767 "dist/build/PrintCode" #-}- )) of- { !_altsOoptions ->- (case (({-# LINE 56 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1772 "dist/build/PrintCode" #-}- )) of- { !_altsOnested ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1777 "dist/build/PrintCode" #-}- )) of- { !_exprOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1782 "dist/build/PrintCode" #-}- )) of- { !_exprOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1787 "dist/build/PrintCode" #-}- )) of- { !_exprOnested ->- (case (alts_ _altsOnested _altsOoptions _altsOoutputfile) of- { ( !_altsIpps) ->- (case (expr_ _exprOnested _exprOoptions _exprOoutputfile) of- { ( !_exprIpp) ->- (case (({-# LINE 144 "src-ag/PrintCode.ag" #-}- pp_parens ( "case" >#< pp_parens _exprIpp >#< "of"- >-< (vlist _altsIpps)- )- {-# LINE 1798 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) }) }) }) }) })))-sem_Expr_Do :: T_Decls ->- T_Expr ->- T_Expr-sem_Expr_Do !(T_Decls stmts_) !(T_Expr body_) =- (T_Expr (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1811 "dist/build/PrintCode" #-}- )) of- { !_bodyOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1816 "dist/build/PrintCode" #-}- )) of- { !_bodyOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1821 "dist/build/PrintCode" #-}- )) of- { !_bodyOnested ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1826 "dist/build/PrintCode" #-}- )) of- { !_stmtsOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1831 "dist/build/PrintCode" #-}- )) of- { !_stmtsOoptions ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1836 "dist/build/PrintCode" #-}- )) of- { !_stmtsOnested ->- (case (({-# LINE 416 "src-ag/PrintCode.ag" #-}- False- {-# LINE 1841 "dist/build/PrintCode" #-}- )) of- { !_stmtsOisDeclOfLet ->- (case (body_ _bodyOnested _bodyOoptions _bodyOoutputfile) of- { ( !_bodyIpp) ->- (case (stmts_ _stmtsOisDeclOfLet _stmtsOnested _stmtsOoptions _stmtsOoutputfile) of- { ( !_stmtsIpps) ->- (case (({-# LINE 147 "src-ag/PrintCode.ag" #-}- pp_parens ( "do" >#< ( vlist _stmtsIpps- >-< ("return" >#< _bodyIpp))- )- {-# LINE 1852 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) }) }) }) }) }) })))-sem_Expr_InvokeExpr :: String ->- T_Expr ->- T_Exprs ->- T_Expr-sem_Expr_InvokeExpr !nt_ !(T_Expr expr_) !(T_Exprs args_) =- (T_Expr (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1866 "dist/build/PrintCode" #-}- )) of- { !_argsOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1871 "dist/build/PrintCode" #-}- )) of- { !_argsOoptions ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1876 "dist/build/PrintCode" #-}- )) of- { !_argsOnested ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1881 "dist/build/PrintCode" #-}- )) of- { !_exprOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1886 "dist/build/PrintCode" #-}- )) of- { !_exprOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1891 "dist/build/PrintCode" #-}- )) of- { !_exprOnested ->- (case (args_ _argsOnested _argsOoptions _argsOoutputfile) of- { ( !_argsIpps) ->- (case (expr_ _exprOnested _exprOoptions _exprOoutputfile) of- { ( !_exprIpp) ->- (case (({-# LINE 185 "src-ag/PrintCode.ag" #-}- if breadthFirst _lhsIoptions- then "invoke" >#< pp_parens _exprIpp >#< pp_parens (- nt_ >|< "_Inh" >#< pp_parens (ppTuple False _argsIpps))- else _exprIpp >#< hv_sp _argsIpps- {-# LINE 1903 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) }) }) }) }) })))-sem_Expr_Lambda :: T_Exprs ->- T_Expr ->- T_Expr-sem_Expr_Lambda !(T_Exprs args_) !(T_Expr body_) =- (T_Expr (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1916 "dist/build/PrintCode" #-}- )) of- { !_bodyOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1921 "dist/build/PrintCode" #-}- )) of- { !_bodyOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1926 "dist/build/PrintCode" #-}- )) of- { !_bodyOnested ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1931 "dist/build/PrintCode" #-}- )) of- { !_argsOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1936 "dist/build/PrintCode" #-}- )) of- { !_argsOoptions ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1941 "dist/build/PrintCode" #-}- )) of- { !_argsOnested ->- (case (({-# LINE 153 "src-ag/PrintCode.ag" #-}- if bangpats _lhsIoptions- then \p -> pp_parens ("!" >|< p)- else id- {-# LINE 1948 "dist/build/PrintCode" #-}- )) of- { !_addBang ->- (case (args_ _argsOnested _argsOoptions _argsOoutputfile) of- { ( !_argsIpps) ->- (case (({-# LINE 150 "src-ag/PrintCode.ag" #-}- if strictSems _lhsIoptions- then _argsIpps- else []- {-# LINE 1957 "dist/build/PrintCode" #-}- )) of- { !_strictParams ->- (case (body_ _bodyOnested _bodyOoptions _bodyOoutputfile) of- { ( !_bodyIpp) ->- (case (({-# LINE 156 "src-ag/PrintCode.ag" #-}- pp_parens ( "\\" >#< (vlist (map _addBang _argsIpps)) >#< "->"- >-< indent 4 (_strictParams `ppMultiSeqV` _bodyIpp)- )- {-# LINE 1966 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) }) }) }) }) }) }) })))-sem_Expr_Let :: T_Decls ->- T_Expr ->- T_Expr-sem_Expr_Let !(T_Decls decls_) !(T_Expr body_) =- (T_Expr (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1979 "dist/build/PrintCode" #-}- )) of- { !_bodyOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1984 "dist/build/PrintCode" #-}- )) of- { !_bodyOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 1989 "dist/build/PrintCode" #-}- )) of- { !_bodyOnested ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 1994 "dist/build/PrintCode" #-}- )) of- { !_declsOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 1999 "dist/build/PrintCode" #-}- )) of- { !_declsOoptions ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2004 "dist/build/PrintCode" #-}- )) of- { !_declsOnested ->- (case (({-# LINE 414 "src-ag/PrintCode.ag" #-}- True- {-# LINE 2009 "dist/build/PrintCode" #-}- )) of- { !_declsOisDeclOfLet ->- (case (body_ _bodyOnested _bodyOoptions _bodyOoutputfile) of- { ( !_bodyIpp) ->- (case (decls_ _declsOisDeclOfLet _declsOnested _declsOoptions _declsOoutputfile) of- { ( !_declsIpps) ->- (case (({-# LINE 141 "src-ag/PrintCode.ag" #-}- pp_parens ( "let" >#< (vlist _declsIpps)- >-< "in " >#< _bodyIpp- )- {-# LINE 2020 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) }) }) }) }) }) })))-sem_Expr_LineExpr :: T_Expr ->- T_Expr-sem_Expr_LineExpr !(T_Expr expr_) =- (T_Expr (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 2032 "dist/build/PrintCode" #-}- )) of- { !_exprOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 2037 "dist/build/PrintCode" #-}- )) of- { !_exprOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2042 "dist/build/PrintCode" #-}- )) of- { !_exprOnested ->- (case (expr_ _exprOnested _exprOoptions _exprOoutputfile) of- { ( !_exprIpp) ->- (case (({-# LINE 178 "src-ag/PrintCode.ag" #-}- _exprIpp >-< "{-# LINE" >#< ppWithLineNr (\n -> pp $ show $ n + 1) >#< show _lhsIoutputfile >#< "#-}"- >-< ""- {-# LINE 2050 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) })))-sem_Expr_PragmaExpr :: Bool ->- Bool ->- String ->- T_Expr ->- T_Expr-sem_Expr_PragmaExpr !onLeftSide_ !onNewLine_ !txt_ !(T_Expr expr_) =- (T_Expr (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 2065 "dist/build/PrintCode" #-}- )) of- { !_exprOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 2070 "dist/build/PrintCode" #-}- )) of- { !_exprOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2075 "dist/build/PrintCode" #-}- )) of- { !_exprOnested ->- (case (expr_ _exprOnested _exprOoptions _exprOoutputfile) of- { ( !_exprIpp) ->- (case (({-# LINE 167 "src-ag/PrintCode.ag" #-}- let pragmaDoc = "{-#" >#< txt_ >#< "#-}"- op = if onNewLine_- then (>-<)- else (>#<)- leftOp x y = if onLeftSide_- then x `op` y- else y- rightOp x y = if onLeftSide_- then x- else x `op` y- in pp_parens (pragmaDoc `leftOp` _exprIpp `rightOp` pragmaDoc)- {-# LINE 2092 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) })))-sem_Expr_ResultExpr :: String ->- T_Expr ->- T_Expr-sem_Expr_ResultExpr !nt_ !(T_Expr expr_) =- (T_Expr (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 2105 "dist/build/PrintCode" #-}- )) of- { !_exprOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 2110 "dist/build/PrintCode" #-}- )) of- { !_exprOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2115 "dist/build/PrintCode" #-}- )) of- { !_exprOnested ->- (case (expr_ _exprOnested _exprOoptions _exprOoutputfile) of- { ( !_exprIpp) ->- (case (({-# LINE 181 "src-ag/PrintCode.ag" #-}- if breadthFirst _lhsIoptions- then "final" >#<- pp_parens (nt_ >|< "_Syn" >#< pp_parens _exprIpp)- else _exprIpp- {-# LINE 2125 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) })))-sem_Expr_ResumeExpr :: String ->- T_Expr ->- T_Lhs ->- T_Expr ->- T_Expr-sem_Expr_ResumeExpr !nt_ !(T_Expr expr_) !(T_Lhs left_) !(T_Expr rhs_) =- (T_Expr (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 2140 "dist/build/PrintCode" #-}- )) of- { !_rhsOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 2145 "dist/build/PrintCode" #-}- )) of- { !_rhsOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2150 "dist/build/PrintCode" #-}- )) of- { !_rhsOnested ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 2155 "dist/build/PrintCode" #-}- )) of- { !_leftOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 2160 "dist/build/PrintCode" #-}- )) of- { !_leftOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2165 "dist/build/PrintCode" #-}- )) of- { !_leftOnested ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 2170 "dist/build/PrintCode" #-}- )) of- { !_exprOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 2175 "dist/build/PrintCode" #-}- )) of- { !_exprOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2180 "dist/build/PrintCode" #-}- )) of- { !_exprOnested ->- (case (({-# LINE 418 "src-ag/PrintCode.ag" #-}- False- {-# LINE 2185 "dist/build/PrintCode" #-}- )) of- { !_leftOisDeclOfLet ->- (case (rhs_ _rhsOnested _rhsOoptions _rhsOoutputfile) of- { ( !_rhsIpp) ->- (case (left_ _leftOisDeclOfLet _leftOnested _leftOoptions _leftOoutputfile) of- { ( !_leftIpp) ->- (case (expr_ _exprOnested _exprOoptions _exprOoutputfile) of- { ( !_exprIpp) ->- (case (({-# LINE 189 "src-ag/PrintCode.ag" #-}- if breadthFirst _lhsIoptions- then pp_parens ("resume" >#< pp_parens _exprIpp- >-< indent 2 (pp_parens ( "\\" >|<- pp_parens ("~" >|< pp_parens (nt_ >|< "_Syn" >#< "_inh_arg"))- >#< "->"- >-< indent 2 ( "let" >#< _leftIpp >#< "= _inh_arg"- >-< indent 2 ("in" >#< _rhsIpp)- ))))- else pp_parens ( "case" >#< pp_parens _exprIpp >#< "of"- >-< ("{" >#< _leftIpp >#< "->")- >-< indent 4 (_rhsIpp >#< "}")- )- {-# LINE 2207 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) }) }) }) }) }) }) }) }) }) })))-sem_Expr_SemFun :: String ->- T_Exprs ->- T_Expr ->- T_Expr-sem_Expr_SemFun !nt_ !(T_Exprs args_) !(T_Expr body_) =- (T_Expr (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 2221 "dist/build/PrintCode" #-}- )) of- { !_bodyOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 2226 "dist/build/PrintCode" #-}- )) of- { !_bodyOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2231 "dist/build/PrintCode" #-}- )) of- { !_bodyOnested ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 2236 "dist/build/PrintCode" #-}- )) of- { !_argsOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 2241 "dist/build/PrintCode" #-}- )) of- { !_argsOoptions ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2246 "dist/build/PrintCode" #-}- )) of- { !_argsOnested ->- (case (({-# LINE 204 "src-ag/PrintCode.ag" #-}- if bangpats _lhsIoptions- then \p -> pp_parens ("!" >|< p)- else id- {-# LINE 2253 "dist/build/PrintCode" #-}- )) of- { !_addBang ->- (case (args_ _argsOnested _argsOoptions _argsOoutputfile) of- { ( !_argsIpps) ->- (case (({-# LINE 201 "src-ag/PrintCode.ag" #-}- if strictSems _lhsIoptions- then _argsIpps- else []- {-# LINE 2262 "dist/build/PrintCode" #-}- )) of- { !_strictParams ->- (case (body_ _bodyOnested _bodyOoptions _bodyOoutputfile) of- { ( !_bodyIpp) ->- (case (({-# LINE 207 "src-ag/PrintCode.ag" #-}- if breadthFirst _lhsIoptions- then "Child" >#< pp_parens ( "\\" >|<- pp_parens (nt_ >|< "_Inh" >#<- ppTuple False (map _addBang _argsIpps)) >#< "->"- >-< indent 2 (_strictParams `ppMultiSeqV` _bodyIpp))- else if null _argsIpps- then _bodyIpp- else pp_parens ( "\\" >#< (vlist (map _addBang _argsIpps)) >#< "->"- >-< indent 4 (_strictParams `ppMultiSeqV` _bodyIpp)- )- {-# LINE 2278 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) }) }) }) }) }) }) })))-sem_Expr_SimpleExpr :: String ->- T_Expr-sem_Expr_SimpleExpr !txt_ =- (T_Expr (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 162 "src-ag/PrintCode.ag" #-}- text txt_- {-# LINE 2290 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) })))-sem_Expr_TextExpr :: ([String]) ->- T_Expr-sem_Expr_TextExpr !lns_ =- (T_Expr (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 163 "src-ag/PrintCode.ag" #-}- vlist (map text lns_)- {-# LINE 2302 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) })))-sem_Expr_Trace :: String ->- T_Expr ->- T_Expr-sem_Expr_Trace !txt_ !(T_Expr expr_) =- (T_Expr (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 2315 "dist/build/PrintCode" #-}- )) of- { !_exprOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 2320 "dist/build/PrintCode" #-}- )) of- { !_exprOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2325 "dist/build/PrintCode" #-}- )) of- { !_exprOnested ->- (case (expr_ _exprOnested _exprOoptions _exprOoutputfile) of- { ( !_exprIpp) ->- (case (({-# LINE 164 "src-ag/PrintCode.ag" #-}- "trace" >#< ( pp_parens ("\"" >|< text txt_ >|< "\"")- >-< pp_parens _exprIpp- )- {-# LINE 2334 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) })))-sem_Expr_TupleExpr :: T_Exprs ->- T_Expr-sem_Expr_TupleExpr !(T_Exprs exprs_) =- (T_Expr (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 2346 "dist/build/PrintCode" #-}- )) of- { !_exprsOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 2351 "dist/build/PrintCode" #-}- )) of- { !_exprsOoptions ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2356 "dist/build/PrintCode" #-}- )) of- { !_exprsOnested ->- (case (exprs_ _exprsOnested _exprsOoptions _exprsOoutputfile) of- { ( !_exprsIpps) ->- (case (({-# LINE 159 "src-ag/PrintCode.ag" #-}- ppTuple _lhsInested _exprsIpps- {-# LINE 2363 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) })))-sem_Expr_TypedExpr :: T_Expr ->- T_Type ->- T_Expr-sem_Expr_TypedExpr !(T_Expr expr_) !(T_Type tp_) =- (T_Expr (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2376 "dist/build/PrintCode" #-}- )) of- { !_tpOnested ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 2381 "dist/build/PrintCode" #-}- )) of- { !_exprOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 2386 "dist/build/PrintCode" #-}- )) of- { !_exprOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2391 "dist/build/PrintCode" #-}- )) of- { !_exprOnested ->- (case (tp_ _tpOnested) of- { ( !_tpIpp,!_tpIprec) ->- (case (expr_ _exprOnested _exprOoptions _exprOoutputfile) of- { ( !_exprIpp) ->- (case (({-# LINE 180 "src-ag/PrintCode.ag" #-}- pp_parens (_exprIpp >#< "::" >#< _tpIpp)- {-# LINE 2400 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) }) }) })))-sem_Expr_UnboxedTupleExpr :: T_Exprs ->- T_Expr-sem_Expr_UnboxedTupleExpr !(T_Exprs exprs_) =- (T_Expr (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 2412 "dist/build/PrintCode" #-}- )) of- { !_exprsOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 2417 "dist/build/PrintCode" #-}- )) of- { !_exprsOoptions ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2422 "dist/build/PrintCode" #-}- )) of- { !_exprsOnested ->- (case (exprs_ _exprsOnested _exprsOoptions _exprsOoutputfile) of- { ( !_exprsIpps) ->- (case (({-# LINE 160 "src-ag/PrintCode.ag" #-}- ppUnboxedTuple _lhsInested _exprsIpps- {-# LINE 2429 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) })))--- Exprs --------------------------------------------------------{-- visit 0:- inherited attributes:- nested : Bool- options : Options- outputfile : String- synthesized attribute:- pps : PP_Docs- alternatives:- alternative Cons:- child hd : Expr - child tl : Exprs - alternative Nil:--}--- cata-sem_Exprs :: Exprs ->- T_Exprs-sem_Exprs !list =- (Prelude.foldr sem_Exprs_Cons sem_Exprs_Nil (Prelude.map sem_Expr list))--- semantic domain-newtype T_Exprs = T_Exprs (Bool ->- Options ->- String ->- ( PP_Docs))-data Inh_Exprs = Inh_Exprs {nested_Inh_Exprs :: !(Bool),options_Inh_Exprs :: !(Options),outputfile_Inh_Exprs :: !(String)}-data Syn_Exprs = Syn_Exprs {pps_Syn_Exprs :: !(PP_Docs)}-wrap_Exprs :: T_Exprs ->- Inh_Exprs ->- Syn_Exprs-wrap_Exprs !(T_Exprs sem) !(Inh_Exprs _lhsInested _lhsIoptions _lhsIoutputfile) =- (let ( !_lhsOpps) = sem _lhsInested _lhsIoptions _lhsIoutputfile- in (Syn_Exprs _lhsOpps))-sem_Exprs_Cons :: T_Expr ->- T_Exprs ->- T_Exprs-sem_Exprs_Cons !(T_Expr hd_) !(T_Exprs tl_) =- (T_Exprs (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 2475 "dist/build/PrintCode" #-}- )) of- { !_tlOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 2480 "dist/build/PrintCode" #-}- )) of- { !_tlOoptions ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2485 "dist/build/PrintCode" #-}- )) of- { !_tlOnested ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 2490 "dist/build/PrintCode" #-}- )) of- { !_hdOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 2495 "dist/build/PrintCode" #-}- )) of- { !_hdOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2500 "dist/build/PrintCode" #-}- )) of- { !_hdOnested ->- (case (tl_ _tlOnested _tlOoptions _tlOoutputfile) of- { ( !_tlIpps) ->- (case (hd_ _hdOnested _hdOoptions _hdOoutputfile) of- { ( !_hdIpp) ->- (case (({-# LINE 65 "src-ag/PrintCode.ag" #-}- _hdIpp : _tlIpps- {-# LINE 2509 "dist/build/PrintCode" #-}- )) of- { !_lhsOpps ->- ( _lhsOpps) }) }) }) }) }) }) }) }) })))-sem_Exprs_Nil :: T_Exprs-sem_Exprs_Nil =- (T_Exprs (\ (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 66 "src-ag/PrintCode.ag" #-}- []- {-# LINE 2520 "dist/build/PrintCode" #-}- )) of- { !_lhsOpps ->- ( _lhsOpps) })))--- Lhs ----------------------------------------------------------{-- visit 0:- inherited attributes:- isDeclOfLet : Bool- nested : Bool- options : Options- outputfile : String- synthesized attribute:- pp : PP_Doc- alternatives:- alternative Fun:- child name : {String}- child args : Exprs - visit 0:- local addBang : _- local strictGuard : _- local hasStrictVars : _- local addStrictGuard : _- alternative Pattern3:- child pat3 : Pattern - visit 0:- local hasStrictVars : _- local strictGuard : _- local addStrictGuard : _- alternative Pattern3SM:- child pat3 : Pattern - alternative TupleLhs:- child comps : {[String]}- visit 0:- local addBang : _- local hasStrictVars : _- local strictGuard : _- local addStrictGuard : _- alternative UnboxedTupleLhs:- child comps : {[String]}- visit 0:- local addBang : _- local hasStrictVars : _- local strictGuard : _- local addStrictGuard : _- alternative Unwrap:- child name : {String}- child sub : Lhs --}--- cata-sem_Lhs :: Lhs ->- T_Lhs-sem_Lhs !(Fun _name _args) =- (sem_Lhs_Fun _name (sem_Exprs _args))-sem_Lhs !(Pattern3 _pat3) =- (sem_Lhs_Pattern3 (sem_Pattern _pat3))-sem_Lhs !(Pattern3SM _pat3) =- (sem_Lhs_Pattern3SM (sem_Pattern _pat3))-sem_Lhs !(TupleLhs _comps) =- (sem_Lhs_TupleLhs _comps)-sem_Lhs !(UnboxedTupleLhs _comps) =- (sem_Lhs_UnboxedTupleLhs _comps)-sem_Lhs !(Unwrap _name _sub) =- (sem_Lhs_Unwrap _name (sem_Lhs _sub))--- semantic domain-newtype T_Lhs = T_Lhs (Bool ->- Bool ->- Options ->- String ->- ( PP_Doc))-data Inh_Lhs = Inh_Lhs {isDeclOfLet_Inh_Lhs :: !(Bool),nested_Inh_Lhs :: !(Bool),options_Inh_Lhs :: !(Options),outputfile_Inh_Lhs :: !(String)}-data Syn_Lhs = Syn_Lhs {pp_Syn_Lhs :: !(PP_Doc)}-wrap_Lhs :: T_Lhs ->- Inh_Lhs ->- Syn_Lhs-wrap_Lhs !(T_Lhs sem) !(Inh_Lhs _lhsIisDeclOfLet _lhsInested _lhsIoptions _lhsIoutputfile) =- (let ( !_lhsOpp) = sem _lhsIisDeclOfLet _lhsInested _lhsIoptions _lhsIoutputfile- in (Syn_Lhs _lhsOpp))-sem_Lhs_Fun :: String ->- T_Exprs ->- T_Lhs-sem_Lhs_Fun !name_ !(T_Exprs args_) =- (T_Lhs (\ (!_lhsIisDeclOfLet)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 2608 "dist/build/PrintCode" #-}- )) of- { !_argsOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 2613 "dist/build/PrintCode" #-}- )) of- { !_argsOoptions ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2618 "dist/build/PrintCode" #-}- )) of- { !_argsOnested ->- (case (({-# LINE 248 "src-ag/PrintCode.ag" #-}- if bangpats _lhsIoptions- then \p -> "!" >|< p- else id- {-# LINE 2625 "dist/build/PrintCode" #-}- )) of- { !_addBang ->- (case (args_ _argsOnested _argsOoptions _argsOoutputfile) of- { ( !_argsIpps) ->- (case (({-# LINE 245 "src-ag/PrintCode.ag" #-}- _argsIpps `ppMultiSeqH` (pp "True")- {-# LINE 2632 "dist/build/PrintCode" #-}- )) of- { !_strictGuard ->- (case (({-# LINE 244 "src-ag/PrintCode.ag" #-}- not (null _argsIpps)- {-# LINE 2637 "dist/build/PrintCode" #-}- )) of- { !_hasStrictVars ->- (case (({-# LINE 243 "src-ag/PrintCode.ag" #-}- if strictSems _lhsIoptions && _hasStrictVars then \v -> v >#< "|" >#< _strictGuard else id- {-# LINE 2642 "dist/build/PrintCode" #-}- )) of- { !_addStrictGuard ->- (case (({-# LINE 256 "src-ag/PrintCode.ag" #-}- _addStrictGuard (name_ >#< hv_sp (map _addBang _argsIpps))- {-# LINE 2647 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) }) }) }) }) })))-sem_Lhs_Pattern3 :: T_Pattern ->- T_Lhs-sem_Lhs_Pattern3 !(T_Pattern pat3_) =- (T_Lhs (\ (!_lhsIisDeclOfLet)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 2660 "dist/build/PrintCode" #-}- )) of- { !_pat3Ooptions ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 2665 "dist/build/PrintCode" #-}- )) of- { !_pat3OisDeclOfLet ->- (case (({-# LINE 380 "src-ag/PrintCode.ag" #-}- False- {-# LINE 2670 "dist/build/PrintCode" #-}- )) of- { !_pat3ObelowIrrefutable ->- (case (pat3_ _pat3ObelowIrrefutable _pat3OisDeclOfLet _pat3Ooptions) of- { ( !_pat3Icopy,!_pat3IisUnderscore,!_pat3Ipp,!_pat3Ipp',!_pat3IstrictVars) ->- (case (({-# LINE 235 "src-ag/PrintCode.ag" #-}- not (null _pat3IstrictVars)- {-# LINE 2677 "dist/build/PrintCode" #-}- )) of- { !_hasStrictVars ->- (case (({-# LINE 234 "src-ag/PrintCode.ag" #-}- _pat3IstrictVars `ppMultiSeqH` (pp "True")- {-# LINE 2682 "dist/build/PrintCode" #-}- )) of- { !_strictGuard ->- (case (({-# LINE 232 "src-ag/PrintCode.ag" #-}- if strictCases _lhsIoptions && _hasStrictVars then \v -> v >#< "|" >#< _strictGuard else id- {-# LINE 2687 "dist/build/PrintCode" #-}- )) of- { !_addStrictGuard ->- (case (({-# LINE 252 "src-ag/PrintCode.ag" #-}- _addStrictGuard _pat3Ipp- {-# LINE 2692 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) }) }) }) })))-sem_Lhs_Pattern3SM :: T_Pattern ->- T_Lhs-sem_Lhs_Pattern3SM !(T_Pattern pat3_) =- (T_Lhs (\ (!_lhsIisDeclOfLet)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 2705 "dist/build/PrintCode" #-}- )) of- { !_pat3Ooptions ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 2710 "dist/build/PrintCode" #-}- )) of- { !_pat3OisDeclOfLet ->- (case (({-# LINE 380 "src-ag/PrintCode.ag" #-}- False- {-# LINE 2715 "dist/build/PrintCode" #-}- )) of- { !_pat3ObelowIrrefutable ->- (case (pat3_ _pat3ObelowIrrefutable _pat3OisDeclOfLet _pat3Ooptions) of- { ( !_pat3Icopy,!_pat3IisUnderscore,!_pat3Ipp,!_pat3Ipp',!_pat3IstrictVars) ->- (case (({-# LINE 253 "src-ag/PrintCode.ag" #-}- _pat3Ipp'- {-# LINE 2722 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) })))-sem_Lhs_TupleLhs :: ([String]) ->- T_Lhs-sem_Lhs_TupleLhs !comps_ =- (T_Lhs (\ (!_lhsIisDeclOfLet)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 248 "src-ag/PrintCode.ag" #-}- if bangpats _lhsIoptions- then \p -> "!" >|< p- else id- {-# LINE 2737 "dist/build/PrintCode" #-}- )) of- { !_addBang ->- (case (({-# LINE 240 "src-ag/PrintCode.ag" #-}- not (null comps_)- {-# LINE 2742 "dist/build/PrintCode" #-}- )) of- { !_hasStrictVars ->- (case (({-# LINE 237 "src-ag/PrintCode.ag" #-}- if stricterCases _lhsIoptions && not _lhsIisDeclOfLet- then map text comps_ `ppMultiSeqH` (pp "True")- else pp "True"- {-# LINE 2749 "dist/build/PrintCode" #-}- )) of- { !_strictGuard ->- (case (({-# LINE 232 "src-ag/PrintCode.ag" #-}- if strictCases _lhsIoptions && _hasStrictVars then \v -> v >#< "|" >#< _strictGuard else id- {-# LINE 2754 "dist/build/PrintCode" #-}- )) of- { !_addStrictGuard ->- (case (({-# LINE 254 "src-ag/PrintCode.ag" #-}- _addStrictGuard $ ppTuple _lhsInested (map (_addBang . text) comps_)- {-# LINE 2759 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) })))-sem_Lhs_UnboxedTupleLhs :: ([String]) ->- T_Lhs-sem_Lhs_UnboxedTupleLhs !comps_ =- (T_Lhs (\ (!_lhsIisDeclOfLet)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 248 "src-ag/PrintCode.ag" #-}- if bangpats _lhsIoptions- then \p -> "!" >|< p- else id- {-# LINE 2774 "dist/build/PrintCode" #-}- )) of- { !_addBang ->- (case (({-# LINE 240 "src-ag/PrintCode.ag" #-}- not (null comps_)- {-# LINE 2779 "dist/build/PrintCode" #-}- )) of- { !_hasStrictVars ->- (case (({-# LINE 237 "src-ag/PrintCode.ag" #-}- if stricterCases _lhsIoptions && not _lhsIisDeclOfLet- then map text comps_ `ppMultiSeqH` (pp "True")- else pp "True"- {-# LINE 2786 "dist/build/PrintCode" #-}- )) of- { !_strictGuard ->- (case (({-# LINE 232 "src-ag/PrintCode.ag" #-}- if strictCases _lhsIoptions && _hasStrictVars then \v -> v >#< "|" >#< _strictGuard else id- {-# LINE 2791 "dist/build/PrintCode" #-}- )) of- { !_addStrictGuard ->- (case (({-# LINE 255 "src-ag/PrintCode.ag" #-}- _addStrictGuard $ ppUnboxedTuple _lhsInested (map (_addBang . text) comps_)- {-# LINE 2796 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) })))-sem_Lhs_Unwrap :: String ->- T_Lhs ->- T_Lhs-sem_Lhs_Unwrap !name_ !(T_Lhs sub_) =- (T_Lhs (\ (!_lhsIisDeclOfLet)- (!_lhsInested)- (!_lhsIoptions)- (!_lhsIoutputfile) ->- (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}- _lhsIoutputfile- {-# LINE 2810 "dist/build/PrintCode" #-}- )) of- { !_subOoutputfile ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 2815 "dist/build/PrintCode" #-}- )) of- { !_subOoptions ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2820 "dist/build/PrintCode" #-}- )) of- { !_subOnested ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 2825 "dist/build/PrintCode" #-}- )) of- { !_subOisDeclOfLet ->- (case (sub_ _subOisDeclOfLet _subOnested _subOoptions _subOoutputfile) of- { ( !_subIpp) ->- (case (({-# LINE 257 "src-ag/PrintCode.ag" #-}- pp_parens (name_ >#< _subIpp)- {-# LINE 2832 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) }) })))--- NamedType ----------------------------------------------------{-- visit 0:- inherited attribute:- nested : Bool- synthesized attribute:- pp : PP_Doc- alternatives:- alternative Named:- child strict : {Bool}- child name : {String}- child tp : Type --}--- cata-sem_NamedType :: NamedType ->- T_NamedType-sem_NamedType !(Named _strict _name _tp) =- (sem_NamedType_Named _strict _name (sem_Type _tp))--- semantic domain-newtype T_NamedType = T_NamedType (Bool ->- ( PP_Doc))-data Inh_NamedType = Inh_NamedType {nested_Inh_NamedType :: !(Bool)}-data Syn_NamedType = Syn_NamedType {pp_Syn_NamedType :: !(PP_Doc)}-wrap_NamedType :: T_NamedType ->- Inh_NamedType ->- Syn_NamedType-wrap_NamedType !(T_NamedType sem) !(Inh_NamedType _lhsInested) =- (let ( !_lhsOpp) = sem _lhsInested- in (Syn_NamedType _lhsOpp))-sem_NamedType_Named :: Bool ->- String ->- T_Type ->- T_NamedType-sem_NamedType_Named !strict_ !name_ !(T_Type tp_) =- (T_NamedType (\ (!_lhsInested) ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2873 "dist/build/PrintCode" #-}- )) of- { !_tpOnested ->- (case (tp_ _tpOnested) of- { ( !_tpIpp,!_tpIprec) ->- (case (({-# LINE 226 "src-ag/PrintCode.ag" #-}- if strict_- then name_ >#< "::" >#< "!" >|< pp_parens _tpIpp- else name_ >#< "::" >#< _tpIpp- {-# LINE 2882 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- ( _lhsOpp) }) }) })))--- NamedTypes ---------------------------------------------------{-- visit 0:- inherited attribute:- nested : Bool- synthesized attribute:- pps : PP_Docs- alternatives:- alternative Cons:- child hd : NamedType - child tl : NamedTypes - alternative Nil:--}--- cata-sem_NamedTypes :: NamedTypes ->- T_NamedTypes-sem_NamedTypes !list =- (Prelude.foldr sem_NamedTypes_Cons sem_NamedTypes_Nil (Prelude.map sem_NamedType list))--- semantic domain-newtype T_NamedTypes = T_NamedTypes (Bool ->- ( PP_Docs))-data Inh_NamedTypes = Inh_NamedTypes {nested_Inh_NamedTypes :: !(Bool)}-data Syn_NamedTypes = Syn_NamedTypes {pps_Syn_NamedTypes :: !(PP_Docs)}-wrap_NamedTypes :: T_NamedTypes ->- Inh_NamedTypes ->- Syn_NamedTypes-wrap_NamedTypes !(T_NamedTypes sem) !(Inh_NamedTypes _lhsInested) =- (let ( !_lhsOpps) = sem _lhsInested- in (Syn_NamedTypes _lhsOpps))-sem_NamedTypes_Cons :: T_NamedType ->- T_NamedTypes ->- T_NamedTypes-sem_NamedTypes_Cons !(T_NamedType hd_) !(T_NamedTypes tl_) =- (T_NamedTypes (\ (!_lhsInested) ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2922 "dist/build/PrintCode" #-}- )) of- { !_tlOnested ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 2927 "dist/build/PrintCode" #-}- )) of- { !_hdOnested ->- (case (tl_ _tlOnested) of- { ( !_tlIpps) ->- (case (hd_ _hdOnested) of- { ( !_hdIpp) ->- (case (({-# LINE 81 "src-ag/PrintCode.ag" #-}- _hdIpp : _tlIpps- {-# LINE 2936 "dist/build/PrintCode" #-}- )) of- { !_lhsOpps ->- ( _lhsOpps) }) }) }) }) })))-sem_NamedTypes_Nil :: T_NamedTypes-sem_NamedTypes_Nil =- (T_NamedTypes (\ (!_lhsInested) ->- (case (({-# LINE 82 "src-ag/PrintCode.ag" #-}- []- {-# LINE 2945 "dist/build/PrintCode" #-}- )) of- { !_lhsOpps ->- ( _lhsOpps) })))--- Pattern ------------------------------------------------------{-- visit 0:- inherited attributes:- belowIrrefutable : Bool- isDeclOfLet : Bool- options : Options- synthesized attributes:- copy : Pattern - isUnderscore : Bool- pp : PP_Doc- pp' : PP_Doc- strictVars : [PP_Doc]- alternatives:- alternative Alias:- child field : {Identifier}- child attr : {Identifier}- child pat : Pattern - visit 0:- local copy : _- local ppVar : _- local addBang : _- local ppVarBang : _- local strictPatVars : _- local strictVar : _- alternative Constr:- child name : {ConstructorIdent}- child pats : Patterns - visit 0:- local copy : _- local addBang : _- alternative Irrefutable:- child pat : Pattern - visit 0:- local copy : _- alternative Product:- child pos : {Pos}- child pats : Patterns - visit 0:- local copy : _- local addBang : _- alternative Underscore:- child pos : {Pos}- visit 0:- local copy : _--}--- cata-sem_Pattern :: Pattern ->- T_Pattern-sem_Pattern !(Alias _field _attr _pat) =- (sem_Pattern_Alias _field _attr (sem_Pattern _pat))-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 (Bool ->- Bool ->- Options ->- ( Pattern,Bool,PP_Doc,PP_Doc,([PP_Doc])))-data Inh_Pattern = Inh_Pattern {belowIrrefutable_Inh_Pattern :: !(Bool),isDeclOfLet_Inh_Pattern :: !(Bool),options_Inh_Pattern :: !(Options)}-data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern),isUnderscore_Syn_Pattern :: !(Bool),pp_Syn_Pattern :: !(PP_Doc),pp'_Syn_Pattern :: !(PP_Doc),strictVars_Syn_Pattern :: !(([PP_Doc]))}-wrap_Pattern :: T_Pattern ->- Inh_Pattern ->- Syn_Pattern-wrap_Pattern !(T_Pattern sem) !(Inh_Pattern _lhsIbelowIrrefutable _lhsIisDeclOfLet _lhsIoptions) =- (let ( !_lhsOcopy,!_lhsOisUnderscore,!_lhsOpp,!_lhsOpp',!_lhsOstrictVars) = sem _lhsIbelowIrrefutable _lhsIisDeclOfLet _lhsIoptions- in (Syn_Pattern _lhsOcopy _lhsOisUnderscore _lhsOpp _lhsOpp' _lhsOstrictVars))-sem_Pattern_Alias :: Identifier ->- Identifier ->- T_Pattern ->- T_Pattern-sem_Pattern_Alias !field_ !attr_ !(T_Pattern pat_) =- (T_Pattern (\ (!_lhsIbelowIrrefutable)- (!_lhsIisDeclOfLet)- (!_lhsIoptions) ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 3031 "dist/build/PrintCode" #-}- )) of- { !_patOoptions ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 3036 "dist/build/PrintCode" #-}- )) of- { !_patOisDeclOfLet ->- (case (({-# LINE 373 "src-ag/PrintCode.ag" #-}- _lhsIbelowIrrefutable- {-# LINE 3041 "dist/build/PrintCode" #-}- )) of- { !_patObelowIrrefutable ->- (case (pat_ _patObelowIrrefutable _patOisDeclOfLet _patOoptions) of- { ( !_patIcopy,!_patIisUnderscore,!_patIpp,!_patIpp',!_patIstrictVars) ->- (case (({-# LINE 22 "src-ag/Patterns.ag" #-}- Alias field_ attr_ _patIcopy- {-# LINE 3048 "dist/build/PrintCode" #-}- )) of- { !_copy ->- (case (({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 3053 "dist/build/PrintCode" #-}- )) of- { !_lhsOcopy ->- (case (({-# LINE 370 "src-ag/PrintCode.ag" #-}- False- {-# LINE 3058 "dist/build/PrintCode" #-}- )) of- { !_lhsOisUnderscore ->- (case (({-# LINE 359 "src-ag/PrintCode.ag" #-}- pp (attrname False field_ attr_)- {-# LINE 3063 "dist/build/PrintCode" #-}- )) of- { !_ppVar ->- (case (({-# LINE 352 "src-ag/PrintCode.ag" #-}- if bangpats _lhsIoptions && not _lhsIisDeclOfLet && not _lhsIbelowIrrefutable- then \p -> "!" >|< p- else id- {-# LINE 3070 "dist/build/PrintCode" #-}- )) of- { !_addBang ->- (case (({-# LINE 360 "src-ag/PrintCode.ag" #-}- _addBang $ _ppVar- {-# LINE 3075 "dist/build/PrintCode" #-}- )) of- { !_ppVarBang ->- (case (({-# LINE 361 "src-ag/PrintCode.ag" #-}- if _patIisUnderscore- then _ppVarBang- else _ppVarBang >|< "@" >|< _patIpp- {-# LINE 3082 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- (case (({-# LINE 393 "src-ag/PrintCode.ag" #-}- let attribute | field_ == _LOC || field_ == nullIdent = locname' attr_- | otherwise = attrname False field_ attr_- in attribute >|< "@" >|< _patIpp'- {-# LINE 3089 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp' ->- (case (({-# LINE 333 "src-ag/PrintCode.ag" #-}- if stricterCases _lhsIoptions && not _lhsIisDeclOfLet- then _patIstrictVars- else []- {-# LINE 3096 "dist/build/PrintCode" #-}- )) of- { !_strictPatVars ->- (case (({-# LINE 329 "src-ag/PrintCode.ag" #-}- if strictCases _lhsIoptions && not _lhsIisDeclOfLet- then [_ppVar ]- else []- {-# LINE 3103 "dist/build/PrintCode" #-}- )) of- { !_strictVar ->- (case (({-# LINE 337 "src-ag/PrintCode.ag" #-}- _strictVar ++ _strictPatVars- {-# LINE 3108 "dist/build/PrintCode" #-}- )) of- { !_lhsOstrictVars ->- ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp,_lhsOpp',_lhsOstrictVars) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))-sem_Pattern_Constr :: ConstructorIdent ->- T_Patterns ->- T_Pattern-sem_Pattern_Constr !name_ !(T_Patterns pats_) =- (T_Pattern (\ (!_lhsIbelowIrrefutable)- (!_lhsIisDeclOfLet)- (!_lhsIoptions) ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 3121 "dist/build/PrintCode" #-}- )) of- { !_patsOoptions ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 3126 "dist/build/PrintCode" #-}- )) of- { !_patsOisDeclOfLet ->- (case (({-# LINE 373 "src-ag/PrintCode.ag" #-}- _lhsIbelowIrrefutable- {-# LINE 3131 "dist/build/PrintCode" #-}- )) of- { !_patsObelowIrrefutable ->- (case (pats_ _patsObelowIrrefutable _patsOisDeclOfLet _patsOoptions) of- { ( !_patsIcopy,!_patsIpps,!_patsIpps',!_patsIstrictVars) ->- (case (({-# LINE 22 "src-ag/Patterns.ag" #-}- Constr name_ _patsIcopy- {-# LINE 3138 "dist/build/PrintCode" #-}- )) of- { !_copy ->- (case (({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 3143 "dist/build/PrintCode" #-}- )) of- { !_lhsOcopy ->- (case (({-# LINE 368 "src-ag/PrintCode.ag" #-}- False- {-# LINE 3148 "dist/build/PrintCode" #-}- )) of- { !_lhsOisUnderscore ->- (case (({-# LINE 352 "src-ag/PrintCode.ag" #-}- if bangpats _lhsIoptions && not _lhsIisDeclOfLet && not _lhsIbelowIrrefutable- then \p -> "!" >|< p- else id- {-# LINE 3155 "dist/build/PrintCode" #-}- )) of- { !_addBang ->- (case (({-# LINE 357 "src-ag/PrintCode.ag" #-}- _addBang $ pp_parens $ name_ >#< hv_sp _patsIpps- {-# LINE 3160 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- (case (({-# LINE 391 "src-ag/PrintCode.ag" #-}- pp_parens $ name_ >#< hv_sp (map pp_parens _patsIpps')- {-# LINE 3165 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp' ->- (case (({-# LINE 326 "src-ag/PrintCode.ag" #-}- _patsIstrictVars- {-# LINE 3170 "dist/build/PrintCode" #-}- )) of- { !_lhsOstrictVars ->- ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp,_lhsOpp',_lhsOstrictVars) }) }) }) }) }) }) }) }) }) }) })))-sem_Pattern_Irrefutable :: T_Pattern ->- T_Pattern-sem_Pattern_Irrefutable !(T_Pattern pat_) =- (T_Pattern (\ (!_lhsIbelowIrrefutable)- (!_lhsIisDeclOfLet)- (!_lhsIoptions) ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 3182 "dist/build/PrintCode" #-}- )) of- { !_patOoptions ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 3187 "dist/build/PrintCode" #-}- )) of- { !_patOisDeclOfLet ->- (case (({-# LINE 376 "src-ag/PrintCode.ag" #-}- True- {-# LINE 3192 "dist/build/PrintCode" #-}- )) of- { !_patObelowIrrefutable ->- (case (pat_ _patObelowIrrefutable _patOisDeclOfLet _patOoptions) of- { ( !_patIcopy,!_patIisUnderscore,!_patIpp,!_patIpp',!_patIstrictVars) ->- (case (({-# LINE 22 "src-ag/Patterns.ag" #-}- Irrefutable _patIcopy- {-# LINE 3199 "dist/build/PrintCode" #-}- )) of- { !_copy ->- (case (({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 3204 "dist/build/PrintCode" #-}- )) of- { !_lhsOcopy ->- (case (({-# LINE 367 "src-ag/PrintCode.ag" #-}- _patIisUnderscore- {-# LINE 3209 "dist/build/PrintCode" #-}- )) of- { !_lhsOisUnderscore ->- (case (({-# LINE 364 "src-ag/PrintCode.ag" #-}- text "~" >|< pp_parens _patIpp- {-# LINE 3214 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- (case (({-# LINE 396 "src-ag/PrintCode.ag" #-}- text "~" >|< pp_parens _patIpp- {-# LINE 3219 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp' ->- (case (({-# LINE 340 "src-ag/PrintCode.ag" #-}- []- {-# LINE 3224 "dist/build/PrintCode" #-}- )) of- { !_lhsOstrictVars ->- ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp,_lhsOpp',_lhsOstrictVars) }) }) }) }) }) }) }) }) }) })))-sem_Pattern_Product :: Pos ->- T_Patterns ->- T_Pattern-sem_Pattern_Product !pos_ !(T_Patterns pats_) =- (T_Pattern (\ (!_lhsIbelowIrrefutable)- (!_lhsIisDeclOfLet)- (!_lhsIoptions) ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 3237 "dist/build/PrintCode" #-}- )) of- { !_patsOoptions ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 3242 "dist/build/PrintCode" #-}- )) of- { !_patsOisDeclOfLet ->- (case (({-# LINE 373 "src-ag/PrintCode.ag" #-}- _lhsIbelowIrrefutable- {-# LINE 3247 "dist/build/PrintCode" #-}- )) of- { !_patsObelowIrrefutable ->- (case (pats_ _patsObelowIrrefutable _patsOisDeclOfLet _patsOoptions) of- { ( !_patsIcopy,!_patsIpps,!_patsIpps',!_patsIstrictVars) ->- (case (({-# LINE 22 "src-ag/Patterns.ag" #-}- Product pos_ _patsIcopy- {-# LINE 3254 "dist/build/PrintCode" #-}- )) of- { !_copy ->- (case (({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 3259 "dist/build/PrintCode" #-}- )) of- { !_lhsOcopy ->- (case (({-# LINE 369 "src-ag/PrintCode.ag" #-}- False- {-# LINE 3264 "dist/build/PrintCode" #-}- )) of- { !_lhsOisUnderscore ->- (case (({-# LINE 352 "src-ag/PrintCode.ag" #-}- if bangpats _lhsIoptions && not _lhsIisDeclOfLet && not _lhsIbelowIrrefutable- then \p -> "!" >|< p- else id- {-# LINE 3271 "dist/build/PrintCode" #-}- )) of- { !_addBang ->- (case (({-# LINE 358 "src-ag/PrintCode.ag" #-}- _addBang $ pp_block "(" ")" "," _patsIpps- {-# LINE 3276 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- (case (({-# LINE 392 "src-ag/PrintCode.ag" #-}- pp_block "(" ")" "," _patsIpps'- {-# LINE 3281 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp' ->- (case (({-# LINE 326 "src-ag/PrintCode.ag" #-}- _patsIstrictVars- {-# LINE 3286 "dist/build/PrintCode" #-}- )) of- { !_lhsOstrictVars ->- ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp,_lhsOpp',_lhsOstrictVars) }) }) }) }) }) }) }) }) }) }) })))-sem_Pattern_Underscore :: Pos ->- T_Pattern-sem_Pattern_Underscore !pos_ =- (T_Pattern (\ (!_lhsIbelowIrrefutable)- (!_lhsIisDeclOfLet)- (!_lhsIoptions) ->- (case (({-# LINE 22 "src-ag/Patterns.ag" #-}- Underscore pos_- {-# LINE 3298 "dist/build/PrintCode" #-}- )) of- { !_copy ->- (case (({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 3303 "dist/build/PrintCode" #-}- )) of- { !_lhsOcopy ->- (case (({-# LINE 371 "src-ag/PrintCode.ag" #-}- True- {-# LINE 3308 "dist/build/PrintCode" #-}- )) of- { !_lhsOisUnderscore ->- (case (({-# LINE 365 "src-ag/PrintCode.ag" #-}- text "_"- {-# LINE 3313 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- (case (({-# LINE 397 "src-ag/PrintCode.ag" #-}- text "_"- {-# LINE 3318 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp' ->- (case (({-# LINE 326 "src-ag/PrintCode.ag" #-}- []- {-# LINE 3323 "dist/build/PrintCode" #-}- )) of- { !_lhsOstrictVars ->- ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp,_lhsOpp',_lhsOstrictVars) }) }) }) }) }) })))--- Patterns -----------------------------------------------------{-- visit 0:- inherited attributes:- belowIrrefutable : Bool- isDeclOfLet : Bool- options : Options- synthesized attributes:- copy : Patterns - pps : [PP_Doc]- pps' : [PP_Doc]- strictVars : [PP_Doc]- 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 (Bool ->- Bool ->- Options ->- ( Patterns,([PP_Doc]),([PP_Doc]),([PP_Doc])))-data Inh_Patterns = Inh_Patterns {belowIrrefutable_Inh_Patterns :: !(Bool),isDeclOfLet_Inh_Patterns :: !(Bool),options_Inh_Patterns :: !(Options)}-data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns),pps_Syn_Patterns :: !(([PP_Doc])),pps'_Syn_Patterns :: !(([PP_Doc])),strictVars_Syn_Patterns :: !(([PP_Doc]))}-wrap_Patterns :: T_Patterns ->- Inh_Patterns ->- Syn_Patterns-wrap_Patterns !(T_Patterns sem) !(Inh_Patterns _lhsIbelowIrrefutable _lhsIisDeclOfLet _lhsIoptions) =- (let ( !_lhsOcopy,!_lhsOpps,!_lhsOpps',!_lhsOstrictVars) = sem _lhsIbelowIrrefutable _lhsIisDeclOfLet _lhsIoptions- in (Syn_Patterns _lhsOcopy _lhsOpps _lhsOpps' _lhsOstrictVars))-sem_Patterns_Cons :: T_Pattern ->- T_Patterns ->- T_Patterns-sem_Patterns_Cons !(T_Pattern hd_) !(T_Patterns tl_) =- (T_Patterns (\ (!_lhsIbelowIrrefutable)- (!_lhsIisDeclOfLet)- (!_lhsIoptions) ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 3376 "dist/build/PrintCode" #-}- )) of- { !_tlOoptions ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 3381 "dist/build/PrintCode" #-}- )) of- { !_tlOisDeclOfLet ->- (case (({-# LINE 373 "src-ag/PrintCode.ag" #-}- _lhsIbelowIrrefutable- {-# LINE 3386 "dist/build/PrintCode" #-}- )) of- { !_tlObelowIrrefutable ->- (case (tl_ _tlObelowIrrefutable _tlOisDeclOfLet _tlOoptions) of- { ( !_tlIcopy,!_tlIpps,!_tlIpps',!_tlIstrictVars) ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _lhsIoptions- {-# LINE 3393 "dist/build/PrintCode" #-}- )) of- { !_hdOoptions ->- (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}- _lhsIisDeclOfLet- {-# LINE 3398 "dist/build/PrintCode" #-}- )) of- { !_hdOisDeclOfLet ->- (case (({-# LINE 373 "src-ag/PrintCode.ag" #-}- _lhsIbelowIrrefutable- {-# LINE 3403 "dist/build/PrintCode" #-}- )) of- { !_hdObelowIrrefutable ->- (case (hd_ _hdObelowIrrefutable _hdOisDeclOfLet _hdOoptions) of- { ( !_hdIcopy,!_hdIisUnderscore,!_hdIpp,!_hdIpp',!_hdIstrictVars) ->- (case (({-# LINE 22 "src-ag/Patterns.ag" #-}- (:) _hdIcopy _tlIcopy- {-# LINE 3410 "dist/build/PrintCode" #-}- )) of- { !_copy ->- (case (({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 3415 "dist/build/PrintCode" #-}- )) of- { !_lhsOcopy ->- (case (({-# LINE 347 "src-ag/PrintCode.ag" #-}- _hdIpp : _tlIpps- {-# LINE 3420 "dist/build/PrintCode" #-}- )) of- { !_lhsOpps ->- (case (({-# LINE 387 "src-ag/PrintCode.ag" #-}- _hdIpp' : _tlIpps'- {-# LINE 3425 "dist/build/PrintCode" #-}- )) of- { !_lhsOpps' ->- (case (({-# LINE 326 "src-ag/PrintCode.ag" #-}- _hdIstrictVars ++ _tlIstrictVars- {-# LINE 3430 "dist/build/PrintCode" #-}- )) of- { !_lhsOstrictVars ->- ( _lhsOcopy,_lhsOpps,_lhsOpps',_lhsOstrictVars) }) }) }) }) }) }) }) }) }) }) }) }) })))-sem_Patterns_Nil :: T_Patterns-sem_Patterns_Nil =- (T_Patterns (\ (!_lhsIbelowIrrefutable)- (!_lhsIisDeclOfLet)- (!_lhsIoptions) ->- (case (({-# LINE 22 "src-ag/Patterns.ag" #-}- []- {-# LINE 3441 "dist/build/PrintCode" #-}- )) of- { !_copy ->- (case (({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 3446 "dist/build/PrintCode" #-}- )) of- { !_lhsOcopy ->- (case (({-# LINE 348 "src-ag/PrintCode.ag" #-}- []- {-# LINE 3451 "dist/build/PrintCode" #-}- )) of- { !_lhsOpps ->- (case (({-# LINE 388 "src-ag/PrintCode.ag" #-}- []- {-# LINE 3456 "dist/build/PrintCode" #-}- )) of- { !_lhsOpps' ->- (case (({-# LINE 326 "src-ag/PrintCode.ag" #-}- []- {-# LINE 3461 "dist/build/PrintCode" #-}- )) of- { !_lhsOstrictVars ->- ( _lhsOcopy,_lhsOpps,_lhsOpps',_lhsOstrictVars) }) }) }) }) })))--- Program ------------------------------------------------------{-- visit 0:- inherited attributes:- importBlocks : PP_Doc- mainBlocksDoc : PP_Doc- mainFile : String- mainName : String- moduleHeader : String -> String -> String -> Bool -> String- options : Options- optionsLine : String- pragmaBlocks : String- textBlockMap : Map BlockInfo PP_Doc- textBlocks : PP_Doc- synthesized attributes:- genIO : IO ()- output : PP_Docs- alternatives:- alternative Program:- child chunks : Chunks - child ordered : {Bool}- visit 0:- local options : _- local commonFile : _- local genCommonModule : _- local mainModuleFile : _- local genMainModule : _--}--- cata-sem_Program :: Program ->- T_Program-sem_Program !(Program _chunks _ordered) =- (sem_Program_Program (sem_Chunks _chunks) _ordered)--- semantic domain-newtype T_Program = T_Program (PP_Doc ->- PP_Doc ->- String ->- String ->- (String -> String -> String -> Bool -> String) ->- Options ->- String ->- String ->- (Map BlockInfo PP_Doc) ->- PP_Doc ->- ( (IO ()),PP_Docs))-data Inh_Program = Inh_Program {importBlocks_Inh_Program :: !(PP_Doc),mainBlocksDoc_Inh_Program :: !(PP_Doc),mainFile_Inh_Program :: !(String),mainName_Inh_Program :: !(String),moduleHeader_Inh_Program :: !((String -> String -> String -> Bool -> String)),options_Inh_Program :: !(Options),optionsLine_Inh_Program :: !(String),pragmaBlocks_Inh_Program :: !(String),textBlockMap_Inh_Program :: !((Map BlockInfo PP_Doc)),textBlocks_Inh_Program :: !(PP_Doc)}-data Syn_Program = Syn_Program {genIO_Syn_Program :: !((IO ())),output_Syn_Program :: !(PP_Docs)}-wrap_Program :: T_Program ->- Inh_Program ->- Syn_Program-wrap_Program !(T_Program sem) !(Inh_Program _lhsIimportBlocks _lhsImainBlocksDoc _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsIoptions _lhsIoptionsLine _lhsIpragmaBlocks _lhsItextBlockMap _lhsItextBlocks) =- (let ( !_lhsOgenIO,!_lhsOoutput) = sem _lhsIimportBlocks _lhsImainBlocksDoc _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsIoptions _lhsIoptionsLine _lhsIpragmaBlocks _lhsItextBlockMap _lhsItextBlocks- in (Syn_Program _lhsOgenIO _lhsOoutput))-sem_Program_Program :: T_Chunks ->- Bool ->- T_Program-sem_Program_Program !(T_Chunks chunks_) !ordered_ =- (T_Program (\ (!_lhsIimportBlocks)- (!_lhsImainBlocksDoc)- (!_lhsImainFile)- (!_lhsImainName)- (!_lhsImoduleHeader)- (!_lhsIoptions)- (!_lhsIoptionsLine)- (!_lhsIpragmaBlocks)- (!_lhsItextBlockMap)- (!_lhsItextBlocks) ->- (case (({-# LINE 435 "src-ag/PrintCode.ag" #-}- _lhsItextBlockMap- {-# LINE 3534 "dist/build/PrintCode" #-}- )) of- { !_chunksOtextBlockMap ->- (case (({-# LINE 433 "src-ag/PrintCode.ag" #-}- _lhsIpragmaBlocks- {-# LINE 3539 "dist/build/PrintCode" #-}- )) of- { !_chunksOpragmaBlocks ->- (case (({-# LINE 436 "src-ag/PrintCode.ag" #-}- _lhsIoptionsLine- {-# LINE 3544 "dist/build/PrintCode" #-}- )) of- { !_chunksOoptionsLine ->- (case (({-# LINE 59 "src-ag/PrintCode.ag" #-}- _lhsIoptions { breadthFirst = breadthFirst _lhsIoptions && visit _lhsIoptions && cases _lhsIoptions && ordered_ }- {-# LINE 3549 "dist/build/PrintCode" #-}- )) of- { !_options ->- (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}- _options- {-# LINE 3554 "dist/build/PrintCode" #-}- )) of- { !_chunksOoptions ->- (case (({-# LINE 439 "src-ag/PrintCode.ag" #-}- _lhsImoduleHeader- {-# LINE 3559 "dist/build/PrintCode" #-}- )) of- { !_chunksOmoduleHeader ->- (case (({-# LINE 438 "src-ag/PrintCode.ag" #-}- _lhsImainName- {-# LINE 3564 "dist/build/PrintCode" #-}- )) of- { !_chunksOmainName ->- (case (({-# LINE 437 "src-ag/PrintCode.ag" #-}- _lhsImainFile- {-# LINE 3569 "dist/build/PrintCode" #-}- )) of- { !_chunksOmainFile ->- (case (({-# LINE 457 "src-ag/PrintCode.ag" #-}- replaceBaseName _lhsImainFile (takeBaseName _lhsImainFile ++ "_common")- {-# LINE 3574 "dist/build/PrintCode" #-}- )) of- { !_commonFile ->- (case (({-# LINE 410 "src-ag/PrintCode.ag" #-}- False- {-# LINE 3579 "dist/build/PrintCode" #-}- )) of- { !_chunksOisDeclOfLet ->- (case (({-# LINE 62 "src-ag/PrintCode.ag" #-}- nest _lhsIoptions- {-# LINE 3584 "dist/build/PrintCode" #-}- )) of- { !_chunksOnested ->- (case (({-# LINE 434 "src-ag/PrintCode.ag" #-}- _lhsItextBlocks- {-# LINE 3589 "dist/build/PrintCode" #-}- )) of- { !_chunksOtextBlocks ->- (case (({-# LINE 432 "src-ag/PrintCode.ag" #-}- _lhsIimportBlocks- {-# LINE 3594 "dist/build/PrintCode" #-}- )) of- { !_chunksOimportBlocks ->- (case (chunks_ _chunksOimportBlocks _chunksOisDeclOfLet _chunksOmainFile _chunksOmainName _chunksOmoduleHeader _chunksOnested _chunksOoptions _chunksOoptionsLine _chunksOpragmaBlocks _chunksOtextBlockMap _chunksOtextBlocks) of- { ( !_chunksIappendCommon,!_chunksIappendMain,!_chunksIgenSems,!_chunksIimports,!_chunksIpps) ->- (case (({-# LINE 458 "src-ag/PrintCode.ag" #-}- writeModule _commonFile- ( [ pp $ _lhsIpragmaBlocks- , pp $ _lhsIoptionsLine- , pp $ _lhsImoduleHeader _lhsImainName "_common" "" True- , _lhsIimportBlocks- , _lhsItextBlocks- ]- ++ map vlist _chunksIappendCommon- )- {-# LINE 3609 "dist/build/PrintCode" #-}- )) of- { !_genCommonModule ->- (case (({-# LINE 444 "src-ag/PrintCode.ag" #-}- _lhsImainFile- {-# LINE 3614 "dist/build/PrintCode" #-}- )) of- { !_mainModuleFile ->- (case (({-# LINE 445 "src-ag/PrintCode.ag" #-}- writeModule _mainModuleFile- ( [ pp $ _lhsIpragmaBlocks- , pp $ _lhsIoptionsLine- , pp $ _lhsImoduleHeader _lhsImainName "" "" False- , pp $ ("import " ++ _lhsImainName ++ "_common\n")- ]- ++ map pp _chunksIimports- ++ map vlist _chunksIappendMain- ++ [_lhsImainBlocksDoc]- )- {-# LINE 3628 "dist/build/PrintCode" #-}- )) of- { !_genMainModule ->- (case (({-# LINE 469 "src-ag/PrintCode.ag" #-}- do _genMainModule- _genCommonModule- _chunksIgenSems- {-# LINE 3635 "dist/build/PrintCode" #-}- )) of- { !_lhsOgenIO ->- (case (({-# LINE 94 "src-ag/PrintCode.ag" #-}- _chunksIpps- {-# LINE 3640 "dist/build/PrintCode" #-}- )) of- { !_lhsOoutput ->- ( _lhsOgenIO,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))--- Type ---------------------------------------------------------{-- visit 0:- inherited attribute:- nested : Bool- synthesized attributes:- pp : PP_Doc- prec : Int- alternatives:- alternative Arr:- child left : Type - child right : Type - visit 0:- local r : _- local l : _- alternative CtxApp:- child left : {[(String, [String])]}- child right : Type - alternative List:- child tp : Type - alternative NontermType:- child name : {String}- child params : {[String]}- child deforested : {Bool}- visit 0:- local prefix : _- alternative QuantApp:- child left : {String}- child right : Type - alternative SimpleType:- child txt : {String}- alternative TEither:- child left : Type - child right : Type - alternative TIntMap:- child value : Type - alternative TMap:- child key : Type - child value : Type - alternative TMaybe:- child tp : Type - alternative TupleType:- child tps : Types - alternative TypeApp:- child func : Type - child args : Types - alternative UnboxedTupleType:- child tps : Types --}--- cata-sem_Type :: Type ->- T_Type-sem_Type !(Arr _left _right) =- (sem_Type_Arr (sem_Type _left) (sem_Type _right))-sem_Type !(CtxApp _left _right) =- (sem_Type_CtxApp _left (sem_Type _right))-sem_Type !(List _tp) =- (sem_Type_List (sem_Type _tp))-sem_Type !(NontermType _name _params _deforested) =- (sem_Type_NontermType _name _params _deforested)-sem_Type !(QuantApp _left _right) =- (sem_Type_QuantApp _left (sem_Type _right))-sem_Type !(SimpleType _txt) =- (sem_Type_SimpleType _txt)-sem_Type !(TEither _left _right) =- (sem_Type_TEither (sem_Type _left) (sem_Type _right))-sem_Type !(TIntMap _value) =- (sem_Type_TIntMap (sem_Type _value))-sem_Type !(TMap _key _value) =- (sem_Type_TMap (sem_Type _key) (sem_Type _value))-sem_Type !(TMaybe _tp) =- (sem_Type_TMaybe (sem_Type _tp))-sem_Type !(TupleType _tps) =- (sem_Type_TupleType (sem_Types _tps))-sem_Type !(TypeApp _func _args) =- (sem_Type_TypeApp (sem_Type _func) (sem_Types _args))-sem_Type !(UnboxedTupleType _tps) =- (sem_Type_UnboxedTupleType (sem_Types _tps))--- semantic domain-newtype T_Type = T_Type (Bool ->- ( PP_Doc,Int))-data Inh_Type = Inh_Type {nested_Inh_Type :: !(Bool)}-data Syn_Type = Syn_Type {pp_Syn_Type :: !(PP_Doc),prec_Syn_Type :: !(Int)}-wrap_Type :: T_Type ->- Inh_Type ->- Syn_Type-wrap_Type !(T_Type sem) !(Inh_Type _lhsInested) =- (let ( !_lhsOpp,!_lhsOprec) = sem _lhsInested- in (Syn_Type _lhsOpp _lhsOprec))-sem_Type_Arr :: T_Type ->- T_Type ->- T_Type-sem_Type_Arr !(T_Type left_) !(T_Type right_) =- (T_Type (\ (!_lhsInested) ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 3740 "dist/build/PrintCode" #-}- )) of- { !_rightOnested ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 3745 "dist/build/PrintCode" #-}- )) of- { !_leftOnested ->- (case (right_ _rightOnested) of- { ( !_rightIpp,!_rightIprec) ->- (case (({-# LINE 263 "src-ag/PrintCode.ag" #-}- if _rightIprec < 2 then pp_parens _rightIpp else _rightIpp- {-# LINE 3752 "dist/build/PrintCode" #-}- )) of- { !_r ->- (case (left_ _leftOnested) of- { ( !_leftIpp,!_leftIprec) ->- (case (({-# LINE 262 "src-ag/PrintCode.ag" #-}- if _leftIprec <= 2 then pp_parens _leftIpp else _leftIpp- {-# LINE 3759 "dist/build/PrintCode" #-}- )) of- { !_l ->- (case (({-# LINE 261 "src-ag/PrintCode.ag" #-}- _l >#< "->" >-< _r- {-# LINE 3764 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- (case (({-# LINE 260 "src-ag/PrintCode.ag" #-}- 2- {-# LINE 3769 "dist/build/PrintCode" #-}- )) of- { !_lhsOprec ->- ( _lhsOpp,_lhsOprec) }) }) }) }) }) }) }) })))-sem_Type_CtxApp :: ([(String, [String])]) ->- T_Type ->- T_Type-sem_Type_CtxApp !left_ !(T_Type right_) =- (T_Type (\ (!_lhsInested) ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 3780 "dist/build/PrintCode" #-}- )) of- { !_rightOnested ->- (case (right_ _rightOnested) of- { ( !_rightIpp,!_rightIprec) ->- (case (({-# LINE 269 "src-ag/PrintCode.ag" #-}- (pp_block "(" ")" "," $ map (\(n,ns) -> hv_sp $ map pp (n:ns)) left_) >#< "=>" >#< _rightIpp- {-# LINE 3787 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- (case (({-# LINE 259 "src-ag/PrintCode.ag" #-}- _rightIprec- {-# LINE 3792 "dist/build/PrintCode" #-}- )) of- { !_lhsOprec ->- ( _lhsOpp,_lhsOprec) }) }) }) })))-sem_Type_List :: T_Type ->- T_Type-sem_Type_List !(T_Type tp_) =- (T_Type (\ (!_lhsInested) ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 3802 "dist/build/PrintCode" #-}- )) of- { !_tpOnested ->- (case (tp_ _tpOnested) of- { ( !_tpIpp,!_tpIprec) ->- (case (({-# LINE 280 "src-ag/PrintCode.ag" #-}- "[" >|< _tpIpp >|< "]"- {-# LINE 3809 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- (case (({-# LINE 279 "src-ag/PrintCode.ag" #-}- 5- {-# LINE 3814 "dist/build/PrintCode" #-}- )) of- { !_lhsOprec ->- ( _lhsOpp,_lhsOprec) }) }) }) })))-sem_Type_NontermType :: String ->- ([String]) ->- Bool ->- T_Type-sem_Type_NontermType !name_ !params_ !deforested_ =- (T_Type (\ (!_lhsInested) ->- (case (({-# LINE 287 "src-ag/PrintCode.ag" #-}- if deforested_- then text "T_"- else empty- {-# LINE 3828 "dist/build/PrintCode" #-}- )) of- { !_prefix ->- (case (({-# LINE 286 "src-ag/PrintCode.ag" #-}- _prefix >|< text name_ >#< hv_sp params_- {-# LINE 3833 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- (case (({-# LINE 285 "src-ag/PrintCode.ag" #-}- 5- {-# LINE 3838 "dist/build/PrintCode" #-}- )) of- { !_lhsOprec ->- ( _lhsOpp,_lhsOprec) }) }) })))-sem_Type_QuantApp :: String ->- T_Type ->- T_Type-sem_Type_QuantApp !left_ !(T_Type right_) =- (T_Type (\ (!_lhsInested) ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 3849 "dist/build/PrintCode" #-}- )) of- { !_rightOnested ->- (case (right_ _rightOnested) of- { ( !_rightIpp,!_rightIprec) ->- (case (({-# LINE 271 "src-ag/PrintCode.ag" #-}- left_ >#< _rightIpp- {-# LINE 3856 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- (case (({-# LINE 259 "src-ag/PrintCode.ag" #-}- _rightIprec- {-# LINE 3861 "dist/build/PrintCode" #-}- )) of- { !_lhsOprec ->- ( _lhsOpp,_lhsOprec) }) }) }) })))-sem_Type_SimpleType :: String ->- T_Type-sem_Type_SimpleType !txt_ =- (T_Type (\ (!_lhsInested) ->- (case (({-# LINE 283 "src-ag/PrintCode.ag" #-}- if reallySimple txt_ then text txt_ else pp_parens (text txt_)- {-# LINE 3871 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- (case (({-# LINE 282 "src-ag/PrintCode.ag" #-}- 5- {-# LINE 3876 "dist/build/PrintCode" #-}- )) of- { !_lhsOprec ->- ( _lhsOpp,_lhsOprec) }) })))-sem_Type_TEither :: T_Type ->- T_Type ->- T_Type-sem_Type_TEither !(T_Type left_) !(T_Type right_) =- (T_Type (\ (!_lhsInested) ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 3887 "dist/build/PrintCode" #-}- )) of- { !_rightOnested ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 3892 "dist/build/PrintCode" #-}- )) of- { !_leftOnested ->- (case (right_ _rightOnested) of- { ( !_rightIpp,!_rightIprec) ->- (case (left_ _leftOnested) of- { ( !_leftIpp,!_leftIprec) ->- (case (({-# LINE 293 "src-ag/PrintCode.ag" #-}- text "Either" >#< pp_parens _leftIpp >#< pp_parens _rightIpp- {-# LINE 3901 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- (case (({-# LINE 292 "src-ag/PrintCode.ag" #-}- 5- {-# LINE 3906 "dist/build/PrintCode" #-}- )) of- { !_lhsOprec ->- ( _lhsOpp,_lhsOprec) }) }) }) }) }) })))-sem_Type_TIntMap :: T_Type ->- T_Type-sem_Type_TIntMap !(T_Type value_) =- (T_Type (\ (!_lhsInested) ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 3916 "dist/build/PrintCode" #-}- )) of- { !_valueOnested ->- (case (value_ _valueOnested) of- { ( !_valueIpp,!_valueIprec) ->- (case (({-# LINE 297 "src-ag/PrintCode.ag" #-}- text "Data.IntMap.IntMap" >#< pp_parens _valueIpp- {-# LINE 3923 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- (case (({-# LINE 296 "src-ag/PrintCode.ag" #-}- 5- {-# LINE 3928 "dist/build/PrintCode" #-}- )) of- { !_lhsOprec ->- ( _lhsOpp,_lhsOprec) }) }) }) })))-sem_Type_TMap :: T_Type ->- T_Type ->- T_Type-sem_Type_TMap !(T_Type key_) !(T_Type value_) =- (T_Type (\ (!_lhsInested) ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 3939 "dist/build/PrintCode" #-}- )) of- { !_valueOnested ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 3944 "dist/build/PrintCode" #-}- )) of- { !_keyOnested ->- (case (value_ _valueOnested) of- { ( !_valueIpp,!_valueIprec) ->- (case (key_ _keyOnested) of- { ( !_keyIpp,!_keyIprec) ->- (case (({-# LINE 295 "src-ag/PrintCode.ag" #-}- text "Data.Map.Map" >#< pp_parens _keyIpp >#< pp_parens _valueIpp- {-# LINE 3953 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- (case (({-# LINE 294 "src-ag/PrintCode.ag" #-}- 5- {-# LINE 3958 "dist/build/PrintCode" #-}- )) of- { !_lhsOprec ->- ( _lhsOpp,_lhsOprec) }) }) }) }) }) })))-sem_Type_TMaybe :: T_Type ->- T_Type-sem_Type_TMaybe !(T_Type tp_) =- (T_Type (\ (!_lhsInested) ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 3968 "dist/build/PrintCode" #-}- )) of- { !_tpOnested ->- (case (tp_ _tpOnested) of- { ( !_tpIpp,!_tpIprec) ->- (case (({-# LINE 291 "src-ag/PrintCode.ag" #-}- text "Maybe" >#< _tpIpp- {-# LINE 3975 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- (case (({-# LINE 290 "src-ag/PrintCode.ag" #-}- 5- {-# LINE 3980 "dist/build/PrintCode" #-}- )) of- { !_lhsOprec ->- ( _lhsOpp,_lhsOprec) }) }) }) })))-sem_Type_TupleType :: T_Types ->- T_Type-sem_Type_TupleType !(T_Types tps_) =- (T_Type (\ (!_lhsInested) ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 3990 "dist/build/PrintCode" #-}- )) of- { !_tpsOnested ->- (case (tps_ _tpsOnested) of- { ( !_tpsIpps) ->- (case (({-# LINE 274 "src-ag/PrintCode.ag" #-}- ppTuple _lhsInested _tpsIpps- {-# LINE 3997 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- (case (({-# LINE 273 "src-ag/PrintCode.ag" #-}- 5- {-# LINE 4002 "dist/build/PrintCode" #-}- )) of- { !_lhsOprec ->- ( _lhsOpp,_lhsOprec) }) }) }) })))-sem_Type_TypeApp :: T_Type ->- T_Types ->- T_Type-sem_Type_TypeApp !(T_Type func_) !(T_Types args_) =- (T_Type (\ (!_lhsInested) ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 4013 "dist/build/PrintCode" #-}- )) of- { !_argsOnested ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 4018 "dist/build/PrintCode" #-}- )) of- { !_funcOnested ->- (case (args_ _argsOnested) of- { ( !_argsIpps) ->- (case (func_ _funcOnested) of- { ( !_funcIpp,!_funcIprec) ->- (case (({-# LINE 266 "src-ag/PrintCode.ag" #-}- hv_sp (_funcIpp : _argsIpps)- {-# LINE 4027 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- (case (({-# LINE 259 "src-ag/PrintCode.ag" #-}- _funcIprec- {-# LINE 4032 "dist/build/PrintCode" #-}- )) of- { !_lhsOprec ->- ( _lhsOpp,_lhsOprec) }) }) }) }) }) })))-sem_Type_UnboxedTupleType :: T_Types ->- T_Type-sem_Type_UnboxedTupleType !(T_Types tps_) =- (T_Type (\ (!_lhsInested) ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 4042 "dist/build/PrintCode" #-}- )) of- { !_tpsOnested ->- (case (tps_ _tpsOnested) of- { ( !_tpsIpps) ->- (case (({-# LINE 277 "src-ag/PrintCode.ag" #-}- ppUnboxedTuple _lhsInested _tpsIpps- {-# LINE 4049 "dist/build/PrintCode" #-}- )) of- { !_lhsOpp ->- (case (({-# LINE 276 "src-ag/PrintCode.ag" #-}- 5- {-# LINE 4054 "dist/build/PrintCode" #-}- )) of- { !_lhsOprec ->- ( _lhsOpp,_lhsOprec) }) }) }) })))--- Types --------------------------------------------------------{-- visit 0:- inherited attribute:- nested : Bool- synthesized attribute:- pps : PP_Docs- alternatives:- alternative Cons:- child hd : Type - child tl : Types - alternative Nil:--}--- cata-sem_Types :: Types ->- T_Types-sem_Types !list =- (Prelude.foldr sem_Types_Cons sem_Types_Nil (Prelude.map sem_Type list))--- semantic domain-newtype T_Types = T_Types (Bool ->- ( PP_Docs))-data Inh_Types = Inh_Types {nested_Inh_Types :: !(Bool)}-data Syn_Types = Syn_Types {pps_Syn_Types :: !(PP_Docs)}-wrap_Types :: T_Types ->- Inh_Types ->- Syn_Types-wrap_Types !(T_Types sem) !(Inh_Types _lhsInested) =- (let ( !_lhsOpps) = sem _lhsInested- in (Syn_Types _lhsOpps))-sem_Types_Cons :: T_Type ->- T_Types ->- T_Types-sem_Types_Cons !(T_Type hd_) !(T_Types tl_) =- (T_Types (\ (!_lhsInested) ->- (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 4094 "dist/build/PrintCode" #-}- )) of- { !_tlOnested ->- (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}- _lhsInested- {-# LINE 4099 "dist/build/PrintCode" #-}- )) of- { !_hdOnested ->- (case (tl_ _tlOnested) of- { ( !_tlIpps) ->- (case (hd_ _hdOnested) of- { ( !_hdIpp,!_hdIprec) ->- (case (({-# LINE 77 "src-ag/PrintCode.ag" #-}- _hdIpp : _tlIpps- {-# LINE 4108 "dist/build/PrintCode" #-}- )) of- { !_lhsOpps ->- ( _lhsOpps) }) }) }) }) })))-sem_Types_Nil :: T_Types-sem_Types_Nil =- (T_Types (\ (!_lhsInested) ->- (case (({-# LINE 78 "src-ag/PrintCode.ag" #-}- []- {-# LINE 4117 "dist/build/PrintCode" #-}- )) of- { !_lhsOpps ->- ( _lhsOpps) })))+ (case ((Syn_CaseAlt _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }) }) }) }) }) }) }) }) }) })))+-- CaseAlts ----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ nested : Bool+ options : Options+ outputfile : String+ synthesized attribute:+ pps : PP_Docs+ alternatives:+ alternative Cons:+ child hd : CaseAlt + child tl : CaseAlts + alternative Nil:+-}+-- cata+sem_CaseAlts :: CaseAlts ->+ T_CaseAlts+sem_CaseAlts !list =+ (Prelude.foldr sem_CaseAlts_Cons sem_CaseAlts_Nil (Prelude.map sem_CaseAlt list))+-- semantic domain+newtype T_CaseAlts = T_CaseAlts (Bool ->+ Options ->+ String ->+ ( PP_Docs))+data Inh_CaseAlts = Inh_CaseAlts {nested_Inh_CaseAlts :: !(Bool),options_Inh_CaseAlts :: !(Options),outputfile_Inh_CaseAlts :: !(String)}+data Syn_CaseAlts = Syn_CaseAlts {pps_Syn_CaseAlts :: !(PP_Docs)}+wrap_CaseAlts :: T_CaseAlts ->+ Inh_CaseAlts ->+ Syn_CaseAlts+wrap_CaseAlts !(T_CaseAlts sem) !(Inh_CaseAlts _lhsInested _lhsIoptions _lhsIoutputfile) =+ (let ( !_lhsOpps) = sem _lhsInested _lhsIoptions _lhsIoutputfile+ in (Syn_CaseAlts _lhsOpps))+sem_CaseAlts_Cons :: T_CaseAlt ->+ T_CaseAlts ->+ T_CaseAlts+sem_CaseAlts_Cons !(T_CaseAlt hd_) !(T_CaseAlts tl_) =+ (T_CaseAlts (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 243 "dist/build/PrintCode" #-}+ )) of+ { !_tlOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 248 "dist/build/PrintCode" #-}+ )) of+ { !_tlOoptions ->+ (case (({-# LINE 56 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 253 "dist/build/PrintCode" #-}+ )) of+ { !_tlOnested ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 258 "dist/build/PrintCode" #-}+ )) of+ { !_hdOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 263 "dist/build/PrintCode" #-}+ )) of+ { !_hdOoptions ->+ (case (({-# LINE 56 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 268 "dist/build/PrintCode" #-}+ )) of+ { !_hdOnested ->+ (case (tl_ _tlOnested _tlOoptions _tlOoutputfile) of+ { ( !_tlIpps) ->+ (case (hd_ _hdOnested _hdOoptions _hdOoutputfile) of+ { ( !_hdIpps) ->+ (case (({-# LINE 69 "src-ag/PrintCode.ag" #-}+ _hdIpps ++ _tlIpps+ {-# LINE 277 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpps ->+ (case ((Syn_CaseAlts _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }) }) }) }) }) }) }) }) })))+sem_CaseAlts_Nil :: T_CaseAlts+sem_CaseAlts_Nil =+ (T_CaseAlts (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 70 "src-ag/PrintCode.ag" #-}+ []+ {-# LINE 290 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpps ->+ (case ((Syn_CaseAlts _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) })))+-- Chunk -------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ importBlocks : PP_Doc+ isDeclOfLet : Bool+ mainFile : String+ mainName : String+ moduleHeader : String -> String -> String -> Bool -> String+ nested : Bool+ options : Options+ optionsLine : String+ pragmaBlocks : String+ textBlockMap : Map BlockInfo PP_Doc+ textBlocks : PP_Doc+ synthesized attributes:+ appendCommon : [[PP_Doc]]+ appendMain : [[PP_Doc]]+ genSems : IO ()+ imports : [String]+ pps : PP_Docs+ alternatives:+ alternative Chunk:+ child name : {String}+ child comment : Decl + child info : Decls + child dataDef : Decls + child cataFun : Decls + child semDom : Decls + child semWrapper : Decls + child semFunctions : Decls + child semNames : {[String]}+ visit 0:+ local outputfile : _+ local exports : _+-}+-- cata+sem_Chunk :: Chunk ->+ T_Chunk+sem_Chunk !(Chunk _name _comment _info _dataDef _cataFun _semDom _semWrapper _semFunctions _semNames) =+ (sem_Chunk_Chunk _name (sem_Decl _comment) (sem_Decls _info) (sem_Decls _dataDef) (sem_Decls _cataFun) (sem_Decls _semDom) (sem_Decls _semWrapper) (sem_Decls _semFunctions) _semNames)+-- semantic domain+newtype T_Chunk = T_Chunk (PP_Doc ->+ Bool ->+ String ->+ String ->+ (String -> String -> String -> Bool -> String) ->+ Bool ->+ Options ->+ String ->+ String ->+ (Map BlockInfo PP_Doc) ->+ PP_Doc ->+ ( ([[PP_Doc]]),([[PP_Doc]]),(IO ()),([String]),PP_Docs))+data Inh_Chunk = Inh_Chunk {importBlocks_Inh_Chunk :: !(PP_Doc),isDeclOfLet_Inh_Chunk :: !(Bool),mainFile_Inh_Chunk :: !(String),mainName_Inh_Chunk :: !(String),moduleHeader_Inh_Chunk :: !((String -> String -> String -> Bool -> String)),nested_Inh_Chunk :: !(Bool),options_Inh_Chunk :: !(Options),optionsLine_Inh_Chunk :: !(String),pragmaBlocks_Inh_Chunk :: !(String),textBlockMap_Inh_Chunk :: !((Map BlockInfo PP_Doc)),textBlocks_Inh_Chunk :: !(PP_Doc)}+data Syn_Chunk = Syn_Chunk {appendCommon_Syn_Chunk :: !(([[PP_Doc]])),appendMain_Syn_Chunk :: !(([[PP_Doc]])),genSems_Syn_Chunk :: !((IO ())),imports_Syn_Chunk :: !(([String])),pps_Syn_Chunk :: !(PP_Docs)}+wrap_Chunk :: T_Chunk ->+ Inh_Chunk ->+ Syn_Chunk+wrap_Chunk !(T_Chunk sem) !(Inh_Chunk _lhsIimportBlocks _lhsIisDeclOfLet _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInested _lhsIoptions _lhsIoptionsLine _lhsIpragmaBlocks _lhsItextBlockMap _lhsItextBlocks) =+ (let ( !_lhsOappendCommon,!_lhsOappendMain,!_lhsOgenSems,!_lhsOimports,!_lhsOpps) = sem _lhsIimportBlocks _lhsIisDeclOfLet _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInested _lhsIoptions _lhsIoptionsLine _lhsIpragmaBlocks _lhsItextBlockMap _lhsItextBlocks+ in (Syn_Chunk _lhsOappendCommon _lhsOappendMain _lhsOgenSems _lhsOimports _lhsOpps))+sem_Chunk_Chunk :: String ->+ T_Decl ->+ T_Decls ->+ T_Decls ->+ T_Decls ->+ T_Decls ->+ T_Decls ->+ T_Decls ->+ ([String]) ->+ T_Chunk+sem_Chunk_Chunk !name_ !(T_Decl comment_) !(T_Decls info_) !(T_Decls dataDef_) !(T_Decls cataFun_) !(T_Decls semDom_) !(T_Decls semWrapper_) !(T_Decls semFunctions_) !semNames_ =+ (T_Chunk (\ (!_lhsIimportBlocks)+ (!_lhsIisDeclOfLet)+ (!_lhsImainFile)+ (!_lhsImainName)+ (!_lhsImoduleHeader)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoptionsLine)+ (!_lhsIpragmaBlocks)+ (!_lhsItextBlockMap)+ (!_lhsItextBlocks) ->+ (case (({-# LINE 44 "src-ag/PrintCode.ag" #-}+ if sepSemMods _lhsIoptions+ then replaceBaseName _lhsImainFile (takeBaseName _lhsImainFile ++ "_" ++ name_)+ else _lhsImainFile+ {-# LINE 384 "dist/build/PrintCode" #-}+ )) of+ { !_outputfile ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _outputfile+ {-# LINE 389 "dist/build/PrintCode" #-}+ )) of+ { !_semWrapperOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 394 "dist/build/PrintCode" #-}+ )) of+ { !_semWrapperOoptions ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 399 "dist/build/PrintCode" #-}+ )) of+ { !_semWrapperOnested ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 404 "dist/build/PrintCode" #-}+ )) of+ { !_semWrapperOisDeclOfLet ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _outputfile+ {-# LINE 409 "dist/build/PrintCode" #-}+ )) of+ { !_semDomOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 414 "dist/build/PrintCode" #-}+ )) of+ { !_semDomOoptions ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 419 "dist/build/PrintCode" #-}+ )) of+ { !_semDomOnested ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 424 "dist/build/PrintCode" #-}+ )) of+ { !_semDomOisDeclOfLet ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _outputfile+ {-# LINE 429 "dist/build/PrintCode" #-}+ )) of+ { !_dataDefOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 434 "dist/build/PrintCode" #-}+ )) of+ { !_dataDefOoptions ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 439 "dist/build/PrintCode" #-}+ )) of+ { !_dataDefOnested ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 444 "dist/build/PrintCode" #-}+ )) of+ { !_dataDefOisDeclOfLet ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _outputfile+ {-# LINE 449 "dist/build/PrintCode" #-}+ )) of+ { !_commentOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 454 "dist/build/PrintCode" #-}+ )) of+ { !_commentOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 459 "dist/build/PrintCode" #-}+ )) of+ { !_commentOnested ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 464 "dist/build/PrintCode" #-}+ )) of+ { !_commentOisDeclOfLet ->+ (case (semWrapper_ _semWrapperOisDeclOfLet _semWrapperOnested _semWrapperOoptions _semWrapperOoutputfile) of+ { ( !_semWrapperIpps) ->+ (case (semDom_ _semDomOisDeclOfLet _semDomOnested _semDomOoptions _semDomOoutputfile) of+ { ( !_semDomIpps) ->+ (case (dataDef_ _dataDefOisDeclOfLet _dataDefOnested _dataDefOoptions _dataDefOoutputfile) of+ { ( !_dataDefIpps) ->+ (case (comment_ _commentOisDeclOfLet _commentOnested _commentOoptions _commentOoutputfile) of+ { ( !_commentIpp) ->+ (case (({-# LINE 487 "src-ag/PrintCode.ag" #-}+ [ [_commentIpp]+ , _dataDefIpps+ , _semDomIpps+ , if reference _lhsIoptions then _semWrapperIpps else []+ ]+ {-# LINE 481 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOappendCommon ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _outputfile+ {-# LINE 486 "dist/build/PrintCode" #-}+ )) of+ { !_cataFunOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 491 "dist/build/PrintCode" #-}+ )) of+ { !_cataFunOoptions ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 496 "dist/build/PrintCode" #-}+ )) of+ { !_cataFunOnested ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 501 "dist/build/PrintCode" #-}+ )) of+ { !_cataFunOisDeclOfLet ->+ (case (cataFun_ _cataFunOisDeclOfLet _cataFunOnested _cataFunOoptions _cataFunOoutputfile) of+ { ( !_cataFunIpps) ->+ (case (({-# LINE 493 "src-ag/PrintCode.ag" #-}+ [ [_commentIpp]+ , _cataFunIpps+ , if reference _lhsIoptions then [] else _semWrapperIpps+ ]+ {-# LINE 511 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOappendMain ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _outputfile+ {-# LINE 516 "dist/build/PrintCode" #-}+ )) of+ { !_semFunctionsOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 521 "dist/build/PrintCode" #-}+ )) of+ { !_semFunctionsOoptions ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 526 "dist/build/PrintCode" #-}+ )) of+ { !_semFunctionsOnested ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 531 "dist/build/PrintCode" #-}+ )) of+ { !_semFunctionsOisDeclOfLet ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _outputfile+ {-# LINE 536 "dist/build/PrintCode" #-}+ )) of+ { !_infoOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 541 "dist/build/PrintCode" #-}+ )) of+ { !_infoOoptions ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 546 "dist/build/PrintCode" #-}+ )) of+ { !_infoOnested ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 551 "dist/build/PrintCode" #-}+ )) of+ { !_infoOisDeclOfLet ->+ (case (({-# LINE 519 "src-ag/PrintCode.ag" #-}+ concat $ intersperse "," semNames_+ {-# LINE 556 "dist/build/PrintCode" #-}+ )) of+ { !_exports ->+ (case (semFunctions_ _semFunctionsOisDeclOfLet _semFunctionsOnested _semFunctionsOoptions _semFunctionsOoutputfile) of+ { ( !_semFunctionsIpps) ->+ (case (info_ _infoOisDeclOfLet _infoOnested _infoOoptions _infoOoutputfile) of+ { ( !_infoIpps) ->+ (case (({-# LINE 503 "src-ag/PrintCode.ag" #-}+ writeModule _outputfile+ [ pp $ _lhsIpragmaBlocks+ , pp $ Map.findWithDefault empty (BlockPragma, Just $ identifier name_) _lhsItextBlockMap+ , pp $ _lhsIoptionsLine+ , pp $ _lhsImoduleHeader _lhsImainName ("_" ++ name_) _exports True+ , pp $ ("import " ++ _lhsImainName ++ "_common\n")+ , pp $ Map.findWithDefault empty (BlockImport, Just $ identifier name_) _lhsItextBlockMap+ , _commentIpp+ , vlist_sep "" _infoIpps+ , vlist_sep "" _semFunctionsIpps+ , Map.findWithDefault empty (BlockOther, Just $ identifier name_) _lhsItextBlockMap+ ]+ {-# LINE 576 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOgenSems ->+ (case (({-# LINE 481 "src-ag/PrintCode.ag" #-}+ ["import " ++ _lhsImainName ++ "_" ++ name_ ++ "\n"]+ {-# LINE 581 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOimports ->+ (case (({-# LINE 97 "src-ag/PrintCode.ag" #-}+ _commentIpp+ : _infoIpps+ ++ _dataDefIpps+ ++ _cataFunIpps+ ++ _semDomIpps+ ++ _semWrapperIpps+ ++ _semFunctionsIpps+ ++ [Map.findWithDefault empty (BlockOther, Just $ identifier name_) _lhsItextBlockMap]+ {-# LINE 593 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpps ->+ (case ((Syn_Chunk _lhsOappendCommon _lhsOappendMain _lhsOgenSems _lhsOimports _lhsOpps)) of+ { ___node ->+ ( _lhsOappendCommon,_lhsOappendMain,_lhsOgenSems,_lhsOimports,_lhsOpps) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+-- Chunks ------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ importBlocks : PP_Doc+ isDeclOfLet : Bool+ mainFile : String+ mainName : String+ moduleHeader : String -> String -> String -> Bool -> String+ nested : Bool+ options : Options+ optionsLine : String+ pragmaBlocks : String+ textBlockMap : Map BlockInfo PP_Doc+ textBlocks : PP_Doc+ synthesized attributes:+ appendCommon : [[PP_Doc]]+ appendMain : [[PP_Doc]]+ genSems : IO ()+ imports : [String]+ pps : PP_Docs+ alternatives:+ alternative Cons:+ child hd : Chunk + child tl : Chunks + alternative Nil:+-}+-- cata+sem_Chunks :: Chunks ->+ T_Chunks+sem_Chunks !list =+ (Prelude.foldr sem_Chunks_Cons sem_Chunks_Nil (Prelude.map sem_Chunk list))+-- semantic domain+newtype T_Chunks = T_Chunks (PP_Doc ->+ Bool ->+ String ->+ String ->+ (String -> String -> String -> Bool -> String) ->+ Bool ->+ Options ->+ String ->+ String ->+ (Map BlockInfo PP_Doc) ->+ PP_Doc ->+ ( ([[PP_Doc]]),([[PP_Doc]]),(IO ()),([String]),PP_Docs))+data Inh_Chunks = Inh_Chunks {importBlocks_Inh_Chunks :: !(PP_Doc),isDeclOfLet_Inh_Chunks :: !(Bool),mainFile_Inh_Chunks :: !(String),mainName_Inh_Chunks :: !(String),moduleHeader_Inh_Chunks :: !((String -> String -> String -> Bool -> String)),nested_Inh_Chunks :: !(Bool),options_Inh_Chunks :: !(Options),optionsLine_Inh_Chunks :: !(String),pragmaBlocks_Inh_Chunks :: !(String),textBlockMap_Inh_Chunks :: !((Map BlockInfo PP_Doc)),textBlocks_Inh_Chunks :: !(PP_Doc)}+data Syn_Chunks = Syn_Chunks {appendCommon_Syn_Chunks :: !(([[PP_Doc]])),appendMain_Syn_Chunks :: !(([[PP_Doc]])),genSems_Syn_Chunks :: !((IO ())),imports_Syn_Chunks :: !(([String])),pps_Syn_Chunks :: !(PP_Docs)}+wrap_Chunks :: T_Chunks ->+ Inh_Chunks ->+ Syn_Chunks+wrap_Chunks !(T_Chunks sem) !(Inh_Chunks _lhsIimportBlocks _lhsIisDeclOfLet _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInested _lhsIoptions _lhsIoptionsLine _lhsIpragmaBlocks _lhsItextBlockMap _lhsItextBlocks) =+ (let ( !_lhsOappendCommon,!_lhsOappendMain,!_lhsOgenSems,!_lhsOimports,!_lhsOpps) = sem _lhsIimportBlocks _lhsIisDeclOfLet _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsInested _lhsIoptions _lhsIoptionsLine _lhsIpragmaBlocks _lhsItextBlockMap _lhsItextBlocks+ in (Syn_Chunks _lhsOappendCommon _lhsOappendMain _lhsOgenSems _lhsOimports _lhsOpps))+sem_Chunks_Cons :: T_Chunk ->+ T_Chunks ->+ T_Chunks+sem_Chunks_Cons !(T_Chunk hd_) !(T_Chunks tl_) =+ (T_Chunks (\ (!_lhsIimportBlocks)+ (!_lhsIisDeclOfLet)+ (!_lhsImainFile)+ (!_lhsImainName)+ (!_lhsImoduleHeader)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoptionsLine)+ (!_lhsIpragmaBlocks)+ (!_lhsItextBlockMap)+ (!_lhsItextBlocks) ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 669 "dist/build/PrintCode" #-}+ )) of+ { !_tlOoptions ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 674 "dist/build/PrintCode" #-}+ )) of+ { !_tlOnested ->+ (case (({-# LINE 437 "src-ag/PrintCode.ag" #-}+ _lhsImainFile+ {-# LINE 679 "dist/build/PrintCode" #-}+ )) of+ { !_tlOmainFile ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 684 "dist/build/PrintCode" #-}+ )) of+ { !_tlOisDeclOfLet ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 689 "dist/build/PrintCode" #-}+ )) of+ { !_hdOoptions ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 694 "dist/build/PrintCode" #-}+ )) of+ { !_hdOnested ->+ (case (({-# LINE 437 "src-ag/PrintCode.ag" #-}+ _lhsImainFile+ {-# LINE 699 "dist/build/PrintCode" #-}+ )) of+ { !_hdOmainFile ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 704 "dist/build/PrintCode" #-}+ )) of+ { !_hdOisDeclOfLet ->+ (case (({-# LINE 434 "src-ag/PrintCode.ag" #-}+ _lhsItextBlocks+ {-# LINE 709 "dist/build/PrintCode" #-}+ )) of+ { !_tlOtextBlocks ->+ (case (({-# LINE 435 "src-ag/PrintCode.ag" #-}+ _lhsItextBlockMap+ {-# LINE 714 "dist/build/PrintCode" #-}+ )) of+ { !_tlOtextBlockMap ->+ (case (({-# LINE 433 "src-ag/PrintCode.ag" #-}+ _lhsIpragmaBlocks+ {-# LINE 719 "dist/build/PrintCode" #-}+ )) of+ { !_tlOpragmaBlocks ->+ (case (({-# LINE 436 "src-ag/PrintCode.ag" #-}+ _lhsIoptionsLine+ {-# LINE 724 "dist/build/PrintCode" #-}+ )) of+ { !_tlOoptionsLine ->+ (case (({-# LINE 439 "src-ag/PrintCode.ag" #-}+ _lhsImoduleHeader+ {-# LINE 729 "dist/build/PrintCode" #-}+ )) of+ { !_tlOmoduleHeader ->+ (case (({-# LINE 438 "src-ag/PrintCode.ag" #-}+ _lhsImainName+ {-# LINE 734 "dist/build/PrintCode" #-}+ )) of+ { !_tlOmainName ->+ (case (({-# LINE 432 "src-ag/PrintCode.ag" #-}+ _lhsIimportBlocks+ {-# LINE 739 "dist/build/PrintCode" #-}+ )) of+ { !_tlOimportBlocks ->+ (case (tl_ _tlOimportBlocks _tlOisDeclOfLet _tlOmainFile _tlOmainName _tlOmoduleHeader _tlOnested _tlOoptions _tlOoptionsLine _tlOpragmaBlocks _tlOtextBlockMap _tlOtextBlocks) of+ { ( !_tlIappendCommon,!_tlIappendMain,!_tlIgenSems,!_tlIimports,!_tlIpps) ->+ (case (({-# LINE 434 "src-ag/PrintCode.ag" #-}+ _lhsItextBlocks+ {-# LINE 746 "dist/build/PrintCode" #-}+ )) of+ { !_hdOtextBlocks ->+ (case (({-# LINE 435 "src-ag/PrintCode.ag" #-}+ _lhsItextBlockMap+ {-# LINE 751 "dist/build/PrintCode" #-}+ )) of+ { !_hdOtextBlockMap ->+ (case (({-# LINE 433 "src-ag/PrintCode.ag" #-}+ _lhsIpragmaBlocks+ {-# LINE 756 "dist/build/PrintCode" #-}+ )) of+ { !_hdOpragmaBlocks ->+ (case (({-# LINE 436 "src-ag/PrintCode.ag" #-}+ _lhsIoptionsLine+ {-# LINE 761 "dist/build/PrintCode" #-}+ )) of+ { !_hdOoptionsLine ->+ (case (({-# LINE 439 "src-ag/PrintCode.ag" #-}+ _lhsImoduleHeader+ {-# LINE 766 "dist/build/PrintCode" #-}+ )) of+ { !_hdOmoduleHeader ->+ (case (({-# LINE 438 "src-ag/PrintCode.ag" #-}+ _lhsImainName+ {-# LINE 771 "dist/build/PrintCode" #-}+ )) of+ { !_hdOmainName ->+ (case (({-# LINE 432 "src-ag/PrintCode.ag" #-}+ _lhsIimportBlocks+ {-# LINE 776 "dist/build/PrintCode" #-}+ )) of+ { !_hdOimportBlocks ->+ (case (hd_ _hdOimportBlocks _hdOisDeclOfLet _hdOmainFile _hdOmainName _hdOmoduleHeader _hdOnested _hdOoptions _hdOoptionsLine _hdOpragmaBlocks _hdOtextBlockMap _hdOtextBlocks) of+ { ( !_hdIappendCommon,!_hdIappendMain,!_hdIgenSems,!_hdIimports,!_hdIpps) ->+ (case (({-# LINE 483 "src-ag/PrintCode.ag" #-}+ _hdIappendCommon ++ _tlIappendCommon+ {-# LINE 783 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOappendCommon ->+ (case (({-# LINE 483 "src-ag/PrintCode.ag" #-}+ _hdIappendMain ++ _tlIappendMain+ {-# LINE 788 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOappendMain ->+ (case (({-# LINE 499 "src-ag/PrintCode.ag" #-}+ _hdIgenSems >> _tlIgenSems+ {-# LINE 793 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOgenSems ->+ (case (({-# LINE 478 "src-ag/PrintCode.ag" #-}+ _hdIimports ++ _tlIimports+ {-# LINE 798 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOimports ->+ (case (({-# LINE 89 "src-ag/PrintCode.ag" #-}+ _hdIpps ++ _tlIpps+ {-# LINE 803 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpps ->+ (case ((Syn_Chunks _lhsOappendCommon _lhsOappendMain _lhsOgenSems _lhsOimports _lhsOpps)) of+ { ___node ->+ ( _lhsOappendCommon,_lhsOappendMain,_lhsOgenSems,_lhsOimports,_lhsOpps) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+sem_Chunks_Nil :: T_Chunks+sem_Chunks_Nil =+ (T_Chunks (\ (!_lhsIimportBlocks)+ (!_lhsIisDeclOfLet)+ (!_lhsImainFile)+ (!_lhsImainName)+ (!_lhsImoduleHeader)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoptionsLine)+ (!_lhsIpragmaBlocks)+ (!_lhsItextBlockMap)+ (!_lhsItextBlocks) ->+ (case (({-# LINE 483 "src-ag/PrintCode.ag" #-}+ []+ {-# LINE 824 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOappendCommon ->+ (case (({-# LINE 483 "src-ag/PrintCode.ag" #-}+ []+ {-# LINE 829 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOappendMain ->+ (case (({-# LINE 499 "src-ag/PrintCode.ag" #-}+ return ()+ {-# LINE 834 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOgenSems ->+ (case (({-# LINE 478 "src-ag/PrintCode.ag" #-}+ []+ {-# LINE 839 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOimports ->+ (case (({-# LINE 90 "src-ag/PrintCode.ag" #-}+ []+ {-# LINE 844 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpps ->+ (case ((Syn_Chunks _lhsOappendCommon _lhsOappendMain _lhsOgenSems _lhsOimports _lhsOpps)) of+ { ___node ->+ ( _lhsOappendCommon,_lhsOappendMain,_lhsOgenSems,_lhsOimports,_lhsOpps) }) }) }) }) }) })))+-- DataAlt -----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ nested : Bool+ strictPre : PP_Doc+ synthesized attribute:+ pp : PP_Doc+ alternatives:+ alternative DataAlt:+ child name : {String}+ child args : Types + alternative Record:+ child name : {String}+ child args : NamedTypes +-}+-- cata+sem_DataAlt :: DataAlt ->+ T_DataAlt+sem_DataAlt !(DataAlt _name _args) =+ (sem_DataAlt_DataAlt _name (sem_Types _args))+sem_DataAlt !(Record _name _args) =+ (sem_DataAlt_Record _name (sem_NamedTypes _args))+-- semantic domain+newtype T_DataAlt = T_DataAlt (Bool ->+ PP_Doc ->+ ( PP_Doc))+data Inh_DataAlt = Inh_DataAlt {nested_Inh_DataAlt :: !(Bool),strictPre_Inh_DataAlt :: !(PP_Doc)}+data Syn_DataAlt = Syn_DataAlt {pp_Syn_DataAlt :: !(PP_Doc)}+wrap_DataAlt :: T_DataAlt ->+ Inh_DataAlt ->+ Syn_DataAlt+wrap_DataAlt !(T_DataAlt sem) !(Inh_DataAlt _lhsInested _lhsIstrictPre) =+ (let ( !_lhsOpp) = sem _lhsInested _lhsIstrictPre+ in (Syn_DataAlt _lhsOpp))+sem_DataAlt_DataAlt :: String ->+ T_Types ->+ T_DataAlt+sem_DataAlt_DataAlt !name_ !(T_Types args_) =+ (T_DataAlt (\ (!_lhsInested)+ (!_lhsIstrictPre) ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 893 "dist/build/PrintCode" #-}+ )) of+ { !_argsOnested ->+ (case (args_ _argsOnested) of+ { ( !_argsIpps) ->+ (case (({-# LINE 222 "src-ag/PrintCode.ag" #-}+ name_ >#< hv_sp (map ((_lhsIstrictPre >|<) . pp_parens) _argsIpps)+ {-# LINE 900 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_DataAlt _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) })))+sem_DataAlt_Record :: String ->+ T_NamedTypes ->+ T_DataAlt+sem_DataAlt_Record !name_ !(T_NamedTypes args_) =+ (T_DataAlt (\ (!_lhsInested)+ (!_lhsIstrictPre) ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 914 "dist/build/PrintCode" #-}+ )) of+ { !_argsOnested ->+ (case (args_ _argsOnested) of+ { ( !_argsIpps) ->+ (case (({-# LINE 223 "src-ag/PrintCode.ag" #-}+ name_ >#< pp_block "{" "}" "," _argsIpps+ {-# LINE 921 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_DataAlt _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) })))+-- DataAlts ----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ nested : Bool+ strictPre : PP_Doc+ synthesized attribute:+ pps : PP_Docs+ alternatives:+ alternative Cons:+ child hd : DataAlt + child tl : DataAlts + alternative Nil:+-}+-- cata+sem_DataAlts :: DataAlts ->+ T_DataAlts+sem_DataAlts !list =+ (Prelude.foldr sem_DataAlts_Cons sem_DataAlts_Nil (Prelude.map sem_DataAlt list))+-- semantic domain+newtype T_DataAlts = T_DataAlts (Bool ->+ PP_Doc ->+ ( PP_Docs))+data Inh_DataAlts = Inh_DataAlts {nested_Inh_DataAlts :: !(Bool),strictPre_Inh_DataAlts :: !(PP_Doc)}+data Syn_DataAlts = Syn_DataAlts {pps_Syn_DataAlts :: !(PP_Docs)}+wrap_DataAlts :: T_DataAlts ->+ Inh_DataAlts ->+ Syn_DataAlts+wrap_DataAlts !(T_DataAlts sem) !(Inh_DataAlts _lhsInested _lhsIstrictPre) =+ (let ( !_lhsOpps) = sem _lhsInested _lhsIstrictPre+ in (Syn_DataAlts _lhsOpps))+sem_DataAlts_Cons :: T_DataAlt ->+ T_DataAlts ->+ T_DataAlts+sem_DataAlts_Cons !(T_DataAlt hd_) !(T_DataAlts tl_) =+ (T_DataAlts (\ (!_lhsInested)+ (!_lhsIstrictPre) ->+ (case (({-# LINE 317 "src-ag/PrintCode.ag" #-}+ _lhsIstrictPre+ {-# LINE 966 "dist/build/PrintCode" #-}+ )) of+ { !_tlOstrictPre ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 971 "dist/build/PrintCode" #-}+ )) of+ { !_tlOnested ->+ (case (({-# LINE 317 "src-ag/PrintCode.ag" #-}+ _lhsIstrictPre+ {-# LINE 976 "dist/build/PrintCode" #-}+ )) of+ { !_hdOstrictPre ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 981 "dist/build/PrintCode" #-}+ )) of+ { !_hdOnested ->+ (case (tl_ _tlOnested _tlOstrictPre) of+ { ( !_tlIpps) ->+ (case (hd_ _hdOnested _hdOstrictPre) of+ { ( !_hdIpp) ->+ (case (({-# LINE 73 "src-ag/PrintCode.ag" #-}+ _hdIpp : _tlIpps+ {-# LINE 990 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpps ->+ (case ((Syn_DataAlts _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }) }) }) }) }) }) })))+sem_DataAlts_Nil :: T_DataAlts+sem_DataAlts_Nil =+ (T_DataAlts (\ (!_lhsInested)+ (!_lhsIstrictPre) ->+ (case (({-# LINE 74 "src-ag/PrintCode.ag" #-}+ []+ {-# LINE 1002 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpps ->+ (case ((Syn_DataAlts _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) })))+-- Decl --------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ isDeclOfLet : Bool+ nested : Bool+ options : Options+ outputfile : String+ synthesized attribute:+ pp : PP_Doc+ alternatives:+ alternative Bind:+ child left : Lhs + child rhs : Expr + alternative BindLet:+ child left : Lhs + child rhs : Expr + alternative Comment:+ child txt : {String}+ alternative Data:+ child name : {String}+ child params : {[String]}+ child alts : DataAlts + child strict : {Bool}+ child derivings : {[String]}+ alternative Decl:+ child left : Lhs + child rhs : Expr + child binds : {Set String}+ child uses : {Set String}+ alternative EvalDecl:+ child nt : {String}+ child left : Lhs + child rhs : Expr + visit 0:+ local strat : _+ alternative NewType:+ child name : {String}+ child params : {[String]}+ child con : {String}+ child tp : Type + alternative PragmaDecl:+ child txt : {String}+ alternative Resume:+ child monadic : {Bool}+ child nt : {String}+ child left : Lhs + child rhs : Expr + alternative TSig:+ child name : {String}+ child tp : Type + alternative Type:+ child name : {String}+ child params : {[String]}+ child tp : Type +-}+-- cata+sem_Decl :: Decl ->+ T_Decl+sem_Decl !(Bind _left _rhs) =+ (sem_Decl_Bind (sem_Lhs _left) (sem_Expr _rhs))+sem_Decl !(BindLet _left _rhs) =+ (sem_Decl_BindLet (sem_Lhs _left) (sem_Expr _rhs))+sem_Decl !(Comment _txt) =+ (sem_Decl_Comment _txt)+sem_Decl !(Data _name _params _alts _strict _derivings) =+ (sem_Decl_Data _name _params (sem_DataAlts _alts) _strict _derivings)+sem_Decl !(Decl _left _rhs _binds _uses) =+ (sem_Decl_Decl (sem_Lhs _left) (sem_Expr _rhs) _binds _uses)+sem_Decl !(EvalDecl _nt _left _rhs) =+ (sem_Decl_EvalDecl _nt (sem_Lhs _left) (sem_Expr _rhs))+sem_Decl !(NewType _name _params _con _tp) =+ (sem_Decl_NewType _name _params _con (sem_Type _tp))+sem_Decl !(PragmaDecl _txt) =+ (sem_Decl_PragmaDecl _txt)+sem_Decl !(Resume _monadic _nt _left _rhs) =+ (sem_Decl_Resume _monadic _nt (sem_Lhs _left) (sem_Expr _rhs))+sem_Decl !(TSig _name _tp) =+ (sem_Decl_TSig _name (sem_Type _tp))+sem_Decl !(Type _name _params _tp) =+ (sem_Decl_Type _name _params (sem_Type _tp))+-- semantic domain+newtype T_Decl = T_Decl (Bool ->+ Bool ->+ Options ->+ String ->+ ( PP_Doc))+data Inh_Decl = Inh_Decl {isDeclOfLet_Inh_Decl :: !(Bool),nested_Inh_Decl :: !(Bool),options_Inh_Decl :: !(Options),outputfile_Inh_Decl :: !(String)}+data Syn_Decl = Syn_Decl {pp_Syn_Decl :: !(PP_Doc)}+wrap_Decl :: T_Decl ->+ Inh_Decl ->+ Syn_Decl+wrap_Decl !(T_Decl sem) !(Inh_Decl _lhsIisDeclOfLet _lhsInested _lhsIoptions _lhsIoutputfile) =+ (let ( !_lhsOpp) = sem _lhsIisDeclOfLet _lhsInested _lhsIoptions _lhsIoutputfile+ in (Syn_Decl _lhsOpp))+sem_Decl_Bind :: T_Lhs ->+ T_Expr ->+ T_Decl+sem_Decl_Bind !(T_Lhs left_) !(T_Expr rhs_) =+ (T_Decl (\ (!_lhsIisDeclOfLet)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1113 "dist/build/PrintCode" #-}+ )) of+ { !_rhsOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1118 "dist/build/PrintCode" #-}+ )) of+ { !_rhsOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1123 "dist/build/PrintCode" #-}+ )) of+ { !_rhsOnested ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1128 "dist/build/PrintCode" #-}+ )) of+ { !_leftOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1133 "dist/build/PrintCode" #-}+ )) of+ { !_leftOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1138 "dist/build/PrintCode" #-}+ )) of+ { !_leftOnested ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 1143 "dist/build/PrintCode" #-}+ )) of+ { !_leftOisDeclOfLet ->+ (case (rhs_ _rhsOnested _rhsOoptions _rhsOoutputfile) of+ { ( !_rhsIpp) ->+ (case (left_ _leftOisDeclOfLet _leftOnested _leftOoptions _leftOoutputfile) of+ { ( !_leftIpp) ->+ (case (({-# LINE 109 "src-ag/PrintCode.ag" #-}+ _leftIpp >#< "<-" >#< _rhsIpp+ {-# LINE 1152 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }) }) }) }) }) })))+sem_Decl_BindLet :: T_Lhs ->+ T_Expr ->+ T_Decl+sem_Decl_BindLet !(T_Lhs left_) !(T_Expr rhs_) =+ (T_Decl (\ (!_lhsIisDeclOfLet)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1168 "dist/build/PrintCode" #-}+ )) of+ { !_rhsOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1173 "dist/build/PrintCode" #-}+ )) of+ { !_rhsOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1178 "dist/build/PrintCode" #-}+ )) of+ { !_rhsOnested ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1183 "dist/build/PrintCode" #-}+ )) of+ { !_leftOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1188 "dist/build/PrintCode" #-}+ )) of+ { !_leftOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1193 "dist/build/PrintCode" #-}+ )) of+ { !_leftOnested ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 1198 "dist/build/PrintCode" #-}+ )) of+ { !_leftOisDeclOfLet ->+ (case (rhs_ _rhsOnested _rhsOoptions _rhsOoutputfile) of+ { ( !_rhsIpp) ->+ (case (left_ _leftOisDeclOfLet _leftOnested _leftOoptions _leftOoutputfile) of+ { ( !_leftIpp) ->+ (case (({-# LINE 110 "src-ag/PrintCode.ag" #-}+ "let" >#< _leftIpp >#< "=" >#< _rhsIpp+ {-# LINE 1207 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }) }) }) }) }) })))+sem_Decl_Comment :: String ->+ T_Decl+sem_Decl_Comment !txt_ =+ (T_Decl (\ (!_lhsIisDeclOfLet)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 123 "src-ag/PrintCode.ag" #-}+ if '\n' `elem` txt_+ then "{-" >-< vlist (lines txt_) >-< "-}"+ else "--" >#< txt_+ {-# LINE 1224 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) })))+sem_Decl_Data :: String ->+ ([String]) ->+ T_DataAlts ->+ Bool ->+ ([String]) ->+ T_Decl+sem_Decl_Data !name_ !params_ !(T_DataAlts alts_) !strict_ !derivings_ =+ (T_Decl (\ (!_lhsIisDeclOfLet)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1243 "dist/build/PrintCode" #-}+ )) of+ { !_altsOnested ->+ (case (({-# LINE 320 "src-ag/PrintCode.ag" #-}+ if strict_ then pp "!" else empty+ {-# LINE 1248 "dist/build/PrintCode" #-}+ )) of+ { !_altsOstrictPre ->+ (case (alts_ _altsOnested _altsOstrictPre) of+ { ( !_altsIpps) ->+ (case (({-# LINE 111 "src-ag/PrintCode.ag" #-}+ "data" >#< hv_sp (name_ : params_)+ >#< ( case _altsIpps of+ [] -> empty+ (x:xs) -> "=" >#< x+ >-< vlist (map ("|" >#<) xs)+ >-< if null derivings_+ then empty+ else "deriving" >#< ppTuple False (map text derivings_)+ )+ {-# LINE 1263 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) })))+sem_Decl_Decl :: T_Lhs ->+ T_Expr ->+ (Set String) ->+ (Set String) ->+ T_Decl+sem_Decl_Decl !(T_Lhs left_) !(T_Expr rhs_) !binds_ !uses_ =+ (T_Decl (\ (!_lhsIisDeclOfLet)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1281 "dist/build/PrintCode" #-}+ )) of+ { !_rhsOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1286 "dist/build/PrintCode" #-}+ )) of+ { !_rhsOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1291 "dist/build/PrintCode" #-}+ )) of+ { !_rhsOnested ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1296 "dist/build/PrintCode" #-}+ )) of+ { !_leftOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1301 "dist/build/PrintCode" #-}+ )) of+ { !_leftOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1306 "dist/build/PrintCode" #-}+ )) of+ { !_leftOnested ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 1311 "dist/build/PrintCode" #-}+ )) of+ { !_leftOisDeclOfLet ->+ (case (rhs_ _rhsOnested _rhsOoptions _rhsOoutputfile) of+ { ( !_rhsIpp) ->+ (case (left_ _leftOisDeclOfLet _leftOnested _leftOoptions _leftOoutputfile) of+ { ( !_leftIpp) ->+ (case (({-# LINE 107 "src-ag/PrintCode.ag" #-}+ _leftIpp >#< "="+ >-< indent 4 _rhsIpp+ {-# LINE 1321 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }) }) }) }) }) })))+sem_Decl_EvalDecl :: String ->+ T_Lhs ->+ T_Expr ->+ T_Decl+sem_Decl_EvalDecl !nt_ !(T_Lhs left_) !(T_Expr rhs_) =+ (T_Decl (\ (!_lhsIisDeclOfLet)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1338 "dist/build/PrintCode" #-}+ )) of+ { !_rhsOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1343 "dist/build/PrintCode" #-}+ )) of+ { !_rhsOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1348 "dist/build/PrintCode" #-}+ )) of+ { !_rhsOnested ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1353 "dist/build/PrintCode" #-}+ )) of+ { !_leftOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1358 "dist/build/PrintCode" #-}+ )) of+ { !_leftOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1363 "dist/build/PrintCode" #-}+ )) of+ { !_leftOnested ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 1368 "dist/build/PrintCode" #-}+ )) of+ { !_leftOisDeclOfLet ->+ (case (({-# LINE 130 "src-ag/PrintCode.ag" #-}+ if breadthFirstStrict _lhsIoptions+ then "stepwiseEval"+ else "lazyEval"+ {-# LINE 1375 "dist/build/PrintCode" #-}+ )) of+ { !_strat ->+ (case (rhs_ _rhsOnested _rhsOoptions _rhsOoutputfile) of+ { ( !_rhsIpp) ->+ (case (left_ _leftOisDeclOfLet _leftOnested _leftOoptions _leftOoutputfile) of+ { ( !_leftIpp) ->+ (case (({-# LINE 133 "src-ag/PrintCode.ag" #-}+ if breadthFirst _lhsIoptions+ then _leftIpp >#< "=" >#< "case" >#< _strat >#< pp_parens _rhsIpp >#< "of"+ >-< indent 4 (+ pp_parens (nt_ >|< "_Syn" >#< "_val") >#< "-> _val"+ )+ else _leftIpp >#< "=" >#< _rhsIpp+ {-# LINE 1389 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }) }) }) }) }) }) })))+sem_Decl_NewType :: String ->+ ([String]) ->+ String ->+ T_Type ->+ T_Decl+sem_Decl_NewType !name_ !params_ !con_ !(T_Type tp_) =+ (T_Decl (\ (!_lhsIisDeclOfLet)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1407 "dist/build/PrintCode" #-}+ )) of+ { !_tpOnested ->+ (case (tp_ _tpOnested) of+ { ( !_tpIpp,!_tpIprec) ->+ (case (({-# LINE 120 "src-ag/PrintCode.ag" #-}+ "newtype" >#< hv_sp (name_ : params_) >#< "=" >#< con_ >#< pp_parens _tpIpp+ {-# LINE 1414 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) })))+sem_Decl_PragmaDecl :: String ->+ T_Decl+sem_Decl_PragmaDecl !txt_ =+ (T_Decl (\ (!_lhsIisDeclOfLet)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 126 "src-ag/PrintCode.ag" #-}+ "{-#" >#< text txt_ >#< "#-}"+ {-# LINE 1429 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) })))+sem_Decl_Resume :: Bool ->+ String ->+ T_Lhs ->+ T_Expr ->+ T_Decl+sem_Decl_Resume !monadic_ !nt_ !(T_Lhs left_) !(T_Expr rhs_) =+ (T_Decl (\ (!_lhsIisDeclOfLet)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1447 "dist/build/PrintCode" #-}+ )) of+ { !_rhsOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1452 "dist/build/PrintCode" #-}+ )) of+ { !_rhsOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1457 "dist/build/PrintCode" #-}+ )) of+ { !_rhsOnested ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1462 "dist/build/PrintCode" #-}+ )) of+ { !_leftOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1467 "dist/build/PrintCode" #-}+ )) of+ { !_leftOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1472 "dist/build/PrintCode" #-}+ )) of+ { !_leftOnested ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 1477 "dist/build/PrintCode" #-}+ )) of+ { !_leftOisDeclOfLet ->+ (case (rhs_ _rhsOnested _rhsOoptions _rhsOoutputfile) of+ { ( !_rhsIpp) ->+ (case (left_ _leftOisDeclOfLet _leftOnested _leftOoptions _leftOoutputfile) of+ { ( !_leftIpp) ->+ (case (({-# LINE 127 "src-ag/PrintCode.ag" #-}+ if monadic_+ then _leftIpp >#< "<-" >#< _rhsIpp+ else _leftIpp >#< "=" >-< indent 4 _rhsIpp+ {-# LINE 1488 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }) }) }) }) }) })))+sem_Decl_TSig :: String ->+ T_Type ->+ T_Decl+sem_Decl_TSig !name_ !(T_Type tp_) =+ (T_Decl (\ (!_lhsIisDeclOfLet)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1504 "dist/build/PrintCode" #-}+ )) of+ { !_tpOnested ->+ (case (tp_ _tpOnested) of+ { ( !_tpIpp,!_tpIprec) ->+ (case (({-# LINE 122 "src-ag/PrintCode.ag" #-}+ name_ >#< "::" >#< _tpIpp+ {-# LINE 1511 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) })))+sem_Decl_Type :: String ->+ ([String]) ->+ T_Type ->+ T_Decl+sem_Decl_Type !name_ !params_ !(T_Type tp_) =+ (T_Decl (\ (!_lhsIisDeclOfLet)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1528 "dist/build/PrintCode" #-}+ )) of+ { !_tpOnested ->+ (case (tp_ _tpOnested) of+ { ( !_tpIpp,!_tpIprec) ->+ (case (({-# LINE 121 "src-ag/PrintCode.ag" #-}+ "type" >#< hv_sp (name_ : params_) >#< "=" >#< _tpIpp+ {-# LINE 1535 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) })))+-- Decls -------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ isDeclOfLet : Bool+ nested : Bool+ options : Options+ outputfile : String+ synthesized attribute:+ pps : PP_Docs+ alternatives:+ alternative Cons:+ child hd : Decl + child tl : Decls + alternative Nil:+-}+-- cata+sem_Decls :: Decls ->+ T_Decls+sem_Decls !list =+ (Prelude.foldr sem_Decls_Cons sem_Decls_Nil (Prelude.map sem_Decl list))+-- semantic domain+newtype T_Decls = T_Decls (Bool ->+ Bool ->+ Options ->+ String ->+ ( PP_Docs))+data Inh_Decls = Inh_Decls {isDeclOfLet_Inh_Decls :: !(Bool),nested_Inh_Decls :: !(Bool),options_Inh_Decls :: !(Options),outputfile_Inh_Decls :: !(String)}+data Syn_Decls = Syn_Decls {pps_Syn_Decls :: !(PP_Docs)}+wrap_Decls :: T_Decls ->+ Inh_Decls ->+ Syn_Decls+wrap_Decls !(T_Decls sem) !(Inh_Decls _lhsIisDeclOfLet _lhsInested _lhsIoptions _lhsIoutputfile) =+ (let ( !_lhsOpps) = sem _lhsIisDeclOfLet _lhsInested _lhsIoptions _lhsIoutputfile+ in (Syn_Decls _lhsOpps))+sem_Decls_Cons :: T_Decl ->+ T_Decls ->+ T_Decls+sem_Decls_Cons !(T_Decl hd_) !(T_Decls tl_) =+ (T_Decls (\ (!_lhsIisDeclOfLet)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1586 "dist/build/PrintCode" #-}+ )) of+ { !_tlOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1591 "dist/build/PrintCode" #-}+ )) of+ { !_tlOoptions ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1596 "dist/build/PrintCode" #-}+ )) of+ { !_tlOnested ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 1601 "dist/build/PrintCode" #-}+ )) of+ { !_tlOisDeclOfLet ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1606 "dist/build/PrintCode" #-}+ )) of+ { !_hdOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1611 "dist/build/PrintCode" #-}+ )) of+ { !_hdOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1616 "dist/build/PrintCode" #-}+ )) of+ { !_hdOnested ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 1621 "dist/build/PrintCode" #-}+ )) of+ { !_hdOisDeclOfLet ->+ (case (tl_ _tlOisDeclOfLet _tlOnested _tlOoptions _tlOoutputfile) of+ { ( !_tlIpps) ->+ (case (hd_ _hdOisDeclOfLet _hdOnested _hdOoptions _hdOoutputfile) of+ { ( !_hdIpp) ->+ (case (({-# LINE 85 "src-ag/PrintCode.ag" #-}+ _hdIpp : _tlIpps+ {-# LINE 1630 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpps ->+ (case ((Syn_Decls _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }) }) }) }) }) }) }) }) }) }) })))+sem_Decls_Nil :: T_Decls+sem_Decls_Nil =+ (T_Decls (\ (!_lhsIisDeclOfLet)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 86 "src-ag/PrintCode.ag" #-}+ []+ {-# LINE 1644 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpps ->+ (case ((Syn_Decls _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) })))+-- Expr --------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ nested : Bool+ options : Options+ outputfile : String+ synthesized attribute:+ pp : PP_Doc+ alternatives:+ alternative App:+ child name : {String}+ child args : Exprs + alternative Case:+ child expr : Expr + child alts : CaseAlts + alternative Do:+ child stmts : Decls + child body : Expr + alternative InvokeExpr:+ child nt : {String}+ child expr : Expr + child args : Exprs + alternative Lambda:+ child args : Exprs + child body : Expr + visit 0:+ local addBang : _+ local strictParams : _+ alternative Let:+ child decls : Decls + child body : Expr + alternative LineExpr:+ child expr : Expr + alternative PragmaExpr:+ child onLeftSide : {Bool}+ child onNewLine : {Bool}+ child txt : {String}+ child expr : Expr + alternative ResultExpr:+ child nt : {String}+ child expr : Expr + alternative ResumeExpr:+ child nt : {String}+ child expr : Expr + child left : Lhs + child rhs : Expr + alternative SemFun:+ child nt : {String}+ child args : Exprs + child body : Expr + visit 0:+ local addBang : _+ local strictParams : _+ alternative SimpleExpr:+ child txt : {String}+ alternative TextExpr:+ child lns : {[String]}+ alternative Trace:+ child txt : {String}+ child expr : Expr + alternative TupleExpr:+ child exprs : Exprs + alternative TypedExpr:+ child expr : Expr + child tp : Type + alternative UnboxedTupleExpr:+ child exprs : Exprs +-}+-- cata+sem_Expr :: Expr ->+ T_Expr+sem_Expr !(App _name _args) =+ (sem_Expr_App _name (sem_Exprs _args))+sem_Expr !(Case _expr _alts) =+ (sem_Expr_Case (sem_Expr _expr) (sem_CaseAlts _alts))+sem_Expr !(Do _stmts _body) =+ (sem_Expr_Do (sem_Decls _stmts) (sem_Expr _body))+sem_Expr !(InvokeExpr _nt _expr _args) =+ (sem_Expr_InvokeExpr _nt (sem_Expr _expr) (sem_Exprs _args))+sem_Expr !(Lambda _args _body) =+ (sem_Expr_Lambda (sem_Exprs _args) (sem_Expr _body))+sem_Expr !(Let _decls _body) =+ (sem_Expr_Let (sem_Decls _decls) (sem_Expr _body))+sem_Expr !(LineExpr _expr) =+ (sem_Expr_LineExpr (sem_Expr _expr))+sem_Expr !(PragmaExpr _onLeftSide _onNewLine _txt _expr) =+ (sem_Expr_PragmaExpr _onLeftSide _onNewLine _txt (sem_Expr _expr))+sem_Expr !(ResultExpr _nt _expr) =+ (sem_Expr_ResultExpr _nt (sem_Expr _expr))+sem_Expr !(ResumeExpr _nt _expr _left _rhs) =+ (sem_Expr_ResumeExpr _nt (sem_Expr _expr) (sem_Lhs _left) (sem_Expr _rhs))+sem_Expr !(SemFun _nt _args _body) =+ (sem_Expr_SemFun _nt (sem_Exprs _args) (sem_Expr _body))+sem_Expr !(SimpleExpr _txt) =+ (sem_Expr_SimpleExpr _txt)+sem_Expr !(TextExpr _lns) =+ (sem_Expr_TextExpr _lns)+sem_Expr !(Trace _txt _expr) =+ (sem_Expr_Trace _txt (sem_Expr _expr))+sem_Expr !(TupleExpr _exprs) =+ (sem_Expr_TupleExpr (sem_Exprs _exprs))+sem_Expr !(TypedExpr _expr _tp) =+ (sem_Expr_TypedExpr (sem_Expr _expr) (sem_Type _tp))+sem_Expr !(UnboxedTupleExpr _exprs) =+ (sem_Expr_UnboxedTupleExpr (sem_Exprs _exprs))+-- semantic domain+newtype T_Expr = T_Expr (Bool ->+ Options ->+ String ->+ ( PP_Doc))+data Inh_Expr = Inh_Expr {nested_Inh_Expr :: !(Bool),options_Inh_Expr :: !(Options),outputfile_Inh_Expr :: !(String)}+data Syn_Expr = Syn_Expr {pp_Syn_Expr :: !(PP_Doc)}+wrap_Expr :: T_Expr ->+ Inh_Expr ->+ Syn_Expr+wrap_Expr !(T_Expr sem) !(Inh_Expr _lhsInested _lhsIoptions _lhsIoutputfile) =+ (let ( !_lhsOpp) = sem _lhsInested _lhsIoptions _lhsIoutputfile+ in (Syn_Expr _lhsOpp))+sem_Expr_App :: String ->+ T_Exprs ->+ T_Expr+sem_Expr_App !name_ !(T_Exprs args_) =+ (T_Expr (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1778 "dist/build/PrintCode" #-}+ )) of+ { !_argsOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1783 "dist/build/PrintCode" #-}+ )) of+ { !_argsOoptions ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1788 "dist/build/PrintCode" #-}+ )) of+ { !_argsOnested ->+ (case (args_ _argsOnested _argsOoptions _argsOoutputfile) of+ { ( !_argsIpps) ->+ (case (({-# LINE 161 "src-ag/PrintCode.ag" #-}+ pp_parens $ name_ >#< hv_sp _argsIpps+ {-# LINE 1795 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) })))+sem_Expr_Case :: T_Expr ->+ T_CaseAlts ->+ T_Expr+sem_Expr_Case !(T_Expr expr_) !(T_CaseAlts alts_) =+ (T_Expr (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1810 "dist/build/PrintCode" #-}+ )) of+ { !_altsOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1815 "dist/build/PrintCode" #-}+ )) of+ { !_altsOoptions ->+ (case (({-# LINE 56 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1820 "dist/build/PrintCode" #-}+ )) of+ { !_altsOnested ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1825 "dist/build/PrintCode" #-}+ )) of+ { !_exprOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1830 "dist/build/PrintCode" #-}+ )) of+ { !_exprOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1835 "dist/build/PrintCode" #-}+ )) of+ { !_exprOnested ->+ (case (alts_ _altsOnested _altsOoptions _altsOoutputfile) of+ { ( !_altsIpps) ->+ (case (expr_ _exprOnested _exprOoptions _exprOoutputfile) of+ { ( !_exprIpp) ->+ (case (({-# LINE 144 "src-ag/PrintCode.ag" #-}+ pp_parens ( "case" >#< pp_parens _exprIpp >#< "of"+ >-< (vlist _altsIpps)+ )+ {-# LINE 1846 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }) }) }) }) })))+sem_Expr_Do :: T_Decls ->+ T_Expr ->+ T_Expr+sem_Expr_Do !(T_Decls stmts_) !(T_Expr body_) =+ (T_Expr (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1861 "dist/build/PrintCode" #-}+ )) of+ { !_bodyOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1866 "dist/build/PrintCode" #-}+ )) of+ { !_bodyOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1871 "dist/build/PrintCode" #-}+ )) of+ { !_bodyOnested ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1876 "dist/build/PrintCode" #-}+ )) of+ { !_stmtsOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1881 "dist/build/PrintCode" #-}+ )) of+ { !_stmtsOoptions ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1886 "dist/build/PrintCode" #-}+ )) of+ { !_stmtsOnested ->+ (case (({-# LINE 416 "src-ag/PrintCode.ag" #-}+ False+ {-# LINE 1891 "dist/build/PrintCode" #-}+ )) of+ { !_stmtsOisDeclOfLet ->+ (case (body_ _bodyOnested _bodyOoptions _bodyOoutputfile) of+ { ( !_bodyIpp) ->+ (case (stmts_ _stmtsOisDeclOfLet _stmtsOnested _stmtsOoptions _stmtsOoutputfile) of+ { ( !_stmtsIpps) ->+ (case (({-# LINE 147 "src-ag/PrintCode.ag" #-}+ pp_parens ( "do" >#< ( vlist _stmtsIpps+ >-< ("return" >#< _bodyIpp))+ )+ {-# LINE 1902 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }) }) }) }) }) })))+sem_Expr_InvokeExpr :: String ->+ T_Expr ->+ T_Exprs ->+ T_Expr+sem_Expr_InvokeExpr !nt_ !(T_Expr expr_) !(T_Exprs args_) =+ (T_Expr (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1918 "dist/build/PrintCode" #-}+ )) of+ { !_argsOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1923 "dist/build/PrintCode" #-}+ )) of+ { !_argsOoptions ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1928 "dist/build/PrintCode" #-}+ )) of+ { !_argsOnested ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1933 "dist/build/PrintCode" #-}+ )) of+ { !_exprOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1938 "dist/build/PrintCode" #-}+ )) of+ { !_exprOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1943 "dist/build/PrintCode" #-}+ )) of+ { !_exprOnested ->+ (case (args_ _argsOnested _argsOoptions _argsOoutputfile) of+ { ( !_argsIpps) ->+ (case (expr_ _exprOnested _exprOoptions _exprOoutputfile) of+ { ( !_exprIpp) ->+ (case (({-# LINE 185 "src-ag/PrintCode.ag" #-}+ if breadthFirst _lhsIoptions+ then "invoke" >#< pp_parens _exprIpp >#< pp_parens (+ nt_ >|< "_Inh" >#< pp_parens (ppTuple False _argsIpps))+ else _exprIpp >#< hv_sp _argsIpps+ {-# LINE 1955 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }) }) }) }) })))+sem_Expr_Lambda :: T_Exprs ->+ T_Expr ->+ T_Expr+sem_Expr_Lambda !(T_Exprs args_) !(T_Expr body_) =+ (T_Expr (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1970 "dist/build/PrintCode" #-}+ )) of+ { !_bodyOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1975 "dist/build/PrintCode" #-}+ )) of+ { !_bodyOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1980 "dist/build/PrintCode" #-}+ )) of+ { !_bodyOnested ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 1985 "dist/build/PrintCode" #-}+ )) of+ { !_argsOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 1990 "dist/build/PrintCode" #-}+ )) of+ { !_argsOoptions ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 1995 "dist/build/PrintCode" #-}+ )) of+ { !_argsOnested ->+ (case (({-# LINE 153 "src-ag/PrintCode.ag" #-}+ if bangpats _lhsIoptions+ then \p -> pp_parens ("!" >|< p)+ else id+ {-# LINE 2002 "dist/build/PrintCode" #-}+ )) of+ { !_addBang ->+ (case (args_ _argsOnested _argsOoptions _argsOoutputfile) of+ { ( !_argsIpps) ->+ (case (({-# LINE 150 "src-ag/PrintCode.ag" #-}+ if strictSems _lhsIoptions+ then _argsIpps+ else []+ {-# LINE 2011 "dist/build/PrintCode" #-}+ )) of+ { !_strictParams ->+ (case (body_ _bodyOnested _bodyOoptions _bodyOoutputfile) of+ { ( !_bodyIpp) ->+ (case (({-# LINE 156 "src-ag/PrintCode.ag" #-}+ pp_parens ( "\\" >#< (vlist (map _addBang _argsIpps)) >#< "->"+ >-< indent 4 (_strictParams `ppMultiSeqV` _bodyIpp)+ )+ {-# LINE 2020 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }) }) }) }) }) }) })))+sem_Expr_Let :: T_Decls ->+ T_Expr ->+ T_Expr+sem_Expr_Let !(T_Decls decls_) !(T_Expr body_) =+ (T_Expr (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 2035 "dist/build/PrintCode" #-}+ )) of+ { !_bodyOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2040 "dist/build/PrintCode" #-}+ )) of+ { !_bodyOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2045 "dist/build/PrintCode" #-}+ )) of+ { !_bodyOnested ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 2050 "dist/build/PrintCode" #-}+ )) of+ { !_declsOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2055 "dist/build/PrintCode" #-}+ )) of+ { !_declsOoptions ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2060 "dist/build/PrintCode" #-}+ )) of+ { !_declsOnested ->+ (case (({-# LINE 414 "src-ag/PrintCode.ag" #-}+ True+ {-# LINE 2065 "dist/build/PrintCode" #-}+ )) of+ { !_declsOisDeclOfLet ->+ (case (body_ _bodyOnested _bodyOoptions _bodyOoutputfile) of+ { ( !_bodyIpp) ->+ (case (decls_ _declsOisDeclOfLet _declsOnested _declsOoptions _declsOoutputfile) of+ { ( !_declsIpps) ->+ (case (({-# LINE 141 "src-ag/PrintCode.ag" #-}+ pp_parens ( "let" >#< (vlist _declsIpps)+ >-< "in " >#< _bodyIpp+ )+ {-# LINE 2076 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }) }) }) }) }) })))+sem_Expr_LineExpr :: T_Expr ->+ T_Expr+sem_Expr_LineExpr !(T_Expr expr_) =+ (T_Expr (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 2090 "dist/build/PrintCode" #-}+ )) of+ { !_exprOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2095 "dist/build/PrintCode" #-}+ )) of+ { !_exprOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2100 "dist/build/PrintCode" #-}+ )) of+ { !_exprOnested ->+ (case (expr_ _exprOnested _exprOoptions _exprOoutputfile) of+ { ( !_exprIpp) ->+ (case (({-# LINE 178 "src-ag/PrintCode.ag" #-}+ _exprIpp >-< "{-# LINE" >#< ppWithLineNr (\n -> pp $ show $ n + 1) >#< show _lhsIoutputfile >#< "#-}"+ >-< ""+ {-# LINE 2108 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) })))+sem_Expr_PragmaExpr :: Bool ->+ Bool ->+ String ->+ T_Expr ->+ T_Expr+sem_Expr_PragmaExpr !onLeftSide_ !onNewLine_ !txt_ !(T_Expr expr_) =+ (T_Expr (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 2125 "dist/build/PrintCode" #-}+ )) of+ { !_exprOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2130 "dist/build/PrintCode" #-}+ )) of+ { !_exprOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2135 "dist/build/PrintCode" #-}+ )) of+ { !_exprOnested ->+ (case (expr_ _exprOnested _exprOoptions _exprOoutputfile) of+ { ( !_exprIpp) ->+ (case (({-# LINE 167 "src-ag/PrintCode.ag" #-}+ let pragmaDoc = "{-#" >#< txt_ >#< "#-}"+ op = if onNewLine_+ then (>-<)+ else (>#<)+ leftOp x y = if onLeftSide_+ then x `op` y+ else y+ rightOp x y = if onLeftSide_+ then x+ else x `op` y+ in pp_parens (pragmaDoc `leftOp` _exprIpp `rightOp` pragmaDoc)+ {-# LINE 2152 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) })))+sem_Expr_ResultExpr :: String ->+ T_Expr ->+ T_Expr+sem_Expr_ResultExpr !nt_ !(T_Expr expr_) =+ (T_Expr (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 2167 "dist/build/PrintCode" #-}+ )) of+ { !_exprOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2172 "dist/build/PrintCode" #-}+ )) of+ { !_exprOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2177 "dist/build/PrintCode" #-}+ )) of+ { !_exprOnested ->+ (case (expr_ _exprOnested _exprOoptions _exprOoutputfile) of+ { ( !_exprIpp) ->+ (case (({-# LINE 181 "src-ag/PrintCode.ag" #-}+ if breadthFirst _lhsIoptions+ then "final" >#<+ pp_parens (nt_ >|< "_Syn" >#< pp_parens _exprIpp)+ else _exprIpp+ {-# LINE 2187 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) })))+sem_Expr_ResumeExpr :: String ->+ T_Expr ->+ T_Lhs ->+ T_Expr ->+ T_Expr+sem_Expr_ResumeExpr !nt_ !(T_Expr expr_) !(T_Lhs left_) !(T_Expr rhs_) =+ (T_Expr (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 2204 "dist/build/PrintCode" #-}+ )) of+ { !_rhsOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2209 "dist/build/PrintCode" #-}+ )) of+ { !_rhsOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2214 "dist/build/PrintCode" #-}+ )) of+ { !_rhsOnested ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 2219 "dist/build/PrintCode" #-}+ )) of+ { !_leftOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2224 "dist/build/PrintCode" #-}+ )) of+ { !_leftOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2229 "dist/build/PrintCode" #-}+ )) of+ { !_leftOnested ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 2234 "dist/build/PrintCode" #-}+ )) of+ { !_exprOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2239 "dist/build/PrintCode" #-}+ )) of+ { !_exprOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2244 "dist/build/PrintCode" #-}+ )) of+ { !_exprOnested ->+ (case (({-# LINE 418 "src-ag/PrintCode.ag" #-}+ False+ {-# LINE 2249 "dist/build/PrintCode" #-}+ )) of+ { !_leftOisDeclOfLet ->+ (case (rhs_ _rhsOnested _rhsOoptions _rhsOoutputfile) of+ { ( !_rhsIpp) ->+ (case (left_ _leftOisDeclOfLet _leftOnested _leftOoptions _leftOoutputfile) of+ { ( !_leftIpp) ->+ (case (expr_ _exprOnested _exprOoptions _exprOoutputfile) of+ { ( !_exprIpp) ->+ (case (({-# LINE 189 "src-ag/PrintCode.ag" #-}+ if breadthFirst _lhsIoptions+ then pp_parens ("resume" >#< pp_parens _exprIpp+ >-< indent 2 (pp_parens ( "\\" >|<+ pp_parens ("~" >|< pp_parens (nt_ >|< "_Syn" >#< "_inh_arg"))+ >#< "->"+ >-< indent 2 ( "let" >#< _leftIpp >#< "= _inh_arg"+ >-< indent 2 ("in" >#< _rhsIpp)+ ))))+ else pp_parens ( "case" >#< pp_parens _exprIpp >#< "of"+ >-< ("{" >#< _leftIpp >#< "->")+ >-< indent 4 (_rhsIpp >#< "}")+ )+ {-# LINE 2271 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+sem_Expr_SemFun :: String ->+ T_Exprs ->+ T_Expr ->+ T_Expr+sem_Expr_SemFun !nt_ !(T_Exprs args_) !(T_Expr body_) =+ (T_Expr (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 2287 "dist/build/PrintCode" #-}+ )) of+ { !_bodyOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2292 "dist/build/PrintCode" #-}+ )) of+ { !_bodyOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2297 "dist/build/PrintCode" #-}+ )) of+ { !_bodyOnested ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 2302 "dist/build/PrintCode" #-}+ )) of+ { !_argsOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2307 "dist/build/PrintCode" #-}+ )) of+ { !_argsOoptions ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2312 "dist/build/PrintCode" #-}+ )) of+ { !_argsOnested ->+ (case (({-# LINE 204 "src-ag/PrintCode.ag" #-}+ if bangpats _lhsIoptions+ then \p -> pp_parens ("!" >|< p)+ else id+ {-# LINE 2319 "dist/build/PrintCode" #-}+ )) of+ { !_addBang ->+ (case (args_ _argsOnested _argsOoptions _argsOoutputfile) of+ { ( !_argsIpps) ->+ (case (({-# LINE 201 "src-ag/PrintCode.ag" #-}+ if strictSems _lhsIoptions+ then _argsIpps+ else []+ {-# LINE 2328 "dist/build/PrintCode" #-}+ )) of+ { !_strictParams ->+ (case (body_ _bodyOnested _bodyOoptions _bodyOoutputfile) of+ { ( !_bodyIpp) ->+ (case (({-# LINE 207 "src-ag/PrintCode.ag" #-}+ if breadthFirst _lhsIoptions+ then "Child" >#< pp_parens ( "\\" >|<+ pp_parens (nt_ >|< "_Inh" >#<+ ppTuple False (map _addBang _argsIpps)) >#< "->"+ >-< indent 2 (_strictParams `ppMultiSeqV` _bodyIpp))+ else if null _argsIpps+ then _bodyIpp+ else pp_parens ( "\\" >#< (vlist (map _addBang _argsIpps)) >#< "->"+ >-< indent 4 (_strictParams `ppMultiSeqV` _bodyIpp)+ )+ {-# LINE 2344 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }) }) }) }) }) }) })))+sem_Expr_SimpleExpr :: String ->+ T_Expr+sem_Expr_SimpleExpr !txt_ =+ (T_Expr (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 162 "src-ag/PrintCode.ag" #-}+ text txt_+ {-# LINE 2358 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) })))+sem_Expr_TextExpr :: ([String]) ->+ T_Expr+sem_Expr_TextExpr !lns_ =+ (T_Expr (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 163 "src-ag/PrintCode.ag" #-}+ vlist (map text lns_)+ {-# LINE 2372 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) })))+sem_Expr_Trace :: String ->+ T_Expr ->+ T_Expr+sem_Expr_Trace !txt_ !(T_Expr expr_) =+ (T_Expr (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 2387 "dist/build/PrintCode" #-}+ )) of+ { !_exprOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2392 "dist/build/PrintCode" #-}+ )) of+ { !_exprOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2397 "dist/build/PrintCode" #-}+ )) of+ { !_exprOnested ->+ (case (expr_ _exprOnested _exprOoptions _exprOoutputfile) of+ { ( !_exprIpp) ->+ (case (({-# LINE 164 "src-ag/PrintCode.ag" #-}+ "trace" >#< ( pp_parens ("\"" >|< text txt_ >|< "\"")+ >-< pp_parens _exprIpp+ )+ {-# LINE 2406 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) })))+sem_Expr_TupleExpr :: T_Exprs ->+ T_Expr+sem_Expr_TupleExpr !(T_Exprs exprs_) =+ (T_Expr (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 2420 "dist/build/PrintCode" #-}+ )) of+ { !_exprsOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2425 "dist/build/PrintCode" #-}+ )) of+ { !_exprsOoptions ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2430 "dist/build/PrintCode" #-}+ )) of+ { !_exprsOnested ->+ (case (exprs_ _exprsOnested _exprsOoptions _exprsOoutputfile) of+ { ( !_exprsIpps) ->+ (case (({-# LINE 159 "src-ag/PrintCode.ag" #-}+ ppTuple _lhsInested _exprsIpps+ {-# LINE 2437 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) })))+sem_Expr_TypedExpr :: T_Expr ->+ T_Type ->+ T_Expr+sem_Expr_TypedExpr !(T_Expr expr_) !(T_Type tp_) =+ (T_Expr (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2452 "dist/build/PrintCode" #-}+ )) of+ { !_tpOnested ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 2457 "dist/build/PrintCode" #-}+ )) of+ { !_exprOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2462 "dist/build/PrintCode" #-}+ )) of+ { !_exprOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2467 "dist/build/PrintCode" #-}+ )) of+ { !_exprOnested ->+ (case (tp_ _tpOnested) of+ { ( !_tpIpp,!_tpIprec) ->+ (case (expr_ _exprOnested _exprOoptions _exprOoutputfile) of+ { ( !_exprIpp) ->+ (case (({-# LINE 180 "src-ag/PrintCode.ag" #-}+ pp_parens (_exprIpp >#< "::" >#< _tpIpp)+ {-# LINE 2476 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }) }) })))+sem_Expr_UnboxedTupleExpr :: T_Exprs ->+ T_Expr+sem_Expr_UnboxedTupleExpr !(T_Exprs exprs_) =+ (T_Expr (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 2490 "dist/build/PrintCode" #-}+ )) of+ { !_exprsOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2495 "dist/build/PrintCode" #-}+ )) of+ { !_exprsOoptions ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2500 "dist/build/PrintCode" #-}+ )) of+ { !_exprsOnested ->+ (case (exprs_ _exprsOnested _exprsOoptions _exprsOoutputfile) of+ { ( !_exprsIpps) ->+ (case (({-# LINE 160 "src-ag/PrintCode.ag" #-}+ ppUnboxedTuple _lhsInested _exprsIpps+ {-# LINE 2507 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) })))+-- Exprs -------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ nested : Bool+ options : Options+ outputfile : String+ synthesized attribute:+ pps : PP_Docs+ alternatives:+ alternative Cons:+ child hd : Expr + child tl : Exprs + alternative Nil:+-}+-- cata+sem_Exprs :: Exprs ->+ T_Exprs+sem_Exprs !list =+ (Prelude.foldr sem_Exprs_Cons sem_Exprs_Nil (Prelude.map sem_Expr list))+-- semantic domain+newtype T_Exprs = T_Exprs (Bool ->+ Options ->+ String ->+ ( PP_Docs))+data Inh_Exprs = Inh_Exprs {nested_Inh_Exprs :: !(Bool),options_Inh_Exprs :: !(Options),outputfile_Inh_Exprs :: !(String)}+data Syn_Exprs = Syn_Exprs {pps_Syn_Exprs :: !(PP_Docs)}+wrap_Exprs :: T_Exprs ->+ Inh_Exprs ->+ Syn_Exprs+wrap_Exprs !(T_Exprs sem) !(Inh_Exprs _lhsInested _lhsIoptions _lhsIoutputfile) =+ (let ( !_lhsOpps) = sem _lhsInested _lhsIoptions _lhsIoutputfile+ in (Syn_Exprs _lhsOpps))+sem_Exprs_Cons :: T_Expr ->+ T_Exprs ->+ T_Exprs+sem_Exprs_Cons !(T_Expr hd_) !(T_Exprs tl_) =+ (T_Exprs (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 2555 "dist/build/PrintCode" #-}+ )) of+ { !_tlOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2560 "dist/build/PrintCode" #-}+ )) of+ { !_tlOoptions ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2565 "dist/build/PrintCode" #-}+ )) of+ { !_tlOnested ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 2570 "dist/build/PrintCode" #-}+ )) of+ { !_hdOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2575 "dist/build/PrintCode" #-}+ )) of+ { !_hdOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2580 "dist/build/PrintCode" #-}+ )) of+ { !_hdOnested ->+ (case (tl_ _tlOnested _tlOoptions _tlOoutputfile) of+ { ( !_tlIpps) ->+ (case (hd_ _hdOnested _hdOoptions _hdOoutputfile) of+ { ( !_hdIpp) ->+ (case (({-# LINE 65 "src-ag/PrintCode.ag" #-}+ _hdIpp : _tlIpps+ {-# LINE 2589 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpps ->+ (case ((Syn_Exprs _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }) }) }) }) }) }) }) }) })))+sem_Exprs_Nil :: T_Exprs+sem_Exprs_Nil =+ (T_Exprs (\ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 66 "src-ag/PrintCode.ag" #-}+ []+ {-# LINE 2602 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpps ->+ (case ((Syn_Exprs _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) })))+-- Lhs ---------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ isDeclOfLet : Bool+ nested : Bool+ options : Options+ outputfile : String+ synthesized attribute:+ pp : PP_Doc+ alternatives:+ alternative Fun:+ child name : {String}+ child args : Exprs + visit 0:+ local addBang : _+ local strictGuard : _+ local hasStrictVars : _+ local addStrictGuard : _+ alternative Pattern3:+ child pat3 : Pattern + visit 0:+ local hasStrictVars : _+ local strictGuard : _+ local addStrictGuard : _+ alternative Pattern3SM:+ child pat3 : Pattern + alternative TupleLhs:+ child comps : {[String]}+ visit 0:+ local addBang : _+ local hasStrictVars : _+ local strictGuard : _+ local addStrictGuard : _+ alternative UnboxedTupleLhs:+ child comps : {[String]}+ visit 0:+ local addBang : _+ local hasStrictVars : _+ local strictGuard : _+ local addStrictGuard : _+ alternative Unwrap:+ child name : {String}+ child sub : Lhs +-}+-- cata+sem_Lhs :: Lhs ->+ T_Lhs+sem_Lhs !(Fun _name _args) =+ (sem_Lhs_Fun _name (sem_Exprs _args))+sem_Lhs !(Pattern3 _pat3) =+ (sem_Lhs_Pattern3 (sem_Pattern _pat3))+sem_Lhs !(Pattern3SM _pat3) =+ (sem_Lhs_Pattern3SM (sem_Pattern _pat3))+sem_Lhs !(TupleLhs _comps) =+ (sem_Lhs_TupleLhs _comps)+sem_Lhs !(UnboxedTupleLhs _comps) =+ (sem_Lhs_UnboxedTupleLhs _comps)+sem_Lhs !(Unwrap _name _sub) =+ (sem_Lhs_Unwrap _name (sem_Lhs _sub))+-- semantic domain+newtype T_Lhs = T_Lhs (Bool ->+ Bool ->+ Options ->+ String ->+ ( PP_Doc))+data Inh_Lhs = Inh_Lhs {isDeclOfLet_Inh_Lhs :: !(Bool),nested_Inh_Lhs :: !(Bool),options_Inh_Lhs :: !(Options),outputfile_Inh_Lhs :: !(String)}+data Syn_Lhs = Syn_Lhs {pp_Syn_Lhs :: !(PP_Doc)}+wrap_Lhs :: T_Lhs ->+ Inh_Lhs ->+ Syn_Lhs+wrap_Lhs !(T_Lhs sem) !(Inh_Lhs _lhsIisDeclOfLet _lhsInested _lhsIoptions _lhsIoutputfile) =+ (let ( !_lhsOpp) = sem _lhsIisDeclOfLet _lhsInested _lhsIoptions _lhsIoutputfile+ in (Syn_Lhs _lhsOpp))+sem_Lhs_Fun :: String ->+ T_Exprs ->+ T_Lhs+sem_Lhs_Fun !name_ !(T_Exprs args_) =+ (T_Lhs (\ (!_lhsIisDeclOfLet)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 2692 "dist/build/PrintCode" #-}+ )) of+ { !_argsOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2697 "dist/build/PrintCode" #-}+ )) of+ { !_argsOoptions ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2702 "dist/build/PrintCode" #-}+ )) of+ { !_argsOnested ->+ (case (({-# LINE 248 "src-ag/PrintCode.ag" #-}+ if bangpats _lhsIoptions+ then \p -> "!" >|< p+ else id+ {-# LINE 2709 "dist/build/PrintCode" #-}+ )) of+ { !_addBang ->+ (case (args_ _argsOnested _argsOoptions _argsOoutputfile) of+ { ( !_argsIpps) ->+ (case (({-# LINE 245 "src-ag/PrintCode.ag" #-}+ _argsIpps `ppMultiSeqH` (pp "True")+ {-# LINE 2716 "dist/build/PrintCode" #-}+ )) of+ { !_strictGuard ->+ (case (({-# LINE 244 "src-ag/PrintCode.ag" #-}+ not (null _argsIpps)+ {-# LINE 2721 "dist/build/PrintCode" #-}+ )) of+ { !_hasStrictVars ->+ (case (({-# LINE 243 "src-ag/PrintCode.ag" #-}+ if strictSems _lhsIoptions && _hasStrictVars then \v -> v >#< "|" >#< _strictGuard else id+ {-# LINE 2726 "dist/build/PrintCode" #-}+ )) of+ { !_addStrictGuard ->+ (case (({-# LINE 256 "src-ag/PrintCode.ag" #-}+ _addStrictGuard (name_ >#< hv_sp (map _addBang _argsIpps))+ {-# LINE 2731 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Lhs _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }) }) }) }) })))+sem_Lhs_Pattern3 :: T_Pattern ->+ T_Lhs+sem_Lhs_Pattern3 !(T_Pattern pat3_) =+ (T_Lhs (\ (!_lhsIisDeclOfLet)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2746 "dist/build/PrintCode" #-}+ )) of+ { !_pat3Ooptions ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 2751 "dist/build/PrintCode" #-}+ )) of+ { !_pat3OisDeclOfLet ->+ (case (({-# LINE 380 "src-ag/PrintCode.ag" #-}+ False+ {-# LINE 2756 "dist/build/PrintCode" #-}+ )) of+ { !_pat3ObelowIrrefutable ->+ (case (pat3_ _pat3ObelowIrrefutable _pat3OisDeclOfLet _pat3Ooptions) of+ { ( !_pat3Icopy,!_pat3IisUnderscore,!_pat3Ipp,!_pat3Ipp',!_pat3IstrictVars) ->+ (case (({-# LINE 235 "src-ag/PrintCode.ag" #-}+ not (null _pat3IstrictVars)+ {-# LINE 2763 "dist/build/PrintCode" #-}+ )) of+ { !_hasStrictVars ->+ (case (({-# LINE 234 "src-ag/PrintCode.ag" #-}+ _pat3IstrictVars `ppMultiSeqH` (pp "True")+ {-# LINE 2768 "dist/build/PrintCode" #-}+ )) of+ { !_strictGuard ->+ (case (({-# LINE 232 "src-ag/PrintCode.ag" #-}+ if strictCases _lhsIoptions && _hasStrictVars then \v -> v >#< "|" >#< _strictGuard else id+ {-# LINE 2773 "dist/build/PrintCode" #-}+ )) of+ { !_addStrictGuard ->+ (case (({-# LINE 252 "src-ag/PrintCode.ag" #-}+ _addStrictGuard _pat3Ipp+ {-# LINE 2778 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Lhs _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }) }) }) })))+sem_Lhs_Pattern3SM :: T_Pattern ->+ T_Lhs+sem_Lhs_Pattern3SM !(T_Pattern pat3_) =+ (T_Lhs (\ (!_lhsIisDeclOfLet)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2793 "dist/build/PrintCode" #-}+ )) of+ { !_pat3Ooptions ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 2798 "dist/build/PrintCode" #-}+ )) of+ { !_pat3OisDeclOfLet ->+ (case (({-# LINE 380 "src-ag/PrintCode.ag" #-}+ False+ {-# LINE 2803 "dist/build/PrintCode" #-}+ )) of+ { !_pat3ObelowIrrefutable ->+ (case (pat3_ _pat3ObelowIrrefutable _pat3OisDeclOfLet _pat3Ooptions) of+ { ( !_pat3Icopy,!_pat3IisUnderscore,!_pat3Ipp,!_pat3Ipp',!_pat3IstrictVars) ->+ (case (({-# LINE 253 "src-ag/PrintCode.ag" #-}+ _pat3Ipp'+ {-# LINE 2810 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Lhs _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) })))+sem_Lhs_TupleLhs :: ([String]) ->+ T_Lhs+sem_Lhs_TupleLhs !comps_ =+ (T_Lhs (\ (!_lhsIisDeclOfLet)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 248 "src-ag/PrintCode.ag" #-}+ if bangpats _lhsIoptions+ then \p -> "!" >|< p+ else id+ {-# LINE 2827 "dist/build/PrintCode" #-}+ )) of+ { !_addBang ->+ (case (({-# LINE 240 "src-ag/PrintCode.ag" #-}+ not (null comps_)+ {-# LINE 2832 "dist/build/PrintCode" #-}+ )) of+ { !_hasStrictVars ->+ (case (({-# LINE 237 "src-ag/PrintCode.ag" #-}+ if stricterCases _lhsIoptions && not _lhsIisDeclOfLet+ then map text comps_ `ppMultiSeqH` (pp "True")+ else pp "True"+ {-# LINE 2839 "dist/build/PrintCode" #-}+ )) of+ { !_strictGuard ->+ (case (({-# LINE 232 "src-ag/PrintCode.ag" #-}+ if strictCases _lhsIoptions && _hasStrictVars then \v -> v >#< "|" >#< _strictGuard else id+ {-# LINE 2844 "dist/build/PrintCode" #-}+ )) of+ { !_addStrictGuard ->+ (case (({-# LINE 254 "src-ag/PrintCode.ag" #-}+ _addStrictGuard $ ppTuple _lhsInested (map (_addBang . text) comps_)+ {-# LINE 2849 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Lhs _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) })))+sem_Lhs_UnboxedTupleLhs :: ([String]) ->+ T_Lhs+sem_Lhs_UnboxedTupleLhs !comps_ =+ (T_Lhs (\ (!_lhsIisDeclOfLet)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 248 "src-ag/PrintCode.ag" #-}+ if bangpats _lhsIoptions+ then \p -> "!" >|< p+ else id+ {-# LINE 2866 "dist/build/PrintCode" #-}+ )) of+ { !_addBang ->+ (case (({-# LINE 240 "src-ag/PrintCode.ag" #-}+ not (null comps_)+ {-# LINE 2871 "dist/build/PrintCode" #-}+ )) of+ { !_hasStrictVars ->+ (case (({-# LINE 237 "src-ag/PrintCode.ag" #-}+ if stricterCases _lhsIoptions && not _lhsIisDeclOfLet+ then map text comps_ `ppMultiSeqH` (pp "True")+ else pp "True"+ {-# LINE 2878 "dist/build/PrintCode" #-}+ )) of+ { !_strictGuard ->+ (case (({-# LINE 232 "src-ag/PrintCode.ag" #-}+ if strictCases _lhsIoptions && _hasStrictVars then \v -> v >#< "|" >#< _strictGuard else id+ {-# LINE 2883 "dist/build/PrintCode" #-}+ )) of+ { !_addStrictGuard ->+ (case (({-# LINE 255 "src-ag/PrintCode.ag" #-}+ _addStrictGuard $ ppUnboxedTuple _lhsInested (map (_addBang . text) comps_)+ {-# LINE 2888 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Lhs _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) })))+sem_Lhs_Unwrap :: String ->+ T_Lhs ->+ T_Lhs+sem_Lhs_Unwrap !name_ !(T_Lhs sub_) =+ (T_Lhs (\ (!_lhsIisDeclOfLet)+ (!_lhsInested)+ (!_lhsIoptions)+ (!_lhsIoutputfile) ->+ (case (({-# LINE 40 "src-ag/PrintCode.ag" #-}+ _lhsIoutputfile+ {-# LINE 2904 "dist/build/PrintCode" #-}+ )) of+ { !_subOoutputfile ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 2909 "dist/build/PrintCode" #-}+ )) of+ { !_subOoptions ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2914 "dist/build/PrintCode" #-}+ )) of+ { !_subOnested ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 2919 "dist/build/PrintCode" #-}+ )) of+ { !_subOisDeclOfLet ->+ (case (sub_ _subOisDeclOfLet _subOnested _subOoptions _subOoutputfile) of+ { ( !_subIpp) ->+ (case (({-# LINE 257 "src-ag/PrintCode.ag" #-}+ pp_parens (name_ >#< _subIpp)+ {-# LINE 2926 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_Lhs _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }) })))+-- NamedType ---------------------------------------------------+{-+ visit 0:+ inherited attribute:+ nested : Bool+ synthesized attribute:+ pp : PP_Doc+ alternatives:+ alternative Named:+ child strict : {Bool}+ child name : {String}+ child tp : Type +-}+-- cata+sem_NamedType :: NamedType ->+ T_NamedType+sem_NamedType !(Named _strict _name _tp) =+ (sem_NamedType_Named _strict _name (sem_Type _tp))+-- semantic domain+newtype T_NamedType = T_NamedType (Bool ->+ ( PP_Doc))+data Inh_NamedType = Inh_NamedType {nested_Inh_NamedType :: !(Bool)}+data Syn_NamedType = Syn_NamedType {pp_Syn_NamedType :: !(PP_Doc)}+wrap_NamedType :: T_NamedType ->+ Inh_NamedType ->+ Syn_NamedType+wrap_NamedType !(T_NamedType sem) !(Inh_NamedType _lhsInested) =+ (let ( !_lhsOpp) = sem _lhsInested+ in (Syn_NamedType _lhsOpp))+sem_NamedType_Named :: Bool ->+ String ->+ T_Type ->+ T_NamedType+sem_NamedType_Named !strict_ !name_ !(T_Type tp_) =+ (T_NamedType (\ (!_lhsInested) ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 2969 "dist/build/PrintCode" #-}+ )) of+ { !_tpOnested ->+ (case (tp_ _tpOnested) of+ { ( !_tpIpp,!_tpIprec) ->+ (case (({-# LINE 226 "src-ag/PrintCode.ag" #-}+ if strict_+ then name_ >#< "::" >#< "!" >|< pp_parens _tpIpp+ else name_ >#< "::" >#< _tpIpp+ {-# LINE 2978 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case ((Syn_NamedType _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) })))+-- NamedTypes --------------------------------------------------+{-+ visit 0:+ inherited attribute:+ nested : Bool+ synthesized attribute:+ pps : PP_Docs+ alternatives:+ alternative Cons:+ child hd : NamedType + child tl : NamedTypes + alternative Nil:+-}+-- cata+sem_NamedTypes :: NamedTypes ->+ T_NamedTypes+sem_NamedTypes !list =+ (Prelude.foldr sem_NamedTypes_Cons sem_NamedTypes_Nil (Prelude.map sem_NamedType list))+-- semantic domain+newtype T_NamedTypes = T_NamedTypes (Bool ->+ ( PP_Docs))+data Inh_NamedTypes = Inh_NamedTypes {nested_Inh_NamedTypes :: !(Bool)}+data Syn_NamedTypes = Syn_NamedTypes {pps_Syn_NamedTypes :: !(PP_Docs)}+wrap_NamedTypes :: T_NamedTypes ->+ Inh_NamedTypes ->+ Syn_NamedTypes+wrap_NamedTypes !(T_NamedTypes sem) !(Inh_NamedTypes _lhsInested) =+ (let ( !_lhsOpps) = sem _lhsInested+ in (Syn_NamedTypes _lhsOpps))+sem_NamedTypes_Cons :: T_NamedType ->+ T_NamedTypes ->+ T_NamedTypes+sem_NamedTypes_Cons !(T_NamedType hd_) !(T_NamedTypes tl_) =+ (T_NamedTypes (\ (!_lhsInested) ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 3020 "dist/build/PrintCode" #-}+ )) of+ { !_tlOnested ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 3025 "dist/build/PrintCode" #-}+ )) of+ { !_hdOnested ->+ (case (tl_ _tlOnested) of+ { ( !_tlIpps) ->+ (case (hd_ _hdOnested) of+ { ( !_hdIpp) ->+ (case (({-# LINE 81 "src-ag/PrintCode.ag" #-}+ _hdIpp : _tlIpps+ {-# LINE 3034 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpps ->+ (case ((Syn_NamedTypes _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }) }) }) }) })))+sem_NamedTypes_Nil :: T_NamedTypes+sem_NamedTypes_Nil =+ (T_NamedTypes (\ (!_lhsInested) ->+ (case (({-# LINE 82 "src-ag/PrintCode.ag" #-}+ []+ {-# LINE 3045 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpps ->+ (case ((Syn_NamedTypes _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) })))+-- Pattern -----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ belowIrrefutable : Bool+ isDeclOfLet : Bool+ options : Options+ synthesized attributes:+ copy : Pattern + isUnderscore : Bool+ pp : PP_Doc+ pp' : PP_Doc+ strictVars : [PP_Doc]+ alternatives:+ alternative Alias:+ child field : {Identifier}+ child attr : {Identifier}+ child pat : Pattern + visit 0:+ local copy : _+ local ppVar : _+ local addBang : _+ local ppVarBang : _+ local strictPatVars : _+ local strictVar : _+ alternative Constr:+ child name : {ConstructorIdent}+ child pats : Patterns + visit 0:+ local copy : _+ local addBang : _+ alternative Irrefutable:+ child pat : Pattern + visit 0:+ local copy : _+ alternative Product:+ child pos : {Pos}+ child pats : Patterns + visit 0:+ local copy : _+ local addBang : _+ alternative Underscore:+ child pos : {Pos}+ visit 0:+ local copy : _+-}+-- cata+sem_Pattern :: Pattern ->+ T_Pattern+sem_Pattern !(Alias _field _attr _pat) =+ (sem_Pattern_Alias _field _attr (sem_Pattern _pat))+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 (Bool ->+ Bool ->+ Options ->+ ( Pattern,Bool,PP_Doc,PP_Doc,([PP_Doc])))+data Inh_Pattern = Inh_Pattern {belowIrrefutable_Inh_Pattern :: !(Bool),isDeclOfLet_Inh_Pattern :: !(Bool),options_Inh_Pattern :: !(Options)}+data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern),isUnderscore_Syn_Pattern :: !(Bool),pp_Syn_Pattern :: !(PP_Doc),pp'_Syn_Pattern :: !(PP_Doc),strictVars_Syn_Pattern :: !(([PP_Doc]))}+wrap_Pattern :: T_Pattern ->+ Inh_Pattern ->+ Syn_Pattern+wrap_Pattern !(T_Pattern sem) !(Inh_Pattern _lhsIbelowIrrefutable _lhsIisDeclOfLet _lhsIoptions) =+ (let ( !_lhsOcopy,!_lhsOisUnderscore,!_lhsOpp,!_lhsOpp',!_lhsOstrictVars) = sem _lhsIbelowIrrefutable _lhsIisDeclOfLet _lhsIoptions+ in (Syn_Pattern _lhsOcopy _lhsOisUnderscore _lhsOpp _lhsOpp' _lhsOstrictVars))+sem_Pattern_Alias :: Identifier ->+ Identifier ->+ T_Pattern ->+ T_Pattern+sem_Pattern_Alias !field_ !attr_ !(T_Pattern pat_) =+ (T_Pattern (\ (!_lhsIbelowIrrefutable)+ (!_lhsIisDeclOfLet)+ (!_lhsIoptions) ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 3133 "dist/build/PrintCode" #-}+ )) of+ { !_patOoptions ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 3138 "dist/build/PrintCode" #-}+ )) of+ { !_patOisDeclOfLet ->+ (case (({-# LINE 373 "src-ag/PrintCode.ag" #-}+ _lhsIbelowIrrefutable+ {-# LINE 3143 "dist/build/PrintCode" #-}+ )) of+ { !_patObelowIrrefutable ->+ (case (pat_ _patObelowIrrefutable _patOisDeclOfLet _patOoptions) of+ { ( !_patIcopy,!_patIisUnderscore,!_patIpp,!_patIpp',!_patIstrictVars) ->+ (case (({-# LINE 22 "src-ag/Patterns.ag" #-}+ Alias field_ attr_ _patIcopy+ {-# LINE 3150 "dist/build/PrintCode" #-}+ )) of+ { !_copy ->+ (case (({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 3155 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOcopy ->+ (case (({-# LINE 370 "src-ag/PrintCode.ag" #-}+ False+ {-# LINE 3160 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOisUnderscore ->+ (case (({-# LINE 359 "src-ag/PrintCode.ag" #-}+ pp (attrname False field_ attr_)+ {-# LINE 3165 "dist/build/PrintCode" #-}+ )) of+ { !_ppVar ->+ (case (({-# LINE 352 "src-ag/PrintCode.ag" #-}+ if bangpats _lhsIoptions && not _lhsIisDeclOfLet && not _lhsIbelowIrrefutable+ then \p -> "!" >|< p+ else id+ {-# LINE 3172 "dist/build/PrintCode" #-}+ )) of+ { !_addBang ->+ (case (({-# LINE 360 "src-ag/PrintCode.ag" #-}+ _addBang $ _ppVar+ {-# LINE 3177 "dist/build/PrintCode" #-}+ )) of+ { !_ppVarBang ->+ (case (({-# LINE 361 "src-ag/PrintCode.ag" #-}+ if _patIisUnderscore+ then _ppVarBang+ else _ppVarBang >|< "@" >|< _patIpp+ {-# LINE 3184 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case (({-# LINE 393 "src-ag/PrintCode.ag" #-}+ let attribute | field_ == _LOC || field_ == nullIdent = locname' attr_+ | otherwise = attrname False field_ attr_+ in attribute >|< "@" >|< _patIpp'+ {-# LINE 3191 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp' ->+ (case (({-# LINE 333 "src-ag/PrintCode.ag" #-}+ if stricterCases _lhsIoptions && not _lhsIisDeclOfLet+ then _patIstrictVars+ else []+ {-# LINE 3198 "dist/build/PrintCode" #-}+ )) of+ { !_strictPatVars ->+ (case (({-# LINE 329 "src-ag/PrintCode.ag" #-}+ if strictCases _lhsIoptions && not _lhsIisDeclOfLet+ then [_ppVar ]+ else []+ {-# LINE 3205 "dist/build/PrintCode" #-}+ )) of+ { !_strictVar ->+ (case (({-# LINE 337 "src-ag/PrintCode.ag" #-}+ _strictVar ++ _strictPatVars+ {-# LINE 3210 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOstrictVars ->+ (case ((Syn_Pattern _lhsOcopy _lhsOisUnderscore _lhsOpp _lhsOpp' _lhsOstrictVars)) of+ { ___node ->+ ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp,_lhsOpp',_lhsOstrictVars) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+sem_Pattern_Constr :: ConstructorIdent ->+ T_Patterns ->+ T_Pattern+sem_Pattern_Constr !name_ !(T_Patterns pats_) =+ (T_Pattern (\ (!_lhsIbelowIrrefutable)+ (!_lhsIisDeclOfLet)+ (!_lhsIoptions) ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 3225 "dist/build/PrintCode" #-}+ )) of+ { !_patsOoptions ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 3230 "dist/build/PrintCode" #-}+ )) of+ { !_patsOisDeclOfLet ->+ (case (({-# LINE 373 "src-ag/PrintCode.ag" #-}+ _lhsIbelowIrrefutable+ {-# LINE 3235 "dist/build/PrintCode" #-}+ )) of+ { !_patsObelowIrrefutable ->+ (case (pats_ _patsObelowIrrefutable _patsOisDeclOfLet _patsOoptions) of+ { ( !_patsIcopy,!_patsIpps,!_patsIpps',!_patsIstrictVars) ->+ (case (({-# LINE 22 "src-ag/Patterns.ag" #-}+ Constr name_ _patsIcopy+ {-# LINE 3242 "dist/build/PrintCode" #-}+ )) of+ { !_copy ->+ (case (({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 3247 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOcopy ->+ (case (({-# LINE 368 "src-ag/PrintCode.ag" #-}+ False+ {-# LINE 3252 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOisUnderscore ->+ (case (({-# LINE 352 "src-ag/PrintCode.ag" #-}+ if bangpats _lhsIoptions && not _lhsIisDeclOfLet && not _lhsIbelowIrrefutable+ then \p -> "!" >|< p+ else id+ {-# LINE 3259 "dist/build/PrintCode" #-}+ )) of+ { !_addBang ->+ (case (({-# LINE 357 "src-ag/PrintCode.ag" #-}+ _addBang $ pp_parens $ name_ >#< hv_sp _patsIpps+ {-# LINE 3264 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case (({-# LINE 391 "src-ag/PrintCode.ag" #-}+ pp_parens $ name_ >#< hv_sp (map pp_parens _patsIpps')+ {-# LINE 3269 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp' ->+ (case (({-# LINE 326 "src-ag/PrintCode.ag" #-}+ _patsIstrictVars+ {-# LINE 3274 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOstrictVars ->+ (case ((Syn_Pattern _lhsOcopy _lhsOisUnderscore _lhsOpp _lhsOpp' _lhsOstrictVars)) of+ { ___node ->+ ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp,_lhsOpp',_lhsOstrictVars) }) }) }) }) }) }) }) }) }) }) }) })))+sem_Pattern_Irrefutable :: T_Pattern ->+ T_Pattern+sem_Pattern_Irrefutable !(T_Pattern pat_) =+ (T_Pattern (\ (!_lhsIbelowIrrefutable)+ (!_lhsIisDeclOfLet)+ (!_lhsIoptions) ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 3288 "dist/build/PrintCode" #-}+ )) of+ { !_patOoptions ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 3293 "dist/build/PrintCode" #-}+ )) of+ { !_patOisDeclOfLet ->+ (case (({-# LINE 376 "src-ag/PrintCode.ag" #-}+ True+ {-# LINE 3298 "dist/build/PrintCode" #-}+ )) of+ { !_patObelowIrrefutable ->+ (case (pat_ _patObelowIrrefutable _patOisDeclOfLet _patOoptions) of+ { ( !_patIcopy,!_patIisUnderscore,!_patIpp,!_patIpp',!_patIstrictVars) ->+ (case (({-# LINE 22 "src-ag/Patterns.ag" #-}+ Irrefutable _patIcopy+ {-# LINE 3305 "dist/build/PrintCode" #-}+ )) of+ { !_copy ->+ (case (({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 3310 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOcopy ->+ (case (({-# LINE 367 "src-ag/PrintCode.ag" #-}+ _patIisUnderscore+ {-# LINE 3315 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOisUnderscore ->+ (case (({-# LINE 364 "src-ag/PrintCode.ag" #-}+ text "~" >|< pp_parens _patIpp+ {-# LINE 3320 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case (({-# LINE 396 "src-ag/PrintCode.ag" #-}+ text "~" >|< pp_parens _patIpp+ {-# LINE 3325 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp' ->+ (case (({-# LINE 340 "src-ag/PrintCode.ag" #-}+ []+ {-# LINE 3330 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOstrictVars ->+ (case ((Syn_Pattern _lhsOcopy _lhsOisUnderscore _lhsOpp _lhsOpp' _lhsOstrictVars)) of+ { ___node ->+ ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp,_lhsOpp',_lhsOstrictVars) }) }) }) }) }) }) }) }) }) }) })))+sem_Pattern_Product :: Pos ->+ T_Patterns ->+ T_Pattern+sem_Pattern_Product !pos_ !(T_Patterns pats_) =+ (T_Pattern (\ (!_lhsIbelowIrrefutable)+ (!_lhsIisDeclOfLet)+ (!_lhsIoptions) ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 3345 "dist/build/PrintCode" #-}+ )) of+ { !_patsOoptions ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 3350 "dist/build/PrintCode" #-}+ )) of+ { !_patsOisDeclOfLet ->+ (case (({-# LINE 373 "src-ag/PrintCode.ag" #-}+ _lhsIbelowIrrefutable+ {-# LINE 3355 "dist/build/PrintCode" #-}+ )) of+ { !_patsObelowIrrefutable ->+ (case (pats_ _patsObelowIrrefutable _patsOisDeclOfLet _patsOoptions) of+ { ( !_patsIcopy,!_patsIpps,!_patsIpps',!_patsIstrictVars) ->+ (case (({-# LINE 22 "src-ag/Patterns.ag" #-}+ Product pos_ _patsIcopy+ {-# LINE 3362 "dist/build/PrintCode" #-}+ )) of+ { !_copy ->+ (case (({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 3367 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOcopy ->+ (case (({-# LINE 369 "src-ag/PrintCode.ag" #-}+ False+ {-# LINE 3372 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOisUnderscore ->+ (case (({-# LINE 352 "src-ag/PrintCode.ag" #-}+ if bangpats _lhsIoptions && not _lhsIisDeclOfLet && not _lhsIbelowIrrefutable+ then \p -> "!" >|< p+ else id+ {-# LINE 3379 "dist/build/PrintCode" #-}+ )) of+ { !_addBang ->+ (case (({-# LINE 358 "src-ag/PrintCode.ag" #-}+ _addBang $ pp_block "(" ")" "," _patsIpps+ {-# LINE 3384 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case (({-# LINE 392 "src-ag/PrintCode.ag" #-}+ pp_block "(" ")" "," _patsIpps'+ {-# LINE 3389 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp' ->+ (case (({-# LINE 326 "src-ag/PrintCode.ag" #-}+ _patsIstrictVars+ {-# LINE 3394 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOstrictVars ->+ (case ((Syn_Pattern _lhsOcopy _lhsOisUnderscore _lhsOpp _lhsOpp' _lhsOstrictVars)) of+ { ___node ->+ ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp,_lhsOpp',_lhsOstrictVars) }) }) }) }) }) }) }) }) }) }) }) })))+sem_Pattern_Underscore :: Pos ->+ T_Pattern+sem_Pattern_Underscore !pos_ =+ (T_Pattern (\ (!_lhsIbelowIrrefutable)+ (!_lhsIisDeclOfLet)+ (!_lhsIoptions) ->+ (case (({-# LINE 22 "src-ag/Patterns.ag" #-}+ Underscore pos_+ {-# LINE 3408 "dist/build/PrintCode" #-}+ )) of+ { !_copy ->+ (case (({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 3413 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOcopy ->+ (case (({-# LINE 371 "src-ag/PrintCode.ag" #-}+ True+ {-# LINE 3418 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOisUnderscore ->+ (case (({-# LINE 365 "src-ag/PrintCode.ag" #-}+ text "_"+ {-# LINE 3423 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case (({-# LINE 397 "src-ag/PrintCode.ag" #-}+ text "_"+ {-# LINE 3428 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp' ->+ (case (({-# LINE 326 "src-ag/PrintCode.ag" #-}+ []+ {-# LINE 3433 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOstrictVars ->+ (case ((Syn_Pattern _lhsOcopy _lhsOisUnderscore _lhsOpp _lhsOpp' _lhsOstrictVars)) of+ { ___node ->+ ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp,_lhsOpp',_lhsOstrictVars) }) }) }) }) }) }) })))+-- Patterns ----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ belowIrrefutable : Bool+ isDeclOfLet : Bool+ options : Options+ synthesized attributes:+ copy : Patterns + pps : [PP_Doc]+ pps' : [PP_Doc]+ strictVars : [PP_Doc]+ 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 (Bool ->+ Bool ->+ Options ->+ ( Patterns,([PP_Doc]),([PP_Doc]),([PP_Doc])))+data Inh_Patterns = Inh_Patterns {belowIrrefutable_Inh_Patterns :: !(Bool),isDeclOfLet_Inh_Patterns :: !(Bool),options_Inh_Patterns :: !(Options)}+data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns),pps_Syn_Patterns :: !(([PP_Doc])),pps'_Syn_Patterns :: !(([PP_Doc])),strictVars_Syn_Patterns :: !(([PP_Doc]))}+wrap_Patterns :: T_Patterns ->+ Inh_Patterns ->+ Syn_Patterns+wrap_Patterns !(T_Patterns sem) !(Inh_Patterns _lhsIbelowIrrefutable _lhsIisDeclOfLet _lhsIoptions) =+ (let ( !_lhsOcopy,!_lhsOpps,!_lhsOpps',!_lhsOstrictVars) = sem _lhsIbelowIrrefutable _lhsIisDeclOfLet _lhsIoptions+ in (Syn_Patterns _lhsOcopy _lhsOpps _lhsOpps' _lhsOstrictVars))+sem_Patterns_Cons :: T_Pattern ->+ T_Patterns ->+ T_Patterns+sem_Patterns_Cons !(T_Pattern hd_) !(T_Patterns tl_) =+ (T_Patterns (\ (!_lhsIbelowIrrefutable)+ (!_lhsIisDeclOfLet)+ (!_lhsIoptions) ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 3488 "dist/build/PrintCode" #-}+ )) of+ { !_tlOoptions ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 3493 "dist/build/PrintCode" #-}+ )) of+ { !_tlOisDeclOfLet ->+ (case (({-# LINE 373 "src-ag/PrintCode.ag" #-}+ _lhsIbelowIrrefutable+ {-# LINE 3498 "dist/build/PrintCode" #-}+ )) of+ { !_tlObelowIrrefutable ->+ (case (tl_ _tlObelowIrrefutable _tlOisDeclOfLet _tlOoptions) of+ { ( !_tlIcopy,!_tlIpps,!_tlIpps',!_tlIstrictVars) ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _lhsIoptions+ {-# LINE 3505 "dist/build/PrintCode" #-}+ )) of+ { !_hdOoptions ->+ (case (({-# LINE 407 "src-ag/PrintCode.ag" #-}+ _lhsIisDeclOfLet+ {-# LINE 3510 "dist/build/PrintCode" #-}+ )) of+ { !_hdOisDeclOfLet ->+ (case (({-# LINE 373 "src-ag/PrintCode.ag" #-}+ _lhsIbelowIrrefutable+ {-# LINE 3515 "dist/build/PrintCode" #-}+ )) of+ { !_hdObelowIrrefutable ->+ (case (hd_ _hdObelowIrrefutable _hdOisDeclOfLet _hdOoptions) of+ { ( !_hdIcopy,!_hdIisUnderscore,!_hdIpp,!_hdIpp',!_hdIstrictVars) ->+ (case (({-# LINE 22 "src-ag/Patterns.ag" #-}+ (:) _hdIcopy _tlIcopy+ {-# LINE 3522 "dist/build/PrintCode" #-}+ )) of+ { !_copy ->+ (case (({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 3527 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOcopy ->+ (case (({-# LINE 347 "src-ag/PrintCode.ag" #-}+ _hdIpp : _tlIpps+ {-# LINE 3532 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpps ->+ (case (({-# LINE 387 "src-ag/PrintCode.ag" #-}+ _hdIpp' : _tlIpps'+ {-# LINE 3537 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpps' ->+ (case (({-# LINE 326 "src-ag/PrintCode.ag" #-}+ _hdIstrictVars ++ _tlIstrictVars+ {-# LINE 3542 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOstrictVars ->+ (case ((Syn_Patterns _lhsOcopy _lhsOpps _lhsOpps' _lhsOstrictVars)) of+ { ___node ->+ ( _lhsOcopy,_lhsOpps,_lhsOpps',_lhsOstrictVars) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+sem_Patterns_Nil :: T_Patterns+sem_Patterns_Nil =+ (T_Patterns (\ (!_lhsIbelowIrrefutable)+ (!_lhsIisDeclOfLet)+ (!_lhsIoptions) ->+ (case (({-# LINE 22 "src-ag/Patterns.ag" #-}+ []+ {-# LINE 3555 "dist/build/PrintCode" #-}+ )) of+ { !_copy ->+ (case (({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 3560 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOcopy ->+ (case (({-# LINE 348 "src-ag/PrintCode.ag" #-}+ []+ {-# LINE 3565 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpps ->+ (case (({-# LINE 388 "src-ag/PrintCode.ag" #-}+ []+ {-# LINE 3570 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpps' ->+ (case (({-# LINE 326 "src-ag/PrintCode.ag" #-}+ []+ {-# LINE 3575 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOstrictVars ->+ (case ((Syn_Patterns _lhsOcopy _lhsOpps _lhsOpps' _lhsOstrictVars)) of+ { ___node ->+ ( _lhsOcopy,_lhsOpps,_lhsOpps',_lhsOstrictVars) }) }) }) }) }) })))+-- Program -----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ importBlocks : PP_Doc+ mainBlocksDoc : PP_Doc+ mainFile : String+ mainName : String+ moduleHeader : String -> String -> String -> Bool -> String+ options : Options+ optionsLine : String+ pragmaBlocks : String+ textBlockMap : Map BlockInfo PP_Doc+ textBlocks : PP_Doc+ synthesized attributes:+ genIO : IO ()+ output : PP_Docs+ alternatives:+ alternative Program:+ child chunks : Chunks + child ordered : {Bool}+ visit 0:+ local options : _+ local commonFile : _+ local genCommonModule : _+ local mainModuleFile : _+ local genMainModule : _+-}+-- cata+sem_Program :: Program ->+ T_Program+sem_Program !(Program _chunks _ordered) =+ (sem_Program_Program (sem_Chunks _chunks) _ordered)+-- semantic domain+newtype T_Program = T_Program (PP_Doc ->+ PP_Doc ->+ String ->+ String ->+ (String -> String -> String -> Bool -> String) ->+ Options ->+ String ->+ String ->+ (Map BlockInfo PP_Doc) ->+ PP_Doc ->+ ( (IO ()),PP_Docs))+data Inh_Program = Inh_Program {importBlocks_Inh_Program :: !(PP_Doc),mainBlocksDoc_Inh_Program :: !(PP_Doc),mainFile_Inh_Program :: !(String),mainName_Inh_Program :: !(String),moduleHeader_Inh_Program :: !((String -> String -> String -> Bool -> String)),options_Inh_Program :: !(Options),optionsLine_Inh_Program :: !(String),pragmaBlocks_Inh_Program :: !(String),textBlockMap_Inh_Program :: !((Map BlockInfo PP_Doc)),textBlocks_Inh_Program :: !(PP_Doc)}+data Syn_Program = Syn_Program {genIO_Syn_Program :: !((IO ())),output_Syn_Program :: !(PP_Docs)}+wrap_Program :: T_Program ->+ Inh_Program ->+ Syn_Program+wrap_Program !(T_Program sem) !(Inh_Program _lhsIimportBlocks _lhsImainBlocksDoc _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsIoptions _lhsIoptionsLine _lhsIpragmaBlocks _lhsItextBlockMap _lhsItextBlocks) =+ (let ( !_lhsOgenIO,!_lhsOoutput) = sem _lhsIimportBlocks _lhsImainBlocksDoc _lhsImainFile _lhsImainName _lhsImoduleHeader _lhsIoptions _lhsIoptionsLine _lhsIpragmaBlocks _lhsItextBlockMap _lhsItextBlocks+ in (Syn_Program _lhsOgenIO _lhsOoutput))+sem_Program_Program :: T_Chunks ->+ Bool ->+ T_Program+sem_Program_Program !(T_Chunks chunks_) !ordered_ =+ (T_Program (\ (!_lhsIimportBlocks)+ (!_lhsImainBlocksDoc)+ (!_lhsImainFile)+ (!_lhsImainName)+ (!_lhsImoduleHeader)+ (!_lhsIoptions)+ (!_lhsIoptionsLine)+ (!_lhsIpragmaBlocks)+ (!_lhsItextBlockMap)+ (!_lhsItextBlocks) ->+ (case (({-# LINE 435 "src-ag/PrintCode.ag" #-}+ _lhsItextBlockMap+ {-# LINE 3650 "dist/build/PrintCode" #-}+ )) of+ { !_chunksOtextBlockMap ->+ (case (({-# LINE 433 "src-ag/PrintCode.ag" #-}+ _lhsIpragmaBlocks+ {-# LINE 3655 "dist/build/PrintCode" #-}+ )) of+ { !_chunksOpragmaBlocks ->+ (case (({-# LINE 436 "src-ag/PrintCode.ag" #-}+ _lhsIoptionsLine+ {-# LINE 3660 "dist/build/PrintCode" #-}+ )) of+ { !_chunksOoptionsLine ->+ (case (({-# LINE 59 "src-ag/PrintCode.ag" #-}+ _lhsIoptions { breadthFirst = breadthFirst _lhsIoptions && visit _lhsIoptions && cases _lhsIoptions && ordered_ }+ {-# LINE 3665 "dist/build/PrintCode" #-}+ )) of+ { !_options ->+ (case (({-# LINE 50 "src-ag/PrintCode.ag" #-}+ _options+ {-# LINE 3670 "dist/build/PrintCode" #-}+ )) of+ { !_chunksOoptions ->+ (case (({-# LINE 439 "src-ag/PrintCode.ag" #-}+ _lhsImoduleHeader+ {-# LINE 3675 "dist/build/PrintCode" #-}+ )) of+ { !_chunksOmoduleHeader ->+ (case (({-# LINE 438 "src-ag/PrintCode.ag" #-}+ _lhsImainName+ {-# LINE 3680 "dist/build/PrintCode" #-}+ )) of+ { !_chunksOmainName ->+ (case (({-# LINE 437 "src-ag/PrintCode.ag" #-}+ _lhsImainFile+ {-# LINE 3685 "dist/build/PrintCode" #-}+ )) of+ { !_chunksOmainFile ->+ (case (({-# LINE 457 "src-ag/PrintCode.ag" #-}+ replaceBaseName _lhsImainFile (takeBaseName _lhsImainFile ++ "_common")+ {-# LINE 3690 "dist/build/PrintCode" #-}+ )) of+ { !_commonFile ->+ (case (({-# LINE 410 "src-ag/PrintCode.ag" #-}+ False+ {-# LINE 3695 "dist/build/PrintCode" #-}+ )) of+ { !_chunksOisDeclOfLet ->+ (case (({-# LINE 62 "src-ag/PrintCode.ag" #-}+ nest _lhsIoptions+ {-# LINE 3700 "dist/build/PrintCode" #-}+ )) of+ { !_chunksOnested ->+ (case (({-# LINE 434 "src-ag/PrintCode.ag" #-}+ _lhsItextBlocks+ {-# LINE 3705 "dist/build/PrintCode" #-}+ )) of+ { !_chunksOtextBlocks ->+ (case (({-# LINE 432 "src-ag/PrintCode.ag" #-}+ _lhsIimportBlocks+ {-# LINE 3710 "dist/build/PrintCode" #-}+ )) of+ { !_chunksOimportBlocks ->+ (case (chunks_ _chunksOimportBlocks _chunksOisDeclOfLet _chunksOmainFile _chunksOmainName _chunksOmoduleHeader _chunksOnested _chunksOoptions _chunksOoptionsLine _chunksOpragmaBlocks _chunksOtextBlockMap _chunksOtextBlocks) of+ { ( !_chunksIappendCommon,!_chunksIappendMain,!_chunksIgenSems,!_chunksIimports,!_chunksIpps) ->+ (case (({-# LINE 458 "src-ag/PrintCode.ag" #-}+ writeModule _commonFile+ ( [ pp $ _lhsIpragmaBlocks+ , pp $ _lhsIoptionsLine+ , pp $ _lhsImoduleHeader _lhsImainName "_common" "" True+ , _lhsIimportBlocks+ , _lhsItextBlocks+ ]+ ++ map vlist _chunksIappendCommon+ )+ {-# LINE 3725 "dist/build/PrintCode" #-}+ )) of+ { !_genCommonModule ->+ (case (({-# LINE 444 "src-ag/PrintCode.ag" #-}+ _lhsImainFile+ {-# LINE 3730 "dist/build/PrintCode" #-}+ )) of+ { !_mainModuleFile ->+ (case (({-# LINE 445 "src-ag/PrintCode.ag" #-}+ writeModule _mainModuleFile+ ( [ pp $ _lhsIpragmaBlocks+ , pp $ _lhsIoptionsLine+ , pp $ _lhsImoduleHeader _lhsImainName "" "" False+ , pp $ ("import " ++ _lhsImainName ++ "_common\n")+ ]+ ++ map pp _chunksIimports+ ++ map vlist _chunksIappendMain+ ++ [_lhsImainBlocksDoc]+ )+ {-# LINE 3744 "dist/build/PrintCode" #-}+ )) of+ { !_genMainModule ->+ (case (({-# LINE 469 "src-ag/PrintCode.ag" #-}+ do _genMainModule+ _genCommonModule+ _chunksIgenSems+ {-# LINE 3751 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOgenIO ->+ (case (({-# LINE 94 "src-ag/PrintCode.ag" #-}+ _chunksIpps+ {-# LINE 3756 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOoutput ->+ (case ((Syn_Program _lhsOgenIO _lhsOoutput)) of+ { ___node ->+ ( _lhsOgenIO,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+-- Type --------------------------------------------------------+{-+ visit 0:+ inherited attribute:+ nested : Bool+ synthesized attributes:+ pp : PP_Doc+ prec : Int+ alternatives:+ alternative Arr:+ child left : Type + child right : Type + visit 0:+ local r : _+ local l : _+ alternative CtxApp:+ child left : {[(String, [String])]}+ child right : Type + alternative List:+ child tp : Type + alternative NontermType:+ child name : {String}+ child params : {[String]}+ child deforested : {Bool}+ visit 0:+ local prefix : _+ alternative QuantApp:+ child left : {String}+ child right : Type + alternative SimpleType:+ child txt : {String}+ alternative TEither:+ child left : Type + child right : Type + alternative TIntMap:+ child value : Type + alternative TMap:+ child key : Type + child value : Type + alternative TMaybe:+ child tp : Type + alternative TupleType:+ child tps : Types + alternative TypeApp:+ child func : Type + child args : Types + alternative UnboxedTupleType:+ child tps : Types +-}+-- cata+sem_Type :: Type ->+ T_Type+sem_Type !(Arr _left _right) =+ (sem_Type_Arr (sem_Type _left) (sem_Type _right))+sem_Type !(CtxApp _left _right) =+ (sem_Type_CtxApp _left (sem_Type _right))+sem_Type !(List _tp) =+ (sem_Type_List (sem_Type _tp))+sem_Type !(NontermType _name _params _deforested) =+ (sem_Type_NontermType _name _params _deforested)+sem_Type !(QuantApp _left _right) =+ (sem_Type_QuantApp _left (sem_Type _right))+sem_Type !(SimpleType _txt) =+ (sem_Type_SimpleType _txt)+sem_Type !(TEither _left _right) =+ (sem_Type_TEither (sem_Type _left) (sem_Type _right))+sem_Type !(TIntMap _value) =+ (sem_Type_TIntMap (sem_Type _value))+sem_Type !(TMap _key _value) =+ (sem_Type_TMap (sem_Type _key) (sem_Type _value))+sem_Type !(TMaybe _tp) =+ (sem_Type_TMaybe (sem_Type _tp))+sem_Type !(TupleType _tps) =+ (sem_Type_TupleType (sem_Types _tps))+sem_Type !(TypeApp _func _args) =+ (sem_Type_TypeApp (sem_Type _func) (sem_Types _args))+sem_Type !(UnboxedTupleType _tps) =+ (sem_Type_UnboxedTupleType (sem_Types _tps))+-- semantic domain+newtype T_Type = T_Type (Bool ->+ ( PP_Doc,Int))+data Inh_Type = Inh_Type {nested_Inh_Type :: !(Bool)}+data Syn_Type = Syn_Type {pp_Syn_Type :: !(PP_Doc),prec_Syn_Type :: !(Int)}+wrap_Type :: T_Type ->+ Inh_Type ->+ Syn_Type+wrap_Type !(T_Type sem) !(Inh_Type _lhsInested) =+ (let ( !_lhsOpp,!_lhsOprec) = sem _lhsInested+ in (Syn_Type _lhsOpp _lhsOprec))+sem_Type_Arr :: T_Type ->+ T_Type ->+ T_Type+sem_Type_Arr !(T_Type left_) !(T_Type right_) =+ (T_Type (\ (!_lhsInested) ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 3858 "dist/build/PrintCode" #-}+ )) of+ { !_rightOnested ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 3863 "dist/build/PrintCode" #-}+ )) of+ { !_leftOnested ->+ (case (right_ _rightOnested) of+ { ( !_rightIpp,!_rightIprec) ->+ (case (({-# LINE 263 "src-ag/PrintCode.ag" #-}+ if _rightIprec < 2 then pp_parens _rightIpp else _rightIpp+ {-# LINE 3870 "dist/build/PrintCode" #-}+ )) of+ { !_r ->+ (case (left_ _leftOnested) of+ { ( !_leftIpp,!_leftIprec) ->+ (case (({-# LINE 262 "src-ag/PrintCode.ag" #-}+ if _leftIprec <= 2 then pp_parens _leftIpp else _leftIpp+ {-# LINE 3877 "dist/build/PrintCode" #-}+ )) of+ { !_l ->+ (case (({-# LINE 261 "src-ag/PrintCode.ag" #-}+ _l >#< "->" >-< _r+ {-# LINE 3882 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case (({-# LINE 260 "src-ag/PrintCode.ag" #-}+ 2+ {-# LINE 3887 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOprec ->+ (case ((Syn_Type _lhsOpp _lhsOprec)) of+ { ___node ->+ ( _lhsOpp,_lhsOprec) }) }) }) }) }) }) }) }) })))+sem_Type_CtxApp :: ([(String, [String])]) ->+ T_Type ->+ T_Type+sem_Type_CtxApp !left_ !(T_Type right_) =+ (T_Type (\ (!_lhsInested) ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 3900 "dist/build/PrintCode" #-}+ )) of+ { !_rightOnested ->+ (case (right_ _rightOnested) of+ { ( !_rightIpp,!_rightIprec) ->+ (case (({-# LINE 269 "src-ag/PrintCode.ag" #-}+ (pp_block "(" ")" "," $ map (\(n,ns) -> hv_sp $ map pp (n:ns)) left_) >#< "=>" >#< _rightIpp+ {-# LINE 3907 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case (({-# LINE 259 "src-ag/PrintCode.ag" #-}+ _rightIprec+ {-# LINE 3912 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOprec ->+ (case ((Syn_Type _lhsOpp _lhsOprec)) of+ { ___node ->+ ( _lhsOpp,_lhsOprec) }) }) }) }) })))+sem_Type_List :: T_Type ->+ T_Type+sem_Type_List !(T_Type tp_) =+ (T_Type (\ (!_lhsInested) ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 3924 "dist/build/PrintCode" #-}+ )) of+ { !_tpOnested ->+ (case (tp_ _tpOnested) of+ { ( !_tpIpp,!_tpIprec) ->+ (case (({-# LINE 280 "src-ag/PrintCode.ag" #-}+ "[" >|< _tpIpp >|< "]"+ {-# LINE 3931 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case (({-# LINE 279 "src-ag/PrintCode.ag" #-}+ 5+ {-# LINE 3936 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOprec ->+ (case ((Syn_Type _lhsOpp _lhsOprec)) of+ { ___node ->+ ( _lhsOpp,_lhsOprec) }) }) }) }) })))+sem_Type_NontermType :: String ->+ ([String]) ->+ Bool ->+ T_Type+sem_Type_NontermType !name_ !params_ !deforested_ =+ (T_Type (\ (!_lhsInested) ->+ (case (({-# LINE 287 "src-ag/PrintCode.ag" #-}+ if deforested_+ then text "T_"+ else empty+ {-# LINE 3952 "dist/build/PrintCode" #-}+ )) of+ { !_prefix ->+ (case (({-# LINE 286 "src-ag/PrintCode.ag" #-}+ _prefix >|< text name_ >#< hv_sp params_+ {-# LINE 3957 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case (({-# LINE 285 "src-ag/PrintCode.ag" #-}+ 5+ {-# LINE 3962 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOprec ->+ (case ((Syn_Type _lhsOpp _lhsOprec)) of+ { ___node ->+ ( _lhsOpp,_lhsOprec) }) }) }) })))+sem_Type_QuantApp :: String ->+ T_Type ->+ T_Type+sem_Type_QuantApp !left_ !(T_Type right_) =+ (T_Type (\ (!_lhsInested) ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 3975 "dist/build/PrintCode" #-}+ )) of+ { !_rightOnested ->+ (case (right_ _rightOnested) of+ { ( !_rightIpp,!_rightIprec) ->+ (case (({-# LINE 271 "src-ag/PrintCode.ag" #-}+ left_ >#< _rightIpp+ {-# LINE 3982 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case (({-# LINE 259 "src-ag/PrintCode.ag" #-}+ _rightIprec+ {-# LINE 3987 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOprec ->+ (case ((Syn_Type _lhsOpp _lhsOprec)) of+ { ___node ->+ ( _lhsOpp,_lhsOprec) }) }) }) }) })))+sem_Type_SimpleType :: String ->+ T_Type+sem_Type_SimpleType !txt_ =+ (T_Type (\ (!_lhsInested) ->+ (case (({-# LINE 283 "src-ag/PrintCode.ag" #-}+ if reallySimple txt_ then text txt_ else pp_parens (text txt_)+ {-# LINE 3999 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case (({-# LINE 282 "src-ag/PrintCode.ag" #-}+ 5+ {-# LINE 4004 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOprec ->+ (case ((Syn_Type _lhsOpp _lhsOprec)) of+ { ___node ->+ ( _lhsOpp,_lhsOprec) }) }) })))+sem_Type_TEither :: T_Type ->+ T_Type ->+ T_Type+sem_Type_TEither !(T_Type left_) !(T_Type right_) =+ (T_Type (\ (!_lhsInested) ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 4017 "dist/build/PrintCode" #-}+ )) of+ { !_rightOnested ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 4022 "dist/build/PrintCode" #-}+ )) of+ { !_leftOnested ->+ (case (right_ _rightOnested) of+ { ( !_rightIpp,!_rightIprec) ->+ (case (left_ _leftOnested) of+ { ( !_leftIpp,!_leftIprec) ->+ (case (({-# LINE 293 "src-ag/PrintCode.ag" #-}+ text "Either" >#< pp_parens _leftIpp >#< pp_parens _rightIpp+ {-# LINE 4031 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case (({-# LINE 292 "src-ag/PrintCode.ag" #-}+ 5+ {-# LINE 4036 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOprec ->+ (case ((Syn_Type _lhsOpp _lhsOprec)) of+ { ___node ->+ ( _lhsOpp,_lhsOprec) }) }) }) }) }) }) })))+sem_Type_TIntMap :: T_Type ->+ T_Type+sem_Type_TIntMap !(T_Type value_) =+ (T_Type (\ (!_lhsInested) ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 4048 "dist/build/PrintCode" #-}+ )) of+ { !_valueOnested ->+ (case (value_ _valueOnested) of+ { ( !_valueIpp,!_valueIprec) ->+ (case (({-# LINE 297 "src-ag/PrintCode.ag" #-}+ text "Data.IntMap.IntMap" >#< pp_parens _valueIpp+ {-# LINE 4055 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case (({-# LINE 296 "src-ag/PrintCode.ag" #-}+ 5+ {-# LINE 4060 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOprec ->+ (case ((Syn_Type _lhsOpp _lhsOprec)) of+ { ___node ->+ ( _lhsOpp,_lhsOprec) }) }) }) }) })))+sem_Type_TMap :: T_Type ->+ T_Type ->+ T_Type+sem_Type_TMap !(T_Type key_) !(T_Type value_) =+ (T_Type (\ (!_lhsInested) ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 4073 "dist/build/PrintCode" #-}+ )) of+ { !_valueOnested ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 4078 "dist/build/PrintCode" #-}+ )) of+ { !_keyOnested ->+ (case (value_ _valueOnested) of+ { ( !_valueIpp,!_valueIprec) ->+ (case (key_ _keyOnested) of+ { ( !_keyIpp,!_keyIprec) ->+ (case (({-# LINE 295 "src-ag/PrintCode.ag" #-}+ text "Data.Map.Map" >#< pp_parens _keyIpp >#< pp_parens _valueIpp+ {-# LINE 4087 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case (({-# LINE 294 "src-ag/PrintCode.ag" #-}+ 5+ {-# LINE 4092 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOprec ->+ (case ((Syn_Type _lhsOpp _lhsOprec)) of+ { ___node ->+ ( _lhsOpp,_lhsOprec) }) }) }) }) }) }) })))+sem_Type_TMaybe :: T_Type ->+ T_Type+sem_Type_TMaybe !(T_Type tp_) =+ (T_Type (\ (!_lhsInested) ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 4104 "dist/build/PrintCode" #-}+ )) of+ { !_tpOnested ->+ (case (tp_ _tpOnested) of+ { ( !_tpIpp,!_tpIprec) ->+ (case (({-# LINE 291 "src-ag/PrintCode.ag" #-}+ text "Maybe" >#< _tpIpp+ {-# LINE 4111 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case (({-# LINE 290 "src-ag/PrintCode.ag" #-}+ 5+ {-# LINE 4116 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOprec ->+ (case ((Syn_Type _lhsOpp _lhsOprec)) of+ { ___node ->+ ( _lhsOpp,_lhsOprec) }) }) }) }) })))+sem_Type_TupleType :: T_Types ->+ T_Type+sem_Type_TupleType !(T_Types tps_) =+ (T_Type (\ (!_lhsInested) ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 4128 "dist/build/PrintCode" #-}+ )) of+ { !_tpsOnested ->+ (case (tps_ _tpsOnested) of+ { ( !_tpsIpps) ->+ (case (({-# LINE 274 "src-ag/PrintCode.ag" #-}+ ppTuple _lhsInested _tpsIpps+ {-# LINE 4135 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case (({-# LINE 273 "src-ag/PrintCode.ag" #-}+ 5+ {-# LINE 4140 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOprec ->+ (case ((Syn_Type _lhsOpp _lhsOprec)) of+ { ___node ->+ ( _lhsOpp,_lhsOprec) }) }) }) }) })))+sem_Type_TypeApp :: T_Type ->+ T_Types ->+ T_Type+sem_Type_TypeApp !(T_Type func_) !(T_Types args_) =+ (T_Type (\ (!_lhsInested) ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 4153 "dist/build/PrintCode" #-}+ )) of+ { !_argsOnested ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 4158 "dist/build/PrintCode" #-}+ )) of+ { !_funcOnested ->+ (case (args_ _argsOnested) of+ { ( !_argsIpps) ->+ (case (func_ _funcOnested) of+ { ( !_funcIpp,!_funcIprec) ->+ (case (({-# LINE 266 "src-ag/PrintCode.ag" #-}+ hv_sp (_funcIpp : _argsIpps)+ {-# LINE 4167 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case (({-# LINE 259 "src-ag/PrintCode.ag" #-}+ _funcIprec+ {-# LINE 4172 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOprec ->+ (case ((Syn_Type _lhsOpp _lhsOprec)) of+ { ___node ->+ ( _lhsOpp,_lhsOprec) }) }) }) }) }) }) })))+sem_Type_UnboxedTupleType :: T_Types ->+ T_Type+sem_Type_UnboxedTupleType !(T_Types tps_) =+ (T_Type (\ (!_lhsInested) ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 4184 "dist/build/PrintCode" #-}+ )) of+ { !_tpsOnested ->+ (case (tps_ _tpsOnested) of+ { ( !_tpsIpps) ->+ (case (({-# LINE 277 "src-ag/PrintCode.ag" #-}+ ppUnboxedTuple _lhsInested _tpsIpps+ {-# LINE 4191 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpp ->+ (case (({-# LINE 276 "src-ag/PrintCode.ag" #-}+ 5+ {-# LINE 4196 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOprec ->+ (case ((Syn_Type _lhsOpp _lhsOprec)) of+ { ___node ->+ ( _lhsOpp,_lhsOprec) }) }) }) }) })))+-- Types -------------------------------------------------------+{-+ visit 0:+ inherited attribute:+ nested : Bool+ synthesized attribute:+ pps : PP_Docs+ alternatives:+ alternative Cons:+ child hd : Type + child tl : Types + alternative Nil:+-}+-- cata+sem_Types :: Types ->+ T_Types+sem_Types !list =+ (Prelude.foldr sem_Types_Cons sem_Types_Nil (Prelude.map sem_Type list))+-- semantic domain+newtype T_Types = T_Types (Bool ->+ ( PP_Docs))+data Inh_Types = Inh_Types {nested_Inh_Types :: !(Bool)}+data Syn_Types = Syn_Types {pps_Syn_Types :: !(PP_Docs)}+wrap_Types :: T_Types ->+ Inh_Types ->+ Syn_Types+wrap_Types !(T_Types sem) !(Inh_Types _lhsInested) =+ (let ( !_lhsOpps) = sem _lhsInested+ in (Syn_Types _lhsOpps))+sem_Types_Cons :: T_Type ->+ T_Types ->+ T_Types+sem_Types_Cons !(T_Type hd_) !(T_Types tl_) =+ (T_Types (\ (!_lhsInested) ->+ (case (({-# LINE 54 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 4238 "dist/build/PrintCode" #-}+ )) of+ { !_tlOnested ->+ (case (({-# LINE 52 "src-ag/PrintCode.ag" #-}+ _lhsInested+ {-# LINE 4243 "dist/build/PrintCode" #-}+ )) of+ { !_hdOnested ->+ (case (tl_ _tlOnested) of+ { ( !_tlIpps) ->+ (case (hd_ _hdOnested) of+ { ( !_hdIpp,!_hdIprec) ->+ (case (({-# LINE 77 "src-ag/PrintCode.ag" #-}+ _hdIpp : _tlIpps+ {-# LINE 4252 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpps ->+ (case ((Syn_Types _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }) }) }) }) })))+sem_Types_Nil :: T_Types+sem_Types_Nil =+ (T_Types (\ (!_lhsInested) ->+ (case (({-# LINE 78 "src-ag/PrintCode.ag" #-}+ []+ {-# LINE 4263 "dist/build/PrintCode" #-}+ )) of+ { !_lhsOpps ->+ (case ((Syn_Types _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) })))
src-derived/PrintErrorMessages.hs view
@@ -513,6 +513,8 @@ _me {-# LINE 515 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_CustomError :: Bool -> Pos ->@@ -530,20 +532,22 @@ help = wfill ["not available."] act = wfill ["unknown"] in ppError (isError _lhsIoptions _me) pos_ mesg_ pat help act False- {-# LINE 534 "dist/build/PrintErrorMessages" #-}+ {-# LINE 536 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} CustomError isWarning_ pos_ mesg_- {-# LINE 540 "dist/build/PrintErrorMessages" #-}+ {-# LINE 542 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 546 "dist/build/PrintErrorMessages" #-}+ {-# LINE 548 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_Cyclic :: NontermIdent -> (Maybe ConstructorIdent) ->@@ -571,20 +575,22 @@ help = hlist (text "The following attributes are all cyclic: " : map text verts_) act = wfill ["code cannot be generated until the cycle is removed."] in ppError (isError _lhsIoptions _me) pos mesg pat help act False- {-# LINE 575 "dist/build/PrintErrorMessages" #-}+ {-# LINE 579 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} Cyclic nt_ mbCon_ verts_- {-# LINE 581 "dist/build/PrintErrorMessages" #-}+ {-# LINE 585 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 587 "dist/build/PrintErrorMessages" #-}+ {-# LINE 591 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_CyclicSet :: Identifier -> T_Error@@ -604,20 +610,22 @@ ] act = wfill ["The nonterminal set", getName name_, "is considered to be empty."] in ppError (isError _lhsIoptions _me) (getPos name_) mesg pat help act _lhsIverbose- {-# LINE 608 "dist/build/PrintErrorMessages" #-}+ {-# LINE 614 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} CyclicSet name_- {-# LINE 614 "dist/build/PrintErrorMessages" #-}+ {-# LINE 620 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 620 "dist/build/PrintErrorMessages" #-}+ {-# LINE 626 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_DirectCirc :: NontermIdent -> Bool ->@@ -638,20 +646,22 @@ act | o_visit_ = text "An unoptimized version was generated. It might hang when run." | otherwise = text "The generated program might hang when run." in ppError (isError _lhsIoptions _me) noPos mesg pat help act _lhsIverbose- {-# LINE 642 "dist/build/PrintErrorMessages" #-}+ {-# LINE 650 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} DirectCirc nt_ o_visit_ cyclic_- {-# LINE 648 "dist/build/PrintErrorMessages" #-}+ {-# LINE 656 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 654 "dist/build/PrintErrorMessages" #-}+ {-# LINE 662 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_DupAlt :: NontermIdent -> ConstructorIdent ->@@ -683,20 +693,22 @@ ,"is considered valid. All other alternatives have been discarded." ] in ppError (isError _lhsIoptions _me) (getPos con_) mesg pat help act _lhsIverbose- {-# LINE 687 "dist/build/PrintErrorMessages" #-}+ {-# LINE 697 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} DupAlt nt_ con_ occ1_- {-# LINE 693 "dist/build/PrintErrorMessages" #-}+ {-# LINE 703 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 699 "dist/build/PrintErrorMessages" #-}+ {-# LINE 709 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_DupChild :: NontermIdent -> ConstructorIdent ->@@ -728,20 +740,22 @@ ,"All others have been discarded." ] in ppError (isError _lhsIoptions _me) (getPos name_) mesg pat help act _lhsIverbose- {-# LINE 732 "dist/build/PrintErrorMessages" #-}+ {-# LINE 744 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} DupChild nt_ con_ name_ occ1_- {-# LINE 738 "dist/build/PrintErrorMessages" #-}+ {-# LINE 750 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 744 "dist/build/PrintErrorMessages" #-}+ {-# LINE 756 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_DupInhAttr :: NontermIdent -> Identifier ->@@ -771,20 +785,22 @@ ,"All others have been discarded. The generated program will probably not run." ] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 775 "dist/build/PrintErrorMessages" #-}+ {-# LINE 789 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} DupInhAttr nt_ attr_ occ1_- {-# LINE 781 "dist/build/PrintErrorMessages" #-}+ {-# LINE 795 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 787 "dist/build/PrintErrorMessages" #-}+ {-# LINE 801 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_DupRule :: NontermIdent -> ConstructorIdent ->@@ -815,20 +831,22 @@ ] act = wfill ["The last rule given is considered valid. All others have been discarded."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 819 "dist/build/PrintErrorMessages" #-}+ {-# LINE 835 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} DupRule nt_ con_ field_ attr_ occ1_- {-# LINE 825 "dist/build/PrintErrorMessages" #-}+ {-# LINE 841 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 831 "dist/build/PrintErrorMessages" #-}+ {-# LINE 847 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_DupRuleName :: NontermIdent -> ConstructorIdent ->@@ -854,20 +872,22 @@ ] act = wfill ["Compilation cannot continue."] in ppError (isError _lhsIoptions _me) (getPos nm_) mesg pat help act _lhsIverbose- {-# LINE 858 "dist/build/PrintErrorMessages" #-}+ {-# LINE 876 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} DupRuleName nt_ con_ nm_- {-# LINE 864 "dist/build/PrintErrorMessages" #-}+ {-# LINE 882 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 870 "dist/build/PrintErrorMessages" #-}+ {-# LINE 888 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_DupSet :: NontermIdent -> NontermIdent ->@@ -895,20 +915,22 @@ act = wfill [ "The clashing nonterminal set will be ignored." ] in ppError (isError _lhsIoptions _me) (getPos name_) mesg pat help act _lhsIverbose- {-# LINE 899 "dist/build/PrintErrorMessages" #-}+ {-# LINE 919 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} DupSet name_ occ1_- {-# LINE 905 "dist/build/PrintErrorMessages" #-}+ {-# LINE 925 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 911 "dist/build/PrintErrorMessages" #-}+ {-# LINE 931 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_DupSig :: NontermIdent -> ConstructorIdent ->@@ -936,20 +958,22 @@ ] act = wfill ["The last typesignature given is considered valid. All others have been discarded."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 940 "dist/build/PrintErrorMessages" #-}+ {-# LINE 962 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} DupSig nt_ con_ attr_- {-# LINE 946 "dist/build/PrintErrorMessages" #-}+ {-# LINE 968 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 952 "dist/build/PrintErrorMessages" #-}+ {-# LINE 974 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_DupSynAttr :: NontermIdent -> Identifier ->@@ -979,20 +1003,22 @@ ,"All others have been discarded. The generated program will probably not run." ] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 983 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1007 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} DupSynAttr nt_ attr_ occ1_- {-# LINE 989 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1013 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 995 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1019 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_DupSynonym :: NontermIdent -> NontermIdent ->@@ -1021,20 +1047,22 @@ act = wfill [ "The clashing type synonym will be ignored." ] in ppError (isError _lhsIoptions _me) (getPos nt_) mesg pat help act _lhsIverbose- {-# LINE 1025 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1051 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} DupSynonym nt_ occ1_- {-# LINE 1031 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1057 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1037 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1063 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_DupUnique :: NontermIdent -> ConstructorIdent ->@@ -1062,20 +1090,22 @@ ] act = wfill ["Unpredicatable sharing of unique numbers may occur."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 1066 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1094 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} DupUnique nt_ con_ attr_- {-# LINE 1072 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1100 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1078 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1106 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_HsParseError :: Pos -> String ->@@ -1089,20 +1119,22 @@ _lhsOpp = ({-# LINE 95 "src-ag/PrintErrorMessages.ag" #-} ppError True pos_ (text msg_) (text "") (text "") (text "Correct the syntax of the Haskell code.") _lhsIverbose- {-# LINE 1093 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1123 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} HsParseError pos_ msg_- {-# LINE 1099 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1129 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1105 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1135 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_IncompatibleAttachKind :: Identifier -> VisitKind ->@@ -1120,20 +1152,22 @@ help = empty act = text "It is not possible to proceed without fixing this kind error." in ppError (isError _lhsIoptions _me) (getPos child_) mesg pat help act _lhsIverbose- {-# LINE 1124 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1156 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} IncompatibleAttachKind child_ kind_- {-# LINE 1130 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1162 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1136 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1168 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_IncompatibleRuleKind :: Identifier -> VisitKind ->@@ -1151,20 +1185,22 @@ help = empty act = text "It is not possible to proceed without fixing this kind error." in ppError (isError _lhsIoptions _me) (getPos rule_) mesg pat help act _lhsIverbose- {-# LINE 1155 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1189 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} IncompatibleRuleKind rule_ kind_- {-# LINE 1161 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1195 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1167 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1201 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_IncompatibleVisitKind :: Identifier -> VisitIdentifier ->@@ -1184,20 +1220,22 @@ help = empty act = text "It is not possible to proceed without fixing this kind error." in ppError (isError _lhsIoptions _me) (getPos child_) mesg pat help act _lhsIverbose- {-# LINE 1188 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1224 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} IncompatibleVisitKind child_ vis_ from_ to_- {-# LINE 1194 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1230 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1200 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1236 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_InducedCirc :: NontermIdent -> CInterface ->@@ -1219,20 +1257,22 @@ >-< vlist (map showEdgeLong cyclic_) act = text "An unoptimized version was generated. It might hang when run." in ppError (isError _lhsIoptions _me) noPos mesg pat help act _lhsIverbose- {-# LINE 1223 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1261 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} InducedCirc nt_ cinter_ cyclic_- {-# LINE 1229 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1267 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1235 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1273 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_InstCirc :: NontermIdent -> ConstructorIdent ->@@ -1259,20 +1299,22 @@ act | o_visit_ = text "An unoptimized version was generated. It might hang when run." | otherwise = text "The generated program might hang when run." in ppError (isError _lhsIoptions _me) (getPos (attr_)) mesg pat help act _lhsIverbose- {-# LINE 1263 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1303 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} InstCirc nt_ con_ attr_ o_visit_ path_- {-# LINE 1269 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1309 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1275 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1315 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_LocalCirc :: NontermIdent -> ConstructorIdent ->@@ -1299,20 +1341,22 @@ act | o_visit_ = text "An unoptimized version was generated. It might hang when run." | otherwise = text "The generated program might hang when run." in ppError (isError _lhsIoptions _me) (getPos (attr_)) mesg pat help act _lhsIverbose- {-# LINE 1303 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1345 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} LocalCirc nt_ con_ attr_ o_visit_ path_- {-# LINE 1309 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1351 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1315 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1357 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_MissingInstSig :: NontermIdent -> ConstructorIdent ->@@ -1339,20 +1383,22 @@ ] act = wfill ["It is not possible to proceed without this signature."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 1343 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1387 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} MissingInstSig nt_ con_ attr_- {-# LINE 1349 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1393 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1355 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1399 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_MissingNamedRule :: NontermIdent -> Identifier ->@@ -1376,20 +1422,22 @@ ] act = wfill ["Compilation cannot continue."] in ppError (isError _lhsIoptions _me) (getPos name_) mesg pat help act _lhsIverbose- {-# LINE 1380 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1426 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} MissingNamedRule nt_ con_ name_- {-# LINE 1386 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1432 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1392 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1438 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_MissingRule :: NontermIdent -> ConstructorIdent ->@@ -1415,20 +1463,22 @@ ] act = wfill ["The value of the attribute has been set to undefined."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 1419 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1467 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} MissingRule nt_ con_ field_ attr_- {-# LINE 1425 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1473 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1431 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1479 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_MissingSyn :: NontermIdent -> Identifier ->@@ -1455,20 +1505,22 @@ ] act = wfill ["It is not possible to proceed without this declaration."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 1459 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1509 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} MissingSyn nt_ attr_- {-# LINE 1465 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1515 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1471 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1521 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_MissingTypeSig :: NontermIdent -> ConstructorIdent ->@@ -1495,20 +1547,22 @@ ] act = wfill ["The type signatures of semantic functions are not generated."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 1499 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1551 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} MissingTypeSig nt_ con_ attr_- {-# LINE 1505 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1557 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1511 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1563 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_MissingUnique :: NontermIdent -> Identifier ->@@ -1535,20 +1589,22 @@ ] act = wfill ["It is not possible to proceed without this declaration."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 1539 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1593 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} MissingUnique nt_ attr_- {-# LINE 1545 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1599 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1551 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1605 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_ParserError :: Pos -> String ->@@ -1567,20 +1623,22 @@ help = text "" act = text action_ in ppError (isError _lhsIoptions _me) pos_ mesg pat help act _lhsIverbose- {-# LINE 1571 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1627 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} ParserError pos_ problem_ action_- {-# LINE 1577 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1633 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1583 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1639 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_SuperfluousRule :: NontermIdent -> ConstructorIdent ->@@ -1606,20 +1664,22 @@ ] act = wfill ["The rule has been ignored."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 1610 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1668 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} SuperfluousRule nt_ con_ field_ attr_- {-# LINE 1616 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1674 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1622 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1680 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_UndefAlt :: NontermIdent -> ConstructorIdent ->@@ -1642,20 +1702,22 @@ ] act = wfill ["All rules for the unknown alternative have been ignored."] in ppError (isError _lhsIoptions _me) (getPos con_) mesg pat help act _lhsIverbose- {-# LINE 1646 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1706 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} UndefAlt nt_ con_- {-# LINE 1652 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1712 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1658 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1718 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_UndefAttr :: NontermIdent -> ConstructorIdent ->@@ -1688,20 +1750,22 @@ ] act = wfill ["The generated program will not run."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 1692 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1754 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} UndefAttr nt_ con_ field_ attr_ isOut_- {-# LINE 1698 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1760 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1704 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1766 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_UndefChild :: NontermIdent -> ConstructorIdent ->@@ -1728,20 +1792,22 @@ ] act = wfill ["All rules for the unknown field have been ignored."] in ppError (isError _lhsIoptions _me) (getPos name_) mesg pat help act _lhsIverbose- {-# LINE 1732 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1796 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} UndefChild nt_ con_ name_- {-# LINE 1738 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1802 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1744 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1808 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_UndefLocal :: NontermIdent -> ConstructorIdent ->@@ -1768,20 +1834,22 @@ ] act = wfill ["The generated program will not run."] in ppError (isError _lhsIoptions _me) (getPos var_) mesg pat help act _lhsIverbose- {-# LINE 1772 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1838 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} UndefLocal nt_ con_ var_- {-# LINE 1778 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1844 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1784 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1850 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) sem_Error_UndefNont :: NontermIdent -> T_Error@@ -1801,20 +1869,22 @@ ] act = wfill ["Everything regarding the unknown nonterminal has been ignored."] in ppError (isError _lhsIoptions _me) (getPos nt_) mesg pat help act _lhsIverbose- {-# LINE 1805 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1873 "dist/build/PrintErrorMessages" #-} ) -- self rule _me = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} UndefNont nt_- {-# LINE 1811 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1879 "dist/build/PrintErrorMessages" #-} ) -- self rule _lhsOme = ({-# LINE 71 "src-ag/PrintErrorMessages.ag" #-} _me- {-# LINE 1817 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1885 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Error _lhsOme _lhsOpp) in ( _lhsOme,_lhsOpp)))) -- Errors ------------------------------------------------------ {-@@ -1870,13 +1940,13 @@ _verbose = ({-# LINE 78 "src-ag/PrintErrorMessages.ag" #-} verbose _lhsIoptions- {-# LINE 1874 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1944 "dist/build/PrintErrorMessages" #-} ) -- "src-ag/PrintErrorMessages.ag"(line 79, column 11) _str = ({-# LINE 79 "src-ag/PrintErrorMessages.ag" #-} disp _hdIpp 5000 ""- {-# LINE 1880 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1950 "dist/build/PrintErrorMessages" #-} ) -- "src-ag/PrintErrorMessages.ag"(line 81, column 11) _lhsOpp =@@ -1884,36 +1954,38 @@ if _str `elem` _lhsIdups then _tlIpp else _hdIpp >-< _tlIpp- {-# LINE 1888 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1958 "dist/build/PrintErrorMessages" #-} ) -- "src-ag/PrintErrorMessages.ag"(line 84, column 11) _tlOdups = ({-# LINE 84 "src-ag/PrintErrorMessages.ag" #-} _str : _lhsIdups- {-# LINE 1894 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1964 "dist/build/PrintErrorMessages" #-} ) -- copy rule (down) _hdOoptions = ({-# LINE 70 "src-ag/PrintErrorMessages.ag" #-} _lhsIoptions- {-# LINE 1900 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1970 "dist/build/PrintErrorMessages" #-} ) -- copy rule (from local) _hdOverbose = ({-# LINE 70 "src-ag/PrintErrorMessages.ag" #-} _verbose- {-# LINE 1906 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1976 "dist/build/PrintErrorMessages" #-} ) -- copy rule (down) _tlOoptions = ({-# LINE 74 "src-ag/PrintErrorMessages.ag" #-} _lhsIoptions- {-# LINE 1912 "dist/build/PrintErrorMessages" #-}+ {-# LINE 1982 "dist/build/PrintErrorMessages" #-} ) ( _hdIme,_hdIpp) = hd_ _hdOoptions _hdOverbose ( _tlIpp) = tl_ _tlOdups _tlOoptions+ ___node =+ (Syn_Errors _lhsOpp) in ( _lhsOpp)))) sem_Errors_Nil :: T_Errors sem_Errors_Nil =@@ -1924,12 +1996,14 @@ _verbose = ({-# LINE 78 "src-ag/PrintErrorMessages.ag" #-} verbose _lhsIoptions- {-# LINE 1928 "dist/build/PrintErrorMessages" #-}+ {-# LINE 2000 "dist/build/PrintErrorMessages" #-} ) -- "src-ag/PrintErrorMessages.ag"(line 85, column 11) _lhsOpp = ({-# LINE 85 "src-ag/PrintErrorMessages.ag" #-} text ""- {-# LINE 1934 "dist/build/PrintErrorMessages" #-}+ {-# LINE 2006 "dist/build/PrintErrorMessages" #-} )+ ___node =+ (Syn_Errors _lhsOpp) in ( _lhsOpp))))
src-derived/PrintOcamlCode.hs view
@@ -124,7 +124,9 @@ {-# LINE 125 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) })))+ (case ((Syn_CaseAlt _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }))) -- CaseAlts ---------------------------------------------------- {- visit 0:@@ -161,33 +163,37 @@ (T_CaseAlts (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 165 "dist/build/PrintOcamlCode" #-}+ {-# LINE 167 "dist/build/PrintOcamlCode" #-} )) of { !_tlOoptions -> (case (tl_ _tlOoptions) of { ( !_tlIpps) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 172 "dist/build/PrintOcamlCode" #-}+ {-# LINE 174 "dist/build/PrintOcamlCode" #-} )) of { !_hdOoptions -> (case (hd_ _hdOoptions) of { ( !_hdIpp) -> (case (({-# LINE 64 "src-ag/PrintOcamlCode.ag" #-} _hdIpp : _tlIpps- {-# LINE 179 "dist/build/PrintOcamlCode" #-}+ {-# LINE 181 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpps ->- ( _lhsOpps) }) }) }) }) })))+ (case ((Syn_CaseAlts _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }) }) }) }) }))) sem_CaseAlts_Nil :: T_CaseAlts sem_CaseAlts_Nil = (T_CaseAlts (\ (!_lhsIoptions) -> (case (({-# LINE 65 "src-ag/PrintOcamlCode.ag" #-} []- {-# LINE 188 "dist/build/PrintOcamlCode" #-}+ {-# LINE 192 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpps ->- ( _lhsOpps) })))+ (case ((Syn_CaseAlts _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }))) -- Chunk ------------------------------------------------------- {- visit 0:@@ -243,84 +249,84 @@ (!_lhsItextBlockMap) -> (case (({-# LINE 209 "src-ag/PrintOcamlCode.ag" #-} _lhsIisToplevel- {-# LINE 247 "dist/build/PrintOcamlCode" #-}+ {-# LINE 253 "dist/build/PrintOcamlCode" #-} )) of { !_semFunctionsOisToplevel -> (case (({-# LINE 209 "src-ag/PrintOcamlCode.ag" #-} _lhsIisToplevel- {-# LINE 252 "dist/build/PrintOcamlCode" #-}+ {-# LINE 258 "dist/build/PrintOcamlCode" #-} )) of { !_semWrapperOisToplevel -> (case (({-# LINE 209 "src-ag/PrintOcamlCode.ag" #-} _lhsIisToplevel- {-# LINE 257 "dist/build/PrintOcamlCode" #-}+ {-# LINE 263 "dist/build/PrintOcamlCode" #-} )) of { !_semDomOisToplevel -> (case (({-# LINE 209 "src-ag/PrintOcamlCode.ag" #-} _lhsIisToplevel- {-# LINE 262 "dist/build/PrintOcamlCode" #-}+ {-# LINE 268 "dist/build/PrintOcamlCode" #-} )) of { !_cataFunOisToplevel -> (case (({-# LINE 209 "src-ag/PrintOcamlCode.ag" #-} _lhsIisToplevel- {-# LINE 267 "dist/build/PrintOcamlCode" #-}+ {-# LINE 273 "dist/build/PrintOcamlCode" #-} )) of { !_dataDefOisToplevel -> (case (({-# LINE 209 "src-ag/PrintOcamlCode.ag" #-} _lhsIisToplevel- {-# LINE 272 "dist/build/PrintOcamlCode" #-}+ {-# LINE 278 "dist/build/PrintOcamlCode" #-} )) of { !_infoOisToplevel -> (case (({-# LINE 209 "src-ag/PrintOcamlCode.ag" #-} _lhsIisToplevel- {-# LINE 277 "dist/build/PrintOcamlCode" #-}+ {-# LINE 283 "dist/build/PrintOcamlCode" #-} )) of { !_commentOisToplevel -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 282 "dist/build/PrintOcamlCode" #-}+ {-# LINE 288 "dist/build/PrintOcamlCode" #-} )) of { !_semFunctionsOoptions -> (case (semFunctions_ _semFunctionsOisToplevel _semFunctionsOoptions) of { ( !_semFunctionsIpps) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 289 "dist/build/PrintOcamlCode" #-}+ {-# LINE 295 "dist/build/PrintOcamlCode" #-} )) of { !_semWrapperOoptions -> (case (semWrapper_ _semWrapperOisToplevel _semWrapperOoptions) of { ( !_semWrapperIpps) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 296 "dist/build/PrintOcamlCode" #-}+ {-# LINE 302 "dist/build/PrintOcamlCode" #-} )) of { !_semDomOoptions -> (case (semDom_ _semDomOisToplevel _semDomOoptions) of { ( !_semDomIpps) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 303 "dist/build/PrintOcamlCode" #-}+ {-# LINE 309 "dist/build/PrintOcamlCode" #-} )) of { !_cataFunOoptions -> (case (cataFun_ _cataFunOisToplevel _cataFunOoptions) of { ( !_cataFunIpps) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 310 "dist/build/PrintOcamlCode" #-}+ {-# LINE 316 "dist/build/PrintOcamlCode" #-} )) of { !_dataDefOoptions -> (case (dataDef_ _dataDefOisToplevel _dataDefOoptions) of { ( !_dataDefIpps) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 317 "dist/build/PrintOcamlCode" #-}+ {-# LINE 323 "dist/build/PrintOcamlCode" #-} )) of { !_infoOoptions -> (case (info_ _infoOisToplevel _infoOoptions) of { ( !_infoIpps) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 324 "dist/build/PrintOcamlCode" #-}+ {-# LINE 330 "dist/build/PrintOcamlCode" #-} )) of { !_commentOoptions -> (case (comment_ _commentOisToplevel _commentOoptions) of@@ -334,10 +340,12 @@ ++ _semWrapperIpps ++ _cataFunIpps ++ [Map.findWithDefault empty (BlockOther, Just $ identifier name_) _lhsItextBlockMap]- {-# LINE 338 "dist/build/PrintOcamlCode" #-}+ {-# LINE 344 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpps ->- ( _lhsOpps) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })))+ (case ((Syn_Chunk _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))) -- Chunks ------------------------------------------------------ {- visit 0:@@ -380,44 +388,46 @@ (!_lhsItextBlockMap) -> (case (({-# LINE 45 "src-ag/PrintOcamlCode.ag" #-} _lhsItextBlockMap- {-# LINE 384 "dist/build/PrintOcamlCode" #-}+ {-# LINE 392 "dist/build/PrintOcamlCode" #-} )) of { !_tlOtextBlockMap -> (case (({-# LINE 209 "src-ag/PrintOcamlCode.ag" #-} _lhsIisToplevel- {-# LINE 389 "dist/build/PrintOcamlCode" #-}+ {-# LINE 397 "dist/build/PrintOcamlCode" #-} )) of { !_tlOisToplevel -> (case (({-# LINE 45 "src-ag/PrintOcamlCode.ag" #-} _lhsItextBlockMap- {-# LINE 394 "dist/build/PrintOcamlCode" #-}+ {-# LINE 402 "dist/build/PrintOcamlCode" #-} )) of { !_hdOtextBlockMap -> (case (({-# LINE 209 "src-ag/PrintOcamlCode.ag" #-} _lhsIisToplevel- {-# LINE 399 "dist/build/PrintOcamlCode" #-}+ {-# LINE 407 "dist/build/PrintOcamlCode" #-} )) of { !_hdOisToplevel -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 404 "dist/build/PrintOcamlCode" #-}+ {-# LINE 412 "dist/build/PrintOcamlCode" #-} )) of { !_tlOoptions -> (case (tl_ _tlOisToplevel _tlOoptions _tlOtextBlockMap) of { ( !_tlIpps) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 411 "dist/build/PrintOcamlCode" #-}+ {-# LINE 419 "dist/build/PrintOcamlCode" #-} )) of { !_hdOoptions -> (case (hd_ _hdOisToplevel _hdOoptions _hdOtextBlockMap) of { ( !_hdIpps) -> (case (({-# LINE 84 "src-ag/PrintOcamlCode.ag" #-} _hdIpps ++ _tlIpps- {-# LINE 418 "dist/build/PrintOcamlCode" #-}+ {-# LINE 426 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpps ->- ( _lhsOpps) }) }) }) }) }) }) }) }) })))+ (case ((Syn_Chunks _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }) }) }) }) }) }) }) }) }))) sem_Chunks_Nil :: T_Chunks sem_Chunks_Nil = (T_Chunks (\ (!_lhsIisToplevel)@@ -425,10 +435,12 @@ (!_lhsItextBlockMap) -> (case (({-# LINE 85 "src-ag/PrintOcamlCode.ag" #-} []- {-# LINE 429 "dist/build/PrintOcamlCode" #-}+ {-# LINE 439 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpps ->- ( _lhsOpps) })))+ (case ((Syn_Chunks _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }))) -- DataAlt ----------------------------------------------------- {- visit 0:@@ -467,10 +479,12 @@ { ( !_argsIpps) -> (case (({-# LINE 183 "src-ag/PrintOcamlCode.ag" #-} name_ >#< "of" >#< pp_block "" "" " * " (map pp_parens _argsIpps)- {-# LINE 471 "dist/build/PrintOcamlCode" #-}+ {-# LINE 483 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }))+ (case ((Syn_DataAlt _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) })) sem_DataAlt_Record :: String -> T_NamedTypes -> T_DataAlt@@ -479,10 +493,12 @@ { ( !_argsIpps) -> (case (({-# LINE 184 "src-ag/PrintOcamlCode.ag" #-} pp_block "{" "}" ";" _argsIpps- {-# LINE 483 "dist/build/PrintOcamlCode" #-}+ {-# LINE 497 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }))+ (case ((Syn_DataAlt _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) })) -- DataAlts ---------------------------------------------------- {- visit 0:@@ -519,18 +535,22 @@ { ( !_hdIpp) -> (case (({-# LINE 68 "src-ag/PrintOcamlCode.ag" #-} _hdIpp : _tlIpps- {-# LINE 523 "dist/build/PrintOcamlCode" #-}+ {-# LINE 539 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpps ->- ( _lhsOpps) }) }) }))+ (case ((Syn_DataAlts _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }) }) })) sem_DataAlts_Nil :: T_DataAlts sem_DataAlts_Nil = (T_DataAlts (case (({-# LINE 69 "src-ag/PrintOcamlCode.ag" #-} []- {-# LINE 531 "dist/build/PrintOcamlCode" #-}+ {-# LINE 549 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpps ->- ( _lhsOpps) }))+ (case ((Syn_DataAlts _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) })) -- Decl -------------------------------------------------------- {- visit 0:@@ -628,10 +648,12 @@ (!_lhsIoptions) -> (case (({-# LINE 111 "src-ag/PrintOcamlCode.ag" #-} error "pp of Decl.Bind not supported"- {-# LINE 632 "dist/build/PrintOcamlCode" #-}+ {-# LINE 652 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) })))+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }))) sem_Decl_BindLet :: T_Lhs -> T_Expr -> T_Decl@@ -640,10 +662,12 @@ (!_lhsIoptions) -> (case (({-# LINE 112 "src-ag/PrintOcamlCode.ag" #-} error "pp of Decl.BindLet not supported"- {-# LINE 644 "dist/build/PrintOcamlCode" #-}+ {-# LINE 666 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) })))+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }))) sem_Decl_Comment :: String -> T_Decl sem_Decl_Comment !txt_ =@@ -653,10 +677,12 @@ if '\n' `elem` txt_ then "(* " >-< vlist (lines txt_) >-< "*)" else "(*" >#< txt_ >#< "*)"- {-# LINE 657 "dist/build/PrintOcamlCode" #-}+ {-# LINE 681 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) })))+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }))) sem_Decl_Data :: String -> ([String]) -> T_DataAlts ->@@ -676,10 +702,12 @@ >-< vlist (map ("|" >#<) xs) ) >#< ";;"- {-# LINE 680 "dist/build/PrintOcamlCode" #-}+ {-# LINE 706 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) })))+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }))) sem_Decl_Decl :: T_Lhs -> T_Expr -> (Set String) ->@@ -690,14 +718,14 @@ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 694 "dist/build/PrintOcamlCode" #-}+ {-# LINE 722 "dist/build/PrintOcamlCode" #-} )) of { !_rhsOoptions -> (case (rhs_ _rhsOoptions) of { ( !_rhsIpp) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 701 "dist/build/PrintOcamlCode" #-}+ {-# LINE 729 "dist/build/PrintOcamlCode" #-} )) of { !_leftOoptions -> (case (left_ _leftOoptions) of@@ -708,10 +736,12 @@ >-< indent 4 _rhsIpp >#< ";;" else "let" >#< _leftIpp >#< "=" >-< indent 4 _rhsIpp >#< "in"- {-# LINE 712 "dist/build/PrintOcamlCode" #-}+ {-# LINE 740 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) })))+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }))) sem_Decl_EvalDecl :: String -> T_Lhs -> T_Expr ->@@ -721,17 +751,19 @@ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 725 "dist/build/PrintOcamlCode" #-}+ {-# LINE 755 "dist/build/PrintOcamlCode" #-} )) of { !_rhsOoptions -> (case (rhs_ _rhsOoptions) of { ( !_rhsIpp) -> (case (({-# LINE 53 "src-ag/PrintOcamlCode.ag" #-} _rhsIpp- {-# LINE 732 "dist/build/PrintOcamlCode" #-}+ {-# LINE 762 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) })))+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }))) sem_Decl_NewType :: String -> ([String]) -> String ->@@ -742,10 +774,12 @@ (!_lhsIoptions) -> (case (({-# LINE 120 "src-ag/PrintOcamlCode.ag" #-} error "pp of Decl.NewType not supported"- {-# LINE 746 "dist/build/PrintOcamlCode" #-}+ {-# LINE 778 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) })))+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }))) sem_Decl_PragmaDecl :: String -> T_Decl sem_Decl_PragmaDecl !txt_ =@@ -753,10 +787,12 @@ (!_lhsIoptions) -> (case (({-# LINE 126 "src-ag/PrintOcamlCode.ag" #-} error "pp of Decl.PragmaDecl not supported"- {-# LINE 757 "dist/build/PrintOcamlCode" #-}+ {-# LINE 791 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) })))+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }))) sem_Decl_Resume :: Bool -> String -> T_Lhs ->@@ -767,17 +803,19 @@ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 771 "dist/build/PrintOcamlCode" #-}+ {-# LINE 807 "dist/build/PrintOcamlCode" #-} )) of { !_rhsOoptions -> (case (rhs_ _rhsOoptions) of { ( !_rhsIpp) -> (case (({-# LINE 53 "src-ag/PrintOcamlCode.ag" #-} _rhsIpp- {-# LINE 778 "dist/build/PrintOcamlCode" #-}+ {-# LINE 814 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) })))+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }))) sem_Decl_TSig :: String -> T_Type -> T_Decl@@ -788,10 +826,12 @@ { ( !_tpIpp) -> (case (({-# LINE 122 "src-ag/PrintOcamlCode.ag" #-} "(*" >#< name_ >#< ":" >#< _tpIpp >#< "*)"- {-# LINE 792 "dist/build/PrintOcamlCode" #-}+ {-# LINE 830 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) })))+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }))) sem_Decl_Type :: String -> ([String]) -> T_Type ->@@ -803,10 +843,12 @@ { ( !_tpIpp) -> (case (({-# LINE 121 "src-ag/PrintOcamlCode.ag" #-} "type" >#< hv_sp (map (\p -> "'" >|< p) params_ ++ [text $ toOcamlTC name_]) >#< "=" >#< _tpIpp >#< ";;"- {-# LINE 807 "dist/build/PrintOcamlCode" #-}+ {-# LINE 847 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) })))+ (case ((Syn_Decl _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }))) -- Decls ------------------------------------------------------- {- visit 0:@@ -846,44 +888,48 @@ (!_lhsIoptions) -> (case (({-# LINE 209 "src-ag/PrintOcamlCode.ag" #-} _lhsIisToplevel- {-# LINE 850 "dist/build/PrintOcamlCode" #-}+ {-# LINE 892 "dist/build/PrintOcamlCode" #-} )) of { !_tlOisToplevel -> (case (({-# LINE 209 "src-ag/PrintOcamlCode.ag" #-} _lhsIisToplevel- {-# LINE 855 "dist/build/PrintOcamlCode" #-}+ {-# LINE 897 "dist/build/PrintOcamlCode" #-} )) of { !_hdOisToplevel -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 860 "dist/build/PrintOcamlCode" #-}+ {-# LINE 902 "dist/build/PrintOcamlCode" #-} )) of { !_tlOoptions -> (case (tl_ _tlOisToplevel _tlOoptions) of { ( !_tlIpps) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 867 "dist/build/PrintOcamlCode" #-}+ {-# LINE 909 "dist/build/PrintOcamlCode" #-} )) of { !_hdOoptions -> (case (hd_ _hdOisToplevel _hdOoptions) of { ( !_hdIpp) -> (case (({-# LINE 80 "src-ag/PrintOcamlCode.ag" #-} _hdIpp : _tlIpps- {-# LINE 874 "dist/build/PrintOcamlCode" #-}+ {-# LINE 916 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpps ->- ( _lhsOpps) }) }) }) }) }) }) })))+ (case ((Syn_Decls _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }) }) }) }) }) }) }))) sem_Decls_Nil :: T_Decls sem_Decls_Nil = (T_Decls (\ (!_lhsIisToplevel) (!_lhsIoptions) -> (case (({-# LINE 81 "src-ag/PrintOcamlCode.ag" #-} []- {-# LINE 884 "dist/build/PrintOcamlCode" #-}+ {-# LINE 928 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpps ->- ( _lhsOpps) })))+ (case ((Syn_Decls _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }))) -- Expr -------------------------------------------------------- {- visit 0:@@ -1000,17 +1046,19 @@ (T_Expr (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1004 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1050 "dist/build/PrintOcamlCode" #-} )) of { !_argsOoptions -> (case (args_ _argsOoptions) of { ( !_argsIpps) -> (case (({-# LINE 143 "src-ag/PrintOcamlCode.ag" #-} pp_parens $ name_ >#< hv_sp _argsIpps- {-# LINE 1011 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1057 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) })))+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }))) sem_Expr_Case :: T_Expr -> T_CaseAlts -> T_Expr@@ -1018,14 +1066,14 @@ (T_Expr (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1022 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1070 "dist/build/PrintOcamlCode" #-} )) of { !_altsOoptions -> (case (alts_ _altsOoptions) of { ( !_altsIpps) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1029 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1077 "dist/build/PrintOcamlCode" #-} )) of { !_exprOoptions -> (case (expr_ _exprOoptions) of@@ -1038,10 +1086,12 @@ >-< vlist (map ("|" >#<) xs) ) )- {-# LINE 1042 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1090 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) })))+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }))) sem_Expr_Do :: T_Decls -> T_Expr -> T_Expr@@ -1049,10 +1099,12 @@ (T_Expr (\ (!_lhsIoptions) -> (case (({-# LINE 138 "src-ag/PrintOcamlCode.ag" #-} error "pp of Expr.Do not supported"- {-# LINE 1053 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1103 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) })))+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }))) sem_Expr_InvokeExpr :: String -> T_Expr -> T_Exprs ->@@ -1061,17 +1113,19 @@ (T_Expr (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1065 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1117 "dist/build/PrintOcamlCode" #-} )) of { !_exprOoptions -> (case (expr_ _exprOoptions) of { ( !_exprIpp) -> (case (({-# LINE 53 "src-ag/PrintOcamlCode.ag" #-} _exprIpp- {-# LINE 1072 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1124 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) })))+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }))) sem_Expr_Lambda :: T_Exprs -> T_Expr -> T_Expr@@ -1079,14 +1133,14 @@ (T_Expr (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1083 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1137 "dist/build/PrintOcamlCode" #-} )) of { !_bodyOoptions -> (case (body_ _bodyOoptions) of { ( !_bodyIpp) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1090 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1144 "dist/build/PrintOcamlCode" #-} )) of { !_argsOoptions -> (case (args_ _argsOoptions) of@@ -1094,10 +1148,12 @@ (case (({-# LINE 139 "src-ag/PrintOcamlCode.ag" #-} pp_parens ( pp "fun" >#< hv_sp _argsIpps >#< "->" >-< indent 2 _bodyIpp )- {-# LINE 1098 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1152 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) })))+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }))) sem_Expr_Let :: T_Decls -> T_Expr -> T_Expr@@ -1105,46 +1161,50 @@ (T_Expr (\ (!_lhsIoptions) -> (case (({-# LINE 216 "src-ag/PrintOcamlCode.ag" #-} False- {-# LINE 1109 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1165 "dist/build/PrintOcamlCode" #-} )) of { !_declsOisToplevel -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1114 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1170 "dist/build/PrintOcamlCode" #-} )) of { !_bodyOoptions -> (case (body_ _bodyOoptions) of { ( !_bodyIpp) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1121 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1177 "dist/build/PrintOcamlCode" #-} )) of { !_declsOoptions -> (case (decls_ _declsOisToplevel _declsOoptions) of { ( !_declsIpps) -> (case (({-# LINE 130 "src-ag/PrintOcamlCode.ag" #-} pp_parens $ vlist (_declsIpps ++ [_bodyIpp])- {-# LINE 1128 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1184 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) }) }) }) })))+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }) }) }) }))) sem_Expr_LineExpr :: T_Expr -> T_Expr sem_Expr_LineExpr !(T_Expr expr_) = (T_Expr (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1138 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1196 "dist/build/PrintOcamlCode" #-} )) of { !_exprOoptions -> (case (expr_ _exprOoptions) of { ( !_exprIpp) -> (case (({-# LINE 148 "src-ag/PrintOcamlCode.ag" #-} _exprIpp- {-# LINE 1145 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1203 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) })))+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }))) sem_Expr_PragmaExpr :: Bool -> Bool -> String ->@@ -1154,17 +1214,19 @@ (T_Expr (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1158 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1218 "dist/build/PrintOcamlCode" #-} )) of { !_exprOoptions -> (case (expr_ _exprOoptions) of { ( !_exprIpp) -> (case (({-# LINE 147 "src-ag/PrintOcamlCode.ag" #-} _exprIpp- {-# LINE 1165 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1225 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) })))+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }))) sem_Expr_ResultExpr :: String -> T_Expr -> T_Expr@@ -1172,17 +1234,19 @@ (T_Expr (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1176 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1238 "dist/build/PrintOcamlCode" #-} )) of { !_exprOoptions -> (case (expr_ _exprOoptions) of { ( !_exprIpp) -> (case (({-# LINE 53 "src-ag/PrintOcamlCode.ag" #-} _exprIpp- {-# LINE 1183 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1245 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) })))+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }))) sem_Expr_ResumeExpr :: String -> T_Expr -> T_Lhs ->@@ -1192,17 +1256,19 @@ (T_Expr (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1196 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1260 "dist/build/PrintOcamlCode" #-} )) of { !_rhsOoptions -> (case (rhs_ _rhsOoptions) of { ( !_rhsIpp) -> (case (({-# LINE 53 "src-ag/PrintOcamlCode.ag" #-} _rhsIpp- {-# LINE 1203 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1267 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) })))+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }))) sem_Expr_SemFun :: String -> T_Exprs -> T_Expr ->@@ -1211,37 +1277,43 @@ (T_Expr (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1215 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1281 "dist/build/PrintOcamlCode" #-} )) of { !_bodyOoptions -> (case (body_ _bodyOoptions) of { ( !_bodyIpp) -> (case (({-# LINE 53 "src-ag/PrintOcamlCode.ag" #-} _bodyIpp- {-# LINE 1222 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1288 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) })))+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }))) sem_Expr_SimpleExpr :: String -> T_Expr sem_Expr_SimpleExpr !txt_ = (T_Expr (\ (!_lhsIoptions) -> (case (({-# LINE 144 "src-ag/PrintOcamlCode.ag" #-} text txt_- {-# LINE 1232 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1300 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) })))+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }))) sem_Expr_TextExpr :: ([String]) -> T_Expr sem_Expr_TextExpr !lns_ = (T_Expr (\ (!_lhsIoptions) -> (case (({-# LINE 145 "src-ag/PrintOcamlCode.ag" #-} vlist (map text lns_)- {-# LINE 1242 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1312 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) })))+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }))) sem_Expr_Trace :: String -> T_Expr -> T_Expr@@ -1249,34 +1321,38 @@ (T_Expr (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1253 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1325 "dist/build/PrintOcamlCode" #-} )) of { !_exprOoptions -> (case (expr_ _exprOoptions) of { ( !_exprIpp) -> (case (({-# LINE 146 "src-ag/PrintOcamlCode.ag" #-} _exprIpp- {-# LINE 1260 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1332 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) })))+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }))) sem_Expr_TupleExpr :: T_Exprs -> T_Expr sem_Expr_TupleExpr !(T_Exprs exprs_) = (T_Expr (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1270 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1344 "dist/build/PrintOcamlCode" #-} )) of { !_exprsOoptions -> (case (exprs_ _exprsOoptions) of { ( !_exprsIpps) -> (case (({-# LINE 141 "src-ag/PrintOcamlCode.ag" #-} ppTuple False _exprsIpps- {-# LINE 1277 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1351 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) })))+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }))) sem_Expr_TypedExpr :: T_Expr -> T_Type -> T_Expr@@ -1284,27 +1360,31 @@ (T_Expr (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1288 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1364 "dist/build/PrintOcamlCode" #-} )) of { !_exprOoptions -> (case (expr_ _exprOoptions) of { ( !_exprIpp) -> (case (({-# LINE 149 "src-ag/PrintOcamlCode.ag" #-} _exprIpp- {-# LINE 1295 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1371 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) })))+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }))) sem_Expr_UnboxedTupleExpr :: T_Exprs -> T_Expr sem_Expr_UnboxedTupleExpr !(T_Exprs exprs_) = (T_Expr (\ (!_lhsIoptions) -> (case (({-# LINE 142 "src-ag/PrintOcamlCode.ag" #-} error "pp of Expr.UnboxedTupleExpr not supported"- {-# LINE 1305 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1383 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) })))+ (case ((Syn_Expr _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }))) -- Exprs ------------------------------------------------------- {- visit 0:@@ -1341,33 +1421,37 @@ (T_Exprs (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1345 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1425 "dist/build/PrintOcamlCode" #-} )) of { !_tlOoptions -> (case (tl_ _tlOoptions) of { ( !_tlIpps) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1352 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1432 "dist/build/PrintOcamlCode" #-} )) of { !_hdOoptions -> (case (hd_ _hdOoptions) of { ( !_hdIpp) -> (case (({-# LINE 60 "src-ag/PrintOcamlCode.ag" #-} _hdIpp : _tlIpps- {-# LINE 1359 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1439 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpps ->- ( _lhsOpps) }) }) }) }) })))+ (case ((Syn_Exprs _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }) }) }) }) }))) sem_Exprs_Nil :: T_Exprs sem_Exprs_Nil = (T_Exprs (\ (!_lhsIoptions) -> (case (({-# LINE 61 "src-ag/PrintOcamlCode.ag" #-} []- {-# LINE 1368 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1450 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpps ->- ( _lhsOpps) })))+ (case ((Syn_Exprs _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }))) -- Lhs --------------------------------------------------------- {- visit 0:@@ -1424,64 +1508,74 @@ (T_Lhs (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1428 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1512 "dist/build/PrintOcamlCode" #-} )) of { !_argsOoptions -> (case (args_ _argsOoptions) of { ( !_argsIpps) -> (case (({-# LINE 156 "src-ag/PrintOcamlCode.ag" #-} name_ >#< hv_sp _argsIpps- {-# LINE 1435 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1519 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) })))+ (case ((Syn_Lhs _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }))) sem_Lhs_Pattern3 :: T_Pattern -> T_Lhs sem_Lhs_Pattern3 !(T_Pattern pat3_) = (T_Lhs (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1445 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1531 "dist/build/PrintOcamlCode" #-} )) of { !_pat3Ooptions -> (case (pat3_ _pat3Ooptions) of { ( !_pat3Icopy,!_pat3IisUnderscore,!_pat3Ipp) -> (case (({-# LINE 152 "src-ag/PrintOcamlCode.ag" #-} _pat3Ipp- {-# LINE 1452 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1538 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) })))+ (case ((Syn_Lhs _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }))) sem_Lhs_Pattern3SM :: T_Pattern -> T_Lhs sem_Lhs_Pattern3SM !(T_Pattern pat3_) = (T_Lhs (\ (!_lhsIoptions) -> (case (({-# LINE 153 "src-ag/PrintOcamlCode.ag" #-} error "pp of Lhs.Pattern3SM not supported"- {-# LINE 1462 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1550 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) })))+ (case ((Syn_Lhs _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }))) sem_Lhs_TupleLhs :: ([String]) -> T_Lhs sem_Lhs_TupleLhs !comps_ = (T_Lhs (\ (!_lhsIoptions) -> (case (({-# LINE 154 "src-ag/PrintOcamlCode.ag" #-} ppTuple False (map text comps_)- {-# LINE 1472 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1562 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) })))+ (case ((Syn_Lhs _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }))) sem_Lhs_UnboxedTupleLhs :: ([String]) -> T_Lhs sem_Lhs_UnboxedTupleLhs !comps_ = (T_Lhs (\ (!_lhsIoptions) -> (case (({-# LINE 155 "src-ag/PrintOcamlCode.ag" #-} error "pp of Lhs.UnboxedTupleLhs not supported"- {-# LINE 1482 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1574 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) })))+ (case ((Syn_Lhs _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }))) sem_Lhs_Unwrap :: String -> T_Lhs -> T_Lhs@@ -1489,17 +1583,19 @@ (T_Lhs (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1493 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1587 "dist/build/PrintOcamlCode" #-} )) of { !_subOoptions -> (case (sub_ _subOoptions) of { ( !_subIpp) -> (case (({-# LINE 157 "src-ag/PrintOcamlCode.ag" #-} pp_parens (name_ >#< _subIpp)- {-# LINE 1500 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1594 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) })))+ (case ((Syn_Lhs _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) }))) -- NamedType --------------------------------------------------- {- visit 0:@@ -1535,10 +1631,12 @@ { ( !_tpIpp) -> (case (({-# LINE 187 "src-ag/PrintOcamlCode.ag" #-} name_ >#< ":" >#< _tpIpp- {-# LINE 1539 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1635 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }))+ (case ((Syn_NamedType _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) })) -- NamedTypes -------------------------------------------------- {- visit 0:@@ -1575,18 +1673,22 @@ { ( !_hdIpp) -> (case (({-# LINE 76 "src-ag/PrintOcamlCode.ag" #-} _hdIpp : _tlIpps- {-# LINE 1579 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1677 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpps ->- ( _lhsOpps) }) }) }))+ (case ((Syn_NamedTypes _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }) }) })) sem_NamedTypes_Nil :: T_NamedTypes sem_NamedTypes_Nil = (T_NamedTypes (case (({-# LINE 77 "src-ag/PrintOcamlCode.ag" #-} []- {-# LINE 1587 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1687 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpps ->- ( _lhsOpps) }))+ (case ((Syn_NamedTypes _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) })) -- Pattern ----------------------------------------------------- {- visit 0:@@ -1654,34 +1756,36 @@ (T_Pattern (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1658 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1760 "dist/build/PrintOcamlCode" #-} )) of { !_patOoptions -> (case (pat_ _patOoptions) of { ( !_patIcopy,!_patIisUnderscore,!_patIpp) -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Alias field_ attr_ _patIcopy- {-# LINE 1665 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1767 "dist/build/PrintOcamlCode" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1670 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1772 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOcopy -> (case (({-# LINE 202 "src-ag/PrintOcamlCode.ag" #-} False- {-# LINE 1675 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1777 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOisUnderscore -> (case (({-# LINE 193 "src-ag/PrintOcamlCode.ag" #-} if _patIisUnderscore then pp (attrname False field_ attr_) else error "pp of Pattern.Alias is only supported in the form (x@_)"- {-# LINE 1682 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1784 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp) }) }) }) }) }) })))+ (case ((Syn_Pattern _lhsOcopy _lhsOisUnderscore _lhsOpp)) of+ { ___node ->+ ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp) }) }) }) }) }) }) }))) sem_Pattern_Constr :: ConstructorIdent -> T_Patterns -> T_Pattern@@ -1689,64 +1793,68 @@ (T_Pattern (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1693 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1797 "dist/build/PrintOcamlCode" #-} )) of { !_patsOoptions -> (case (pats_ _patsOoptions) of { ( !_patsIcopy,!_patsIpps) -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Constr name_ _patsIcopy- {-# LINE 1700 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1804 "dist/build/PrintOcamlCode" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1705 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1809 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOcopy -> (case (({-# LINE 200 "src-ag/PrintOcamlCode.ag" #-} False- {-# LINE 1710 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1814 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOisUnderscore -> (case (({-# LINE 190 "src-ag/PrintOcamlCode.ag" #-} pp_parens $ name_ >#< hv_sp _patsIpps- {-# LINE 1715 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1819 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp) }) }) }) }) }) })))+ (case ((Syn_Pattern _lhsOcopy _lhsOisUnderscore _lhsOpp)) of+ { ___node ->+ ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp) }) }) }) }) }) }) }))) sem_Pattern_Irrefutable :: T_Pattern -> T_Pattern sem_Pattern_Irrefutable !(T_Pattern pat_) = (T_Pattern (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1725 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1831 "dist/build/PrintOcamlCode" #-} )) of { !_patOoptions -> (case (pat_ _patOoptions) of { ( !_patIcopy,!_patIisUnderscore,!_patIpp) -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Irrefutable _patIcopy- {-# LINE 1732 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1838 "dist/build/PrintOcamlCode" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1737 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1843 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOcopy -> (case (({-# LINE 199 "src-ag/PrintOcamlCode.ag" #-} _patIisUnderscore- {-# LINE 1742 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1848 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOisUnderscore -> (case (({-# LINE 196 "src-ag/PrintOcamlCode.ag" #-} error "pp of Pattern.Irrefutable not supported"- {-# LINE 1747 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1853 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp) }) }) }) }) }) })))+ (case ((Syn_Pattern _lhsOcopy _lhsOisUnderscore _lhsOpp)) of+ { ___node ->+ ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp) }) }) }) }) }) }) }))) sem_Pattern_Product :: Pos -> T_Patterns -> T_Pattern@@ -1754,57 +1862,61 @@ (T_Pattern (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1758 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1866 "dist/build/PrintOcamlCode" #-} )) of { !_patsOoptions -> (case (pats_ _patsOoptions) of { ( !_patsIcopy,!_patsIpps) -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Product pos_ _patsIcopy- {-# LINE 1765 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1873 "dist/build/PrintOcamlCode" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1770 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1878 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOcopy -> (case (({-# LINE 201 "src-ag/PrintOcamlCode.ag" #-} False- {-# LINE 1775 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1883 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOisUnderscore -> (case (({-# LINE 191 "src-ag/PrintOcamlCode.ag" #-} pp_block "(" ")" "," _patsIpps- {-# LINE 1780 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1888 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp) }) }) }) }) }) })))+ (case ((Syn_Pattern _lhsOcopy _lhsOisUnderscore _lhsOpp)) of+ { ___node ->+ ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp) }) }) }) }) }) }) }))) sem_Pattern_Underscore :: Pos -> T_Pattern sem_Pattern_Underscore !pos_ = (T_Pattern (\ (!_lhsIoptions) -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Underscore pos_- {-# LINE 1790 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1900 "dist/build/PrintOcamlCode" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1795 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1905 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOcopy -> (case (({-# LINE 203 "src-ag/PrintOcamlCode.ag" #-} True- {-# LINE 1800 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1910 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOisUnderscore -> (case (({-# LINE 197 "src-ag/PrintOcamlCode.ag" #-} text "_"- {-# LINE 1805 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1915 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp) }) }) }) })))+ (case ((Syn_Pattern _lhsOcopy _lhsOisUnderscore _lhsOpp)) of+ { ___node ->+ ( _lhsOcopy,_lhsOisUnderscore,_lhsOpp) }) }) }) }) }))) -- Patterns ---------------------------------------------------- {- visit 0:@@ -1846,53 +1958,57 @@ (T_Patterns (\ (!_lhsIoptions) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1850 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1962 "dist/build/PrintOcamlCode" #-} )) of { !_tlOoptions -> (case (tl_ _tlOoptions) of { ( !_tlIcopy,!_tlIpps) -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1857 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1969 "dist/build/PrintOcamlCode" #-} )) of { !_hdOoptions -> (case (hd_ _hdOoptions) of { ( !_hdIcopy,!_hdIisUnderscore,!_hdIpp) -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} (:) _hdIcopy _tlIcopy- {-# LINE 1864 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1976 "dist/build/PrintOcamlCode" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1869 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1981 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOcopy -> (case (({-# LINE 88 "src-ag/PrintOcamlCode.ag" #-} _hdIpp : _tlIpps- {-# LINE 1874 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1986 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpps ->- ( _lhsOcopy,_lhsOpps) }) }) }) }) }) }) })))+ (case ((Syn_Patterns _lhsOcopy _lhsOpps)) of+ { ___node ->+ ( _lhsOcopy,_lhsOpps) }) }) }) }) }) }) }) }))) sem_Patterns_Nil :: T_Patterns sem_Patterns_Nil = (T_Patterns (\ (!_lhsIoptions) -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} []- {-# LINE 1883 "dist/build/PrintOcamlCode" #-}+ {-# LINE 1997 "dist/build/PrintOcamlCode" #-} )) of { !_copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1888 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2002 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOcopy -> (case (({-# LINE 89 "src-ag/PrintOcamlCode.ag" #-} []- {-# LINE 1893 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2007 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpps ->- ( _lhsOcopy,_lhsOpps) }) }) })))+ (case ((Syn_Patterns _lhsOcopy _lhsOpps)) of+ { ___node ->+ ( _lhsOcopy,_lhsOpps) }) }) }) }))) -- Program ----------------------------------------------------- {- visit 0:@@ -1931,27 +2047,29 @@ (!_lhsItextBlockMap) -> (case (({-# LINE 45 "src-ag/PrintOcamlCode.ag" #-} _lhsItextBlockMap- {-# LINE 1935 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2051 "dist/build/PrintOcamlCode" #-} )) of { !_chunksOtextBlockMap -> (case (({-# LINE 212 "src-ag/PrintOcamlCode.ag" #-} True- {-# LINE 1940 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2056 "dist/build/PrintOcamlCode" #-} )) of { !_chunksOisToplevel -> (case (({-# LINE 43 "src-ag/PrintOcamlCode.ag" #-} _lhsIoptions- {-# LINE 1945 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2061 "dist/build/PrintOcamlCode" #-} )) of { !_chunksOoptions -> (case (chunks_ _chunksOisToplevel _chunksOoptions _chunksOtextBlockMap) of { ( !_chunksIpps) -> (case (({-# LINE 57 "src-ag/PrintOcamlCode.ag" #-} _chunksIpps- {-# LINE 1952 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2068 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOoutput ->- ( _lhsOoutput) }) }) }) }) })))+ (case ((Syn_Program _lhsOoutput)) of+ { ___node ->+ ( _lhsOoutput) }) }) }) }) }) }))) -- Type -------------------------------------------------------- {- visit 0:@@ -2042,20 +2160,24 @@ { ( !_leftIpp) -> (case (({-# LINE 160 "src-ag/PrintOcamlCode.ag" #-} pp_parens (_leftIpp >#< "->" >#< _rightIpp)- {-# LINE 2046 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2164 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) }))+ (case ((Syn_Type _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) })) sem_Type_CtxApp :: ([(String, [String])]) -> T_Type -> T_Type sem_Type_CtxApp !left_ !(T_Type right_) = (T_Type (case (({-# LINE 161 "src-ag/PrintOcamlCode.ag" #-} error "pp of Type.CtxApp not supported"- {-# LINE 2056 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2176 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }))+ (case ((Syn_Type _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) })) sem_Type_List :: T_Type -> T_Type sem_Type_List !(T_Type tp_) =@@ -2063,10 +2185,12 @@ { ( !_tpIpp) -> (case (({-# LINE 166 "src-ag/PrintOcamlCode.ag" #-} _tpIpp >#< "list"- {-# LINE 2067 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2189 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }))+ (case ((Syn_Type _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) })) sem_Type_NontermType :: String -> ([String]) -> Bool ->@@ -2074,10 +2198,12 @@ sem_Type_NontermType !name_ !params_ !deforested_ = (T_Type (case (({-# LINE 168 "src-ag/PrintOcamlCode.ag" #-} pp_block "(" ")" " " (map text params_ ++ [text $ toOcamlTC name_])- {-# LINE 2078 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2202 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }))+ (case ((Syn_Type _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) })) sem_Type_QuantApp :: String -> T_Type -> T_Type@@ -2086,48 +2212,58 @@ { ( !_rightIpp) -> (case (({-# LINE 53 "src-ag/PrintOcamlCode.ag" #-} _rightIpp- {-# LINE 2090 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2216 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }))+ (case ((Syn_Type _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) })) sem_Type_SimpleType :: String -> T_Type sem_Type_SimpleType !txt_ = (T_Type (case (({-# LINE 167 "src-ag/PrintOcamlCode.ag" #-} text txt_- {-# LINE 2099 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2227 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }))+ (case ((Syn_Type _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) })) sem_Type_TEither :: T_Type -> T_Type -> T_Type sem_Type_TEither !(T_Type left_) !(T_Type right_) = (T_Type (case (({-# LINE 170 "src-ag/PrintOcamlCode.ag" #-} error "pp of Type.TEither is not supported"- {-# LINE 2109 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2239 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }))+ (case ((Syn_Type _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) })) sem_Type_TIntMap :: T_Type -> T_Type sem_Type_TIntMap !(T_Type value_) = (T_Type (case (({-# LINE 172 "src-ag/PrintOcamlCode.ag" #-} error "pp of Type.TIntMap is not supported"- {-# LINE 2118 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2250 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }))+ (case ((Syn_Type _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) })) sem_Type_TMap :: T_Type -> T_Type -> T_Type sem_Type_TMap !(T_Type key_) !(T_Type value_) = (T_Type (case (({-# LINE 171 "src-ag/PrintOcamlCode.ag" #-} error "pp of Type.TMap is not supported"- {-# LINE 2128 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2262 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }))+ (case ((Syn_Type _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) })) sem_Type_TMaybe :: T_Type -> T_Type sem_Type_TMaybe !(T_Type tp_) =@@ -2135,10 +2271,12 @@ { ( !_tpIpp) -> (case (({-# LINE 169 "src-ag/PrintOcamlCode.ag" #-} _tpIpp >#< "opt"- {-# LINE 2139 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2275 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }))+ (case ((Syn_Type _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) })) sem_Type_TupleType :: T_Types -> T_Type sem_Type_TupleType !(T_Types tps_) =@@ -2146,10 +2284,12 @@ { ( !_tpsIpps) -> (case (({-# LINE 163 "src-ag/PrintOcamlCode.ag" #-} pp_block "(" ")" "," _tpsIpps- {-# LINE 2150 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2288 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }))+ (case ((Syn_Type _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) })) sem_Type_TypeApp :: T_Type -> T_Types -> T_Type@@ -2160,19 +2300,23 @@ { ( !_funcIpp) -> (case (({-# LINE 162 "src-ag/PrintOcamlCode.ag" #-} pp_parens (hv_sp (_argsIpps ++ [_funcIpp]))- {-# LINE 2164 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2304 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }) }) }))+ (case ((Syn_Type _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) }) }) })) sem_Type_UnboxedTupleType :: T_Types -> T_Type sem_Type_UnboxedTupleType !(T_Types tps_) = (T_Type (case (({-# LINE 165 "src-ag/PrintOcamlCode.ag" #-} error "pp of Type.UnboxedTupleType is not supported"- {-# LINE 2173 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2315 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpp ->- ( _lhsOpp) }))+ (case ((Syn_Type _lhsOpp)) of+ { ___node ->+ ( _lhsOpp) }) })) -- Types ------------------------------------------------------- {- visit 0:@@ -2209,15 +2353,19 @@ { ( !_hdIpp) -> (case (({-# LINE 72 "src-ag/PrintOcamlCode.ag" #-} _hdIpp : _tlIpps- {-# LINE 2213 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2357 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpps ->- ( _lhsOpps) }) }) }))+ (case ((Syn_Types _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }) }) })) sem_Types_Nil :: T_Types sem_Types_Nil = (T_Types (case (({-# LINE 73 "src-ag/PrintOcamlCode.ag" #-} []- {-# LINE 2221 "dist/build/PrintOcamlCode" #-}+ {-# LINE 2367 "dist/build/PrintOcamlCode" #-} )) of { !_lhsOpps ->- ( _lhsOpps) }))+ (case ((Syn_Types _lhsOpps)) of+ { ___node ->+ ( _lhsOpps) }) }))
src-derived/PrintVisitCode.hs view
@@ -114,7 +114,9 @@ {-# LINE 115 "dist/build/PrintVisitCode" #-} )) of { _lhsOoutput ->- ( _lhsOoutput) })))+ (case ((Syn_CGrammar _lhsOoutput)) of+ { ___node ->+ ( _lhsOoutput) }) }))) -- CInterface -------------------------------------------------- {- alternatives:@@ -139,7 +141,9 @@ sem_CInterface_CInterface :: T_CSegments -> T_CInterface sem_CInterface_CInterface (T_CSegments seg_) =- (T_CInterface ( ))+ (T_CInterface (case ((Syn_CInterface)) of+ { ___node ->+ ( ) })) -- CNonterminal ------------------------------------------------ {- alternatives:@@ -174,7 +178,9 @@ T_CInterface -> T_CNonterminal sem_CNonterminal_CNonterminal nt_ params_ inh_ syn_ (T_CProductions prods_) (T_CInterface inter_) =- (T_CNonterminal ( ))+ (T_CNonterminal (case ((Syn_CNonterminal)) of+ { ___node ->+ ( ) })) -- CNonterminals ----------------------------------------------- {- alternatives:@@ -202,10 +208,14 @@ T_CNonterminals -> T_CNonterminals sem_CNonterminals_Cons (T_CNonterminal hd_) (T_CNonterminals tl_) =- (T_CNonterminals ( ))+ (T_CNonterminals (case ((Syn_CNonterminals)) of+ { ___node ->+ ( ) })) sem_CNonterminals_Nil :: T_CNonterminals sem_CNonterminals_Nil =- (T_CNonterminals ( ))+ (T_CNonterminals (case ((Syn_CNonterminals)) of+ { ___node ->+ ( ) })) -- CProduction ------------------------------------------------- {- alternatives:@@ -236,7 +246,9 @@ ([Identifier]) -> T_CProduction sem_CProduction_CProduction con_ (T_CVisits visits_) children_ terminals_ =- (T_CProduction ( ))+ (T_CProduction (case ((Syn_CProduction)) of+ { ___node ->+ ( ) })) -- CProductions ------------------------------------------------ {- alternatives:@@ -264,10 +276,14 @@ T_CProductions -> T_CProductions sem_CProductions_Cons (T_CProduction hd_) (T_CProductions tl_) =- (T_CProductions ( ))+ (T_CProductions (case ((Syn_CProductions)) of+ { ___node ->+ ( ) })) sem_CProductions_Nil :: T_CProductions sem_CProductions_Nil =- (T_CProductions ( ))+ (T_CProductions (case ((Syn_CProductions)) of+ { ___node ->+ ( ) })) -- CRule ------------------------------------------------------- {- alternatives:@@ -321,7 +337,9 @@ Bool -> T_CRule sem_CRule_CChildVisit name_ nt_ nr_ inh_ syn_ isLast_ =- (T_CRule ( ))+ (T_CRule (case ((Syn_CRule)) of+ { ___node ->+ ( ) })) sem_CRule_CRule :: Identifier -> Bool -> Bool ->@@ -340,7 +358,9 @@ (Maybe Identifier) -> T_CRule sem_CRule_CRule name_ isIn_ hasCode_ nt_ con_ field_ childnt_ tp_ (T_Pattern pattern_) rhs_ defines_ owrt_ origin_ uses_ explicit_ mbNamed_ =- (T_CRule ( ))+ (T_CRule (case ((Syn_CRule)) of+ { ___node ->+ ( ) })) -- CSegment ---------------------------------------------------- {- alternatives:@@ -367,7 +387,9 @@ Attributes -> T_CSegment sem_CSegment_CSegment inh_ syn_ =- (T_CSegment ( ))+ (T_CSegment (case ((Syn_CSegment)) of+ { ___node ->+ ( ) })) -- CSegments --------------------------------------------------- {- alternatives:@@ -395,10 +417,14 @@ T_CSegments -> T_CSegments sem_CSegments_Cons (T_CSegment hd_) (T_CSegments tl_) =- (T_CSegments ( ))+ (T_CSegments (case ((Syn_CSegments)) of+ { ___node ->+ ( ) })) sem_CSegments_Nil :: T_CSegments sem_CSegments_Nil =- (T_CSegments ( ))+ (T_CSegments (case ((Syn_CSegments)) of+ { ___node ->+ ( ) })) -- CVisit ------------------------------------------------------ {- alternatives:@@ -431,7 +457,9 @@ Bool -> T_CVisit sem_CVisit_CVisit inh_ syn_ (T_Sequence vss_) (T_Sequence intra_) ordered_ =- (T_CVisit ( ))+ (T_CVisit (case ((Syn_CVisit)) of+ { ___node ->+ ( ) })) -- CVisits ----------------------------------------------------- {- alternatives:@@ -459,10 +487,14 @@ T_CVisits -> T_CVisits sem_CVisits_Cons (T_CVisit hd_) (T_CVisits tl_) =- (T_CVisits ( ))+ (T_CVisits (case ((Syn_CVisits)) of+ { ___node ->+ ( ) })) sem_CVisits_Nil :: T_CVisits sem_CVisits_Nil =- (T_CVisits ( ))+ (T_CVisits (case ((Syn_CVisits)) of+ { ___node ->+ ( ) })) -- DeclBlocks -------------------------------------------------- {- alternatives:@@ -496,12 +528,16 @@ T_DeclBlocks -> T_DeclBlocks sem_DeclBlocks_DeclBlock defs_ visit_ (T_DeclBlocks next_) =- (T_DeclBlocks ( ))+ (T_DeclBlocks (case ((Syn_DeclBlocks)) of+ { ___node ->+ ( ) })) sem_DeclBlocks_DeclTerminator :: ([Decl]) -> Expr -> T_DeclBlocks sem_DeclBlocks_DeclTerminator defs_ result_ =- (T_DeclBlocks ( ))+ (T_DeclBlocks (case ((Syn_DeclBlocks)) of+ { ___node ->+ ( ) })) -- DeclBlocksRoot ---------------------------------------------- {- alternatives:@@ -526,7 +562,9 @@ sem_DeclBlocksRoot_DeclBlocksRoot :: T_DeclBlocks -> T_DeclBlocksRoot sem_DeclBlocksRoot_DeclBlocksRoot (T_DeclBlocks blocks_) =- (T_DeclBlocksRoot ( ))+ (T_DeclBlocksRoot (case ((Syn_DeclBlocksRoot)) of+ { ___node ->+ ( ) })) -- Pattern ----------------------------------------------------- {- visit 0:@@ -590,15 +628,17 @@ { ( _patIcopy) -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Alias field_ attr_ _patIcopy- {-# LINE 594 "dist/build/PrintVisitCode" #-}+ {-# LINE 632 "dist/build/PrintVisitCode" #-} )) of { _copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 599 "dist/build/PrintVisitCode" #-}+ {-# LINE 637 "dist/build/PrintVisitCode" #-} )) of { _lhsOcopy ->- ( _lhsOcopy) }) }) }))+ (case ((Syn_Pattern _lhsOcopy)) of+ { ___node ->+ ( _lhsOcopy) }) }) }) })) sem_Pattern_Constr :: ConstructorIdent -> T_Patterns -> T_Pattern@@ -607,15 +647,17 @@ { ( _patsIcopy) -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Constr name_ _patsIcopy- {-# LINE 611 "dist/build/PrintVisitCode" #-}+ {-# LINE 651 "dist/build/PrintVisitCode" #-} )) of { _copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 616 "dist/build/PrintVisitCode" #-}+ {-# LINE 656 "dist/build/PrintVisitCode" #-} )) of { _lhsOcopy ->- ( _lhsOcopy) }) }) }))+ (case ((Syn_Pattern _lhsOcopy)) of+ { ___node ->+ ( _lhsOcopy) }) }) }) })) sem_Pattern_Irrefutable :: T_Pattern -> T_Pattern sem_Pattern_Irrefutable (T_Pattern pat_) =@@ -623,15 +665,17 @@ { ( _patIcopy) -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Irrefutable _patIcopy- {-# LINE 627 "dist/build/PrintVisitCode" #-}+ {-# LINE 669 "dist/build/PrintVisitCode" #-} )) of { _copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 632 "dist/build/PrintVisitCode" #-}+ {-# LINE 674 "dist/build/PrintVisitCode" #-} )) of { _lhsOcopy ->- ( _lhsOcopy) }) }) }))+ (case ((Syn_Pattern _lhsOcopy)) of+ { ___node ->+ ( _lhsOcopy) }) }) }) })) sem_Pattern_Product :: Pos -> T_Patterns -> T_Pattern@@ -640,29 +684,33 @@ { ( _patsIcopy) -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Product pos_ _patsIcopy- {-# LINE 644 "dist/build/PrintVisitCode" #-}+ {-# LINE 688 "dist/build/PrintVisitCode" #-} )) of { _copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 649 "dist/build/PrintVisitCode" #-}+ {-# LINE 693 "dist/build/PrintVisitCode" #-} )) of { _lhsOcopy ->- ( _lhsOcopy) }) }) }))+ (case ((Syn_Pattern _lhsOcopy)) of+ { ___node ->+ ( _lhsOcopy) }) }) }) })) sem_Pattern_Underscore :: Pos -> T_Pattern sem_Pattern_Underscore pos_ = (T_Pattern (case (({-# LINE 22 "src-ag/Patterns.ag" #-} Underscore pos_- {-# LINE 658 "dist/build/PrintVisitCode" #-}+ {-# LINE 704 "dist/build/PrintVisitCode" #-} )) of { _copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 663 "dist/build/PrintVisitCode" #-}+ {-# LINE 709 "dist/build/PrintVisitCode" #-} )) of { _lhsOcopy ->- ( _lhsOcopy) }) }))+ (case ((Syn_Pattern _lhsOcopy)) of+ { ___node ->+ ( _lhsOcopy) }) }) })) -- Patterns ---------------------------------------------------- {- visit 0:@@ -703,28 +751,32 @@ { ( _hdIcopy) -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} (:) _hdIcopy _tlIcopy- {-# LINE 707 "dist/build/PrintVisitCode" #-}+ {-# LINE 755 "dist/build/PrintVisitCode" #-} )) of { _copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 712 "dist/build/PrintVisitCode" #-}+ {-# LINE 760 "dist/build/PrintVisitCode" #-} )) of { _lhsOcopy ->- ( _lhsOcopy) }) }) }) }))+ (case ((Syn_Patterns _lhsOcopy)) of+ { ___node ->+ ( _lhsOcopy) }) }) }) }) })) sem_Patterns_Nil :: T_Patterns sem_Patterns_Nil = (T_Patterns (case (({-# LINE 22 "src-ag/Patterns.ag" #-} []- {-# LINE 720 "dist/build/PrintVisitCode" #-}+ {-# LINE 770 "dist/build/PrintVisitCode" #-} )) of { _copy -> (case (({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 725 "dist/build/PrintVisitCode" #-}+ {-# LINE 775 "dist/build/PrintVisitCode" #-} )) of { _lhsOcopy ->- ( _lhsOcopy) }) }))+ (case ((Syn_Patterns _lhsOcopy)) of+ { ___node ->+ ( _lhsOcopy) }) }) })) -- Sequence ---------------------------------------------------- {- alternatives:@@ -752,7 +804,11 @@ T_Sequence -> T_Sequence sem_Sequence_Cons (T_CRule hd_) (T_Sequence tl_) =- (T_Sequence ( ))+ (T_Sequence (case ((Syn_Sequence)) of+ { ___node ->+ ( ) })) sem_Sequence_Nil :: T_Sequence sem_Sequence_Nil =- (T_Sequence ( ))+ (T_Sequence (case ((Syn_Sequence)) of+ { ___node ->+ ( ) }))
src-derived/ResolveLocals.hs view
@@ -162,6 +162,8 @@ _output {-# LINE 164 "dist/build/ResolveLocals" #-} )+ ___node =+ (Syn_Child _lhsOattributes _lhsOfield _lhsOoutput) in ( _lhsOattributes,_lhsOfield,_lhsOoutput)))) -- Children ---------------------------------------------------- {-@@ -263,150 +265,152 @@ _lhsOfields = ({-# LINE 90 "src-ag/ResolveLocals.ag" #-} _hdIfield : _tlIfields- {-# LINE 267 "dist/build/ResolveLocals" #-}+ {-# LINE 269 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 82, column 32) _lhsOattributes = ({-# LINE 82 "src-ag/ResolveLocals.ag" #-} _hdIattributes ++ _tlIattributes- {-# LINE 273 "dist/build/ResolveLocals" #-}+ {-# LINE 275 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} (:) _hdIoutput _tlIoutput- {-# LINE 279 "dist/build/ResolveLocals" #-}+ {-# LINE 281 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 285 "dist/build/ResolveLocals" #-}+ {-# LINE 287 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOallfields = ({-# LINE 71 "src-ag/ResolveLocals.ag" #-} _lhsIallfields- {-# LINE 291 "dist/build/ResolveLocals" #-}+ {-# LINE 293 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOallnts = ({-# LINE 57 "src-ag/ResolveLocals.ag" #-} _lhsIallnts- {-# LINE 297 "dist/build/ResolveLocals" #-}+ {-# LINE 299 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOattrs = ({-# LINE 71 "src-ag/ResolveLocals.ag" #-} _lhsIattrs- {-# LINE 303 "dist/build/ResolveLocals" #-}+ {-# LINE 305 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOcon = ({-# LINE 105 "src-ag/ResolveLocals.ag" #-} _lhsIcon- {-# LINE 309 "dist/build/ResolveLocals" #-}+ {-# LINE 311 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOinh = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIinh- {-# LINE 315 "dist/build/ResolveLocals" #-}+ {-# LINE 317 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 321 "dist/build/ResolveLocals" #-}+ {-# LINE 323 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOmergeMap = ({-# LINE 131 "src-ag/ResolveLocals.ag" #-} _lhsImergeMap- {-# LINE 327 "dist/build/ResolveLocals" #-}+ {-# LINE 329 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOnt = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsInt- {-# LINE 333 "dist/build/ResolveLocals" #-}+ {-# LINE 335 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOsyn = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIsyn- {-# LINE 339 "dist/build/ResolveLocals" #-}+ {-# LINE 341 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 345 "dist/build/ResolveLocals" #-}+ {-# LINE 347 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOallfields = ({-# LINE 71 "src-ag/ResolveLocals.ag" #-} _lhsIallfields- {-# LINE 351 "dist/build/ResolveLocals" #-}+ {-# LINE 353 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOallnts = ({-# LINE 57 "src-ag/ResolveLocals.ag" #-} _lhsIallnts- {-# LINE 357 "dist/build/ResolveLocals" #-}+ {-# LINE 359 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOattrs = ({-# LINE 71 "src-ag/ResolveLocals.ag" #-} _lhsIattrs- {-# LINE 363 "dist/build/ResolveLocals" #-}+ {-# LINE 365 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOcon = ({-# LINE 105 "src-ag/ResolveLocals.ag" #-} _lhsIcon- {-# LINE 369 "dist/build/ResolveLocals" #-}+ {-# LINE 371 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOinh = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIinh- {-# LINE 375 "dist/build/ResolveLocals" #-}+ {-# LINE 377 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 381 "dist/build/ResolveLocals" #-}+ {-# LINE 383 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOmergeMap = ({-# LINE 131 "src-ag/ResolveLocals.ag" #-} _lhsImergeMap- {-# LINE 387 "dist/build/ResolveLocals" #-}+ {-# LINE 389 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOnt = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsInt- {-# LINE 393 "dist/build/ResolveLocals" #-}+ {-# LINE 395 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOsyn = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIsyn- {-# LINE 399 "dist/build/ResolveLocals" #-}+ {-# LINE 401 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 405 "dist/build/ResolveLocals" #-}+ {-# LINE 407 "dist/build/ResolveLocals" #-} ) ( _hdIattributes,_hdIfield,_hdIoutput) = hd_ _hdOallfields _hdOallnts _hdOattrs _hdOcon _hdOinh _hdOinhMap _hdOmergeMap _hdOnt _hdOsyn _hdOsynMap ( _tlIattributes,_tlIfields,_tlIoutput) = tl_ _tlOallfields _tlOallnts _tlOattrs _tlOcon _tlOinh _tlOinhMap _tlOmergeMap _tlOnt _tlOsyn _tlOsynMap+ ___node =+ (Syn_Children _lhsOattributes _lhsOfields _lhsOoutput) in ( _lhsOattributes,_lhsOfields,_lhsOoutput)))) sem_Children_Nil :: T_Children sem_Children_Nil =@@ -427,26 +431,28 @@ _lhsOfields = ({-# LINE 91 "src-ag/ResolveLocals.ag" #-} []- {-# LINE 431 "dist/build/ResolveLocals" #-}+ {-# LINE 435 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 82, column 32) _lhsOattributes = ({-# LINE 82 "src-ag/ResolveLocals.ag" #-} []- {-# LINE 437 "dist/build/ResolveLocals" #-}+ {-# LINE 441 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} []- {-# LINE 443 "dist/build/ResolveLocals" #-}+ {-# LINE 447 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 449 "dist/build/ResolveLocals" #-}+ {-# LINE 453 "dist/build/ResolveLocals" #-} )+ ___node =+ (Syn_Children _lhsOattributes _lhsOfields _lhsOoutput) in ( _lhsOattributes,_lhsOfields,_lhsOoutput)))) -- Expression -------------------------------------------------- {-@@ -520,26 +526,28 @@ } synthesized = wrap_HsTokensRoot (sem_HsTokensRoot (HsTokensRoot tks_)) inherited in (errors_Syn_HsTokensRoot synthesized, output_Syn_HsTokensRoot synthesized)- {-# LINE 524 "dist/build/ResolveLocals" #-}+ {-# LINE 530 "dist/build/ResolveLocals" #-} ) -- "src-ag/ResolveLocals.ag"(line 157, column 17) _lhsOoutput = ({-# LINE 157 "src-ag/ResolveLocals.ag" #-} Expression pos_ _newTks- {-# LINE 530 "dist/build/ResolveLocals" #-}+ {-# LINE 536 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 44, column 16) _lhsOerrors = ({-# LINE 44 "src-ag/ResolveLocals.ag" #-} _errors- {-# LINE 536 "dist/build/ResolveLocals" #-}+ {-# LINE 542 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} Expression pos_ tks_- {-# LINE 542 "dist/build/ResolveLocals" #-}+ {-# LINE 548 "dist/build/ResolveLocals" #-} )+ ___node =+ (Syn_Expression _lhsOerrors _lhsOoutput) in ( _lhsOerrors,_lhsOoutput)))) -- Grammar ----------------------------------------------------- {-@@ -617,52 +625,54 @@ _nontsOallnts = ({-# LINE 60 "src-ag/ResolveLocals.ag" #-} map fst (_nontsInonts)- {-# LINE 621 "dist/build/ResolveLocals" #-}+ {-# LINE 629 "dist/build/ResolveLocals" #-} ) -- "src-ag/ResolveLocals.ag"(line 120, column 14) _nontsOmergeMap = ({-# LINE 120 "src-ag/ResolveLocals.ag" #-} Map.map (Map.map (Map.map (\(nt,srcs,_) -> (nt,srcs)))) mergeMap_- {-# LINE 627 "dist/build/ResolveLocals" #-}+ {-# LINE 635 "dist/build/ResolveLocals" #-} ) -- "src-ag/DistChildAttr.ag"(line 15, column 13) _nontsOinhMap = ({-# LINE 15 "src-ag/DistChildAttr.ag" #-} _nontsIinhMap'- {-# LINE 633 "dist/build/ResolveLocals" #-}+ {-# LINE 641 "dist/build/ResolveLocals" #-} ) -- "src-ag/DistChildAttr.ag"(line 16, column 13) _nontsOsynMap = ({-# LINE 16 "src-ag/DistChildAttr.ag" #-} _nontsIsynMap'- {-# LINE 639 "dist/build/ResolveLocals" #-}+ {-# LINE 647 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 44, column 16) _lhsOerrors = ({-# LINE 44 "src-ag/ResolveLocals.ag" #-} _nontsIerrors- {-# LINE 645 "dist/build/ResolveLocals" #-}+ {-# LINE 653 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} Grammar typeSyns_ useMap_ derivings_ wrappers_ _nontsIoutput pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ quantMap_ uniqueMap_ augmentsMap_ aroundsMap_ mergeMap_- {-# LINE 651 "dist/build/ResolveLocals" #-}+ {-# LINE 659 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 657 "dist/build/ResolveLocals" #-}+ {-# LINE 665 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _nontsOoptions = ({-# LINE 41 "src-ag/ResolveLocals.ag" #-} _lhsIoptions- {-# LINE 663 "dist/build/ResolveLocals" #-}+ {-# LINE 671 "dist/build/ResolveLocals" #-} ) ( _nontsIerrors,_nontsIinhMap',_nontsInonts,_nontsIoutput,_nontsIsynMap') = nonts_ _nontsOallnts _nontsOinhMap _nontsOmergeMap _nontsOoptions _nontsOsynMap+ ___node =+ (Syn_Grammar _lhsOerrors _lhsOoutput) in ( _lhsOerrors,_lhsOoutput)))) -- Nonterminal ------------------------------------------------- {-@@ -742,94 +752,96 @@ _lhsOnonts = ({-# LINE 64 "src-ag/ResolveLocals.ag" #-} [(nt_,_prodsIcons)]- {-# LINE 746 "dist/build/ResolveLocals" #-}+ {-# LINE 756 "dist/build/ResolveLocals" #-} ) -- "src-ag/ResolveLocals.ag"(line 112, column 17) _prodsOnt = ({-# LINE 112 "src-ag/ResolveLocals.ag" #-} nt_- {-# LINE 752 "dist/build/ResolveLocals" #-}+ {-# LINE 762 "dist/build/ResolveLocals" #-} ) -- "src-ag/ResolveLocals.ag"(line 115, column 17) _prodsOinh = ({-# LINE 115 "src-ag/ResolveLocals.ag" #-} inh_- {-# LINE 758 "dist/build/ResolveLocals" #-}+ {-# LINE 768 "dist/build/ResolveLocals" #-} ) -- "src-ag/ResolveLocals.ag"(line 116, column 17) _prodsOsyn = ({-# LINE 116 "src-ag/ResolveLocals.ag" #-} syn_- {-# LINE 764 "dist/build/ResolveLocals" #-}+ {-# LINE 774 "dist/build/ResolveLocals" #-} ) -- "src-ag/ResolveLocals.ag"(line 128, column 32) _mergeMap = ({-# LINE 128 "src-ag/ResolveLocals.ag" #-} Map.findWithDefault Map.empty nt_ _lhsImergeMap- {-# LINE 770 "dist/build/ResolveLocals" #-}+ {-# LINE 780 "dist/build/ResolveLocals" #-} ) -- "src-ag/DistChildAttr.ag"(line 7, column 18) _lhsOinhMap' = ({-# LINE 7 "src-ag/DistChildAttr.ag" #-} Map.singleton nt_ inh_- {-# LINE 776 "dist/build/ResolveLocals" #-}+ {-# LINE 786 "dist/build/ResolveLocals" #-} ) -- "src-ag/DistChildAttr.ag"(line 8, column 18) _lhsOsynMap' = ({-# LINE 8 "src-ag/DistChildAttr.ag" #-} Map.singleton nt_ syn_- {-# LINE 782 "dist/build/ResolveLocals" #-}+ {-# LINE 792 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 44, column 16) _lhsOerrors = ({-# LINE 44 "src-ag/ResolveLocals.ag" #-} _prodsIerrors- {-# LINE 788 "dist/build/ResolveLocals" #-}+ {-# LINE 798 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} Nonterminal nt_ params_ inh_ syn_ _prodsIoutput- {-# LINE 794 "dist/build/ResolveLocals" #-}+ {-# LINE 804 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 800 "dist/build/ResolveLocals" #-}+ {-# LINE 810 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _prodsOallnts = ({-# LINE 57 "src-ag/ResolveLocals.ag" #-} _lhsIallnts- {-# LINE 806 "dist/build/ResolveLocals" #-}+ {-# LINE 816 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _prodsOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 812 "dist/build/ResolveLocals" #-}+ {-# LINE 822 "dist/build/ResolveLocals" #-} ) -- copy rule (from local) _prodsOmergeMap = ({-# LINE 126 "src-ag/ResolveLocals.ag" #-} _mergeMap- {-# LINE 818 "dist/build/ResolveLocals" #-}+ {-# LINE 828 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _prodsOoptions = ({-# LINE 41 "src-ag/ResolveLocals.ag" #-} _lhsIoptions- {-# LINE 824 "dist/build/ResolveLocals" #-}+ {-# LINE 834 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _prodsOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 830 "dist/build/ResolveLocals" #-}+ {-# LINE 840 "dist/build/ResolveLocals" #-} ) ( _prodsIcons,_prodsIerrors,_prodsIoutput) = prods_ _prodsOallnts _prodsOinh _prodsOinhMap _prodsOmergeMap _prodsOnt _prodsOoptions _prodsOsyn _prodsOsynMap+ ___node =+ (Syn_Nonterminal _lhsOerrors _lhsOinhMap' _lhsOnonts _lhsOoutput _lhsOsynMap') in ( _lhsOerrors,_lhsOinhMap',_lhsOnonts,_lhsOoutput,_lhsOsynMap')))) -- Nonterminals ------------------------------------------------ {-@@ -914,102 +926,104 @@ _lhsOerrors = ({-# LINE 44 "src-ag/ResolveLocals.ag" #-} _hdIerrors Seq.>< _tlIerrors- {-# LINE 918 "dist/build/ResolveLocals" #-}+ {-# LINE 930 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53) _lhsOinhMap' = ({-# LINE 4 "src-ag/DistChildAttr.ag" #-} _hdIinhMap' `Map.union` _tlIinhMap'- {-# LINE 924 "dist/build/ResolveLocals" #-}+ {-# LINE 936 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 62, column 43) _lhsOnonts = ({-# LINE 62 "src-ag/ResolveLocals.ag" #-} _hdInonts ++ _tlInonts- {-# LINE 930 "dist/build/ResolveLocals" #-}+ {-# LINE 942 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53) _lhsOsynMap' = ({-# LINE 4 "src-ag/DistChildAttr.ag" #-} _hdIsynMap' `Map.union` _tlIsynMap'- {-# LINE 936 "dist/build/ResolveLocals" #-}+ {-# LINE 948 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} (:) _hdIoutput _tlIoutput- {-# LINE 942 "dist/build/ResolveLocals" #-}+ {-# LINE 954 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 948 "dist/build/ResolveLocals" #-}+ {-# LINE 960 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOallnts = ({-# LINE 57 "src-ag/ResolveLocals.ag" #-} _lhsIallnts- {-# LINE 954 "dist/build/ResolveLocals" #-}+ {-# LINE 966 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 960 "dist/build/ResolveLocals" #-}+ {-# LINE 972 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOmergeMap = ({-# LINE 123 "src-ag/ResolveLocals.ag" #-} _lhsImergeMap- {-# LINE 966 "dist/build/ResolveLocals" #-}+ {-# LINE 978 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOoptions = ({-# LINE 41 "src-ag/ResolveLocals.ag" #-} _lhsIoptions- {-# LINE 972 "dist/build/ResolveLocals" #-}+ {-# LINE 984 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 978 "dist/build/ResolveLocals" #-}+ {-# LINE 990 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOallnts = ({-# LINE 57 "src-ag/ResolveLocals.ag" #-} _lhsIallnts- {-# LINE 984 "dist/build/ResolveLocals" #-}+ {-# LINE 996 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 990 "dist/build/ResolveLocals" #-}+ {-# LINE 1002 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOmergeMap = ({-# LINE 123 "src-ag/ResolveLocals.ag" #-} _lhsImergeMap- {-# LINE 996 "dist/build/ResolveLocals" #-}+ {-# LINE 1008 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOoptions = ({-# LINE 41 "src-ag/ResolveLocals.ag" #-} _lhsIoptions- {-# LINE 1002 "dist/build/ResolveLocals" #-}+ {-# LINE 1014 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 1008 "dist/build/ResolveLocals" #-}+ {-# LINE 1020 "dist/build/ResolveLocals" #-} ) ( _hdIerrors,_hdIinhMap',_hdInonts,_hdIoutput,_hdIsynMap') = hd_ _hdOallnts _hdOinhMap _hdOmergeMap _hdOoptions _hdOsynMap ( _tlIerrors,_tlIinhMap',_tlInonts,_tlIoutput,_tlIsynMap') = tl_ _tlOallnts _tlOinhMap _tlOmergeMap _tlOoptions _tlOsynMap+ ___node =+ (Syn_Nonterminals _lhsOerrors _lhsOinhMap' _lhsOnonts _lhsOoutput _lhsOsynMap') in ( _lhsOerrors,_lhsOinhMap',_lhsOnonts,_lhsOoutput,_lhsOsynMap')))) sem_Nonterminals_Nil :: T_Nonterminals sem_Nonterminals_Nil =@@ -1027,38 +1041,40 @@ _lhsOerrors = ({-# LINE 44 "src-ag/ResolveLocals.ag" #-} Seq.empty- {-# LINE 1031 "dist/build/ResolveLocals" #-}+ {-# LINE 1045 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53) _lhsOinhMap' = ({-# LINE 4 "src-ag/DistChildAttr.ag" #-} Map.empty- {-# LINE 1037 "dist/build/ResolveLocals" #-}+ {-# LINE 1051 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 62, column 43) _lhsOnonts = ({-# LINE 62 "src-ag/ResolveLocals.ag" #-} []- {-# LINE 1043 "dist/build/ResolveLocals" #-}+ {-# LINE 1057 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53) _lhsOsynMap' = ({-# LINE 4 "src-ag/DistChildAttr.ag" #-} Map.empty- {-# LINE 1049 "dist/build/ResolveLocals" #-}+ {-# LINE 1063 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} []- {-# LINE 1055 "dist/build/ResolveLocals" #-}+ {-# LINE 1069 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 1061 "dist/build/ResolveLocals" #-}+ {-# LINE 1075 "dist/build/ResolveLocals" #-} )+ ___node =+ (Syn_Nonterminals _lhsOerrors _lhsOinhMap' _lhsOnonts _lhsOoutput _lhsOsynMap') in ( _lhsOerrors,_lhsOinhMap',_lhsOnonts,_lhsOoutput,_lhsOsynMap')))) -- Pattern ----------------------------------------------------- {-@@ -1161,7 +1177,7 @@ if field_ == _LOC then [attr_] else []- {-# LINE 1165 "dist/build/ResolveLocals" #-}+ {-# LINE 1181 "dist/build/ResolveLocals" #-} ) -- "src-ag/ResolveLocals.ag"(line 99, column 14) _lhsOinstVars =@@ -1169,64 +1185,66 @@ if field_ == _INST then [attr_] else []- {-# LINE 1173 "dist/build/ResolveLocals" #-}+ {-# LINE 1189 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 44, column 16) _lhsOerrors = ({-# LINE 44 "src-ag/ResolveLocals.ag" #-} _patIerrors- {-# LINE 1179 "dist/build/ResolveLocals" #-}+ {-# LINE 1195 "dist/build/ResolveLocals" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Alias field_ attr_ _patIcopy- {-# LINE 1185 "dist/build/ResolveLocals" #-}+ {-# LINE 1201 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} Alias field_ attr_ _patIoutput- {-# LINE 1191 "dist/build/ResolveLocals" #-}+ {-# LINE 1207 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1197 "dist/build/ResolveLocals" #-}+ {-# LINE 1213 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 1203 "dist/build/ResolveLocals" #-}+ {-# LINE 1219 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patOcon = ({-# LINE 105 "src-ag/ResolveLocals.ag" #-} _lhsIcon- {-# LINE 1209 "dist/build/ResolveLocals" #-}+ {-# LINE 1225 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patOinh = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIinh- {-# LINE 1215 "dist/build/ResolveLocals" #-}+ {-# LINE 1231 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patOnt = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsInt- {-# LINE 1221 "dist/build/ResolveLocals" #-}+ {-# LINE 1237 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patOsyn = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIsyn- {-# LINE 1227 "dist/build/ResolveLocals" #-}+ {-# LINE 1243 "dist/build/ResolveLocals" #-} ) ( _patIcopy,_patIerrors,_patIinstVars,_patIlocVars,_patIoutput) = pat_ _patOcon _patOinh _patOnt _patOsyn+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOerrors _lhsOinstVars _lhsOlocVars _lhsOoutput) in ( _lhsOcopy,_lhsOerrors,_lhsOinstVars,_lhsOlocVars,_lhsOoutput)))) sem_Pattern_Constr :: ConstructorIdent -> T_Patterns ->@@ -1254,70 +1272,72 @@ _lhsOerrors = ({-# LINE 44 "src-ag/ResolveLocals.ag" #-} _patsIerrors- {-# LINE 1258 "dist/build/ResolveLocals" #-}+ {-# LINE 1276 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 93, column 86) _lhsOinstVars = ({-# LINE 93 "src-ag/ResolveLocals.ag" #-} _patsIinstVars- {-# LINE 1264 "dist/build/ResolveLocals" #-}+ {-# LINE 1282 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 93, column 48) _lhsOlocVars = ({-# LINE 93 "src-ag/ResolveLocals.ag" #-} _patsIlocVars- {-# LINE 1270 "dist/build/ResolveLocals" #-}+ {-# LINE 1288 "dist/build/ResolveLocals" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Constr name_ _patsIcopy- {-# LINE 1276 "dist/build/ResolveLocals" #-}+ {-# LINE 1294 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} Constr name_ _patsIoutput- {-# LINE 1282 "dist/build/ResolveLocals" #-}+ {-# LINE 1300 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1288 "dist/build/ResolveLocals" #-}+ {-# LINE 1306 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 1294 "dist/build/ResolveLocals" #-}+ {-# LINE 1312 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patsOcon = ({-# LINE 105 "src-ag/ResolveLocals.ag" #-} _lhsIcon- {-# LINE 1300 "dist/build/ResolveLocals" #-}+ {-# LINE 1318 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patsOinh = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIinh- {-# LINE 1306 "dist/build/ResolveLocals" #-}+ {-# LINE 1324 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patsOnt = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsInt- {-# LINE 1312 "dist/build/ResolveLocals" #-}+ {-# LINE 1330 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patsOsyn = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIsyn- {-# LINE 1318 "dist/build/ResolveLocals" #-}+ {-# LINE 1336 "dist/build/ResolveLocals" #-} ) ( _patsIcopy,_patsIerrors,_patsIinstVars,_patsIlocVars,_patsIoutput) = pats_ _patsOcon _patsOinh _patsOnt _patsOsyn+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOerrors _lhsOinstVars _lhsOlocVars _lhsOoutput) in ( _lhsOcopy,_lhsOerrors,_lhsOinstVars,_lhsOlocVars,_lhsOoutput)))) sem_Pattern_Irrefutable :: T_Pattern -> T_Pattern@@ -1344,70 +1364,72 @@ _lhsOerrors = ({-# LINE 44 "src-ag/ResolveLocals.ag" #-} _patIerrors- {-# LINE 1348 "dist/build/ResolveLocals" #-}+ {-# LINE 1368 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 93, column 86) _lhsOinstVars = ({-# LINE 93 "src-ag/ResolveLocals.ag" #-} _patIinstVars- {-# LINE 1354 "dist/build/ResolveLocals" #-}+ {-# LINE 1374 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 93, column 48) _lhsOlocVars = ({-# LINE 93 "src-ag/ResolveLocals.ag" #-} _patIlocVars- {-# LINE 1360 "dist/build/ResolveLocals" #-}+ {-# LINE 1380 "dist/build/ResolveLocals" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Irrefutable _patIcopy- {-# LINE 1366 "dist/build/ResolveLocals" #-}+ {-# LINE 1386 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} Irrefutable _patIoutput- {-# LINE 1372 "dist/build/ResolveLocals" #-}+ {-# LINE 1392 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1378 "dist/build/ResolveLocals" #-}+ {-# LINE 1398 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 1384 "dist/build/ResolveLocals" #-}+ {-# LINE 1404 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patOcon = ({-# LINE 105 "src-ag/ResolveLocals.ag" #-} _lhsIcon- {-# LINE 1390 "dist/build/ResolveLocals" #-}+ {-# LINE 1410 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patOinh = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIinh- {-# LINE 1396 "dist/build/ResolveLocals" #-}+ {-# LINE 1416 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patOnt = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsInt- {-# LINE 1402 "dist/build/ResolveLocals" #-}+ {-# LINE 1422 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patOsyn = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIsyn- {-# LINE 1408 "dist/build/ResolveLocals" #-}+ {-# LINE 1428 "dist/build/ResolveLocals" #-} ) ( _patIcopy,_patIerrors,_patIinstVars,_patIlocVars,_patIoutput) = pat_ _patOcon _patOinh _patOnt _patOsyn+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOerrors _lhsOinstVars _lhsOlocVars _lhsOoutput) in ( _lhsOcopy,_lhsOerrors,_lhsOinstVars,_lhsOlocVars,_lhsOoutput)))) sem_Pattern_Product :: Pos -> T_Patterns ->@@ -1435,70 +1457,72 @@ _lhsOerrors = ({-# LINE 44 "src-ag/ResolveLocals.ag" #-} _patsIerrors- {-# LINE 1439 "dist/build/ResolveLocals" #-}+ {-# LINE 1461 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 93, column 86) _lhsOinstVars = ({-# LINE 93 "src-ag/ResolveLocals.ag" #-} _patsIinstVars- {-# LINE 1445 "dist/build/ResolveLocals" #-}+ {-# LINE 1467 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 93, column 48) _lhsOlocVars = ({-# LINE 93 "src-ag/ResolveLocals.ag" #-} _patsIlocVars- {-# LINE 1451 "dist/build/ResolveLocals" #-}+ {-# LINE 1473 "dist/build/ResolveLocals" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Product pos_ _patsIcopy- {-# LINE 1457 "dist/build/ResolveLocals" #-}+ {-# LINE 1479 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} Product pos_ _patsIoutput- {-# LINE 1463 "dist/build/ResolveLocals" #-}+ {-# LINE 1485 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1469 "dist/build/ResolveLocals" #-}+ {-# LINE 1491 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 1475 "dist/build/ResolveLocals" #-}+ {-# LINE 1497 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patsOcon = ({-# LINE 105 "src-ag/ResolveLocals.ag" #-} _lhsIcon- {-# LINE 1481 "dist/build/ResolveLocals" #-}+ {-# LINE 1503 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patsOinh = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIinh- {-# LINE 1487 "dist/build/ResolveLocals" #-}+ {-# LINE 1509 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patsOnt = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsInt- {-# LINE 1493 "dist/build/ResolveLocals" #-}+ {-# LINE 1515 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patsOsyn = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIsyn- {-# LINE 1499 "dist/build/ResolveLocals" #-}+ {-# LINE 1521 "dist/build/ResolveLocals" #-} ) ( _patsIcopy,_patsIerrors,_patsIinstVars,_patsIlocVars,_patsIoutput) = pats_ _patsOcon _patsOinh _patsOnt _patsOsyn+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOerrors _lhsOinstVars _lhsOlocVars _lhsOoutput) in ( _lhsOcopy,_lhsOerrors,_lhsOinstVars,_lhsOlocVars,_lhsOoutput)))) sem_Pattern_Underscore :: Pos -> T_Pattern@@ -1516,44 +1540,46 @@ _lhsOerrors = ({-# LINE 44 "src-ag/ResolveLocals.ag" #-} Seq.empty- {-# LINE 1520 "dist/build/ResolveLocals" #-}+ {-# LINE 1544 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 93, column 86) _lhsOinstVars = ({-# LINE 93 "src-ag/ResolveLocals.ag" #-} []- {-# LINE 1526 "dist/build/ResolveLocals" #-}+ {-# LINE 1550 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 93, column 48) _lhsOlocVars = ({-# LINE 93 "src-ag/ResolveLocals.ag" #-} []- {-# LINE 1532 "dist/build/ResolveLocals" #-}+ {-# LINE 1556 "dist/build/ResolveLocals" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Underscore pos_- {-# LINE 1538 "dist/build/ResolveLocals" #-}+ {-# LINE 1562 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} Underscore pos_- {-# LINE 1544 "dist/build/ResolveLocals" #-}+ {-# LINE 1568 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1550 "dist/build/ResolveLocals" #-}+ {-# LINE 1574 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 1556 "dist/build/ResolveLocals" #-}+ {-# LINE 1580 "dist/build/ResolveLocals" #-} )+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOerrors _lhsOinstVars _lhsOlocVars _lhsOoutput) in ( _lhsOcopy,_lhsOerrors,_lhsOinstVars,_lhsOlocVars,_lhsOoutput)))) -- Patterns ---------------------------------------------------- {-@@ -1635,96 +1661,98 @@ _lhsOerrors = ({-# LINE 44 "src-ag/ResolveLocals.ag" #-} _hdIerrors Seq.>< _tlIerrors- {-# LINE 1639 "dist/build/ResolveLocals" #-}+ {-# LINE 1665 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 93, column 86) _lhsOinstVars = ({-# LINE 93 "src-ag/ResolveLocals.ag" #-} _hdIinstVars ++ _tlIinstVars- {-# LINE 1645 "dist/build/ResolveLocals" #-}+ {-# LINE 1671 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 93, column 48) _lhsOlocVars = ({-# LINE 93 "src-ag/ResolveLocals.ag" #-} _hdIlocVars ++ _tlIlocVars- {-# LINE 1651 "dist/build/ResolveLocals" #-}+ {-# LINE 1677 "dist/build/ResolveLocals" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} (:) _hdIcopy _tlIcopy- {-# LINE 1657 "dist/build/ResolveLocals" #-}+ {-# LINE 1683 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} (:) _hdIoutput _tlIoutput- {-# LINE 1663 "dist/build/ResolveLocals" #-}+ {-# LINE 1689 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1669 "dist/build/ResolveLocals" #-}+ {-# LINE 1695 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 1675 "dist/build/ResolveLocals" #-}+ {-# LINE 1701 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOcon = ({-# LINE 105 "src-ag/ResolveLocals.ag" #-} _lhsIcon- {-# LINE 1681 "dist/build/ResolveLocals" #-}+ {-# LINE 1707 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOinh = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIinh- {-# LINE 1687 "dist/build/ResolveLocals" #-}+ {-# LINE 1713 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOnt = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsInt- {-# LINE 1693 "dist/build/ResolveLocals" #-}+ {-# LINE 1719 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOsyn = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIsyn- {-# LINE 1699 "dist/build/ResolveLocals" #-}+ {-# LINE 1725 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOcon = ({-# LINE 105 "src-ag/ResolveLocals.ag" #-} _lhsIcon- {-# LINE 1705 "dist/build/ResolveLocals" #-}+ {-# LINE 1731 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOinh = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIinh- {-# LINE 1711 "dist/build/ResolveLocals" #-}+ {-# LINE 1737 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOnt = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsInt- {-# LINE 1717 "dist/build/ResolveLocals" #-}+ {-# LINE 1743 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOsyn = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIsyn- {-# LINE 1723 "dist/build/ResolveLocals" #-}+ {-# LINE 1749 "dist/build/ResolveLocals" #-} ) ( _hdIcopy,_hdIerrors,_hdIinstVars,_hdIlocVars,_hdIoutput) = hd_ _hdOcon _hdOinh _hdOnt _hdOsyn ( _tlIcopy,_tlIerrors,_tlIinstVars,_tlIlocVars,_tlIoutput) = tl_ _tlOcon _tlOinh _tlOnt _tlOsyn+ ___node =+ (Syn_Patterns _lhsOcopy _lhsOerrors _lhsOinstVars _lhsOlocVars _lhsOoutput) in ( _lhsOcopy,_lhsOerrors,_lhsOinstVars,_lhsOlocVars,_lhsOoutput)))) sem_Patterns_Nil :: T_Patterns sem_Patterns_Nil =@@ -1741,44 +1769,46 @@ _lhsOerrors = ({-# LINE 44 "src-ag/ResolveLocals.ag" #-} Seq.empty- {-# LINE 1745 "dist/build/ResolveLocals" #-}+ {-# LINE 1773 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 93, column 86) _lhsOinstVars = ({-# LINE 93 "src-ag/ResolveLocals.ag" #-} []- {-# LINE 1751 "dist/build/ResolveLocals" #-}+ {-# LINE 1779 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 93, column 48) _lhsOlocVars = ({-# LINE 93 "src-ag/ResolveLocals.ag" #-} []- {-# LINE 1757 "dist/build/ResolveLocals" #-}+ {-# LINE 1785 "dist/build/ResolveLocals" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} []- {-# LINE 1763 "dist/build/ResolveLocals" #-}+ {-# LINE 1791 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} []- {-# LINE 1769 "dist/build/ResolveLocals" #-}+ {-# LINE 1797 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1775 "dist/build/ResolveLocals" #-}+ {-# LINE 1803 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 1781 "dist/build/ResolveLocals" #-}+ {-# LINE 1809 "dist/build/ResolveLocals" #-} )+ ___node =+ (Syn_Patterns _lhsOcopy _lhsOerrors _lhsOinstVars _lhsOlocVars _lhsOoutput) in ( _lhsOcopy,_lhsOerrors,_lhsOinstVars,_lhsOlocVars,_lhsOoutput)))) -- Production -------------------------------------------------- {-@@ -1887,13 +1917,13 @@ _lhsOcons = ({-# LINE 67 "src-ag/ResolveLocals.ag" #-} [con_]- {-# LINE 1891 "dist/build/ResolveLocals" #-}+ {-# LINE 1921 "dist/build/ResolveLocals" #-} ) -- "src-ag/ResolveLocals.ag"(line 74, column 16) _allfields = ({-# LINE 74 "src-ag/ResolveLocals.ag" #-} _childrenIfields- {-# LINE 1897 "dist/build/ResolveLocals" #-}+ {-# LINE 1927 "dist/build/ResolveLocals" #-} ) -- "src-ag/ResolveLocals.ag"(line 74, column 16) _attrs =@@ -1902,157 +1932,157 @@ map ((,) _INST) _rulesIinstVars ++ map ((,) _LHS) _inhnames ++ concat [map ((,) nm) (Map.keys as) | (nm,_,as) <- _childrenIattributes]- {-# LINE 1906 "dist/build/ResolveLocals" #-}+ {-# LINE 1936 "dist/build/ResolveLocals" #-} ) -- "src-ag/ResolveLocals.ag"(line 74, column 16) _inhnames = ({-# LINE 79 "src-ag/ResolveLocals.ag" #-} Map.keys _lhsIinh- {-# LINE 1912 "dist/build/ResolveLocals" #-}+ {-# LINE 1942 "dist/build/ResolveLocals" #-} ) -- "src-ag/ResolveLocals.ag"(line 74, column 16) _synnames = ({-# LINE 80 "src-ag/ResolveLocals.ag" #-} Map.keys _lhsIsyn- {-# LINE 1918 "dist/build/ResolveLocals" #-}+ {-# LINE 1948 "dist/build/ResolveLocals" #-} ) -- "src-ag/ResolveLocals.ag"(line 108, column 16) _childrenOcon = ({-# LINE 108 "src-ag/ResolveLocals.ag" #-} con_- {-# LINE 1924 "dist/build/ResolveLocals" #-}+ {-# LINE 1954 "dist/build/ResolveLocals" #-} ) -- "src-ag/ResolveLocals.ag"(line 110, column 16) _rulesOcon = ({-# LINE 110 "src-ag/ResolveLocals.ag" #-} con_- {-# LINE 1930 "dist/build/ResolveLocals" #-}+ {-# LINE 1960 "dist/build/ResolveLocals" #-} ) -- "src-ag/ResolveLocals.ag"(line 129, column 32) _mergeMap = ({-# LINE 129 "src-ag/ResolveLocals.ag" #-} Map.findWithDefault Map.empty con_ _lhsImergeMap- {-# LINE 1936 "dist/build/ResolveLocals" #-}+ {-# LINE 1966 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 44, column 16) _lhsOerrors = ({-# LINE 44 "src-ag/ResolveLocals.ag" #-} _rulesIerrors- {-# LINE 1942 "dist/build/ResolveLocals" #-}+ {-# LINE 1972 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} Production con_ params_ constraints_ _childrenIoutput _rulesIoutput _typeSigsIoutput macro_- {-# LINE 1948 "dist/build/ResolveLocals" #-}+ {-# LINE 1978 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 1954 "dist/build/ResolveLocals" #-}+ {-# LINE 1984 "dist/build/ResolveLocals" #-} ) -- copy rule (from local) _childrenOallfields = ({-# LINE 71 "src-ag/ResolveLocals.ag" #-} _allfields- {-# LINE 1960 "dist/build/ResolveLocals" #-}+ {-# LINE 1990 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _childrenOallnts = ({-# LINE 57 "src-ag/ResolveLocals.ag" #-} _lhsIallnts- {-# LINE 1966 "dist/build/ResolveLocals" #-}+ {-# LINE 1996 "dist/build/ResolveLocals" #-} ) -- copy rule (from local) _childrenOattrs = ({-# LINE 71 "src-ag/ResolveLocals.ag" #-} _attrs- {-# LINE 1972 "dist/build/ResolveLocals" #-}+ {-# LINE 2002 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _childrenOinh = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIinh- {-# LINE 1978 "dist/build/ResolveLocals" #-}+ {-# LINE 2008 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _childrenOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 1984 "dist/build/ResolveLocals" #-}+ {-# LINE 2014 "dist/build/ResolveLocals" #-} ) -- copy rule (from local) _childrenOmergeMap = ({-# LINE 131 "src-ag/ResolveLocals.ag" #-} _mergeMap- {-# LINE 1990 "dist/build/ResolveLocals" #-}+ {-# LINE 2020 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _childrenOnt = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsInt- {-# LINE 1996 "dist/build/ResolveLocals" #-}+ {-# LINE 2026 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _childrenOsyn = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIsyn- {-# LINE 2002 "dist/build/ResolveLocals" #-}+ {-# LINE 2032 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _childrenOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 2008 "dist/build/ResolveLocals" #-}+ {-# LINE 2038 "dist/build/ResolveLocals" #-} ) -- copy rule (from local) _rulesOallfields = ({-# LINE 71 "src-ag/ResolveLocals.ag" #-} _allfields- {-# LINE 2014 "dist/build/ResolveLocals" #-}+ {-# LINE 2044 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _rulesOallnts = ({-# LINE 57 "src-ag/ResolveLocals.ag" #-} _lhsIallnts- {-# LINE 2020 "dist/build/ResolveLocals" #-}+ {-# LINE 2050 "dist/build/ResolveLocals" #-} ) -- copy rule (from local) _rulesOattrs = ({-# LINE 71 "src-ag/ResolveLocals.ag" #-} _attrs- {-# LINE 2026 "dist/build/ResolveLocals" #-}+ {-# LINE 2056 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _rulesOinh = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIinh- {-# LINE 2032 "dist/build/ResolveLocals" #-}+ {-# LINE 2062 "dist/build/ResolveLocals" #-} ) -- copy rule (from local) _rulesOmergeMap = ({-# LINE 131 "src-ag/ResolveLocals.ag" #-} _mergeMap- {-# LINE 2038 "dist/build/ResolveLocals" #-}+ {-# LINE 2068 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _rulesOnt = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsInt- {-# LINE 2044 "dist/build/ResolveLocals" #-}+ {-# LINE 2074 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _rulesOoptions = ({-# LINE 41 "src-ag/ResolveLocals.ag" #-} _lhsIoptions- {-# LINE 2050 "dist/build/ResolveLocals" #-}+ {-# LINE 2080 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _rulesOsyn = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIsyn- {-# LINE 2056 "dist/build/ResolveLocals" #-}+ {-# LINE 2086 "dist/build/ResolveLocals" #-} ) ( _childrenIattributes,_childrenIfields,_childrenIoutput) = children_ _childrenOallfields _childrenOallnts _childrenOattrs _childrenOcon _childrenOinh _childrenOinhMap _childrenOmergeMap _childrenOnt _childrenOsyn _childrenOsynMap@@ -2060,6 +2090,8 @@ rules_ _rulesOallfields _rulesOallnts _rulesOattrs _rulesOcon _rulesOinh _rulesOmergeMap _rulesOnt _rulesOoptions _rulesOsyn ( _typeSigsIoutput) = typeSigs_+ ___node =+ (Syn_Production _lhsOcons _lhsOerrors _lhsOoutput) in ( _lhsOcons,_lhsOerrors,_lhsOoutput)))) -- Productions ------------------------------------------------- {-@@ -2151,126 +2183,128 @@ _lhsOcons = ({-# LINE 65 "src-ag/ResolveLocals.ag" #-} _hdIcons ++ _tlIcons- {-# LINE 2155 "dist/build/ResolveLocals" #-}+ {-# LINE 2187 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 44, column 16) _lhsOerrors = ({-# LINE 44 "src-ag/ResolveLocals.ag" #-} _hdIerrors Seq.>< _tlIerrors- {-# LINE 2161 "dist/build/ResolveLocals" #-}+ {-# LINE 2193 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} (:) _hdIoutput _tlIoutput- {-# LINE 2167 "dist/build/ResolveLocals" #-}+ {-# LINE 2199 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 2173 "dist/build/ResolveLocals" #-}+ {-# LINE 2205 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOallnts = ({-# LINE 57 "src-ag/ResolveLocals.ag" #-} _lhsIallnts- {-# LINE 2179 "dist/build/ResolveLocals" #-}+ {-# LINE 2211 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOinh = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIinh- {-# LINE 2185 "dist/build/ResolveLocals" #-}+ {-# LINE 2217 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 2191 "dist/build/ResolveLocals" #-}+ {-# LINE 2223 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOmergeMap = ({-# LINE 126 "src-ag/ResolveLocals.ag" #-} _lhsImergeMap- {-# LINE 2197 "dist/build/ResolveLocals" #-}+ {-# LINE 2229 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOnt = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsInt- {-# LINE 2203 "dist/build/ResolveLocals" #-}+ {-# LINE 2235 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOoptions = ({-# LINE 41 "src-ag/ResolveLocals.ag" #-} _lhsIoptions- {-# LINE 2209 "dist/build/ResolveLocals" #-}+ {-# LINE 2241 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOsyn = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIsyn- {-# LINE 2215 "dist/build/ResolveLocals" #-}+ {-# LINE 2247 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 2221 "dist/build/ResolveLocals" #-}+ {-# LINE 2253 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOallnts = ({-# LINE 57 "src-ag/ResolveLocals.ag" #-} _lhsIallnts- {-# LINE 2227 "dist/build/ResolveLocals" #-}+ {-# LINE 2259 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOinh = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIinh- {-# LINE 2233 "dist/build/ResolveLocals" #-}+ {-# LINE 2265 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 2239 "dist/build/ResolveLocals" #-}+ {-# LINE 2271 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOmergeMap = ({-# LINE 126 "src-ag/ResolveLocals.ag" #-} _lhsImergeMap- {-# LINE 2245 "dist/build/ResolveLocals" #-}+ {-# LINE 2277 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOnt = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsInt- {-# LINE 2251 "dist/build/ResolveLocals" #-}+ {-# LINE 2283 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOoptions = ({-# LINE 41 "src-ag/ResolveLocals.ag" #-} _lhsIoptions- {-# LINE 2257 "dist/build/ResolveLocals" #-}+ {-# LINE 2289 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOsyn = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIsyn- {-# LINE 2263 "dist/build/ResolveLocals" #-}+ {-# LINE 2295 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 2269 "dist/build/ResolveLocals" #-}+ {-# LINE 2301 "dist/build/ResolveLocals" #-} ) ( _hdIcons,_hdIerrors,_hdIoutput) = hd_ _hdOallnts _hdOinh _hdOinhMap _hdOmergeMap _hdOnt _hdOoptions _hdOsyn _hdOsynMap ( _tlIcons,_tlIerrors,_tlIoutput) = tl_ _tlOallnts _tlOinh _tlOinhMap _tlOmergeMap _tlOnt _tlOoptions _tlOsyn _tlOsynMap+ ___node =+ (Syn_Productions _lhsOcons _lhsOerrors _lhsOoutput) in ( _lhsOcons,_lhsOerrors,_lhsOoutput)))) sem_Productions_Nil :: T_Productions sem_Productions_Nil =@@ -2289,26 +2323,28 @@ _lhsOcons = ({-# LINE 65 "src-ag/ResolveLocals.ag" #-} []- {-# LINE 2293 "dist/build/ResolveLocals" #-}+ {-# LINE 2327 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 44, column 16) _lhsOerrors = ({-# LINE 44 "src-ag/ResolveLocals.ag" #-} Seq.empty- {-# LINE 2299 "dist/build/ResolveLocals" #-}+ {-# LINE 2333 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} []- {-# LINE 2305 "dist/build/ResolveLocals" #-}+ {-# LINE 2339 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 2311 "dist/build/ResolveLocals" #-}+ {-# LINE 2345 "dist/build/ResolveLocals" #-} )+ ___node =+ (Syn_Productions _lhsOcons _lhsOerrors _lhsOoutput) in ( _lhsOcons,_lhsOerrors,_lhsOoutput)))) -- Rule -------------------------------------------------------- {-@@ -2414,102 +2450,104 @@ _lhsOerrors = ({-# LINE 44 "src-ag/ResolveLocals.ag" #-} _patternIerrors Seq.>< _rhsIerrors- {-# LINE 2418 "dist/build/ResolveLocals" #-}+ {-# LINE 2454 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 93, column 86) _lhsOinstVars = ({-# LINE 93 "src-ag/ResolveLocals.ag" #-} _patternIinstVars- {-# LINE 2424 "dist/build/ResolveLocals" #-}+ {-# LINE 2460 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 93, column 48) _lhsOlocVars = ({-# LINE 93 "src-ag/ResolveLocals.ag" #-} _patternIlocVars- {-# LINE 2430 "dist/build/ResolveLocals" #-}+ {-# LINE 2466 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} Rule mbName_ _patternIoutput _rhsIoutput owrt_ origin_ explicit_ pure_ identity_ mbError_ eager_- {-# LINE 2436 "dist/build/ResolveLocals" #-}+ {-# LINE 2472 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 2442 "dist/build/ResolveLocals" #-}+ {-# LINE 2478 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patternOcon = ({-# LINE 105 "src-ag/ResolveLocals.ag" #-} _lhsIcon- {-# LINE 2448 "dist/build/ResolveLocals" #-}+ {-# LINE 2484 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patternOinh = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIinh- {-# LINE 2454 "dist/build/ResolveLocals" #-}+ {-# LINE 2490 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patternOnt = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsInt- {-# LINE 2460 "dist/build/ResolveLocals" #-}+ {-# LINE 2496 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _patternOsyn = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIsyn- {-# LINE 2466 "dist/build/ResolveLocals" #-}+ {-# LINE 2502 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _rhsOallfields = ({-# LINE 139 "src-ag/ResolveLocals.ag" #-} _lhsIallfields- {-# LINE 2472 "dist/build/ResolveLocals" #-}+ {-# LINE 2508 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _rhsOallnts = ({-# LINE 140 "src-ag/ResolveLocals.ag" #-} _lhsIallnts- {-# LINE 2478 "dist/build/ResolveLocals" #-}+ {-# LINE 2514 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _rhsOattrs = ({-# LINE 141 "src-ag/ResolveLocals.ag" #-} _lhsIattrs- {-# LINE 2484 "dist/build/ResolveLocals" #-}+ {-# LINE 2520 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _rhsOcon = ({-# LINE 138 "src-ag/ResolveLocals.ag" #-} _lhsIcon- {-# LINE 2490 "dist/build/ResolveLocals" #-}+ {-# LINE 2526 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _rhsOmergeMap = ({-# LINE 131 "src-ag/ResolveLocals.ag" #-} _lhsImergeMap- {-# LINE 2496 "dist/build/ResolveLocals" #-}+ {-# LINE 2532 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _rhsOnt = ({-# LINE 138 "src-ag/ResolveLocals.ag" #-} _lhsInt- {-# LINE 2502 "dist/build/ResolveLocals" #-}+ {-# LINE 2538 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _rhsOoptions = ({-# LINE 41 "src-ag/ResolveLocals.ag" #-} _lhsIoptions- {-# LINE 2508 "dist/build/ResolveLocals" #-}+ {-# LINE 2544 "dist/build/ResolveLocals" #-} ) ( _patternIcopy,_patternIerrors,_patternIinstVars,_patternIlocVars,_patternIoutput) = pattern_ _patternOcon _patternOinh _patternOnt _patternOsyn ( _rhsIerrors,_rhsIoutput) = rhs_ _rhsOallfields _rhsOallnts _rhsOattrs _rhsOcon _rhsOmergeMap _rhsOnt _rhsOoptions+ ___node =+ (Syn_Rule _lhsOerrors _lhsOinstVars _lhsOlocVars _lhsOoutput) in ( _lhsOerrors,_lhsOinstVars,_lhsOlocVars,_lhsOoutput)))) -- Rules ------------------------------------------------------- {-@@ -2610,144 +2648,146 @@ _lhsOerrors = ({-# LINE 44 "src-ag/ResolveLocals.ag" #-} _hdIerrors Seq.>< _tlIerrors- {-# LINE 2614 "dist/build/ResolveLocals" #-}+ {-# LINE 2652 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 93, column 86) _lhsOinstVars = ({-# LINE 93 "src-ag/ResolveLocals.ag" #-} _hdIinstVars ++ _tlIinstVars- {-# LINE 2620 "dist/build/ResolveLocals" #-}+ {-# LINE 2658 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 93, column 48) _lhsOlocVars = ({-# LINE 93 "src-ag/ResolveLocals.ag" #-} _hdIlocVars ++ _tlIlocVars- {-# LINE 2626 "dist/build/ResolveLocals" #-}+ {-# LINE 2664 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} (:) _hdIoutput _tlIoutput- {-# LINE 2632 "dist/build/ResolveLocals" #-}+ {-# LINE 2670 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 2638 "dist/build/ResolveLocals" #-}+ {-# LINE 2676 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOallfields = ({-# LINE 71 "src-ag/ResolveLocals.ag" #-} _lhsIallfields- {-# LINE 2644 "dist/build/ResolveLocals" #-}+ {-# LINE 2682 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOallnts = ({-# LINE 57 "src-ag/ResolveLocals.ag" #-} _lhsIallnts- {-# LINE 2650 "dist/build/ResolveLocals" #-}+ {-# LINE 2688 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOattrs = ({-# LINE 71 "src-ag/ResolveLocals.ag" #-} _lhsIattrs- {-# LINE 2656 "dist/build/ResolveLocals" #-}+ {-# LINE 2694 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOcon = ({-# LINE 105 "src-ag/ResolveLocals.ag" #-} _lhsIcon- {-# LINE 2662 "dist/build/ResolveLocals" #-}+ {-# LINE 2700 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOinh = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIinh- {-# LINE 2668 "dist/build/ResolveLocals" #-}+ {-# LINE 2706 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOmergeMap = ({-# LINE 131 "src-ag/ResolveLocals.ag" #-} _lhsImergeMap- {-# LINE 2674 "dist/build/ResolveLocals" #-}+ {-# LINE 2712 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOnt = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsInt- {-# LINE 2680 "dist/build/ResolveLocals" #-}+ {-# LINE 2718 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOoptions = ({-# LINE 41 "src-ag/ResolveLocals.ag" #-} _lhsIoptions- {-# LINE 2686 "dist/build/ResolveLocals" #-}+ {-# LINE 2724 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _hdOsyn = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIsyn- {-# LINE 2692 "dist/build/ResolveLocals" #-}+ {-# LINE 2730 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOallfields = ({-# LINE 71 "src-ag/ResolveLocals.ag" #-} _lhsIallfields- {-# LINE 2698 "dist/build/ResolveLocals" #-}+ {-# LINE 2736 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOallnts = ({-# LINE 57 "src-ag/ResolveLocals.ag" #-} _lhsIallnts- {-# LINE 2704 "dist/build/ResolveLocals" #-}+ {-# LINE 2742 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOattrs = ({-# LINE 71 "src-ag/ResolveLocals.ag" #-} _lhsIattrs- {-# LINE 2710 "dist/build/ResolveLocals" #-}+ {-# LINE 2748 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOcon = ({-# LINE 105 "src-ag/ResolveLocals.ag" #-} _lhsIcon- {-# LINE 2716 "dist/build/ResolveLocals" #-}+ {-# LINE 2754 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOinh = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIinh- {-# LINE 2722 "dist/build/ResolveLocals" #-}+ {-# LINE 2760 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOmergeMap = ({-# LINE 131 "src-ag/ResolveLocals.ag" #-} _lhsImergeMap- {-# LINE 2728 "dist/build/ResolveLocals" #-}+ {-# LINE 2766 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOnt = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsInt- {-# LINE 2734 "dist/build/ResolveLocals" #-}+ {-# LINE 2772 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOoptions = ({-# LINE 41 "src-ag/ResolveLocals.ag" #-} _lhsIoptions- {-# LINE 2740 "dist/build/ResolveLocals" #-}+ {-# LINE 2778 "dist/build/ResolveLocals" #-} ) -- copy rule (down) _tlOsyn = ({-# LINE 104 "src-ag/ResolveLocals.ag" #-} _lhsIsyn- {-# LINE 2746 "dist/build/ResolveLocals" #-}+ {-# LINE 2784 "dist/build/ResolveLocals" #-} ) ( _hdIerrors,_hdIinstVars,_hdIlocVars,_hdIoutput) = hd_ _hdOallfields _hdOallnts _hdOattrs _hdOcon _hdOinh _hdOmergeMap _hdOnt _hdOoptions _hdOsyn ( _tlIerrors,_tlIinstVars,_tlIlocVars,_tlIoutput) = tl_ _tlOallfields _tlOallnts _tlOattrs _tlOcon _tlOinh _tlOmergeMap _tlOnt _tlOoptions _tlOsyn+ ___node =+ (Syn_Rules _lhsOerrors _lhsOinstVars _lhsOlocVars _lhsOoutput) in ( _lhsOerrors,_lhsOinstVars,_lhsOlocVars,_lhsOoutput)))) sem_Rules_Nil :: T_Rules sem_Rules_Nil =@@ -2768,32 +2808,34 @@ _lhsOerrors = ({-# LINE 44 "src-ag/ResolveLocals.ag" #-} Seq.empty- {-# LINE 2772 "dist/build/ResolveLocals" #-}+ {-# LINE 2812 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 93, column 86) _lhsOinstVars = ({-# LINE 93 "src-ag/ResolveLocals.ag" #-} []- {-# LINE 2778 "dist/build/ResolveLocals" #-}+ {-# LINE 2818 "dist/build/ResolveLocals" #-} ) -- use rule "src-ag/ResolveLocals.ag"(line 93, column 48) _lhsOlocVars = ({-# LINE 93 "src-ag/ResolveLocals.ag" #-} []- {-# LINE 2784 "dist/build/ResolveLocals" #-}+ {-# LINE 2824 "dist/build/ResolveLocals" #-} ) -- self rule _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} []- {-# LINE 2790 "dist/build/ResolveLocals" #-}+ {-# LINE 2830 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 2796 "dist/build/ResolveLocals" #-}+ {-# LINE 2836 "dist/build/ResolveLocals" #-} )+ ___node =+ (Syn_Rules _lhsOerrors _lhsOinstVars _lhsOlocVars _lhsOoutput) in ( _lhsOerrors,_lhsOinstVars,_lhsOlocVars,_lhsOoutput)))) -- TypeSig ----------------------------------------------------- {-@@ -2831,14 +2873,16 @@ _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} TypeSig name_ tp_- {-# LINE 2835 "dist/build/ResolveLocals" #-}+ {-# LINE 2877 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 2841 "dist/build/ResolveLocals" #-}+ {-# LINE 2883 "dist/build/ResolveLocals" #-} )+ ___node =+ (Syn_TypeSig _lhsOoutput) in ( _lhsOoutput))) -- TypeSigs ---------------------------------------------------- {-@@ -2881,18 +2925,20 @@ _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} (:) _hdIoutput _tlIoutput- {-# LINE 2885 "dist/build/ResolveLocals" #-}+ {-# LINE 2929 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 2891 "dist/build/ResolveLocals" #-}+ {-# LINE 2935 "dist/build/ResolveLocals" #-} ) ( _hdIoutput) = hd_ ( _tlIoutput) = tl_+ ___node =+ (Syn_TypeSigs _lhsOoutput) in ( _lhsOoutput))) sem_TypeSigs_Nil :: T_TypeSigs sem_TypeSigs_Nil =@@ -2901,12 +2947,14 @@ _output = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} []- {-# LINE 2905 "dist/build/ResolveLocals" #-}+ {-# LINE 2951 "dist/build/ResolveLocals" #-} ) -- self rule _lhsOoutput = ({-# LINE 47 "src-ag/ResolveLocals.ag" #-} _output- {-# LINE 2911 "dist/build/ResolveLocals" #-}+ {-# LINE 2957 "dist/build/ResolveLocals" #-} )+ ___node =+ (Syn_TypeSigs _lhsOoutput) in ( _lhsOoutput)))
src-derived/SemHsTokens.hs view
@@ -127,9 +127,9 @@ _lhsInt -> (let _lhsOerrors :: (Seq Error) _lhsOusedAttrs :: ([(Identifier,Identifier)])- _lhsOusedLocals :: ([Identifier]) _lhsOtok :: ((Pos,String)) _lhsOusedFields :: (Seq Identifier)+ _lhsOusedLocals :: ([Identifier]) _lhsOoutput :: HsToken -- "src-ag/SemHsTokens.ag"(line 77, column 15) _lhsOerrors =@@ -142,45 +142,51 @@ {-# LINE 143 "dist/build/SemHsTokens" #-} ) -- "src-ag/SemHsTokens.ag"(line 91, column 13)- (_lhsOusedAttrs,_lhsOusedLocals) =+ _lhsOusedAttrs = ({-# LINE 91 "src-ag/SemHsTokens.ag" #-}- if field_ == _LOC- then ([], [attr_])- else ([(field_,attr_)], [])- {-# LINE 151 "dist/build/SemHsTokens" #-}+ [(field_,attr_)]+ {-# LINE 149 "dist/build/SemHsTokens" #-} )- -- "src-ag/SemHsTokens.ag"(line 122, column 8)+ -- "src-ag/SemHsTokens.ag"(line 118, column 8) _addTrace =- ({-# LINE 122 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 118 "src-ag/SemHsTokens.ag" #-} case rdesc_ of Just d -> \x -> "(trace " ++ show (d ++ " -> " ++ show field_ ++ "." ++ show attr_) ++ " (" ++ x ++ "))" Nothing -> id- {-# LINE 159 "dist/build/SemHsTokens" #-}+ {-# LINE 157 "dist/build/SemHsTokens" #-} )- -- "src-ag/SemHsTokens.ag"(line 125, column 8)+ -- "src-ag/SemHsTokens.ag"(line 121, column 8) _lhsOtok =- ({-# LINE 125 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 121 "src-ag/SemHsTokens.ag" #-} (pos_, _addTrace $ attrname True field_ attr_)- {-# LINE 165 "dist/build/SemHsTokens" #-}+ {-# LINE 163 "dist/build/SemHsTokens" #-} )- -- use rule "src-ag/SemHsTokens.ag"(line 100, column 40)+ -- use rule "src-ag/SemHsTokens.ag"(line 96, column 40) _lhsOusedFields =- ({-# LINE 100 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 96 "src-ag/SemHsTokens.ag" #-} Seq.empty- {-# LINE 171 "dist/build/SemHsTokens" #-}+ {-# LINE 169 "dist/build/SemHsTokens" #-} )+ -- use rule "src-ag/SemHsTokens.ag"(line 87, column 40)+ _lhsOusedLocals =+ ({-# LINE 87 "src-ag/SemHsTokens.ag" #-}+ []+ {-# LINE 175 "dist/build/SemHsTokens" #-}+ ) -- self rule _output =- ({-# LINE 142 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 138 "src-ag/SemHsTokens.ag" #-} AGField field_ attr_ pos_ rdesc_- {-# LINE 177 "dist/build/SemHsTokens" #-}+ {-# LINE 181 "dist/build/SemHsTokens" #-} ) -- self rule _lhsOoutput =- ({-# LINE 142 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 138 "src-ag/SemHsTokens.ag" #-} _output- {-# LINE 183 "dist/build/SemHsTokens" #-}+ {-# LINE 187 "dist/build/SemHsTokens" #-} )+ ___node =+ (Syn_HsToken _lhsOerrors _lhsOoutput _lhsOtok _lhsOusedAttrs _lhsOusedFields _lhsOusedLocals) in ( _lhsOerrors,_lhsOoutput,_lhsOtok,_lhsOusedAttrs,_lhsOusedFields,_lhsOusedLocals)))) sem_HsToken_AGLocal :: Identifier -> Pos ->@@ -203,13 +209,13 @@ _tkAsLocal = ({-# LINE 65 "src-ag/SemHsTokens.ag" #-} AGLocal var_ pos_ rdesc_- {-# LINE 207 "dist/build/SemHsTokens" #-}+ {-# LINE 213 "dist/build/SemHsTokens" #-} ) -- "src-ag/SemHsTokens.ag"(line 66, column 15) _tkAsField = ({-# LINE 66 "src-ag/SemHsTokens.ag" #-} AGField _LOC var_ pos_ rdesc_- {-# LINE 213 "dist/build/SemHsTokens" #-}+ {-# LINE 219 "dist/build/SemHsTokens" #-} ) -- "src-ag/SemHsTokens.ag"(line 67, column 19) (_errors,_output,_tok,_usedLocals) =@@ -221,46 +227,48 @@ else if (_LOC,var_) `elem` _lhsIattrs then (Seq.empty , _tkAsField , (pos_,locname var_), [var_]) else (Seq.singleton(UndefLocal _lhsInt _lhsIcon var_), _tkAsField , (pos_,locname var_), [] )- {-# LINE 225 "dist/build/SemHsTokens" #-}+ {-# LINE 231 "dist/build/SemHsTokens" #-} )- -- "src-ag/SemHsTokens.ag"(line 103, column 13)+ -- "src-ag/SemHsTokens.ag"(line 99, column 13) _lhsOusedFields =- ({-# LINE 103 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 99 "src-ag/SemHsTokens.ag" #-} if var_ `elem` _lhsIfieldnames then Seq.singleton var_ else Seq.empty- {-# LINE 233 "dist/build/SemHsTokens" #-}+ {-# LINE 239 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 43, column 37) _lhsOerrors = ({-# LINE 43 "src-ag/SemHsTokens.ag" #-} _errors- {-# LINE 239 "dist/build/SemHsTokens" #-}+ {-# LINE 245 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 88, column 40) _lhsOusedAttrs = ({-# LINE 88 "src-ag/SemHsTokens.ag" #-} []- {-# LINE 245 "dist/build/SemHsTokens" #-}+ {-# LINE 251 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 87, column 40) _lhsOusedLocals = ({-# LINE 87 "src-ag/SemHsTokens.ag" #-} _usedLocals- {-# LINE 251 "dist/build/SemHsTokens" #-}+ {-# LINE 257 "dist/build/SemHsTokens" #-} ) -- self rule _lhsOoutput =- ({-# LINE 142 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 138 "src-ag/SemHsTokens.ag" #-} _output- {-# LINE 257 "dist/build/SemHsTokens" #-}+ {-# LINE 263 "dist/build/SemHsTokens" #-} ) -- copy rule (from local) _lhsOtok =- ({-# LINE 120 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 116 "src-ag/SemHsTokens.ag" #-} _tok- {-# LINE 263 "dist/build/SemHsTokens" #-}+ {-# LINE 269 "dist/build/SemHsTokens" #-} )+ ___node =+ (Syn_HsToken _lhsOerrors _lhsOoutput _lhsOtok _lhsOusedAttrs _lhsOusedFields _lhsOusedLocals) in ( _lhsOerrors,_lhsOoutput,_lhsOtok,_lhsOusedAttrs,_lhsOusedFields,_lhsOusedLocals)))) sem_HsToken_CharToken :: String -> Pos ->@@ -278,51 +286,53 @@ _lhsOusedFields :: (Seq Identifier) _lhsOusedLocals :: ([Identifier]) _lhsOoutput :: HsToken- -- "src-ag/SemHsTokens.ag"(line 129, column 16)+ -- "src-ag/SemHsTokens.ag"(line 125, column 16) _lhsOtok =- ({-# LINE 129 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 125 "src-ag/SemHsTokens.ag" #-} (pos_, if null value_ then "" else showCharShort (head value_) )- {-# LINE 289 "dist/build/SemHsTokens" #-}+ {-# LINE 297 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 43, column 37) _lhsOerrors = ({-# LINE 43 "src-ag/SemHsTokens.ag" #-} Seq.empty- {-# LINE 295 "dist/build/SemHsTokens" #-}+ {-# LINE 303 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 88, column 40) _lhsOusedAttrs = ({-# LINE 88 "src-ag/SemHsTokens.ag" #-} []- {-# LINE 301 "dist/build/SemHsTokens" #-}+ {-# LINE 309 "dist/build/SemHsTokens" #-} )- -- use rule "src-ag/SemHsTokens.ag"(line 100, column 40)+ -- use rule "src-ag/SemHsTokens.ag"(line 96, column 40) _lhsOusedFields =- ({-# LINE 100 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 96 "src-ag/SemHsTokens.ag" #-} Seq.empty- {-# LINE 307 "dist/build/SemHsTokens" #-}+ {-# LINE 315 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 87, column 40) _lhsOusedLocals = ({-# LINE 87 "src-ag/SemHsTokens.ag" #-} []- {-# LINE 313 "dist/build/SemHsTokens" #-}+ {-# LINE 321 "dist/build/SemHsTokens" #-} ) -- self rule _output =- ({-# LINE 142 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 138 "src-ag/SemHsTokens.ag" #-} CharToken value_ pos_- {-# LINE 319 "dist/build/SemHsTokens" #-}+ {-# LINE 327 "dist/build/SemHsTokens" #-} ) -- self rule _lhsOoutput =- ({-# LINE 142 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 138 "src-ag/SemHsTokens.ag" #-} _output- {-# LINE 325 "dist/build/SemHsTokens" #-}+ {-# LINE 333 "dist/build/SemHsTokens" #-} )+ ___node =+ (Syn_HsToken _lhsOerrors _lhsOoutput _lhsOtok _lhsOusedAttrs _lhsOusedFields _lhsOusedLocals) in ( _lhsOerrors,_lhsOoutput,_lhsOtok,_lhsOusedAttrs,_lhsOusedFields,_lhsOusedLocals)))) sem_HsToken_Err :: String -> Pos ->@@ -345,44 +355,46 @@ ({-# LINE 50 "src-ag/SemHsTokens.ag" #-} let m = text mesg_ in Seq.singleton (CustomError False pos_ m)- {-# LINE 349 "dist/build/SemHsTokens" #-}+ {-# LINE 359 "dist/build/SemHsTokens" #-} )- -- "src-ag/SemHsTokens.ag"(line 135, column 16)+ -- "src-ag/SemHsTokens.ag"(line 131, column 16) _lhsOtok =- ({-# LINE 135 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 131 "src-ag/SemHsTokens.ag" #-} (pos_, "")- {-# LINE 355 "dist/build/SemHsTokens" #-}+ {-# LINE 365 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 88, column 40) _lhsOusedAttrs = ({-# LINE 88 "src-ag/SemHsTokens.ag" #-} []- {-# LINE 361 "dist/build/SemHsTokens" #-}+ {-# LINE 371 "dist/build/SemHsTokens" #-} )- -- use rule "src-ag/SemHsTokens.ag"(line 100, column 40)+ -- use rule "src-ag/SemHsTokens.ag"(line 96, column 40) _lhsOusedFields =- ({-# LINE 100 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 96 "src-ag/SemHsTokens.ag" #-} Seq.empty- {-# LINE 367 "dist/build/SemHsTokens" #-}+ {-# LINE 377 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 87, column 40) _lhsOusedLocals = ({-# LINE 87 "src-ag/SemHsTokens.ag" #-} []- {-# LINE 373 "dist/build/SemHsTokens" #-}+ {-# LINE 383 "dist/build/SemHsTokens" #-} ) -- self rule _output =- ({-# LINE 142 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 138 "src-ag/SemHsTokens.ag" #-} Err mesg_ pos_- {-# LINE 379 "dist/build/SemHsTokens" #-}+ {-# LINE 389 "dist/build/SemHsTokens" #-} ) -- self rule _lhsOoutput =- ({-# LINE 142 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 138 "src-ag/SemHsTokens.ag" #-} _output- {-# LINE 385 "dist/build/SemHsTokens" #-}+ {-# LINE 395 "dist/build/SemHsTokens" #-} )+ ___node =+ (Syn_HsToken _lhsOerrors _lhsOoutput _lhsOtok _lhsOusedAttrs _lhsOusedFields _lhsOusedLocals) in ( _lhsOerrors,_lhsOoutput,_lhsOtok,_lhsOusedAttrs,_lhsOusedFields,_lhsOusedLocals)))) sem_HsToken_HsToken :: String -> Pos ->@@ -400,48 +412,50 @@ _lhsOusedFields :: (Seq Identifier) _lhsOusedLocals :: ([Identifier]) _lhsOoutput :: HsToken- -- "src-ag/SemHsTokens.ag"(line 127, column 14)+ -- "src-ag/SemHsTokens.ag"(line 123, column 14) _lhsOtok =- ({-# LINE 127 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 123 "src-ag/SemHsTokens.ag" #-} (pos_, value_)- {-# LINE 408 "dist/build/SemHsTokens" #-}+ {-# LINE 420 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 43, column 37) _lhsOerrors = ({-# LINE 43 "src-ag/SemHsTokens.ag" #-} Seq.empty- {-# LINE 414 "dist/build/SemHsTokens" #-}+ {-# LINE 426 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 88, column 40) _lhsOusedAttrs = ({-# LINE 88 "src-ag/SemHsTokens.ag" #-} []- {-# LINE 420 "dist/build/SemHsTokens" #-}+ {-# LINE 432 "dist/build/SemHsTokens" #-} )- -- use rule "src-ag/SemHsTokens.ag"(line 100, column 40)+ -- use rule "src-ag/SemHsTokens.ag"(line 96, column 40) _lhsOusedFields =- ({-# LINE 100 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 96 "src-ag/SemHsTokens.ag" #-} Seq.empty- {-# LINE 426 "dist/build/SemHsTokens" #-}+ {-# LINE 438 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 87, column 40) _lhsOusedLocals = ({-# LINE 87 "src-ag/SemHsTokens.ag" #-} []- {-# LINE 432 "dist/build/SemHsTokens" #-}+ {-# LINE 444 "dist/build/SemHsTokens" #-} ) -- self rule _output =- ({-# LINE 142 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 138 "src-ag/SemHsTokens.ag" #-} HsToken value_ pos_- {-# LINE 438 "dist/build/SemHsTokens" #-}+ {-# LINE 450 "dist/build/SemHsTokens" #-} ) -- self rule _lhsOoutput =- ({-# LINE 142 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 138 "src-ag/SemHsTokens.ag" #-} _output- {-# LINE 444 "dist/build/SemHsTokens" #-}+ {-# LINE 456 "dist/build/SemHsTokens" #-} )+ ___node =+ (Syn_HsToken _lhsOerrors _lhsOoutput _lhsOtok _lhsOusedAttrs _lhsOusedFields _lhsOusedLocals) in ( _lhsOerrors,_lhsOoutput,_lhsOtok,_lhsOusedAttrs,_lhsOusedFields,_lhsOusedLocals)))) sem_HsToken_StrToken :: String -> Pos ->@@ -459,48 +473,50 @@ _lhsOusedFields :: (Seq Identifier) _lhsOusedLocals :: ([Identifier]) _lhsOoutput :: HsToken- -- "src-ag/SemHsTokens.ag"(line 134, column 16)+ -- "src-ag/SemHsTokens.ag"(line 130, column 16) _lhsOtok =- ({-# LINE 134 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 130 "src-ag/SemHsTokens.ag" #-} (pos_, showStrShort value_)- {-# LINE 467 "dist/build/SemHsTokens" #-}+ {-# LINE 481 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 43, column 37) _lhsOerrors = ({-# LINE 43 "src-ag/SemHsTokens.ag" #-} Seq.empty- {-# LINE 473 "dist/build/SemHsTokens" #-}+ {-# LINE 487 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 88, column 40) _lhsOusedAttrs = ({-# LINE 88 "src-ag/SemHsTokens.ag" #-} []- {-# LINE 479 "dist/build/SemHsTokens" #-}+ {-# LINE 493 "dist/build/SemHsTokens" #-} )- -- use rule "src-ag/SemHsTokens.ag"(line 100, column 40)+ -- use rule "src-ag/SemHsTokens.ag"(line 96, column 40) _lhsOusedFields =- ({-# LINE 100 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 96 "src-ag/SemHsTokens.ag" #-} Seq.empty- {-# LINE 485 "dist/build/SemHsTokens" #-}+ {-# LINE 499 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 87, column 40) _lhsOusedLocals = ({-# LINE 87 "src-ag/SemHsTokens.ag" #-} []- {-# LINE 491 "dist/build/SemHsTokens" #-}+ {-# LINE 505 "dist/build/SemHsTokens" #-} ) -- self rule _output =- ({-# LINE 142 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 138 "src-ag/SemHsTokens.ag" #-} StrToken value_ pos_- {-# LINE 497 "dist/build/SemHsTokens" #-}+ {-# LINE 511 "dist/build/SemHsTokens" #-} ) -- self rule _lhsOoutput =- ({-# LINE 142 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 138 "src-ag/SemHsTokens.ag" #-} _output- {-# LINE 503 "dist/build/SemHsTokens" #-}+ {-# LINE 517 "dist/build/SemHsTokens" #-} )+ ___node =+ (Syn_HsToken _lhsOerrors _lhsOoutput _lhsOtok _lhsOusedAttrs _lhsOusedFields _lhsOusedLocals) in ( _lhsOerrors,_lhsOoutput,_lhsOtok,_lhsOusedAttrs,_lhsOusedFields,_lhsOusedLocals)))) -- HsTokens ---------------------------------------------------- {-@@ -590,124 +606,126 @@ _tlIusedAttrs :: ([(Identifier,Identifier)]) _tlIusedFields :: (Seq Identifier) _tlIusedLocals :: ([Identifier])- -- "src-ag/SemHsTokens.ag"(line 117, column 10)+ -- "src-ag/SemHsTokens.ag"(line 113, column 10) _lhsOtks =- ({-# LINE 117 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 113 "src-ag/SemHsTokens.ag" #-} _hdItok : _tlItks- {-# LINE 598 "dist/build/SemHsTokens" #-}+ {-# LINE 614 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 43, column 37) _lhsOerrors = ({-# LINE 43 "src-ag/SemHsTokens.ag" #-} _hdIerrors Seq.>< _tlIerrors- {-# LINE 604 "dist/build/SemHsTokens" #-}+ {-# LINE 620 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 88, column 40) _lhsOusedAttrs = ({-# LINE 88 "src-ag/SemHsTokens.ag" #-} _hdIusedAttrs ++ _tlIusedAttrs- {-# LINE 610 "dist/build/SemHsTokens" #-}+ {-# LINE 626 "dist/build/SemHsTokens" #-} )- -- use rule "src-ag/SemHsTokens.ag"(line 100, column 40)+ -- use rule "src-ag/SemHsTokens.ag"(line 96, column 40) _lhsOusedFields =- ({-# LINE 100 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 96 "src-ag/SemHsTokens.ag" #-} _hdIusedFields Seq.>< _tlIusedFields- {-# LINE 616 "dist/build/SemHsTokens" #-}+ {-# LINE 632 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 87, column 40) _lhsOusedLocals = ({-# LINE 87 "src-ag/SemHsTokens.ag" #-} _hdIusedLocals ++ _tlIusedLocals- {-# LINE 622 "dist/build/SemHsTokens" #-}+ {-# LINE 638 "dist/build/SemHsTokens" #-} ) -- self rule _output =- ({-# LINE 142 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 138 "src-ag/SemHsTokens.ag" #-} (:) _hdIoutput _tlIoutput- {-# LINE 628 "dist/build/SemHsTokens" #-}+ {-# LINE 644 "dist/build/SemHsTokens" #-} ) -- self rule _lhsOoutput =- ({-# LINE 142 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 138 "src-ag/SemHsTokens.ag" #-} _output- {-# LINE 634 "dist/build/SemHsTokens" #-}+ {-# LINE 650 "dist/build/SemHsTokens" #-} ) -- copy rule (down) _hdOallfields = ({-# LINE 30 "src-ag/SemHsTokens.ag" #-} _lhsIallfields- {-# LINE 640 "dist/build/SemHsTokens" #-}+ {-# LINE 656 "dist/build/SemHsTokens" #-} ) -- copy rule (down) _hdOallnts = ({-# LINE 31 "src-ag/SemHsTokens.ag" #-} _lhsIallnts- {-# LINE 646 "dist/build/SemHsTokens" #-}+ {-# LINE 662 "dist/build/SemHsTokens" #-} ) -- copy rule (down) _hdOattrs = ({-# LINE 32 "src-ag/SemHsTokens.ag" #-} _lhsIattrs- {-# LINE 652 "dist/build/SemHsTokens" #-}+ {-# LINE 668 "dist/build/SemHsTokens" #-} ) -- copy rule (down) _hdOcon = ({-# LINE 29 "src-ag/SemHsTokens.ag" #-} _lhsIcon- {-# LINE 658 "dist/build/SemHsTokens" #-}+ {-# LINE 674 "dist/build/SemHsTokens" #-} ) -- copy rule (down) _hdOfieldnames = ({-# LINE 36 "src-ag/SemHsTokens.ag" #-} _lhsIfieldnames- {-# LINE 664 "dist/build/SemHsTokens" #-}+ {-# LINE 680 "dist/build/SemHsTokens" #-} ) -- copy rule (down) _hdOnt = ({-# LINE 29 "src-ag/SemHsTokens.ag" #-} _lhsInt- {-# LINE 670 "dist/build/SemHsTokens" #-}+ {-# LINE 686 "dist/build/SemHsTokens" #-} ) -- copy rule (down) _tlOallfields = ({-# LINE 30 "src-ag/SemHsTokens.ag" #-} _lhsIallfields- {-# LINE 676 "dist/build/SemHsTokens" #-}+ {-# LINE 692 "dist/build/SemHsTokens" #-} ) -- copy rule (down) _tlOallnts = ({-# LINE 31 "src-ag/SemHsTokens.ag" #-} _lhsIallnts- {-# LINE 682 "dist/build/SemHsTokens" #-}+ {-# LINE 698 "dist/build/SemHsTokens" #-} ) -- copy rule (down) _tlOattrs = ({-# LINE 32 "src-ag/SemHsTokens.ag" #-} _lhsIattrs- {-# LINE 688 "dist/build/SemHsTokens" #-}+ {-# LINE 704 "dist/build/SemHsTokens" #-} ) -- copy rule (down) _tlOcon = ({-# LINE 29 "src-ag/SemHsTokens.ag" #-} _lhsIcon- {-# LINE 694 "dist/build/SemHsTokens" #-}+ {-# LINE 710 "dist/build/SemHsTokens" #-} ) -- copy rule (down) _tlOfieldnames = ({-# LINE 36 "src-ag/SemHsTokens.ag" #-} _lhsIfieldnames- {-# LINE 700 "dist/build/SemHsTokens" #-}+ {-# LINE 716 "dist/build/SemHsTokens" #-} ) -- copy rule (down) _tlOnt = ({-# LINE 29 "src-ag/SemHsTokens.ag" #-} _lhsInt- {-# LINE 706 "dist/build/SemHsTokens" #-}+ {-# LINE 722 "dist/build/SemHsTokens" #-} ) ( _hdIerrors,_hdIoutput,_hdItok,_hdIusedAttrs,_hdIusedFields,_hdIusedLocals) = hd_ _hdOallfields _hdOallnts _hdOattrs _hdOcon _hdOfieldnames _hdOnt ( _tlIerrors,_tlIoutput,_tlItks,_tlIusedAttrs,_tlIusedFields,_tlIusedLocals) = tl_ _tlOallfields _tlOallnts _tlOattrs _tlOcon _tlOfieldnames _tlOnt+ ___node =+ (Syn_HsTokens _lhsOerrors _lhsOoutput _lhsOtks _lhsOusedAttrs _lhsOusedFields _lhsOusedLocals) in ( _lhsOerrors,_lhsOoutput,_lhsOtks,_lhsOusedAttrs,_lhsOusedFields,_lhsOusedLocals)))) sem_HsTokens_Nil :: T_HsTokens sem_HsTokens_Nil =@@ -723,48 +741,50 @@ _lhsOusedFields :: (Seq Identifier) _lhsOusedLocals :: ([Identifier]) _lhsOoutput :: HsTokens- -- "src-ag/SemHsTokens.ag"(line 118, column 10)+ -- "src-ag/SemHsTokens.ag"(line 114, column 10) _lhsOtks =- ({-# LINE 118 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 114 "src-ag/SemHsTokens.ag" #-} []- {-# LINE 731 "dist/build/SemHsTokens" #-}+ {-# LINE 749 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 43, column 37) _lhsOerrors = ({-# LINE 43 "src-ag/SemHsTokens.ag" #-} Seq.empty- {-# LINE 737 "dist/build/SemHsTokens" #-}+ {-# LINE 755 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 88, column 40) _lhsOusedAttrs = ({-# LINE 88 "src-ag/SemHsTokens.ag" #-} []- {-# LINE 743 "dist/build/SemHsTokens" #-}+ {-# LINE 761 "dist/build/SemHsTokens" #-} )- -- use rule "src-ag/SemHsTokens.ag"(line 100, column 40)+ -- use rule "src-ag/SemHsTokens.ag"(line 96, column 40) _lhsOusedFields =- ({-# LINE 100 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 96 "src-ag/SemHsTokens.ag" #-} Seq.empty- {-# LINE 749 "dist/build/SemHsTokens" #-}+ {-# LINE 767 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 87, column 40) _lhsOusedLocals = ({-# LINE 87 "src-ag/SemHsTokens.ag" #-} []- {-# LINE 755 "dist/build/SemHsTokens" #-}+ {-# LINE 773 "dist/build/SemHsTokens" #-} ) -- self rule _output =- ({-# LINE 142 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 138 "src-ag/SemHsTokens.ag" #-} []- {-# LINE 761 "dist/build/SemHsTokens" #-}+ {-# LINE 779 "dist/build/SemHsTokens" #-} ) -- self rule _lhsOoutput =- ({-# LINE 142 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 138 "src-ag/SemHsTokens.ag" #-} _output- {-# LINE 767 "dist/build/SemHsTokens" #-}+ {-# LINE 785 "dist/build/SemHsTokens" #-} )+ ___node =+ (Syn_HsTokens _lhsOerrors _lhsOoutput _lhsOtks _lhsOusedAttrs _lhsOusedFields _lhsOusedLocals) in ( _lhsOerrors,_lhsOoutput,_lhsOtks,_lhsOusedAttrs,_lhsOusedFields,_lhsOusedLocals)))) -- HsTokensRoot ------------------------------------------------ {-@@ -836,74 +856,76 @@ _tokensOfieldnames = ({-# LINE 38 "src-ag/SemHsTokens.ag" #-} map (\(n,_,_) -> n) _lhsIallfields- {-# LINE 840 "dist/build/SemHsTokens" #-}+ {-# LINE 860 "dist/build/SemHsTokens" #-} )- -- "src-ag/SemHsTokens.ag"(line 107, column 18)+ -- "src-ag/SemHsTokens.ag"(line 103, column 18) _lhsOusedFields =- ({-# LINE 107 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 103 "src-ag/SemHsTokens.ag" #-} toList _tokensIusedFields- {-# LINE 846 "dist/build/SemHsTokens" #-}+ {-# LINE 866 "dist/build/SemHsTokens" #-} )- -- "src-ag/SemHsTokens.ag"(line 114, column 18)+ -- "src-ag/SemHsTokens.ag"(line 110, column 18) _lhsOtextLines =- ({-# LINE 114 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 110 "src-ag/SemHsTokens.ag" #-} showTokens _tokensItks- {-# LINE 852 "dist/build/SemHsTokens" #-}+ {-# LINE 872 "dist/build/SemHsTokens" #-} ) -- use rule "src-ag/SemHsTokens.ag"(line 18, column 18) _lhsOerrors = ({-# LINE 18 "src-ag/SemHsTokens.ag" #-} _tokensIerrors- {-# LINE 858 "dist/build/SemHsTokens" #-}+ {-# LINE 878 "dist/build/SemHsTokens" #-} ) -- copy rule (up) _lhsOoutput =- ({-# LINE 141 "src-ag/SemHsTokens.ag" #-}+ ({-# LINE 137 "src-ag/SemHsTokens.ag" #-} _tokensIoutput- {-# LINE 864 "dist/build/SemHsTokens" #-}+ {-# LINE 884 "dist/build/SemHsTokens" #-} ) -- copy rule (up) _lhsOusedAttrs = ({-# LINE 20 "src-ag/SemHsTokens.ag" #-} _tokensIusedAttrs- {-# LINE 870 "dist/build/SemHsTokens" #-}+ {-# LINE 890 "dist/build/SemHsTokens" #-} ) -- copy rule (up) _lhsOusedLocals = ({-# LINE 19 "src-ag/SemHsTokens.ag" #-} _tokensIusedLocals- {-# LINE 876 "dist/build/SemHsTokens" #-}+ {-# LINE 896 "dist/build/SemHsTokens" #-} ) -- copy rule (down) _tokensOallfields = ({-# LINE 30 "src-ag/SemHsTokens.ag" #-} _lhsIallfields- {-# LINE 882 "dist/build/SemHsTokens" #-}+ {-# LINE 902 "dist/build/SemHsTokens" #-} ) -- copy rule (down) _tokensOallnts = ({-# LINE 31 "src-ag/SemHsTokens.ag" #-} _lhsIallnts- {-# LINE 888 "dist/build/SemHsTokens" #-}+ {-# LINE 908 "dist/build/SemHsTokens" #-} ) -- copy rule (down) _tokensOattrs = ({-# LINE 32 "src-ag/SemHsTokens.ag" #-} _lhsIattrs- {-# LINE 894 "dist/build/SemHsTokens" #-}+ {-# LINE 914 "dist/build/SemHsTokens" #-} ) -- copy rule (down) _tokensOcon = ({-# LINE 29 "src-ag/SemHsTokens.ag" #-} _lhsIcon- {-# LINE 900 "dist/build/SemHsTokens" #-}+ {-# LINE 920 "dist/build/SemHsTokens" #-} ) -- copy rule (down) _tokensOnt = ({-# LINE 29 "src-ag/SemHsTokens.ag" #-} _lhsInt- {-# LINE 906 "dist/build/SemHsTokens" #-}+ {-# LINE 926 "dist/build/SemHsTokens" #-} ) ( _tokensIerrors,_tokensIoutput,_tokensItks,_tokensIusedAttrs,_tokensIusedFields,_tokensIusedLocals) = tokens_ _tokensOallfields _tokensOallnts _tokensOattrs _tokensOcon _tokensOfieldnames _tokensOnt+ ___node =+ (Syn_HsTokensRoot _lhsOerrors _lhsOoutput _lhsOtextLines _lhsOusedAttrs _lhsOusedFields _lhsOusedLocals) in ( _lhsOerrors,_lhsOoutput,_lhsOtextLines,_lhsOusedAttrs,_lhsOusedFields,_lhsOusedLocals))))
src-derived/TfmToVisage.hs view
@@ -164,6 +164,8 @@ Map.findWithDefault Map.empty _chnt _lhsIsynMap {-# LINE 166 "dist/build/TfmToVisage" #-} )+ ___node =+ (Syn_Child _lhsOvchild) in ( _lhsOvchild)))) -- Children ---------------------------------------------------- {-@@ -218,48 +220,50 @@ _lhsOvchildren = ({-# LINE 117 "src-ag/TfmToVisage.ag" #-} _hdIvchild : _tlIvchildren- {-# LINE 222 "dist/build/TfmToVisage" #-}+ {-# LINE 224 "dist/build/TfmToVisage" #-} ) -- copy rule (down) _hdOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 228 "dist/build/TfmToVisage" #-}+ {-# LINE 230 "dist/build/TfmToVisage" #-} ) -- copy rule (down) _hdOrulemap = ({-# LINE 83 "src-ag/TfmToVisage.ag" #-} _lhsIrulemap- {-# LINE 234 "dist/build/TfmToVisage" #-}+ {-# LINE 236 "dist/build/TfmToVisage" #-} ) -- copy rule (down) _hdOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 240 "dist/build/TfmToVisage" #-}+ {-# LINE 242 "dist/build/TfmToVisage" #-} ) -- copy rule (down) _tlOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 246 "dist/build/TfmToVisage" #-}+ {-# LINE 248 "dist/build/TfmToVisage" #-} ) -- copy rule (down) _tlOrulemap = ({-# LINE 84 "src-ag/TfmToVisage.ag" #-} _lhsIrulemap- {-# LINE 252 "dist/build/TfmToVisage" #-}+ {-# LINE 254 "dist/build/TfmToVisage" #-} ) -- copy rule (down) _tlOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 258 "dist/build/TfmToVisage" #-}+ {-# LINE 260 "dist/build/TfmToVisage" #-} ) ( _hdIvchild) = hd_ _hdOinhMap _hdOrulemap _hdOsynMap ( _tlIvchildren) = tl_ _tlOinhMap _tlOrulemap _tlOsynMap+ ___node =+ (Syn_Children _lhsOvchildren) in ( _lhsOvchildren)))) sem_Children_Nil :: T_Children sem_Children_Nil =@@ -271,8 +275,10 @@ _lhsOvchildren = ({-# LINE 118 "src-ag/TfmToVisage.ag" #-} []- {-# LINE 275 "dist/build/TfmToVisage" #-}+ {-# LINE 279 "dist/build/TfmToVisage" #-} )+ ___node =+ (Syn_Children _lhsOvchildren) in ( _lhsOvchildren)))) -- Expression -------------------------------------------------- {-@@ -310,14 +316,16 @@ _self = ({-# LINE 74 "src-ag/TfmToVisage.ag" #-} Expression pos_ tks_- {-# LINE 314 "dist/build/TfmToVisage" #-}+ {-# LINE 320 "dist/build/TfmToVisage" #-} ) -- self rule _lhsOself = ({-# LINE 74 "src-ag/TfmToVisage.ag" #-} _self- {-# LINE 320 "dist/build/TfmToVisage" #-}+ {-# LINE 326 "dist/build/TfmToVisage" #-} )+ ___node =+ (Syn_Expression _lhsOself) in ( _lhsOself))) -- Grammar ----------------------------------------------------- {-@@ -382,22 +390,24 @@ _lhsOvisage = ({-# LINE 90 "src-ag/TfmToVisage.ag" #-} VGrammar _nontsIvnonts- {-# LINE 386 "dist/build/TfmToVisage" #-}+ {-# LINE 394 "dist/build/TfmToVisage" #-} ) -- "src-ag/DistChildAttr.ag"(line 15, column 13) _nontsOinhMap = ({-# LINE 15 "src-ag/DistChildAttr.ag" #-} _nontsIinhMap'- {-# LINE 392 "dist/build/TfmToVisage" #-}+ {-# LINE 400 "dist/build/TfmToVisage" #-} ) -- "src-ag/DistChildAttr.ag"(line 16, column 13) _nontsOsynMap = ({-# LINE 16 "src-ag/DistChildAttr.ag" #-} _nontsIsynMap'- {-# LINE 398 "dist/build/TfmToVisage" #-}+ {-# LINE 406 "dist/build/TfmToVisage" #-} ) ( _nontsIinhMap',_nontsIsynMap',_nontsIvnonts) = nonts_ _nontsOinhMap _nontsOsynMap+ ___node =+ (Syn_Grammar _lhsOvisage) in ( _lhsOvisage))) -- Nonterminal ------------------------------------------------- {-@@ -453,34 +463,36 @@ _lhsOvnont = ({-# LINE 100 "src-ag/TfmToVisage.ag" #-} VNonterminal nt_ inh_ syn_ _prodsIvprods- {-# LINE 457 "dist/build/TfmToVisage" #-}+ {-# LINE 467 "dist/build/TfmToVisage" #-} ) -- "src-ag/DistChildAttr.ag"(line 7, column 18) _lhsOinhMap' = ({-# LINE 7 "src-ag/DistChildAttr.ag" #-} Map.singleton nt_ inh_- {-# LINE 463 "dist/build/TfmToVisage" #-}+ {-# LINE 473 "dist/build/TfmToVisage" #-} ) -- "src-ag/DistChildAttr.ag"(line 8, column 18) _lhsOsynMap' = ({-# LINE 8 "src-ag/DistChildAttr.ag" #-} Map.singleton nt_ syn_- {-# LINE 469 "dist/build/TfmToVisage" #-}+ {-# LINE 479 "dist/build/TfmToVisage" #-} ) -- copy rule (down) _prodsOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 475 "dist/build/TfmToVisage" #-}+ {-# LINE 485 "dist/build/TfmToVisage" #-} ) -- copy rule (down) _prodsOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 481 "dist/build/TfmToVisage" #-}+ {-# LINE 491 "dist/build/TfmToVisage" #-} ) ( _prodsIvprods) = prods_ _prodsOinhMap _prodsOsynMap+ ___node =+ (Syn_Nonterminal _lhsOinhMap' _lhsOsynMap' _lhsOvnont) in ( _lhsOinhMap',_lhsOsynMap',_lhsOvnont)))) -- Nonterminals ------------------------------------------------ {-@@ -538,48 +550,50 @@ _lhsOvnonts = ({-# LINE 94 "src-ag/TfmToVisage.ag" #-} _hdIvnont : _tlIvnonts- {-# LINE 542 "dist/build/TfmToVisage" #-}+ {-# LINE 554 "dist/build/TfmToVisage" #-} ) -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53) _lhsOinhMap' = ({-# LINE 4 "src-ag/DistChildAttr.ag" #-} _hdIinhMap' `Map.union` _tlIinhMap'- {-# LINE 548 "dist/build/TfmToVisage" #-}+ {-# LINE 560 "dist/build/TfmToVisage" #-} ) -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53) _lhsOsynMap' = ({-# LINE 4 "src-ag/DistChildAttr.ag" #-} _hdIsynMap' `Map.union` _tlIsynMap'- {-# LINE 554 "dist/build/TfmToVisage" #-}+ {-# LINE 566 "dist/build/TfmToVisage" #-} ) -- copy rule (down) _hdOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 560 "dist/build/TfmToVisage" #-}+ {-# LINE 572 "dist/build/TfmToVisage" #-} ) -- copy rule (down) _hdOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 566 "dist/build/TfmToVisage" #-}+ {-# LINE 578 "dist/build/TfmToVisage" #-} ) -- copy rule (down) _tlOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 572 "dist/build/TfmToVisage" #-}+ {-# LINE 584 "dist/build/TfmToVisage" #-} ) -- copy rule (down) _tlOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 578 "dist/build/TfmToVisage" #-}+ {-# LINE 590 "dist/build/TfmToVisage" #-} ) ( _hdIinhMap',_hdIsynMap',_hdIvnont) = hd_ _hdOinhMap _hdOsynMap ( _tlIinhMap',_tlIsynMap',_tlIvnonts) = tl_ _tlOinhMap _tlOsynMap+ ___node =+ (Syn_Nonterminals _lhsOinhMap' _lhsOsynMap' _lhsOvnonts) in ( _lhsOinhMap',_lhsOsynMap',_lhsOvnonts)))) sem_Nonterminals_Nil :: T_Nonterminals sem_Nonterminals_Nil =@@ -592,20 +606,22 @@ _lhsOvnonts = ({-# LINE 96 "src-ag/TfmToVisage.ag" #-} []- {-# LINE 596 "dist/build/TfmToVisage" #-}+ {-# LINE 610 "dist/build/TfmToVisage" #-} ) -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53) _lhsOinhMap' = ({-# LINE 4 "src-ag/DistChildAttr.ag" #-} Map.empty- {-# LINE 602 "dist/build/TfmToVisage" #-}+ {-# LINE 616 "dist/build/TfmToVisage" #-} ) -- use rule "src-ag/DistChildAttr.ag"(line 4, column 53) _lhsOsynMap' = ({-# LINE 4 "src-ag/DistChildAttr.ag" #-} Map.empty- {-# LINE 608 "dist/build/TfmToVisage" #-}+ {-# LINE 622 "dist/build/TfmToVisage" #-} )+ ___node =+ (Syn_Nonterminals _lhsOinhMap' _lhsOsynMap' _lhsOvnonts) in ( _lhsOinhMap',_lhsOsynMap',_lhsOvnonts)))) -- Pattern ----------------------------------------------------- {-@@ -688,40 +704,42 @@ if (isVar _self) then VVar field_ attr_ else VAlias field_ attr_ _patIvpat- {-# LINE 692 "dist/build/TfmToVisage" #-}+ {-# LINE 708 "dist/build/TfmToVisage" #-} ) -- "src-ag/TfmToVisage.ag"(line 147, column 17) _lhsOfieldattrs = ({-# LINE 147 "src-ag/TfmToVisage.ag" #-} [(field_, attr_)]- {-# LINE 698 "dist/build/TfmToVisage" #-}+ {-# LINE 714 "dist/build/TfmToVisage" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Alias field_ attr_ _patIcopy- {-# LINE 704 "dist/build/TfmToVisage" #-}+ {-# LINE 720 "dist/build/TfmToVisage" #-} ) -- self rule _self = ({-# LINE 74 "src-ag/TfmToVisage.ag" #-} Alias field_ attr_ _patIself- {-# LINE 710 "dist/build/TfmToVisage" #-}+ {-# LINE 726 "dist/build/TfmToVisage" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 716 "dist/build/TfmToVisage" #-}+ {-# LINE 732 "dist/build/TfmToVisage" #-} ) -- self rule _lhsOself = ({-# LINE 74 "src-ag/TfmToVisage.ag" #-} _self- {-# LINE 722 "dist/build/TfmToVisage" #-}+ {-# LINE 738 "dist/build/TfmToVisage" #-} ) ( _patIcopy,_patIfieldattrs,_patIself,_patIvpat) = pat_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOfieldattrs _lhsOself _lhsOvpat) in ( _lhsOcopy,_lhsOfieldattrs,_lhsOself,_lhsOvpat))) sem_Pattern_Constr :: ConstructorIdent -> T_Patterns ->@@ -739,40 +757,42 @@ _lhsOvpat = ({-# LINE 136 "src-ag/TfmToVisage.ag" #-} VConstr name_ _patsIvpats- {-# LINE 743 "dist/build/TfmToVisage" #-}+ {-# LINE 761 "dist/build/TfmToVisage" #-} ) -- use rule "src-ag/TfmToVisage.ag"(line 144, column 43) _lhsOfieldattrs = ({-# LINE 144 "src-ag/TfmToVisage.ag" #-} _patsIfieldattrs- {-# LINE 749 "dist/build/TfmToVisage" #-}+ {-# LINE 767 "dist/build/TfmToVisage" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Constr name_ _patsIcopy- {-# LINE 755 "dist/build/TfmToVisage" #-}+ {-# LINE 773 "dist/build/TfmToVisage" #-} ) -- self rule _self = ({-# LINE 74 "src-ag/TfmToVisage.ag" #-} Constr name_ _patsIself- {-# LINE 761 "dist/build/TfmToVisage" #-}+ {-# LINE 779 "dist/build/TfmToVisage" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 767 "dist/build/TfmToVisage" #-}+ {-# LINE 785 "dist/build/TfmToVisage" #-} ) -- self rule _lhsOself = ({-# LINE 74 "src-ag/TfmToVisage.ag" #-} _self- {-# LINE 773 "dist/build/TfmToVisage" #-}+ {-# LINE 791 "dist/build/TfmToVisage" #-} ) ( _patsIcopy,_patsIfieldattrs,_patsIself,_patsIvpats) = pats_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOfieldattrs _lhsOself _lhsOvpat) in ( _lhsOcopy,_lhsOfieldattrs,_lhsOself,_lhsOvpat))) sem_Pattern_Irrefutable :: T_Pattern -> T_Pattern@@ -789,40 +809,42 @@ _lhsOfieldattrs = ({-# LINE 144 "src-ag/TfmToVisage.ag" #-} _patIfieldattrs- {-# LINE 793 "dist/build/TfmToVisage" #-}+ {-# LINE 813 "dist/build/TfmToVisage" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Irrefutable _patIcopy- {-# LINE 799 "dist/build/TfmToVisage" #-}+ {-# LINE 819 "dist/build/TfmToVisage" #-} ) -- self rule _self = ({-# LINE 74 "src-ag/TfmToVisage.ag" #-} Irrefutable _patIself- {-# LINE 805 "dist/build/TfmToVisage" #-}+ {-# LINE 825 "dist/build/TfmToVisage" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 811 "dist/build/TfmToVisage" #-}+ {-# LINE 831 "dist/build/TfmToVisage" #-} ) -- self rule _lhsOself = ({-# LINE 74 "src-ag/TfmToVisage.ag" #-} _self- {-# LINE 817 "dist/build/TfmToVisage" #-}+ {-# LINE 837 "dist/build/TfmToVisage" #-} ) -- copy rule (up) _lhsOvpat = ({-# LINE 85 "src-ag/TfmToVisage.ag" #-} _patIvpat- {-# LINE 823 "dist/build/TfmToVisage" #-}+ {-# LINE 843 "dist/build/TfmToVisage" #-} ) ( _patIcopy,_patIfieldattrs,_patIself,_patIvpat) = pat_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOfieldattrs _lhsOself _lhsOvpat) in ( _lhsOcopy,_lhsOfieldattrs,_lhsOself,_lhsOvpat))) sem_Pattern_Product :: Pos -> T_Patterns ->@@ -840,40 +862,42 @@ _lhsOvpat = ({-# LINE 137 "src-ag/TfmToVisage.ag" #-} VProduct pos_ _patsIvpats- {-# LINE 844 "dist/build/TfmToVisage" #-}+ {-# LINE 866 "dist/build/TfmToVisage" #-} ) -- use rule "src-ag/TfmToVisage.ag"(line 144, column 43) _lhsOfieldattrs = ({-# LINE 144 "src-ag/TfmToVisage.ag" #-} _patsIfieldattrs- {-# LINE 850 "dist/build/TfmToVisage" #-}+ {-# LINE 872 "dist/build/TfmToVisage" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Product pos_ _patsIcopy- {-# LINE 856 "dist/build/TfmToVisage" #-}+ {-# LINE 878 "dist/build/TfmToVisage" #-} ) -- self rule _self = ({-# LINE 74 "src-ag/TfmToVisage.ag" #-} Product pos_ _patsIself- {-# LINE 862 "dist/build/TfmToVisage" #-}+ {-# LINE 884 "dist/build/TfmToVisage" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 868 "dist/build/TfmToVisage" #-}+ {-# LINE 890 "dist/build/TfmToVisage" #-} ) -- self rule _lhsOself = ({-# LINE 74 "src-ag/TfmToVisage.ag" #-} _self- {-# LINE 874 "dist/build/TfmToVisage" #-}+ {-# LINE 896 "dist/build/TfmToVisage" #-} ) ( _patsIcopy,_patsIfieldattrs,_patsIself,_patsIvpats) = pats_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOfieldattrs _lhsOself _lhsOvpat) in ( _lhsOcopy,_lhsOfieldattrs,_lhsOself,_lhsOvpat))) sem_Pattern_Underscore :: Pos -> T_Pattern@@ -886,38 +910,40 @@ _lhsOvpat = ({-# LINE 141 "src-ag/TfmToVisage.ag" #-} VUnderscore pos_- {-# LINE 890 "dist/build/TfmToVisage" #-}+ {-# LINE 914 "dist/build/TfmToVisage" #-} ) -- use rule "src-ag/TfmToVisage.ag"(line 144, column 43) _lhsOfieldattrs = ({-# LINE 144 "src-ag/TfmToVisage.ag" #-} []- {-# LINE 896 "dist/build/TfmToVisage" #-}+ {-# LINE 920 "dist/build/TfmToVisage" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} Underscore pos_- {-# LINE 902 "dist/build/TfmToVisage" #-}+ {-# LINE 926 "dist/build/TfmToVisage" #-} ) -- self rule _self = ({-# LINE 74 "src-ag/TfmToVisage.ag" #-} Underscore pos_- {-# LINE 908 "dist/build/TfmToVisage" #-}+ {-# LINE 932 "dist/build/TfmToVisage" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 914 "dist/build/TfmToVisage" #-}+ {-# LINE 938 "dist/build/TfmToVisage" #-} ) -- self rule _lhsOself = ({-# LINE 74 "src-ag/TfmToVisage.ag" #-} _self- {-# LINE 920 "dist/build/TfmToVisage" #-}+ {-# LINE 944 "dist/build/TfmToVisage" #-} )+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOfieldattrs _lhsOself _lhsOvpat) in ( _lhsOcopy,_lhsOfieldattrs,_lhsOself,_lhsOvpat))) -- Patterns ---------------------------------------------------- {-@@ -974,42 +1000,44 @@ _lhsOvpats = ({-# LINE 132 "src-ag/TfmToVisage.ag" #-} _hdIvpat : _tlIvpats- {-# LINE 978 "dist/build/TfmToVisage" #-}+ {-# LINE 1004 "dist/build/TfmToVisage" #-} ) -- use rule "src-ag/TfmToVisage.ag"(line 144, column 43) _lhsOfieldattrs = ({-# LINE 144 "src-ag/TfmToVisage.ag" #-} _hdIfieldattrs ++ _tlIfieldattrs- {-# LINE 984 "dist/build/TfmToVisage" #-}+ {-# LINE 1010 "dist/build/TfmToVisage" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} (:) _hdIcopy _tlIcopy- {-# LINE 990 "dist/build/TfmToVisage" #-}+ {-# LINE 1016 "dist/build/TfmToVisage" #-} ) -- self rule _self = ({-# LINE 74 "src-ag/TfmToVisage.ag" #-} (:) _hdIself _tlIself- {-# LINE 996 "dist/build/TfmToVisage" #-}+ {-# LINE 1022 "dist/build/TfmToVisage" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1002 "dist/build/TfmToVisage" #-}+ {-# LINE 1028 "dist/build/TfmToVisage" #-} ) -- self rule _lhsOself = ({-# LINE 74 "src-ag/TfmToVisage.ag" #-} _self- {-# LINE 1008 "dist/build/TfmToVisage" #-}+ {-# LINE 1034 "dist/build/TfmToVisage" #-} ) ( _hdIcopy,_hdIfieldattrs,_hdIself,_hdIvpat) = hd_ ( _tlIcopy,_tlIfieldattrs,_tlIself,_tlIvpats) = tl_+ ___node =+ (Syn_Patterns _lhsOcopy _lhsOfieldattrs _lhsOself _lhsOvpats) in ( _lhsOcopy,_lhsOfieldattrs,_lhsOself,_lhsOvpats))) sem_Patterns_Nil :: T_Patterns sem_Patterns_Nil =@@ -1021,38 +1049,40 @@ _lhsOvpats = ({-# LINE 133 "src-ag/TfmToVisage.ag" #-} []- {-# LINE 1025 "dist/build/TfmToVisage" #-}+ {-# LINE 1053 "dist/build/TfmToVisage" #-} ) -- use rule "src-ag/TfmToVisage.ag"(line 144, column 43) _lhsOfieldattrs = ({-# LINE 144 "src-ag/TfmToVisage.ag" #-} []- {-# LINE 1031 "dist/build/TfmToVisage" #-}+ {-# LINE 1059 "dist/build/TfmToVisage" #-} ) -- self rule _copy = ({-# LINE 22 "src-ag/Patterns.ag" #-} []- {-# LINE 1037 "dist/build/TfmToVisage" #-}+ {-# LINE 1065 "dist/build/TfmToVisage" #-} ) -- self rule _self = ({-# LINE 74 "src-ag/TfmToVisage.ag" #-} []- {-# LINE 1043 "dist/build/TfmToVisage" #-}+ {-# LINE 1071 "dist/build/TfmToVisage" #-} ) -- self rule _lhsOcopy = ({-# LINE 22 "src-ag/Patterns.ag" #-} _copy- {-# LINE 1049 "dist/build/TfmToVisage" #-}+ {-# LINE 1077 "dist/build/TfmToVisage" #-} ) -- self rule _lhsOself = ({-# LINE 74 "src-ag/TfmToVisage.ag" #-} _self- {-# LINE 1055 "dist/build/TfmToVisage" #-}+ {-# LINE 1083 "dist/build/TfmToVisage" #-} )+ ___node =+ (Syn_Patterns _lhsOcopy _lhsOfieldattrs _lhsOself _lhsOvpats) in ( _lhsOcopy,_lhsOfieldattrs,_lhsOself,_lhsOvpats))) -- Production -------------------------------------------------- {-@@ -1114,48 +1144,50 @@ _lhsOvprod = ({-# LINE 110 "src-ag/TfmToVisage.ag" #-} VProduction con_ _childrenIvchildren _lhsrules _locrules- {-# LINE 1118 "dist/build/TfmToVisage" #-}+ {-# LINE 1148 "dist/build/TfmToVisage" #-} ) -- "src-ag/TfmToVisage.ag"(line 111, column 7) _splitVRules = ({-# LINE 111 "src-ag/TfmToVisage.ag" #-} splitVRules _rulesIvrules- {-# LINE 1124 "dist/build/TfmToVisage" #-}+ {-# LINE 1154 "dist/build/TfmToVisage" #-} ) -- "src-ag/TfmToVisage.ag"(line 112, column 7) _locrules = ({-# LINE 112 "src-ag/TfmToVisage.ag" #-} getForField "loc" _splitVRules- {-# LINE 1130 "dist/build/TfmToVisage" #-}+ {-# LINE 1160 "dist/build/TfmToVisage" #-} ) -- "src-ag/TfmToVisage.ag"(line 113, column 7) _lhsrules = ({-# LINE 113 "src-ag/TfmToVisage.ag" #-} getForField "lhs" _splitVRules- {-# LINE 1136 "dist/build/TfmToVisage" #-}+ {-# LINE 1166 "dist/build/TfmToVisage" #-} ) -- "src-ag/TfmToVisage.ag"(line 114, column 7) _childrenOrulemap = ({-# LINE 114 "src-ag/TfmToVisage.ag" #-} _splitVRules- {-# LINE 1142 "dist/build/TfmToVisage" #-}+ {-# LINE 1172 "dist/build/TfmToVisage" #-} ) -- copy rule (down) _childrenOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 1148 "dist/build/TfmToVisage" #-}+ {-# LINE 1178 "dist/build/TfmToVisage" #-} ) -- copy rule (down) _childrenOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 1154 "dist/build/TfmToVisage" #-}+ {-# LINE 1184 "dist/build/TfmToVisage" #-} ) ( _childrenIvchildren) = children_ _childrenOinhMap _childrenOrulemap _childrenOsynMap ( _rulesIvrules) = rules_+ ___node =+ (Syn_Production _lhsOvprod) in ( _lhsOvprod)))) -- Productions ------------------------------------------------- {-@@ -1205,36 +1237,38 @@ _lhsOvprods = ({-# LINE 104 "src-ag/TfmToVisage.ag" #-} _hdIvprod : _tlIvprods- {-# LINE 1209 "dist/build/TfmToVisage" #-}+ {-# LINE 1241 "dist/build/TfmToVisage" #-} ) -- copy rule (down) _hdOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 1215 "dist/build/TfmToVisage" #-}+ {-# LINE 1247 "dist/build/TfmToVisage" #-} ) -- copy rule (down) _hdOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 1221 "dist/build/TfmToVisage" #-}+ {-# LINE 1253 "dist/build/TfmToVisage" #-} ) -- copy rule (down) _tlOinhMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIinhMap- {-# LINE 1227 "dist/build/TfmToVisage" #-}+ {-# LINE 1259 "dist/build/TfmToVisage" #-} ) -- copy rule (down) _tlOsynMap = ({-# LINE 12 "src-ag/DistChildAttr.ag" #-} _lhsIsynMap- {-# LINE 1233 "dist/build/TfmToVisage" #-}+ {-# LINE 1265 "dist/build/TfmToVisage" #-} ) ( _hdIvprod) = hd_ _hdOinhMap _hdOsynMap ( _tlIvprods) = tl_ _tlOinhMap _tlOsynMap+ ___node =+ (Syn_Productions _lhsOvprods) in ( _lhsOvprods)))) sem_Productions_Nil :: T_Productions sem_Productions_Nil =@@ -1245,8 +1279,10 @@ _lhsOvprods = ({-# LINE 106 "src-ag/TfmToVisage.ag" #-} []- {-# LINE 1249 "dist/build/TfmToVisage" #-}+ {-# LINE 1283 "dist/build/TfmToVisage" #-} )+ ___node =+ (Syn_Productions _lhsOvprods) in ( _lhsOvprods)))) -- Rule -------------------------------------------------------- {-@@ -1303,12 +1339,14 @@ _lhsOvrule = ({-# LINE 129 "src-ag/TfmToVisage.ag" #-} VRule _patternIfieldattrs undefined _patternIvpat _rhsIself owrt_- {-# LINE 1307 "dist/build/TfmToVisage" #-}+ {-# LINE 1343 "dist/build/TfmToVisage" #-} ) ( _patternIcopy,_patternIfieldattrs,_patternIself,_patternIvpat) = pattern_ ( _rhsIself) = rhs_+ ___node =+ (Syn_Rule _lhsOvrule) in ( _lhsOvrule))) -- Rules ------------------------------------------------------- {-@@ -1347,12 +1385,14 @@ _lhsOvrules = ({-# LINE 124 "src-ag/TfmToVisage.ag" #-} _hdIvrule : _tlIvrules- {-# LINE 1351 "dist/build/TfmToVisage" #-}+ {-# LINE 1389 "dist/build/TfmToVisage" #-} ) ( _hdIvrule) = hd_ ( _tlIvrules) = tl_+ ___node =+ (Syn_Rules _lhsOvrules) in ( _lhsOvrules))) sem_Rules_Nil :: T_Rules sem_Rules_Nil =@@ -1361,8 +1401,10 @@ _lhsOvrules = ({-# LINE 125 "src-ag/TfmToVisage.ag" #-} []- {-# LINE 1365 "dist/build/TfmToVisage" #-}+ {-# LINE 1405 "dist/build/TfmToVisage" #-} )+ ___node =+ (Syn_Rules _lhsOvrules) in ( _lhsOvrules))) -- TypeSig ----------------------------------------------------- {-@@ -1390,7 +1432,8 @@ Type -> T_TypeSig sem_TypeSig_TypeSig name_ tp_ =- (T_TypeSig (let+ (T_TypeSig (let ___node =+ (Syn_TypeSig) in ( ))) -- TypeSigs ---------------------------------------------------- {-@@ -1419,9 +1462,11 @@ T_TypeSigs -> T_TypeSigs sem_TypeSigs_Cons (T_TypeSig hd_) (T_TypeSigs tl_) =- (T_TypeSigs (let+ (T_TypeSigs (let ___node =+ (Syn_TypeSigs) in ( ))) sem_TypeSigs_Nil :: T_TypeSigs sem_TypeSigs_Nil =- (T_TypeSigs (let+ (T_TypeSigs (let ___node =+ (Syn_TypeSigs) in ( )))
src-derived/Transform.hs view
@@ -1015,6989 +1015,7093 @@ ) ( _elemsIattrDecls,_elemsIattrOrderCollect,_elemsIattrs,_elemsIblocks,_elemsIcollectedArounds,_elemsIcollectedAugments,_elemsIcollectedConParams,_elemsIcollectedConstraints,_elemsIcollectedConstructorsMap,_elemsIcollectedFields,_elemsIcollectedInsts,_elemsIcollectedMacros,_elemsIcollectedMerges,_elemsIcollectedNames,_elemsIcollectedRules,_elemsIcollectedSetNames,_elemsIcollectedSigs,_elemsIcollectedUniques,_elemsIctxCollect,_elemsIdefSets,_elemsIderivings,_elemsIerrors,_elemsImoduleDecl,_elemsIparamsCollect,_elemsIpragmas,_elemsIquantCollect,_elemsIsemPragmasCollect,_elemsItypeSyns,_elemsIuseMap,_elemsIwrappers) = elems_ _elemsOallAttrDecls _elemsOallAttrs _elemsOallConstructors _elemsOallFields _elemsOallNonterminals _elemsOattrDecls _elemsOattrs _elemsOdefSets _elemsOdefinedSets _elemsOoptions- in ( _lhsOagi,_lhsOblocks,_lhsOerrors,_lhsOmoduleDecl,_lhsOoutput,_lhsOpragmas))))--- Alt ----------------------------------------------------------{-- visit 0:- inherited attributes:- allConstructors : Map NontermIdent (Set ConstructorIdent)- allNonterminals : Set NontermIdent- nts : Set NontermIdent- synthesized attributes:- collectedConParams : [(NontermIdent, ConstructorIdent, Set Identifier)]- collectedConstraints : [(NontermIdent, ConstructorIdent, [Type])]- collectedConstructorNames : Set ConstructorIdent- collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]- collectedMacros : [(NontermIdent, ConstructorIdent, MaybeMacro)]- alternatives:- alternative Alt:- child pos : {Pos}- child names : ConstructorSet - child tyvars : {[Identifier]}- child fields : Fields - child macro : {MaybeMacro}--}--- cata-sem_Alt :: Alt ->- T_Alt-sem_Alt (Alt _pos _names _tyvars _fields _macro) =- (sem_Alt_Alt _pos (sem_ConstructorSet _names) _tyvars (sem_Fields _fields) _macro)--- semantic domain-newtype T_Alt = T_Alt ((Map NontermIdent (Set ConstructorIdent)) ->- (Set NontermIdent) ->- (Set NontermIdent) ->- ( ([(NontermIdent, ConstructorIdent, Set Identifier)]),([(NontermIdent, ConstructorIdent, [Type])]),(Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)]),([(NontermIdent, ConstructorIdent, MaybeMacro)])))-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 {collectedConParams_Syn_Alt :: !(([(NontermIdent, ConstructorIdent, Set Identifier)])),collectedConstraints_Syn_Alt :: !(([(NontermIdent, ConstructorIdent, [Type])])),collectedConstructorNames_Syn_Alt :: !((Set ConstructorIdent)),collectedFields_Syn_Alt :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedMacros_Syn_Alt :: !(([(NontermIdent, ConstructorIdent, MaybeMacro)]))}-wrap_Alt :: T_Alt ->- Inh_Alt ->- Syn_Alt-wrap_Alt (T_Alt sem) (Inh_Alt _lhsIallConstructors _lhsIallNonterminals _lhsInts) =- (let ( _lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorNames,_lhsOcollectedFields,_lhsOcollectedMacros) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts- in (Syn_Alt _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorNames _lhsOcollectedFields _lhsOcollectedMacros))-sem_Alt_Alt :: Pos ->- T_ConstructorSet ->- ([Identifier]) ->- T_Fields ->- MaybeMacro ->- T_Alt-sem_Alt_Alt pos_ (T_ConstructorSet names_) tyvars_ (T_Fields fields_) macro_ =- (T_Alt (\ _lhsIallConstructors- _lhsIallNonterminals- _lhsInts ->- (let _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _fieldsOallNonterminals :: (Set NontermIdent)- _namesIcollectedConstructorNames :: (Set ConstructorIdent)- _namesIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _namesIerrors :: (Seq Error)- _fieldsIcollectedConstraints :: ([Type])- _fieldsIcollectedFields :: ([(Identifier, Type)])- -- "src-ag/Transform.ag"(line 241, column 10)- _lhsOcollectedFields =- ({-# LINE 241 "src-ag/Transform.ag" #-}- [ (nt, con, _fieldsIcollectedFields)- | nt <- Set.toList _lhsInts- , con <- Set.toList (_namesIconstructors (Map.findWithDefault Set.empty nt _lhsIallConstructors))- ]- {-# LINE 1087 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 245, column 10)- _lhsOcollectedConstraints =- ({-# LINE 245 "src-ag/Transform.ag" #-}- [ (nt, con, _fieldsIcollectedConstraints)- | nt <- Set.toList _lhsInts- , con <- Set.toList (_namesIconstructors (Map.findWithDefault Set.empty nt _lhsIallConstructors))- ]- {-# LINE 1096 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 249, column 10)- _lhsOcollectedConParams =- ({-# LINE 249 "src-ag/Transform.ag" #-}- [ (nt, con, Set.fromList tyvars_)- | nt <- Set.toList _lhsInts- , con <- Set.toList (_namesIconstructors (Map.findWithDefault Set.empty nt _lhsIallConstructors))- ]- {-# LINE 1105 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1287, column 10)- _lhsOcollectedMacros =- ({-# LINE 1287 "src-ag/Transform.ag" #-}- [ (nt, con, macro_)- | nt <- Set.toList _lhsInts- , con <- Set.toList (_namesIconstructors (Map.findWithDefault Set.empty nt _lhsIallConstructors))- ]- {-# LINE 1114 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 98, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 98 "src-ag/Transform.ag" #-}- _namesIcollectedConstructorNames- {-# LINE 1120 "dist/build/Transform" #-}- )- -- copy rule (down)- _fieldsOallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 1126 "dist/build/Transform" #-}- )- ( _namesIcollectedConstructorNames,_namesIconstructors,_namesIerrors) =- names_- ( _fieldsIcollectedConstraints,_fieldsIcollectedFields) =- fields_ _fieldsOallNonterminals- in ( _lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorNames,_lhsOcollectedFields,_lhsOcollectedMacros))))--- Alts ---------------------------------------------------------{-- visit 0:- inherited attributes:- allConstructors : Map NontermIdent (Set ConstructorIdent)- allNonterminals : Set NontermIdent- nts : Set NontermIdent- synthesized attributes:- collectedConParams : [(NontermIdent, ConstructorIdent, Set Identifier)]- collectedConstraints : [(NontermIdent, ConstructorIdent, [Type])]- collectedConstructorNames : Set ConstructorIdent- collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]- collectedMacros : [(NontermIdent, ConstructorIdent, MaybeMacro)]- 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) ->- ( ([(NontermIdent, ConstructorIdent, Set Identifier)]),([(NontermIdent, ConstructorIdent, [Type])]),(Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)]),([(NontermIdent, ConstructorIdent, MaybeMacro)])))-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 {collectedConParams_Syn_Alts :: !(([(NontermIdent, ConstructorIdent, Set Identifier)])),collectedConstraints_Syn_Alts :: !(([(NontermIdent, ConstructorIdent, [Type])])),collectedConstructorNames_Syn_Alts :: !((Set ConstructorIdent)),collectedFields_Syn_Alts :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedMacros_Syn_Alts :: !(([(NontermIdent, ConstructorIdent, MaybeMacro)]))}-wrap_Alts :: T_Alts ->- Inh_Alts ->- Syn_Alts-wrap_Alts (T_Alts sem) (Inh_Alts _lhsIallConstructors _lhsIallNonterminals _lhsInts) =- (let ( _lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorNames,_lhsOcollectedFields,_lhsOcollectedMacros) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts- in (Syn_Alts _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorNames _lhsOcollectedFields _lhsOcollectedMacros))-sem_Alts_Cons :: T_Alt ->- T_Alts ->- T_Alts-sem_Alts_Cons (T_Alt hd_) (T_Alts tl_) =- (T_Alts (\ _lhsIallConstructors- _lhsIallNonterminals- _lhsInts ->- (let _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _hdOallNonterminals :: (Set NontermIdent)- _hdOnts :: (Set NontermIdent)- _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _tlOallNonterminals :: (Set NontermIdent)- _tlOnts :: (Set NontermIdent)- _hdIcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _hdIcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _hdIcollectedConstructorNames :: (Set ConstructorIdent)- _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _hdIcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- _tlIcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _tlIcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _tlIcollectedConstructorNames :: (Set ConstructorIdent)- _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _tlIcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- -- use rule "src-ag/Transform.ag"(line 132, column 31)- _lhsOcollectedConParams =- ({-# LINE 132 "src-ag/Transform.ag" #-}- _hdIcollectedConParams ++ _tlIcollectedConParams- {-# LINE 1202 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 131, column 33)- _lhsOcollectedConstraints =- ({-# LINE 131 "src-ag/Transform.ag" #-}- _hdIcollectedConstraints ++ _tlIcollectedConstraints- {-# LINE 1208 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 98, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 98 "src-ag/Transform.ag" #-}- _hdIcollectedConstructorNames `Set.union` _tlIcollectedConstructorNames- {-# LINE 1214 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 130, column 28)- _lhsOcollectedFields =- ({-# LINE 130 "src-ag/Transform.ag" #-}- _hdIcollectedFields ++ _tlIcollectedFields- {-# LINE 1220 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1283, column 28)- _lhsOcollectedMacros =- ({-# LINE 1283 "src-ag/Transform.ag" #-}- _hdIcollectedMacros ++ _tlIcollectedMacros- {-# LINE 1226 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOallConstructors =- ({-# LINE 101 "src-ag/Transform.ag" #-}- _lhsIallConstructors- {-# LINE 1232 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 1238 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOnts =- ({-# LINE 175 "src-ag/Transform.ag" #-}- _lhsInts- {-# LINE 1244 "dist/build/Transform" #-}- )- -- copy rule (down)- _tlOallConstructors =- ({-# LINE 101 "src-ag/Transform.ag" #-}- _lhsIallConstructors- {-# LINE 1250 "dist/build/Transform" #-}- )- -- copy rule (down)- _tlOallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 1256 "dist/build/Transform" #-}- )- -- copy rule (down)- _tlOnts =- ({-# LINE 175 "src-ag/Transform.ag" #-}- _lhsInts- {-# LINE 1262 "dist/build/Transform" #-}- )- ( _hdIcollectedConParams,_hdIcollectedConstraints,_hdIcollectedConstructorNames,_hdIcollectedFields,_hdIcollectedMacros) =- hd_ _hdOallConstructors _hdOallNonterminals _hdOnts- ( _tlIcollectedConParams,_tlIcollectedConstraints,_tlIcollectedConstructorNames,_tlIcollectedFields,_tlIcollectedMacros) =- tl_ _tlOallConstructors _tlOallNonterminals _tlOnts- in ( _lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorNames,_lhsOcollectedFields,_lhsOcollectedMacros))))-sem_Alts_Nil :: T_Alts-sem_Alts_Nil =- (T_Alts (\ _lhsIallConstructors- _lhsIallNonterminals- _lhsInts ->- (let _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- -- use rule "src-ag/Transform.ag"(line 132, column 31)- _lhsOcollectedConParams =- ({-# LINE 132 "src-ag/Transform.ag" #-}- []- {-# LINE 1283 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 131, column 33)- _lhsOcollectedConstraints =- ({-# LINE 131 "src-ag/Transform.ag" #-}- []- {-# LINE 1289 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 98, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 98 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 1295 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 130, column 28)- _lhsOcollectedFields =- ({-# LINE 130 "src-ag/Transform.ag" #-}- []- {-# LINE 1301 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1283, column 28)- _lhsOcollectedMacros =- ({-# LINE 1283 "src-ag/Transform.ag" #-}- []- {-# LINE 1307 "dist/build/Transform" #-}- )- in ( _lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorNames,_lhsOcollectedFields,_lhsOcollectedMacros))))--- Attrs --------------------------------------------------------{-- visit 0:- inherited attributes:- allFields : DataTypes- allNonterminals : Set NontermIdent- nts : Set NontermIdent- options : Options- chained attributes:- attrDecls : Map NontermIdent (Attributes, Attributes)- attrs : 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 attrDecls : _- local errors : _- 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)) ->- (Map NontermIdent (Attributes, Attributes)) ->- (Set NontermIdent) ->- Options ->- ( (Map NontermIdent (Attributes, Attributes)),(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))),attrs_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))),attrs_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 _lhsIattrs _lhsInts _lhsIoptions) =- (let ( _lhsOattrDecls,_lhsOattrs,_lhsOerrors,_lhsOuseMap) = sem _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIattrs _lhsInts _lhsIoptions- in (Syn_Attrs _lhsOattrDecls _lhsOattrs _lhsOerrors _lhsOuseMap))-sem_Attrs_Attrs :: Pos ->- AttrNames ->- AttrNames ->- AttrNames ->- T_Attrs-sem_Attrs_Attrs pos_ inh_ chn_ syn_ =- (T_Attrs (\ _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIattrs- _lhsInts- _lhsIoptions ->- (let _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOerrors :: (Seq Error)- _lhsOattrs :: (Map NontermIdent (Attributes, Attributes))- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- -- "src-ag/Transform.ag"(line 1018, column 15)- (_attrDecls,_errors) =- ({-# LINE 1018 "src-ag/Transform.ag" #-}- checkAttrs _lhsIallFields (Set.toList _lhsInts) _inherited _synthesized _lhsIattrDecls- {-# LINE 1379 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1020, column 15)- (_inherited,_synthesized,_useMap) =- ({-# LINE 1020 "src-ag/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 1392 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1028, column 11)- _lhsOuseMap =- ({-# LINE 1028 "src-ag/Transform.ag" #-}- Map.fromList (zip (Set.toList _lhsInts) (repeat _useMap))- {-# LINE 1398 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1030, column 11)- _errors1 =- ({-# LINE 1030 "src-ag/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 1415 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1042, column 11)- _lhsOerrors =- ({-# LINE 1042 "src-ag/Transform.ag" #-}- _errors Seq.>< _errors1- {-# LINE 1421 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1323, column 11)- _lhsOattrs =- ({-# LINE 1323 "src-ag/Transform.ag" #-}- let insert decls nt = if Map.member nt decls- then Map.update (\(inh,syn) -> Just ( Map.union inh $ Map.fromList _inherited- , Map.union syn $ Map.fromList _synthesized)) nt decls- else Map.insert nt (Map.fromList _inherited, Map.fromList _synthesized) decls- in foldl insert _lhsIattrs (Set.toList _lhsInts)- {-# LINE 1431 "dist/build/Transform" #-}- )- -- copy rule (from local)- _lhsOattrDecls =- ({-# LINE 144 "src-ag/Transform.ag" #-}- _attrDecls- {-# LINE 1437 "dist/build/Transform" #-}- )- in ( _lhsOattrDecls,_lhsOattrs,_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)- -- "src-ag/Transform.ag"(line 765, column 17)- _lhsOconstructors =- ({-# LINE 765 "src-ag/Transform.ag" #-}- \ds -> ds- {-# LINE 1488 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 98, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 98 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 1494 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- Seq.empty- {-# LINE 1500 "dist/build/Transform" #-}- )- 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)- -- "src-ag/Transform.ag"(line 764, column 17)- _lhsOconstructors =- ({-# LINE 764 "src-ag/Transform.ag" #-}- \ds -> _set1Iconstructors ds `Set.difference` _set2Iconstructors ds- {-# LINE 1520 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 98, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 98 "src-ag/Transform.ag" #-}- _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames- {-# LINE 1526 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 1532 "dist/build/Transform" #-}- )- ( _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)- -- "src-ag/Transform.ag"(line 599, column 11)- _lhsOcollectedConstructorNames =- ({-# LINE 599 "src-ag/Transform.ag" #-}- Set.singleton name_- {-# LINE 1549 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 762, column 17)- _lhsOconstructors =- ({-# LINE 762 "src-ag/Transform.ag" #-}- \ds -> Set.singleton name_- {-# LINE 1555 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- Seq.empty- {-# LINE 1561 "dist/build/Transform" #-}- )- 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)- -- "src-ag/Transform.ag"(line 763, column 17)- _lhsOconstructors =- ({-# LINE 763 "src-ag/Transform.ag" #-}- \ds -> _set1Iconstructors ds `Set.union` _set2Iconstructors ds- {-# LINE 1581 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 98, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 98 "src-ag/Transform.ag" #-}- _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames- {-# LINE 1587 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 1593 "dist/build/Transform" #-}- )- ( _set1IcollectedConstructorNames,_set1Iconstructors,_set1Ierrors) =- set1_- ( _set2IcollectedConstructorNames,_set2Iconstructors,_set2Ierrors) =- set2_- in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)))--- Elem ---------------------------------------------------------{-- visit 0:- inherited attributes:- allAttrDecls : Map NontermIdent (Attributes, Attributes)- allAttrs : 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)- attrs : 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]) ]- collectedConParams : [(NontermIdent, ConstructorIdent, Set Identifier)]- collectedConstraints : [(NontermIdent, ConstructorIdent, [Type])]- collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent)- collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]- collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]- collectedMacros : [(NontermIdent, ConstructorIdent, MaybeMacro)]- 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- quantCollect : QuantMap- 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 quants : {[String]}- 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 Nocatas:- child pos : {Pos}- child set : NontSet - alternative Pragma:- child pos : {Pos}- child names : {[NontermIdent]}- alternative Sem:- child pos : {Pos}- child ctx : {ClassContext}- child names : NontSet - child attrs : Attrs - child quants : {[String]}- child alts : SemAlts - alternative Set:- child pos : {Pos}- child name : {NontermIdent}- child merge : {Bool}- child set : NontSet - visit 0:- local defSets2 : _- local errs : _- alternative Txt:- child pos : {Pos}- child kind : {BlockKind}- 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 _quants _attrs) =- (sem_Elem_Attr _pos _ctx (sem_NontSet _names) _quants (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 (Nocatas _pos _set) =- (sem_Elem_Nocatas _pos (sem_NontSet _set))-sem_Elem (Pragma _pos _names) =- (sem_Elem_Pragma _pos _names)-sem_Elem (Sem _pos _ctx _names _attrs _quants _alts) =- (sem_Elem_Sem _pos _ctx (sem_NontSet _names) (sem_Attrs _attrs) _quants (sem_SemAlts _alts))-sem_Elem (Set _pos _name _merge _set) =- (sem_Elem_Set _pos _name _merge (sem_NontSet _set))-sem_Elem (Txt _pos _kind _mbNt _lines) =- (sem_Elem_Txt _pos _kind _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 (Attributes, Attributes)) ->- (Map NontermIdent (Set ConstructorIdent)) ->- DataTypes ->- (Set NontermIdent) ->- (Map NontermIdent (Attributes, Attributes)) ->- (Map NontermIdent (Attributes, Attributes)) ->- (Map Identifier (Set NontermIdent,Set Identifier)) ->- DefinedSets ->- Options ->- ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,(Map NontermIdent (Attributes, Attributes)),Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([(NontermIdent, ConstructorIdent, Set Identifier)]),([(NontermIdent, ConstructorIdent, [Type])]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([(NontermIdent, ConstructorIdent, MaybeMacro)]),([ (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),QuantMap,PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent)))-data Inh_Elem = Inh_Elem {allAttrDecls_Inh_Elem :: !((Map NontermIdent (Attributes, Attributes))),allAttrs_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))),attrs_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),attrs_Syn_Elem :: !((Map NontermIdent (Attributes, Attributes))),blocks_Syn_Elem :: !(Blocks),collectedArounds_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConParams_Syn_Elem :: !(([(NontermIdent, ConstructorIdent, Set Identifier)])),collectedConstraints_Syn_Elem :: !(([(NontermIdent, ConstructorIdent, [Type])])),collectedConstructorsMap_Syn_Elem :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elem :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMacros_Syn_Elem :: !(([(NontermIdent, ConstructorIdent, MaybeMacro)])),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)),quantCollect_Syn_Elem :: !(QuantMap),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 _lhsIallAttrs _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIattrs _lhsIdefSets _lhsIdefinedSets _lhsIoptions) =- (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallAttrs _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIattrs _lhsIdefSets _lhsIdefinedSets _lhsIoptions- in (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOattrs _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMacros _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOquantCollect _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers))-sem_Elem_Attr :: Pos ->- ClassContext ->- T_NontSet ->- ([String]) ->- T_Attrs ->- T_Elem-sem_Elem_Attr pos_ ctx_ (T_NontSet names_) quants_ (T_Attrs attrs_) =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallAttrs- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIattrs- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOctxCollect :: ContextMap- _lhsOquantCollect :: QuantMap- _attrsOnts :: (Set NontermIdent)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- _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))- _lhsOattrs :: (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))- _attrsOattrs :: (Map NontermIdent (Attributes, Attributes))- _attrsOoptions :: Options- _namesIcollectedNames :: (Set Identifier)- _namesIerrors :: (Seq Error)- _namesInontSet :: (Set NontermIdent)- _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _attrsIattrs :: (Map NontermIdent (Attributes, Attributes))- _attrsIerrors :: (Seq Error)- _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- -- "src-ag/Transform.ag"(line 952, column 7)- _lhsOctxCollect =- ({-# LINE 952 "src-ag/Transform.ag" #-}- if null ctx_- then Map.empty- else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]- {-# LINE 1823 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 977, column 7)- _lhsOquantCollect =- ({-# LINE 977 "src-ag/Transform.ag" #-}- if null quants_- then Map.empty- else Map.fromList [(nt, quants_) | nt <- Set.toList _namesInontSet]- {-# LINE 1831 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1013, column 10)- _attrsOnts =- ({-# LINE 1013 "src-ag/Transform.ag" #-}- _namesInontSet- {-# LINE 1837 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 893, column 55)- _lhsOattrOrderCollect =- ({-# LINE 893 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 1843 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 46, column 19)- _lhsOblocks =- ({-# LINE 46 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 1849 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 164, column 32)- _lhsOcollectedArounds =- ({-# LINE 164 "src-ag/Transform.ag" #-}- []- {-# LINE 1855 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 163, column 32)- _lhsOcollectedAugments =- ({-# LINE 163 "src-ag/Transform.ag" #-}- []- {-# LINE 1861 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 132, column 31)- _lhsOcollectedConParams =- ({-# LINE 132 "src-ag/Transform.ag" #-}- []- {-# LINE 1867 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 131, column 33)- _lhsOcollectedConstraints =- ({-# LINE 131 "src-ag/Transform.ag" #-}- []- {-# LINE 1873 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 99, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 99 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 1879 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 130, column 28)- _lhsOcollectedFields =- ({-# LINE 130 "src-ag/Transform.ag" #-}- []- {-# LINE 1885 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 161, column 32)- _lhsOcollectedInsts =- ({-# LINE 161 "src-ag/Transform.ag" #-}- []- {-# LINE 1891 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1283, column 28)- _lhsOcollectedMacros =- ({-# LINE 1283 "src-ag/Transform.ag" #-}- []- {-# LINE 1897 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 165, column 32)- _lhsOcollectedMerges =- ({-# LINE 165 "src-ag/Transform.ag" #-}- []- {-# LINE 1903 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 91, column 50)- _lhsOcollectedNames =- ({-# LINE 91 "src-ag/Transform.ag" #-}- _namesIcollectedNames- {-# LINE 1909 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 159, column 32)- _lhsOcollectedRules =- ({-# LINE 159 "src-ag/Transform.ag" #-}- []- {-# LINE 1915 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 90, column 50)- _lhsOcollectedSetNames =- ({-# LINE 90 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 1921 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 160, column 32)- _lhsOcollectedSigs =- ({-# LINE 160 "src-ag/Transform.ag" #-}- []- {-# LINE 1927 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 162, column 32)- _lhsOcollectedUniques =- ({-# LINE 162 "src-ag/Transform.ag" #-}- []- {-# LINE 1933 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 990, column 33)- _lhsOderivings =- ({-# LINE 990 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 1939 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- _namesIerrors Seq.>< _attrsIerrors- {-# LINE 1945 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1187, column 37)- _lhsOmoduleDecl =- ({-# LINE 1187 "src-ag/Transform.ag" #-}- mzero- {-# LINE 1951 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 925, column 37)- _lhsOparamsCollect =- ({-# LINE 925 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 1957 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 787, column 34)- _lhsOpragmas =- ({-# LINE 787 "src-ag/Transform.ag" #-}- id- {-# LINE 1963 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 865, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 865 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 1969 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 626, column 32)- _lhsOtypeSyns =- ({-# LINE 626 "src-ag/Transform.ag" #-}- []- {-# LINE 1975 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 145, column 15)- _lhsOuseMap =- ({-# LINE 145 "src-ag/Transform.ag" #-}- _attrsIuseMap- {-# LINE 1981 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 771, column 32)- _lhsOwrappers =- ({-# LINE 771 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 1987 "dist/build/Transform" #-}- )- -- copy rule (up)- _lhsOattrDecls =- ({-# LINE 144 "src-ag/Transform.ag" #-}- _attrsIattrDecls- {-# LINE 1993 "dist/build/Transform" #-}- )- -- copy rule (up)- _lhsOattrs =- ({-# LINE 1316 "src-ag/Transform.ag" #-}- _attrsIattrs- {-# LINE 1999 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 109 "src-ag/Transform.ag" #-}- _lhsIdefSets- {-# LINE 2005 "dist/build/Transform" #-}- )- -- copy rule (down)- _namesOallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 2011 "dist/build/Transform" #-}- )- -- copy rule (down)- _namesOallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2017 "dist/build/Transform" #-}- )- -- copy rule (down)- _namesOdefinedSets =- ({-# LINE 112 "src-ag/Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 2023 "dist/build/Transform" #-}- )- -- copy rule (down)- _attrsOallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 2029 "dist/build/Transform" #-}- )- -- copy rule (down)- _attrsOallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2035 "dist/build/Transform" #-}- )- -- copy rule (down)- _attrsOattrDecls =- ({-# LINE 144 "src-ag/Transform.ag" #-}- _lhsIattrDecls- {-# LINE 2041 "dist/build/Transform" #-}- )- -- copy rule (down)- _attrsOattrs =- ({-# LINE 1316 "src-ag/Transform.ag" #-}- _lhsIattrs- {-# LINE 2047 "dist/build/Transform" #-}- )- -- copy rule (down)- _attrsOoptions =- ({-# LINE 40 "src-ag/Transform.ag" #-}- _lhsIoptions- {-# LINE 2053 "dist/build/Transform" #-}- )- ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =- names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets- ( _attrsIattrDecls,_attrsIattrs,_attrsIerrors,_attrsIuseMap) =- attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOattrs _attrsOnts _attrsOoptions- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_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- _lhsIallAttrs- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIattrs- _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]) ])- _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- _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)- _lhsOquantCollect :: QuantMap- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOattrs :: (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))- _attrsOattrs :: (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))- _attrsIattrs :: (Map NontermIdent (Attributes, Attributes))- _attrsIerrors :: (Seq Error)- _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _altsIcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _altsIcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _altsIcollectedConstructorNames :: (Set ConstructorIdent)- _altsIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _altsIcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- -- "src-ag/Transform.ag"(line 178, column 10)- _altsOnts =- ({-# LINE 178 "src-ag/Transform.ag" #-}- _namesInontSet- {-# LINE 2137 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 605, column 11)- _lhsOcollectedConstructorsMap =- ({-# LINE 605 "src-ag/Transform.ag" #-}- Map.fromList- [ (n, _altsIcollectedConstructorNames)- | n <- Set.toList _namesInontSet- ]- {-# LINE 2146 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 929, column 7)- _lhsOparamsCollect =- ({-# LINE 929 "src-ag/Transform.ag" #-}- if null params_- then Map.empty- else Map.fromList [(nt, params_) | nt <- Set.toList _namesInontSet]- {-# LINE 2154 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 952, column 7)- _lhsOctxCollect =- ({-# LINE 952 "src-ag/Transform.ag" #-}- if null ctx_- then Map.empty- else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]- {-# LINE 2162 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1012, column 10)- _attrsOnts =- ({-# LINE 1012 "src-ag/Transform.ag" #-}- _namesInontSet- {-# LINE 2168 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 893, column 55)- _lhsOattrOrderCollect =- ({-# LINE 893 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2174 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 46, column 19)- _lhsOblocks =- ({-# LINE 46 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2180 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 164, column 32)- _lhsOcollectedArounds =- ({-# LINE 164 "src-ag/Transform.ag" #-}- []- {-# LINE 2186 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 163, column 32)- _lhsOcollectedAugments =- ({-# LINE 163 "src-ag/Transform.ag" #-}- []- {-# LINE 2192 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 132, column 31)- _lhsOcollectedConParams =- ({-# LINE 132 "src-ag/Transform.ag" #-}- _altsIcollectedConParams- {-# LINE 2198 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 131, column 33)- _lhsOcollectedConstraints =- ({-# LINE 131 "src-ag/Transform.ag" #-}- _altsIcollectedConstraints- {-# LINE 2204 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 130, column 28)- _lhsOcollectedFields =- ({-# LINE 130 "src-ag/Transform.ag" #-}- _altsIcollectedFields- {-# LINE 2210 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 161, column 32)- _lhsOcollectedInsts =- ({-# LINE 161 "src-ag/Transform.ag" #-}- []- {-# LINE 2216 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1283, column 28)- _lhsOcollectedMacros =- ({-# LINE 1283 "src-ag/Transform.ag" #-}- _altsIcollectedMacros- {-# LINE 2222 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 165, column 32)- _lhsOcollectedMerges =- ({-# LINE 165 "src-ag/Transform.ag" #-}- []- {-# LINE 2228 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 91, column 50)- _lhsOcollectedNames =- ({-# LINE 91 "src-ag/Transform.ag" #-}- _namesIcollectedNames- {-# LINE 2234 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 159, column 32)- _lhsOcollectedRules =- ({-# LINE 159 "src-ag/Transform.ag" #-}- []- {-# LINE 2240 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 90, column 50)- _lhsOcollectedSetNames =- ({-# LINE 90 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 2246 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 160, column 32)- _lhsOcollectedSigs =- ({-# LINE 160 "src-ag/Transform.ag" #-}- []- {-# LINE 2252 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 162, column 32)- _lhsOcollectedUniques =- ({-# LINE 162 "src-ag/Transform.ag" #-}- []- {-# LINE 2258 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 990, column 33)- _lhsOderivings =- ({-# LINE 990 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2264 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- _namesIerrors Seq.>< _attrsIerrors- {-# LINE 2270 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1187, column 37)- _lhsOmoduleDecl =- ({-# LINE 1187 "src-ag/Transform.ag" #-}- mzero- {-# LINE 2276 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 787, column 34)- _lhsOpragmas =- ({-# LINE 787 "src-ag/Transform.ag" #-}- id- {-# LINE 2282 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 973, column 36)- _lhsOquantCollect =- ({-# LINE 973 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2288 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 865, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 865 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2294 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 626, column 32)- _lhsOtypeSyns =- ({-# LINE 626 "src-ag/Transform.ag" #-}- []- {-# LINE 2300 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 145, column 15)- _lhsOuseMap =- ({-# LINE 145 "src-ag/Transform.ag" #-}- _attrsIuseMap- {-# LINE 2306 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 771, column 32)- _lhsOwrappers =- ({-# LINE 771 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 2312 "dist/build/Transform" #-}- )- -- copy rule (up)- _lhsOattrDecls =- ({-# LINE 144 "src-ag/Transform.ag" #-}- _attrsIattrDecls- {-# LINE 2318 "dist/build/Transform" #-}- )- -- copy rule (up)- _lhsOattrs =- ({-# LINE 1316 "src-ag/Transform.ag" #-}- _attrsIattrs- {-# LINE 2324 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 109 "src-ag/Transform.ag" #-}- _lhsIdefSets- {-# LINE 2330 "dist/build/Transform" #-}- )- -- copy rule (down)- _namesOallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 2336 "dist/build/Transform" #-}- )- -- copy rule (down)- _namesOallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2342 "dist/build/Transform" #-}- )- -- copy rule (down)- _namesOdefinedSets =- ({-# LINE 112 "src-ag/Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 2348 "dist/build/Transform" #-}- )- -- copy rule (down)- _attrsOallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 2354 "dist/build/Transform" #-}- )- -- copy rule (down)- _attrsOallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2360 "dist/build/Transform" #-}- )- -- copy rule (down)- _attrsOattrDecls =- ({-# LINE 144 "src-ag/Transform.ag" #-}- _lhsIattrDecls- {-# LINE 2366 "dist/build/Transform" #-}- )- -- copy rule (down)- _attrsOattrs =- ({-# LINE 1316 "src-ag/Transform.ag" #-}- _lhsIattrs- {-# LINE 2372 "dist/build/Transform" #-}- )- -- copy rule (down)- _attrsOoptions =- ({-# LINE 40 "src-ag/Transform.ag" #-}- _lhsIoptions- {-# LINE 2378 "dist/build/Transform" #-}- )- -- copy rule (down)- _altsOallConstructors =- ({-# LINE 101 "src-ag/Transform.ag" #-}- _lhsIallConstructors- {-# LINE 2384 "dist/build/Transform" #-}- )- -- copy rule (down)- _altsOallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2390 "dist/build/Transform" #-}- )- ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =- names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets- ( _attrsIattrDecls,_attrsIattrs,_attrsIerrors,_attrsIuseMap) =- attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOattrs _attrsOnts _attrsOoptions- ( _altsIcollectedConParams,_altsIcollectedConstraints,_altsIcollectedConstructorNames,_altsIcollectedFields,_altsIcollectedMacros) =- alts_ _altsOallConstructors _altsOallNonterminals _altsOnts- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))-sem_Elem_Deriving :: Pos ->- T_NontSet ->- ([NontermIdent]) ->- T_Elem-sem_Elem_Deriving pos_ (T_NontSet set_) classes_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallAttrs- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIattrs- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOderivings :: Derivings- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- _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)- _lhsOquantCollect :: QuantMap- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOattrs :: (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)- -- "src-ag/Transform.ag"(line 997, column 14)- _lhsOderivings =- ({-# LINE 997 "src-ag/Transform.ag" #-}- Map.fromList [(nt,Set.fromList classes_) | nt <- Set.toList _setInontSet]- {-# LINE 2454 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 893, column 55)- _lhsOattrOrderCollect =- ({-# LINE 893 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2460 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 46, column 19)- _lhsOblocks =- ({-# LINE 46 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2466 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 164, column 32)- _lhsOcollectedArounds =- ({-# LINE 164 "src-ag/Transform.ag" #-}- []- {-# LINE 2472 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 163, column 32)- _lhsOcollectedAugments =- ({-# LINE 163 "src-ag/Transform.ag" #-}- []- {-# LINE 2478 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 132, column 31)- _lhsOcollectedConParams =- ({-# LINE 132 "src-ag/Transform.ag" #-}- []- {-# LINE 2484 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 131, column 33)- _lhsOcollectedConstraints =- ({-# LINE 131 "src-ag/Transform.ag" #-}- []- {-# LINE 2490 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 99, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 99 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2496 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 130, column 28)- _lhsOcollectedFields =- ({-# LINE 130 "src-ag/Transform.ag" #-}- []- {-# LINE 2502 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 161, column 32)- _lhsOcollectedInsts =- ({-# LINE 161 "src-ag/Transform.ag" #-}- []- {-# LINE 2508 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1283, column 28)- _lhsOcollectedMacros =- ({-# LINE 1283 "src-ag/Transform.ag" #-}- []- {-# LINE 2514 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 165, column 32)- _lhsOcollectedMerges =- ({-# LINE 165 "src-ag/Transform.ag" #-}- []- {-# LINE 2520 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 91, column 50)- _lhsOcollectedNames =- ({-# LINE 91 "src-ag/Transform.ag" #-}- _setIcollectedNames- {-# LINE 2526 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 159, column 32)- _lhsOcollectedRules =- ({-# LINE 159 "src-ag/Transform.ag" #-}- []- {-# LINE 2532 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 90, column 50)- _lhsOcollectedSetNames =- ({-# LINE 90 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 2538 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 160, column 32)- _lhsOcollectedSigs =- ({-# LINE 160 "src-ag/Transform.ag" #-}- []- {-# LINE 2544 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 162, column 32)- _lhsOcollectedUniques =- ({-# LINE 162 "src-ag/Transform.ag" #-}- []- {-# LINE 2550 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 948, column 34)- _lhsOctxCollect =- ({-# LINE 948 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2556 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- _setIerrors- {-# LINE 2562 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1187, column 37)- _lhsOmoduleDecl =- ({-# LINE 1187 "src-ag/Transform.ag" #-}- mzero- {-# LINE 2568 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 925, column 37)- _lhsOparamsCollect =- ({-# LINE 925 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2574 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 787, column 34)- _lhsOpragmas =- ({-# LINE 787 "src-ag/Transform.ag" #-}- id- {-# LINE 2580 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 973, column 36)- _lhsOquantCollect =- ({-# LINE 973 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2586 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 865, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 865 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2592 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 626, column 32)- _lhsOtypeSyns =- ({-# LINE 626 "src-ag/Transform.ag" #-}- []- {-# LINE 2598 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 145, column 15)- _lhsOuseMap =- ({-# LINE 145 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2604 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 771, column 32)- _lhsOwrappers =- ({-# LINE 771 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 2610 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 144 "src-ag/Transform.ag" #-}- _lhsIattrDecls- {-# LINE 2616 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOattrs =- ({-# LINE 1316 "src-ag/Transform.ag" #-}- _lhsIattrs- {-# LINE 2622 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 109 "src-ag/Transform.ag" #-}- _lhsIdefSets- {-# LINE 2628 "dist/build/Transform" #-}- )- -- copy rule (down)- _setOallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 2634 "dist/build/Transform" #-}- )- -- copy rule (down)- _setOallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2640 "dist/build/Transform" #-}- )- -- copy rule (down)- _setOdefinedSets =- ({-# LINE 112 "src-ag/Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 2646 "dist/build/Transform" #-}- )- ( _setIcollectedNames,_setIerrors,_setInontSet) =- set_ _setOallFields _setOallNonterminals _setOdefinedSets- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))-sem_Elem_Module :: Pos ->- String ->- String ->- String ->- T_Elem-sem_Elem_Module pos_ name_ exports_ imports_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallAttrs- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIattrs- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- _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)- _lhsOquantCollect :: QuantMap- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOattrs :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- "src-ag/Transform.ag"(line 1191, column 7)- _lhsOmoduleDecl =- ({-# LINE 1191 "src-ag/Transform.ag" #-}- Just (name_, exports_, imports_)- {-# LINE 2701 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 893, column 55)- _lhsOattrOrderCollect =- ({-# LINE 893 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2707 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 46, column 19)- _lhsOblocks =- ({-# LINE 46 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2713 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 164, column 32)- _lhsOcollectedArounds =- ({-# LINE 164 "src-ag/Transform.ag" #-}- []- {-# LINE 2719 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 163, column 32)- _lhsOcollectedAugments =- ({-# LINE 163 "src-ag/Transform.ag" #-}- []- {-# LINE 2725 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 132, column 31)- _lhsOcollectedConParams =- ({-# LINE 132 "src-ag/Transform.ag" #-}- []- {-# LINE 2731 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 131, column 33)- _lhsOcollectedConstraints =- ({-# LINE 131 "src-ag/Transform.ag" #-}- []- {-# LINE 2737 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 99, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 99 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2743 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 130, column 28)- _lhsOcollectedFields =- ({-# LINE 130 "src-ag/Transform.ag" #-}- []- {-# LINE 2749 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 161, column 32)- _lhsOcollectedInsts =- ({-# LINE 161 "src-ag/Transform.ag" #-}- []- {-# LINE 2755 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1283, column 28)- _lhsOcollectedMacros =- ({-# LINE 1283 "src-ag/Transform.ag" #-}- []- {-# LINE 2761 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 165, column 32)- _lhsOcollectedMerges =- ({-# LINE 165 "src-ag/Transform.ag" #-}- []- {-# LINE 2767 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 91, column 50)- _lhsOcollectedNames =- ({-# LINE 91 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 2773 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 159, column 32)- _lhsOcollectedRules =- ({-# LINE 159 "src-ag/Transform.ag" #-}- []- {-# LINE 2779 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 90, column 50)- _lhsOcollectedSetNames =- ({-# LINE 90 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 2785 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 160, column 32)- _lhsOcollectedSigs =- ({-# LINE 160 "src-ag/Transform.ag" #-}- []- {-# LINE 2791 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 162, column 32)- _lhsOcollectedUniques =- ({-# LINE 162 "src-ag/Transform.ag" #-}- []- {-# LINE 2797 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 948, column 34)- _lhsOctxCollect =- ({-# LINE 948 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2803 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 990, column 33)- _lhsOderivings =- ({-# LINE 990 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2809 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- Seq.empty- {-# LINE 2815 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 925, column 37)- _lhsOparamsCollect =- ({-# LINE 925 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2821 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 787, column 34)- _lhsOpragmas =- ({-# LINE 787 "src-ag/Transform.ag" #-}- id- {-# LINE 2827 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 973, column 36)- _lhsOquantCollect =- ({-# LINE 973 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2833 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 865, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 865 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2839 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 626, column 32)- _lhsOtypeSyns =- ({-# LINE 626 "src-ag/Transform.ag" #-}- []- {-# LINE 2845 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 145, column 15)- _lhsOuseMap =- ({-# LINE 145 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2851 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 771, column 32)- _lhsOwrappers =- ({-# LINE 771 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 2857 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 144 "src-ag/Transform.ag" #-}- _lhsIattrDecls- {-# LINE 2863 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOattrs =- ({-# LINE 1316 "src-ag/Transform.ag" #-}- _lhsIattrs- {-# LINE 2869 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 109 "src-ag/Transform.ag" #-}- _lhsIdefSets- {-# LINE 2875 "dist/build/Transform" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))-sem_Elem_Nocatas :: Pos ->- T_NontSet ->- T_Elem-sem_Elem_Nocatas pos_ (T_NontSet set_) =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallAttrs- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIattrs- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOpragmas :: (Options -> Options)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- _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- _lhsOquantCollect :: QuantMap- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOattrs :: (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)- -- "src-ag/Transform.ag"(line 781, column 14)- _lhsOpragmas =- ({-# LINE 781 "src-ag/Transform.ag" #-}- \o -> o { nocatas = _setInontSet `Set.union` nocatas o }- {-# LINE 2932 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 893, column 55)- _lhsOattrOrderCollect =- ({-# LINE 893 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2938 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 46, column 19)- _lhsOblocks =- ({-# LINE 46 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2944 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 164, column 32)- _lhsOcollectedArounds =- ({-# LINE 164 "src-ag/Transform.ag" #-}- []- {-# LINE 2950 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 163, column 32)- _lhsOcollectedAugments =- ({-# LINE 163 "src-ag/Transform.ag" #-}- []- {-# LINE 2956 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 132, column 31)- _lhsOcollectedConParams =- ({-# LINE 132 "src-ag/Transform.ag" #-}- []- {-# LINE 2962 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 131, column 33)- _lhsOcollectedConstraints =- ({-# LINE 131 "src-ag/Transform.ag" #-}- []- {-# LINE 2968 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 99, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 99 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 2974 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 130, column 28)- _lhsOcollectedFields =- ({-# LINE 130 "src-ag/Transform.ag" #-}- []- {-# LINE 2980 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 161, column 32)- _lhsOcollectedInsts =- ({-# LINE 161 "src-ag/Transform.ag" #-}- []- {-# LINE 2986 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1283, column 28)- _lhsOcollectedMacros =- ({-# LINE 1283 "src-ag/Transform.ag" #-}- []- {-# LINE 2992 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 165, column 32)- _lhsOcollectedMerges =- ({-# LINE 165 "src-ag/Transform.ag" #-}- []- {-# LINE 2998 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 91, column 50)- _lhsOcollectedNames =- ({-# LINE 91 "src-ag/Transform.ag" #-}- _setIcollectedNames- {-# LINE 3004 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 159, column 32)- _lhsOcollectedRules =- ({-# LINE 159 "src-ag/Transform.ag" #-}- []- {-# LINE 3010 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 90, column 50)- _lhsOcollectedSetNames =- ({-# LINE 90 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 3016 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 160, column 32)- _lhsOcollectedSigs =- ({-# LINE 160 "src-ag/Transform.ag" #-}- []- {-# LINE 3022 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 162, column 32)- _lhsOcollectedUniques =- ({-# LINE 162 "src-ag/Transform.ag" #-}- []- {-# LINE 3028 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 948, column 34)- _lhsOctxCollect =- ({-# LINE 948 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3034 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 990, column 33)- _lhsOderivings =- ({-# LINE 990 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3040 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- _setIerrors- {-# LINE 3046 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1187, column 37)- _lhsOmoduleDecl =- ({-# LINE 1187 "src-ag/Transform.ag" #-}- mzero- {-# LINE 3052 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 925, column 37)- _lhsOparamsCollect =- ({-# LINE 925 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3058 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 973, column 36)- _lhsOquantCollect =- ({-# LINE 973 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3064 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 865, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 865 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3070 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 626, column 32)- _lhsOtypeSyns =- ({-# LINE 626 "src-ag/Transform.ag" #-}- []- {-# LINE 3076 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 145, column 15)- _lhsOuseMap =- ({-# LINE 145 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3082 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 771, column 32)- _lhsOwrappers =- ({-# LINE 771 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 3088 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 144 "src-ag/Transform.ag" #-}- _lhsIattrDecls- {-# LINE 3094 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOattrs =- ({-# LINE 1316 "src-ag/Transform.ag" #-}- _lhsIattrs- {-# LINE 3100 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 109 "src-ag/Transform.ag" #-}- _lhsIdefSets- {-# LINE 3106 "dist/build/Transform" #-}- )- -- copy rule (down)- _setOallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 3112 "dist/build/Transform" #-}- )- -- copy rule (down)- _setOallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 3118 "dist/build/Transform" #-}- )- -- copy rule (down)- _setOdefinedSets =- ({-# LINE 112 "src-ag/Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 3124 "dist/build/Transform" #-}- )- ( _setIcollectedNames,_setIerrors,_setInontSet) =- set_ _setOallFields _setOallNonterminals _setOdefinedSets- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))-sem_Elem_Pragma :: Pos ->- ([NontermIdent]) ->- T_Elem-sem_Elem_Pragma pos_ names_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallAttrs- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIattrs- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOpragmas :: (Options -> Options)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- _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- _lhsOquantCollect :: QuantMap- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOattrs :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- "src-ag/Transform.ag"(line 790, column 13)- _lhsOpragmas =- ({-# LINE 790 "src-ag/Transform.ag" #-}- let mk n o = case getName n of- "gencatas" -> o { folds = True }- "nogencatas" -> o { folds = False }- "gendatas" -> o { dataTypes = True }- "datarecords" -> o { dataRecords = 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 }- "nooptimizations" -> o { noOptimizations = True }- "kennedywarren" -> o { kennedyWarren = True }- "aspectag" -> o { genAspectAG = True }- 'n':'o':'g':'r':'o':'u':'p':'_':atts- -> o { noGroup = extract atts ++ noGroup o }- "rename" -> o { rename = True }- "parallel" -> o { parallelInvoke = True }- "monadicwrappers" -> o { monadicWrappers = True }- "dummytokenvisit" -> o { dummyTokenVisit = True }- "tupleasdummytoken" -> o { tupleAsDummyToken = True }- "stateasdummytoken" -> o { tupleAsDummyToken = False }- "strictdummytoken" -> o { strictDummyToken = True }- "noperruletypesigs" -> o { noPerRuleTypeSigs = True }- "noperstatetypesigs" -> o { noPerStateTypeSigs = True }- "noeagerblackholing" -> o { noEagerBlackholing = True }- "noperrulecostcentres" -> o { noPerRuleCostCentres = True }- "nopervisitcostcentres" -> o { noPerVisitCostCentres = True }- "helpinlining" -> o { helpInlining = True }- "noinlinepragmas" -> o { noInlinePragmas = True }- "aggressiveinlinepragmas" -> o { aggressiveInlinePragmas = True }- "latehigherorderbindings" -> o { lateHigherOrderBinding = True }- s -> trace ("uuagc: ignoring unknown pragma: " ++ s) o- in \o -> foldr mk o names_- {-# LINE 3240 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 893, column 55)- _lhsOattrOrderCollect =- ({-# LINE 893 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3246 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 46, column 19)- _lhsOblocks =- ({-# LINE 46 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3252 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 164, column 32)- _lhsOcollectedArounds =- ({-# LINE 164 "src-ag/Transform.ag" #-}- []- {-# LINE 3258 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 163, column 32)- _lhsOcollectedAugments =- ({-# LINE 163 "src-ag/Transform.ag" #-}- []- {-# LINE 3264 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 132, column 31)- _lhsOcollectedConParams =- ({-# LINE 132 "src-ag/Transform.ag" #-}- []- {-# LINE 3270 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 131, column 33)- _lhsOcollectedConstraints =- ({-# LINE 131 "src-ag/Transform.ag" #-}- []- {-# LINE 3276 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 99, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 99 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3282 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 130, column 28)- _lhsOcollectedFields =- ({-# LINE 130 "src-ag/Transform.ag" #-}- []- {-# LINE 3288 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 161, column 32)- _lhsOcollectedInsts =- ({-# LINE 161 "src-ag/Transform.ag" #-}- []- {-# LINE 3294 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1283, column 28)- _lhsOcollectedMacros =- ({-# LINE 1283 "src-ag/Transform.ag" #-}- []- {-# LINE 3300 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 165, column 32)- _lhsOcollectedMerges =- ({-# LINE 165 "src-ag/Transform.ag" #-}- []- {-# LINE 3306 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 91, column 50)- _lhsOcollectedNames =- ({-# LINE 91 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 3312 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 159, column 32)- _lhsOcollectedRules =- ({-# LINE 159 "src-ag/Transform.ag" #-}- []- {-# LINE 3318 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 90, column 50)- _lhsOcollectedSetNames =- ({-# LINE 90 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 3324 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 160, column 32)- _lhsOcollectedSigs =- ({-# LINE 160 "src-ag/Transform.ag" #-}- []- {-# LINE 3330 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 162, column 32)- _lhsOcollectedUniques =- ({-# LINE 162 "src-ag/Transform.ag" #-}- []- {-# LINE 3336 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 948, column 34)- _lhsOctxCollect =- ({-# LINE 948 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3342 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 990, column 33)- _lhsOderivings =- ({-# LINE 990 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3348 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- Seq.empty- {-# LINE 3354 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1187, column 37)- _lhsOmoduleDecl =- ({-# LINE 1187 "src-ag/Transform.ag" #-}- mzero- {-# LINE 3360 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 925, column 37)- _lhsOparamsCollect =- ({-# LINE 925 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3366 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 973, column 36)- _lhsOquantCollect =- ({-# LINE 973 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3372 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 865, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 865 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3378 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 626, column 32)- _lhsOtypeSyns =- ({-# LINE 626 "src-ag/Transform.ag" #-}- []- {-# LINE 3384 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 145, column 15)- _lhsOuseMap =- ({-# LINE 145 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3390 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 771, column 32)- _lhsOwrappers =- ({-# LINE 771 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 3396 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 144 "src-ag/Transform.ag" #-}- _lhsIattrDecls- {-# LINE 3402 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOattrs =- ({-# LINE 1316 "src-ag/Transform.ag" #-}- _lhsIattrs- {-# LINE 3408 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 109 "src-ag/Transform.ag" #-}- _lhsIdefSets- {-# LINE 3414 "dist/build/Transform" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))-sem_Elem_Sem :: Pos ->- ClassContext ->- T_NontSet ->- T_Attrs ->- ([String]) ->- T_SemAlts ->- T_Elem-sem_Elem_Sem pos_ ctx_ (T_NontSet names_) (T_Attrs attrs_) quants_ (T_SemAlts alts_) =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallAttrs- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIattrs- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _altsOnts :: (Set NontermIdent)- _lhsOctxCollect :: ContextMap- _lhsOquantCollect :: QuantMap- _attrsOnts :: (Set NontermIdent)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- _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))- _lhsOattrs :: (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))- _attrsOattrs :: (Map NontermIdent (Attributes, Attributes))- _attrsOoptions :: Options- _altsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _altsOallAttrs :: (Map NontermIdent (Attributes, Attributes))- _altsOallFields :: DataTypes- _altsOoptions :: Options- _namesIcollectedNames :: (Set Identifier)- _namesIerrors :: (Seq Error)- _namesInontSet :: (Set NontermIdent)- _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _attrsIattrs :: (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- -- "src-ag/Transform.ag"(line 179, column 10)- _altsOnts =- ({-# LINE 179 "src-ag/Transform.ag" #-}- _namesInontSet- {-# LINE 3500 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 952, column 7)- _lhsOctxCollect =- ({-# LINE 952 "src-ag/Transform.ag" #-}- if null ctx_- then Map.empty- else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]- {-# LINE 3508 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 977, column 7)- _lhsOquantCollect =- ({-# LINE 977 "src-ag/Transform.ag" #-}- if null quants_- then Map.empty- else Map.fromList [(nt, quants_) | nt <- Set.toList _namesInontSet]- {-# LINE 3516 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1014, column 10)- _attrsOnts =- ({-# LINE 1014 "src-ag/Transform.ag" #-}- _namesInontSet- {-# LINE 3522 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 893, column 55)- _lhsOattrOrderCollect =- ({-# LINE 893 "src-ag/Transform.ag" #-}- _altsIattrOrderCollect- {-# LINE 3528 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 46, column 19)- _lhsOblocks =- ({-# LINE 46 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3534 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 164, column 32)- _lhsOcollectedArounds =- ({-# LINE 164 "src-ag/Transform.ag" #-}- _altsIcollectedArounds- {-# LINE 3540 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 163, column 32)- _lhsOcollectedAugments =- ({-# LINE 163 "src-ag/Transform.ag" #-}- _altsIcollectedAugments- {-# LINE 3546 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 132, column 31)- _lhsOcollectedConParams =- ({-# LINE 132 "src-ag/Transform.ag" #-}- []- {-# LINE 3552 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 131, column 33)- _lhsOcollectedConstraints =- ({-# LINE 131 "src-ag/Transform.ag" #-}- []- {-# LINE 3558 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 99, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 99 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3564 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 130, column 28)- _lhsOcollectedFields =- ({-# LINE 130 "src-ag/Transform.ag" #-}- []- {-# LINE 3570 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 161, column 32)- _lhsOcollectedInsts =- ({-# LINE 161 "src-ag/Transform.ag" #-}- _altsIcollectedInsts- {-# LINE 3576 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1283, column 28)- _lhsOcollectedMacros =- ({-# LINE 1283 "src-ag/Transform.ag" #-}- []- {-# LINE 3582 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 165, column 32)- _lhsOcollectedMerges =- ({-# LINE 165 "src-ag/Transform.ag" #-}- _altsIcollectedMerges- {-# LINE 3588 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 91, column 50)- _lhsOcollectedNames =- ({-# LINE 91 "src-ag/Transform.ag" #-}- _namesIcollectedNames- {-# LINE 3594 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 159, column 32)- _lhsOcollectedRules =- ({-# LINE 159 "src-ag/Transform.ag" #-}- _altsIcollectedRules- {-# LINE 3600 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 90, column 50)- _lhsOcollectedSetNames =- ({-# LINE 90 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 3606 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 160, column 32)- _lhsOcollectedSigs =- ({-# LINE 160 "src-ag/Transform.ag" #-}- _altsIcollectedSigs- {-# LINE 3612 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 162, column 32)- _lhsOcollectedUniques =- ({-# LINE 162 "src-ag/Transform.ag" #-}- _altsIcollectedUniques- {-# LINE 3618 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 990, column 33)- _lhsOderivings =- ({-# LINE 990 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3624 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- _namesIerrors Seq.>< _attrsIerrors Seq.>< _altsIerrors- {-# LINE 3630 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1187, column 37)- _lhsOmoduleDecl =- ({-# LINE 1187 "src-ag/Transform.ag" #-}- mzero- {-# LINE 3636 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 925, column 37)- _lhsOparamsCollect =- ({-# LINE 925 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3642 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 787, column 34)- _lhsOpragmas =- ({-# LINE 787 "src-ag/Transform.ag" #-}- id- {-# LINE 3648 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 865, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 865 "src-ag/Transform.ag" #-}- _altsIsemPragmasCollect- {-# LINE 3654 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 626, column 32)- _lhsOtypeSyns =- ({-# LINE 626 "src-ag/Transform.ag" #-}- []- {-# LINE 3660 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 145, column 15)- _lhsOuseMap =- ({-# LINE 145 "src-ag/Transform.ag" #-}- _attrsIuseMap- {-# LINE 3666 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 771, column 32)- _lhsOwrappers =- ({-# LINE 771 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 3672 "dist/build/Transform" #-}- )- -- copy rule (up)- _lhsOattrDecls =- ({-# LINE 144 "src-ag/Transform.ag" #-}- _attrsIattrDecls- {-# LINE 3678 "dist/build/Transform" #-}- )- -- copy rule (up)- _lhsOattrs =- ({-# LINE 1316 "src-ag/Transform.ag" #-}- _attrsIattrs- {-# LINE 3684 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 109 "src-ag/Transform.ag" #-}- _lhsIdefSets- {-# LINE 3690 "dist/build/Transform" #-}- )- -- copy rule (down)- _namesOallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 3696 "dist/build/Transform" #-}- )- -- copy rule (down)- _namesOallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 3702 "dist/build/Transform" #-}- )- -- copy rule (down)- _namesOdefinedSets =- ({-# LINE 112 "src-ag/Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 3708 "dist/build/Transform" #-}- )- -- copy rule (down)- _attrsOallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 3714 "dist/build/Transform" #-}- )- -- copy rule (down)- _attrsOallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 3720 "dist/build/Transform" #-}- )- -- copy rule (down)- _attrsOattrDecls =- ({-# LINE 144 "src-ag/Transform.ag" #-}- _lhsIattrDecls- {-# LINE 3726 "dist/build/Transform" #-}- )- -- copy rule (down)- _attrsOattrs =- ({-# LINE 1316 "src-ag/Transform.ag" #-}- _lhsIattrs- {-# LINE 3732 "dist/build/Transform" #-}- )- -- copy rule (down)- _attrsOoptions =- ({-# LINE 40 "src-ag/Transform.ag" #-}- _lhsIoptions- {-# LINE 3738 "dist/build/Transform" #-}- )- -- copy rule (down)- _altsOallAttrDecls =- ({-# LINE 894 "src-ag/Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 3744 "dist/build/Transform" #-}- )- -- copy rule (down)- _altsOallAttrs =- ({-# LINE 1306 "src-ag/Transform.ag" #-}- _lhsIallAttrs- {-# LINE 3750 "dist/build/Transform" #-}- )- -- copy rule (down)- _altsOallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 3756 "dist/build/Transform" #-}- )- -- copy rule (down)- _altsOoptions =- ({-# LINE 40 "src-ag/Transform.ag" #-}- _lhsIoptions- {-# LINE 3762 "dist/build/Transform" #-}- )- ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =- names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets- ( _attrsIattrDecls,_attrsIattrs,_attrsIerrors,_attrsIuseMap) =- attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOattrs _attrsOnts _attrsOoptions- ( _altsIattrOrderCollect,_altsIcollectedArounds,_altsIcollectedAugments,_altsIcollectedInsts,_altsIcollectedMerges,_altsIcollectedRules,_altsIcollectedSigs,_altsIcollectedUniques,_altsIerrors,_altsIsemPragmasCollect) =- alts_ _altsOallAttrDecls _altsOallAttrs _altsOallFields _altsOnts _altsOoptions- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_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- _lhsIallAttrs- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIattrs- _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]) ])- _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- _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)- _lhsOquantCollect :: QuantMap- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOattrs :: (Map NontermIdent (Attributes, Attributes))- _setOallFields :: DataTypes- _setOallNonterminals :: (Set NontermIdent)- _setOdefinedSets :: DefinedSets- _setIcollectedNames :: (Set Identifier)- _setIerrors :: (Seq Error)- _setInontSet :: (Set NontermIdent)- -- "src-ag/Transform.ag"(line 582, column 10)- _lhsOcollectedSetNames =- ({-# LINE 582 "src-ag/Transform.ag" #-}- Set.singleton name_- {-# LINE 3827 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 699, column 13)- (_defSets2,_errs) =- ({-# LINE 699 "src-ag/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 3846 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 713, column 9)- _lhsOdefSets =- ({-# LINE 713 "src-ag/Transform.ag" #-}- _defSets2- {-# LINE 3852 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 713, column 9)- _lhsOerrors =- ({-# LINE 714 "src-ag/Transform.ag" #-}- _errs >< _setIerrors- {-# LINE 3858 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 893, column 55)- _lhsOattrOrderCollect =- ({-# LINE 893 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3864 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 46, column 19)- _lhsOblocks =- ({-# LINE 46 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3870 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 164, column 32)- _lhsOcollectedArounds =- ({-# LINE 164 "src-ag/Transform.ag" #-}- []- {-# LINE 3876 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 163, column 32)- _lhsOcollectedAugments =- ({-# LINE 163 "src-ag/Transform.ag" #-}- []- {-# LINE 3882 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 132, column 31)- _lhsOcollectedConParams =- ({-# LINE 132 "src-ag/Transform.ag" #-}- []- {-# LINE 3888 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 131, column 33)- _lhsOcollectedConstraints =- ({-# LINE 131 "src-ag/Transform.ag" #-}- []- {-# LINE 3894 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 99, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 99 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3900 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 130, column 28)- _lhsOcollectedFields =- ({-# LINE 130 "src-ag/Transform.ag" #-}- []- {-# LINE 3906 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 161, column 32)- _lhsOcollectedInsts =- ({-# LINE 161 "src-ag/Transform.ag" #-}- []- {-# LINE 3912 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1283, column 28)- _lhsOcollectedMacros =- ({-# LINE 1283 "src-ag/Transform.ag" #-}- []- {-# LINE 3918 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 165, column 32)- _lhsOcollectedMerges =- ({-# LINE 165 "src-ag/Transform.ag" #-}- []- {-# LINE 3924 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 91, column 50)- _lhsOcollectedNames =- ({-# LINE 91 "src-ag/Transform.ag" #-}- _setIcollectedNames- {-# LINE 3930 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 159, column 32)- _lhsOcollectedRules =- ({-# LINE 159 "src-ag/Transform.ag" #-}- []- {-# LINE 3936 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 160, column 32)- _lhsOcollectedSigs =- ({-# LINE 160 "src-ag/Transform.ag" #-}- []- {-# LINE 3942 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 162, column 32)- _lhsOcollectedUniques =- ({-# LINE 162 "src-ag/Transform.ag" #-}- []- {-# LINE 3948 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 948, column 34)- _lhsOctxCollect =- ({-# LINE 948 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3954 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 990, column 33)- _lhsOderivings =- ({-# LINE 990 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3960 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1187, column 37)- _lhsOmoduleDecl =- ({-# LINE 1187 "src-ag/Transform.ag" #-}- mzero- {-# LINE 3966 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 925, column 37)- _lhsOparamsCollect =- ({-# LINE 925 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3972 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 787, column 34)- _lhsOpragmas =- ({-# LINE 787 "src-ag/Transform.ag" #-}- id- {-# LINE 3978 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 973, column 36)- _lhsOquantCollect =- ({-# LINE 973 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3984 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 865, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 865 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 3990 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 626, column 32)- _lhsOtypeSyns =- ({-# LINE 626 "src-ag/Transform.ag" #-}- []- {-# LINE 3996 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 145, column 15)- _lhsOuseMap =- ({-# LINE 145 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4002 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 771, column 32)- _lhsOwrappers =- ({-# LINE 771 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 4008 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 144 "src-ag/Transform.ag" #-}- _lhsIattrDecls- {-# LINE 4014 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOattrs =- ({-# LINE 1316 "src-ag/Transform.ag" #-}- _lhsIattrs- {-# LINE 4020 "dist/build/Transform" #-}- )- -- copy rule (down)- _setOallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 4026 "dist/build/Transform" #-}- )- -- copy rule (down)- _setOallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4032 "dist/build/Transform" #-}- )- -- copy rule (down)- _setOdefinedSets =- ({-# LINE 112 "src-ag/Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4038 "dist/build/Transform" #-}- )- ( _setIcollectedNames,_setIerrors,_setInontSet) =- set_ _setOallFields _setOallNonterminals _setOdefinedSets- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))-sem_Elem_Txt :: Pos ->- BlockKind ->- (Maybe NontermIdent) ->- ([String]) ->- T_Elem-sem_Elem_Txt pos_ kind_ mbNt_ lines_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallAttrs- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIattrs- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOblocks :: Blocks- _lhsOerrors :: (Seq Error)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- _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)- _lhsOquantCollect :: QuantMap- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOattrs :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- "src-ag/Transform.ag"(line 188, column 10)- _blockInfo =- ({-# LINE 188 "src-ag/Transform.ag" #-}- ( kind_- , mbNt_- )- {-# LINE 4095 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 191, column 10)- _blockValue =- ({-# LINE 191 "src-ag/Transform.ag" #-}- [(lines_, pos_)]- {-# LINE 4101 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 192, column 10)- _lhsOblocks =- ({-# LINE 192 "src-ag/Transform.ag" #-}- Map.singleton _blockInfo _blockValue- {-# LINE 4107 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 193, column 10)- _lhsOerrors =- ({-# LINE 193 "src-ag/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 4118 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 893, column 55)- _lhsOattrOrderCollect =- ({-# LINE 893 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4124 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 164, column 32)- _lhsOcollectedArounds =- ({-# LINE 164 "src-ag/Transform.ag" #-}- []- {-# LINE 4130 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 163, column 32)- _lhsOcollectedAugments =- ({-# LINE 163 "src-ag/Transform.ag" #-}- []- {-# LINE 4136 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 132, column 31)- _lhsOcollectedConParams =- ({-# LINE 132 "src-ag/Transform.ag" #-}- []- {-# LINE 4142 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 131, column 33)- _lhsOcollectedConstraints =- ({-# LINE 131 "src-ag/Transform.ag" #-}- []- {-# LINE 4148 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 99, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 99 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4154 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 130, column 28)- _lhsOcollectedFields =- ({-# LINE 130 "src-ag/Transform.ag" #-}- []- {-# LINE 4160 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 161, column 32)- _lhsOcollectedInsts =- ({-# LINE 161 "src-ag/Transform.ag" #-}- []- {-# LINE 4166 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1283, column 28)- _lhsOcollectedMacros =- ({-# LINE 1283 "src-ag/Transform.ag" #-}- []- {-# LINE 4172 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 165, column 32)- _lhsOcollectedMerges =- ({-# LINE 165 "src-ag/Transform.ag" #-}- []- {-# LINE 4178 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 91, column 50)- _lhsOcollectedNames =- ({-# LINE 91 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 4184 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 159, column 32)- _lhsOcollectedRules =- ({-# LINE 159 "src-ag/Transform.ag" #-}- []- {-# LINE 4190 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 90, column 50)- _lhsOcollectedSetNames =- ({-# LINE 90 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 4196 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 160, column 32)- _lhsOcollectedSigs =- ({-# LINE 160 "src-ag/Transform.ag" #-}- []- {-# LINE 4202 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 162, column 32)- _lhsOcollectedUniques =- ({-# LINE 162 "src-ag/Transform.ag" #-}- []- {-# LINE 4208 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 948, column 34)- _lhsOctxCollect =- ({-# LINE 948 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4214 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 990, column 33)- _lhsOderivings =- ({-# LINE 990 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4220 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1187, column 37)- _lhsOmoduleDecl =- ({-# LINE 1187 "src-ag/Transform.ag" #-}- mzero- {-# LINE 4226 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 925, column 37)- _lhsOparamsCollect =- ({-# LINE 925 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4232 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 787, column 34)- _lhsOpragmas =- ({-# LINE 787 "src-ag/Transform.ag" #-}- id- {-# LINE 4238 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 973, column 36)- _lhsOquantCollect =- ({-# LINE 973 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4244 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 865, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 865 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4250 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 626, column 32)- _lhsOtypeSyns =- ({-# LINE 626 "src-ag/Transform.ag" #-}- []- {-# LINE 4256 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 145, column 15)- _lhsOuseMap =- ({-# LINE 145 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4262 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 771, column 32)- _lhsOwrappers =- ({-# LINE 771 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 4268 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 144 "src-ag/Transform.ag" #-}- _lhsIattrDecls- {-# LINE 4274 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOattrs =- ({-# LINE 1316 "src-ag/Transform.ag" #-}- _lhsIattrs- {-# LINE 4280 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 109 "src-ag/Transform.ag" #-}- _lhsIdefSets- {-# LINE 4286 "dist/build/Transform" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_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- _lhsIallAttrs- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIattrs- _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]) ])- _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- _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)- _lhsOquantCollect :: QuantMap- _lhsOsemPragmasCollect :: PragmaMap- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOattrs :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- "src-ag/Transform.ag"(line 255, column 10)- _lhsOcollectedFields =- ({-# LINE 255 "src-ag/Transform.ag" #-}- map (\(x,y)->(name_, x, y)) _expanded- {-# LINE 4340 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 585, column 11)- _lhsOcollectedNames =- ({-# LINE 585 "src-ag/Transform.ag" #-}- Set.singleton name_- {-# LINE 4346 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 639, column 11)- _expanded =- ({-# LINE 639 "src-ag/Transform.ag" #-}- case _argType of- List tp -> [(Ident "Cons" pos_, [(Ident "hd" pos_, tp)- ,(Ident "tl" pos_, NT name_ (map getName params_) False)- ]- )- ,(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_) False)- ])- , (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_) False)- ])- , (Ident "Nil" pos_, [])- ]- OrdSet tp -> [ (Ident "Entry" pos_, [ (Ident "val" pos_, tp)- , (Ident "tl" pos_, NT name_ (map getName params_) False) ])- , (Ident "Nil" pos_, [])- ]- IntSet -> [ (Ident "Entry" pos_, [ (Ident "val" pos_, Haskell "Int")- , (Ident "tl" pos_, NT name_ (map getName params_) False) ])- , (Ident "Nil" pos_, [])- ]- Tuple xs -> [(Ident "Tuple" pos_, xs)]- {-# LINE 4388 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 676, column 11)- _argType =- ({-# LINE 676 "src-ag/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)- OrdSet tp -> OrdSet ( makeType _lhsIallNonterminals tp)- IntSet -> IntSet- {-# LINE 4402 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 685, column 11)- _lhsOtypeSyns =- ({-# LINE 685 "src-ag/Transform.ag" #-}- [(name_,_argType)]- {-# LINE 4408 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 935, column 7)- _lhsOparamsCollect =- ({-# LINE 935 "src-ag/Transform.ag" #-}- if null params_- then Map.empty- else Map.singleton name_ params_- {-# LINE 4416 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 958, column 7)- _lhsOctxCollect =- ({-# LINE 958 "src-ag/Transform.ag" #-}- if null ctx_- then Map.empty- else Map.singleton name_ ctx_- {-# LINE 4424 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 893, column 55)- _lhsOattrOrderCollect =- ({-# LINE 893 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4430 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 46, column 19)- _lhsOblocks =- ({-# LINE 46 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4436 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 164, column 32)- _lhsOcollectedArounds =- ({-# LINE 164 "src-ag/Transform.ag" #-}- []- {-# LINE 4442 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 163, column 32)- _lhsOcollectedAugments =- ({-# LINE 163 "src-ag/Transform.ag" #-}- []- {-# LINE 4448 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 132, column 31)- _lhsOcollectedConParams =- ({-# LINE 132 "src-ag/Transform.ag" #-}- []- {-# LINE 4454 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 131, column 33)- _lhsOcollectedConstraints =- ({-# LINE 131 "src-ag/Transform.ag" #-}- []- {-# LINE 4460 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 99, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 99 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4466 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 161, column 32)- _lhsOcollectedInsts =- ({-# LINE 161 "src-ag/Transform.ag" #-}- []- {-# LINE 4472 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1283, column 28)- _lhsOcollectedMacros =- ({-# LINE 1283 "src-ag/Transform.ag" #-}- []- {-# LINE 4478 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 165, column 32)- _lhsOcollectedMerges =- ({-# LINE 165 "src-ag/Transform.ag" #-}- []- {-# LINE 4484 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 159, column 32)- _lhsOcollectedRules =- ({-# LINE 159 "src-ag/Transform.ag" #-}- []- {-# LINE 4490 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 90, column 50)- _lhsOcollectedSetNames =- ({-# LINE 90 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 4496 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 160, column 32)- _lhsOcollectedSigs =- ({-# LINE 160 "src-ag/Transform.ag" #-}- []- {-# LINE 4502 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 162, column 32)- _lhsOcollectedUniques =- ({-# LINE 162 "src-ag/Transform.ag" #-}- []- {-# LINE 4508 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 990, column 33)- _lhsOderivings =- ({-# LINE 990 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4514 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- Seq.empty- {-# LINE 4520 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1187, column 37)- _lhsOmoduleDecl =- ({-# LINE 1187 "src-ag/Transform.ag" #-}- mzero- {-# LINE 4526 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 787, column 34)- _lhsOpragmas =- ({-# LINE 787 "src-ag/Transform.ag" #-}- id- {-# LINE 4532 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 973, column 36)- _lhsOquantCollect =- ({-# LINE 973 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4538 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 865, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 865 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4544 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 145, column 15)- _lhsOuseMap =- ({-# LINE 145 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4550 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 771, column 32)- _lhsOwrappers =- ({-# LINE 771 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 4556 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 144 "src-ag/Transform.ag" #-}- _lhsIattrDecls- {-# LINE 4562 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOattrs =- ({-# LINE 1316 "src-ag/Transform.ag" #-}- _lhsIattrs- {-# LINE 4568 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 109 "src-ag/Transform.ag" #-}- _lhsIdefSets- {-# LINE 4574 "dist/build/Transform" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))-sem_Elem_Wrapper :: Pos ->- T_NontSet ->- T_Elem-sem_Elem_Wrapper pos_ (T_NontSet set_) =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallAttrs- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIattrs- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOwrappers :: (Set NontermIdent)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- _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)- _lhsOquantCollect :: QuantMap- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOattrs :: (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)- -- "src-ag/Transform.ag"(line 774, column 13)- _lhsOwrappers =- ({-# LINE 774 "src-ag/Transform.ag" #-}- _setInontSet- {-# LINE 4631 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 893, column 55)- _lhsOattrOrderCollect =- ({-# LINE 893 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4637 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 46, column 19)- _lhsOblocks =- ({-# LINE 46 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4643 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 164, column 32)- _lhsOcollectedArounds =- ({-# LINE 164 "src-ag/Transform.ag" #-}- []- {-# LINE 4649 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 163, column 32)- _lhsOcollectedAugments =- ({-# LINE 163 "src-ag/Transform.ag" #-}- []- {-# LINE 4655 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 132, column 31)- _lhsOcollectedConParams =- ({-# LINE 132 "src-ag/Transform.ag" #-}- []- {-# LINE 4661 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 131, column 33)- _lhsOcollectedConstraints =- ({-# LINE 131 "src-ag/Transform.ag" #-}- []- {-# LINE 4667 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 99, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 99 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4673 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 130, column 28)- _lhsOcollectedFields =- ({-# LINE 130 "src-ag/Transform.ag" #-}- []- {-# LINE 4679 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 161, column 32)- _lhsOcollectedInsts =- ({-# LINE 161 "src-ag/Transform.ag" #-}- []- {-# LINE 4685 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1283, column 28)- _lhsOcollectedMacros =- ({-# LINE 1283 "src-ag/Transform.ag" #-}- []- {-# LINE 4691 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 165, column 32)- _lhsOcollectedMerges =- ({-# LINE 165 "src-ag/Transform.ag" #-}- []- {-# LINE 4697 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 91, column 50)- _lhsOcollectedNames =- ({-# LINE 91 "src-ag/Transform.ag" #-}- _setIcollectedNames- {-# LINE 4703 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 159, column 32)- _lhsOcollectedRules =- ({-# LINE 159 "src-ag/Transform.ag" #-}- []- {-# LINE 4709 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 90, column 50)- _lhsOcollectedSetNames =- ({-# LINE 90 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 4715 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 160, column 32)- _lhsOcollectedSigs =- ({-# LINE 160 "src-ag/Transform.ag" #-}- []- {-# LINE 4721 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 162, column 32)- _lhsOcollectedUniques =- ({-# LINE 162 "src-ag/Transform.ag" #-}- []- {-# LINE 4727 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 948, column 34)- _lhsOctxCollect =- ({-# LINE 948 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4733 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 990, column 33)- _lhsOderivings =- ({-# LINE 990 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4739 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- _setIerrors- {-# LINE 4745 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1187, column 37)- _lhsOmoduleDecl =- ({-# LINE 1187 "src-ag/Transform.ag" #-}- mzero- {-# LINE 4751 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 925, column 37)- _lhsOparamsCollect =- ({-# LINE 925 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4757 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 787, column 34)- _lhsOpragmas =- ({-# LINE 787 "src-ag/Transform.ag" #-}- id- {-# LINE 4763 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 973, column 36)- _lhsOquantCollect =- ({-# LINE 973 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4769 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 865, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 865 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4775 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 626, column 32)- _lhsOtypeSyns =- ({-# LINE 626 "src-ag/Transform.ag" #-}- []- {-# LINE 4781 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 145, column 15)- _lhsOuseMap =- ({-# LINE 145 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 4787 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 144 "src-ag/Transform.ag" #-}- _lhsIattrDecls- {-# LINE 4793 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOattrs =- ({-# LINE 1316 "src-ag/Transform.ag" #-}- _lhsIattrs- {-# LINE 4799 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 109 "src-ag/Transform.ag" #-}- _lhsIdefSets- {-# LINE 4805 "dist/build/Transform" #-}- )- -- copy rule (down)- _setOallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 4811 "dist/build/Transform" #-}- )- -- copy rule (down)- _setOallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4817 "dist/build/Transform" #-}- )- -- copy rule (down)- _setOdefinedSets =- ({-# LINE 112 "src-ag/Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4823 "dist/build/Transform" #-}- )- ( _setIcollectedNames,_setIerrors,_setInontSet) =- set_ _setOallFields _setOallNonterminals _setOdefinedSets- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))--- Elems --------------------------------------------------------{-- visit 0:- inherited attributes:- allAttrDecls : Map NontermIdent (Attributes, Attributes)- allAttrs : 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)- attrs : 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]) ]- collectedConParams : [(NontermIdent, ConstructorIdent, Set Identifier)]- collectedConstraints : [(NontermIdent, ConstructorIdent, [Type])]- collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent)- collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]- collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]- collectedMacros : [(NontermIdent, ConstructorIdent, MaybeMacro)]- 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- quantCollect : QuantMap- 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 (Attributes, Attributes)) ->- (Map NontermIdent (Set ConstructorIdent)) ->- DataTypes ->- (Set NontermIdent) ->- (Map NontermIdent (Attributes, Attributes)) ->- (Map NontermIdent (Attributes, Attributes)) ->- (Map Identifier (Set NontermIdent,Set Identifier)) ->- DefinedSets ->- Options ->- ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,(Map NontermIdent (Attributes, Attributes)),Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([(NontermIdent, ConstructorIdent, Set Identifier)]),([(NontermIdent, ConstructorIdent, [Type])]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([(NontermIdent, ConstructorIdent, MaybeMacro)]),([ (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),QuantMap,PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent)))-data Inh_Elems = Inh_Elems {allAttrDecls_Inh_Elems :: !((Map NontermIdent (Attributes, Attributes))),allAttrs_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))),attrs_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),attrs_Syn_Elems :: !((Map NontermIdent (Attributes, Attributes))),blocks_Syn_Elems :: !(Blocks),collectedArounds_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConParams_Syn_Elems :: !(([(NontermIdent, ConstructorIdent, Set Identifier)])),collectedConstraints_Syn_Elems :: !(([(NontermIdent, ConstructorIdent, [Type])])),collectedConstructorsMap_Syn_Elems :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elems :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMacros_Syn_Elems :: !(([(NontermIdent, ConstructorIdent, MaybeMacro)])),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)),quantCollect_Syn_Elems :: !(QuantMap),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 _lhsIallAttrs _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIattrs _lhsIdefSets _lhsIdefinedSets _lhsIoptions) =- (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallAttrs _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIattrs _lhsIdefSets _lhsIdefinedSets _lhsIoptions- in (Syn_Elems _lhsOattrDecls _lhsOattrOrderCollect _lhsOattrs _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMacros _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOquantCollect _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- _lhsIallAttrs- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIattrs- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- _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)- _lhsOquantCollect :: QuantMap- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOattrs :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _hdOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _hdOallAttrs :: (Map NontermIdent (Attributes, Attributes))- _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _hdOallFields :: DataTypes- _hdOallNonterminals :: (Set NontermIdent)- _hdOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _hdOattrs :: (Map NontermIdent (Attributes, Attributes))- _hdOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _hdOdefinedSets :: DefinedSets- _hdOoptions :: Options- _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _tlOallAttrs :: (Map NontermIdent (Attributes, Attributes))- _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _tlOallFields :: DataTypes- _tlOallNonterminals :: (Set NontermIdent)- _tlOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _tlOattrs :: (Map NontermIdent (Attributes, Attributes))- _tlOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _tlOdefinedSets :: DefinedSets- _tlOoptions :: Options- _hdIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _hdIattrOrderCollect :: AttrOrderMap- _hdIattrs :: (Map NontermIdent (Attributes, Attributes))- _hdIblocks :: Blocks- _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _hdIcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _hdIcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _hdIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _hdIcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- _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)- _hdIquantCollect :: QuantMap- _hdIsemPragmasCollect :: PragmaMap- _hdItypeSyns :: TypeSyns- _hdIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _hdIwrappers :: (Set NontermIdent)- _tlIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _tlIattrOrderCollect :: AttrOrderMap- _tlIattrs :: (Map NontermIdent (Attributes, Attributes))- _tlIblocks :: Blocks- _tlIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _tlIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _tlIcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _tlIcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _tlIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _tlIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _tlIcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- _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)- _tlIquantCollect :: QuantMap- _tlIsemPragmasCollect :: PragmaMap- _tlItypeSyns :: TypeSyns- _tlIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _tlIwrappers :: (Set NontermIdent)- -- use rule "src-ag/Transform.ag"(line 893, column 55)- _lhsOattrOrderCollect =- ({-# LINE 893 "src-ag/Transform.ag" #-}- _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect- {-# LINE 5030 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 46, column 19)- _lhsOblocks =- ({-# LINE 46 "src-ag/Transform.ag" #-}- _hdIblocks `mapUnionWithPlusPlus` _tlIblocks- {-# LINE 5036 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 164, column 32)- _lhsOcollectedArounds =- ({-# LINE 164 "src-ag/Transform.ag" #-}- _hdIcollectedArounds ++ _tlIcollectedArounds- {-# LINE 5042 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 163, column 32)- _lhsOcollectedAugments =- ({-# LINE 163 "src-ag/Transform.ag" #-}- _hdIcollectedAugments ++ _tlIcollectedAugments- {-# LINE 5048 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 132, column 31)- _lhsOcollectedConParams =- ({-# LINE 132 "src-ag/Transform.ag" #-}- _hdIcollectedConParams ++ _tlIcollectedConParams- {-# LINE 5054 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 131, column 33)- _lhsOcollectedConstraints =- ({-# LINE 131 "src-ag/Transform.ag" #-}- _hdIcollectedConstraints ++ _tlIcollectedConstraints- {-# LINE 5060 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 99, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 99 "src-ag/Transform.ag" #-}- _hdIcollectedConstructorsMap `mapUnionWithSetUnion` _tlIcollectedConstructorsMap- {-# LINE 5066 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 130, column 28)- _lhsOcollectedFields =- ({-# LINE 130 "src-ag/Transform.ag" #-}- _hdIcollectedFields ++ _tlIcollectedFields- {-# LINE 5072 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 161, column 32)- _lhsOcollectedInsts =- ({-# LINE 161 "src-ag/Transform.ag" #-}- _hdIcollectedInsts ++ _tlIcollectedInsts- {-# LINE 5078 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1283, column 28)- _lhsOcollectedMacros =- ({-# LINE 1283 "src-ag/Transform.ag" #-}- _hdIcollectedMacros ++ _tlIcollectedMacros- {-# LINE 5084 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 165, column 32)- _lhsOcollectedMerges =- ({-# LINE 165 "src-ag/Transform.ag" #-}- _hdIcollectedMerges ++ _tlIcollectedMerges- {-# LINE 5090 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 91, column 50)- _lhsOcollectedNames =- ({-# LINE 91 "src-ag/Transform.ag" #-}- _hdIcollectedNames `Set.union` _tlIcollectedNames- {-# LINE 5096 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 159, column 32)- _lhsOcollectedRules =- ({-# LINE 159 "src-ag/Transform.ag" #-}- _hdIcollectedRules ++ _tlIcollectedRules- {-# LINE 5102 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 90, column 50)- _lhsOcollectedSetNames =- ({-# LINE 90 "src-ag/Transform.ag" #-}- _hdIcollectedSetNames `Set.union` _tlIcollectedSetNames- {-# LINE 5108 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 160, column 32)- _lhsOcollectedSigs =- ({-# LINE 160 "src-ag/Transform.ag" #-}- _hdIcollectedSigs ++ _tlIcollectedSigs- {-# LINE 5114 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 162, column 32)- _lhsOcollectedUniques =- ({-# LINE 162 "src-ag/Transform.ag" #-}- _hdIcollectedUniques ++ _tlIcollectedUniques- {-# LINE 5120 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 948, column 34)- _lhsOctxCollect =- ({-# LINE 948 "src-ag/Transform.ag" #-}- _hdIctxCollect `mergeCtx` _tlIctxCollect- {-# LINE 5126 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 990, column 33)- _lhsOderivings =- ({-# LINE 990 "src-ag/Transform.ag" #-}- _hdIderivings `mergeDerivings` _tlIderivings- {-# LINE 5132 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 5138 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1187, column 37)- _lhsOmoduleDecl =- ({-# LINE 1187 "src-ag/Transform.ag" #-}- _hdImoduleDecl `mplus` _tlImoduleDecl- {-# LINE 5144 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 925, column 37)- _lhsOparamsCollect =- ({-# LINE 925 "src-ag/Transform.ag" #-}- _hdIparamsCollect `mergeParams` _tlIparamsCollect- {-# LINE 5150 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 787, column 34)- _lhsOpragmas =- ({-# LINE 787 "src-ag/Transform.ag" #-}- _hdIpragmas . _tlIpragmas- {-# LINE 5156 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 973, column 36)- _lhsOquantCollect =- ({-# LINE 973 "src-ag/Transform.ag" #-}- _hdIquantCollect `mergeQuant` _tlIquantCollect- {-# LINE 5162 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 865, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 865 "src-ag/Transform.ag" #-}- _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect- {-# LINE 5168 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 626, column 32)- _lhsOtypeSyns =- ({-# LINE 626 "src-ag/Transform.ag" #-}- _hdItypeSyns ++ _tlItypeSyns- {-# LINE 5174 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 145, column 15)- _lhsOuseMap =- ({-# LINE 145 "src-ag/Transform.ag" #-}- _hdIuseMap `merge` _tlIuseMap- {-# LINE 5180 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 771, column 32)- _lhsOwrappers =- ({-# LINE 771 "src-ag/Transform.ag" #-}- _hdIwrappers `Set.union` _tlIwrappers- {-# LINE 5186 "dist/build/Transform" #-}- )- -- copy rule (up)- _lhsOattrDecls =- ({-# LINE 144 "src-ag/Transform.ag" #-}- _tlIattrDecls- {-# LINE 5192 "dist/build/Transform" #-}- )- -- copy rule (up)- _lhsOattrs =- ({-# LINE 1316 "src-ag/Transform.ag" #-}- _tlIattrs- {-# LINE 5198 "dist/build/Transform" #-}- )- -- copy rule (up)- _lhsOdefSets =- ({-# LINE 109 "src-ag/Transform.ag" #-}- _tlIdefSets- {-# LINE 5204 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOallAttrDecls =- ({-# LINE 894 "src-ag/Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 5210 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOallAttrs =- ({-# LINE 1306 "src-ag/Transform.ag" #-}- _lhsIallAttrs- {-# LINE 5216 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOallConstructors =- ({-# LINE 101 "src-ag/Transform.ag" #-}- _lhsIallConstructors- {-# LINE 5222 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 5228 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 5234 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOattrDecls =- ({-# LINE 144 "src-ag/Transform.ag" #-}- _lhsIattrDecls- {-# LINE 5240 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOattrs =- ({-# LINE 1316 "src-ag/Transform.ag" #-}- _lhsIattrs- {-# LINE 5246 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOdefSets =- ({-# LINE 109 "src-ag/Transform.ag" #-}- _lhsIdefSets- {-# LINE 5252 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOdefinedSets =- ({-# LINE 112 "src-ag/Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 5258 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 40 "src-ag/Transform.ag" #-}- _lhsIoptions- {-# LINE 5264 "dist/build/Transform" #-}- )- -- copy rule (down)- _tlOallAttrDecls =- ({-# LINE 894 "src-ag/Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 5270 "dist/build/Transform" #-}- )- -- copy rule (down)- _tlOallAttrs =- ({-# LINE 1306 "src-ag/Transform.ag" #-}- _lhsIallAttrs- {-# LINE 5276 "dist/build/Transform" #-}- )- -- copy rule (down)- _tlOallConstructors =- ({-# LINE 101 "src-ag/Transform.ag" #-}- _lhsIallConstructors- {-# LINE 5282 "dist/build/Transform" #-}- )- -- copy rule (down)- _tlOallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 5288 "dist/build/Transform" #-}- )- -- copy rule (down)- _tlOallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 5294 "dist/build/Transform" #-}- )- -- copy rule (chain)- _tlOattrDecls =- ({-# LINE 144 "src-ag/Transform.ag" #-}- _hdIattrDecls- {-# LINE 5300 "dist/build/Transform" #-}- )- -- copy rule (chain)- _tlOattrs =- ({-# LINE 1316 "src-ag/Transform.ag" #-}- _hdIattrs- {-# LINE 5306 "dist/build/Transform" #-}- )- -- copy rule (chain)- _tlOdefSets =- ({-# LINE 109 "src-ag/Transform.ag" #-}- _hdIdefSets- {-# LINE 5312 "dist/build/Transform" #-}- )- -- copy rule (down)- _tlOdefinedSets =- ({-# LINE 112 "src-ag/Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 5318 "dist/build/Transform" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 40 "src-ag/Transform.ag" #-}- _lhsIoptions- {-# LINE 5324 "dist/build/Transform" #-}- )- ( _hdIattrDecls,_hdIattrOrderCollect,_hdIattrs,_hdIblocks,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedConParams,_hdIcollectedConstraints,_hdIcollectedConstructorsMap,_hdIcollectedFields,_hdIcollectedInsts,_hdIcollectedMacros,_hdIcollectedMerges,_hdIcollectedNames,_hdIcollectedRules,_hdIcollectedSetNames,_hdIcollectedSigs,_hdIcollectedUniques,_hdIctxCollect,_hdIdefSets,_hdIderivings,_hdIerrors,_hdImoduleDecl,_hdIparamsCollect,_hdIpragmas,_hdIquantCollect,_hdIsemPragmasCollect,_hdItypeSyns,_hdIuseMap,_hdIwrappers) =- hd_ _hdOallAttrDecls _hdOallAttrs _hdOallConstructors _hdOallFields _hdOallNonterminals _hdOattrDecls _hdOattrs _hdOdefSets _hdOdefinedSets _hdOoptions- ( _tlIattrDecls,_tlIattrOrderCollect,_tlIattrs,_tlIblocks,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedConParams,_tlIcollectedConstraints,_tlIcollectedConstructorsMap,_tlIcollectedFields,_tlIcollectedInsts,_tlIcollectedMacros,_tlIcollectedMerges,_tlIcollectedNames,_tlIcollectedRules,_tlIcollectedSetNames,_tlIcollectedSigs,_tlIcollectedUniques,_tlIctxCollect,_tlIdefSets,_tlIderivings,_tlIerrors,_tlImoduleDecl,_tlIparamsCollect,_tlIpragmas,_tlIquantCollect,_tlIsemPragmasCollect,_tlItypeSyns,_tlIuseMap,_tlIwrappers) =- tl_ _tlOallAttrDecls _tlOallAttrs _tlOallConstructors _tlOallFields _tlOallNonterminals _tlOattrDecls _tlOattrs _tlOdefSets _tlOdefinedSets _tlOoptions- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))-sem_Elems_Nil :: T_Elems-sem_Elems_Nil =- (T_Elems (\ _lhsIallAttrDecls- _lhsIallAttrs- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIattrs- _lhsIdefSets- _lhsIdefinedSets- _lhsIoptions ->- (let _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])- _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])- _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)- _lhsOquantCollect :: QuantMap- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOattrs :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- use rule "src-ag/Transform.ag"(line 893, column 55)- _lhsOattrOrderCollect =- ({-# LINE 893 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 5377 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 46, column 19)- _lhsOblocks =- ({-# LINE 46 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 5383 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 164, column 32)- _lhsOcollectedArounds =- ({-# LINE 164 "src-ag/Transform.ag" #-}- []- {-# LINE 5389 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 163, column 32)- _lhsOcollectedAugments =- ({-# LINE 163 "src-ag/Transform.ag" #-}- []- {-# LINE 5395 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 132, column 31)- _lhsOcollectedConParams =- ({-# LINE 132 "src-ag/Transform.ag" #-}- []- {-# LINE 5401 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 131, column 33)- _lhsOcollectedConstraints =- ({-# LINE 131 "src-ag/Transform.ag" #-}- []- {-# LINE 5407 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 99, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 99 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 5413 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 130, column 28)- _lhsOcollectedFields =- ({-# LINE 130 "src-ag/Transform.ag" #-}- []- {-# LINE 5419 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 161, column 32)- _lhsOcollectedInsts =- ({-# LINE 161 "src-ag/Transform.ag" #-}- []- {-# LINE 5425 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1283, column 28)- _lhsOcollectedMacros =- ({-# LINE 1283 "src-ag/Transform.ag" #-}- []- {-# LINE 5431 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 165, column 32)- _lhsOcollectedMerges =- ({-# LINE 165 "src-ag/Transform.ag" #-}- []- {-# LINE 5437 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 91, column 50)- _lhsOcollectedNames =- ({-# LINE 91 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 5443 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 159, column 32)- _lhsOcollectedRules =- ({-# LINE 159 "src-ag/Transform.ag" #-}- []- {-# LINE 5449 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 90, column 50)- _lhsOcollectedSetNames =- ({-# LINE 90 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 5455 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 160, column 32)- _lhsOcollectedSigs =- ({-# LINE 160 "src-ag/Transform.ag" #-}- []- {-# LINE 5461 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 162, column 32)- _lhsOcollectedUniques =- ({-# LINE 162 "src-ag/Transform.ag" #-}- []- {-# LINE 5467 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 948, column 34)- _lhsOctxCollect =- ({-# LINE 948 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 5473 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 990, column 33)- _lhsOderivings =- ({-# LINE 990 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 5479 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- Seq.empty- {-# LINE 5485 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1187, column 37)- _lhsOmoduleDecl =- ({-# LINE 1187 "src-ag/Transform.ag" #-}- mzero- {-# LINE 5491 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 925, column 37)- _lhsOparamsCollect =- ({-# LINE 925 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 5497 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 787, column 34)- _lhsOpragmas =- ({-# LINE 787 "src-ag/Transform.ag" #-}- id- {-# LINE 5503 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 973, column 36)- _lhsOquantCollect =- ({-# LINE 973 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 5509 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 865, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 865 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 5515 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 626, column 32)- _lhsOtypeSyns =- ({-# LINE 626 "src-ag/Transform.ag" #-}- []- {-# LINE 5521 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 145, column 15)- _lhsOuseMap =- ({-# LINE 145 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 5527 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 771, column 32)- _lhsOwrappers =- ({-# LINE 771 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 5533 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 144 "src-ag/Transform.ag" #-}- _lhsIattrDecls- {-# LINE 5539 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOattrs =- ({-# LINE 1316 "src-ag/Transform.ag" #-}- _lhsIattrs- {-# LINE 5545 "dist/build/Transform" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 109 "src-ag/Transform.ag" #-}- _lhsIdefSets- {-# LINE 5551 "dist/build/Transform" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))--- Field --------------------------------------------------------{-- visit 0:- inherited attribute:- allNonterminals : Set NontermIdent- synthesized attributes:- collectedConstraints : [Type]- collectedFields : [(Identifier, Type)]- alternatives:- alternative FChild:- child name : {Identifier}- child tp : {Type}- alternative FCtx:- child tps : {[Type]}--}--- cata-sem_Field :: Field ->- T_Field-sem_Field (FChild _name _tp) =- (sem_Field_FChild _name _tp)-sem_Field (FCtx _tps) =- (sem_Field_FCtx _tps)--- semantic domain-newtype T_Field = T_Field ((Set NontermIdent) ->- ( ([Type]),([(Identifier, Type)])))-data Inh_Field = Inh_Field {allNonterminals_Inh_Field :: !((Set NontermIdent))}-data Syn_Field = Syn_Field {collectedConstraints_Syn_Field :: !(([Type])),collectedFields_Syn_Field :: !(([(Identifier, Type)]))}-wrap_Field :: T_Field ->- Inh_Field ->- Syn_Field-wrap_Field (T_Field sem) (Inh_Field _lhsIallNonterminals) =- (let ( _lhsOcollectedConstraints,_lhsOcollectedFields) = sem _lhsIallNonterminals- in (Syn_Field _lhsOcollectedConstraints _lhsOcollectedFields))-sem_Field_FChild :: Identifier ->- Type ->- T_Field-sem_Field_FChild name_ tp_ =- (T_Field (\ _lhsIallNonterminals ->- (let _lhsOcollectedFields :: ([(Identifier, Type)])- _lhsOcollectedConstraints :: ([Type])- -- "src-ag/Transform.ag"(line 564, column 3)- _lhsOcollectedFields =- ({-# LINE 564 "src-ag/Transform.ag" #-}- [(name_, makeType _lhsIallNonterminals tp_)]- {-# LINE 5598 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 570, column 46)- _lhsOcollectedConstraints =- ({-# LINE 570 "src-ag/Transform.ag" #-}- []- {-# LINE 5604 "dist/build/Transform" #-}- )- in ( _lhsOcollectedConstraints,_lhsOcollectedFields))))-sem_Field_FCtx :: ([Type]) ->- T_Field-sem_Field_FCtx tps_ =- (T_Field (\ _lhsIallNonterminals ->- (let _lhsOcollectedConstraints :: ([Type])- _lhsOcollectedFields :: ([(Identifier, Type)])- -- "src-ag/Transform.ag"(line 573, column 3)- _lhsOcollectedConstraints =- ({-# LINE 573 "src-ag/Transform.ag" #-}- tps_- {-# LINE 5617 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 561, column 41)- _lhsOcollectedFields =- ({-# LINE 561 "src-ag/Transform.ag" #-}- []- {-# LINE 5623 "dist/build/Transform" #-}- )- in ( _lhsOcollectedConstraints,_lhsOcollectedFields))))--- Fields -------------------------------------------------------{-- visit 0:- inherited attribute:- allNonterminals : Set NontermIdent- synthesized attributes:- collectedConstraints : [Type]- collectedFields : [(Identifier, Type)]- alternatives:- alternative Cons:- child hd : Field - child tl : Fields - alternative Nil:--}--- cata-sem_Fields :: Fields ->- T_Fields-sem_Fields list =- (Prelude.foldr sem_Fields_Cons sem_Fields_Nil (Prelude.map sem_Field list))--- semantic domain-newtype T_Fields = T_Fields ((Set NontermIdent) ->- ( ([Type]),([(Identifier, Type)])))-data Inh_Fields = Inh_Fields {allNonterminals_Inh_Fields :: !((Set NontermIdent))}-data Syn_Fields = Syn_Fields {collectedConstraints_Syn_Fields :: !(([Type])),collectedFields_Syn_Fields :: !(([(Identifier, Type)]))}-wrap_Fields :: T_Fields ->- Inh_Fields ->- Syn_Fields-wrap_Fields (T_Fields sem) (Inh_Fields _lhsIallNonterminals) =- (let ( _lhsOcollectedConstraints,_lhsOcollectedFields) = sem _lhsIallNonterminals- in (Syn_Fields _lhsOcollectedConstraints _lhsOcollectedFields))-sem_Fields_Cons :: T_Field ->- T_Fields ->- T_Fields-sem_Fields_Cons (T_Field hd_) (T_Fields tl_) =- (T_Fields (\ _lhsIallNonterminals ->- (let _lhsOcollectedConstraints :: ([Type])- _lhsOcollectedFields :: ([(Identifier, Type)])- _hdOallNonterminals :: (Set NontermIdent)- _tlOallNonterminals :: (Set NontermIdent)- _hdIcollectedConstraints :: ([Type])- _hdIcollectedFields :: ([(Identifier, Type)])- _tlIcollectedConstraints :: ([Type])- _tlIcollectedFields :: ([(Identifier, Type)])- -- use rule "src-ag/Transform.ag"(line 570, column 46)- _lhsOcollectedConstraints =- ({-# LINE 570 "src-ag/Transform.ag" #-}- _hdIcollectedConstraints ++ _tlIcollectedConstraints- {-# LINE 5673 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 561, column 41)- _lhsOcollectedFields =- ({-# LINE 561 "src-ag/Transform.ag" #-}- _hdIcollectedFields ++ _tlIcollectedFields- {-# LINE 5679 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 5685 "dist/build/Transform" #-}- )- -- copy rule (down)- _tlOallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 5691 "dist/build/Transform" #-}- )- ( _hdIcollectedConstraints,_hdIcollectedFields) =- hd_ _hdOallNonterminals- ( _tlIcollectedConstraints,_tlIcollectedFields) =- tl_ _tlOallNonterminals- in ( _lhsOcollectedConstraints,_lhsOcollectedFields))))-sem_Fields_Nil :: T_Fields-sem_Fields_Nil =- (T_Fields (\ _lhsIallNonterminals ->- (let _lhsOcollectedConstraints :: ([Type])- _lhsOcollectedFields :: ([(Identifier, Type)])- -- use rule "src-ag/Transform.ag"(line 570, column 46)- _lhsOcollectedConstraints =- ({-# LINE 570 "src-ag/Transform.ag" #-}- []- {-# LINE 5707 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 561, column 41)- _lhsOcollectedFields =- ({-# LINE 561 "src-ag/Transform.ag" #-}- []- {-# LINE 5713 "dist/build/Transform" #-}- )- in ( _lhsOcollectedConstraints,_lhsOcollectedFields))))--- 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 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)- -- "src-ag/Transform.ag"(line 717, column 16)- _lhsOnontSet =- ({-# LINE 717 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 5787 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 91, column 50)- _lhsOcollectedNames =- ({-# LINE 91 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 5793 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- Seq.empty- {-# LINE 5799 "dist/build/Transform" #-}- )- 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)- -- "src-ag/Transform.ag"(line 723, column 16)- _lhsOnontSet =- ({-# LINE 723 "src-ag/Transform.ag" #-}- Set.difference _set1InontSet _set2InontSet- {-# LINE 5828 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 91, column 50)- _lhsOcollectedNames =- ({-# LINE 91 "src-ag/Transform.ag" #-}- _set1IcollectedNames `Set.union` _set2IcollectedNames- {-# LINE 5834 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 5840 "dist/build/Transform" #-}- )- -- copy rule (down)- _set1OallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 5846 "dist/build/Transform" #-}- )- -- copy rule (down)- _set1OallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 5852 "dist/build/Transform" #-}- )- -- copy rule (down)- _set1OdefinedSets =- ({-# LINE 112 "src-ag/Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 5858 "dist/build/Transform" #-}- )- -- copy rule (down)- _set2OallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 5864 "dist/build/Transform" #-}- )- -- copy rule (down)- _set2OallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 5870 "dist/build/Transform" #-}- )- -- copy rule (down)- _set2OdefinedSets =- ({-# LINE 112 "src-ag/Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 5876 "dist/build/Transform" #-}- )- ( _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)- -- "src-ag/Transform.ag"(line 722, column 16)- _lhsOnontSet =- ({-# LINE 722 "src-ag/Transform.ag" #-}- Set.intersection _set1InontSet _set2InontSet- {-# LINE 5909 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 91, column 50)- _lhsOcollectedNames =- ({-# LINE 91 "src-ag/Transform.ag" #-}- _set1IcollectedNames `Set.union` _set2IcollectedNames- {-# LINE 5915 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 5921 "dist/build/Transform" #-}- )- -- copy rule (down)- _set1OallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 5927 "dist/build/Transform" #-}- )- -- copy rule (down)- _set1OallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 5933 "dist/build/Transform" #-}- )- -- copy rule (down)- _set1OdefinedSets =- ({-# LINE 112 "src-ag/Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 5939 "dist/build/Transform" #-}- )- -- copy rule (down)- _set2OallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 5945 "dist/build/Transform" #-}- )- -- copy rule (down)- _set2OallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 5951 "dist/build/Transform" #-}- )- -- copy rule (down)- _set2OdefinedSets =- ({-# LINE 112 "src-ag/Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 5957 "dist/build/Transform" #-}- )- ( _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)- -- "src-ag/Transform.ag"(line 588, column 14)- _lhsOcollectedNames =- ({-# LINE 588 "src-ag/Transform.ag" #-}- Set.singleton name_- {-# LINE 5977 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 718, column 20)- (_nontSet,_errors) =- ({-# LINE 718 "src-ag/Transform.ag" #-}- case Map.lookup name_ _lhsIdefinedSets of- Nothing -> (Set.empty, Seq.singleton (UndefNont name_))- Just set -> (set, Seq.empty)- {-# LINE 5985 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- _errors- {-# LINE 5991 "dist/build/Transform" #-}- )- -- copy rule (from local)- _lhsOnontSet =- ({-# LINE 117 "src-ag/Transform.ag" #-}- _nontSet- {-# LINE 5997 "dist/build/Transform" #-}- )- 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)- -- "src-ag/Transform.ag"(line 724, column 16)- _lhsOnontSet =- ({-# LINE 724 "src-ag/Transform.ag" #-}- let table = flattenDatas _lhsIallFields- in path table from_ to_- {-# LINE 6015 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 726, column 16)- _lhsOerrors =- ({-# LINE 726 "src-ag/Transform.ag" #-}- let check name | Set.member name _lhsIallNonterminals- = Seq.empty- | otherwise = Seq.singleton (UndefNont name)- in check from_ >< check to_- {-# LINE 6024 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 91, column 50)- _lhsOcollectedNames =- ({-# LINE 91 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 6030 "dist/build/Transform" #-}- )- 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)- -- "src-ag/Transform.ag"(line 721, column 16)- _lhsOnontSet =- ({-# LINE 721 "src-ag/Transform.ag" #-}- Set.union _set1InontSet _set2InontSet- {-# LINE 6059 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 91, column 50)- _lhsOcollectedNames =- ({-# LINE 91 "src-ag/Transform.ag" #-}- _set1IcollectedNames `Set.union` _set2IcollectedNames- {-# LINE 6065 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 6071 "dist/build/Transform" #-}- )- -- copy rule (down)- _set1OallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 6077 "dist/build/Transform" #-}- )- -- copy rule (down)- _set1OallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 6083 "dist/build/Transform" #-}- )- -- copy rule (down)- _set1OdefinedSets =- ({-# LINE 112 "src-ag/Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 6089 "dist/build/Transform" #-}- )- -- copy rule (down)- _set2OallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 6095 "dist/build/Transform" #-}- )- -- copy rule (down)- _set2OallNonterminals =- ({-# LINE 93 "src-ag/Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 6101 "dist/build/Transform" #-}- )- -- copy rule (down)- _set2OdefinedSets =- ({-# LINE 112 "src-ag/Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 6107 "dist/build/Transform" #-}- )- ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =- set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets- ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =- set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets- in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))))--- Pattern ------------------------------------------------------{-- visit 0:- synthesized attributes:- copy : Pattern - definedAttrs : [AttrName]- definedInsts : [Identifier]- patunder : [AttrName]->Pattern- stpos : Pos- alternatives:- alternative Alias:- child field : {Identifier}- child attr : {Identifier}- child pat : Pattern - 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) =- (sem_Pattern_Alias _field _attr (sem_Pattern _pat))-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_Pattern-sem_Pattern_Alias field_ attr_ (T_Pattern pat_) =- (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- -- "src-ag/Transform.ag"(line 1163, column 11)- _lhsOdefinedAttrs =- ({-# LINE 1163 "src-ag/Transform.ag" #-}- (field_, attr_) : _patIdefinedAttrs- {-# LINE 6191 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1164, column 11)- _lhsOpatunder =- ({-# LINE 1164 "src-ag/Transform.ag" #-}- \us -> if ((field_,attr_) `elem` us) then Underscore noPos else _copy- {-# LINE 6197 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1165, column 11)- _lhsOdefinedInsts =- ({-# LINE 1165 "src-ag/Transform.ag" #-}- (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts- {-# LINE 6203 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1180, column 16)- _lhsOstpos =- ({-# LINE 1180 "src-ag/Transform.ag" #-}- getPos field_- {-# LINE 6209 "dist/build/Transform" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Alias field_ attr_ _patIcopy- {-# LINE 6215 "dist/build/Transform" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 6221 "dist/build/Transform" #-}- )- ( _patIcopy,_patIdefinedAttrs,_patIdefinedInsts,_patIpatunder,_patIstpos) =- pat_- 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)- -- "src-ag/Transform.ag"(line 1167, column 12)- _lhsOpatunder =- ({-# LINE 1167 "src-ag/Transform.ag" #-}- \us -> Constr name_ (_patsIpatunder us)- {-# LINE 6243 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1178, column 16)- _lhsOstpos =- ({-# LINE 1178 "src-ag/Transform.ag" #-}- getPos name_- {-# LINE 6249 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1158, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1158 "src-ag/Transform.ag" #-}- _patsIdefinedAttrs- {-# LINE 6255 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1157, column 55)- _lhsOdefinedInsts =- ({-# LINE 1157 "src-ag/Transform.ag" #-}- _patsIdefinedInsts- {-# LINE 6261 "dist/build/Transform" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Constr name_ _patsIcopy- {-# LINE 6267 "dist/build/Transform" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 6273 "dist/build/Transform" #-}- )- ( _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- -- "src-ag/Transform.ag"(line 1169, column 17)- _lhsOpatunder =- ({-# LINE 1169 "src-ag/Transform.ag" #-}- \us -> Irrefutable (_patIpatunder us)- {-# LINE 6295 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1158, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1158 "src-ag/Transform.ag" #-}- _patIdefinedAttrs- {-# LINE 6301 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1157, column 55)- _lhsOdefinedInsts =- ({-# LINE 1157 "src-ag/Transform.ag" #-}- _patIdefinedInsts- {-# LINE 6307 "dist/build/Transform" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Irrefutable _patIcopy- {-# LINE 6313 "dist/build/Transform" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 6319 "dist/build/Transform" #-}- )- -- copy rule (up)- _lhsOstpos =- ({-# LINE 1175 "src-ag/Transform.ag" #-}- _patIstpos- {-# LINE 6325 "dist/build/Transform" #-}- )- ( _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)- -- "src-ag/Transform.ag"(line 1168, column 13)- _lhsOpatunder =- ({-# LINE 1168 "src-ag/Transform.ag" #-}- \us -> Product pos_ (_patsIpatunder us)- {-# LINE 6347 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1179, column 16)- _lhsOstpos =- ({-# LINE 1179 "src-ag/Transform.ag" #-}- pos_- {-# LINE 6353 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1158, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1158 "src-ag/Transform.ag" #-}- _patsIdefinedAttrs- {-# LINE 6359 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1157, column 55)- _lhsOdefinedInsts =- ({-# LINE 1157 "src-ag/Transform.ag" #-}- _patsIdefinedInsts- {-# LINE 6365 "dist/build/Transform" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Product pos_ _patsIcopy- {-# LINE 6371 "dist/build/Transform" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 6377 "dist/build/Transform" #-}- )- ( _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- -- "src-ag/Transform.ag"(line 1166, column 16)- _lhsOpatunder =- ({-# LINE 1166 "src-ag/Transform.ag" #-}- \us -> _copy- {-# LINE 6394 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1181, column 16)- _lhsOstpos =- ({-# LINE 1181 "src-ag/Transform.ag" #-}- pos_- {-# LINE 6400 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1158, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1158 "src-ag/Transform.ag" #-}- []- {-# LINE 6406 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1157, column 55)- _lhsOdefinedInsts =- ({-# LINE 1157 "src-ag/Transform.ag" #-}- []- {-# LINE 6412 "dist/build/Transform" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- Underscore pos_- {-# LINE 6418 "dist/build/Transform" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 6424 "dist/build/Transform" #-}- )- in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)))--- Patterns -----------------------------------------------------{-- visit 0:- synthesized attributes:- copy : Patterns - 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)- -- "src-ag/Transform.ag"(line 1173, column 10)- _lhsOpatunder =- ({-# LINE 1173 "src-ag/Transform.ag" #-}- \us -> (_hdIpatunder us) : (_tlIpatunder us)- {-# LINE 6481 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1158, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1158 "src-ag/Transform.ag" #-}- _hdIdefinedAttrs ++ _tlIdefinedAttrs- {-# LINE 6487 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1157, column 55)- _lhsOdefinedInsts =- ({-# LINE 1157 "src-ag/Transform.ag" #-}- _hdIdefinedInsts ++ _tlIdefinedInsts- {-# LINE 6493 "dist/build/Transform" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- (:) _hdIcopy _tlIcopy- {-# LINE 6499 "dist/build/Transform" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 6505 "dist/build/Transform" #-}- )- ( _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- -- "src-ag/Transform.ag"(line 1172, column 9)- _lhsOpatunder =- ({-# LINE 1172 "src-ag/Transform.ag" #-}- \us -> []- {-# LINE 6522 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1158, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1158 "src-ag/Transform.ag" #-}- []- {-# LINE 6528 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1157, column 55)- _lhsOdefinedInsts =- ({-# LINE 1157 "src-ag/Transform.ag" #-}- []- {-# LINE 6534 "dist/build/Transform" #-}- )- -- self rule- _copy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- []- {-# LINE 6540 "dist/build/Transform" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 22 "src-ag/Patterns.ag" #-}- _copy- {-# LINE 6546 "dist/build/Transform" #-}- )- in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)))--- SemAlt -------------------------------------------------------{-- visit 0:- inherited attributes:- allAttrDecls : Map NontermIdent (Attributes, Attributes)- allAttrs : 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)) ->- (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))),allAttrs_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 _lhsIallAttrs _lhsIallFields _lhsInts _lhsIoptions) =- (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallAttrs _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- _lhsIallAttrs- _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])- -- "src-ag/Transform.ag"(line 869, column 7)- _pragmaNames =- ({-# LINE 869 "src-ag/Transform.ag" #-}- Set.fromList _rulesIpragmaNamesCollect- {-# LINE 6637 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 870, column 7)- _lhsOsemPragmasCollect =- ({-# LINE 870 "src-ag/Transform.ag" #-}- foldr pragmaMapUnion Map.empty [ pragmaMapSingle nt con _pragmaNames- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 6646 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 898, column 7)- _attrOrders =- ({-# LINE 898 "src-ag/Transform.ag" #-}- [ orderMapSingle nt con _rulesIorderDepsCollect- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 6655 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 904, column 7)- _lhsOattrOrderCollect =- ({-# LINE 904 "src-ag/Transform.ag" #-}- foldr orderMapUnion Map.empty _attrOrders- {-# LINE 6661 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1082, column 12)- _coninfo =- ({-# LINE 1082 "src-ag/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 6672 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1089, column 12)- _lhsOerrors =- ({-# LINE 1089 "src-ag/Transform.ag" #-}- Seq.fromList- [ UndefAlt nt con- | (nt, conset, conkeys) <- _coninfo- , con <- Set.toList (Set.difference conset conkeys)- ]- Seq.>< _rulesIerrors- {-# LINE 6683 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1095, column 12)- _lhsOcollectedRules =- ({-# LINE 1095 "src-ag/Transform.ag" #-}- [ (nt,con,r)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- , r <- _rulesIruleInfos- ]- {-# LINE 6693 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1101, column 12)- _lhsOcollectedSigs =- ({-# LINE 1101 "src-ag/Transform.ag" #-}- [ (nt,con,ts)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- , ts <- _rulesIsigInfos- ]- {-# LINE 6703 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1108, column 12)- _lhsOcollectedInsts =- ({-# LINE 1108 "src-ag/Transform.ag" #-}- [ (nt,con,_rulesIdefinedInsts)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 6712 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1114, column 12)- _lhsOcollectedUniques =- ({-# LINE 1114 "src-ag/Transform.ag" #-}- [ (nt,con,_rulesIuniqueInfos)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 6721 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1120, column 12)- _lhsOcollectedAugments =- ({-# LINE 1120 "src-ag/Transform.ag" #-}- [ (nt, con, _rulesIaugmentInfos)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 6730 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1126, column 12)- _lhsOcollectedArounds =- ({-# LINE 1126 "src-ag/Transform.ag" #-}- [ (nt, con, _rulesIaroundInfos)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 6739 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1132, column 12)- _lhsOcollectedMerges =- ({-# LINE 1132 "src-ag/Transform.ag" #-}- [ (nt, con, _rulesImergeInfos)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 6748 "dist/build/Transform" #-}- )- -- copy rule (down)- _rulesOoptions =- ({-# LINE 40 "src-ag/Transform.ag" #-}- _lhsIoptions- {-# LINE 6754 "dist/build/Transform" #-}- )- ( _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)- allAttrs : 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)) ->- (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))),allAttrs_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 _lhsIallAttrs _lhsIallFields _lhsInts _lhsIoptions) =- (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallAttrs _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- _lhsIallAttrs- _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))- _hdOallAttrs :: (Map NontermIdent (Attributes, Attributes))- _hdOallFields :: DataTypes- _hdOnts :: (Set NontermIdent)- _hdOoptions :: Options- _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _tlOallAttrs :: (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 "src-ag/Transform.ag"(line 893, column 55)- _lhsOattrOrderCollect =- ({-# LINE 893 "src-ag/Transform.ag" #-}- _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect- {-# LINE 6860 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 164, column 32)- _lhsOcollectedArounds =- ({-# LINE 164 "src-ag/Transform.ag" #-}- _hdIcollectedArounds ++ _tlIcollectedArounds- {-# LINE 6866 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 163, column 32)- _lhsOcollectedAugments =- ({-# LINE 163 "src-ag/Transform.ag" #-}- _hdIcollectedAugments ++ _tlIcollectedAugments- {-# LINE 6872 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 161, column 32)- _lhsOcollectedInsts =- ({-# LINE 161 "src-ag/Transform.ag" #-}- _hdIcollectedInsts ++ _tlIcollectedInsts- {-# LINE 6878 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 165, column 32)- _lhsOcollectedMerges =- ({-# LINE 165 "src-ag/Transform.ag" #-}- _hdIcollectedMerges ++ _tlIcollectedMerges- {-# LINE 6884 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 159, column 32)- _lhsOcollectedRules =- ({-# LINE 159 "src-ag/Transform.ag" #-}- _hdIcollectedRules ++ _tlIcollectedRules- {-# LINE 6890 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 160, column 32)- _lhsOcollectedSigs =- ({-# LINE 160 "src-ag/Transform.ag" #-}- _hdIcollectedSigs ++ _tlIcollectedSigs- {-# LINE 6896 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 162, column 32)- _lhsOcollectedUniques =- ({-# LINE 162 "src-ag/Transform.ag" #-}- _hdIcollectedUniques ++ _tlIcollectedUniques- {-# LINE 6902 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 6908 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 865, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 865 "src-ag/Transform.ag" #-}- _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect- {-# LINE 6914 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOallAttrDecls =- ({-# LINE 894 "src-ag/Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 6920 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOallAttrs =- ({-# LINE 1306 "src-ag/Transform.ag" #-}- _lhsIallAttrs- {-# LINE 6926 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 6932 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOnts =- ({-# LINE 175 "src-ag/Transform.ag" #-}- _lhsInts- {-# LINE 6938 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 40 "src-ag/Transform.ag" #-}- _lhsIoptions- {-# LINE 6944 "dist/build/Transform" #-}- )- -- copy rule (down)- _tlOallAttrDecls =- ({-# LINE 894 "src-ag/Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 6950 "dist/build/Transform" #-}- )- -- copy rule (down)- _tlOallAttrs =- ({-# LINE 1306 "src-ag/Transform.ag" #-}- _lhsIallAttrs- {-# LINE 6956 "dist/build/Transform" #-}- )- -- copy rule (down)- _tlOallFields =- ({-# LINE 136 "src-ag/Transform.ag" #-}- _lhsIallFields- {-# LINE 6962 "dist/build/Transform" #-}- )- -- copy rule (down)- _tlOnts =- ({-# LINE 175 "src-ag/Transform.ag" #-}- _lhsInts- {-# LINE 6968 "dist/build/Transform" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 40 "src-ag/Transform.ag" #-}- _lhsIoptions- {-# LINE 6974 "dist/build/Transform" #-}- )- ( _hdIattrOrderCollect,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedInsts,_hdIcollectedMerges,_hdIcollectedRules,_hdIcollectedSigs,_hdIcollectedUniques,_hdIerrors,_hdIsemPragmasCollect) =- hd_ _hdOallAttrDecls _hdOallAttrs _hdOallFields _hdOnts _hdOoptions- ( _tlIattrOrderCollect,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedInsts,_tlIcollectedMerges,_tlIcollectedRules,_tlIcollectedSigs,_tlIcollectedUniques,_tlIerrors,_tlIsemPragmasCollect) =- tl_ _tlOallAttrDecls _tlOallAttrs _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- _lhsIallAttrs- _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 "src-ag/Transform.ag"(line 893, column 55)- _lhsOattrOrderCollect =- ({-# LINE 893 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 7002 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 164, column 32)- _lhsOcollectedArounds =- ({-# LINE 164 "src-ag/Transform.ag" #-}- []- {-# LINE 7008 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 163, column 32)- _lhsOcollectedAugments =- ({-# LINE 163 "src-ag/Transform.ag" #-}- []- {-# LINE 7014 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 161, column 32)- _lhsOcollectedInsts =- ({-# LINE 161 "src-ag/Transform.ag" #-}- []- {-# LINE 7020 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 165, column 32)- _lhsOcollectedMerges =- ({-# LINE 165 "src-ag/Transform.ag" #-}- []- {-# LINE 7026 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 159, column 32)- _lhsOcollectedRules =- ({-# LINE 159 "src-ag/Transform.ag" #-}- []- {-# LINE 7032 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 160, column 32)- _lhsOcollectedSigs =- ({-# LINE 160 "src-ag/Transform.ag" #-}- []- {-# LINE 7038 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 162, column 32)- _lhsOcollectedUniques =- ({-# LINE 162 "src-ag/Transform.ag" #-}- []- {-# LINE 7044 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- Seq.empty- {-# LINE 7050 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 865, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 865 "src-ag/Transform.ag" #-}- Map.empty- {-# LINE 7056 "dist/build/Transform" #-}- )- 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}- child pure : {Bool}- child eager : {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 _pure _eager) =- (sem_SemDef_Def _pos _mbName (sem_Pattern _pattern) _rhs _owrt _pure _eager)-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])- -- "src-ag/Transform.ag"(line 1151, column 17)- _lhsOaroundInfos =- ({-# LINE 1151 "src-ag/Transform.ag" #-}- [ (ident_, rhs_) ]- {-# LINE 7159 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1075, column 40)- _lhsOaugmentInfos =- ({-# LINE 1075 "src-ag/Transform.ag" #-}- []- {-# LINE 7165 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1157, column 55)- _lhsOdefinedInsts =- ({-# LINE 1157 "src-ag/Transform.ag" #-}- []- {-# LINE 7171 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- Seq.empty- {-# LINE 7177 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1077, column 40)- _lhsOmergeInfos =- ({-# LINE 1077 "src-ag/Transform.ag" #-}- []- {-# LINE 7183 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 906, column 44)- _lhsOorderDepsCollect =- ({-# LINE 906 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 7189 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 875, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 875 "src-ag/Transform.ag" #-}- []- {-# LINE 7195 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1072, column 40)- _lhsOruleInfos =- ({-# LINE 1072 "src-ag/Transform.ag" #-}- []- {-# LINE 7201 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1073, column 40)- _lhsOsigInfos =- ({-# LINE 1073 "src-ag/Transform.ag" #-}- []- {-# LINE 7207 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1074, column 40)- _lhsOuniqueInfos =- ({-# LINE 1074 "src-ag/Transform.ag" #-}- []- {-# LINE 7213 "dist/build/Transform" #-}- )- 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])- -- "src-ag/Transform.ag"(line 910, column 7)- _dependency =- ({-# LINE 910 "src-ag/Transform.ag" #-}- [ Dependency b a | b <- before_, a <- after_ ]- {-# LINE 7235 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 911, column 7)- _lhsOorderDepsCollect =- ({-# LINE 911 "src-ag/Transform.ag" #-}- Set.fromList _dependency- {-# LINE 7241 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1076, column 40)- _lhsOaroundInfos =- ({-# LINE 1076 "src-ag/Transform.ag" #-}- []- {-# LINE 7247 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1075, column 40)- _lhsOaugmentInfos =- ({-# LINE 1075 "src-ag/Transform.ag" #-}- []- {-# LINE 7253 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1157, column 55)- _lhsOdefinedInsts =- ({-# LINE 1157 "src-ag/Transform.ag" #-}- []- {-# LINE 7259 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- Seq.empty- {-# LINE 7265 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1077, column 40)- _lhsOmergeInfos =- ({-# LINE 1077 "src-ag/Transform.ag" #-}- []- {-# LINE 7271 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 875, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 875 "src-ag/Transform.ag" #-}- []- {-# LINE 7277 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1072, column 40)- _lhsOruleInfos =- ({-# LINE 1072 "src-ag/Transform.ag" #-}- []- {-# LINE 7283 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1073, column 40)- _lhsOsigInfos =- ({-# LINE 1073 "src-ag/Transform.ag" #-}- []- {-# LINE 7289 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1074, column 40)- _lhsOuniqueInfos =- ({-# LINE 1074 "src-ag/Transform.ag" #-}- []- {-# LINE 7295 "dist/build/Transform" #-}- )- 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])- -- "src-ag/Transform.ag"(line 1148, column 17)- _lhsOaugmentInfos =- ({-# LINE 1148 "src-ag/Transform.ag" #-}- [ (ident_, rhs_) ]- {-# LINE 7317 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1076, column 40)- _lhsOaroundInfos =- ({-# LINE 1076 "src-ag/Transform.ag" #-}- []- {-# LINE 7323 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1157, column 55)- _lhsOdefinedInsts =- ({-# LINE 1157 "src-ag/Transform.ag" #-}- []- {-# LINE 7329 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- Seq.empty- {-# LINE 7335 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1077, column 40)- _lhsOmergeInfos =- ({-# LINE 1077 "src-ag/Transform.ag" #-}- []- {-# LINE 7341 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 906, column 44)- _lhsOorderDepsCollect =- ({-# LINE 906 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 7347 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 875, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 875 "src-ag/Transform.ag" #-}- []- {-# LINE 7353 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1072, column 40)- _lhsOruleInfos =- ({-# LINE 1072 "src-ag/Transform.ag" #-}- []- {-# LINE 7359 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1073, column 40)- _lhsOsigInfos =- ({-# LINE 1073 "src-ag/Transform.ag" #-}- []- {-# LINE 7365 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1074, column 40)- _lhsOuniqueInfos =- ({-# LINE 1074 "src-ag/Transform.ag" #-}- []- {-# LINE 7371 "dist/build/Transform" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))))-sem_SemDef_Def :: Pos ->- (Maybe Identifier) ->- T_Pattern ->- Expression ->- Bool ->- Bool ->- Bool ->- T_SemDef-sem_SemDef_Def pos_ mbName_ (T_Pattern pattern_) rhs_ owrt_ pure_ eager_ =- (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- -- "src-ag/Transform.ag"(line 541, column 3)- _lhsOerrors =- ({-# LINE 541 "src-ag/Transform.ag" #-}- if checkParseRhs _lhsIoptions- then Seq.fromList $ checkRhs rhs_- else Seq.empty- {-# LINE 7405 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1139, column 10)- _lhsOruleInfos =- ({-# LINE 1139 "src-ag/Transform.ag" #-}- [ (mbName_, _patternIpatunder, rhs_, _patternIdefinedAttrs, owrt_, show _patternIstpos, pure_, eager_) ]- {-# LINE 7411 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1076, column 40)- _lhsOaroundInfos =- ({-# LINE 1076 "src-ag/Transform.ag" #-}- []- {-# LINE 7417 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1075, column 40)- _lhsOaugmentInfos =- ({-# LINE 1075 "src-ag/Transform.ag" #-}- []- {-# LINE 7423 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1157, column 55)- _lhsOdefinedInsts =- ({-# LINE 1157 "src-ag/Transform.ag" #-}- _patternIdefinedInsts- {-# LINE 7429 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1077, column 40)- _lhsOmergeInfos =- ({-# LINE 1077 "src-ag/Transform.ag" #-}- []- {-# LINE 7435 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 906, column 44)- _lhsOorderDepsCollect =- ({-# LINE 906 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 7441 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 875, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 875 "src-ag/Transform.ag" #-}- []- {-# LINE 7447 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1073, column 40)- _lhsOsigInfos =- ({-# LINE 1073 "src-ag/Transform.ag" #-}- []- {-# LINE 7453 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1074, column 40)- _lhsOuniqueInfos =- ({-# LINE 1074 "src-ag/Transform.ag" #-}- []- {-# LINE 7459 "dist/build/Transform" #-}- )- ( _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])- -- "src-ag/Transform.ag"(line 541, column 3)- _lhsOerrors =- ({-# LINE 541 "src-ag/Transform.ag" #-}- if checkParseRhs _lhsIoptions- then Seq.fromList $ checkRhs rhs_- else Seq.empty- {-# LINE 7487 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1154, column 17)- _lhsOmergeInfos =- ({-# LINE 1154 "src-ag/Transform.ag" #-}- [ (target_, nt_, sources_, rhs_) ]- {-# LINE 7493 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1076, column 40)- _lhsOaroundInfos =- ({-# LINE 1076 "src-ag/Transform.ag" #-}- []- {-# LINE 7499 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1075, column 40)- _lhsOaugmentInfos =- ({-# LINE 1075 "src-ag/Transform.ag" #-}- []- {-# LINE 7505 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1157, column 55)- _lhsOdefinedInsts =- ({-# LINE 1157 "src-ag/Transform.ag" #-}- []- {-# LINE 7511 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 906, column 44)- _lhsOorderDepsCollect =- ({-# LINE 906 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 7517 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 875, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 875 "src-ag/Transform.ag" #-}- []- {-# LINE 7523 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1072, column 40)- _lhsOruleInfos =- ({-# LINE 1072 "src-ag/Transform.ag" #-}- []- {-# LINE 7529 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1073, column 40)- _lhsOsigInfos =- ({-# LINE 1073 "src-ag/Transform.ag" #-}- []- {-# LINE 7535 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1074, column 40)- _lhsOuniqueInfos =- ({-# LINE 1074 "src-ag/Transform.ag" #-}- []- {-# LINE 7541 "dist/build/Transform" #-}- )- 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])- -- "src-ag/Transform.ag"(line 879, column 7)- _lhsOpragmaNamesCollect =- ({-# LINE 879 "src-ag/Transform.ag" #-}- names_- {-# LINE 7562 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1076, column 40)- _lhsOaroundInfos =- ({-# LINE 1076 "src-ag/Transform.ag" #-}- []- {-# LINE 7568 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1075, column 40)- _lhsOaugmentInfos =- ({-# LINE 1075 "src-ag/Transform.ag" #-}- []- {-# LINE 7574 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1157, column 55)- _lhsOdefinedInsts =- ({-# LINE 1157 "src-ag/Transform.ag" #-}- []- {-# LINE 7580 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- Seq.empty- {-# LINE 7586 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1077, column 40)- _lhsOmergeInfos =- ({-# LINE 1077 "src-ag/Transform.ag" #-}- []- {-# LINE 7592 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 906, column 44)- _lhsOorderDepsCollect =- ({-# LINE 906 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 7598 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1072, column 40)- _lhsOruleInfos =- ({-# LINE 1072 "src-ag/Transform.ag" #-}- []- {-# LINE 7604 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1073, column 40)- _lhsOsigInfos =- ({-# LINE 1073 "src-ag/Transform.ag" #-}- []- {-# LINE 7610 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1074, column 40)- _lhsOuniqueInfos =- ({-# LINE 1074 "src-ag/Transform.ag" #-}- []- {-# LINE 7616 "dist/build/Transform" #-}- )- 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])- -- "src-ag/Transform.ag"(line 548, column 3)- _lhsOerrors =- ({-# LINE 548 "src-ag/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 7646 "dist/build/Transform" #-}- )- -- "src-ag/Transform.ag"(line 1142, column 14)- _lhsOsigInfos =- ({-# LINE 1142 "src-ag/Transform.ag" #-}- [ (ident_, tp_) ]- {-# LINE 7652 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1076, column 40)- _lhsOaroundInfos =- ({-# LINE 1076 "src-ag/Transform.ag" #-}- []- {-# LINE 7658 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1075, column 40)- _lhsOaugmentInfos =- ({-# LINE 1075 "src-ag/Transform.ag" #-}- []- {-# LINE 7664 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1157, column 55)- _lhsOdefinedInsts =- ({-# LINE 1157 "src-ag/Transform.ag" #-}- []- {-# LINE 7670 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1077, column 40)- _lhsOmergeInfos =- ({-# LINE 1077 "src-ag/Transform.ag" #-}- []- {-# LINE 7676 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 906, column 44)- _lhsOorderDepsCollect =- ({-# LINE 906 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 7682 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 875, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 875 "src-ag/Transform.ag" #-}- []- {-# LINE 7688 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1072, column 40)- _lhsOruleInfos =- ({-# LINE 1072 "src-ag/Transform.ag" #-}- []- {-# LINE 7694 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1074, column 40)- _lhsOuniqueInfos =- ({-# LINE 1074 "src-ag/Transform.ag" #-}- []- {-# LINE 7700 "dist/build/Transform" #-}- )- 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])- -- "src-ag/Transform.ag"(line 1145, column 16)- _lhsOuniqueInfos =- ({-# LINE 1145 "src-ag/Transform.ag" #-}- [ (ident_, ref_) ]- {-# LINE 7722 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1076, column 40)- _lhsOaroundInfos =- ({-# LINE 1076 "src-ag/Transform.ag" #-}- []- {-# LINE 7728 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1075, column 40)- _lhsOaugmentInfos =- ({-# LINE 1075 "src-ag/Transform.ag" #-}- []- {-# LINE 7734 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1157, column 55)- _lhsOdefinedInsts =- ({-# LINE 1157 "src-ag/Transform.ag" #-}- []- {-# LINE 7740 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- Seq.empty- {-# LINE 7746 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1077, column 40)- _lhsOmergeInfos =- ({-# LINE 1077 "src-ag/Transform.ag" #-}- []- {-# LINE 7752 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 906, column 44)- _lhsOorderDepsCollect =- ({-# LINE 906 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 7758 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 875, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 875 "src-ag/Transform.ag" #-}- []- {-# LINE 7764 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1072, column 40)- _lhsOruleInfos =- ({-# LINE 1072 "src-ag/Transform.ag" #-}- []- {-# LINE 7770 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1073, column 40)- _lhsOsigInfos =- ({-# LINE 1073 "src-ag/Transform.ag" #-}- []- {-# LINE 7776 "dist/build/Transform" #-}- )- 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 "src-ag/Transform.ag"(line 1076, column 40)- _lhsOaroundInfos =- ({-# LINE 1076 "src-ag/Transform.ag" #-}- _hdIaroundInfos ++ _tlIaroundInfos- {-# LINE 7858 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1075, column 40)- _lhsOaugmentInfos =- ({-# LINE 1075 "src-ag/Transform.ag" #-}- _hdIaugmentInfos ++ _tlIaugmentInfos- {-# LINE 7864 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1157, column 55)- _lhsOdefinedInsts =- ({-# LINE 1157 "src-ag/Transform.ag" #-}- _hdIdefinedInsts ++ _tlIdefinedInsts- {-# LINE 7870 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 7876 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1077, column 40)- _lhsOmergeInfos =- ({-# LINE 1077 "src-ag/Transform.ag" #-}- _hdImergeInfos ++ _tlImergeInfos- {-# LINE 7882 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 906, column 44)- _lhsOorderDepsCollect =- ({-# LINE 906 "src-ag/Transform.ag" #-}- _hdIorderDepsCollect `Set.union` _tlIorderDepsCollect- {-# LINE 7888 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 875, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 875 "src-ag/Transform.ag" #-}- _hdIpragmaNamesCollect ++ _tlIpragmaNamesCollect- {-# LINE 7894 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1072, column 40)- _lhsOruleInfos =- ({-# LINE 1072 "src-ag/Transform.ag" #-}- _hdIruleInfos ++ _tlIruleInfos- {-# LINE 7900 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1073, column 40)- _lhsOsigInfos =- ({-# LINE 1073 "src-ag/Transform.ag" #-}- _hdIsigInfos ++ _tlIsigInfos- {-# LINE 7906 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1074, column 40)- _lhsOuniqueInfos =- ({-# LINE 1074 "src-ag/Transform.ag" #-}- _hdIuniqueInfos ++ _tlIuniqueInfos- {-# LINE 7912 "dist/build/Transform" #-}- )- -- copy rule (down)- _hdOoptions =- ({-# LINE 40 "src-ag/Transform.ag" #-}- _lhsIoptions- {-# LINE 7918 "dist/build/Transform" #-}- )- -- copy rule (down)- _tlOoptions =- ({-# LINE 40 "src-ag/Transform.ag" #-}- _lhsIoptions- {-# LINE 7924 "dist/build/Transform" #-}- )- ( _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 "src-ag/Transform.ag"(line 1076, column 40)- _lhsOaroundInfos =- ({-# LINE 1076 "src-ag/Transform.ag" #-}- []- {-# LINE 7948 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1075, column 40)- _lhsOaugmentInfos =- ({-# LINE 1075 "src-ag/Transform.ag" #-}- []- {-# LINE 7954 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1157, column 55)- _lhsOdefinedInsts =- ({-# LINE 1157 "src-ag/Transform.ag" #-}- []- {-# LINE 7960 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 44, column 19)- _lhsOerrors =- ({-# LINE 44 "src-ag/Transform.ag" #-}- Seq.empty- {-# LINE 7966 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1077, column 40)- _lhsOmergeInfos =- ({-# LINE 1077 "src-ag/Transform.ag" #-}- []- {-# LINE 7972 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 906, column 44)- _lhsOorderDepsCollect =- ({-# LINE 906 "src-ag/Transform.ag" #-}- Set.empty- {-# LINE 7978 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 875, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 875 "src-ag/Transform.ag" #-}- []- {-# LINE 7984 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1072, column 40)- _lhsOruleInfos =- ({-# LINE 1072 "src-ag/Transform.ag" #-}- []- {-# LINE 7990 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1073, column 40)- _lhsOsigInfos =- ({-# LINE 1073 "src-ag/Transform.ag" #-}- []- {-# LINE 7996 "dist/build/Transform" #-}- )- -- use rule "src-ag/Transform.ag"(line 1074, column 40)- _lhsOuniqueInfos =- ({-# LINE 1074 "src-ag/Transform.ag" #-}- []- {-# LINE 8002 "dist/build/Transform" #-}- )+ ___node =+ (Syn_AG _lhsOagi _lhsOblocks _lhsOerrors _lhsOmoduleDecl _lhsOoutput _lhsOpragmas)+ in ( _lhsOagi,_lhsOblocks,_lhsOerrors,_lhsOmoduleDecl,_lhsOoutput,_lhsOpragmas))))+-- Alt ---------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allConstructors : Map NontermIdent (Set ConstructorIdent)+ allNonterminals : Set NontermIdent+ nts : Set NontermIdent+ synthesized attributes:+ collectedConParams : [(NontermIdent, ConstructorIdent, Set Identifier)]+ collectedConstraints : [(NontermIdent, ConstructorIdent, [Type])]+ collectedConstructorNames : Set ConstructorIdent+ collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]+ collectedMacros : [(NontermIdent, ConstructorIdent, MaybeMacro)]+ alternatives:+ alternative Alt:+ child pos : {Pos}+ child names : ConstructorSet + child tyvars : {[Identifier]}+ child fields : Fields + child macro : {MaybeMacro}+-}+-- cata+sem_Alt :: Alt ->+ T_Alt+sem_Alt (Alt _pos _names _tyvars _fields _macro) =+ (sem_Alt_Alt _pos (sem_ConstructorSet _names) _tyvars (sem_Fields _fields) _macro)+-- semantic domain+newtype T_Alt = T_Alt ((Map NontermIdent (Set ConstructorIdent)) ->+ (Set NontermIdent) ->+ (Set NontermIdent) ->+ ( ([(NontermIdent, ConstructorIdent, Set Identifier)]),([(NontermIdent, ConstructorIdent, [Type])]),(Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)]),([(NontermIdent, ConstructorIdent, MaybeMacro)])))+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 {collectedConParams_Syn_Alt :: !(([(NontermIdent, ConstructorIdent, Set Identifier)])),collectedConstraints_Syn_Alt :: !(([(NontermIdent, ConstructorIdent, [Type])])),collectedConstructorNames_Syn_Alt :: !((Set ConstructorIdent)),collectedFields_Syn_Alt :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedMacros_Syn_Alt :: !(([(NontermIdent, ConstructorIdent, MaybeMacro)]))}+wrap_Alt :: T_Alt ->+ Inh_Alt ->+ Syn_Alt+wrap_Alt (T_Alt sem) (Inh_Alt _lhsIallConstructors _lhsIallNonterminals _lhsInts) =+ (let ( _lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorNames,_lhsOcollectedFields,_lhsOcollectedMacros) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts+ in (Syn_Alt _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorNames _lhsOcollectedFields _lhsOcollectedMacros))+sem_Alt_Alt :: Pos ->+ T_ConstructorSet ->+ ([Identifier]) ->+ T_Fields ->+ MaybeMacro ->+ T_Alt+sem_Alt_Alt pos_ (T_ConstructorSet names_) tyvars_ (T_Fields fields_) macro_ =+ (T_Alt (\ _lhsIallConstructors+ _lhsIallNonterminals+ _lhsInts ->+ (let _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _fieldsOallNonterminals :: (Set NontermIdent)+ _namesIcollectedConstructorNames :: (Set ConstructorIdent)+ _namesIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _namesIerrors :: (Seq Error)+ _fieldsIcollectedConstraints :: ([Type])+ _fieldsIcollectedFields :: ([(Identifier, Type)])+ -- "src-ag/Transform.ag"(line 241, column 10)+ _lhsOcollectedFields =+ ({-# LINE 241 "src-ag/Transform.ag" #-}+ [ (nt, con, _fieldsIcollectedFields)+ | nt <- Set.toList _lhsInts+ , con <- Set.toList (_namesIconstructors (Map.findWithDefault Set.empty nt _lhsIallConstructors))+ ]+ {-# LINE 1089 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 245, column 10)+ _lhsOcollectedConstraints =+ ({-# LINE 245 "src-ag/Transform.ag" #-}+ [ (nt, con, _fieldsIcollectedConstraints)+ | nt <- Set.toList _lhsInts+ , con <- Set.toList (_namesIconstructors (Map.findWithDefault Set.empty nt _lhsIallConstructors))+ ]+ {-# LINE 1098 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 249, column 10)+ _lhsOcollectedConParams =+ ({-# LINE 249 "src-ag/Transform.ag" #-}+ [ (nt, con, Set.fromList tyvars_)+ | nt <- Set.toList _lhsInts+ , con <- Set.toList (_namesIconstructors (Map.findWithDefault Set.empty nt _lhsIallConstructors))+ ]+ {-# LINE 1107 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1287, column 10)+ _lhsOcollectedMacros =+ ({-# LINE 1287 "src-ag/Transform.ag" #-}+ [ (nt, con, macro_)+ | nt <- Set.toList _lhsInts+ , con <- Set.toList (_namesIconstructors (Map.findWithDefault Set.empty nt _lhsIallConstructors))+ ]+ {-# LINE 1116 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 98, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 98 "src-ag/Transform.ag" #-}+ _namesIcollectedConstructorNames+ {-# LINE 1122 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _fieldsOallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 1128 "dist/build/Transform" #-}+ )+ ( _namesIcollectedConstructorNames,_namesIconstructors,_namesIerrors) =+ names_+ ( _fieldsIcollectedConstraints,_fieldsIcollectedFields) =+ fields_ _fieldsOallNonterminals+ ___node =+ (Syn_Alt _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorNames _lhsOcollectedFields _lhsOcollectedMacros)+ in ( _lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorNames,_lhsOcollectedFields,_lhsOcollectedMacros))))+-- Alts --------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allConstructors : Map NontermIdent (Set ConstructorIdent)+ allNonterminals : Set NontermIdent+ nts : Set NontermIdent+ synthesized attributes:+ collectedConParams : [(NontermIdent, ConstructorIdent, Set Identifier)]+ collectedConstraints : [(NontermIdent, ConstructorIdent, [Type])]+ collectedConstructorNames : Set ConstructorIdent+ collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]+ collectedMacros : [(NontermIdent, ConstructorIdent, MaybeMacro)]+ 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) ->+ ( ([(NontermIdent, ConstructorIdent, Set Identifier)]),([(NontermIdent, ConstructorIdent, [Type])]),(Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)]),([(NontermIdent, ConstructorIdent, MaybeMacro)])))+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 {collectedConParams_Syn_Alts :: !(([(NontermIdent, ConstructorIdent, Set Identifier)])),collectedConstraints_Syn_Alts :: !(([(NontermIdent, ConstructorIdent, [Type])])),collectedConstructorNames_Syn_Alts :: !((Set ConstructorIdent)),collectedFields_Syn_Alts :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedMacros_Syn_Alts :: !(([(NontermIdent, ConstructorIdent, MaybeMacro)]))}+wrap_Alts :: T_Alts ->+ Inh_Alts ->+ Syn_Alts+wrap_Alts (T_Alts sem) (Inh_Alts _lhsIallConstructors _lhsIallNonterminals _lhsInts) =+ (let ( _lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorNames,_lhsOcollectedFields,_lhsOcollectedMacros) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts+ in (Syn_Alts _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorNames _lhsOcollectedFields _lhsOcollectedMacros))+sem_Alts_Cons :: T_Alt ->+ T_Alts ->+ T_Alts+sem_Alts_Cons (T_Alt hd_) (T_Alts tl_) =+ (T_Alts (\ _lhsIallConstructors+ _lhsIallNonterminals+ _lhsInts ->+ (let _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _hdOallNonterminals :: (Set NontermIdent)+ _hdOnts :: (Set NontermIdent)+ _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _tlOallNonterminals :: (Set NontermIdent)+ _tlOnts :: (Set NontermIdent)+ _hdIcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _hdIcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _hdIcollectedConstructorNames :: (Set ConstructorIdent)+ _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _hdIcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ _tlIcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _tlIcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _tlIcollectedConstructorNames :: (Set ConstructorIdent)+ _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _tlIcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ -- use rule "src-ag/Transform.ag"(line 132, column 31)+ _lhsOcollectedConParams =+ ({-# LINE 132 "src-ag/Transform.ag" #-}+ _hdIcollectedConParams ++ _tlIcollectedConParams+ {-# LINE 1206 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 131, column 33)+ _lhsOcollectedConstraints =+ ({-# LINE 131 "src-ag/Transform.ag" #-}+ _hdIcollectedConstraints ++ _tlIcollectedConstraints+ {-# LINE 1212 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 98, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 98 "src-ag/Transform.ag" #-}+ _hdIcollectedConstructorNames `Set.union` _tlIcollectedConstructorNames+ {-# LINE 1218 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 130, column 28)+ _lhsOcollectedFields =+ ({-# LINE 130 "src-ag/Transform.ag" #-}+ _hdIcollectedFields ++ _tlIcollectedFields+ {-# LINE 1224 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1283, column 28)+ _lhsOcollectedMacros =+ ({-# LINE 1283 "src-ag/Transform.ag" #-}+ _hdIcollectedMacros ++ _tlIcollectedMacros+ {-# LINE 1230 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOallConstructors =+ ({-# LINE 101 "src-ag/Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 1236 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 1242 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOnts =+ ({-# LINE 175 "src-ag/Transform.ag" #-}+ _lhsInts+ {-# LINE 1248 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _tlOallConstructors =+ ({-# LINE 101 "src-ag/Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 1254 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _tlOallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 1260 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _tlOnts =+ ({-# LINE 175 "src-ag/Transform.ag" #-}+ _lhsInts+ {-# LINE 1266 "dist/build/Transform" #-}+ )+ ( _hdIcollectedConParams,_hdIcollectedConstraints,_hdIcollectedConstructorNames,_hdIcollectedFields,_hdIcollectedMacros) =+ hd_ _hdOallConstructors _hdOallNonterminals _hdOnts+ ( _tlIcollectedConParams,_tlIcollectedConstraints,_tlIcollectedConstructorNames,_tlIcollectedFields,_tlIcollectedMacros) =+ tl_ _tlOallConstructors _tlOallNonterminals _tlOnts+ ___node =+ (Syn_Alts _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorNames _lhsOcollectedFields _lhsOcollectedMacros)+ in ( _lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorNames,_lhsOcollectedFields,_lhsOcollectedMacros))))+sem_Alts_Nil :: T_Alts+sem_Alts_Nil =+ (T_Alts (\ _lhsIallConstructors+ _lhsIallNonterminals+ _lhsInts ->+ (let _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ -- use rule "src-ag/Transform.ag"(line 132, column 31)+ _lhsOcollectedConParams =+ ({-# LINE 132 "src-ag/Transform.ag" #-}+ []+ {-# LINE 1289 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 131, column 33)+ _lhsOcollectedConstraints =+ ({-# LINE 131 "src-ag/Transform.ag" #-}+ []+ {-# LINE 1295 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 98, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 98 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 1301 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 130, column 28)+ _lhsOcollectedFields =+ ({-# LINE 130 "src-ag/Transform.ag" #-}+ []+ {-# LINE 1307 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1283, column 28)+ _lhsOcollectedMacros =+ ({-# LINE 1283 "src-ag/Transform.ag" #-}+ []+ {-# LINE 1313 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_Alts _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorNames _lhsOcollectedFields _lhsOcollectedMacros)+ in ( _lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorNames,_lhsOcollectedFields,_lhsOcollectedMacros))))+-- Attrs -------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allFields : DataTypes+ allNonterminals : Set NontermIdent+ nts : Set NontermIdent+ options : Options+ chained attributes:+ attrDecls : Map NontermIdent (Attributes, Attributes)+ attrs : 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 attrDecls : _+ local errors : _+ 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)) ->+ (Map NontermIdent (Attributes, Attributes)) ->+ (Set NontermIdent) ->+ Options ->+ ( (Map NontermIdent (Attributes, Attributes)),(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))),attrs_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))),attrs_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 _lhsIattrs _lhsInts _lhsIoptions) =+ (let ( _lhsOattrDecls,_lhsOattrs,_lhsOerrors,_lhsOuseMap) = sem _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIattrs _lhsInts _lhsIoptions+ in (Syn_Attrs _lhsOattrDecls _lhsOattrs _lhsOerrors _lhsOuseMap))+sem_Attrs_Attrs :: Pos ->+ AttrNames ->+ AttrNames ->+ AttrNames ->+ T_Attrs+sem_Attrs_Attrs pos_ inh_ chn_ syn_ =+ (T_Attrs (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIattrs+ _lhsInts+ _lhsIoptions ->+ (let _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOerrors :: (Seq Error)+ _lhsOattrs :: (Map NontermIdent (Attributes, Attributes))+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ -- "src-ag/Transform.ag"(line 1018, column 15)+ (_attrDecls,_errors) =+ ({-# LINE 1018 "src-ag/Transform.ag" #-}+ checkAttrs _lhsIallFields (Set.toList _lhsInts) _inherited _synthesized _lhsIattrDecls+ {-# LINE 1387 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1020, column 15)+ (_inherited,_synthesized,_useMap) =+ ({-# LINE 1020 "src-ag/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 1400 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1028, column 11)+ _lhsOuseMap =+ ({-# LINE 1028 "src-ag/Transform.ag" #-}+ Map.fromList (zip (Set.toList _lhsInts) (repeat _useMap))+ {-# LINE 1406 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1030, column 11)+ _errors1 =+ ({-# LINE 1030 "src-ag/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 1423 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1042, column 11)+ _lhsOerrors =+ ({-# LINE 1042 "src-ag/Transform.ag" #-}+ _errors Seq.>< _errors1+ {-# LINE 1429 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1323, column 11)+ _lhsOattrs =+ ({-# LINE 1323 "src-ag/Transform.ag" #-}+ let insert decls nt = if Map.member nt decls+ then Map.update (\(inh,syn) -> Just ( Map.union inh $ Map.fromList _inherited+ , Map.union syn $ Map.fromList _synthesized)) nt decls+ else Map.insert nt (Map.fromList _inherited, Map.fromList _synthesized) decls+ in foldl insert _lhsIattrs (Set.toList _lhsInts)+ {-# LINE 1439 "dist/build/Transform" #-}+ )+ -- copy rule (from local)+ _lhsOattrDecls =+ ({-# LINE 144 "src-ag/Transform.ag" #-}+ _attrDecls+ {-# LINE 1445 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_Attrs _lhsOattrDecls _lhsOattrs _lhsOerrors _lhsOuseMap)+ in ( _lhsOattrDecls,_lhsOattrs,_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)+ -- "src-ag/Transform.ag"(line 765, column 17)+ _lhsOconstructors =+ ({-# LINE 765 "src-ag/Transform.ag" #-}+ \ds -> ds+ {-# LINE 1498 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 98, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 98 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 1504 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ Seq.empty+ {-# LINE 1510 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_ConstructorSet _lhsOcollectedConstructorNames _lhsOconstructors _lhsOerrors)+ 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)+ -- "src-ag/Transform.ag"(line 764, column 17)+ _lhsOconstructors =+ ({-# LINE 764 "src-ag/Transform.ag" #-}+ \ds -> _set1Iconstructors ds `Set.difference` _set2Iconstructors ds+ {-# LINE 1532 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 98, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 98 "src-ag/Transform.ag" #-}+ _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames+ {-# LINE 1538 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 1544 "dist/build/Transform" #-}+ )+ ( _set1IcollectedConstructorNames,_set1Iconstructors,_set1Ierrors) =+ set1_+ ( _set2IcollectedConstructorNames,_set2Iconstructors,_set2Ierrors) =+ set2_+ ___node =+ (Syn_ConstructorSet _lhsOcollectedConstructorNames _lhsOconstructors _lhsOerrors)+ 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)+ -- "src-ag/Transform.ag"(line 599, column 11)+ _lhsOcollectedConstructorNames =+ ({-# LINE 599 "src-ag/Transform.ag" #-}+ Set.singleton name_+ {-# LINE 1563 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 762, column 17)+ _lhsOconstructors =+ ({-# LINE 762 "src-ag/Transform.ag" #-}+ \ds -> Set.singleton name_+ {-# LINE 1569 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ Seq.empty+ {-# LINE 1575 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_ConstructorSet _lhsOcollectedConstructorNames _lhsOconstructors _lhsOerrors)+ 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)+ -- "src-ag/Transform.ag"(line 763, column 17)+ _lhsOconstructors =+ ({-# LINE 763 "src-ag/Transform.ag" #-}+ \ds -> _set1Iconstructors ds `Set.union` _set2Iconstructors ds+ {-# LINE 1597 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 98, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 98 "src-ag/Transform.ag" #-}+ _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames+ {-# LINE 1603 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 1609 "dist/build/Transform" #-}+ )+ ( _set1IcollectedConstructorNames,_set1Iconstructors,_set1Ierrors) =+ set1_+ ( _set2IcollectedConstructorNames,_set2Iconstructors,_set2Ierrors) =+ set2_+ ___node =+ (Syn_ConstructorSet _lhsOcollectedConstructorNames _lhsOconstructors _lhsOerrors)+ in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)))+-- Elem --------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allAttrDecls : Map NontermIdent (Attributes, Attributes)+ allAttrs : 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)+ attrs : 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]) ]+ collectedConParams : [(NontermIdent, ConstructorIdent, Set Identifier)]+ collectedConstraints : [(NontermIdent, ConstructorIdent, [Type])]+ collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent)+ collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]+ collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]+ collectedMacros : [(NontermIdent, ConstructorIdent, MaybeMacro)]+ 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+ quantCollect : QuantMap+ 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 quants : {[String]}+ 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 Nocatas:+ child pos : {Pos}+ child set : NontSet + alternative Pragma:+ child pos : {Pos}+ child names : {[NontermIdent]}+ alternative Sem:+ child pos : {Pos}+ child ctx : {ClassContext}+ child names : NontSet + child attrs : Attrs + child quants : {[String]}+ child alts : SemAlts + alternative Set:+ child pos : {Pos}+ child name : {NontermIdent}+ child merge : {Bool}+ child set : NontSet + visit 0:+ local defSets2 : _+ local errs : _+ alternative Txt:+ child pos : {Pos}+ child kind : {BlockKind}+ 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 _quants _attrs) =+ (sem_Elem_Attr _pos _ctx (sem_NontSet _names) _quants (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 (Nocatas _pos _set) =+ (sem_Elem_Nocatas _pos (sem_NontSet _set))+sem_Elem (Pragma _pos _names) =+ (sem_Elem_Pragma _pos _names)+sem_Elem (Sem _pos _ctx _names _attrs _quants _alts) =+ (sem_Elem_Sem _pos _ctx (sem_NontSet _names) (sem_Attrs _attrs) _quants (sem_SemAlts _alts))+sem_Elem (Set _pos _name _merge _set) =+ (sem_Elem_Set _pos _name _merge (sem_NontSet _set))+sem_Elem (Txt _pos _kind _mbNt _lines) =+ (sem_Elem_Txt _pos _kind _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 (Attributes, Attributes)) ->+ (Map NontermIdent (Set ConstructorIdent)) ->+ DataTypes ->+ (Set NontermIdent) ->+ (Map NontermIdent (Attributes, Attributes)) ->+ (Map NontermIdent (Attributes, Attributes)) ->+ (Map Identifier (Set NontermIdent,Set Identifier)) ->+ DefinedSets ->+ Options ->+ ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,(Map NontermIdent (Attributes, Attributes)),Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([(NontermIdent, ConstructorIdent, Set Identifier)]),([(NontermIdent, ConstructorIdent, [Type])]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([(NontermIdent, ConstructorIdent, MaybeMacro)]),([ (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),QuantMap,PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent)))+data Inh_Elem = Inh_Elem {allAttrDecls_Inh_Elem :: !((Map NontermIdent (Attributes, Attributes))),allAttrs_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))),attrs_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),attrs_Syn_Elem :: !((Map NontermIdent (Attributes, Attributes))),blocks_Syn_Elem :: !(Blocks),collectedArounds_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConParams_Syn_Elem :: !(([(NontermIdent, ConstructorIdent, Set Identifier)])),collectedConstraints_Syn_Elem :: !(([(NontermIdent, ConstructorIdent, [Type])])),collectedConstructorsMap_Syn_Elem :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elem :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMacros_Syn_Elem :: !(([(NontermIdent, ConstructorIdent, MaybeMacro)])),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)),quantCollect_Syn_Elem :: !(QuantMap),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 _lhsIallAttrs _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIattrs _lhsIdefSets _lhsIdefinedSets _lhsIoptions) =+ (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallAttrs _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIattrs _lhsIdefSets _lhsIdefinedSets _lhsIoptions+ in (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOattrs _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMacros _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOquantCollect _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers))+sem_Elem_Attr :: Pos ->+ ClassContext ->+ T_NontSet ->+ ([String]) ->+ T_Attrs ->+ T_Elem+sem_Elem_Attr pos_ ctx_ (T_NontSet names_) quants_ (T_Attrs attrs_) =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallAttrs+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIattrs+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOctxCollect :: ContextMap+ _lhsOquantCollect :: QuantMap+ _attrsOnts :: (Set NontermIdent)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ _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))+ _lhsOattrs :: (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))+ _attrsOattrs :: (Map NontermIdent (Attributes, Attributes))+ _attrsOoptions :: Options+ _namesIcollectedNames :: (Set Identifier)+ _namesIerrors :: (Seq Error)+ _namesInontSet :: (Set NontermIdent)+ _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsIattrs :: (Map NontermIdent (Attributes, Attributes))+ _attrsIerrors :: (Seq Error)+ _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ -- "src-ag/Transform.ag"(line 952, column 7)+ _lhsOctxCollect =+ ({-# LINE 952 "src-ag/Transform.ag" #-}+ if null ctx_+ then Map.empty+ else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]+ {-# LINE 1841 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 977, column 7)+ _lhsOquantCollect =+ ({-# LINE 977 "src-ag/Transform.ag" #-}+ if null quants_+ then Map.empty+ else Map.fromList [(nt, quants_) | nt <- Set.toList _namesInontSet]+ {-# LINE 1849 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1013, column 10)+ _attrsOnts =+ ({-# LINE 1013 "src-ag/Transform.ag" #-}+ _namesInontSet+ {-# LINE 1855 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 893, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 893 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 1861 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 46, column 19)+ _lhsOblocks =+ ({-# LINE 46 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 1867 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 164, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 164 "src-ag/Transform.ag" #-}+ []+ {-# LINE 1873 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 163, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 163 "src-ag/Transform.ag" #-}+ []+ {-# LINE 1879 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 132, column 31)+ _lhsOcollectedConParams =+ ({-# LINE 132 "src-ag/Transform.ag" #-}+ []+ {-# LINE 1885 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 131, column 33)+ _lhsOcollectedConstraints =+ ({-# LINE 131 "src-ag/Transform.ag" #-}+ []+ {-# LINE 1891 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 99, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 99 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 1897 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 130, column 28)+ _lhsOcollectedFields =+ ({-# LINE 130 "src-ag/Transform.ag" #-}+ []+ {-# LINE 1903 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 161, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 161 "src-ag/Transform.ag" #-}+ []+ {-# LINE 1909 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1283, column 28)+ _lhsOcollectedMacros =+ ({-# LINE 1283 "src-ag/Transform.ag" #-}+ []+ {-# LINE 1915 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 165, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 165 "src-ag/Transform.ag" #-}+ []+ {-# LINE 1921 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 91, column 50)+ _lhsOcollectedNames =+ ({-# LINE 91 "src-ag/Transform.ag" #-}+ _namesIcollectedNames+ {-# LINE 1927 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 159, column 32)+ _lhsOcollectedRules =+ ({-# LINE 159 "src-ag/Transform.ag" #-}+ []+ {-# LINE 1933 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 90, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 90 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 1939 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 160, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 160 "src-ag/Transform.ag" #-}+ []+ {-# LINE 1945 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 162, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 162 "src-ag/Transform.ag" #-}+ []+ {-# LINE 1951 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 990, column 33)+ _lhsOderivings =+ ({-# LINE 990 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 1957 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ _namesIerrors Seq.>< _attrsIerrors+ {-# LINE 1963 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1187, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1187 "src-ag/Transform.ag" #-}+ mzero+ {-# LINE 1969 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 925, column 37)+ _lhsOparamsCollect =+ ({-# LINE 925 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 1975 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 787, column 34)+ _lhsOpragmas =+ ({-# LINE 787 "src-ag/Transform.ag" #-}+ id+ {-# LINE 1981 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 865, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 865 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 1987 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 626, column 32)+ _lhsOtypeSyns =+ ({-# LINE 626 "src-ag/Transform.ag" #-}+ []+ {-# LINE 1993 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 145, column 15)+ _lhsOuseMap =+ ({-# LINE 145 "src-ag/Transform.ag" #-}+ _attrsIuseMap+ {-# LINE 1999 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 771, column 32)+ _lhsOwrappers =+ ({-# LINE 771 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 2005 "dist/build/Transform" #-}+ )+ -- copy rule (up)+ _lhsOattrDecls =+ ({-# LINE 144 "src-ag/Transform.ag" #-}+ _attrsIattrDecls+ {-# LINE 2011 "dist/build/Transform" #-}+ )+ -- copy rule (up)+ _lhsOattrs =+ ({-# LINE 1316 "src-ag/Transform.ag" #-}+ _attrsIattrs+ {-# LINE 2017 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 109 "src-ag/Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 2023 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _namesOallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 2029 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _namesOallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 2035 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _namesOdefinedSets =+ ({-# LINE 112 "src-ag/Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 2041 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _attrsOallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 2047 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _attrsOallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 2053 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _attrsOattrDecls =+ ({-# LINE 144 "src-ag/Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 2059 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _attrsOattrs =+ ({-# LINE 1316 "src-ag/Transform.ag" #-}+ _lhsIattrs+ {-# LINE 2065 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _attrsOoptions =+ ({-# LINE 40 "src-ag/Transform.ag" #-}+ _lhsIoptions+ {-# LINE 2071 "dist/build/Transform" #-}+ )+ ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =+ names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets+ ( _attrsIattrDecls,_attrsIattrs,_attrsIerrors,_attrsIuseMap) =+ attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOattrs _attrsOnts _attrsOoptions+ ___node =+ (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOattrs _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMacros _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOquantCollect _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers)+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_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+ _lhsIallAttrs+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIattrs+ _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]) ])+ _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ _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)+ _lhsOquantCollect :: QuantMap+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOattrs :: (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))+ _attrsOattrs :: (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))+ _attrsIattrs :: (Map NontermIdent (Attributes, Attributes))+ _attrsIerrors :: (Seq Error)+ _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _altsIcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _altsIcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _altsIcollectedConstructorNames :: (Set ConstructorIdent)+ _altsIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _altsIcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ -- "src-ag/Transform.ag"(line 178, column 10)+ _altsOnts =+ ({-# LINE 178 "src-ag/Transform.ag" #-}+ _namesInontSet+ {-# LINE 2157 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 605, column 11)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 605 "src-ag/Transform.ag" #-}+ Map.fromList+ [ (n, _altsIcollectedConstructorNames)+ | n <- Set.toList _namesInontSet+ ]+ {-# LINE 2166 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 929, column 7)+ _lhsOparamsCollect =+ ({-# LINE 929 "src-ag/Transform.ag" #-}+ if null params_+ then Map.empty+ else Map.fromList [(nt, params_) | nt <- Set.toList _namesInontSet]+ {-# LINE 2174 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 952, column 7)+ _lhsOctxCollect =+ ({-# LINE 952 "src-ag/Transform.ag" #-}+ if null ctx_+ then Map.empty+ else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]+ {-# LINE 2182 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1012, column 10)+ _attrsOnts =+ ({-# LINE 1012 "src-ag/Transform.ag" #-}+ _namesInontSet+ {-# LINE 2188 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 893, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 893 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2194 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 46, column 19)+ _lhsOblocks =+ ({-# LINE 46 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2200 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 164, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 164 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2206 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 163, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 163 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2212 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 132, column 31)+ _lhsOcollectedConParams =+ ({-# LINE 132 "src-ag/Transform.ag" #-}+ _altsIcollectedConParams+ {-# LINE 2218 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 131, column 33)+ _lhsOcollectedConstraints =+ ({-# LINE 131 "src-ag/Transform.ag" #-}+ _altsIcollectedConstraints+ {-# LINE 2224 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 130, column 28)+ _lhsOcollectedFields =+ ({-# LINE 130 "src-ag/Transform.ag" #-}+ _altsIcollectedFields+ {-# LINE 2230 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 161, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 161 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2236 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1283, column 28)+ _lhsOcollectedMacros =+ ({-# LINE 1283 "src-ag/Transform.ag" #-}+ _altsIcollectedMacros+ {-# LINE 2242 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 165, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 165 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2248 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 91, column 50)+ _lhsOcollectedNames =+ ({-# LINE 91 "src-ag/Transform.ag" #-}+ _namesIcollectedNames+ {-# LINE 2254 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 159, column 32)+ _lhsOcollectedRules =+ ({-# LINE 159 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2260 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 90, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 90 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 2266 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 160, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 160 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2272 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 162, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 162 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2278 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 990, column 33)+ _lhsOderivings =+ ({-# LINE 990 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2284 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ _namesIerrors Seq.>< _attrsIerrors+ {-# LINE 2290 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1187, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1187 "src-ag/Transform.ag" #-}+ mzero+ {-# LINE 2296 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 787, column 34)+ _lhsOpragmas =+ ({-# LINE 787 "src-ag/Transform.ag" #-}+ id+ {-# LINE 2302 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 973, column 36)+ _lhsOquantCollect =+ ({-# LINE 973 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2308 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 865, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 865 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2314 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 626, column 32)+ _lhsOtypeSyns =+ ({-# LINE 626 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2320 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 145, column 15)+ _lhsOuseMap =+ ({-# LINE 145 "src-ag/Transform.ag" #-}+ _attrsIuseMap+ {-# LINE 2326 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 771, column 32)+ _lhsOwrappers =+ ({-# LINE 771 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 2332 "dist/build/Transform" #-}+ )+ -- copy rule (up)+ _lhsOattrDecls =+ ({-# LINE 144 "src-ag/Transform.ag" #-}+ _attrsIattrDecls+ {-# LINE 2338 "dist/build/Transform" #-}+ )+ -- copy rule (up)+ _lhsOattrs =+ ({-# LINE 1316 "src-ag/Transform.ag" #-}+ _attrsIattrs+ {-# LINE 2344 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 109 "src-ag/Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 2350 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _namesOallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 2356 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _namesOallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 2362 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _namesOdefinedSets =+ ({-# LINE 112 "src-ag/Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 2368 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _attrsOallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 2374 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _attrsOallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 2380 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _attrsOattrDecls =+ ({-# LINE 144 "src-ag/Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 2386 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _attrsOattrs =+ ({-# LINE 1316 "src-ag/Transform.ag" #-}+ _lhsIattrs+ {-# LINE 2392 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _attrsOoptions =+ ({-# LINE 40 "src-ag/Transform.ag" #-}+ _lhsIoptions+ {-# LINE 2398 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _altsOallConstructors =+ ({-# LINE 101 "src-ag/Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 2404 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _altsOallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 2410 "dist/build/Transform" #-}+ )+ ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =+ names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets+ ( _attrsIattrDecls,_attrsIattrs,_attrsIerrors,_attrsIuseMap) =+ attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOattrs _attrsOnts _attrsOoptions+ ( _altsIcollectedConParams,_altsIcollectedConstraints,_altsIcollectedConstructorNames,_altsIcollectedFields,_altsIcollectedMacros) =+ alts_ _altsOallConstructors _altsOallNonterminals _altsOnts+ ___node =+ (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOattrs _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMacros _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOquantCollect _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers)+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))+sem_Elem_Deriving :: Pos ->+ T_NontSet ->+ ([NontermIdent]) ->+ T_Elem+sem_Elem_Deriving pos_ (T_NontSet set_) classes_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallAttrs+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIattrs+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOderivings :: Derivings+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ _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)+ _lhsOquantCollect :: QuantMap+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOattrs :: (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)+ -- "src-ag/Transform.ag"(line 997, column 14)+ _lhsOderivings =+ ({-# LINE 997 "src-ag/Transform.ag" #-}+ Map.fromList [(nt,Set.fromList classes_) | nt <- Set.toList _setInontSet]+ {-# LINE 2476 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 893, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 893 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2482 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 46, column 19)+ _lhsOblocks =+ ({-# LINE 46 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2488 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 164, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 164 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2494 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 163, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 163 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2500 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 132, column 31)+ _lhsOcollectedConParams =+ ({-# LINE 132 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2506 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 131, column 33)+ _lhsOcollectedConstraints =+ ({-# LINE 131 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2512 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 99, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 99 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2518 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 130, column 28)+ _lhsOcollectedFields =+ ({-# LINE 130 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2524 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 161, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 161 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2530 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1283, column 28)+ _lhsOcollectedMacros =+ ({-# LINE 1283 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2536 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 165, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 165 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2542 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 91, column 50)+ _lhsOcollectedNames =+ ({-# LINE 91 "src-ag/Transform.ag" #-}+ _setIcollectedNames+ {-# LINE 2548 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 159, column 32)+ _lhsOcollectedRules =+ ({-# LINE 159 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2554 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 90, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 90 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 2560 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 160, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 160 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2566 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 162, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 162 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2572 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 948, column 34)+ _lhsOctxCollect =+ ({-# LINE 948 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2578 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ _setIerrors+ {-# LINE 2584 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1187, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1187 "src-ag/Transform.ag" #-}+ mzero+ {-# LINE 2590 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 925, column 37)+ _lhsOparamsCollect =+ ({-# LINE 925 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2596 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 787, column 34)+ _lhsOpragmas =+ ({-# LINE 787 "src-ag/Transform.ag" #-}+ id+ {-# LINE 2602 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 973, column 36)+ _lhsOquantCollect =+ ({-# LINE 973 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2608 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 865, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 865 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2614 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 626, column 32)+ _lhsOtypeSyns =+ ({-# LINE 626 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2620 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 145, column 15)+ _lhsOuseMap =+ ({-# LINE 145 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2626 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 771, column 32)+ _lhsOwrappers =+ ({-# LINE 771 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 2632 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 144 "src-ag/Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 2638 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOattrs =+ ({-# LINE 1316 "src-ag/Transform.ag" #-}+ _lhsIattrs+ {-# LINE 2644 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 109 "src-ag/Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 2650 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _setOallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 2656 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _setOallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 2662 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _setOdefinedSets =+ ({-# LINE 112 "src-ag/Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 2668 "dist/build/Transform" #-}+ )+ ( _setIcollectedNames,_setIerrors,_setInontSet) =+ set_ _setOallFields _setOallNonterminals _setOdefinedSets+ ___node =+ (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOattrs _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMacros _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOquantCollect _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers)+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))+sem_Elem_Module :: Pos ->+ String ->+ String ->+ String ->+ T_Elem+sem_Elem_Module pos_ name_ exports_ imports_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallAttrs+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIattrs+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ _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)+ _lhsOquantCollect :: QuantMap+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOattrs :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- "src-ag/Transform.ag"(line 1191, column 7)+ _lhsOmoduleDecl =+ ({-# LINE 1191 "src-ag/Transform.ag" #-}+ Just (name_, exports_, imports_)+ {-# LINE 2725 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 893, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 893 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2731 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 46, column 19)+ _lhsOblocks =+ ({-# LINE 46 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2737 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 164, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 164 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2743 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 163, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 163 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2749 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 132, column 31)+ _lhsOcollectedConParams =+ ({-# LINE 132 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2755 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 131, column 33)+ _lhsOcollectedConstraints =+ ({-# LINE 131 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2761 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 99, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 99 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2767 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 130, column 28)+ _lhsOcollectedFields =+ ({-# LINE 130 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2773 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 161, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 161 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2779 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1283, column 28)+ _lhsOcollectedMacros =+ ({-# LINE 1283 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2785 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 165, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 165 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2791 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 91, column 50)+ _lhsOcollectedNames =+ ({-# LINE 91 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 2797 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 159, column 32)+ _lhsOcollectedRules =+ ({-# LINE 159 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2803 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 90, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 90 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 2809 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 160, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 160 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2815 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 162, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 162 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2821 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 948, column 34)+ _lhsOctxCollect =+ ({-# LINE 948 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2827 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 990, column 33)+ _lhsOderivings =+ ({-# LINE 990 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2833 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ Seq.empty+ {-# LINE 2839 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 925, column 37)+ _lhsOparamsCollect =+ ({-# LINE 925 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2845 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 787, column 34)+ _lhsOpragmas =+ ({-# LINE 787 "src-ag/Transform.ag" #-}+ id+ {-# LINE 2851 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 973, column 36)+ _lhsOquantCollect =+ ({-# LINE 973 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2857 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 865, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 865 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2863 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 626, column 32)+ _lhsOtypeSyns =+ ({-# LINE 626 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2869 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 145, column 15)+ _lhsOuseMap =+ ({-# LINE 145 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2875 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 771, column 32)+ _lhsOwrappers =+ ({-# LINE 771 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 2881 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 144 "src-ag/Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 2887 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOattrs =+ ({-# LINE 1316 "src-ag/Transform.ag" #-}+ _lhsIattrs+ {-# LINE 2893 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 109 "src-ag/Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 2899 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOattrs _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMacros _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOquantCollect _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers)+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))+sem_Elem_Nocatas :: Pos ->+ T_NontSet ->+ T_Elem+sem_Elem_Nocatas pos_ (T_NontSet set_) =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallAttrs+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIattrs+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOpragmas :: (Options -> Options)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ _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+ _lhsOquantCollect :: QuantMap+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOattrs :: (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)+ -- "src-ag/Transform.ag"(line 781, column 14)+ _lhsOpragmas =+ ({-# LINE 781 "src-ag/Transform.ag" #-}+ \o -> o { nocatas = _setInontSet `Set.union` nocatas o }+ {-# LINE 2958 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 893, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 893 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2964 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 46, column 19)+ _lhsOblocks =+ ({-# LINE 46 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 2970 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 164, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 164 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2976 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 163, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 163 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2982 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 132, column 31)+ _lhsOcollectedConParams =+ ({-# LINE 132 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2988 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 131, column 33)+ _lhsOcollectedConstraints =+ ({-# LINE 131 "src-ag/Transform.ag" #-}+ []+ {-# LINE 2994 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 99, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 99 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3000 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 130, column 28)+ _lhsOcollectedFields =+ ({-# LINE 130 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3006 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 161, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 161 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3012 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1283, column 28)+ _lhsOcollectedMacros =+ ({-# LINE 1283 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3018 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 165, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 165 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3024 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 91, column 50)+ _lhsOcollectedNames =+ ({-# LINE 91 "src-ag/Transform.ag" #-}+ _setIcollectedNames+ {-# LINE 3030 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 159, column 32)+ _lhsOcollectedRules =+ ({-# LINE 159 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3036 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 90, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 90 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 3042 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 160, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 160 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3048 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 162, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 162 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3054 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 948, column 34)+ _lhsOctxCollect =+ ({-# LINE 948 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3060 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 990, column 33)+ _lhsOderivings =+ ({-# LINE 990 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3066 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ _setIerrors+ {-# LINE 3072 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1187, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1187 "src-ag/Transform.ag" #-}+ mzero+ {-# LINE 3078 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 925, column 37)+ _lhsOparamsCollect =+ ({-# LINE 925 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3084 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 973, column 36)+ _lhsOquantCollect =+ ({-# LINE 973 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3090 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 865, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 865 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3096 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 626, column 32)+ _lhsOtypeSyns =+ ({-# LINE 626 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3102 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 145, column 15)+ _lhsOuseMap =+ ({-# LINE 145 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3108 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 771, column 32)+ _lhsOwrappers =+ ({-# LINE 771 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 3114 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 144 "src-ag/Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 3120 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOattrs =+ ({-# LINE 1316 "src-ag/Transform.ag" #-}+ _lhsIattrs+ {-# LINE 3126 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 109 "src-ag/Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 3132 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _setOallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 3138 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _setOallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 3144 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _setOdefinedSets =+ ({-# LINE 112 "src-ag/Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 3150 "dist/build/Transform" #-}+ )+ ( _setIcollectedNames,_setIerrors,_setInontSet) =+ set_ _setOallFields _setOallNonterminals _setOdefinedSets+ ___node =+ (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOattrs _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMacros _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOquantCollect _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers)+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))+sem_Elem_Pragma :: Pos ->+ ([NontermIdent]) ->+ T_Elem+sem_Elem_Pragma pos_ names_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallAttrs+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIattrs+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOpragmas :: (Options -> Options)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ _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+ _lhsOquantCollect :: QuantMap+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOattrs :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- "src-ag/Transform.ag"(line 790, column 13)+ _lhsOpragmas =+ ({-# LINE 790 "src-ag/Transform.ag" #-}+ let mk n o = case getName n of+ "gencatas" -> o { folds = True }+ "nogencatas" -> o { folds = False }+ "gendatas" -> o { dataTypes = True }+ "datarecords" -> o { dataRecords = 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 }+ "nooptimizations" -> o { noOptimizations = True }+ "kennedywarren" -> o { kennedyWarren = True }+ "aspectag" -> o { genAspectAG = True }+ 'n':'o':'g':'r':'o':'u':'p':'_':atts+ -> o { noGroup = extract atts ++ noGroup o }+ "rename" -> o { rename = True }+ "parallel" -> o { parallelInvoke = True }+ "monadicwrappers" -> o { monadicWrappers = True }+ "dummytokenvisit" -> o { dummyTokenVisit = True }+ "tupleasdummytoken" -> o { tupleAsDummyToken = True }+ "stateasdummytoken" -> o { tupleAsDummyToken = False }+ "strictdummytoken" -> o { strictDummyToken = True }+ "noperruletypesigs" -> o { noPerRuleTypeSigs = True }+ "noperstatetypesigs" -> o { noPerStateTypeSigs = True }+ "noeagerblackholing" -> o { noEagerBlackholing = True }+ "noperrulecostcentres" -> o { noPerRuleCostCentres = True }+ "nopervisitcostcentres" -> o { noPerVisitCostCentres = True }+ "helpinlining" -> o { helpInlining = True }+ "noinlinepragmas" -> o { noInlinePragmas = True }+ "aggressiveinlinepragmas" -> o { aggressiveInlinePragmas = True }+ "latehigherorderbindings" -> o { lateHigherOrderBinding = True }+ s -> trace ("uuagc: ignoring unknown pragma: " ++ s) o+ in \o -> foldr mk o names_+ {-# LINE 3268 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 893, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 893 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3274 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 46, column 19)+ _lhsOblocks =+ ({-# LINE 46 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3280 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 164, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 164 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3286 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 163, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 163 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3292 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 132, column 31)+ _lhsOcollectedConParams =+ ({-# LINE 132 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3298 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 131, column 33)+ _lhsOcollectedConstraints =+ ({-# LINE 131 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3304 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 99, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 99 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3310 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 130, column 28)+ _lhsOcollectedFields =+ ({-# LINE 130 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3316 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 161, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 161 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3322 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1283, column 28)+ _lhsOcollectedMacros =+ ({-# LINE 1283 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3328 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 165, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 165 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3334 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 91, column 50)+ _lhsOcollectedNames =+ ({-# LINE 91 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 3340 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 159, column 32)+ _lhsOcollectedRules =+ ({-# LINE 159 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3346 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 90, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 90 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 3352 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 160, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 160 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3358 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 162, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 162 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3364 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 948, column 34)+ _lhsOctxCollect =+ ({-# LINE 948 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3370 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 990, column 33)+ _lhsOderivings =+ ({-# LINE 990 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3376 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ Seq.empty+ {-# LINE 3382 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1187, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1187 "src-ag/Transform.ag" #-}+ mzero+ {-# LINE 3388 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 925, column 37)+ _lhsOparamsCollect =+ ({-# LINE 925 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3394 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 973, column 36)+ _lhsOquantCollect =+ ({-# LINE 973 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3400 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 865, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 865 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3406 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 626, column 32)+ _lhsOtypeSyns =+ ({-# LINE 626 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3412 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 145, column 15)+ _lhsOuseMap =+ ({-# LINE 145 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3418 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 771, column 32)+ _lhsOwrappers =+ ({-# LINE 771 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 3424 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 144 "src-ag/Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 3430 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOattrs =+ ({-# LINE 1316 "src-ag/Transform.ag" #-}+ _lhsIattrs+ {-# LINE 3436 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 109 "src-ag/Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 3442 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOattrs _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMacros _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOquantCollect _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers)+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))+sem_Elem_Sem :: Pos ->+ ClassContext ->+ T_NontSet ->+ T_Attrs ->+ ([String]) ->+ T_SemAlts ->+ T_Elem+sem_Elem_Sem pos_ ctx_ (T_NontSet names_) (T_Attrs attrs_) quants_ (T_SemAlts alts_) =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallAttrs+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIattrs+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _altsOnts :: (Set NontermIdent)+ _lhsOctxCollect :: ContextMap+ _lhsOquantCollect :: QuantMap+ _attrsOnts :: (Set NontermIdent)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ _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))+ _lhsOattrs :: (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))+ _attrsOattrs :: (Map NontermIdent (Attributes, Attributes))+ _attrsOoptions :: Options+ _altsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _altsOallAttrs :: (Map NontermIdent (Attributes, Attributes))+ _altsOallFields :: DataTypes+ _altsOoptions :: Options+ _namesIcollectedNames :: (Set Identifier)+ _namesIerrors :: (Seq Error)+ _namesInontSet :: (Set NontermIdent)+ _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsIattrs :: (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+ -- "src-ag/Transform.ag"(line 179, column 10)+ _altsOnts =+ ({-# LINE 179 "src-ag/Transform.ag" #-}+ _namesInontSet+ {-# LINE 3530 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 952, column 7)+ _lhsOctxCollect =+ ({-# LINE 952 "src-ag/Transform.ag" #-}+ if null ctx_+ then Map.empty+ else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]+ {-# LINE 3538 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 977, column 7)+ _lhsOquantCollect =+ ({-# LINE 977 "src-ag/Transform.ag" #-}+ if null quants_+ then Map.empty+ else Map.fromList [(nt, quants_) | nt <- Set.toList _namesInontSet]+ {-# LINE 3546 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1014, column 10)+ _attrsOnts =+ ({-# LINE 1014 "src-ag/Transform.ag" #-}+ _namesInontSet+ {-# LINE 3552 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 893, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 893 "src-ag/Transform.ag" #-}+ _altsIattrOrderCollect+ {-# LINE 3558 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 46, column 19)+ _lhsOblocks =+ ({-# LINE 46 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3564 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 164, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 164 "src-ag/Transform.ag" #-}+ _altsIcollectedArounds+ {-# LINE 3570 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 163, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 163 "src-ag/Transform.ag" #-}+ _altsIcollectedAugments+ {-# LINE 3576 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 132, column 31)+ _lhsOcollectedConParams =+ ({-# LINE 132 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3582 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 131, column 33)+ _lhsOcollectedConstraints =+ ({-# LINE 131 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3588 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 99, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 99 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3594 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 130, column 28)+ _lhsOcollectedFields =+ ({-# LINE 130 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3600 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 161, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 161 "src-ag/Transform.ag" #-}+ _altsIcollectedInsts+ {-# LINE 3606 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1283, column 28)+ _lhsOcollectedMacros =+ ({-# LINE 1283 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3612 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 165, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 165 "src-ag/Transform.ag" #-}+ _altsIcollectedMerges+ {-# LINE 3618 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 91, column 50)+ _lhsOcollectedNames =+ ({-# LINE 91 "src-ag/Transform.ag" #-}+ _namesIcollectedNames+ {-# LINE 3624 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 159, column 32)+ _lhsOcollectedRules =+ ({-# LINE 159 "src-ag/Transform.ag" #-}+ _altsIcollectedRules+ {-# LINE 3630 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 90, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 90 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 3636 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 160, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 160 "src-ag/Transform.ag" #-}+ _altsIcollectedSigs+ {-# LINE 3642 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 162, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 162 "src-ag/Transform.ag" #-}+ _altsIcollectedUniques+ {-# LINE 3648 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 990, column 33)+ _lhsOderivings =+ ({-# LINE 990 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3654 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ _namesIerrors Seq.>< _attrsIerrors Seq.>< _altsIerrors+ {-# LINE 3660 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1187, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1187 "src-ag/Transform.ag" #-}+ mzero+ {-# LINE 3666 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 925, column 37)+ _lhsOparamsCollect =+ ({-# LINE 925 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3672 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 787, column 34)+ _lhsOpragmas =+ ({-# LINE 787 "src-ag/Transform.ag" #-}+ id+ {-# LINE 3678 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 865, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 865 "src-ag/Transform.ag" #-}+ _altsIsemPragmasCollect+ {-# LINE 3684 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 626, column 32)+ _lhsOtypeSyns =+ ({-# LINE 626 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3690 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 145, column 15)+ _lhsOuseMap =+ ({-# LINE 145 "src-ag/Transform.ag" #-}+ _attrsIuseMap+ {-# LINE 3696 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 771, column 32)+ _lhsOwrappers =+ ({-# LINE 771 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 3702 "dist/build/Transform" #-}+ )+ -- copy rule (up)+ _lhsOattrDecls =+ ({-# LINE 144 "src-ag/Transform.ag" #-}+ _attrsIattrDecls+ {-# LINE 3708 "dist/build/Transform" #-}+ )+ -- copy rule (up)+ _lhsOattrs =+ ({-# LINE 1316 "src-ag/Transform.ag" #-}+ _attrsIattrs+ {-# LINE 3714 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 109 "src-ag/Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 3720 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _namesOallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 3726 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _namesOallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 3732 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _namesOdefinedSets =+ ({-# LINE 112 "src-ag/Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 3738 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _attrsOallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 3744 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _attrsOallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 3750 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _attrsOattrDecls =+ ({-# LINE 144 "src-ag/Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 3756 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _attrsOattrs =+ ({-# LINE 1316 "src-ag/Transform.ag" #-}+ _lhsIattrs+ {-# LINE 3762 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _attrsOoptions =+ ({-# LINE 40 "src-ag/Transform.ag" #-}+ _lhsIoptions+ {-# LINE 3768 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _altsOallAttrDecls =+ ({-# LINE 894 "src-ag/Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 3774 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _altsOallAttrs =+ ({-# LINE 1306 "src-ag/Transform.ag" #-}+ _lhsIallAttrs+ {-# LINE 3780 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _altsOallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 3786 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _altsOoptions =+ ({-# LINE 40 "src-ag/Transform.ag" #-}+ _lhsIoptions+ {-# LINE 3792 "dist/build/Transform" #-}+ )+ ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =+ names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets+ ( _attrsIattrDecls,_attrsIattrs,_attrsIerrors,_attrsIuseMap) =+ attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOattrs _attrsOnts _attrsOoptions+ ( _altsIattrOrderCollect,_altsIcollectedArounds,_altsIcollectedAugments,_altsIcollectedInsts,_altsIcollectedMerges,_altsIcollectedRules,_altsIcollectedSigs,_altsIcollectedUniques,_altsIerrors,_altsIsemPragmasCollect) =+ alts_ _altsOallAttrDecls _altsOallAttrs _altsOallFields _altsOnts _altsOoptions+ ___node =+ (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOattrs _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMacros _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOquantCollect _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers)+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_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+ _lhsIallAttrs+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIattrs+ _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]) ])+ _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ _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)+ _lhsOquantCollect :: QuantMap+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOattrs :: (Map NontermIdent (Attributes, Attributes))+ _setOallFields :: DataTypes+ _setOallNonterminals :: (Set NontermIdent)+ _setOdefinedSets :: DefinedSets+ _setIcollectedNames :: (Set Identifier)+ _setIerrors :: (Seq Error)+ _setInontSet :: (Set NontermIdent)+ -- "src-ag/Transform.ag"(line 582, column 10)+ _lhsOcollectedSetNames =+ ({-# LINE 582 "src-ag/Transform.ag" #-}+ Set.singleton name_+ {-# LINE 3859 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 699, column 13)+ (_defSets2,_errs) =+ ({-# LINE 699 "src-ag/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 3878 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 713, column 9)+ _lhsOdefSets =+ ({-# LINE 713 "src-ag/Transform.ag" #-}+ _defSets2+ {-# LINE 3884 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 713, column 9)+ _lhsOerrors =+ ({-# LINE 714 "src-ag/Transform.ag" #-}+ _errs >< _setIerrors+ {-# LINE 3890 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 893, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 893 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3896 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 46, column 19)+ _lhsOblocks =+ ({-# LINE 46 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3902 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 164, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 164 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3908 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 163, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 163 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3914 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 132, column 31)+ _lhsOcollectedConParams =+ ({-# LINE 132 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3920 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 131, column 33)+ _lhsOcollectedConstraints =+ ({-# LINE 131 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3926 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 99, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 99 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3932 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 130, column 28)+ _lhsOcollectedFields =+ ({-# LINE 130 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3938 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 161, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 161 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3944 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1283, column 28)+ _lhsOcollectedMacros =+ ({-# LINE 1283 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3950 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 165, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 165 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3956 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 91, column 50)+ _lhsOcollectedNames =+ ({-# LINE 91 "src-ag/Transform.ag" #-}+ _setIcollectedNames+ {-# LINE 3962 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 159, column 32)+ _lhsOcollectedRules =+ ({-# LINE 159 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3968 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 160, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 160 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3974 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 162, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 162 "src-ag/Transform.ag" #-}+ []+ {-# LINE 3980 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 948, column 34)+ _lhsOctxCollect =+ ({-# LINE 948 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3986 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 990, column 33)+ _lhsOderivings =+ ({-# LINE 990 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 3992 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1187, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1187 "src-ag/Transform.ag" #-}+ mzero+ {-# LINE 3998 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 925, column 37)+ _lhsOparamsCollect =+ ({-# LINE 925 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4004 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 787, column 34)+ _lhsOpragmas =+ ({-# LINE 787 "src-ag/Transform.ag" #-}+ id+ {-# LINE 4010 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 973, column 36)+ _lhsOquantCollect =+ ({-# LINE 973 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4016 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 865, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 865 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4022 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 626, column 32)+ _lhsOtypeSyns =+ ({-# LINE 626 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4028 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 145, column 15)+ _lhsOuseMap =+ ({-# LINE 145 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4034 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 771, column 32)+ _lhsOwrappers =+ ({-# LINE 771 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 4040 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 144 "src-ag/Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 4046 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOattrs =+ ({-# LINE 1316 "src-ag/Transform.ag" #-}+ _lhsIattrs+ {-# LINE 4052 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _setOallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4058 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _setOallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4064 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _setOdefinedSets =+ ({-# LINE 112 "src-ag/Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4070 "dist/build/Transform" #-}+ )+ ( _setIcollectedNames,_setIerrors,_setInontSet) =+ set_ _setOallFields _setOallNonterminals _setOdefinedSets+ ___node =+ (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOattrs _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMacros _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOquantCollect _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers)+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))+sem_Elem_Txt :: Pos ->+ BlockKind ->+ (Maybe NontermIdent) ->+ ([String]) ->+ T_Elem+sem_Elem_Txt pos_ kind_ mbNt_ lines_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallAttrs+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIattrs+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOblocks :: Blocks+ _lhsOerrors :: (Seq Error)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ _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)+ _lhsOquantCollect :: QuantMap+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOattrs :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- "src-ag/Transform.ag"(line 188, column 10)+ _blockInfo =+ ({-# LINE 188 "src-ag/Transform.ag" #-}+ ( kind_+ , mbNt_+ )+ {-# LINE 4129 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 191, column 10)+ _blockValue =+ ({-# LINE 191 "src-ag/Transform.ag" #-}+ [(lines_, pos_)]+ {-# LINE 4135 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 192, column 10)+ _lhsOblocks =+ ({-# LINE 192 "src-ag/Transform.ag" #-}+ Map.singleton _blockInfo _blockValue+ {-# LINE 4141 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 193, column 10)+ _lhsOerrors =+ ({-# LINE 193 "src-ag/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 4152 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 893, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 893 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4158 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 164, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 164 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4164 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 163, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 163 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4170 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 132, column 31)+ _lhsOcollectedConParams =+ ({-# LINE 132 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4176 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 131, column 33)+ _lhsOcollectedConstraints =+ ({-# LINE 131 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4182 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 99, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 99 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4188 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 130, column 28)+ _lhsOcollectedFields =+ ({-# LINE 130 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4194 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 161, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 161 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4200 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1283, column 28)+ _lhsOcollectedMacros =+ ({-# LINE 1283 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4206 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 165, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 165 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4212 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 91, column 50)+ _lhsOcollectedNames =+ ({-# LINE 91 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 4218 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 159, column 32)+ _lhsOcollectedRules =+ ({-# LINE 159 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4224 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 90, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 90 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 4230 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 160, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 160 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4236 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 162, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 162 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4242 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 948, column 34)+ _lhsOctxCollect =+ ({-# LINE 948 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4248 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 990, column 33)+ _lhsOderivings =+ ({-# LINE 990 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4254 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1187, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1187 "src-ag/Transform.ag" #-}+ mzero+ {-# LINE 4260 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 925, column 37)+ _lhsOparamsCollect =+ ({-# LINE 925 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4266 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 787, column 34)+ _lhsOpragmas =+ ({-# LINE 787 "src-ag/Transform.ag" #-}+ id+ {-# LINE 4272 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 973, column 36)+ _lhsOquantCollect =+ ({-# LINE 973 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4278 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 865, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 865 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4284 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 626, column 32)+ _lhsOtypeSyns =+ ({-# LINE 626 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4290 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 145, column 15)+ _lhsOuseMap =+ ({-# LINE 145 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4296 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 771, column 32)+ _lhsOwrappers =+ ({-# LINE 771 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 4302 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 144 "src-ag/Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 4308 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOattrs =+ ({-# LINE 1316 "src-ag/Transform.ag" #-}+ _lhsIattrs+ {-# LINE 4314 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 109 "src-ag/Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 4320 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOattrs _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMacros _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOquantCollect _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers)+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_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+ _lhsIallAttrs+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIattrs+ _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]) ])+ _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ _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)+ _lhsOquantCollect :: QuantMap+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOattrs :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- "src-ag/Transform.ag"(line 255, column 10)+ _lhsOcollectedFields =+ ({-# LINE 255 "src-ag/Transform.ag" #-}+ map (\(x,y)->(name_, x, y)) _expanded+ {-# LINE 4376 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 585, column 11)+ _lhsOcollectedNames =+ ({-# LINE 585 "src-ag/Transform.ag" #-}+ Set.singleton name_+ {-# LINE 4382 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 639, column 11)+ _expanded =+ ({-# LINE 639 "src-ag/Transform.ag" #-}+ case _argType of+ List tp -> [(Ident "Cons" pos_, [(Ident "hd" pos_, tp)+ ,(Ident "tl" pos_, NT name_ (map getName params_) False)+ ]+ )+ ,(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_) False)+ ])+ , (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_) False)+ ])+ , (Ident "Nil" pos_, [])+ ]+ OrdSet tp -> [ (Ident "Entry" pos_, [ (Ident "val" pos_, tp)+ , (Ident "tl" pos_, NT name_ (map getName params_) False) ])+ , (Ident "Nil" pos_, [])+ ]+ IntSet -> [ (Ident "Entry" pos_, [ (Ident "val" pos_, Haskell "Int")+ , (Ident "tl" pos_, NT name_ (map getName params_) False) ])+ , (Ident "Nil" pos_, [])+ ]+ Tuple xs -> [(Ident "Tuple" pos_, xs)]+ {-# LINE 4424 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 676, column 11)+ _argType =+ ({-# LINE 676 "src-ag/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)+ OrdSet tp -> OrdSet ( makeType _lhsIallNonterminals tp)+ IntSet -> IntSet+ {-# LINE 4438 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 685, column 11)+ _lhsOtypeSyns =+ ({-# LINE 685 "src-ag/Transform.ag" #-}+ [(name_,_argType)]+ {-# LINE 4444 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 935, column 7)+ _lhsOparamsCollect =+ ({-# LINE 935 "src-ag/Transform.ag" #-}+ if null params_+ then Map.empty+ else Map.singleton name_ params_+ {-# LINE 4452 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 958, column 7)+ _lhsOctxCollect =+ ({-# LINE 958 "src-ag/Transform.ag" #-}+ if null ctx_+ then Map.empty+ else Map.singleton name_ ctx_+ {-# LINE 4460 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 893, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 893 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4466 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 46, column 19)+ _lhsOblocks =+ ({-# LINE 46 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4472 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 164, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 164 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4478 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 163, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 163 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4484 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 132, column 31)+ _lhsOcollectedConParams =+ ({-# LINE 132 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4490 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 131, column 33)+ _lhsOcollectedConstraints =+ ({-# LINE 131 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4496 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 99, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 99 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4502 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 161, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 161 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4508 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1283, column 28)+ _lhsOcollectedMacros =+ ({-# LINE 1283 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4514 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 165, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 165 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4520 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 159, column 32)+ _lhsOcollectedRules =+ ({-# LINE 159 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4526 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 90, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 90 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 4532 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 160, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 160 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4538 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 162, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 162 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4544 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 990, column 33)+ _lhsOderivings =+ ({-# LINE 990 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4550 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ Seq.empty+ {-# LINE 4556 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1187, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1187 "src-ag/Transform.ag" #-}+ mzero+ {-# LINE 4562 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 787, column 34)+ _lhsOpragmas =+ ({-# LINE 787 "src-ag/Transform.ag" #-}+ id+ {-# LINE 4568 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 973, column 36)+ _lhsOquantCollect =+ ({-# LINE 973 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4574 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 865, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 865 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4580 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 145, column 15)+ _lhsOuseMap =+ ({-# LINE 145 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4586 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 771, column 32)+ _lhsOwrappers =+ ({-# LINE 771 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 4592 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 144 "src-ag/Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 4598 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOattrs =+ ({-# LINE 1316 "src-ag/Transform.ag" #-}+ _lhsIattrs+ {-# LINE 4604 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 109 "src-ag/Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 4610 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOattrs _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMacros _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOquantCollect _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers)+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))+sem_Elem_Wrapper :: Pos ->+ T_NontSet ->+ T_Elem+sem_Elem_Wrapper pos_ (T_NontSet set_) =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallAttrs+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIattrs+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ _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)+ _lhsOquantCollect :: QuantMap+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOattrs :: (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)+ -- "src-ag/Transform.ag"(line 774, column 13)+ _lhsOwrappers =+ ({-# LINE 774 "src-ag/Transform.ag" #-}+ _setInontSet+ {-# LINE 4669 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 893, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 893 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4675 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 46, column 19)+ _lhsOblocks =+ ({-# LINE 46 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4681 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 164, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 164 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4687 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 163, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 163 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4693 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 132, column 31)+ _lhsOcollectedConParams =+ ({-# LINE 132 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4699 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 131, column 33)+ _lhsOcollectedConstraints =+ ({-# LINE 131 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4705 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 99, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 99 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4711 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 130, column 28)+ _lhsOcollectedFields =+ ({-# LINE 130 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4717 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 161, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 161 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4723 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1283, column 28)+ _lhsOcollectedMacros =+ ({-# LINE 1283 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4729 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 165, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 165 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4735 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 91, column 50)+ _lhsOcollectedNames =+ ({-# LINE 91 "src-ag/Transform.ag" #-}+ _setIcollectedNames+ {-# LINE 4741 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 159, column 32)+ _lhsOcollectedRules =+ ({-# LINE 159 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4747 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 90, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 90 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 4753 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 160, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 160 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4759 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 162, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 162 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4765 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 948, column 34)+ _lhsOctxCollect =+ ({-# LINE 948 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4771 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 990, column 33)+ _lhsOderivings =+ ({-# LINE 990 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4777 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ _setIerrors+ {-# LINE 4783 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1187, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1187 "src-ag/Transform.ag" #-}+ mzero+ {-# LINE 4789 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 925, column 37)+ _lhsOparamsCollect =+ ({-# LINE 925 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4795 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 787, column 34)+ _lhsOpragmas =+ ({-# LINE 787 "src-ag/Transform.ag" #-}+ id+ {-# LINE 4801 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 973, column 36)+ _lhsOquantCollect =+ ({-# LINE 973 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4807 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 865, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 865 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4813 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 626, column 32)+ _lhsOtypeSyns =+ ({-# LINE 626 "src-ag/Transform.ag" #-}+ []+ {-# LINE 4819 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 145, column 15)+ _lhsOuseMap =+ ({-# LINE 145 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 4825 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 144 "src-ag/Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 4831 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOattrs =+ ({-# LINE 1316 "src-ag/Transform.ag" #-}+ _lhsIattrs+ {-# LINE 4837 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 109 "src-ag/Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 4843 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _setOallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4849 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _setOallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4855 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _setOdefinedSets =+ ({-# LINE 112 "src-ag/Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4861 "dist/build/Transform" #-}+ )+ ( _setIcollectedNames,_setIerrors,_setInontSet) =+ set_ _setOallFields _setOallNonterminals _setOdefinedSets+ ___node =+ (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOattrs _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMacros _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOquantCollect _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers)+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))+-- Elems -------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allAttrDecls : Map NontermIdent (Attributes, Attributes)+ allAttrs : 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)+ attrs : 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]) ]+ collectedConParams : [(NontermIdent, ConstructorIdent, Set Identifier)]+ collectedConstraints : [(NontermIdent, ConstructorIdent, [Type])]+ collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent)+ collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]+ collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]+ collectedMacros : [(NontermIdent, ConstructorIdent, MaybeMacro)]+ 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+ quantCollect : QuantMap+ 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 (Attributes, Attributes)) ->+ (Map NontermIdent (Set ConstructorIdent)) ->+ DataTypes ->+ (Set NontermIdent) ->+ (Map NontermIdent (Attributes, Attributes)) ->+ (Map NontermIdent (Attributes, Attributes)) ->+ (Map Identifier (Set NontermIdent,Set Identifier)) ->+ DefinedSets ->+ Options ->+ ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,(Map NontermIdent (Attributes, Attributes)),Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([(NontermIdent, ConstructorIdent, Set Identifier)]),([(NontermIdent, ConstructorIdent, [Type])]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([(NontermIdent, ConstructorIdent, MaybeMacro)]),([ (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),QuantMap,PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent)))+data Inh_Elems = Inh_Elems {allAttrDecls_Inh_Elems :: !((Map NontermIdent (Attributes, Attributes))),allAttrs_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))),attrs_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),attrs_Syn_Elems :: !((Map NontermIdent (Attributes, Attributes))),blocks_Syn_Elems :: !(Blocks),collectedArounds_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConParams_Syn_Elems :: !(([(NontermIdent, ConstructorIdent, Set Identifier)])),collectedConstraints_Syn_Elems :: !(([(NontermIdent, ConstructorIdent, [Type])])),collectedConstructorsMap_Syn_Elems :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elems :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMacros_Syn_Elems :: !(([(NontermIdent, ConstructorIdent, MaybeMacro)])),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)),quantCollect_Syn_Elems :: !(QuantMap),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 _lhsIallAttrs _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIattrs _lhsIdefSets _lhsIdefinedSets _lhsIoptions) =+ (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallAttrs _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIattrs _lhsIdefSets _lhsIdefinedSets _lhsIoptions+ in (Syn_Elems _lhsOattrDecls _lhsOattrOrderCollect _lhsOattrs _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMacros _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOquantCollect _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+ _lhsIallAttrs+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIattrs+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ _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)+ _lhsOquantCollect :: QuantMap+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOattrs :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _hdOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _hdOallAttrs :: (Map NontermIdent (Attributes, Attributes))+ _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _hdOallFields :: DataTypes+ _hdOallNonterminals :: (Set NontermIdent)+ _hdOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _hdOattrs :: (Map NontermIdent (Attributes, Attributes))+ _hdOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _hdOdefinedSets :: DefinedSets+ _hdOoptions :: Options+ _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _tlOallAttrs :: (Map NontermIdent (Attributes, Attributes))+ _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _tlOallFields :: DataTypes+ _tlOallNonterminals :: (Set NontermIdent)+ _tlOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _tlOattrs :: (Map NontermIdent (Attributes, Attributes))+ _tlOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _tlOdefinedSets :: DefinedSets+ _tlOoptions :: Options+ _hdIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _hdIattrOrderCollect :: AttrOrderMap+ _hdIattrs :: (Map NontermIdent (Attributes, Attributes))+ _hdIblocks :: Blocks+ _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _hdIcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _hdIcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _hdIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _hdIcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ _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)+ _hdIquantCollect :: QuantMap+ _hdIsemPragmasCollect :: PragmaMap+ _hdItypeSyns :: TypeSyns+ _hdIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _hdIwrappers :: (Set NontermIdent)+ _tlIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _tlIattrOrderCollect :: AttrOrderMap+ _tlIattrs :: (Map NontermIdent (Attributes, Attributes))+ _tlIblocks :: Blocks+ _tlIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _tlIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _tlIcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _tlIcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _tlIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _tlIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _tlIcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ _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)+ _tlIquantCollect :: QuantMap+ _tlIsemPragmasCollect :: PragmaMap+ _tlItypeSyns :: TypeSyns+ _tlIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _tlIwrappers :: (Set NontermIdent)+ -- use rule "src-ag/Transform.ag"(line 893, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 893 "src-ag/Transform.ag" #-}+ _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect+ {-# LINE 5070 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 46, column 19)+ _lhsOblocks =+ ({-# LINE 46 "src-ag/Transform.ag" #-}+ _hdIblocks `mapUnionWithPlusPlus` _tlIblocks+ {-# LINE 5076 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 164, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 164 "src-ag/Transform.ag" #-}+ _hdIcollectedArounds ++ _tlIcollectedArounds+ {-# LINE 5082 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 163, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 163 "src-ag/Transform.ag" #-}+ _hdIcollectedAugments ++ _tlIcollectedAugments+ {-# LINE 5088 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 132, column 31)+ _lhsOcollectedConParams =+ ({-# LINE 132 "src-ag/Transform.ag" #-}+ _hdIcollectedConParams ++ _tlIcollectedConParams+ {-# LINE 5094 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 131, column 33)+ _lhsOcollectedConstraints =+ ({-# LINE 131 "src-ag/Transform.ag" #-}+ _hdIcollectedConstraints ++ _tlIcollectedConstraints+ {-# LINE 5100 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 99, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 99 "src-ag/Transform.ag" #-}+ _hdIcollectedConstructorsMap `mapUnionWithSetUnion` _tlIcollectedConstructorsMap+ {-# LINE 5106 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 130, column 28)+ _lhsOcollectedFields =+ ({-# LINE 130 "src-ag/Transform.ag" #-}+ _hdIcollectedFields ++ _tlIcollectedFields+ {-# LINE 5112 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 161, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 161 "src-ag/Transform.ag" #-}+ _hdIcollectedInsts ++ _tlIcollectedInsts+ {-# LINE 5118 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1283, column 28)+ _lhsOcollectedMacros =+ ({-# LINE 1283 "src-ag/Transform.ag" #-}+ _hdIcollectedMacros ++ _tlIcollectedMacros+ {-# LINE 5124 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 165, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 165 "src-ag/Transform.ag" #-}+ _hdIcollectedMerges ++ _tlIcollectedMerges+ {-# LINE 5130 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 91, column 50)+ _lhsOcollectedNames =+ ({-# LINE 91 "src-ag/Transform.ag" #-}+ _hdIcollectedNames `Set.union` _tlIcollectedNames+ {-# LINE 5136 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 159, column 32)+ _lhsOcollectedRules =+ ({-# LINE 159 "src-ag/Transform.ag" #-}+ _hdIcollectedRules ++ _tlIcollectedRules+ {-# LINE 5142 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 90, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 90 "src-ag/Transform.ag" #-}+ _hdIcollectedSetNames `Set.union` _tlIcollectedSetNames+ {-# LINE 5148 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 160, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 160 "src-ag/Transform.ag" #-}+ _hdIcollectedSigs ++ _tlIcollectedSigs+ {-# LINE 5154 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 162, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 162 "src-ag/Transform.ag" #-}+ _hdIcollectedUniques ++ _tlIcollectedUniques+ {-# LINE 5160 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 948, column 34)+ _lhsOctxCollect =+ ({-# LINE 948 "src-ag/Transform.ag" #-}+ _hdIctxCollect `mergeCtx` _tlIctxCollect+ {-# LINE 5166 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 990, column 33)+ _lhsOderivings =+ ({-# LINE 990 "src-ag/Transform.ag" #-}+ _hdIderivings `mergeDerivings` _tlIderivings+ {-# LINE 5172 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 5178 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1187, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1187 "src-ag/Transform.ag" #-}+ _hdImoduleDecl `mplus` _tlImoduleDecl+ {-# LINE 5184 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 925, column 37)+ _lhsOparamsCollect =+ ({-# LINE 925 "src-ag/Transform.ag" #-}+ _hdIparamsCollect `mergeParams` _tlIparamsCollect+ {-# LINE 5190 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 787, column 34)+ _lhsOpragmas =+ ({-# LINE 787 "src-ag/Transform.ag" #-}+ _hdIpragmas . _tlIpragmas+ {-# LINE 5196 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 973, column 36)+ _lhsOquantCollect =+ ({-# LINE 973 "src-ag/Transform.ag" #-}+ _hdIquantCollect `mergeQuant` _tlIquantCollect+ {-# LINE 5202 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 865, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 865 "src-ag/Transform.ag" #-}+ _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect+ {-# LINE 5208 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 626, column 32)+ _lhsOtypeSyns =+ ({-# LINE 626 "src-ag/Transform.ag" #-}+ _hdItypeSyns ++ _tlItypeSyns+ {-# LINE 5214 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 145, column 15)+ _lhsOuseMap =+ ({-# LINE 145 "src-ag/Transform.ag" #-}+ _hdIuseMap `merge` _tlIuseMap+ {-# LINE 5220 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 771, column 32)+ _lhsOwrappers =+ ({-# LINE 771 "src-ag/Transform.ag" #-}+ _hdIwrappers `Set.union` _tlIwrappers+ {-# LINE 5226 "dist/build/Transform" #-}+ )+ -- copy rule (up)+ _lhsOattrDecls =+ ({-# LINE 144 "src-ag/Transform.ag" #-}+ _tlIattrDecls+ {-# LINE 5232 "dist/build/Transform" #-}+ )+ -- copy rule (up)+ _lhsOattrs =+ ({-# LINE 1316 "src-ag/Transform.ag" #-}+ _tlIattrs+ {-# LINE 5238 "dist/build/Transform" #-}+ )+ -- copy rule (up)+ _lhsOdefSets =+ ({-# LINE 109 "src-ag/Transform.ag" #-}+ _tlIdefSets+ {-# LINE 5244 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOallAttrDecls =+ ({-# LINE 894 "src-ag/Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 5250 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOallAttrs =+ ({-# LINE 1306 "src-ag/Transform.ag" #-}+ _lhsIallAttrs+ {-# LINE 5256 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOallConstructors =+ ({-# LINE 101 "src-ag/Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 5262 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 5268 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 5274 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOattrDecls =+ ({-# LINE 144 "src-ag/Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 5280 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOattrs =+ ({-# LINE 1316 "src-ag/Transform.ag" #-}+ _lhsIattrs+ {-# LINE 5286 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOdefSets =+ ({-# LINE 109 "src-ag/Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 5292 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOdefinedSets =+ ({-# LINE 112 "src-ag/Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 5298 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 40 "src-ag/Transform.ag" #-}+ _lhsIoptions+ {-# LINE 5304 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _tlOallAttrDecls =+ ({-# LINE 894 "src-ag/Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 5310 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _tlOallAttrs =+ ({-# LINE 1306 "src-ag/Transform.ag" #-}+ _lhsIallAttrs+ {-# LINE 5316 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _tlOallConstructors =+ ({-# LINE 101 "src-ag/Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 5322 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _tlOallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 5328 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _tlOallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 5334 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _tlOattrDecls =+ ({-# LINE 144 "src-ag/Transform.ag" #-}+ _hdIattrDecls+ {-# LINE 5340 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _tlOattrs =+ ({-# LINE 1316 "src-ag/Transform.ag" #-}+ _hdIattrs+ {-# LINE 5346 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _tlOdefSets =+ ({-# LINE 109 "src-ag/Transform.ag" #-}+ _hdIdefSets+ {-# LINE 5352 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _tlOdefinedSets =+ ({-# LINE 112 "src-ag/Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 5358 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 40 "src-ag/Transform.ag" #-}+ _lhsIoptions+ {-# LINE 5364 "dist/build/Transform" #-}+ )+ ( _hdIattrDecls,_hdIattrOrderCollect,_hdIattrs,_hdIblocks,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedConParams,_hdIcollectedConstraints,_hdIcollectedConstructorsMap,_hdIcollectedFields,_hdIcollectedInsts,_hdIcollectedMacros,_hdIcollectedMerges,_hdIcollectedNames,_hdIcollectedRules,_hdIcollectedSetNames,_hdIcollectedSigs,_hdIcollectedUniques,_hdIctxCollect,_hdIdefSets,_hdIderivings,_hdIerrors,_hdImoduleDecl,_hdIparamsCollect,_hdIpragmas,_hdIquantCollect,_hdIsemPragmasCollect,_hdItypeSyns,_hdIuseMap,_hdIwrappers) =+ hd_ _hdOallAttrDecls _hdOallAttrs _hdOallConstructors _hdOallFields _hdOallNonterminals _hdOattrDecls _hdOattrs _hdOdefSets _hdOdefinedSets _hdOoptions+ ( _tlIattrDecls,_tlIattrOrderCollect,_tlIattrs,_tlIblocks,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedConParams,_tlIcollectedConstraints,_tlIcollectedConstructorsMap,_tlIcollectedFields,_tlIcollectedInsts,_tlIcollectedMacros,_tlIcollectedMerges,_tlIcollectedNames,_tlIcollectedRules,_tlIcollectedSetNames,_tlIcollectedSigs,_tlIcollectedUniques,_tlIctxCollect,_tlIdefSets,_tlIderivings,_tlIerrors,_tlImoduleDecl,_tlIparamsCollect,_tlIpragmas,_tlIquantCollect,_tlIsemPragmasCollect,_tlItypeSyns,_tlIuseMap,_tlIwrappers) =+ tl_ _tlOallAttrDecls _tlOallAttrs _tlOallConstructors _tlOallFields _tlOallNonterminals _tlOattrDecls _tlOattrs _tlOdefSets _tlOdefinedSets _tlOoptions+ ___node =+ (Syn_Elems _lhsOattrDecls _lhsOattrOrderCollect _lhsOattrs _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMacros _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOquantCollect _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers)+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))+sem_Elems_Nil :: T_Elems+sem_Elems_Nil =+ (T_Elems (\ _lhsIallAttrDecls+ _lhsIallAttrs+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIattrs+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConParams :: ([(NontermIdent, ConstructorIdent, Set Identifier)])+ _lhsOcollectedConstraints :: ([(NontermIdent, ConstructorIdent, [Type])])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMacros :: ([(NontermIdent, ConstructorIdent, MaybeMacro)])+ _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)+ _lhsOquantCollect :: QuantMap+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOattrs :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- use rule "src-ag/Transform.ag"(line 893, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 893 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 5419 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 46, column 19)+ _lhsOblocks =+ ({-# LINE 46 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 5425 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 164, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 164 "src-ag/Transform.ag" #-}+ []+ {-# LINE 5431 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 163, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 163 "src-ag/Transform.ag" #-}+ []+ {-# LINE 5437 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 132, column 31)+ _lhsOcollectedConParams =+ ({-# LINE 132 "src-ag/Transform.ag" #-}+ []+ {-# LINE 5443 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 131, column 33)+ _lhsOcollectedConstraints =+ ({-# LINE 131 "src-ag/Transform.ag" #-}+ []+ {-# LINE 5449 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 99, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 99 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 5455 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 130, column 28)+ _lhsOcollectedFields =+ ({-# LINE 130 "src-ag/Transform.ag" #-}+ []+ {-# LINE 5461 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 161, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 161 "src-ag/Transform.ag" #-}+ []+ {-# LINE 5467 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1283, column 28)+ _lhsOcollectedMacros =+ ({-# LINE 1283 "src-ag/Transform.ag" #-}+ []+ {-# LINE 5473 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 165, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 165 "src-ag/Transform.ag" #-}+ []+ {-# LINE 5479 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 91, column 50)+ _lhsOcollectedNames =+ ({-# LINE 91 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 5485 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 159, column 32)+ _lhsOcollectedRules =+ ({-# LINE 159 "src-ag/Transform.ag" #-}+ []+ {-# LINE 5491 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 90, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 90 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 5497 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 160, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 160 "src-ag/Transform.ag" #-}+ []+ {-# LINE 5503 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 162, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 162 "src-ag/Transform.ag" #-}+ []+ {-# LINE 5509 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 948, column 34)+ _lhsOctxCollect =+ ({-# LINE 948 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 5515 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 990, column 33)+ _lhsOderivings =+ ({-# LINE 990 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 5521 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ Seq.empty+ {-# LINE 5527 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1187, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1187 "src-ag/Transform.ag" #-}+ mzero+ {-# LINE 5533 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 925, column 37)+ _lhsOparamsCollect =+ ({-# LINE 925 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 5539 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 787, column 34)+ _lhsOpragmas =+ ({-# LINE 787 "src-ag/Transform.ag" #-}+ id+ {-# LINE 5545 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 973, column 36)+ _lhsOquantCollect =+ ({-# LINE 973 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 5551 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 865, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 865 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 5557 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 626, column 32)+ _lhsOtypeSyns =+ ({-# LINE 626 "src-ag/Transform.ag" #-}+ []+ {-# LINE 5563 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 145, column 15)+ _lhsOuseMap =+ ({-# LINE 145 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 5569 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 771, column 32)+ _lhsOwrappers =+ ({-# LINE 771 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 5575 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 144 "src-ag/Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 5581 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOattrs =+ ({-# LINE 1316 "src-ag/Transform.ag" #-}+ _lhsIattrs+ {-# LINE 5587 "dist/build/Transform" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 109 "src-ag/Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 5593 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_Elems _lhsOattrDecls _lhsOattrOrderCollect _lhsOattrs _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConParams _lhsOcollectedConstraints _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMacros _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOquantCollect _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers)+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOattrs,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConParams,_lhsOcollectedConstraints,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMacros,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))))+-- Field -------------------------------------------------------+{-+ visit 0:+ inherited attribute:+ allNonterminals : Set NontermIdent+ synthesized attributes:+ collectedConstraints : [Type]+ collectedFields : [(Identifier, Type)]+ alternatives:+ alternative FChild:+ child name : {Identifier}+ child tp : {Type}+ alternative FCtx:+ child tps : {[Type]}+-}+-- cata+sem_Field :: Field ->+ T_Field+sem_Field (FChild _name _tp) =+ (sem_Field_FChild _name _tp)+sem_Field (FCtx _tps) =+ (sem_Field_FCtx _tps)+-- semantic domain+newtype T_Field = T_Field ((Set NontermIdent) ->+ ( ([Type]),([(Identifier, Type)])))+data Inh_Field = Inh_Field {allNonterminals_Inh_Field :: !((Set NontermIdent))}+data Syn_Field = Syn_Field {collectedConstraints_Syn_Field :: !(([Type])),collectedFields_Syn_Field :: !(([(Identifier, Type)]))}+wrap_Field :: T_Field ->+ Inh_Field ->+ Syn_Field+wrap_Field (T_Field sem) (Inh_Field _lhsIallNonterminals) =+ (let ( _lhsOcollectedConstraints,_lhsOcollectedFields) = sem _lhsIallNonterminals+ in (Syn_Field _lhsOcollectedConstraints _lhsOcollectedFields))+sem_Field_FChild :: Identifier ->+ Type ->+ T_Field+sem_Field_FChild name_ tp_ =+ (T_Field (\ _lhsIallNonterminals ->+ (let _lhsOcollectedFields :: ([(Identifier, Type)])+ _lhsOcollectedConstraints :: ([Type])+ -- "src-ag/Transform.ag"(line 564, column 3)+ _lhsOcollectedFields =+ ({-# LINE 564 "src-ag/Transform.ag" #-}+ [(name_, makeType _lhsIallNonterminals tp_)]+ {-# LINE 5642 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 570, column 46)+ _lhsOcollectedConstraints =+ ({-# LINE 570 "src-ag/Transform.ag" #-}+ []+ {-# LINE 5648 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_Field _lhsOcollectedConstraints _lhsOcollectedFields)+ in ( _lhsOcollectedConstraints,_lhsOcollectedFields))))+sem_Field_FCtx :: ([Type]) ->+ T_Field+sem_Field_FCtx tps_ =+ (T_Field (\ _lhsIallNonterminals ->+ (let _lhsOcollectedConstraints :: ([Type])+ _lhsOcollectedFields :: ([(Identifier, Type)])+ -- "src-ag/Transform.ag"(line 573, column 3)+ _lhsOcollectedConstraints =+ ({-# LINE 573 "src-ag/Transform.ag" #-}+ tps_+ {-# LINE 5663 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 561, column 41)+ _lhsOcollectedFields =+ ({-# LINE 561 "src-ag/Transform.ag" #-}+ []+ {-# LINE 5669 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_Field _lhsOcollectedConstraints _lhsOcollectedFields)+ in ( _lhsOcollectedConstraints,_lhsOcollectedFields))))+-- Fields ------------------------------------------------------+{-+ visit 0:+ inherited attribute:+ allNonterminals : Set NontermIdent+ synthesized attributes:+ collectedConstraints : [Type]+ collectedFields : [(Identifier, Type)]+ alternatives:+ alternative Cons:+ child hd : Field + child tl : Fields + alternative Nil:+-}+-- cata+sem_Fields :: Fields ->+ T_Fields+sem_Fields list =+ (Prelude.foldr sem_Fields_Cons sem_Fields_Nil (Prelude.map sem_Field list))+-- semantic domain+newtype T_Fields = T_Fields ((Set NontermIdent) ->+ ( ([Type]),([(Identifier, Type)])))+data Inh_Fields = Inh_Fields {allNonterminals_Inh_Fields :: !((Set NontermIdent))}+data Syn_Fields = Syn_Fields {collectedConstraints_Syn_Fields :: !(([Type])),collectedFields_Syn_Fields :: !(([(Identifier, Type)]))}+wrap_Fields :: T_Fields ->+ Inh_Fields ->+ Syn_Fields+wrap_Fields (T_Fields sem) (Inh_Fields _lhsIallNonterminals) =+ (let ( _lhsOcollectedConstraints,_lhsOcollectedFields) = sem _lhsIallNonterminals+ in (Syn_Fields _lhsOcollectedConstraints _lhsOcollectedFields))+sem_Fields_Cons :: T_Field ->+ T_Fields ->+ T_Fields+sem_Fields_Cons (T_Field hd_) (T_Fields tl_) =+ (T_Fields (\ _lhsIallNonterminals ->+ (let _lhsOcollectedConstraints :: ([Type])+ _lhsOcollectedFields :: ([(Identifier, Type)])+ _hdOallNonterminals :: (Set NontermIdent)+ _tlOallNonterminals :: (Set NontermIdent)+ _hdIcollectedConstraints :: ([Type])+ _hdIcollectedFields :: ([(Identifier, Type)])+ _tlIcollectedConstraints :: ([Type])+ _tlIcollectedFields :: ([(Identifier, Type)])+ -- use rule "src-ag/Transform.ag"(line 570, column 46)+ _lhsOcollectedConstraints =+ ({-# LINE 570 "src-ag/Transform.ag" #-}+ _hdIcollectedConstraints ++ _tlIcollectedConstraints+ {-# LINE 5721 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 561, column 41)+ _lhsOcollectedFields =+ ({-# LINE 561 "src-ag/Transform.ag" #-}+ _hdIcollectedFields ++ _tlIcollectedFields+ {-# LINE 5727 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 5733 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _tlOallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 5739 "dist/build/Transform" #-}+ )+ ( _hdIcollectedConstraints,_hdIcollectedFields) =+ hd_ _hdOallNonterminals+ ( _tlIcollectedConstraints,_tlIcollectedFields) =+ tl_ _tlOallNonterminals+ ___node =+ (Syn_Fields _lhsOcollectedConstraints _lhsOcollectedFields)+ in ( _lhsOcollectedConstraints,_lhsOcollectedFields))))+sem_Fields_Nil :: T_Fields+sem_Fields_Nil =+ (T_Fields (\ _lhsIallNonterminals ->+ (let _lhsOcollectedConstraints :: ([Type])+ _lhsOcollectedFields :: ([(Identifier, Type)])+ -- use rule "src-ag/Transform.ag"(line 570, column 46)+ _lhsOcollectedConstraints =+ ({-# LINE 570 "src-ag/Transform.ag" #-}+ []+ {-# LINE 5757 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 561, column 41)+ _lhsOcollectedFields =+ ({-# LINE 561 "src-ag/Transform.ag" #-}+ []+ {-# LINE 5763 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_Fields _lhsOcollectedConstraints _lhsOcollectedFields)+ in ( _lhsOcollectedConstraints,_lhsOcollectedFields))))+-- 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 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)+ -- "src-ag/Transform.ag"(line 717, column 16)+ _lhsOnontSet =+ ({-# LINE 717 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 5839 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 91, column 50)+ _lhsOcollectedNames =+ ({-# LINE 91 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 5845 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ Seq.empty+ {-# LINE 5851 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_NontSet _lhsOcollectedNames _lhsOerrors _lhsOnontSet)+ 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)+ -- "src-ag/Transform.ag"(line 723, column 16)+ _lhsOnontSet =+ ({-# LINE 723 "src-ag/Transform.ag" #-}+ Set.difference _set1InontSet _set2InontSet+ {-# LINE 5882 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 91, column 50)+ _lhsOcollectedNames =+ ({-# LINE 91 "src-ag/Transform.ag" #-}+ _set1IcollectedNames `Set.union` _set2IcollectedNames+ {-# LINE 5888 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 5894 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _set1OallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 5900 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _set1OallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 5906 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _set1OdefinedSets =+ ({-# LINE 112 "src-ag/Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 5912 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _set2OallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 5918 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _set2OallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 5924 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _set2OdefinedSets =+ ({-# LINE 112 "src-ag/Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 5930 "dist/build/Transform" #-}+ )+ ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =+ set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets+ ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =+ set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets+ ___node =+ (Syn_NontSet _lhsOcollectedNames _lhsOerrors _lhsOnontSet)+ 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)+ -- "src-ag/Transform.ag"(line 722, column 16)+ _lhsOnontSet =+ ({-# LINE 722 "src-ag/Transform.ag" #-}+ Set.intersection _set1InontSet _set2InontSet+ {-# LINE 5965 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 91, column 50)+ _lhsOcollectedNames =+ ({-# LINE 91 "src-ag/Transform.ag" #-}+ _set1IcollectedNames `Set.union` _set2IcollectedNames+ {-# LINE 5971 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 5977 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _set1OallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 5983 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _set1OallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 5989 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _set1OdefinedSets =+ ({-# LINE 112 "src-ag/Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 5995 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _set2OallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 6001 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _set2OallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 6007 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _set2OdefinedSets =+ ({-# LINE 112 "src-ag/Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 6013 "dist/build/Transform" #-}+ )+ ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =+ set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets+ ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =+ set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets+ ___node =+ (Syn_NontSet _lhsOcollectedNames _lhsOerrors _lhsOnontSet)+ 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)+ -- "src-ag/Transform.ag"(line 588, column 14)+ _lhsOcollectedNames =+ ({-# LINE 588 "src-ag/Transform.ag" #-}+ Set.singleton name_+ {-# LINE 6035 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 718, column 20)+ (_nontSet,_errors) =+ ({-# LINE 718 "src-ag/Transform.ag" #-}+ case Map.lookup name_ _lhsIdefinedSets of+ Nothing -> (Set.empty, Seq.singleton (UndefNont name_))+ Just set -> (set, Seq.empty)+ {-# LINE 6043 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ _errors+ {-# LINE 6049 "dist/build/Transform" #-}+ )+ -- copy rule (from local)+ _lhsOnontSet =+ ({-# LINE 117 "src-ag/Transform.ag" #-}+ _nontSet+ {-# LINE 6055 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_NontSet _lhsOcollectedNames _lhsOerrors _lhsOnontSet)+ 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)+ -- "src-ag/Transform.ag"(line 724, column 16)+ _lhsOnontSet =+ ({-# LINE 724 "src-ag/Transform.ag" #-}+ let table = flattenDatas _lhsIallFields+ in path table from_ to_+ {-# LINE 6075 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 726, column 16)+ _lhsOerrors =+ ({-# LINE 726 "src-ag/Transform.ag" #-}+ let check name | Set.member name _lhsIallNonterminals+ = Seq.empty+ | otherwise = Seq.singleton (UndefNont name)+ in check from_ >< check to_+ {-# LINE 6084 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 91, column 50)+ _lhsOcollectedNames =+ ({-# LINE 91 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 6090 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_NontSet _lhsOcollectedNames _lhsOerrors _lhsOnontSet)+ 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)+ -- "src-ag/Transform.ag"(line 721, column 16)+ _lhsOnontSet =+ ({-# LINE 721 "src-ag/Transform.ag" #-}+ Set.union _set1InontSet _set2InontSet+ {-# LINE 6121 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 91, column 50)+ _lhsOcollectedNames =+ ({-# LINE 91 "src-ag/Transform.ag" #-}+ _set1IcollectedNames `Set.union` _set2IcollectedNames+ {-# LINE 6127 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 6133 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _set1OallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 6139 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _set1OallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 6145 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _set1OdefinedSets =+ ({-# LINE 112 "src-ag/Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 6151 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _set2OallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 6157 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _set2OallNonterminals =+ ({-# LINE 93 "src-ag/Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 6163 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _set2OdefinedSets =+ ({-# LINE 112 "src-ag/Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 6169 "dist/build/Transform" #-}+ )+ ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =+ set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets+ ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =+ set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets+ ___node =+ (Syn_NontSet _lhsOcollectedNames _lhsOerrors _lhsOnontSet)+ in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))))+-- Pattern -----------------------------------------------------+{-+ visit 0:+ synthesized attributes:+ copy : Pattern + definedAttrs : [AttrName]+ definedInsts : [Identifier]+ patunder : [AttrName]->Pattern+ stpos : Pos+ alternatives:+ alternative Alias:+ child field : {Identifier}+ child attr : {Identifier}+ child pat : Pattern + 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) =+ (sem_Pattern_Alias _field _attr (sem_Pattern _pat))+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_Pattern+sem_Pattern_Alias field_ attr_ (T_Pattern pat_) =+ (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+ -- "src-ag/Transform.ag"(line 1163, column 11)+ _lhsOdefinedAttrs =+ ({-# LINE 1163 "src-ag/Transform.ag" #-}+ (field_, attr_) : _patIdefinedAttrs+ {-# LINE 6255 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1164, column 11)+ _lhsOpatunder =+ ({-# LINE 1164 "src-ag/Transform.ag" #-}+ \us -> if ((field_,attr_) `elem` us) then Underscore noPos else _copy+ {-# LINE 6261 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1165, column 11)+ _lhsOdefinedInsts =+ ({-# LINE 1165 "src-ag/Transform.ag" #-}+ (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts+ {-# LINE 6267 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1180, column 16)+ _lhsOstpos =+ ({-# LINE 1180 "src-ag/Transform.ag" #-}+ getPos field_+ {-# LINE 6273 "dist/build/Transform" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Alias field_ attr_ _patIcopy+ {-# LINE 6279 "dist/build/Transform" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 6285 "dist/build/Transform" #-}+ )+ ( _patIcopy,_patIdefinedAttrs,_patIdefinedInsts,_patIpatunder,_patIstpos) =+ pat_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder _lhsOstpos)+ 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)+ -- "src-ag/Transform.ag"(line 1167, column 12)+ _lhsOpatunder =+ ({-# LINE 1167 "src-ag/Transform.ag" #-}+ \us -> Constr name_ (_patsIpatunder us)+ {-# LINE 6309 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1178, column 16)+ _lhsOstpos =+ ({-# LINE 1178 "src-ag/Transform.ag" #-}+ getPos name_+ {-# LINE 6315 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1158, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1158 "src-ag/Transform.ag" #-}+ _patsIdefinedAttrs+ {-# LINE 6321 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1157, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1157 "src-ag/Transform.ag" #-}+ _patsIdefinedInsts+ {-# LINE 6327 "dist/build/Transform" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Constr name_ _patsIcopy+ {-# LINE 6333 "dist/build/Transform" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 6339 "dist/build/Transform" #-}+ )+ ( _patsIcopy,_patsIdefinedAttrs,_patsIdefinedInsts,_patsIpatunder) =+ pats_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder _lhsOstpos)+ 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+ -- "src-ag/Transform.ag"(line 1169, column 17)+ _lhsOpatunder =+ ({-# LINE 1169 "src-ag/Transform.ag" #-}+ \us -> Irrefutable (_patIpatunder us)+ {-# LINE 6363 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1158, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1158 "src-ag/Transform.ag" #-}+ _patIdefinedAttrs+ {-# LINE 6369 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1157, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1157 "src-ag/Transform.ag" #-}+ _patIdefinedInsts+ {-# LINE 6375 "dist/build/Transform" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Irrefutable _patIcopy+ {-# LINE 6381 "dist/build/Transform" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 6387 "dist/build/Transform" #-}+ )+ -- copy rule (up)+ _lhsOstpos =+ ({-# LINE 1175 "src-ag/Transform.ag" #-}+ _patIstpos+ {-# LINE 6393 "dist/build/Transform" #-}+ )+ ( _patIcopy,_patIdefinedAttrs,_patIdefinedInsts,_patIpatunder,_patIstpos) =+ pat_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder _lhsOstpos)+ 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)+ -- "src-ag/Transform.ag"(line 1168, column 13)+ _lhsOpatunder =+ ({-# LINE 1168 "src-ag/Transform.ag" #-}+ \us -> Product pos_ (_patsIpatunder us)+ {-# LINE 6417 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1179, column 16)+ _lhsOstpos =+ ({-# LINE 1179 "src-ag/Transform.ag" #-}+ pos_+ {-# LINE 6423 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1158, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1158 "src-ag/Transform.ag" #-}+ _patsIdefinedAttrs+ {-# LINE 6429 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1157, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1157 "src-ag/Transform.ag" #-}+ _patsIdefinedInsts+ {-# LINE 6435 "dist/build/Transform" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Product pos_ _patsIcopy+ {-# LINE 6441 "dist/build/Transform" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 6447 "dist/build/Transform" #-}+ )+ ( _patsIcopy,_patsIdefinedAttrs,_patsIdefinedInsts,_patsIpatunder) =+ pats_+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder _lhsOstpos)+ 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+ -- "src-ag/Transform.ag"(line 1166, column 16)+ _lhsOpatunder =+ ({-# LINE 1166 "src-ag/Transform.ag" #-}+ \us -> _copy+ {-# LINE 6466 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1181, column 16)+ _lhsOstpos =+ ({-# LINE 1181 "src-ag/Transform.ag" #-}+ pos_+ {-# LINE 6472 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1158, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1158 "src-ag/Transform.ag" #-}+ []+ {-# LINE 6478 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1157, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1157 "src-ag/Transform.ag" #-}+ []+ {-# LINE 6484 "dist/build/Transform" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ Underscore pos_+ {-# LINE 6490 "dist/build/Transform" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 6496 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_Pattern _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder _lhsOstpos)+ in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)))+-- Patterns ----------------------------------------------------+{-+ visit 0:+ synthesized attributes:+ copy : Patterns + 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)+ -- "src-ag/Transform.ag"(line 1173, column 10)+ _lhsOpatunder =+ ({-# LINE 1173 "src-ag/Transform.ag" #-}+ \us -> (_hdIpatunder us) : (_tlIpatunder us)+ {-# LINE 6555 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1158, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1158 "src-ag/Transform.ag" #-}+ _hdIdefinedAttrs ++ _tlIdefinedAttrs+ {-# LINE 6561 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1157, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1157 "src-ag/Transform.ag" #-}+ _hdIdefinedInsts ++ _tlIdefinedInsts+ {-# LINE 6567 "dist/build/Transform" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ (:) _hdIcopy _tlIcopy+ {-# LINE 6573 "dist/build/Transform" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 6579 "dist/build/Transform" #-}+ )+ ( _hdIcopy,_hdIdefinedAttrs,_hdIdefinedInsts,_hdIpatunder,_hdIstpos) =+ hd_+ ( _tlIcopy,_tlIdefinedAttrs,_tlIdefinedInsts,_tlIpatunder) =+ tl_+ ___node =+ (Syn_Patterns _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder)+ 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+ -- "src-ag/Transform.ag"(line 1172, column 9)+ _lhsOpatunder =+ ({-# LINE 1172 "src-ag/Transform.ag" #-}+ \us -> []+ {-# LINE 6598 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1158, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1158 "src-ag/Transform.ag" #-}+ []+ {-# LINE 6604 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1157, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1157 "src-ag/Transform.ag" #-}+ []+ {-# LINE 6610 "dist/build/Transform" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ []+ {-# LINE 6616 "dist/build/Transform" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 22 "src-ag/Patterns.ag" #-}+ _copy+ {-# LINE 6622 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_Patterns _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder)+ in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)))+-- SemAlt ------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allAttrDecls : Map NontermIdent (Attributes, Attributes)+ allAttrs : 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)) ->+ (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))),allAttrs_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 _lhsIallAttrs _lhsIallFields _lhsInts _lhsIoptions) =+ (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallAttrs _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+ _lhsIallAttrs+ _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])+ -- "src-ag/Transform.ag"(line 869, column 7)+ _pragmaNames =+ ({-# LINE 869 "src-ag/Transform.ag" #-}+ Set.fromList _rulesIpragmaNamesCollect+ {-# LINE 6715 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 870, column 7)+ _lhsOsemPragmasCollect =+ ({-# LINE 870 "src-ag/Transform.ag" #-}+ foldr pragmaMapUnion Map.empty [ pragmaMapSingle nt con _pragmaNames+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 6724 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 898, column 7)+ _attrOrders =+ ({-# LINE 898 "src-ag/Transform.ag" #-}+ [ orderMapSingle nt con _rulesIorderDepsCollect+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 6733 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 904, column 7)+ _lhsOattrOrderCollect =+ ({-# LINE 904 "src-ag/Transform.ag" #-}+ foldr orderMapUnion Map.empty _attrOrders+ {-# LINE 6739 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1082, column 12)+ _coninfo =+ ({-# LINE 1082 "src-ag/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 6750 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1089, column 12)+ _lhsOerrors =+ ({-# LINE 1089 "src-ag/Transform.ag" #-}+ Seq.fromList+ [ UndefAlt nt con+ | (nt, conset, conkeys) <- _coninfo+ , con <- Set.toList (Set.difference conset conkeys)+ ]+ Seq.>< _rulesIerrors+ {-# LINE 6761 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1095, column 12)+ _lhsOcollectedRules =+ ({-# LINE 1095 "src-ag/Transform.ag" #-}+ [ (nt,con,r)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ , r <- _rulesIruleInfos+ ]+ {-# LINE 6771 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1101, column 12)+ _lhsOcollectedSigs =+ ({-# LINE 1101 "src-ag/Transform.ag" #-}+ [ (nt,con,ts)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ , ts <- _rulesIsigInfos+ ]+ {-# LINE 6781 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1108, column 12)+ _lhsOcollectedInsts =+ ({-# LINE 1108 "src-ag/Transform.ag" #-}+ [ (nt,con,_rulesIdefinedInsts)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 6790 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1114, column 12)+ _lhsOcollectedUniques =+ ({-# LINE 1114 "src-ag/Transform.ag" #-}+ [ (nt,con,_rulesIuniqueInfos)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 6799 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1120, column 12)+ _lhsOcollectedAugments =+ ({-# LINE 1120 "src-ag/Transform.ag" #-}+ [ (nt, con, _rulesIaugmentInfos)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 6808 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1126, column 12)+ _lhsOcollectedArounds =+ ({-# LINE 1126 "src-ag/Transform.ag" #-}+ [ (nt, con, _rulesIaroundInfos)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 6817 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1132, column 12)+ _lhsOcollectedMerges =+ ({-# LINE 1132 "src-ag/Transform.ag" #-}+ [ (nt, con, _rulesImergeInfos)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 6826 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _rulesOoptions =+ ({-# LINE 40 "src-ag/Transform.ag" #-}+ _lhsIoptions+ {-# LINE 6832 "dist/build/Transform" #-}+ )+ ( _constructorSetIcollectedConstructorNames,_constructorSetIconstructors,_constructorSetIerrors) =+ constructorSet_+ ( _rulesIaroundInfos,_rulesIaugmentInfos,_rulesIdefinedInsts,_rulesIerrors,_rulesImergeInfos,_rulesIorderDepsCollect,_rulesIpragmaNamesCollect,_rulesIruleInfos,_rulesIsigInfos,_rulesIuniqueInfos) =+ rules_ _rulesOoptions+ ___node =+ (Syn_SemAlt _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedRules _lhsOcollectedSigs _lhsOcollectedUniques _lhsOerrors _lhsOsemPragmasCollect)+ in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))))+-- SemAlts -----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allAttrDecls : Map NontermIdent (Attributes, Attributes)+ allAttrs : 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)) ->+ (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))),allAttrs_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 _lhsIallAttrs _lhsIallFields _lhsInts _lhsIoptions) =+ (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallAttrs _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+ _lhsIallAttrs+ _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))+ _hdOallAttrs :: (Map NontermIdent (Attributes, Attributes))+ _hdOallFields :: DataTypes+ _hdOnts :: (Set NontermIdent)+ _hdOoptions :: Options+ _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _tlOallAttrs :: (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 "src-ag/Transform.ag"(line 893, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 893 "src-ag/Transform.ag" #-}+ _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect+ {-# LINE 6940 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 164, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 164 "src-ag/Transform.ag" #-}+ _hdIcollectedArounds ++ _tlIcollectedArounds+ {-# LINE 6946 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 163, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 163 "src-ag/Transform.ag" #-}+ _hdIcollectedAugments ++ _tlIcollectedAugments+ {-# LINE 6952 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 161, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 161 "src-ag/Transform.ag" #-}+ _hdIcollectedInsts ++ _tlIcollectedInsts+ {-# LINE 6958 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 165, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 165 "src-ag/Transform.ag" #-}+ _hdIcollectedMerges ++ _tlIcollectedMerges+ {-# LINE 6964 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 159, column 32)+ _lhsOcollectedRules =+ ({-# LINE 159 "src-ag/Transform.ag" #-}+ _hdIcollectedRules ++ _tlIcollectedRules+ {-# LINE 6970 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 160, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 160 "src-ag/Transform.ag" #-}+ _hdIcollectedSigs ++ _tlIcollectedSigs+ {-# LINE 6976 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 162, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 162 "src-ag/Transform.ag" #-}+ _hdIcollectedUniques ++ _tlIcollectedUniques+ {-# LINE 6982 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 6988 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 865, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 865 "src-ag/Transform.ag" #-}+ _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect+ {-# LINE 6994 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOallAttrDecls =+ ({-# LINE 894 "src-ag/Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 7000 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOallAttrs =+ ({-# LINE 1306 "src-ag/Transform.ag" #-}+ _lhsIallAttrs+ {-# LINE 7006 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 7012 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOnts =+ ({-# LINE 175 "src-ag/Transform.ag" #-}+ _lhsInts+ {-# LINE 7018 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 40 "src-ag/Transform.ag" #-}+ _lhsIoptions+ {-# LINE 7024 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _tlOallAttrDecls =+ ({-# LINE 894 "src-ag/Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 7030 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _tlOallAttrs =+ ({-# LINE 1306 "src-ag/Transform.ag" #-}+ _lhsIallAttrs+ {-# LINE 7036 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _tlOallFields =+ ({-# LINE 136 "src-ag/Transform.ag" #-}+ _lhsIallFields+ {-# LINE 7042 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _tlOnts =+ ({-# LINE 175 "src-ag/Transform.ag" #-}+ _lhsInts+ {-# LINE 7048 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 40 "src-ag/Transform.ag" #-}+ _lhsIoptions+ {-# LINE 7054 "dist/build/Transform" #-}+ )+ ( _hdIattrOrderCollect,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedInsts,_hdIcollectedMerges,_hdIcollectedRules,_hdIcollectedSigs,_hdIcollectedUniques,_hdIerrors,_hdIsemPragmasCollect) =+ hd_ _hdOallAttrDecls _hdOallAttrs _hdOallFields _hdOnts _hdOoptions+ ( _tlIattrOrderCollect,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedInsts,_tlIcollectedMerges,_tlIcollectedRules,_tlIcollectedSigs,_tlIcollectedUniques,_tlIerrors,_tlIsemPragmasCollect) =+ tl_ _tlOallAttrDecls _tlOallAttrs _tlOallFields _tlOnts _tlOoptions+ ___node =+ (Syn_SemAlts _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedRules _lhsOcollectedSigs _lhsOcollectedUniques _lhsOerrors _lhsOsemPragmasCollect)+ in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))))+sem_SemAlts_Nil :: T_SemAlts+sem_SemAlts_Nil =+ (T_SemAlts (\ _lhsIallAttrDecls+ _lhsIallAttrs+ _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 "src-ag/Transform.ag"(line 893, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 893 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 7084 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 164, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 164 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7090 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 163, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 163 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7096 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 161, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 161 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7102 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 165, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 165 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7108 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 159, column 32)+ _lhsOcollectedRules =+ ({-# LINE 159 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7114 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 160, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 160 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7120 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 162, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 162 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7126 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ Seq.empty+ {-# LINE 7132 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 865, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 865 "src-ag/Transform.ag" #-}+ Map.empty+ {-# LINE 7138 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_SemAlts _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedRules _lhsOcollectedSigs _lhsOcollectedUniques _lhsOerrors _lhsOsemPragmasCollect)+ 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}+ child pure : {Bool}+ child eager : {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 _pure _eager) =+ (sem_SemDef_Def _pos _mbName (sem_Pattern _pattern) _rhs _owrt _pure _eager)+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])+ -- "src-ag/Transform.ag"(line 1151, column 17)+ _lhsOaroundInfos =+ ({-# LINE 1151 "src-ag/Transform.ag" #-}+ [ (ident_, rhs_) ]+ {-# LINE 7243 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1075, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 1075 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7249 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1157, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1157 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7255 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ Seq.empty+ {-# LINE 7261 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1077, column 40)+ _lhsOmergeInfos =+ ({-# LINE 1077 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7267 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 906, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 906 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 7273 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 875, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 875 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7279 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1072, column 40)+ _lhsOruleInfos =+ ({-# LINE 1072 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7285 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1073, column 40)+ _lhsOsigInfos =+ ({-# LINE 1073 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7291 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1074, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 1074 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7297 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_SemDef _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos)+ 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])+ -- "src-ag/Transform.ag"(line 910, column 7)+ _dependency =+ ({-# LINE 910 "src-ag/Transform.ag" #-}+ [ Dependency b a | b <- before_, a <- after_ ]+ {-# LINE 7321 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 911, column 7)+ _lhsOorderDepsCollect =+ ({-# LINE 911 "src-ag/Transform.ag" #-}+ Set.fromList _dependency+ {-# LINE 7327 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1076, column 40)+ _lhsOaroundInfos =+ ({-# LINE 1076 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7333 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1075, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 1075 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7339 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1157, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1157 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7345 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ Seq.empty+ {-# LINE 7351 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1077, column 40)+ _lhsOmergeInfos =+ ({-# LINE 1077 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7357 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 875, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 875 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7363 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1072, column 40)+ _lhsOruleInfos =+ ({-# LINE 1072 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7369 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1073, column 40)+ _lhsOsigInfos =+ ({-# LINE 1073 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7375 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1074, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 1074 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7381 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_SemDef _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos)+ 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])+ -- "src-ag/Transform.ag"(line 1148, column 17)+ _lhsOaugmentInfos =+ ({-# LINE 1148 "src-ag/Transform.ag" #-}+ [ (ident_, rhs_) ]+ {-# LINE 7405 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1076, column 40)+ _lhsOaroundInfos =+ ({-# LINE 1076 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7411 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1157, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1157 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7417 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ Seq.empty+ {-# LINE 7423 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1077, column 40)+ _lhsOmergeInfos =+ ({-# LINE 1077 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7429 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 906, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 906 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 7435 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 875, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 875 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7441 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1072, column 40)+ _lhsOruleInfos =+ ({-# LINE 1072 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7447 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1073, column 40)+ _lhsOsigInfos =+ ({-# LINE 1073 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7453 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1074, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 1074 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7459 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_SemDef _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos)+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))))+sem_SemDef_Def :: Pos ->+ (Maybe Identifier) ->+ T_Pattern ->+ Expression ->+ Bool ->+ Bool ->+ Bool ->+ T_SemDef+sem_SemDef_Def pos_ mbName_ (T_Pattern pattern_) rhs_ owrt_ pure_ eager_ =+ (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+ -- "src-ag/Transform.ag"(line 541, column 3)+ _lhsOerrors =+ ({-# LINE 541 "src-ag/Transform.ag" #-}+ if checkParseRhs _lhsIoptions+ then Seq.fromList $ checkRhs rhs_+ else Seq.empty+ {-# LINE 7495 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1139, column 10)+ _lhsOruleInfos =+ ({-# LINE 1139 "src-ag/Transform.ag" #-}+ [ (mbName_, _patternIpatunder, rhs_, _patternIdefinedAttrs, owrt_, show _patternIstpos, pure_, eager_) ]+ {-# LINE 7501 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1076, column 40)+ _lhsOaroundInfos =+ ({-# LINE 1076 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7507 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1075, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 1075 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7513 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1157, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1157 "src-ag/Transform.ag" #-}+ _patternIdefinedInsts+ {-# LINE 7519 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1077, column 40)+ _lhsOmergeInfos =+ ({-# LINE 1077 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7525 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 906, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 906 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 7531 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 875, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 875 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7537 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1073, column 40)+ _lhsOsigInfos =+ ({-# LINE 1073 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7543 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1074, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 1074 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7549 "dist/build/Transform" #-}+ )+ ( _patternIcopy,_patternIdefinedAttrs,_patternIdefinedInsts,_patternIpatunder,_patternIstpos) =+ pattern_+ ___node =+ (Syn_SemDef _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos)+ 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])+ -- "src-ag/Transform.ag"(line 541, column 3)+ _lhsOerrors =+ ({-# LINE 541 "src-ag/Transform.ag" #-}+ if checkParseRhs _lhsIoptions+ then Seq.fromList $ checkRhs rhs_+ else Seq.empty+ {-# LINE 7579 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1154, column 17)+ _lhsOmergeInfos =+ ({-# LINE 1154 "src-ag/Transform.ag" #-}+ [ (target_, nt_, sources_, rhs_) ]+ {-# LINE 7585 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1076, column 40)+ _lhsOaroundInfos =+ ({-# LINE 1076 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7591 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1075, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 1075 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7597 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1157, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1157 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7603 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 906, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 906 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 7609 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 875, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 875 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7615 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1072, column 40)+ _lhsOruleInfos =+ ({-# LINE 1072 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7621 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1073, column 40)+ _lhsOsigInfos =+ ({-# LINE 1073 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7627 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1074, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 1074 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7633 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_SemDef _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos)+ 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])+ -- "src-ag/Transform.ag"(line 879, column 7)+ _lhsOpragmaNamesCollect =+ ({-# LINE 879 "src-ag/Transform.ag" #-}+ names_+ {-# LINE 7656 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1076, column 40)+ _lhsOaroundInfos =+ ({-# LINE 1076 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7662 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1075, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 1075 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7668 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1157, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1157 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7674 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ Seq.empty+ {-# LINE 7680 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1077, column 40)+ _lhsOmergeInfos =+ ({-# LINE 1077 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7686 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 906, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 906 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 7692 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1072, column 40)+ _lhsOruleInfos =+ ({-# LINE 1072 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7698 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1073, column 40)+ _lhsOsigInfos =+ ({-# LINE 1073 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7704 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1074, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 1074 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7710 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_SemDef _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos)+ 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])+ -- "src-ag/Transform.ag"(line 548, column 3)+ _lhsOerrors =+ ({-# LINE 548 "src-ag/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 7742 "dist/build/Transform" #-}+ )+ -- "src-ag/Transform.ag"(line 1142, column 14)+ _lhsOsigInfos =+ ({-# LINE 1142 "src-ag/Transform.ag" #-}+ [ (ident_, tp_) ]+ {-# LINE 7748 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1076, column 40)+ _lhsOaroundInfos =+ ({-# LINE 1076 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7754 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1075, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 1075 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7760 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1157, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1157 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7766 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1077, column 40)+ _lhsOmergeInfos =+ ({-# LINE 1077 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7772 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 906, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 906 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 7778 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 875, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 875 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7784 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1072, column 40)+ _lhsOruleInfos =+ ({-# LINE 1072 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7790 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1074, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 1074 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7796 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_SemDef _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos)+ 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])+ -- "src-ag/Transform.ag"(line 1145, column 16)+ _lhsOuniqueInfos =+ ({-# LINE 1145 "src-ag/Transform.ag" #-}+ [ (ident_, ref_) ]+ {-# LINE 7820 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1076, column 40)+ _lhsOaroundInfos =+ ({-# LINE 1076 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7826 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1075, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 1075 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7832 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1157, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1157 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7838 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ Seq.empty+ {-# LINE 7844 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1077, column 40)+ _lhsOmergeInfos =+ ({-# LINE 1077 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7850 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 906, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 906 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 7856 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 875, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 875 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7862 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1072, column 40)+ _lhsOruleInfos =+ ({-# LINE 1072 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7868 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1073, column 40)+ _lhsOsigInfos =+ ({-# LINE 1073 "src-ag/Transform.ag" #-}+ []+ {-# LINE 7874 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_SemDef _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos)+ 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 "src-ag/Transform.ag"(line 1076, column 40)+ _lhsOaroundInfos =+ ({-# LINE 1076 "src-ag/Transform.ag" #-}+ _hdIaroundInfos ++ _tlIaroundInfos+ {-# LINE 7958 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1075, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 1075 "src-ag/Transform.ag" #-}+ _hdIaugmentInfos ++ _tlIaugmentInfos+ {-# LINE 7964 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1157, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1157 "src-ag/Transform.ag" #-}+ _hdIdefinedInsts ++ _tlIdefinedInsts+ {-# LINE 7970 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 7976 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1077, column 40)+ _lhsOmergeInfos =+ ({-# LINE 1077 "src-ag/Transform.ag" #-}+ _hdImergeInfos ++ _tlImergeInfos+ {-# LINE 7982 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 906, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 906 "src-ag/Transform.ag" #-}+ _hdIorderDepsCollect `Set.union` _tlIorderDepsCollect+ {-# LINE 7988 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 875, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 875 "src-ag/Transform.ag" #-}+ _hdIpragmaNamesCollect ++ _tlIpragmaNamesCollect+ {-# LINE 7994 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1072, column 40)+ _lhsOruleInfos =+ ({-# LINE 1072 "src-ag/Transform.ag" #-}+ _hdIruleInfos ++ _tlIruleInfos+ {-# LINE 8000 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1073, column 40)+ _lhsOsigInfos =+ ({-# LINE 1073 "src-ag/Transform.ag" #-}+ _hdIsigInfos ++ _tlIsigInfos+ {-# LINE 8006 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1074, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 1074 "src-ag/Transform.ag" #-}+ _hdIuniqueInfos ++ _tlIuniqueInfos+ {-# LINE 8012 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 40 "src-ag/Transform.ag" #-}+ _lhsIoptions+ {-# LINE 8018 "dist/build/Transform" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 40 "src-ag/Transform.ag" #-}+ _lhsIoptions+ {-# LINE 8024 "dist/build/Transform" #-}+ )+ ( _hdIaroundInfos,_hdIaugmentInfos,_hdIdefinedInsts,_hdIerrors,_hdImergeInfos,_hdIorderDepsCollect,_hdIpragmaNamesCollect,_hdIruleInfos,_hdIsigInfos,_hdIuniqueInfos) =+ hd_ _hdOoptions+ ( _tlIaroundInfos,_tlIaugmentInfos,_tlIdefinedInsts,_tlIerrors,_tlImergeInfos,_tlIorderDepsCollect,_tlIpragmaNamesCollect,_tlIruleInfos,_tlIsigInfos,_tlIuniqueInfos) =+ tl_ _tlOoptions+ ___node =+ (Syn_SemDefs _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos)+ 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 "src-ag/Transform.ag"(line 1076, column 40)+ _lhsOaroundInfos =+ ({-# LINE 1076 "src-ag/Transform.ag" #-}+ []+ {-# LINE 8050 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1075, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 1075 "src-ag/Transform.ag" #-}+ []+ {-# LINE 8056 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1157, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1157 "src-ag/Transform.ag" #-}+ []+ {-# LINE 8062 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 44, column 19)+ _lhsOerrors =+ ({-# LINE 44 "src-ag/Transform.ag" #-}+ Seq.empty+ {-# LINE 8068 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1077, column 40)+ _lhsOmergeInfos =+ ({-# LINE 1077 "src-ag/Transform.ag" #-}+ []+ {-# LINE 8074 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 906, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 906 "src-ag/Transform.ag" #-}+ Set.empty+ {-# LINE 8080 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 875, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 875 "src-ag/Transform.ag" #-}+ []+ {-# LINE 8086 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1072, column 40)+ _lhsOruleInfos =+ ({-# LINE 1072 "src-ag/Transform.ag" #-}+ []+ {-# LINE 8092 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1073, column 40)+ _lhsOsigInfos =+ ({-# LINE 1073 "src-ag/Transform.ag" #-}+ []+ {-# LINE 8098 "dist/build/Transform" #-}+ )+ -- use rule "src-ag/Transform.ag"(line 1074, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 1074 "src-ag/Transform.ag" #-}+ []+ {-# LINE 8104 "dist/build/Transform" #-}+ )+ ___node =+ (Syn_SemDefs _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos) in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))))
src-derived/Visage.hs view
@@ -98,6 +98,8 @@ AAppl "Expression" [AString (sQ (showAGPos pos_)), AString (sQ (unlines . showTokens . tokensToStrings $ tks_))] {-# LINE 100 "dist/build/Visage" #-} )+ ___node =+ (Syn_Expression _lhsOaterm) in ( _lhsOaterm))) -- VisageChild ------------------------------------------------- {-@@ -144,16 +146,18 @@ AString (sQ (showMap inh_)), AString (sQ (showMap syn_)), AAppl "Rules" _rulesIaterms]- {-# LINE 148 "dist/build/Visage" #-}+ {-# LINE 150 "dist/build/Visage" #-} ) -- "src-ag/Visage.ag"(line 89, column 18) _rulesOisLoc = ({-# LINE 89 "src-ag/Visage.ag" #-} False- {-# LINE 154 "dist/build/Visage" #-}+ {-# LINE 156 "dist/build/Visage" #-} ) ( _rulesIaterms) = rules_ _rulesOisLoc+ ___node =+ (Syn_VisageChild _lhsOaterm) in ( _lhsOaterm))) -- VisageChildren ---------------------------------------------- {-@@ -192,12 +196,14 @@ _lhsOaterms = ({-# LINE 80 "src-ag/Visage.ag" #-} _hdIaterm : _tlIaterms- {-# LINE 196 "dist/build/Visage" #-}+ {-# LINE 200 "dist/build/Visage" #-} ) ( _hdIaterm) = hd_ ( _tlIaterms) = tl_+ ___node =+ (Syn_VisageChildren _lhsOaterms) in ( _lhsOaterms))) sem_VisageChildren_Nil :: T_VisageChildren sem_VisageChildren_Nil =@@ -206,8 +212,10 @@ _lhsOaterms = ({-# LINE 81 "src-ag/Visage.ag" #-} []- {-# LINE 210 "dist/build/Visage" #-}+ {-# LINE 216 "dist/build/Visage" #-} )+ ___node =+ (Syn_VisageChildren _lhsOaterms) in ( _lhsOaterms))) -- VisageGrammar ----------------------------------------------- {-@@ -242,10 +250,12 @@ _lhsOaterm = ({-# LINE 54 "src-ag/Visage.ag" #-} AAppl "Productions" _nontsIaterms- {-# LINE 246 "dist/build/Visage" #-}+ {-# LINE 254 "dist/build/Visage" #-} ) ( _nontsIaterms) = nonts_+ ___node =+ (Syn_VisageGrammar _lhsOaterm) in ( _lhsOaterm))) -- VisageNonterminal ------------------------------------------- {-@@ -287,10 +297,12 @@ ({-# LINE 63 "src-ag/Visage.ag" #-} AAppl "Production" [AString (sQ (getName nt_)), AString (sQ(showMap inh_)), AString (sQ(showMap syn_)), AAppl "Alternatives" _altsIaterms]- {-# LINE 291 "dist/build/Visage" #-}+ {-# LINE 301 "dist/build/Visage" #-} ) ( _altsIaterms) = alts_+ ___node =+ (Syn_VisageNonterminal _lhsOaterm) in ( _lhsOaterm))) -- VisageNonterminals ------------------------------------------ {-@@ -329,12 +341,14 @@ _lhsOaterms = ({-# LINE 58 "src-ag/Visage.ag" #-} _hdIaterm : _tlIaterms- {-# LINE 333 "dist/build/Visage" #-}+ {-# LINE 345 "dist/build/Visage" #-} ) ( _hdIaterm) = hd_ ( _tlIaterms) = tl_+ ___node =+ (Syn_VisageNonterminals _lhsOaterms) in ( _lhsOaterms))) sem_VisageNonterminals_Nil :: T_VisageNonterminals sem_VisageNonterminals_Nil =@@ -343,8 +357,10 @@ _lhsOaterms = ({-# LINE 59 "src-ag/Visage.ag" #-} []- {-# LINE 347 "dist/build/Visage" #-}+ {-# LINE 361 "dist/build/Visage" #-} )+ ___node =+ (Syn_VisageNonterminals _lhsOaterms) in ( _lhsOaterms))) -- VisagePattern ----------------------------------------------- {-@@ -403,10 +419,12 @@ ({-# LINE 119 "src-ag/Visage.ag" #-} AAppl "Pattern" [AAppl "Alias" [AString (sQ (showAGPos (getPos field_))), AString (sQ (getName field_ ++ "." ++ getName attr_)), _patIaterm]]- {-# LINE 407 "dist/build/Visage" #-}+ {-# LINE 423 "dist/build/Visage" #-} ) ( _patIaterm) = pat_+ ___node =+ (Syn_VisagePattern _lhsOaterm) in ( _lhsOaterm))) sem_VisagePattern_VConstr :: ConstructorIdent -> T_VisagePatterns ->@@ -420,10 +438,12 @@ AAppl "Pattern" [AAppl "Constr" [AString (sQ (showAGPos (getPos name_))), AString (sQ (getName name_)), AAppl "Patterns" _patsIaterms]]- {-# LINE 424 "dist/build/Visage" #-}+ {-# LINE 442 "dist/build/Visage" #-} ) ( _patsIaterms) = pats_+ ___node =+ (Syn_VisagePattern _lhsOaterm) in ( _lhsOaterm))) sem_VisagePattern_VProduct :: Pos -> T_VisagePatterns ->@@ -436,10 +456,12 @@ ({-# LINE 115 "src-ag/Visage.ag" #-} AAppl "Pattern" [AAppl "Product" [AString (sQ (showAGPos pos_)), AAppl "Patterns" _patsIaterms]]- {-# LINE 440 "dist/build/Visage" #-}+ {-# LINE 460 "dist/build/Visage" #-} ) ( _patsIaterms) = pats_+ ___node =+ (Syn_VisagePattern _lhsOaterm) in ( _lhsOaterm))) sem_VisagePattern_VUnderscore :: Pos -> T_VisagePattern@@ -449,8 +471,10 @@ _lhsOaterm = ({-# LINE 121 "src-ag/Visage.ag" #-} AAppl "Pattern" [AAppl "Underscore" [AString (sQ (showAGPos pos_))]]- {-# LINE 453 "dist/build/Visage" #-}+ {-# LINE 475 "dist/build/Visage" #-} )+ ___node =+ (Syn_VisagePattern _lhsOaterm) in ( _lhsOaterm))) sem_VisagePattern_VVar :: Identifier -> Identifier ->@@ -462,8 +486,10 @@ ({-# LINE 117 "src-ag/Visage.ag" #-} AAppl "Pattern" [AAppl "Var" [AString (sQ (showAGPos (getPos field_))), AString (sQ (getName field_ ++ "." ++ getName attr_))]]- {-# LINE 466 "dist/build/Visage" #-}+ {-# LINE 490 "dist/build/Visage" #-} )+ ___node =+ (Syn_VisagePattern _lhsOaterm) in ( _lhsOaterm))) -- VisagePatterns ---------------------------------------------- {-@@ -502,12 +528,14 @@ _lhsOaterms = ({-# LINE 107 "src-ag/Visage.ag" #-} _hdIaterm : _tlIaterms- {-# LINE 506 "dist/build/Visage" #-}+ {-# LINE 532 "dist/build/Visage" #-} ) ( _hdIaterm) = hd_ ( _tlIaterms) = tl_+ ___node =+ (Syn_VisagePatterns _lhsOaterms) in ( _lhsOaterms))) sem_VisagePatterns_Nil :: T_VisagePatterns sem_VisagePatterns_Nil =@@ -516,8 +544,10 @@ _lhsOaterms = ({-# LINE 108 "src-ag/Visage.ag" #-} []- {-# LINE 520 "dist/build/Visage" #-}+ {-# LINE 548 "dist/build/Visage" #-} )+ ___node =+ (Syn_VisagePatterns _lhsOaterms) in ( _lhsOaterms))) -- VisageProduction -------------------------------------------- {-@@ -564,19 +594,19 @@ AAppl "Alternative" [AString (sQ (getName con_)), AAppl "Children" _childrenIaterms, AAppl "Rules" _rulesIaterms, AAppl "LocRules" _locrulesIaterms]- {-# LINE 568 "dist/build/Visage" #-}+ {-# LINE 598 "dist/build/Visage" #-} ) -- "src-ag/Visage.ag"(line 76, column 18) _locrulesOisLoc = ({-# LINE 76 "src-ag/Visage.ag" #-} True- {-# LINE 574 "dist/build/Visage" #-}+ {-# LINE 604 "dist/build/Visage" #-} ) -- "src-ag/Visage.ag"(line 77, column 18) _rulesOisLoc = ({-# LINE 77 "src-ag/Visage.ag" #-} False- {-# LINE 580 "dist/build/Visage" #-}+ {-# LINE 610 "dist/build/Visage" #-} ) ( _childrenIaterms) = children_@@ -584,6 +614,8 @@ rules_ _rulesOisLoc ( _locrulesIaterms) = locrules_ _locrulesOisLoc+ ___node =+ (Syn_VisageProduction _lhsOaterm) in ( _lhsOaterm))) -- VisageProductions ------------------------------------------- {-@@ -622,12 +654,14 @@ _lhsOaterms = ({-# LINE 68 "src-ag/Visage.ag" #-} _hdIaterm : _tlIaterms- {-# LINE 626 "dist/build/Visage" #-}+ {-# LINE 658 "dist/build/Visage" #-} ) ( _hdIaterm) = hd_ ( _tlIaterms) = tl_+ ___node =+ (Syn_VisageProductions _lhsOaterms) in ( _lhsOaterms))) sem_VisageProductions_Nil :: T_VisageProductions sem_VisageProductions_Nil =@@ -636,8 +670,10 @@ _lhsOaterms = ({-# LINE 69 "src-ag/Visage.ag" #-} []- {-# LINE 640 "dist/build/Visage" #-}+ {-# LINE 674 "dist/build/Visage" #-} )+ ___node =+ (Syn_VisageProductions _lhsOaterms) in ( _lhsOaterms))) -- VisageRule -------------------------------------------------- {-@@ -686,12 +722,14 @@ ({-# LINE 97 "src-ag/Visage.ag" #-} AAppl (if _lhsIisLoc then "LocRule" else "Rule") ([AString (sQ (getName attr_)), _patIaterm, _rhsIaterm] ++ if _lhsIisLoc then [AString (sQ (show owrt_))] else [])- {-# LINE 690 "dist/build/Visage" #-}+ {-# LINE 726 "dist/build/Visage" #-} ) ( _patIaterm) = pat_ ( _rhsIaterm) = rhs_+ ___node =+ (Syn_VisageRule _lhsOaterm) in ( _lhsOaterm)))) -- VisageRules ------------------------------------------------- {-@@ -736,24 +774,26 @@ _lhsOaterms = ({-# LINE 92 "src-ag/Visage.ag" #-} _hdIaterm : _tlIaterms- {-# LINE 740 "dist/build/Visage" #-}+ {-# LINE 778 "dist/build/Visage" #-} ) -- copy rule (down) _hdOisLoc = ({-# LINE 51 "src-ag/Visage.ag" #-} _lhsIisLoc- {-# LINE 746 "dist/build/Visage" #-}+ {-# LINE 784 "dist/build/Visage" #-} ) -- copy rule (down) _tlOisLoc = ({-# LINE 51 "src-ag/Visage.ag" #-} _lhsIisLoc- {-# LINE 752 "dist/build/Visage" #-}+ {-# LINE 790 "dist/build/Visage" #-} ) ( _hdIaterm) = hd_ _hdOisLoc ( _tlIaterms) = tl_ _tlOisLoc+ ___node =+ (Syn_VisageRules _lhsOaterms) in ( _lhsOaterms)))) sem_VisageRules_Nil :: T_VisageRules sem_VisageRules_Nil =@@ -763,6 +803,8 @@ _lhsOaterms = ({-# LINE 93 "src-ag/Visage.ag" #-} []- {-# LINE 767 "dist/build/Visage" #-}+ {-# LINE 807 "dist/build/Visage" #-} )+ ___node =+ (Syn_VisageRules _lhsOaterms) in ( _lhsOaterms))))
uuagc-bootstrap.cabal view
@@ -1,7 +1,7 @@ cabal-version: >= 1.8 build-type: Simple name: uuagc-bootstrap-version: 0.9.40.1+version: 0.9.40.2 license: BSD3 license-file: LICENSE maintainer: Arie Middelkoop <ariem@cs.uu.nl>@@ -17,10 +17,67 @@ extra-source-files: README executable uuagc-bootstrap- build-depends: uuagc-bootstrap == 0.9.40.1- build-depends: base >= 4, base < 5- main-is: Main.hs- hs-source-dirs: src-main+ build-depends: base >= 4, base < 5, ghc-prim >= 0.2.0.0+ build-depends: containers >= 0.3, directory >= 1.0.1.1, array >= 0.3.0.1+ build-depends: uulib >= 0.9.14, mtl >= 1.1.1.1+ build-depends: haskell-src-exts >= 1.11.1+ build-depends: filepath >= 1.1.0.4+ main-is: Main.hs+ hs-source-dirs: src, src-version, src-derived, src-options, src-main+ extensions: TypeSynonymInstances, MultiParamTypeClasses+ other-modules: Paths_uuagc_bootstrap+ , Ag+ , CommonTypes+ , GrammarInfo+ , HsTokenScanner+ , Options+ , PPUtil+ , Parser+ , Pretty+ , Scanner+ , SequentialComputation+ , SequentialTypes+ , TokenDef+ , Version+ , AbstractSyntax+ , AbstractSyntaxDump+ , Code+ , CodeSyntax+ , CodeSyntaxDump+ , ConcreteSyntax+ , DeclBlocks+ , DefaultRules+ , Desugar+ , ErrorMessages+ , Expression+ , GenerateCode+ , HsToken+ , Interfaces+ , InterfacesRules+ , Order+ , Patterns+ , PrintCode+ , PrintOcamlCode+ , PrintVisitCode+ , PrintErrorMessages+ , SemHsTokens+ , Transform+ , ATermWrite+ , ATermAbstractSyntax+ , TfmToVisage+ , Visage+ , VisageSyntax+ , VisagePatterns+ , AG2AspectAG+ , Macro+ , RhsCheck+ , ResolveLocals+ , Knuth1+ , KennedyWarren+ , KWOrder+ , ExecutionPlan+ , ExecutionPlan2Hs+ library build-depends: base >= 4, base < 5, ghc-prim >= 0.2.0.0