Restrict snapshots to fpcomplete-only
This commit is contained in:
parent
7c844e14ac
commit
a913a7dcd4
2 changed files with 4 additions and 3 deletions
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue