diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-07-15 12:47:14 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-07-15 12:47:14 -0400 |
| commit | 6c396a256c93464d726c66a95132536941871ee8 (patch) | |
| tree | 7f934c9eae22a9cfd3fb1672ebd7bf6870439c81 /Locations.hs | |
| parent | 185f0b687081f47d059cc0503f4f6b671868f753 (diff) | |
finished hlint pass
Diffstat (limited to 'Locations.hs')
| -rw-r--r-- | Locations.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Locations.hs b/Locations.hs index 2dbf2f55e..942b687bb 100644 --- a/Locations.hs +++ b/Locations.hs @@ -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 |