diff --git a/Setup.hs b/Setup.hs
--- a/Setup.hs
+++ b/Setup.hs
@@ -7,6 +7,7 @@
 import           Data.List
 import           Data.Maybe
 import           Data.Tree.NTree.TypeDefs
+import           Debug.Trace
 import           Distribution.Simple             hiding ( Module(..) )
 import           Distribution.Simple.PreProcess
 import           Distribution.Types.BuildInfo
@@ -112,11 +113,9 @@
   = replicate (read $ drop 1 $ strip $ show h') '=' ++ " " ++ concatMap defShow inners
 defShow (NTree (XTag p' attrs) inners)
   | p' == mkName "p"
-  = let attr = filter (attrMatch "class") attrs
-        NTree _ [NTree (XText class') _] = head attr
-    in if not (null attr) && class' == "title"
-       then concatMap defShow inners -- this case is useless?
-       else concatMap defShow inners
+  = map (\case
+      '\n' -> ' '
+      x -> x) $ concatMap defShow inners
 defShow (NTree (XText t) inners) = if t == "\n"
     then concatMap defShow inners
     else t ++ concatMap defShow inners
diff --git a/cairo-core.cabal b/cairo-core.cabal
--- a/cairo-core.cabal
+++ b/cairo-core.cabal
@@ -1,5 +1,5 @@
 name:                cairo-core
-version:             1.16.3
+version:             1.16.4
 synopsis:            Cairo Haskell binding (core functions)
 description:         Cairo Haskell binding (core functions). Please checkout cairo-opts for other functions.
 homepage:            https://github.com/magicloud/cairo-core#readme