temporaryly fix GF.Command.Commands2

2017-10-05 21:09:38 +02:00
parent e3aa392e63
commit 0bb6b5968e
1 changed files with 1 additions and 1 deletions
--- a/src/compiler/GF/Command/Commands2.hs
+++ b/src/compiler/GF/Command/Commands2.hs
@@ -612,7 +612,7 @@ pgfCommands = Map.fromList [
                                               Nothing -> let funs = functionsByCat pgf id
                                                          in showCat id funs))
                                  where
-                                    showCat c funs = "cat "++showCategory pgf c++
+                                    showCat c funs = "cat "++c++
                                                     " ;\n\n"++
                                                     unlines [showFun f ty| f<-funs,
                                                                            Just ty <- [functionType pgf f]]