ce1fd04 · xml-isogen · git.iko.soy

git.iko.soy/xml-isogen

on master help sign in

Export Internal structures for code generation in xsd-isogen

ce1fd04Denis Redozubov7 years ago

src/Data/THGen/XML.hs+2−46

compare with master

unifiedsplit

@@ -131,61 +131,17 @@ import Data.Maybe (maybeToList, mapMaybe)

131import Data.String

132import Data.THGen.Compat

133import Data.THGen.Enum

134+import Data.THGen.XML.Internal

134import qualified Data.Text as T

135import qualified Data.Text as T

135import GHC.Generics (Generic)

136import GHC.Generics (Generic)

136import qualified Language.Haskell.TH as TH

137import qualified Language.Haskell.TH as TH

137import Prelude hiding ((+), (*), (^))

138import Prelude hiding ((+), (*), (^))

138import qualified Text.XML as X

139import qualified Text.XML as X

139import Text.XML.DOM.Parser hiding (parseContent)

140import Text.XML.DOM.Parser hiding (parseContent)

141+import Text.XML.DOM.Parser.Internal.Content

140import Text.XML.ParentAttributes

142import Text.XML.ParentAttributes

141import qualified Text.XML.Writer as XW

143import qualified Text.XML.Writer as XW

142−import Text.XML.DOM.Parser.Internal.Content

143−

144−

145−data XmlFieldPlural

146− = XmlFieldPluralMandatory -- Occurs exactly 1 time (Identity)

147− | XmlFieldPluralOptional -- Occurs 0 or 1 times (Maybe)

148− | XmlFieldPluralRepeated -- Occurs 0 or more times (List)

149− | XmlFieldPluralMultiplied -- Occurs 1 or more times (NonEmpty)

150−

151−data XmlAttributePlural

152− = XmlAttributePluralMandatory -- Occurs exactly 1 time (Identity)

153− | XmlAttributePluralOptional -- Occurs 0 or 1 times (Maybe)

154−

155−data PrefixName = PrefixName String String

156−

157−data IsoXmlDescPreField = IsoXmlDescPreField String TH.TypeQ

158−

159−data IsoXmlDescPreAttribute = IsoXmlDescPreAttribute String TH.TypeQ

160−

161−data IsoXmlDescPreContent = IsoXmlDescPreContent String TH.TypeQ

162−

163−data IsoXmlDescField = IsoXmlDescField XmlFieldPlural String TH.TypeQ

164−

165−data IsoXmlDescAttribute = IsoXmlDescAttribute XmlAttributePlural String TH.TypeQ

166−

167−data IsoXmlDescContent = IsoXmlDescContent String TH.TypeQ

168−

169−data IsoXmlDescRecordPart

170− = IsoXmlDescRecordField IsoXmlDescField

171− | IsoXmlDescRecordAttribute IsoXmlDescAttribute

172− | IsoXmlDescRecordContent IsoXmlDescContent

173−

174−newtype IsoXmlDescRecord = IsoXmlDescRecord [IsoXmlDescRecordPart]

175−

176−makePrisms ''IsoXmlDescRecord

177−

178−data ExhaustivenessName = ExhaustivenessName String Exhaustiveness

179−

180−newtype IsoXmlDescEnumCon

181− = IsoXmlDescEnumCon { unIsoXmlDescEnumCon :: String }

182−

183−instance IsString IsoXmlDescEnumCon where

184− fromString = IsoXmlDescEnumCon

185−

186−data IsoXmlDescEnum = IsoXmlDescEnum [IsoXmlDescEnumCon]

187

144

188−makePrisms ''IsoXmlDescEnum

189

145

190appendField

146appendField

191 :: XmlFieldPlural

147 :: XmlFieldPlural

xml-isogen.cabal+1

@@ -30,6 +30,7 @@ source-repository head

30library

31 exposed-modules: Data.THGen.Enum

32 , Data.THGen.XML

33+ , Data.THGen.XML.Internal

33 , Text.XML.ParentAttributes

34 , Text.XML.ParentAttributes

34 other-modules: Data.THGen.Compat

35 other-modules: Data.THGen.Compat

35 , Text.XML.DOM.Parser.Internal.Content

36 , Text.XML.DOM.Parser.Internal.Content