From 1172539a9544ed999c565053b79cf6a30ec14de4 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 30 May 2008 09:10:28 +0000
Subject: change the PGF.Data.Exp type

---
 src-3.0/GF/Command/Commands.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src-3.0/GF/Command/Commands.hs')

diff --git a/src-3.0/GF/Command/Commands.hs b/src-3.0/GF/Command/Commands.hs
index 759f9a8bf..bf5c737cc 100644
--- a/src-3.0/GF/Command/Commands.hs
+++ b/src-3.0/GF/Command/Commands.hs
@@ -149,10 +149,9 @@ allCommands mgr = Map.fromAscList [
    gr       = gfcc mgr
 
    fromTrees ts = (ts,unlines (map showTree ts))
-   fromStrings ss = (map tStr ss, unlines ss)
-   fromString  s  = ([tStr s], s)
-   toStrings ts = [s | DTr [] (AS s) [] <- ts] 
-   tStr s = DTr [] (AS s) []
+   fromStrings ss = (map EStr ss, unlines ss)
+   fromString  s  = ([EStr s], s)
+   toStrings ts = [s | EStr s <- ts] 
 
    prGrammar opts = case valIdOpts "printer" "" opts of
      "cats" -> unwords $ categories mgr
-- 
cgit v1.2.3