From 2318ebb664900b2c278296cb32d7e340db41c4fa Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Fri, 17 Jun 2016 11:32:40 +0000
Subject: [PATCH] PGFService: fix a type ambiguity when compiling without C
 run-time support

The function listCaches returns an empty list instead of the contents
of the cached C run-time system PGFs when compiled without C-run-time support
This gave rise to an ambiguity in GF.Server.
---
 src/server/PGFService.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs
index 502689f95..4647c4eb4 100644
--- a/src/server/PGFService.hs
+++ b/src/server/PGFService.hs
@@ -86,6 +86,8 @@ newPGFCache _ = do pgfCache <- newCache' PGF.readPGF
                    lblCache <- newCache' (fmap PGF.getDepLabels . readFile)
                    return $ Caches pgfCache lblCache
 flushPGFCache c = flushCache (pgfCache c)
+
+listPGFCache :: Caches -> IO ([(FilePath,UTCTime)],[(FilePath,UTCTime)])
 listPGFCache c = (,) # listCache (pgfCache c) % return []
 #endif