From 30fb0e0dc8972dcde0c4e765c5ab7864f69841a4 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Fri, 19 Feb 2021 10:42:02 -0500
Subject: Formatting, and add a warning to 'require'

---
 Alpha.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Alpha.hs')

diff --git a/Alpha.hs b/Alpha.hs
index 8fdca51..9feb123 100644
--- a/Alpha.hs
+++ b/Alpha.hs
@@ -213,6 +213,7 @@ capitalize str = (Char.toUpper <| List.head str) : (Char.toLower </ List.tail st
 lowercase :: String -> String
 lowercase str = [Char.toLower c | c <- str]
 
+{-# WARNING require "'require' remains in code" #-}
 require :: Text -> Maybe a -> a
 require _ (Just x) = x
 require s Nothing = panic <| s <> " not found"
-- 
cgit v1.2.3