[gentoo-commits] gentoo-x86 commit in dev-haskell/haxml/files: haxml-1.23.2-haddock.patch

[gentoo-commits] gentoo-x86 commit in dev-haskell/haxml/files: haxml-1.23.2-haddock.patch

[Mark Wright (gienah)]

gienah      12/06/18 14:25:39

  Added:                haxml-1.23.2-haddock.patch
  Log:
  Bump haxml to 1.23.2
  
  (Portage version: 2.1.10.65/cvs/Linux x86_64)

Revision  Changes    Path
1.1                  dev-haskell/haxml/files/haxml-1.23.2-haddock.patch

file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-haskell/haxml/files/haxml-1.23.2-haddock.patch?rev=1.1&view=markup
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

Index: haxml-1.23.2-haddock.patch
===================================================================
--- HaXml-1.23.2-orig/src/Text/XML/HaXml/Schema/HaskellTypeModel.hs	2012-06-18 23:17:57.000000000 +1000
+++ HaXml-1.23.2/src/Text/XML/HaXml/Schema/HaskellTypeModel.hs	2012-06-18 23:37:04.279978702 +1000
@@ -77,8 +77,8 @@
                  -- rests with the input doc, not with the caller of the parser.
                | ElementsAttrsAbstract {-typename-}XName
                                        {-subtypes-}[(XName,Maybe XName)]
-                                --  ^ [(type name, module where declared later)]
                                        Comment
+                                --  ^ [(type name, module where declared later)]
 
                  -- becomes function
                  --    elementE :: Parser T
--- HaXml-1.23.2-orig/src/Text/XML/HaXml/Schema/PrettyHaskell.hs	2012-06-18 23:17:57.000000000 +1000
+++ HaXml-1.23.2/src/Text/XML/HaXml/Schema/PrettyHaskell.hs	2012-06-18 23:34:50.954660444 +1000
@@ -403,9 +403,6 @@
     $$ text "data" <+> ppUnqConId nx t
         $$ nest 8 (ppvList "=" "|" "" ppAbstrCons insts
                   $$ text "deriving (Eq,Show)")
---  $$ text "-- instance SchemaType" <+> ppUnqConId nx t
---      <+> text "(declared in Instance module)"
--- *** Declare instance here
     $$ text "instance SchemaType" <+> ppUnqConId nx t <+> text "where"
         $$ nest 4 (text "parseSchemaType s = do" 
                   $$ nest 4 (vcat (intersperse (text "`onFail`")
@@ -417,12 +414,6 @@
   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)
---  ppAbstrCons (name,Just mod) = text "forall q . (FwdDecl" <+>
---                                fwd name <+> text "q," <+>
---                                text "SchemaType q) =>" <+>
---                                con name <+>
---                                text "("<>fwd name<>text"->q)" <+> fwd name
     ppParse (name,Nothing) = text "(fmap" <+> con name <+>
                              text "$ parseSchemaType s)"
     ppParse (name,Just _)  = ppParse (name,Nothing)