don't lol

1 files changed, 8 insertions, 0 deletions

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" #-}