-- | transform a ProcessingRequest as passed to our application to a version
-- suited for pure computation
toProcessingRequest :: ProcessingRequest' -> IO ProcessingRequest
toProcessingRequest req =
    ProcessingRequest (prRqUser' req) (prRqOptions' req) (prRqFiles' req) <$>
        getCurrentTime <*> getCurrentTimeZone
toProcessingRequest :: ProcessingRequest' -> IO ProcessingRequest
toProcessingRequest req =
    ProcessingRequest (prRqUser' req) (prRqOptions' req) (prRqFiles' req) <$>
        getCurrentTime <*> getCurrentTimeZone
toProcessingRequest req =
    ProcessingRequest (prRqUser' req) (prRqOptions' req) (prRqFiles' req) <$>
        getCurrentTime <*> getCurrentTimeZone