From 972fc5ae180331614415aa24cda68e5675e416c5 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 13 Nov 2014 23:23:07 +0200
Subject: [PATCH] Minor cleanups from code review

---
 Handler/Package.hs | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/Handler/Package.hs b/Handler/Package.hs
index 997e550..b2e7e2c 100644
--- a/Handler/Package.hs
+++ b/Handler/Package.hs
@@ -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 =