cairo-core 1.16.3 → 1.16.4

raw patch · 2 files changed

+5/−6 lines, 2 filessetup-changed

Files

• Setup.hs +4/−5
• cairo-core.cabal +1/−1

@@ -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

@@ -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