-- = Deleting a file
-- | provide data from a user-delete request
deleteUProvider :: DeleteURequest -> Query Morgue DeleteUData
deleteUProvider (DeleteURequest user fName) = do
    morgue <- ask
    return (getOne $ allUsers morgue @= user, fName)

-- | delete a file from a user's datastore
deleteUProvider :: DeleteURequest -> Query Morgue DeleteUData
deleteUProvider (DeleteURequest user fName) = do
    morgue <- ask
    return (getOne $ allUsers morgue @= user, fName)

-- | delete a file from a user's datastore
deleteUProvider (DeleteURequest user fName) = do
    morgue <- ask
    return (getOne $ allUsers morgue @= user, fName)

-- | delete a file from a user's datastore