diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-02-09 10:54:07 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-02-09 10:54:07 +0000 |
| commit | 167a6dd60a8bd5806a9f21d76d4a51aa5bf53e3a (patch) | |
| tree | 069ecdbd47a025c52d13f1b85fa05303a69d5598 /src | |
| parent | fd9da86d245f852ec5597aa4b40db3ea70b8422f (diff) | |
test probabilities for resource; rounding of prob sum
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Probabilistic/Probabilistic.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/Probabilistic/Probabilistic.hs b/src/GF/Probabilistic/Probabilistic.hs index 9798892e4..935175ed9 100644 --- a/src/GF/Probabilistic/Probabilistic.hs +++ b/src/GF/Probabilistic/Probabilistic.hs @@ -200,7 +200,8 @@ hitRegion d vs = case vs of checkSGrammar :: SGrammar -> Err SGrammar checkSGrammar = mapMTree chCat where chCat (c,rs) = case sum [p | ((p,f),_) <- rs] of - s | s /= 1.0 -> Bad $ "illegal probability sum " ++ show s ++ " in " ++ c + s | abs (s - 1.0) > 0.01 -> + Bad $ "illegal probability sum " ++ show s ++ " in " ++ c _ -> return (c,rs) -- for cases where explicit probability is not given (encoded as |