ref: f7409aa51cf64605daecd7b6cdb78885ef344ab6
parent: 6ad50732136209e9bcbcf5e04471e066e0197dfa
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Sat Feb 10 13:58:39 EST 2024
Add listToMaybe
--- a/lib/Data/Maybe.hs
+++ b/lib/Data/Maybe.hs
@@ -90,3 +90,6 @@
maybeToList Nothing = []
maybeToList (Just a) = [a]
+listToMaybe :: forall a . [a] -> Maybe a
+listToMaybe [] = Nothing
+listToMaybe (a:_) = Just a
--
⑨