diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-15 21:39:15 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-15 21:39:15 +0100 |
| commit | 3d828feba67f21ae62d1e6eb598a22ffaebf1174 (patch) | |
| tree | f81437dab5090906362404b5df61aa5ab1f5203a /Handler/List.hs | |
| parent | 299731a0cef7462dd8c17bde7ba1a4aeb6f211cd (diff) | |
| download | bar-3d828feba67f21ae62d1e6eb598a22ffaebf1174.tar bar-3d828feba67f21ae62d1e6eb598a22ffaebf1174.tar.gz bar-3d828feba67f21ae62d1e6eb598a22ffaebf1174.tar.bz2 bar-3d828feba67f21ae62d1e6eb598a22ffaebf1174.tar.xz bar-3d828feba67f21ae62d1e6eb598a22ffaebf1174.zip | |
Better ids & warnings
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 | ||