cleanup and export the Probabilistic API from PGF

2010-09-22 09:06:19 +00:00
parent fb15e95a07
commit 1c9305e7a3
3 changed files with 40 additions and 21 deletions
--- a/src/compiler/GF/Command/Commands.hs
+++ b/src/compiler/GF/Command/Commands.hs
@@ -977,8 +977,8 @@ allCommands env@(pgf, mos) = Map.fromList [
   optProbs opts pgfr = case valStrOpts "probs" "" opts of
     ""   -> return Nothing
     file -> do
-       ps <- getProbsFromFile file pgf ---- pgfr!
--       putStrLn $ prProbabilities ps 
+       ps <- readProbabilitiesFromFile file pgf ---- pgfr!
+--       putStrLn $ showProbabilities ps 
       return $ Just ps

   optFile opts = valStrOpts "file" "_gftmp" opts