diff options
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 |