From 0769bfa51434b82159b4c68420330548b0451555 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 19 Feb 2024 21:38:24 +0100
Subject: Drop unnecessary mime dependency

---
 erebos.cabal          | 1 -
 src/Erebos/Storage.hs | 7 -------
 2 files changed, 8 deletions(-)

diff --git a/erebos.cabal b/erebos.cabal
index f7a4497..d895b7f 100644
--- a/erebos.cabal
+++ b/erebos.cabal
@@ -137,7 +137,6 @@ library
         hinotify >=0.4 && <0.5,
         iproute >=1.7 && <1.8,
         memory >=0.14 && <0.19,
-        mime >= 0.4 && < 0.5,
         mtl >=2.2 && <2.4,
         network >= 3.1 && <3.2,
         stm >=2.5 && <2.6,
diff --git a/src/Erebos/Storage.hs b/src/Erebos/Storage.hs
index bad1b37..2057072 100644
--- a/src/Erebos/Storage.hs
+++ b/src/Erebos/Storage.hs
@@ -61,9 +61,6 @@ module Erebos.Storage (
     beginHistory, modifyHistory,
 ) where
 
-import qualified Codec.MIME.Type as MIME
-import qualified Codec.MIME.Parse as MIME
-
 import Control.Applicative
 import Control.Arrow
 import Control.Concurrent
@@ -652,10 +649,6 @@ instance StorableText Text where
 instance StorableText [Char] where
     toText = T.pack; fromText = return . T.unpack
 
-instance StorableText MIME.Type where
-    toText = MIME.showType
-    fromText = maybe (throwError "Malformed MIME type") return . MIME.parseMIMEType
-
 
 class StorableDate a where
     toDate :: a -> ZonedTime
-- 
cgit v1.2.3