config function to get cache directory location

1 files changed, 10 insertions, 1 deletions

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]