From 3d828feba67f21ae62d1e6eb598a22ffaebf1174 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Wed, 15 Mar 2017 21:39:15 +0100
Subject: Better ids & warnings

---
 Handler/List.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Handler/List.hs')

diff --git a/Handler/List.hs b/Handler/List.hs
index 70f323a..21b735b 100644
--- a/Handler/List.hs
+++ b/Handler/List.hs
@@ -50,7 +50,7 @@ postListR = do
   case printResult of
     FormSuccess pId -> do
       (JobId jId) <- jobCreate (Just pId) $ mkPrintout list
-      addMessage "printSuccess" . toHtml $ "List is printing as job #" <> tshow jId
+      addMessage "printSuccess" [shamlet|List is printing as job ##{jId}|]
     FormFailure errors -> mapM_ (addMessage "formError" . toHtml) errors
     _ -> return ()
   
-- 
cgit v1.2.3