postCreateDirR         :: ClientName -> RealmId -> Path -> APIHandler Value
postCreateDirR cn ri p = toJSON <$> lift (withClientId cn $ \ci ->
                                           createDirectory ci ri p NonExistent)
postCreateDirR         :: ClientName -> RealmId -> Path -> APIHandler Value
postCreateDirR cn ri p = toJSON <$> lift (withClientId cn $ \ci ->
                                           createDirectory ci ri p NonExistent)
postCreateDirR cn ri p = toJSON <$> lift (withClientId cn $ \ci ->
                                           createDirectory ci ri p NonExistent)