cleanExifDate :: Maybe String -> DateStuff
--cleanExifDate Nothing = sTART_DATE
cleanExifDate (Just d) = toDateStuff $ head $ split " " d
    where
    toDateStuff :: String -> DateStuff
    toDateStuff s = let s' = split ":" s in
                        DateStuff (exYear s', exMonth s', exDay s')
-- end cleanExifDate 


-- classifyPhoto: Takes a PictureStuff, DateStuff, Week (String) and Output dir (String) and
-- puts the photo in the OUTPUT dir and creates links in the year-month, year-week subfolders
cleanExifDate :: Maybe String -> DateStuff
cleanExifDate (Just d) = toDateStuff $ head $ split " " d
    where
    toDateStuff :: String -> DateStuff
    toDateStuff s = let s' = split ":" s in
                        DateStuff (exYear s', exMonth s', exDay s')
-- end cleanExifDate 


-- classifyPhoto: Takes a PictureStuff, DateStuff, Week (String) and Output dir (String) and
-- puts the photo in the OUTPUT dir and creates links in the year-month, year-week subfolders
cleanExifDate (Just d) = toDateStuff $ head $ split " " d
    where
    toDateStuff :: String -> DateStuff
    toDateStuff s = let s' = split ":" s in
                        DateStuff (exYear s', exMonth s', exDay s')
-- end cleanExifDate 


-- classifyPhoto: Takes a PictureStuff, DateStuff, Week (String) and Output dir (String) and
-- puts the photo in the OUTPUT dir and creates links in the year-month, year-week subfolders