diff --git a/src/Utils.hs b/src/Utils.hs index 55124298b..8f5f6c901 100644 --- a/src/Utils.hs +++ b/src/Utils.hs @@ -47,9 +47,6 @@ import Control.Monad.Except (MonadError(..)) import Control.Monad.Trans.Maybe as Utils (MaybeT(..)) import Control.Monad.Catch hiding (throwM) - -import qualified Database.Esqueleto as E (Value, unValue) - import Language.Haskell.TH import Language.Haskell.TH.Instances () import Instances.TH.Lift () @@ -268,12 +265,6 @@ instance DisplayAble a => DisplayAble (Maybe a) where display Nothing = "" display (Just x) = display x -instance DisplayAble a => DisplayAble (E.Value a) where - display = display . E.unValue - -instance DisplayAble a => DisplayAble (CI a) where - display = display . CI.original - instance HasResolution a => DisplayAble (Fixed a) where display = pack . showFixed True