From 617b14049eb2779f2d53bb3c7f7e9c8eed1be376 Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Thu, 7 Aug 2014 16:45:10 +0200
Subject: [PATCH] Use @fpcomplete (for local) or fpcomplete for production

@snoyberg
---
 Handler/Home.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Handler/Home.hs b/Handler/Home.hs
index b923991..e07487e 100644
--- a/Handler/Home.hs
+++ b/Handler/Home.hs
@@ -16,7 +16,8 @@ getHomeR = do
     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.where_ (E.like (user E.^. UserDisplay) (E.val "%@fpcomplete.com") E.||.
+                  E.like (user E.^. UserDisplay) (E.val "fpcomplete"))
         E.limit 4
         return
             ( stackage E.^. StackageIdent