diff options
| -rw-r--r-- | erebos.cabal | 1 | ||||
| -rw-r--r-- | src/Erebos/Storage.hs | 7 |
2 files changed, 0 insertions, 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 |