postStoreFileR                   :: ClientName -> RealmId -> FileKind -> Path
                                 -> APIHandler Value
postStoreFileR _  _  Directory _ = lift $
                                   invalidArgs ["Cannot replace a directory by a file"]
postStoreFileR                   :: ClientName -> RealmId -> FileKind -> Path
                                 -> APIHandler Value
postStoreFileR _  _  Directory _ = lift $
                                   invalidArgs ["Cannot replace a directory by a file"]
postStoreFileR _  _  Directory _ = lift $
                                   invalidArgs ["Cannot replace a directory by a file"]