deleteDeleteR cn ri fk          p = toJSON <$> lift (withClientId cn $ \ci ->
                                                 deleteFileOrDir ci ri p fk)
deleteDeleteR cn ri fk          p = toJSON <$> lift (withClientId cn $ \ci ->
                                                 deleteFileOrDir ci ri p fk)
deleteDeleteR cn ri fk          p = toJSON <$> lift (withClientId cn $ \ci ->
                                                 deleteFileOrDir ci ri p fk)