Formatting, and add a warning to 'require'

1 files changed, 1 insertions, 0 deletions

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"