blob: 969e62a2756b123d403947526b20aaef11ea0c24 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
module Handler.LowItem where
import Import
postLowItemR :: ItemId -> Handler TypedContent
postLowItemR itemId = do
result <- fmap (Entity itemId) . runDB $ updateGet itemId [ ItemRunningLow =. True
]
selectRep $ do
provideJson result
provideRep (redirect $ InventoryListingR :#: itemId :: Handler Html)
|
