GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 00:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

PGFService: fix a type ambiguity when compiling without C run-time support

Browse Source 
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.
This commit is contained in:
hallgren
2016-06-17 11:32:40 +00:00
parent 4c514b2fad
commit 2318ebb664
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/server/PGFService.hs
View File

@@ -86,6 +86,8 @@ newPGFCache _ = do pgfCache <- newCache' PGF.readPGF
lblCache <- newCache' (fmap PGF.getDepLabels . readFile) lblCache <- newCache' (fmap PGF.getDepLabels . readFile)
return $ Caches pgfCache lblCache return $ Caches pgfCache lblCache
flushPGFCache c = flushCache (pgfCache c) flushPGFCache c = flushCache (pgfCache c)
listPGFCache :: Caches -> IO ([(FilePath,UTCTime)],[(FilePath,UTCTime)])
listPGFCache c = (,) # listCache (pgfCache c) % return [] listPGFCache c = (,) # listCache (pgfCache c) % return []
#endif #endif