1 files changed, 45 insertions, 0 deletions

diff --git a/bragi/thermoprint-server/thermoprint-server.hs b/bragi/thermoprint-server/thermoprint-server.hs
new file mode 100644
index 00000000..4635dd0a
--- /dev/null
+++ b/bragi/thermoprint-server/thermoprint-server.hs
@@ -0,0 +1,45 @@
+{-# LANGUAGE OverloadedStrings  #-}
+{-# LANGUAGE ImpredicativeTypes #-}
+
+module Main (main) where
+
+import Thermoprint.Server
+
+import Thermoprint.Server.Printer.Generic
+
+import Control.Monad.Trans.Resource
+import Control.Monad.Logger
+import Control.Monad.Reader
+
+import Data.Function ((&))
+
+import Database.Persist.Postgresql
+
+import qualified Network.Wai.Handler.Warp as Warp
+
+type ServerM = ReaderT ConnectionPool (LoggingT IO)
+
+main :: IO ()
+main = thermoprintServer True (Nat runDb) $ configure <$> def `withPrinters` printers'
+  where
+    runDb :: ServerM a -> IO a
+    runDb = runStderrLoggingT . withPostgresqlPool "" 5 . runReaderT
+
+    printers' = [ (pure $ genericPrint "/dev/usb/lp0", def :: QMConfig (ResourceT ServerM))
+                ]
+
+    configure c = c
+      { queueManagers = queueManagers
+      , warpSettings  = warpSettings
+      }
+
+    queueManagers _ = QMConfig
+      { manager = union [ limitHistorySize 100
+                        , limitHistoryAge 3600
+                        ]
+      , collapse = standardCollapse
+      }
+
+    warpSettings = Warp.defaultSettings
+      & Warp.setHost "::1"
+      & Warp.setPort 8080