From cf2126c163fc1cf26175da1c7200a0ec1e3e034d Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Tue, 4 Oct 2011 15:26:58 -0400 Subject: [PATCH] Import explicitly in Assertions.hs. --- src/Assertions.hs | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/Assertions.hs b/src/Assertions.hs index 33b79b9..b2ec7c1 100644 --- a/src/Assertions.hs +++ b/src/Assertions.hs @@ -5,10 +5,12 @@ module Assertions where import Control.Monad (unless) -import Test.HUnit +import Test.HUnit (Assertion, + assertBool, + assertFailure) -import Comparisons -import Point +import Comparisons ((~=)) +import Point (Point, is_close) -- | An HUnit assertion that wraps the almost_equals function. Stolen -- from the definition of 'assertEqual' in Test\/HUnit\/Base.hs. @@ -27,6 +29,7 @@ assertClose preface expected actual = 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 :: String -> Bool -> Assertion assertTrue = assertBool -- 2.43.2