aboutsummaryrefslogtreecommitdiffstats
path: root/app/Cache.hs
diff options
context:
space:
mode:
Diffstat (limited to 'app/Cache.hs')
-rw-r--r--app/Cache.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/app/Cache.hs b/app/Cache.hs
index 4540fa4..f500526 100644
--- a/app/Cache.hs
+++ b/app/Cache.hs
@@ -20,15 +20,15 @@ where
-- @topic caching
-- @backlog
+import Backend qualified
import Data.Binary (Binary, decodeFileOrFail, encodeFile)
import Data.Text qualified as T
-import Git qualified
import System.Directory (createDirectoryIfMissing, doesFileExist)
import System.FilePath ((</>))
cached :: Binary a => T.Text -> IO a -> IO a
cached key func = do
- root <- Git.getRootDir
+ root <- Backend.getRootDir
createDirectoryIfMissing True (root </> ".anissue")
let file = (root </> ".anissue" </> T.unpack key)
doesFileExist file >>= \case