@@ -731,8 +731,8 @@ metadataElement version md currentTime =
731 toTitleNode id' title
731 toTitleNode id' title
732 | version == EPUB2 = [dcNode "title" !
732 | version == EPUB2 = [dcNode "title" !
733 (("id",id') :
733 (("id",id') :
734+ -- note: EPUB2 doesn't accept opf:title-type
734− maybe [] (\x -> [("opf:file-as",x)]) (titleFileAs title) ++
735+ maybe [] (\x -> [("opf:file-as",x)]) (titleFileAs title)) $
735− maybe [] (\x -> [("opf:title-type",x)]) (titleType title)) $
736 titleText title]
736 titleText title]
737 | otherwise = [dcNode "title" ! [("id",id')] $ titleText title]
737 | otherwise = [dcNode "title" ! [("id",id')] $ titleText title]