summaryrefslogtreecommitdiff
path: root/Alpha.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Alpha.hs')
-rw-r--r--Alpha.hs1
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"