summaryrefslogtreecommitdiff
path: root/src/Erebos
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2024-02-19 21:38:24 +0100
committerRoman Smrž <roman.smrz@seznam.cz>2024-02-19 21:38:24 +0100
commit0769bfa51434b82159b4c68420330548b0451555 (patch)
tree9a09ff179f030d08c5e2dc111c8def4b050031d1 /src/Erebos
parentd4fda80fb4efd88a58a31c084437ec39e14f9f1e (diff)
Drop unnecessary mime dependency
Diffstat (limited to 'src/Erebos')
-rw-r--r--src/Erebos/Storage.hs7
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