diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-02-12 15:33:05 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-02-12 15:33:44 -0400 |
commit | 329267cb2b11da52956a86d9caec5225251a5ac1 (patch) | |
tree | ad86509598b515ed0529afc9f02c8076311f0004 /Git/CurrentRepo.hs | |
parent | 15b68af5e7897d5747d21174ecaa682b69b90865 (diff) |
avoid unncessary IO
Diffstat (limited to 'Git/CurrentRepo.hs')
-rw-r--r-- | Git/CurrentRepo.hs | 4 |
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 $ |