diff options
Diffstat (limited to 'src/Verismith/Report.hs')
| -rw-r--r-- | src/Verismith/Report.hs | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/src/Verismith/Report.hs b/src/Verismith/Report.hs index e2707ea..a62dab5 100644 --- a/src/Verismith/Report.hs +++ b/src/Verismith/Report.hs @@ -52,11 +52,9 @@ import Data.Text (Text) import qualified Data.Text as T import Data.Text.Lazy (toStrict) import Data.Time -import Data.Vector (fromList) import Prelude hiding (FilePath) import Shelly (FilePath, fromText, toTextIgnore, (<.>), (</>)) -import Statistics.Sample (meanVariance) import Text.Blaze.Html (Html, (!)) import Text.Blaze.Html.Renderer.Text (renderHtml) import qualified Text.Blaze.Html5 as H @@ -318,13 +316,21 @@ resultStatus :: Result a b -> Html resultStatus (Pass _) = H.td ! A.class_ "is-success" $ "Passed" resultStatus (Fail _) = H.td ! A.class_ "is-danger" $ "Failed" +meanVariance :: [Double] -> (Double, Double) +meanVariance l = (mean, variance) + where + mean = sum l / len + variance = sum (squ . subtract mean <$> l) / (len - 1.0) + squ x = x * x + len = fromIntegral $ length l + fuzzStats :: (Real a1, Traversable t) => ((a1 -> Const (Endo [a1]) a1) -> a2 -> Const (Endo [a1]) a2) -> t a2 -> (Double, Double) fuzzStats sel fr = meanVariance converted - where converted = fromList . fmap realToFrac $ fr ^.. traverse . sel + where converted = fmap realToFrac $ fr ^.. traverse . sel fuzzStatus :: Text -> FuzzReport -> Html fuzzStatus name (FuzzReport dir s1 s2 s3 sz t1 t2 t3) = H.tr $ do |