xcb-types 0.5.0 → 0.5.1
raw patch · 2 files changed
+6/−6 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Data.XCB.Pretty: instance Pretty StructElem
- Data.XCB.Pretty: instance Pretty XDecl
- Data.XCB.Pretty: instance Pretty XHeader
- Data.XCB.Pretty: instance Pretty XidUnionElem
+ Data.XCB.Pretty: instance (Pretty a) => Pretty (GenStructElem a)
+ Data.XCB.Pretty: instance (Pretty a) => Pretty (GenXDecl a)
+ Data.XCB.Pretty: instance (Pretty a) => Pretty (GenXHeader a)
+ Data.XCB.Pretty: instance (Pretty a) => Pretty (GenXidUnionElem a)
Files
- Data/XCB/Pretty.hs +5/−5
- xcb-types.cabal +1/−1
Data/XCB/Pretty.hs view
@@ -47,8 +47,8 @@ -- Simple stuff -instance Pretty XidUnionElem where- pretty = show+instance Pretty a => Pretty (GenXidUnionElem a) where+ toDoc (XidUnionElem t) = toDoc t instance Pretty Binop where pretty Add = "+"@@ -78,7 +78,7 @@ ,toDoc exprR ] -instance Pretty StructElem where+instance Pretty a => Pretty (GenStructElem a) where toDoc (Pad n) = braces $ toDoc n <+> text "bytes" toDoc (List nm typ len enums) = text nm <+> text "::" <+> brackets (toDoc typ <+> toDoc enums) <+> toDoc len@@ -109,7 +109,7 @@ ,text lname ] -instance Pretty XDecl where+instance Pretty a => Pretty (GenXDecl a) where toDoc (XStruct nm elems) = hang (text "Struct:" <+> text nm) 2 $ vcat $ map toDoc elems toDoc (XTypeDef nm typ) = hsep [text "TypeDef:"@@ -144,6 +144,6 @@ toDoc (XError nm n elems) = hang (text "Error:" <+> text nm) 2 $ vcat $ map toDoc elems -instance Pretty XHeader where+instance Pretty a => Pretty (GenXHeader a) where toDoc xhd = text (xheader_header xhd) $$ (vcat $ map toDoc (xheader_decls xhd))
xcb-types.cabal view
@@ -1,5 +1,5 @@ Name: xcb-types-Version: 0.5.0+Version: 0.5.1 Cabal-Version: >= 1.2 Synopsis: Parses XML files used by the XCB project Description: This package provides types which mirror the structures