diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-03-21 05:35:00 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2024-03-25 07:45:59 +0100 |
| commit | f83b424bf70b7b14b0268aeeafe1b3483fced49f (patch) | |
| tree | 348a60e815f4bee492f58dea903ebc380029d61f /app/Cache.hs | |
| parent | fc0afaaa273f5b5d3696df87d70d5347a13bb9ac (diff) | |
chore: Git -> Backend
Diffstat (limited to 'app/Cache.hs')
| -rw-r--r-- | app/Cache.hs | 4 |
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 |