From 718a278f973e8005ce4ba76717218abcabe5d0b1 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 15 Dec 2011 22:19:05 -0400 Subject: [PATCH] simplify --- Utility/BadPrelude.hs | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) diff --git a/Utility/BadPrelude.hs b/Utility/BadPrelude.hs index 825adfa025..04c9d9b0b1 100644 --- a/Utility/BadPrelude.hs +++ b/Utility/BadPrelude.hs @@ -56,16 +56,9 @@ lastMaybe v = Just $ Prelude.last v - (Like init, but no error on an empty list.) -} beginning :: [a] -> [a] beginning [] = [] -beginning (x:xs) = beginning' x xs - where - beginning' _ [] = [] - beginning' y (z:zs) = y : beginning' z zs +beginning l = Prelude.init l {- Like last, but no error on an empty list. -} end :: [a] -> [a] end [] = [] -end (x:xs) = end' x xs - where - end' y [] = [y] - end' _ (y:ys) = end' y ys - +end l = [Prelude.last l]