From d3763e664f385059940ec6da1fb9f823a7cf6048 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 29 Mar 2015 17:49:38 +0900 Subject: config function to get cache directory location --- src/Control/SremConfig.hs | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/src/Control/SremConfig.hs b/src/Control/SremConfig.hs index ef62cbe..eea067b 100644 --- a/src/Control/SremConfig.hs +++ b/src/Control/SremConfig.hs @@ -1,4 +1,13 @@ -module Control.SremConfig where +module Control.SremConfig ( getCacheDirectory + , intervals + ) where + +import System.Directory (getHomeDirectory) +import System.FilePath (()) + +getCacheDirectory :: IO FilePath +getCacheDirectory = getHomeDirectory >>= \h -> + return $ h ".cache" "srem" intervals :: [Int] intervals = [60, 15, 0] -- cgit v1.2.3