diff options
| -rw-r--r-- | src/runtime/haskell/PGF/Probabilistic.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/runtime/haskell/PGF/Probabilistic.hs b/src/runtime/haskell/PGF/Probabilistic.hs index 095ade022..7d8d58134 100644 --- a/src/runtime/haskell/PGF/Probabilistic.hs +++ b/src/runtime/haskell/PGF/Probabilistic.hs @@ -68,7 +68,7 @@ mkProbabilities pgf probs = where deflt = case length [f | (Nothing,f) <- pfs] of 0 -> 0 - n -> (1 - sum [d | (Just d,f) <- pfs]) / fromIntegral n + n -> max 0 ((1 - sum [d | (Just d,f) <- pfs]) / fromIntegral n) -- | Returns the default even distibution. defaultProbabilities :: PGF -> Probabilities |