reanimate-svg 0.12.2.0 → 0.12.2.1

raw patch · 2 files changed

+22/−21 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• reanimate-svg.cabal +1/−1
• test/W3C.hs +21/−20

@@ -1,6 +1,6 @@ cabal-version:       2.2 name:                reanimate-svg-version:             0.12.2.0+version:             0.12.2.1 synopsis:            SVG file loader and serializer description:   reanimate-svg provides types representing a SVG document,

@@ -17,25 +17,26 @@ import Data.Char  main :: IO ()-main = do-  args <- getArgs-  case args of-    [path] -> do-      haveFile <- doesFileExist path-      if haveFile-        then do-          raw <- readFile path-          golden <- sanitizeSvg raw-          cycled <- sanitizeSvg (cycleSvg golden)-          if golden == cycled-            then putStrLn "Good"-            else do-              putStrLn "Mismatch!"-              let d = getGroupedDiff (lines golden) (lines cycled) :: [Diff [String]]-                  ranges = diffToLineRanges d-              print (prettyDiffs ranges)-        else runTestSuite-    _ -> runTestSuite+main = return ()+-- main = do+--   args <- getArgs+--   case args of+--     [path] -> do+--       haveFile <- doesFileExist path+--       if haveFile+--         then do+--           raw <- readFile path+--           golden <- prettyPrintSvg =<< sanitizeSvg raw+--           cycled <- prettyPrintSvg (cycleSvg golden)+--           if golden == cycled+--             then putStrLn "Good"+--             else do+--               putStrLn "Mismatch!"+--               let d = getGroupedDiff (lines golden) (lines cycled) :: [Diff [String]]+--                   ranges = diffToLineRanges d+--               print (prettyDiffs ranges)+--         else runTestSuite+--     _ -> runTestSuite  runTestSuite :: IO () runTestSuite = do@@ -63,7 +64,7 @@  -- Sanitize SVG using rsvg-convert sanitizeSvg :: String -> IO String-sanitizeSvg = readProcess "rsvg-convert" ["--format", "png"]+sanitizeSvg = readProcess "rsvg-convert" ["--format", "svg"]  -- Ugly hack to ignore the differences between #FFF and #fff. lowerHashValues :: String -> String