generalize `Store.query`

1 files changed, 1 insertions, 5 deletions

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