@@ -257,15 +257,23 @@ genComplexType typeName t parentAnn = do
257257 writeCode [""]
258258
259259makeComments :: TypeName -> [Xsd.Annotation] -> [Text]
260−makeComments typeName annotations =
261− [ "{-"
262− , "Generated from: " <> prefix <> name
263− , ""
264− ] <> map makeDoc annotations <>
265− [ "-}"
266− , ""
267− ]
260+makeComments typeName annotations = if null annotations
261+ then
262+ [ "{-|"
263+ , generated
264+ , "-}"
265+ , ""
266+ ]
267+ else
268+ [ "{-|"
269+ , generated
270+ , ""
271+ ] <> map makeDoc annotations <>
272+ [ "-}"
273+ , ""
274+ ]
268275 where
276+ generated = "Generated from: " <> prefix <> name
269277 qname = tnQName typeName
270278 name = Xsd.qnName qname
271279 prefix = maybe "" ((<> ":") . Xsd.fromNamespace) (Xsd.qnNamespace qname)