diff options
| author | hallgren <hallgren@chalmers.se> | 2016-06-17 11:32:40 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2016-06-17 11:32:40 +0000 |
| commit | 83d340dbefd7206e59978f9da34c0cd860430263 (patch) | |
| tree | 53337c2965e3a5741cb7f2710634e114d2b80110 /src/server/PGFService.hs | |
| parent | 5b8c6887ca3b94fe2dcb7a213dfbf3e0f754a75d (diff) | |
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.
Diffstat (limited to 'src/server/PGFService.hs')
| -rw-r--r-- | src/server/PGFService.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |