From ae512e09e0ea8e260145be3c74c40853dfc71219 Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Tue, 21 Feb 2017 13:21:59 +0000
Subject: Fix compilation errors caused by changes in PGF2

These prevented GF from being built with C run-time support (-fc-runtime).
---
 src/server/PGFService.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/server')

diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs
index 4647c4eb4..d84f2b3c2 100644
--- a/src/server/PGFService.hs
+++ b/src/server/PGFService.hs
@@ -167,7 +167,7 @@ cpgfMain qsem command (t,(pgf,pc)) =
     grammar = showJSON $ makeObj
                  ["name".=C.abstractName pgf,
                   "lastmodified".=show t,
-                  "startcat".=C.startCat pgf,
+                  "startcat".=C.showType [] (C.startCat pgf),
                   "languages".=languages]
       where
         languages = [makeObj ["name".= l] | (l,_)<-Map.toList langs]
@@ -313,7 +313,7 @@ instance JSON C.CId where
 -}
 instance JSON C.Expr where
     readJSON x = readJSON x >>= maybe (fail "Bad expression.") return . C.readExpr
-    showJSON = showJSON . C.showExpr
+    showJSON = showJSON . C.showExpr []
 
 
 -- | Convert a 'Tree' to an 'ATree'
-- 
cgit v1.2.3