diff options
Diffstat (limited to 'src/Utils')
| -rw-r--r-- | src/Utils/List.elm | 7 |
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 |