diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-30 00:55:59 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-30 00:55:59 -0400 |
| commit | 3026baf7ba4941029f3fb50888b3fd3290f720d1 (patch) | |
| tree | df34479c82189dde4d65453ee08a8195fb1bca59 /Types | |
| parent | df31307f2ce1b037b68f16f9cb0187cf1e3a7b6d (diff) | |
avoid unnecessary Maybe
Diffstat (limited to 'Types')
| -rw-r--r-- | Types/Remote.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Types/Remote.hs b/Types/Remote.hs index 271676d0e..f01ae01f6 100644 --- a/Types/Remote.hs +++ b/Types/Remote.hs @@ -27,7 +27,7 @@ data RemoteTypeA a = RemoteType { -- enumerates remotes of this type enumerate :: a [Git.Repo], -- generates a remote of this type - generate :: Git.Repo -> UUID -> Maybe RemoteConfig -> a (RemoteA a), + generate :: Git.Repo -> UUID -> RemoteConfig -> a (RemoteA a), -- initializes or changes a remote setup :: UUID -> RemoteConfig -> a RemoteConfig } @@ -62,8 +62,8 @@ data RemoteA a = Remote { hasKeyCheap :: Bool, -- Some remotes can provide additional details for whereis. whereisKey :: Maybe (Key -> a [String]), - -- a Remote can have a persistent configuration store - config :: Maybe RemoteConfig, + -- a Remote has a persistent configuration store + config :: RemoteConfig, -- git configuration for the remote repo :: Git.Repo, -- a Remote can be assocated with a specific local filesystem path |