diff options
| -rw-r--r-- | libraries/base/Data/List/NonEmpty.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/base/Data/List/NonEmpty.hs b/libraries/base/Data/List/NonEmpty.hs index 45e8c9a8ea..d66d9c6a92 100644 --- a/libraries/base/Data/List/NonEmpty.hs +++ b/libraries/base/Data/List/NonEmpty.hs @@ -156,11 +156,11 @@ unfoldr f a = case f a of -- | Extract the first element of the stream. head :: NonEmpty a -> a -head ~(a :| _) = a +head (a :| _) = a -- | Extract the possibly-empty tail of the stream. tail :: NonEmpty a -> [a] -tail ~(_ :| as) = as +tail (_ :| as) = as -- | Extract the last element of the stream. last :: NonEmpty a -> a |