From 3026baf7ba4941029f3fb50888b3fd3290f720d1 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 30 Nov 2012 00:55:59 -0400 Subject: avoid unnecessary Maybe --- Types/Remote.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Types') 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 -- cgit v1.2.3