pullUProvider :: PullURequest -> Query Morgue PullUData
pullUProvider (PullURequest user fName) = do
    morgue <- ask
    return (getOne $ allUsers morgue @= user, fName)

-- | get a file from a user, looking it up by name
pullUProvider :: PullURequest -> Query Morgue PullUData
pullUProvider (PullURequest user fName) = do
    morgue <- ask
    return (getOne $ allUsers morgue @= user, fName)

-- | get a file from a user, looking it up by name
pullUProvider (PullURequest user fName) = do
    morgue <- ask
    return (getOne $ allUsers morgue @= user, fName)

-- | get a file from a user, looking it up by name