aboutsummaryrefslogtreecommitdiff
path: root/html-test/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'html-test/Main.hs')
-rwxr-xr-xhtml-test/Main.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/html-test/Main.hs b/html-test/Main.hs
index 724d35ec..3880fc3c 100755
--- a/html-test/Main.hs
+++ b/html-test/Main.hs
@@ -10,10 +10,10 @@ import Test.Haddock
import Test.Haddock.Xhtml
-checkConfig :: CheckConfig Xhtml
+checkConfig :: CheckConfig Xml
checkConfig = CheckConfig
- { ccfgRead = \mdl input -> stripIfRequired mdl <$> parseXhtml input
- , ccfgDump = dumpXhtml
+ { ccfgRead = \mdl input -> stripIfRequired mdl <$> parseXml input
+ , ccfgDump = dumpXml
, ccfgEqual = (==)
}
@@ -32,7 +32,7 @@ main = do
}
-stripIfRequired :: String -> Xhtml -> Xhtml
+stripIfRequired :: String -> Xml -> Xml
stripIfRequired mdl =
stripLinks' . stripFooter
where