GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-05 09:12:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

bugfix: setProbabilities should be more robust when there are missing probabilities for some functions or categories

Browse Source
This commit is contained in:
krasimir
2010-12-17 09:09:07 +00:00
parent 2057c9f284
commit e4b2b8541f
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell/PGF/Probabilistic.hs
View File

@@ -80,7 +80,7 @@ setProbabilities probs pgf = pgf {
}} }}
where where
mapUnionWith f map1 map2 = mapUnionWith f map1 map2 =
Map.mapWithKey (\k v -> f v (fromJust (Map.lookup k map2))) map1 Map.mapWithKey (\k v -> maybe v (f v) (Map.lookup k map2)) map1
-- | compute the probability of a given tree -- | compute the probability of a given tree
probTree :: PGF -> Expr -> Double probTree :: PGF -> Expr -> Double