From b9e4cfe80c513d9c3b730dc2b46b44baed06acc4 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Sun, 26 Apr 2020 10:15:20 -0700
Subject: don't lol

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

(limited to 'Alpha.hs')

diff --git a/Alpha.hs b/Alpha.hs
index afcd59d..5d08bc0 100644
--- a/Alpha.hs
+++ b/Alpha.hs
@@ -29,6 +29,9 @@ module Alpha
     (</),
     (<//),
 
+    -- * Bool
+    don't,
+
     -- * Text
     chomp,
     lchomp,
@@ -90,3 +93,8 @@ lchomp = LazyText.filter (/= '\n')
 -- | Join a list of things with a separator.
 joinWith :: [a] -> [[a]] -> [a]
 joinWith = intercalate
+
+-- | can you just not
+don't :: Bool -> Bool
+don't = do not
+{-# ANN don't "HLint: ignore Redundant do" #-}
-- 
cgit v1.2.3