src/Control/SremConfig.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

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]