diff options
| author | Joey Hess <joey@kitenet.net> | 2014-04-23 14:04:09 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-23 14:04:09 -0400 |
| commit | e0aff931023a6c3f7a06caaa5dfa1aad2da3889d (patch) | |
| tree | f1960ca033d5196da417e7c4d1f0e579bdc21e46 /Utility/Misc.hs | |
| parent | 232fce59fabc4243c9b9d7944589986c5cc73f16 (diff) | |
| download | git-repair-e0aff931023a6c3f7a06caaa5dfa1aad2da3889d.tar.gz | |
merge from git-annex
Diffstat (limited to 'Utility/Misc.hs')
| -rw-r--r-- | Utility/Misc.hs | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/Utility/Misc.hs b/Utility/Misc.hs index 20007ad..9c19df8 100644 --- a/Utility/Misc.hs +++ b/Utility/Misc.hs @@ -109,18 +109,6 @@ massReplace vs = go [] vs go (replacement:acc) vs (drop (length val) s) | otherwise = go acc rest s -{- Given two orderings, returns the second if the first is EQ and returns - - the first otherwise. - - - - Example use: - - - - compare lname1 lname2 `thenOrd` compare fname1 fname2 - -} -thenOrd :: Ordering -> Ordering -> Ordering -thenOrd EQ x = x -thenOrd x _ = x -{-# INLINE thenOrd #-} - {- Wrapper around hGetBufSome that returns a String. - - The null string is returned on eof, otherwise returns whatever |