processDir :: FilePath -> FilePath -> String -> IO ()
processDir dir outDir startDate =
    do files <- getDirectoryContents dir
       putStr "Processing Directory "
       putStrLn dir

       let sd = toDateStuffFromString startDate
       mapM_ printExif (map (\f -> (dir ++ "/" ++ f, sd)) (filter (endswith ".jpg") files))
processDir :: FilePath -> FilePath -> String -> IO ()
processDir dir outDir startDate =
    do files <- getDirectoryContents dir
       putStr "Processing Directory "
       putStrLn dir

       let sd = toDateStuffFromString startDate
       mapM_ printExif (map (\f -> (dir ++ "/" ++ f, sd)) (filter (endswith ".jpg") files))
processDir dir outDir startDate =
    do files <- getDirectoryContents dir
       putStr "Processing Directory "
       putStrLn dir

       let sd = toDateStuffFromString startDate
       mapM_ printExif (map (\f -> (dir ++ "/" ++ f, sd)) (filter (endswith ".jpg") files))