From 1c9305e7a39f4d17d4300067e987e3ebc30e83f3 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Wed, 22 Sep 2010 09:06:19 +0000
Subject: cleanup and export the Probabilistic API from PGF

---
 src/compiler/GF/Command/Commands.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/compiler/GF/Command')

diff --git a/src/compiler/GF/Command/Commands.hs b/src/compiler/GF/Command/Commands.hs
index 3d97f545a..a9a472552 100644
--- 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
-- 
cgit v1.2.3