aboutsummaryrefslogtreecommitdiff
path: root/Git/CurrentRepo.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-02-12 15:33:05 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-02-12 15:33:44 -0400
commit329267cb2b11da52956a86d9caec5225251a5ac1 (patch)
treead86509598b515ed0529afc9f02c8076311f0004 /Git/CurrentRepo.hs
parent15b68af5e7897d5747d21174ecaa682b69b90865 (diff)
avoid unncessary IO
Diffstat (limited to 'Git/CurrentRepo.hs')
-rw-r--r--Git/CurrentRepo.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Git/CurrentRepo.hs b/Git/CurrentRepo.hs
index 9de00034b..dab4ad21b 100644
--- a/Git/CurrentRepo.hs
+++ b/Git/CurrentRepo.hs
@@ -50,8 +50,8 @@ get = do
configure (Just d) _ = do
absd <- absPath d
curr <- getCurrentDirectory
- r <- newFrom $ Local { gitdir = absd, worktree = Just curr }
- Git.Config.read r
+ Git.Config.read $ newFrom $
+ Local { gitdir = absd, worktree = Just curr }
configure Nothing Nothing = error "Not in a git repository."
addworktree w r = changelocation r $