diff --git a/test/main.hs b/test/main.hs
index 747efe1..2338c91 100644
--- a/test/main.hs
+++ b/test/main.hs
@@ -2,10 +2,8 @@
import Text.HTML.SanitizeXSS
import Text.HTML.SanitizeXSS.Css
import Data.Text (Text)
-import Data.Text as T
-import Test.Hspec.Monadic
-import Test.Hspec.HUnit ()
+import Test.Hspec
import Test.HUnit (assert, (@?=), Assertion)
test :: (Text -> Text) -> Text -> Text -> Assertion
@@ -13,10 +11,12 @@ test f actual expected = do
let result = f actual
result @?= expected
+sanitized :: Text -> Text -> Expectation
sanitized = test sanitize
sanitizedB = test sanitizeBalance
-main = hspecX $ do
+main :: IO ()
+main = hspec $ do
describe "html sanitizing" $ do
it "big test" $ do
let testHTML = " safeanchor
Unbalanced
"
diff --git a/xss-sanitize.cabal b/xss-sanitize.cabal
index ac7309e..7b49c70 100644
--- a/xss-sanitize.cabal
+++ b/xss-sanitize.cabal
@@ -39,7 +39,7 @@ test-suite test
, css-text >= 0.1.1 && < 0.2
, text >= 0.11 && < 1
, attoparsec >= 0.10.0.3 && < 1
- , hspec >= 0.8
+ , hspec >= 1.3
, HUnit >= 1.2