From 23f7d3668482dfbe768bc3009b92836e94578137 Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Wed, 11 May 2011 15:17:41 -0400
Subject: [PATCH] Add assertTrue = assertBool.

---
 src/Assertions.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Assertions.hs b/src/Assertions.hs
index b51c252..6641e8c 100644
--- a/src/Assertions.hs
+++ b/src/Assertions.hs
@@ -26,3 +26,6 @@ assertClose preface expected actual =
   unless (actual `is_close` expected) (assertFailure msg)
     where msg = (if null preface then "" else preface ++ "\n") ++
                 "expected: " ++ show expected ++ "\n but got: " ++ show actual
+
+-- | It's asinine that this doesn't exist already.
+assertTrue = assertBool
-- 
2.43.2