aboutsummaryrefslogtreecommitdiff
path: root/Remote/Hook.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2014-12-16 15:26:13 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2014-12-16 15:26:13 -0400
commitf3962d32f3b88ddb66ea564dbf0c3189047410b7 (patch)
treef1b3eb1d3c66ff338493968265bdae44762ef53f /Remote/Hook.hs
parent95418cc430284b65af13105f7c63da08908dd826 (diff)
reformat
Diffstat (limited to 'Remote/Hook.hs')
-rw-r--r--Remote/Hook.hs52
1 files changed, 26 insertions, 26 deletions
diff --git a/Remote/Hook.hs b/Remote/Hook.hs
index d0b5f7932..5955e51c2 100644
--- a/Remote/Hook.hs
+++ b/Remote/Hook.hs
@@ -39,32 +39,32 @@ gen r u c gc = do
(simplyPrepare $ retrieve hooktype)
(simplyPrepare $ remove hooktype)
(simplyPrepare $ checkKey r hooktype)
- Remote {
- uuid = u,
- cost = cst,
- name = Git.repoDescribe r,
- storeKey = storeKeyDummy,
- retrieveKeyFile = retreiveKeyFileDummy,
- retrieveKeyFileCheap = retrieveCheap hooktype,
- removeKey = removeKeyDummy,
- checkPresent = checkPresentDummy,
- checkPresentCheap = False,
- whereisKey = Nothing,
- remoteFsck = Nothing,
- repairRepo = Nothing,
- config = c,
- localpath = Nothing,
- repo = r,
- gitconfig = gc,
- readonly = False,
- availability = GloballyAvailable,
- remotetype = remote,
- mkUnavailable = gen r u c $
- gc { remoteAnnexHookType = Just "!dne!" },
- getInfo = return [("hooktype", hooktype)],
- claimUrl = Nothing,
- checkUrl = Nothing
- }
+ Remote
+ { uuid = u
+ , cost = cst
+ , name = Git.repoDescribe r
+ , storeKey = storeKeyDummy
+ , retrieveKeyFile = retreiveKeyFileDummy
+ , retrieveKeyFileCheap = retrieveCheap hooktype
+ , removeKey = removeKeyDummy
+ , checkPresent = checkPresentDummy
+ , checkPresentCheap = False
+ , whereisKey = Nothing
+ , remoteFsck = Nothing
+ , repairRepo = Nothing
+ , config = c
+ , localpath = Nothing
+ , repo = r
+ , gitconfig = gc
+ , readonly = False
+ , availability = GloballyAvailable
+ , remotetype = remote
+ , mkUnavailable = gen r u c $
+ gc { remoteAnnexHookType = Just "!dne!" }
+ , getInfo = return [("hooktype", hooktype)]
+ , claimUrl = Nothing
+ , checkUrl = Nothing
+ }
where
hooktype = fromMaybe (error "missing hooktype") $ remoteAnnexHookType gc