From a913a7dcd466213dab89d6575af96f1ba92f2540 Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Mon, 21 Jul 2014 12:35:53 +0200
Subject: [PATCH] Restrict snapshots to fpcomplete-only

---
 DevelMain.hs    | 4 ++--
 Handler/Home.hs | 3 ++-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/DevelMain.hs b/DevelMain.hs
index d49b1cf..9da3980 100644
--- a/DevelMain.hs
+++ b/DevelMain.hs
@@ -28,9 +28,9 @@ main =
      tid <- forkIO
               (runSettings
                  (setPort port defaultSettings)
-                 (\req ->
+                 (\req cont ->
                     do handler <- readIORef ref
-                       handler req))
+                       handler req cont))
      _ <- newStore tid
      ref' <- newStore ref
      _ <- newStore c
diff --git a/Handler/Home.hs b/Handler/Home.hs
index 08bd4f4..ca7ae20 100644
--- a/Handler/Home.hs
+++ b/Handler/Home.hs
@@ -1,8 +1,8 @@
 {-# LANGUAGE TupleSections, OverloadedStrings #-}
 module Handler.Home where
 
-import Import
 import qualified Database.Esqueleto as E
+import           Import
 
 -- This is a handler function for the GET request method on the HomeR
 -- resource pattern. All of your resource patterns are defined in
@@ -16,6 +16,7 @@ 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"))
         return
             ( stackage E.^. StackageIdent
             , stackage E.^. StackageTitle