haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-12 04:08:29 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Minor cleanups from code review

Browse Source
This commit is contained in:
Michael Snoyman 2014-11-13 23:23:07 +02:00
parent c9671e7f3c
commit 972fc5ae18
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Handler/Package.hs
View File

@ -171,18 +171,12 @@ formatNum = sformat commas
postPackageLikeR :: PackageName -> Handler ()
postPackageLikeR packageName = maybeAuthId >>= \muid -> case muid of
Nothing -> return ()
Just uid -> do
runDB $ P.insert $ Like packageName uid
return ()
Just uid -> runDB $ P.insert_ $ Like packageName uid
postPackageUnlikeR :: PackageName -> Handler ()
postPackageUnlikeR name = maybeAuthId >>= \muid -> case muid of
Nothing -> return ()
Just uid -> do
runDB $ E.delete $ E.from $ \like ->
E.where_ $ like ^. LikePackage E.==. E.val name
&&. like ^. LikeVoter E.==. E.val uid
return ()
Just uid -> runDB $ P.deleteWhere [LikePackage ==. name, LikeVoter ==. uid]
postPackageTagR :: PackageName -> Handler ()
postPackageTagR packageName =