diff options
Diffstat (limited to 'Types')
-rw-r--r-- | Types/Crypto.hs | 2 | ||||
-rw-r--r-- | Types/Remote.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/Types/Crypto.hs b/Types/Crypto.hs index 6d4131129..1a9a7774a 100644 --- a/Types/Crypto.hs +++ b/Types/Crypto.hs @@ -70,4 +70,4 @@ calcMac mac = case mac of HmacSha384 -> showDigest $* hmacSha384 HmacSha512 -> showDigest $* hmacSha512 where - ($*) g f x y = g $ f x y + ($*) g f x y = g $ f x y diff --git a/Types/Remote.hs b/Types/Remote.hs index 8492be06d..6c0f89346 100644 --- a/Types/Remote.hs +++ b/Types/Remote.hs @@ -31,7 +31,7 @@ data RemoteTypeA a = RemoteType { -- generates a remote of this type generate :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> a (RemoteA a), -- initializes or changes a remote - setup :: UUID -> RemoteConfig -> a RemoteConfig + setup :: Maybe UUID -> RemoteConfig -> a (RemoteConfig, UUID) } instance Eq (RemoteTypeA a) where |