diff --git a/test/main.hs b/test/main.hs
index 6ec99f3..abd69eb 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,9 +11,11 @@ test f actual expected = do
let result = f actual
result @?= expected
+sanitized :: Text -> Text -> Expectation
sanitized = test sanitize
-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 815b3e9..df16ecf 100644
--- a/xss-sanitize.cabal
+++ b/xss-sanitize.cabal
@@ -38,7 +38,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