add missing case

This commit is contained in:
Joey Hess 2017-09-15 14:32:56 -04:00
parent 3435a47245
commit bdcf19b095
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -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