msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

gf -server: include list of loaded PGFs in version info

Browse Source
This commit is contained in:
hallgren
2014-05-12 13:45:36 +00:00
parent ca0c203877
commit 3c110cbe8d
3 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/server/Cache.hs
View File

@@ -1,4 +1,4 @@
module Cache (Cache,newCache,flushCache,readCache,readCache') where
module Cache (Cache,newCache,flushCache,listCache,readCache,readCache') where
import Control.Concurrent.MVar
import Data.Map (Map)
@@ -22,6 +22,9 @@ flushCache :: Cache a -> IO ()
flushCache c = do modifyMVar_ (cacheObjects c) (const (return Map.empty))
performGC
listCache :: Cache a -> IO [FilePath]
listCache = fmap Map.keys . readMVar . cacheObjects
readCache :: Cache a -> FilePath -> IO a
readCache c file = snd `fmap` readCache' c file