-- |Gets the into which it should download the comic
getPath :: IO FilePath
getPath = do
  path <- processArgs
  case path of 
    Just path' -> return path' 
    Nothing -> fmap (++ fileName) getCurrentDirectory
    where fileName = pathSeparator:"strip.png"

-- |Checks whether the arguments contain a path, or help flag. If they do, prints the USAGE message
getPath :: IO FilePath
getPath = do
  path <- processArgs
  case path of 
    Just path' -> return path' 
    Nothing -> fmap (++ fileName) getCurrentDirectory
    where fileName = pathSeparator:"strip.png"

-- |Checks whether the arguments contain a path, or help flag. If they do, prints the USAGE message
getPath = do
  path <- processArgs
  case path of 
    Just path' -> return path' 
    Nothing -> fmap (++ fileName) getCurrentDirectory
    where fileName = pathSeparator:"strip.png"

-- |Checks whether the arguments contain a path, or help flag. If they do, prints the USAGE message