diff --git a/Saturnin.cabal b/Saturnin.cabal
--- a/Saturnin.cabal
+++ b/Saturnin.cabal
@@ -6,7 +6,7 @@
 maintainer:     <yac@blesmrt.net>
 name:           Saturnin
 synopsis:       Saturnin  CI / Job System
-version:        0.1.0.1
+version:        0.1.0.2
 category:       Application Server
 description:    Saturnin  CI / Job System
 license-file:   LICENSE
@@ -84,20 +84,6 @@
         Spec.hs
     other-modules:
         Saturnin.ServerSpec
-    type:
-        exitcode-stdio-1.0
-
-test-suite documentation
-    build-depends:
-        base < 5
-        , process == 1.*
-        , regex-compat == 0.*
-    default-language:
-        Haskell2010
-    hs-source-dirs:
-        tests
-    main-is:
-        Haddock.hs
     type:
         exitcode-stdio-1.0
 
diff --git a/tests/Haddock.hs b/tests/Haddock.hs
deleted file mode 100644
--- a/tests/Haddock.hs
+++ /dev/null
@@ -1,30 +0,0 @@
-module Main (main) where
-
-import           Data.List      (genericLength)
-import           Data.Maybe     (catMaybes)
-import           System.Exit    (exitFailure, exitSuccess)
-import           System.Process (readProcess)
-import           Text.Regex     (matchRegex, mkRegex)
-
-arguments :: [String]
-arguments =
-    [ "haddock"
-    ]
-
-average :: (Fractional a, Real b) => [b] -> a
-average xs = realToFrac (sum xs) / genericLength xs
-
-expected :: Fractional a => a
-expected = 0
-
-main :: IO ()
-main = do
-    output <- readProcess "cabal" arguments ""
-    if average (match output) >= expected
-        then exitSuccess
-        else putStr output >> exitFailure
-
-match :: String -> [Int]
-match = fmap read . concat . catMaybes . fmap (matchRegex pattern) . lines
-  where
-    pattern = mkRegex "^ *([0-9]*)% "