Saturnin 0.1.0.1 → 0.1.0.2

raw patch · 2 files changed

+1/−45 lines, 2 filesdep −regex-compatdep ~processPVP ok

version bump matches the API change (PVP)

Dependencies removed: regex-compat

Dependency ranges changed: process

API changes (from Hackage documentation)

Files

• Saturnin.cabal +1/−15
• tests/Haddock.hs +0/−30

@@ -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 

@@ -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]*)% "