From e8e0cb7f36641ffb7901178bc54fef98eba9215c Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 12 Apr 2018 14:34:05 +0200 Subject: Fix build --- server/src/Thermoprint/Server/Queue/Utils.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'server/src/Thermoprint/Server/Queue') diff --git a/server/src/Thermoprint/Server/Queue/Utils.hs b/server/src/Thermoprint/Server/Queue/Utils.hs index 745053e..0255250 100644 --- a/server/src/Thermoprint/Server/Queue/Utils.hs +++ b/server/src/Thermoprint/Server/Queue/Utils.hs @@ -22,7 +22,7 @@ import Servant.Utils.Enter import Thermoprint.Server.Queue standardCollapse :: MonadIO m => IdentityT IO :~> m -standardCollapse = Nat $ liftIO . runIdentityT +standardCollapse = NT $ liftIO . runIdentityT standardSleep :: Monad (QueueManagerM t) => QueueManager t -- ^ Instruct 'runQM' to sleep some standard amount of time -- cgit v1.2.3