1 files changed, 4 insertions, 16 deletions

diff --git a/server/src/Thermoprint/Server/Printer.hs b/server/src/Thermoprint/Server/Printer.hs
index 46b8a53..5b1b7b0 100644
--- a/server/src/Thermoprint/Server/Printer.hs
+++ b/server/src/Thermoprint/Server/Printer.hs
@@ -1,7 +1,4 @@
 {-# LANGUAGE RankNTypes                    #-}
-{-# LANGUAGE TypeSynonymInstances          #-}
-{-# LANGUAGE MultiParamTypeClasses         #-}
-{-# LANGUAGE FlexibleInstances             #-}
 {-# LANGUAGE FlexibleContexts              #-}
 {-# LANGUAGE RecordWildCards               #-}
 {-# LANGUAGE OverloadedStrings             #-}
@@ -12,7 +9,8 @@
 {-# LANGUAGE DeriveGeneric, DeriveAnyClass #-}
 
 module Thermoprint.Server.Printer
-       ( PrinterMethod(..), PrinterSpec(..), IsPrinter(..), Printer(..), printer
+       ( PrinterMethod(..), Printer(..)
+       , printer
        , Queue(..)
        , runPrinter
        , addToQueue
@@ -48,16 +46,6 @@ import Control.Monad (forever)
 import Control.Concurrent.STM
 
 newtype PrinterMethod = PM { unPM :: forall m. (MonadResource m, MonadLogger m) => Printout -> m (Maybe PrintingError) }
-data PrinterSpec m = forall p. IsPrinter p m => PS p
-
-class IsPrinter p m where
-  printMethod :: p -> m PrinterMethod
-
-instance Applicative m => IsPrinter PrinterMethod m where
-  printMethod = pure
-
-instance IsPrinter (PrinterSpec m) m where
-  printMethod (PS p) = printMethod p
 
 data Printer = Printer
   { print :: PrinterMethod
@@ -79,8 +67,8 @@ instance Default Queue where
     , history = Seq.empty
     }
 
-printer :: (MonadResource m, IsPrinter p m) => p -> m Printer
-printer spec = Printer <$> printMethod spec <*> liftIO (newTVarIO def)
+printer :: MonadResource m => m PrinterMethod -> m Printer
+printer p = Printer <$> p <*> liftIO (newTVarIO def)
 
 atomically' :: MonadIO m => STM a -> m a
 atomically' = liftIO . atomically