postStoreFileR cn ri fk        p = toJSON <$> lift (withClientId cn $ \ci ->
                                     addFile ci ri p fk rawRequestBody)
postStoreFileR cn ri fk        p = toJSON <$> lift (withClientId cn $ \ci ->
                                     addFile ci ri p fk rawRequestBody)
postStoreFileR cn ri fk        p = toJSON <$> lift (withClientId cn $ \ci ->
                                     addFile ci ri p fk rawRequestBody)