printExif :: (String, DateStuff) -> IO()
printExif (file, sd) =
    do exif <- fromFile file
       putStr sepLn >> putStr "  Processing Image: "
       putStr file >> putStr " "
       putStrLn sepLn
       dt_tag <- getTag exif "DateTime"
       processPhoto (PictureStuff {picName = file, picDate = cleanExifDate dt_tag}) sd
printExif :: (String, DateStuff) -> IO()
printExif (file, sd) =
    do exif <- fromFile file
       putStr sepLn >> putStr "  Processing Image: "
       putStr file >> putStr " "
       putStrLn sepLn
       dt_tag <- getTag exif "DateTime"
       processPhoto (PictureStuff {picName = file, picDate = cleanExifDate dt_tag}) sd
printExif (file, sd) =
    do exif <- fromFile file
       putStr sepLn >> putStr "  Processing Image: "
       putStr file >> putStr " "
       putStrLn sepLn
       dt_tag <- getTag exif "DateTime"
       processPhoto (PictureStuff {picName = file, picDate = cleanExifDate dt_tag}) sd