diff options
author | 2012-11-30 00:55:59 -0400 | |
---|---|---|
committer | 2012-11-30 00:55:59 -0400 | |
commit | 3026baf7ba4941029f3fb50888b3fd3290f720d1 (patch) | |
tree | df34479c82189dde4d65453ee08a8195fb1bca59 /Remote/Hook.hs | |
parent | df31307f2ce1b037b68f16f9cb0187cf1e3a7b6d (diff) |
avoid unnecessary Maybe
Diffstat (limited to 'Remote/Hook.hs')
-rw-r--r-- | Remote/Hook.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/Hook.hs b/Remote/Hook.hs index 7173a5b80..e6e1231a8 100644 --- a/Remote/Hook.hs +++ b/Remote/Hook.hs @@ -29,7 +29,7 @@ remote = RemoteType { setup = hookSetup } -gen :: Git.Repo -> UUID -> Maybe RemoteConfig -> Annex Remote +gen :: Git.Repo -> UUID -> RemoteConfig -> Annex Remote gen r u c = do hooktype <- getRemoteConfig r "hooktype" (error "missing hooktype") cst <- remoteCost r expensiveRemoteCost @@ -47,7 +47,7 @@ gen r u c = do hasKey = checkPresent r hooktype, hasKeyCheap = False, whereisKey = Nothing, - config = Nothing, + config = M.empty, localpath = Nothing, repo = r, readonly = False, |