-- = patching files
-- | provide data from a patching request
patchUProvider :: PatchURequest -> Query Morgue PatchUData
patchUProvider (PatchURequest user fName patch) = do
    morgue <- ask
    return ( getOne $ allUsers morgue @= user
           , fName
           , patch
           )

-- | process a patch in an impure fashion ;(
patchUProvider :: PatchURequest -> Query Morgue PatchUData
patchUProvider (PatchURequest user fName patch) = do
    morgue <- ask
    return ( getOne $ allUsers morgue @= user
           , fName
           , patch
           )

-- | process a patch in an impure fashion ;(
patchUProvider (PatchURequest user fName patch) = do
    morgue <- ask
    return ( getOne $ allUsers morgue @= user
           , fName
           , patch
           )

-- | process a patch in an impure fashion ;(