aelve/guide
1
1
Fork 0
mirror of https://github.com/aelve/guide.git synced 2024-11-23 21:13:07 +03:00
Code Issues Projects Releases Wiki Activity

Fix stupid bug (forgot to delete lines)

Browse Source
This commit is contained in:
Artyom 2016-03-25 00:25:21 +03:00
parent 59c8640d69
commit 3d46a83c02
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Types.hs
View File

@ -557,8 +557,6 @@ deleteItem itemId = do
deleteTrait :: Uid -> Uid -> Acid.Update GlobalState ()
deleteTrait itemId traitId = do
itemById itemId . pros %= deleteFirst ((== traitId) . view uid)
itemById itemId . cons %= deleteFirst ((== traitId) . view uid)
let itemLens :: Lens' GlobalState Item
itemLens = itemById itemId
let isOurTrait trait = trait^.uid == traitId