From 7916df381a7832f01f6dafb83ab62d5095af808d Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Wed, 19 Feb 2025 14:20:33 +0100 Subject: generalize `Store.query` --- src/Store/Store.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'src/Store/Store.hs') diff --git a/src/Store/Store.hs b/src/Store/Store.hs index 134c8c3..61be89b 100644 --- a/src/Store/Store.hs +++ b/src/Store/Store.hs @@ -32,6 +32,7 @@ import Data.Time.Clock (getCurrentTime) import Foreign import Git qualified as G import Git.Libgit2 qualified as GB +import Store.Exception (DecodeException (DecodeException)) import System.FilePath (addTrailingPathSeparator, makeRelative, normalise, ()) import Text.Printf (printf) import Prelude hiding (readFile, writeFile) @@ -128,11 +129,6 @@ data InappropriateType = InappropriateType String FilePath instance Exception InappropriateType -data DecodeException = DecodeException String - deriving (Show) - -instance Exception DecodeException - class Readable a where readFile :: FilePath -> StoreM a -- cgit v1.2.3