git.iko.soy/typeable/xsd-isogen
on master help sign in
Drop empty line between haddock comment and the type
commita3a6ea9026c2ca6a9604e0f1842ac39069654570 authorYuras Shumovich <shumovichy@gmail.com> dateFri 14 Feb 2020, 17:49 (7 years ago) parentebd78ba
12 files changed−27
compare with master
unifiedsplit
golden/ambig.xsd.hs−3 golden/ambig1.xsd.hs−3 golden/enum.xsd.hs−1 golden/extension.xsd.hs−5 golden/import.xsd.hs−2 golden/import_ambig.xsd.hs−4 golden/imported.xsd.hs−1 golden/include.xsd.hs−1 golden/included.xsd.hs−1 golden/seq.xsd.hs−2 golden/simple.xsd.hs−2 src/Main.hs−2
golden/ambig.xsd.hs−3
@@ -16,7 +16,6 @@ import Prelude hiding ((*), (+))
1616{-|
1717Generated from: stringtype
1818-}
19−
2019newtype XmlStringtype
2120 = XmlStringtype
2221 { unXmlStringtype :: Text
@@ -28,14 +27,12 @@ instance FromDom XmlStringtype where
2827{-|
2928Generated from: Aa
3029-}
31−
3230"Aa" =:= record Both
3331 ! "firstName" [t|XmlStringtype|]
3432
3533{-|
3634Generated from: Ab
3735-}
38−
3936"Ab1" =:= record Both
4037 ! "firstName" [t|XmlStringtype|]
4138
golden/ambig1.xsd.hs−3
@@ -16,7 +16,6 @@ import Prelude hiding ((*), (+))
1616{-|
1717Generated from: stringtype
1818-}
19−
2019newtype XmlStringtype
2120 = XmlStringtype
2221 { unXmlStringtype :: Text
@@ -28,14 +27,12 @@ instance FromDom XmlStringtype where
2827{-|
2928Generated from: Aa
3029-}
31−
3230"Aa" =:= record Both
3331 ! "firstName" [t|XmlStringtype|]
3432
3533{-|
3634Generated from: Ab
3735-}
38−
3936"Ab1" =:= record Both
4037 ! "firstName" [t|XmlStringtype|]
4138
golden/enum.xsd.hs−1
@@ -18,7 +18,6 @@ Generated from: stringtype
1818
1919Blah
2020-}
21−
2221"Stringtype" Exhaustive =:= enum Both
2322 & "Day"
2423 & "Night"
golden/extension.xsd.hs−5
@@ -16,14 +16,12 @@ import Prelude hiding ((*), (+))
1616{-|
1717Generated from: basetype
1818-}
19−
2019"Basetype" =:= record Both
2120 ! "a" [t|Text|]
2221
2322{-|
2423Generated from: ext2
2524-}
26−
2725"Ext2" =:= record Both
2826 ! "a" [t|Text|]
2927 ! "c" [t|Integer|]
@@ -31,7 +29,6 @@ Generated from: ext2
3129{-|
3230Generated from: ext1
3331-}
34−
3532"Ext1" =:= record Both
3633 ! "a" [t|Text|]
3734 ! "b" [t|Integer|]
@@ -73,14 +70,12 @@ instance ToXmlParentAttributes AnyXmlBasetype where
7370{-|
7471Generated from: other
7572-}
76−
7773"Other" =:= record Both
7874 ! "a" [t|AnyXmlBasetype|]
7975
8076{-|
8177Generated from: some
8278-}
83−
8479"Some" =:= record Both
8580 ! "a" [t|Text|]
8681
golden/import.xsd.hs−2
@@ -16,7 +16,6 @@ import Prelude hiding ((*), (+))
1616{-|
1717Generated from: uri:my:stringtype
1818-}
19−
2019newtype XmlStringtype
2120 = XmlStringtype
2221 { unXmlStringtype :: Text
@@ -28,7 +27,6 @@ instance FromDom XmlStringtype where
2827{-|
2928Generated from: uri:my1:person
3029-}
31−
3230"Person" =:= record Both
3331 ! "{uri:my1}name" [t|XmlStringtype|]
3432
golden/import_ambig.xsd.hs−4
@@ -16,7 +16,6 @@ import Prelude hiding ((*), (+))
1616{-|
1717Generated from: uri:my:stringtype
1818-}
19−
2019newtype XmlStringtype
2120 = XmlStringtype
2221 { unXmlStringtype :: Text
@@ -28,14 +27,12 @@ instance FromDom XmlStringtype where
2827{-|
2928Generated from: uri:my1:AaBb
3029-}
31−
3230"AaBb" =:= record Both
3331 ! "{uri:my1}name" [t|XmlStringtype|]
3432
3533{-|
3634Generated from: uri:my1:stringtype
3735-}
38−
3936newtype XmlStringtype1
4037 = XmlStringtype1
4138 { unXmlStringtype1 :: Text
@@ -47,7 +44,6 @@ instance FromDom XmlStringtype1 where
4744{-|
4845Generated from: uri:my1:AaBc
4946-}
50−
5147"AaBc1" =:= record Both
5248 ! "{uri:my1}name" [t|XmlStringtype1|]
5349
golden/imported.xsd.hs−1
@@ -16,7 +16,6 @@ import Prelude hiding ((*), (+))
1616{-|
1717Generated from: uri:my:stringtype
1818-}
19−
2019newtype XmlStringtype
2120 = XmlStringtype
2221 { unXmlStringtype :: Text
golden/include.xsd.hs−1
@@ -16,7 +16,6 @@ import Prelude hiding ((*), (+))
1616{-|
1717Generated from: stringtype
1818-}
19−
2019newtype XmlStringtype
2120 = XmlStringtype
2221 { unXmlStringtype :: Text
golden/included.xsd.hs−1
@@ -16,7 +16,6 @@ import Prelude hiding ((*), (+))
1616{-|
1717Generated from: stringtype
1818-}
19−
2019newtype XmlStringtype
2120 = XmlStringtype
2221 { unXmlStringtype :: Text
golden/seq.xsd.hs−2
@@ -16,7 +16,6 @@ import Prelude hiding ((*), (+))
1616{-|
1717Generated from: str
1818-}
19−
2019newtype XmlStr
2120 = XmlStr
2221 { unXmlStr :: Text
@@ -28,7 +27,6 @@ instance FromDom XmlStr where
2827{-|
2928Generated from: customer
3029-}
31−
3230"Customer" =:= record Both
3331 ! "firstName" [t|XmlStr|]
3432 ! "lastName" [t|XmlStr|]
golden/simple.xsd.hs−2
@@ -18,7 +18,6 @@ Generated from: stringtype
1818
1919Blah
2020-}
21−
2221newtype XmlStringtype
2322 = XmlStringtype
2423 { unXmlStringtype :: Text
@@ -30,7 +29,6 @@ instance FromDom XmlStringtype where
3029{-|
3130Generated from: a
3231-}
33−
3432"A" =:= record Both
3533 ! "a" [t|XmlStringtype|]
3634 ! "b" [t|XmlStringtype|]
src/Main.hs−2
@@ -262,7 +262,6 @@ makeComments typeName annotations = if null annotations
262262 [ "{-|"
263263 , generated
264264 , "-}"
265− , ""
266265 ]
267266 else
268267 [ "{-|"
@@ -270,7 +269,6 @@ makeComments typeName annotations = if null annotations
270269 , ""
271270 ] <> map makeDoc annotations <>
272271 [ "-}"
273− , ""
274272 ]
275273 where
276274 generated = "Generated from: " <> prefix <> name