From 330e4363d8abb509031d2c8c1a89dcc6f955e2c1 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Fri, 4 Dec 2020 11:16:25 -0500
Subject: Renamespace Devalloc and Que

Move them under the Biz root so that we know they are specific to Biz stuff. Biz
is for proprietary stuff that we own.

I also had to refactor the bild namespace parsing code because it couldn't
handle a namespace with 3 parts. I really need to get that namespace library
written and tested.
---
 Alpha.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'Alpha.hs')

diff --git a/Alpha.hs b/Alpha.hs
index f95d234..5e41649 100644
--- a/Alpha.hs
+++ b/Alpha.hs
@@ -42,6 +42,7 @@ module Alpha
 
     -- * String
     capitalize,
+    lowercase,
 
     -- * Data Validation
     require,
@@ -119,6 +120,8 @@ capitalize :: String -> String
 capitalize [] = []
 capitalize str = (Char.toUpper <| List.head str) : (Char.toLower </ List.tail str)
 
+lowercase str = [Char.toLower c | c <- str]
+
 require :: Text -> Maybe a -> a
 require _ (Just x) = x
 require s Nothing = panic <| s <> " not found"
-- 
cgit v1.2.3