Add lisp-ish list singleton function

1 files changed, 8 insertions, 1 deletions

diff --git a/Alpha.hs b/Alpha.hs
index 93308a0..c14f03f 100644
--- a/Alpha.hs
+++ b/Alpha.hs
@@ -55,6 +55,9 @@ module Alpha
     capitalize,
     lowercase,
 
+    -- * Lists
+    list,
+
     -- * Data Validation
     require,
 
@@ -69,7 +72,11 @@ import Data.String
 import Data.Text (Text)
 import qualified Data.Text as Text
 import qualified Data.Text.Lazy as LazyText
-import Protolude as X hiding (($), (&), (.))
+import Protolude as X hiding (list, ($), (&), (.))
+
+-- | Create a list. This should be @Data.List.singleton@ but that doesn't exist.
+list :: a -> [a]
+list a = [a]
 
 -- | Debugging printf
 say :: Text -> IO ()