Extracting feed of a Google Calender for upcoming events

GoogleCalender.hs

module Test where

import Data.Time.RFC3339
import Data.Time.LocalTime
import Data.Time.Calendar (addDays)
import Network.URL

main = do 
    putStrLn $ exportURL paramUrl
    startTime <- getZonedTime >>= return . showRFC3339 
    endTime <- getZonedTime >>= return . showRFC3339 . plusOneWeek
    let completeUrl = (`add_param` ("start-min", startTime)) 
                    . (`add_param` ("start-max", endTime))
                    $ paramUrl
    putStrLn $ exportURL completeUrl
  where
    Just basicUrl = importURL "https://www.google.com/calendar/feeds/pbtqihgenalb8s3eddsgeuo1fg%40group.calendar.google.com/public/basic"
    paramUrl = basicUrl { url_params = [("max-results", "10"), ("orderby", "starttime"), ("sortorder", "ascending")] }

plusOneWeek :: ZonedTime -> ZonedTime
plusOneWeek (ZonedTime  lt tz) = ZonedTime lt' tz
  where lt' = lt { localDay = addDays 7 (localDay lt) }