From be5a3519c3ecb5d10a00c62837704a3c1a27a3e7 Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Thu, 7 Aug 2014 16:52:44 +0200
Subject: [PATCH] Use .==. for slug comparison

@snoyberg Okay, this type checks. E.like requires an IsString
constraint (pity, as Slug is technically string-like, but
smart-constructored)
---
 Handler/Home.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Handler/Home.hs b/Handler/Home.hs
index 7081ac4..1e81357 100644
--- a/Handler/Home.hs
+++ b/Handler/Home.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE TupleSections, OverloadedStrings #-}
 module Handler.Home where
 
+import           Data.Slug
 import qualified Database.Esqueleto as E
 import           Import
 
@@ -13,11 +14,12 @@ import           Import
 -- inclined, or create a single monolithic file.
 getHomeR :: Handler Html
 getHomeR = do
+    fpHandle <- mkSlug "fpcomplete"
     stackages <- runDB $ E.select $ E.from $ \(stackage `E.InnerJoin` user) -> do
         E.on (stackage E.^. StackageUser E.==. user E.^. UserId)
         E.orderBy [E.desc $ stackage E.^. StackageUploaded]
         E.where_ (E.like (user E.^. UserDisplay) (E.val "%@fpcomplete.com") E.||.
-                  E.like (user E.^. UserHandle) (E.val "fpcomplete"))
+                  user E.^. UserHandle E.==. E.val fpHandle)
         E.limit 4
         return
             ( stackage E.^. StackageIdent