From f4cdf79bd4a75e9eafe68b9a908f4cc68682b7ef Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Tue, 5 Apr 2022 21:39:55 +0200
Subject: boom

---
 src/Data/List/Extra.hs | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 src/Data/List/Extra.hs

(limited to 'src/Data/List/Extra.hs')

diff --git a/src/Data/List/Extra.hs b/src/Data/List/Extra.hs
new file mode 100644
index 0000000..d18bc76
--- /dev/null
+++ b/src/Data/List/Extra.hs
@@ -0,0 +1,8 @@
+module Data.List.Extra where
+
+import Data.Maybe (listToMaybe)
+
+
+(!!?) :: [a] -> Int -> Maybe a
+x !!? i | i >= 0 = listToMaybe (drop i x)
+_ !!? _ = Nothing
-- 
cgit v1.2.3