diff options
Diffstat (limited to 'src/Erebos/Storage.hs')
| -rw-r--r-- | src/Erebos/Storage.hs | 7 |
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 |