-- calcWeek: Calculates the week number, starting from d2 until d1. If d2 happened before d1, then
-- the result will be the abs value, prepended with '_'. E.g 3 weeks since..., _3 weeks before
calcWeek :: DateStuff -> DateStuff -> String
calcWeek d2 d1 = toString $ floor (fromIntegral (diffDays (toDayFromDateStuff d2) (toDayFromDateStuff d1)) / 7.0)
    where
    toString :: Integer -> String
    toString i  
          | i < 0 = ("_" ++) $ show $ (i * (-1))
          | otherwise = show i

-- cleanExifDate :: converts a String into a DateStuff
calcWeek :: DateStuff -> DateStuff -> String
calcWeek d2 d1 = toString $ floor (fromIntegral (diffDays (toDayFromDateStuff d2) (toDayFromDateStuff d1)) / 7.0)
    where
    toString :: Integer -> String
    toString i  
          | i < 0 = ("_" ++) $ show $ (i * (-1))
          | otherwise = show i

-- cleanExifDate :: converts a String into a DateStuff
calcWeek d2 d1 = toString $ floor (fromIntegral (diffDays (toDayFromDateStuff d2) (toDayFromDateStuff d1)) / 7.0)
    where
    toString :: Integer -> String
    toString i  
          | i < 0 = ("_" ++) $ show $ (i * (-1))
          | otherwise = show i

-- cleanExifDate :: converts a String into a DateStuff