summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMalcolmWallace <>2012-06-18 15:32:26 (GMT)
committerhdiff <hdiff@luite.com>2012-06-18 15:32:26 (GMT)
commit0b6b1d5c12748cad3c2a12280c71d6e90767249b (patch)
treec6d77298327f7ba2614da21431ab07d897f66d1b
parent47ef264890cb139763a1533c7ac47ed8ba2b9832 (diff)
version 1.23.31.23.3
-rwxr-xr-xHaXml.cabal2
-rwxr-xr-xsrc/Text/XML/HaXml/Schema/PrettyHaskell.hs4
2 files changed, 3 insertions, 3 deletions
diff --git a/HaXml.cabal b/HaXml.cabal
index 6e5cdc5..8e0e19a 100755
--- a/HaXml.cabal
+++ b/HaXml.cabal
@@ -1,5 +1,5 @@
name: HaXml
-version: 1.23.2
+version: 1.23.3
license: LGPL
license-file: COPYRIGHT
author: Malcolm Wallace <Malcolm.Wallace@me.com>
diff --git a/src/Text/XML/HaXml/Schema/PrettyHaskell.hs b/src/Text/XML/HaXml/Schema/PrettyHaskell.hs
index 09513c4..11996e8 100755
--- a/src/Text/XML/HaXml/Schema/PrettyHaskell.hs
+++ b/src/Text/XML/HaXml/Schema/PrettyHaskell.hs
@@ -405,7 +405,7 @@ ppHighLevelDecl nx (ElementsAttrsAbstract t insts comm) =
$$ text "deriving (Eq,Show)")
-- $$ text "-- instance SchemaType" <+> ppUnqConId nx t
-- <+> text "(declared in Instance module)"
--- *** Declare instance here
+-- *** Declare instance here
$$ text "instance SchemaType" <+> ppUnqConId nx t <+> text "where"
$$ nest 4 (text "parseSchemaType s = do"
$$ nest 4 (vcat (intersperse (text "`onFail`")
@@ -417,7 +417,7 @@ ppHighLevelDecl nx (ElementsAttrsAbstract t insts comm) =
where
ppAbstrCons (name,Nothing) = con name <+> ppConId nx name
ppAbstrCons (name,Just mod) = con name <+> ppConId nx name
--- *** Declare FwdDecl type here (proxy for type declared in later module)
+-- *** Declare FwdDecl type here (proxy for type declared in later module)
-- ppAbstrCons (name,Just mod) = text "forall q . (FwdDecl" <+>
-- fwd name <+> text "q," <+>
-- text "SchemaType q) =>" <+>