1 files changed, 1 insertions, 1 deletions

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