-- = processing files to an agenda
-- | provide data from a processing request
processingProvider :: ProcessingRequest -> Query Morgue ProcessingData
processingProvider (ProcessingRequest user opts fList tz time) = do
    morgue <- ask
    return ( getOne $ allUsers morgue @= user
           , toList $ allGroups morgue @= user
           , fList
           , opts
           , tz
           , time
           )

-- | process files
processingProvider :: ProcessingRequest -> Query Morgue ProcessingData
processingProvider (ProcessingRequest user opts fList tz time) = do
    morgue <- ask
    return ( getOne $ allUsers morgue @= user
           , toList $ allGroups morgue @= user
           , fList
           , opts
           , tz
           , time
           )

-- | process files
processingProvider (ProcessingRequest user opts fList tz time) = do
    morgue <- ask
    return ( getOne $ allUsers morgue @= user
           , toList $ allGroups morgue @= user
           , fList
           , opts
           , tz
           , time
           )

-- | process files