diff options
Diffstat (limited to 'Handler/List.hs')
| -rw-r--r-- | Handler/List.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 50 | case printResult of | 50 | case printResult of |
| 51 | FormSuccess pId -> do | 51 | FormSuccess pId -> do |
| 52 | (JobId jId) <- jobCreate (Just pId) $ mkPrintout list | 52 | (JobId jId) <- jobCreate (Just pId) $ mkPrintout list |
| 53 | addMessage "printSuccess" . toHtml $ "List is printing as job #" <> tshow jId | 53 | addMessage "printSuccess" [shamlet|List is printing as job ##{jId}|] |
| 54 | FormFailure errors -> mapM_ (addMessage "formError" . toHtml) errors | 54 | FormFailure errors -> mapM_ (addMessage "formError" . toHtml) errors |
| 55 | _ -> return () | 55 | _ -> return () |
| 56 | 56 | ||