diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2017-07-30 18:06:44 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2017-07-30 18:06:44 +0200 |
| commit | f61bba8fbd7f596e503e67eac1b57945e81a709d (patch) | |
| tree | 89ff8b451a22aeded5e5d59a2d1866ade74c33fa /Handler/UpdateItem.hs | |
| parent | 8a8dc04c61dcc8dce910b148d3418c8e58e6d4da (diff) | |
| download | bar-f61bba8fbd7f596e503e67eac1b57945e81a709d.tar bar-f61bba8fbd7f596e503e67eac1b57945e81a709d.tar.gz bar-f61bba8fbd7f596e503e67eac1b57945e81a709d.tar.bz2 bar-f61bba8fbd7f596e503e67eac1b57945e81a709d.tar.xz bar-f61bba8fbd7f596e503e67eac1b57945e81a709d.zip | |
Clean up build somewhat
Diffstat (limited to 'Handler/UpdateItem.hs')
| -rw-r--r-- | Handler/UpdateItem.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Handler/UpdateItem.hs b/Handler/UpdateItem.hs index ce6b30d..ebd29e4 100644 --- a/Handler/UpdateItem.hs +++ b/Handler/UpdateItem.hs | |||
| @@ -13,7 +13,7 @@ postUpdateItemR fsUpdateId = do | |||
| 13 | 13 | ||
| 14 | case updateResult of | 14 | case updateResult of |
| 15 | FormSuccess (Item{..} `WithType` t) -> runDB $ do | 15 | FormSuccess (Item{..} `WithType` t) -> runDB $ do |
| 16 | upsertBy (UniqueKind itemNormKind) (Kind itemNormKind t) [ KindType =. t ] | 16 | void $ upsertBy (UniqueKind itemNormKind) (Kind itemNormKind t) [ KindType =. t ] |
| 17 | update fsUpdateId [ ItemKind =. itemKind | 17 | update fsUpdateId [ ItemKind =. itemKind |
| 18 | , ItemNormKind =. itemNormKind | 18 | , ItemNormKind =. itemNormKind |
| 19 | , ItemBought =. itemBought | 19 | , ItemBought =. itemBought |