Do not add more than one space when editing name

1 files changed, 7 insertions, 0 deletions

diff --git a/src/Utils/List.elm b/src/Utils/List.elm
index 64ebaa5..83b11eb 100644
--- a/src/Utils/List.elm
+++ b/src/Utils/List.elm
@@ -1,6 +1,7 @@
 module Utils.List
   ( repeat
   , splitAt
+  , maybeHead
   , maybeTail
   ) where
 
@@ -17,6 +18,12 @@ repeat count elem =
 splitAt : Int -> List a -> (List a, List a)
 splitAt n xs = (List.take n xs, List.drop n xs)
 
+maybeHead : List a -> Maybe a
+maybeHead xs =
+  case xs of
+    x :: _ -> Just x
+    _ -> Nothing
+
 maybeTail : List a -> Maybe (List a)
 maybeTail xs =
   case xs of