diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2018-04-12 15:13:13 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2018-04-12 15:13:13 +0200 |
| commit | aad26b59c48c3fcce94f7200f908f81503a1d3f9 (patch) | |
| tree | 2c03e70cf50479e4f84a72ce4a8119310074612b | |
| parent | c799ec9fe235f37986fb04d8574645421fd51101 (diff) | |
| download | nixos-aad26b59c48c3fcce94f7200f908f81503a1d3f9.tar nixos-aad26b59c48c3fcce94f7200f908f81503a1d3f9.tar.gz nixos-aad26b59c48c3fcce94f7200f908f81503a1d3f9.tar.bz2 nixos-aad26b59c48c3fcce94f7200f908f81503a1d3f9.tar.xz nixos-aad26b59c48c3fcce94f7200f908f81503a1d3f9.zip | |
thermoprint
| -rw-r--r-- | bragi.nix | 2 | ||||
| -rw-r--r-- | bragi/thermoprint-server/thermoprint-server.hs | 2 | ||||
| m--------- | custom/thermoprint | 0 |
3 files changed, 2 insertions, 2 deletions
| @@ -34,7 +34,7 @@ in rec { | |||
| 34 | (lib.mapAttrs (name: oldPkgs.haskell.lib.dontCheck) super) | 34 | (lib.mapAttrs (name: oldPkgs.haskell.lib.dontCheck) super) |
| 35 | Glob filelock; | 35 | Glob filelock; |
| 36 | inherit | 36 | inherit |
| 37 | (self.callPackage ./custom/thermoprint { inherit (self) Glob; inherit (pkgs) runCommand makeWrapper; extraPackages = (p: with p; [ persistent-postgresql ]); }) | 37 | (self.callPackage ./custom/thermoprint { inherit (pkgs) runCommand makeWrapper; extraPackages = (p: with p; [ persistent-postgresql ]); }) |
| 38 | thermoprint-spec thermoprint-bbcode thermoprint-client thermoprint-server thermoprint-webgui tprint bbcode; | 38 | thermoprint-spec thermoprint-bbcode thermoprint-client thermoprint-server thermoprint-webgui tprint bbcode; |
| 39 | }; | 39 | }; |
| 40 | }; | 40 | }; |
diff --git a/bragi/thermoprint-server/thermoprint-server.hs b/bragi/thermoprint-server/thermoprint-server.hs index 5818ea4a..84d13ef1 100644 --- a/bragi/thermoprint-server/thermoprint-server.hs +++ b/bragi/thermoprint-server/thermoprint-server.hs | |||
| @@ -20,7 +20,7 @@ import qualified Network.Wai.Handler.Warp as Warp | |||
| 20 | type ServerM = ReaderT ConnectionPool (LoggingT IO) | 20 | type ServerM = ReaderT ConnectionPool (LoggingT IO) |
| 21 | 21 | ||
| 22 | main :: IO () | 22 | main :: IO () |
| 23 | main = thermoprintServer True (Nat runDb) $ configure <$> def `withPrinters` printers' | 23 | main = thermoprintServer True (NT runDb) $ configure <$> def `withPrinters` printers' |
| 24 | where | 24 | where |
| 25 | runDb :: ServerM a -> IO a | 25 | runDb :: ServerM a -> IO a |
| 26 | runDb = runStderrLoggingT . filterLogger (\_ lvl -> lvl >= LevelInfo) . withPostgresqlPool "" 5 . runReaderT | 26 | runDb = runStderrLoggingT . filterLogger (\_ lvl -> lvl >= LevelInfo) . withPostgresqlPool "" 5 . runReaderT |
diff --git a/custom/thermoprint b/custom/thermoprint | |||
| Subproject 2ab4ee48a15da128536b27c77a224c08cd2e9b7 | Subproject e8e0cb7f36641ffb7901178bc54fef98eba9215 | ||
