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

---
 src/Erebos/Storage.hs | 7 -------
 1 file changed, 7 deletions(-)

(limited to 'src/Erebos')

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