BarComputations.hs

module Test.HUnit.Gui.BarComputations (barWidth)
where

import Test.HUnit.Base

barWidth :: Counts -> Int -> Double
barWidth counts' totalWidth =
    (fromIntegral totalWidth) * (fromIntegral $ tried counts') / (fromIntegral $ cases counts')