From 96fa6b89acdd77498140790553a42c81250816ed Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 31 Oct 2010 15:12:56 -0400 Subject: more Wall cleaning --- Core.hs | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/Core.hs b/Core.hs index 8cdc6979a..5f799161c 100644 --- a/Core.hs +++ b/Core.hs @@ -7,7 +7,6 @@ module Core where -import Maybe import System.IO import System.Directory import Control.Monad.State (liftIO) @@ -27,7 +26,6 @@ import Utility {- Sets up a git repo for git-annex. -} startup :: Annex Bool startup = do - g <- Annex.gitRepo prepUUID return True @@ -118,8 +116,8 @@ logStatus :: Key -> LogStatus -> Annex () logStatus key status = do g <- Annex.gitRepo u <- getUUID g - log <- liftIO $ logChange g key u status - Annex.queue "add" [] log + logfile <- liftIO $ logChange g key u status + Annex.queue "add" [] logfile {- Runs an action, passing it a temporary filename to download, - and if the action succeeds, moves the temp file into @@ -158,9 +156,9 @@ showProgress :: Annex () showProgress = verbose $ liftIO $ putStr $ "\n" showLongNote :: String -> Annex () showLongNote s = verbose $ do - liftIO $ putStr $ "\n" ++ (indent s) + liftIO $ putStr $ "\n" ++ indented where - indent s = join "\n" $ map (\l -> " " ++ l) $ lines s + indented = join "\n" $ map (\l -> " " ++ l) $ lines s showEndOk :: Annex () showEndOk = verbose $ do liftIO $ putStrLn "ok" -- cgit v1.2.3