[commit: packages/haskeline] master: Untabify and delete trailing whitespace (5c0e6dc)
git at git.haskell.org
git at git.haskell.org
Fri Dec 18 09:48:26 UTC 2015
Repository : ssh://git@git.haskell.org/haskeline
On branch : master
Link : http://git.haskell.org/packages/haskeline.git/commitdiff/5c0e6dcfcdb11c6ece244c99eaca7b138a49f4a3
>---------------------------------------------------------------
commit 5c0e6dcfcdb11c6ece244c99eaca7b138a49f4a3
Author: Herbert Valerio Riedel <hvr at gnu.org>
Date: Fri Dec 18 08:54:18 2015 +0100
Untabify and delete trailing whitespace
This makes haskeline `-Wtabs`-clean
>---------------------------------------------------------------
5c0e6dcfcdb11c6ece244c99eaca7b138a49f4a3
System/Console/Haskeline/Command/Completion.hs | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/System/Console/Haskeline/Command/Completion.hs b/System/Console/Haskeline/Command/Completion.hs
index 97a887b..71a0f12 100644
--- a/System/Console/Haskeline/Command/Completion.hs
+++ b/System/Console/Haskeline/Command/Completion.hs
@@ -134,7 +134,7 @@ padWords :: Int -> [String] -> String
padWords _ [x] = x
padWords _ [] = ""
padWords len (x:xs) = x ++ replicate (len - glength x) ' '
- ++ padWords len xs
+ ++ padWords len xs
where
-- kludge: compute the length in graphemes, not chars.
-- but don't use graphemes for the max length, since I'm not convinced
@@ -159,5 +159,3 @@ splitIntoGroups n xs = transpose $ unfoldr f xs
ceilDiv :: Integral a => a -> a -> a
ceilDiv m n | m `rem` n == 0 = m `div` n
| otherwise = m `div` n + 1
-
-
More information about the ghc-commits
mailing list