add missing case
This commit is contained in:
parent
3435a47245
commit
bdcf19b095
1 changed files with 1 additions and 0 deletions
|
@ -291,6 +291,7 @@ removeExportDirectoryM external dir = safely $
|
||||||
REMOVEEXPORTDIRECTORY_SUCCESS -> Just $ return True
|
REMOVEEXPORTDIRECTORY_SUCCESS -> Just $ return True
|
||||||
REMOVEEXPORTDIRECTORY_FAILURE -> Just $ return False
|
REMOVEEXPORTDIRECTORY_FAILURE -> Just $ return False
|
||||||
UNSUPPORTED_REQUEST -> Just $ return True
|
UNSUPPORTED_REQUEST -> Just $ return True
|
||||||
|
_ -> Nothing
|
||||||
where
|
where
|
||||||
req = REMOVEEXPORTDIRECTORY dir
|
req = REMOVEEXPORTDIRECTORY dir
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue