summaryrefslogtreecommitdiff
path: root/GitAnnex.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-11-11 00:51:07 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-11-11 00:51:07 -0400
commit264bd9ebe37855d4005022df057da13ec8080afb (patch)
treef32f13646ece29c8f6336b8680cb07dd55187be5 /GitAnnex.hs
parentd9f5cc9f73ea046fcd2b59b5e75d4600593ac05b (diff)
where indenting
Diffstat (limited to 'GitAnnex.hs')
-rw-r--r--GitAnnex.hs13
1 files changed, 7 insertions, 6 deletions
diff --git a/GitAnnex.hs b/GitAnnex.hs
index 26a591133..dcde2644c 100644
--- a/GitAnnex.hs
+++ b/GitAnnex.hs
@@ -165,12 +165,13 @@ options = Option.common ++
, Option ['T'] ["time-limit"] (ReqArg Limit.addTimeLimit paramTime)
"stop after the specified amount of time"
] ++ Option.matcher
- where
- setnumcopies v = Annex.changeState $ \s -> s { Annex.forcenumcopies = readish v }
- setgitconfig :: String -> Annex ()
- setgitconfig v = do
- newg <- inRepo $ Git.Config.store v
- Annex.changeState $ \s -> s { Annex.repo = newg }
+ where
+ setnumcopies v = Annex.changeState $
+ \s -> s { Annex.forcenumcopies = readish v }
+ setgitconfig :: String -> Annex ()
+ setgitconfig v = do
+ newg <- inRepo $ Git.Config.store v
+ Annex.changeState $ \s -> s { Annex.repo = newg }
header :: String
header = "Usage: git-annex command [option ..]"