From bfd1cb7f9e63793ca926428900404cf4ee535826 Mon Sep 17 00:00:00 2001
From: Jorge Acereda <jacereda@gmail.com>
Date: Fri, 11 Nov 2016 11:47:41 +0100
Subject: [PATCH] Make head O(1). Fixes #76.

---
 src/Data/Array.purs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Data/Array.purs b/src/Data/Array.purs
index 21a96d8e..9341690e 100644
--- a/src/Data/Array.purs
+++ b/src/Data/Array.purs
@@ -219,7 +219,7 @@ insertBy cmp x ys =
 -- |
 -- | Running time: `O(1)`.
 head :: forall a. Array a -> Maybe a
-head = uncons' (const Nothing) (\x _ -> Just x)
+head xs = xs !! 0
 
 -- | Get the last element in an array, or `Nothing` if the array is empty
 -- |