mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

go go gadget hlint

Browse source
This commit is contained in:
Joey Hess 2011-09-20 23:24:48 -04:00
parent 9d26192350
commit 9f6b7935dd
21 changed files with 35 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Upgrade/V1.hs
View file

@ -173,7 +173,7 @@ readKey1 v =
then Just (read (bits !! 2) :: Integer)
else Nothing
wormy = head bits == "WORM"
mixup = wormy && (isUpper $ head $ bits !! 1)
mixup = wormy && isUpper (head $ bits !! 1)
showKey1 :: Key -> String
showKey1 Key { keyName = n , keyBackendName = b, keySize = s, keyMtime = t } =
@ -248,7 +248,7 @@ logFile' hasher repo key =
gitStateDir repo ++ hasher key ++ keyFile key ++ ".log"
stateDir :: FilePath
stateDir = addTrailingPathSeparator $ ".git-annex"
stateDir = addTrailingPathSeparator ".git-annex"
gitStateDir :: Git.Repo -> FilePath
gitStateDir repo = addTrailingPathSeparator $ Git.workTree repo </> stateDir