diff options
Diffstat (limited to 'Types/Remote.hs')
| -rw-r--r-- | Types/Remote.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Types/Remote.hs b/Types/Remote.hs index 0a4a0fa88..ec9b7a7a7 100644 --- a/Types/Remote.hs +++ b/Types/Remote.hs @@ -9,7 +9,6 @@ module Types.Remote where -import Control.Exception import Data.Map as M import Data.Ord @@ -46,8 +45,8 @@ data Remote a = Remote { -- removes a key's contents removeKey :: Key -> a Bool, -- Checks if a key is present in the remote; if the remote - -- cannot be accessed returns a Left error. - hasKey :: Key -> a (Either IOException Bool), + -- cannot be accessed returns a Left error message. + hasKey :: Key -> a (Either String Bool), -- Some remotes can check hasKey without an expensive network -- operation. hasKeyCheap :: Bool, |