Can remove numbers in timer edition

1 files changed, 7 insertions, 0 deletions

diff --git a/src/Utils/List.elm b/src/Utils/List.elm
index 6895d83..64ebaa5 100644
--- a/src/Utils/List.elm
+++ b/src/Utils/List.elm
@@ -1,6 +1,7 @@
 module Utils.List
   ( repeat
   , splitAt
+  , maybeTail
   ) where
 
 import List
@@ -15,3 +16,9 @@ repeat count elem =
 
 splitAt : Int -> List a -> (List a, List a)
 splitAt n xs = (List.take n xs, List.drop n xs)
+
+maybeTail : List a -> Maybe (List a)
+maybeTail xs =
+  case xs of
+    _ :: tl -> Just tl
+    _ -> Nothing