diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-11-22 15:46:57 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-11-22 15:46:57 -0400 |
| commit | 57adb0347bf4eb71ab846a2947680a20263449a2 (patch) | |
| tree | eb9df0ec57462a2a45bf2ff0d6c1d05d5677634f /Locations.hs | |
| parent | fd11b5a3e5355a68f182a60eda7916d57e141366 (diff) | |
hlint tweaks
Remotes.hs next, and also Backend/* and Command/*
Diffstat (limited to 'Locations.hs')
| -rw-r--r-- | Locations.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Locations.hs b/Locations.hs index 24ccc75c6..6c541e937 100644 --- a/Locations.hs +++ b/Locations.hs @@ -31,12 +31,12 @@ import qualified GitRepo as Git stateLoc :: String stateLoc = ".git-annex/" gitStateDir :: Git.Repo -> FilePath -gitStateDir repo = (Git.workTree repo) ++ "/" ++ stateLoc +gitStateDir repo = Git.workTree repo ++ "/" ++ stateLoc {- Annexed file's absolute location. -} annexLocation :: Git.Repo -> Key -> FilePath annexLocation r key = - (Git.workTree r) ++ "/" ++ (annexLocationRelative key) + Git.workTree r ++ "/" ++ annexLocationRelative key {- Annexed file's location relative to git's working tree. - @@ -90,5 +90,5 @@ fileKey file = read $ {- for quickcheck -} prop_idempotent_fileKey :: String -> Bool -prop_idempotent_fileKey s = k == (fileKey $ keyFile k) +prop_idempotent_fileKey s = k == fileKey (keyFile k) where k = read $ "test:" ++ s |