haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-07 16:47:27 +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 -> Handler ()
postPackageLikeR packageName = maybeAuthId >>= \muid -> case muid of postPackageLikeR packageName = maybeAuthId >>= \muid -> case muid of
Nothing -> return () Nothing -> return ()
Just uid -> do Just uid -> runDB $ P.insert_ $ Like packageName uid
runDB $ P.insert $ Like packageName uid
return ()
postPackageUnlikeR :: PackageName -> Handler () postPackageUnlikeR :: PackageName -> Handler ()
postPackageUnlikeR name = maybeAuthId >>= \muid -> case muid of postPackageUnlikeR name = maybeAuthId >>= \muid -> case muid of
Nothing -> return () Nothing -> return ()
Just uid -> do Just uid -> runDB $ P.deleteWhere [LikePackage ==. name, LikeVoter ==. uid]
runDB $ E.delete $ E.from $ \like ->
E.where_ $ like ^. LikePackage E.==. E.val name
&&. like ^. LikeVoter E.==. E.val uid
return ()
postPackageTagR :: PackageName -> Handler () postPackageTagR :: PackageName -> Handler ()
postPackageTagR packageName = postPackageTagR packageName =