http-trace 0.1.0.1 → 0.1.1.0

raw patch · 2 files changed

+9/−7 lines, 2 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• http-trace.cabal +1/−1
• src/Http/Trace.hs +8/−6

@@ -1,5 +1,5 @@ name:                http-trace-version:             0.1.0.1+version:             0.1.1.0 synopsis:            Tracking http redirects  description:         Tracking http redirects for supplied url homepage:            https://github.com/sigrlami/http-trace#readme

@@ -2,7 +2,7 @@  module Http.Trace        ( traceRedirects-       , traceRedirects'  +       , traceRedirectsTLD          , isReachable        ) where @@ -67,10 +67,10 @@ -- | Alternative to `traceRedrects` that returns top-level domain names --   without full url path. With compress functionality can show only --   distinct domains without repetition.                       -traceRedirects' :: String       -- ^ Starting url-                -> Bool         -- ^ Flag to remove duplicate domains-                -> IO [String]  -- ^ List of available redirects-traceRedirects' start compress = do+traceRedirectsTLD :: String       -- ^ Starting url+                  -> Bool         -- ^ Flag to remove duplicate domains+                  -> IO [String]  -- ^ List of available redirects+traceRedirectsTLD start compress = do   rdrs <- traceRedirects start   let rdrs' = map (\x -> fst $ head $ scan shortUrlRegex x) rdrs   -- TODO: 1. apply shortUrlRegex@@ -84,7 +84,9 @@  -- | Checks if we redirects paths lead to destination url --                        -isReachable :: String -> String -> IO Bool+isReachable :: String  -- ^ Statring url+            -> String  -- ^ Destination url+            -> IO Bool -- ^ Flag whether url reached isReachable start dest =   do     redirects <- traceRedirects start