Drop unnecessary mime dependency

1 files changed, 0 insertions, 7 deletions

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