http-trace-0.1.1.1: app/Main.hs

module Main where

import System.Environment
import Http.Trace

--------------------------------------------------------------------------------

main :: IO ()
main = do
  args <- getArgs
  case null args of
    True  -> putStrLn $ "no url supplied!"
    False ->
      do 
        rdrs <- traceRedirectsTLD (args!!0) True
        putStrLn $ "Redirects:"
        mapM_ (\x -> putStrLn $ "- " ++ x) rdrs