diff options
Diffstat (limited to 'libraries')
| -rw-r--r-- | libraries/base/Data/OldList.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libraries/base/Data/OldList.hs b/libraries/base/Data/OldList.hs index 5ffdd84ad3..4859cac7ac 100644 --- a/libraries/base/Data/OldList.hs +++ b/libraries/base/Data/OldList.hs @@ -269,16 +269,16 @@ stripPrefix _ _ = Nothing -- -- >>> elemIndex 4 [0..] -- Just 4 -elemIndex :: Eq a => a -> [a] -> Maybe Int -elemIndex x = findIndex (x==) +elemIndex :: Eq a => a -> [a] -> Maybe Int +elemIndex x xs = findIndex (x==) xs -- arity 2 so that we don't get a PAP; #21345 -- | The 'elemIndices' function extends 'elemIndex', by returning the -- indices of all elements equal to the query element, in ascending order. -- -- >>> elemIndices 'o' "Hello World" -- [4,7] -elemIndices :: Eq a => a -> [a] -> [Int] -elemIndices x = findIndices (x==) +elemIndices :: Eq a => a -> [a] -> [Int] +elemIndices x xs = findIndices (x==) xs -- arity 2 so that we don't get a PAP; #21345 -- | The 'find' function takes a predicate and a list and returns the -- first element in the list matching the predicate, or 'Nothing' if |