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

finished hlint pass

Browse source
This commit is contained in:
Joey Hess 2011-07-15 12:47:14 -04:00
parent 185f0b6870
commit 6c396a256c
29 changed files with 114 additions and 115 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Locations.hs
View file

@ -167,8 +167,8 @@ display_32bits_as_dir w = trim $ swap_pairs cs
-- a real word, use letters that appear less frequently.
chars = ['0'..'9'] ++ "zqjxkmvwgpfZQJXKMVWGPF"
cs = map (\x -> getc $ (shiftR w (6*x)) .&. 31) [0..7]
getc n = chars !! (fromIntegral n)
getc n = chars !! fromIntegral n
swap_pairs (x1:x2:xs) = x2:x1:swap_pairs xs
swap_pairs _ = []
-- Last 2 will always be 00, so omit.
trim s = take 6 s
trim = take 6