| 1 |
gienah 12/06/18 14:25:39 |
| 2 |
|
| 3 |
Added: haxml-1.23.2-haddock.patch |
| 4 |
Log: |
| 5 |
Bump haxml to 1.23.2 |
| 6 |
|
| 7 |
(Portage version: 2.1.10.65/cvs/Linux x86_64) |
| 8 |
|
| 9 |
Revision Changes Path |
| 10 |
1.1 dev-haskell/haxml/files/haxml-1.23.2-haddock.patch |
| 11 |
|
| 12 |
file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-haskell/haxml/files/haxml-1.23.2-haddock.patch?rev=1.1&view=markup |
| 13 |
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-haskell/haxml/files/haxml-1.23.2-haddock.patch?rev=1.1&content-type=text/plain |
| 14 |
|
| 15 |
Index: haxml-1.23.2-haddock.patch |
| 16 |
=================================================================== |
| 17 |
--- HaXml-1.23.2-orig/src/Text/XML/HaXml/Schema/HaskellTypeModel.hs 2012-06-18 23:17:57.000000000 +1000 |
| 18 |
+++ HaXml-1.23.2/src/Text/XML/HaXml/Schema/HaskellTypeModel.hs 2012-06-18 23:37:04.279978702 +1000 |
| 19 |
@@ -77,8 +77,8 @@ |
| 20 |
-- rests with the input doc, not with the caller of the parser. |
| 21 |
| ElementsAttrsAbstract {-typename-}XName |
| 22 |
{-subtypes-}[(XName,Maybe XName)] |
| 23 |
- -- ^ [(type name, module where declared later)] |
| 24 |
Comment |
| 25 |
+ -- ^ [(type name, module where declared later)] |
| 26 |
|
| 27 |
-- becomes function |
| 28 |
-- elementE :: Parser T |
| 29 |
--- HaXml-1.23.2-orig/src/Text/XML/HaXml/Schema/PrettyHaskell.hs 2012-06-18 23:17:57.000000000 +1000 |
| 30 |
+++ HaXml-1.23.2/src/Text/XML/HaXml/Schema/PrettyHaskell.hs 2012-06-18 23:34:50.954660444 +1000 |
| 31 |
@@ -403,9 +403,6 @@ |
| 32 |
$$ text "data" <+> ppUnqConId nx t |
| 33 |
$$ nest 8 (ppvList "=" "|" "" ppAbstrCons insts |
| 34 |
$$ text "deriving (Eq,Show)") |
| 35 |
--- $$ text "-- instance SchemaType" <+> ppUnqConId nx t |
| 36 |
--- <+> text "(declared in Instance module)" |
| 37 |
--- *** Declare instance here |
| 38 |
$$ text "instance SchemaType" <+> ppUnqConId nx t <+> text "where" |
| 39 |
$$ nest 4 (text "parseSchemaType s = do" |
| 40 |
$$ nest 4 (vcat (intersperse (text "`onFail`") |
| 41 |
@@ -417,12 +414,6 @@ |
| 42 |
where |
| 43 |
ppAbstrCons (name,Nothing) = con name <+> ppConId nx name |
| 44 |
ppAbstrCons (name,Just mod) = con name <+> ppConId nx name |
| 45 |
--- *** Declare FwdDecl type here (proxy for type declared in later module) |
| 46 |
--- ppAbstrCons (name,Just mod) = text "forall q . (FwdDecl" <+> |
| 47 |
--- fwd name <+> text "q," <+> |
| 48 |
--- text "SchemaType q) =>" <+> |
| 49 |
--- con name <+> |
| 50 |
--- text "("<>fwd name<>text"->q)" <+> fwd name |
| 51 |
ppParse (name,Nothing) = text "(fmap" <+> con name <+> |
| 52 |
text "$ parseSchemaType s)" |
| 53 |
ppParse (name,Just _) = ppParse (name,Nothing) |
Archives