summaryrefslogtreecommitdiff
path: root/Core.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-31 15:12:56 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-31 15:12:56 -0400
commit96fa6b89acdd77498140790553a42c81250816ed (patch)
treee1545972c0db3d345cb120a58dac41277e1076f3 /Core.hs
parent80ed63ebb4d7750994703e72caeee82075c5d036 (diff)
more Wall cleaning
Diffstat (limited to 'Core.hs')
-rw-r--r--Core.hs10
1 files 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"