Make PGF.Tree internal

The only use of PGF.Tree outside the PGF library was in GF.Command.Commands,
and it was eliminated by using PGF.Expr directly instead.
PGF.Paraphrase still uses PGF.Tree.

gf.cabal

@@ -89,7 +89,6 @@ Library
     PGF.Macros
     PGF.Optimize
     PGF.Printer
-    PGF.Tree
     PGF.Utilities
   other-modules:
     PGF.CId
@@ -102,6 +101,7 @@ Library
     PGF.Parse
     PGF.Probabilistic
     PGF.SortTop
+    PGF.Tree
     PGF.Type
     PGF.Tokenizer
     PGF.TypeCheck

src/compiler/GF/Command/Commands.hs

@@ -20,7 +20,7 @@ import PGF.Data(abstract,funs,cats,Literal(LStr),Expr(EFun,ELit)) ----
 import PGF.Printer(ppFun,ppCat)
 --import PGF.Probabilistic(rankTreesByProbs,probTree,setProbabilities)
 --import PGF.Generate (generateRandomFrom) ----
-import PGF.Tree (Tree(Fun), expr2tree, tree2expr)
+--import PGF.Tree (Tree(Fun), expr2tree, tree2expr)
 import PGF.Optimize(optimizePGF)
 
 import GF.Compile.Export
@@ -1198,10 +1198,9 @@ allCommands = Map.fromList [
        _                        -> unl . linearize pgf lang
 
    -- replace each non-atomic constructor with mkC, where C is the val cat
-   tree2mk pgf = showExpr [] . tree2expr . t2m . expr2tree where
+   tree2mk pgf = showExpr [] . t2m where
-     t2m t = case t of
+     t2m t = case unApp t of
-       Fun cid [] -> t
+       Just (cid,ts@(_:_)) -> mkApp (mk cid) (map t2m ts)
-       Fun cid ts -> Fun (mk cid) (map t2m ts)
        _ -> t
      mk = mkCId . ("mk" ++) . showCId . lookValCat (abstract pgf)