@@ -512,15 +512,15 @@ data TextStyle = Italic | Bold | Strike | Sub | Sup deriving ( Eq )
512512
513513textStyleAttr :: TextStyle -> [(String,String)]
514514textStyleAttr s
515− | Italic <- s = [("fo:font-style" ,"italic" )
516− ,("style:font-style-asian" ,"italic" )
517− ,("style:font-style-complex" ,"italic" )]
518− | Bold <- s = [("fo:font-weight" ,"bold" )
519− ,("style:font-weight-asian" ,"bold" )
520− ,("style:font-weight-complex" ,"bold" )]
521− | Strike <- s = [("style:text-line-through-style", "solid" )]
522− | Sub <- s = [("style:text-position" ,"sub 58%")]
523− | Sup <- s = [("style:text-position" ,"sup 58%")]
515+ | Italic <- s = [("fo:font-style" ,"italic" )
516+ ,("style:font-style-asian" ,"italic" )
517+ ,("style:font-style-complex" ,"italic" )]
518+ | Bold <- s = [("fo:font-weight" ,"bold" )
519+ ,("style:font-weight-asian" ,"bold" )
520+ ,("style:font-weight-complex" ,"bold" )]
521+ | Strike <- s = [("style:text-line-through-style", "solid" )]
522+ | Sub <- s = [("style:text-position" ,"sub 58%" )]
523+ | Sup <- s = [("style:text-position" ,"super 58%")]
524524 | otherwise = []
525525
526526openDocumentNameSpaces :: [(String, String)]