-- | Returns a list of days and half-hour timeslots.
makeTimeSlots  :: T.Text -> [Time]
makeTimeSlots str =
    let (times, days) = convertTime (str, [])
        doubles = map toDouble ( T.split (== '-') times)
        slots = if length doubles == 1
                then makeSlots (head doubles) (head doubles + 1)
                else makeSlots (head doubles) (head (tail doubles))
    in map Time (addList days slots)
makeTimeSlots  :: T.Text -> [Time]
makeTimeSlots str =
    let (times, days) = convertTime (str, [])
        doubles = map toDouble ( T.split (== '-') times)
        slots = if length doubles == 1
                then makeSlots (head doubles) (head doubles + 1)
                else makeSlots (head doubles) (head (tail doubles))
    in map Time (addList days slots)
makeTimeSlots str =
    let (times, days) = convertTime (str, [])
        doubles = map toDouble ( T.split (== '-') times)
        slots = if length doubles == 1
                then makeSlots (head doubles) (head doubles + 1)
                else makeSlots (head doubles) (head (tail doubles))
    in map Time (addList days slots)