From 329267cb2b11da52956a86d9caec5225251a5ac1 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 12 Feb 2015 15:33:05 -0400 Subject: avoid unncessary IO --- Git/CurrentRepo.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Git/CurrentRepo.hs') 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 $ -- cgit v1.2.3