haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-01 05:40:24 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Restrict snapshots to fpcomplete-only

Browse Source
This commit is contained in:
Chris Done 2014-07-21 12:35:53 +02:00
parent 7c844e14ac
commit a913a7dcd4
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
DevelMain.hs
View File

@ -28,9 +28,9 @@ main =
tid <- forkIO tid <- forkIO
(runSettings (runSettings
(setPort port defaultSettings) (setPort port defaultSettings)
(\req -> (\req cont ->
do handler <- readIORef ref do handler <- readIORef ref
handler req)) handler req cont))
_ <- newStore tid _ <- newStore tid
ref' <- newStore ref ref' <- newStore ref
_ <- newStore c _ <- newStore c

3
Handler/Home.hs
View File

@ -1,8 +1,8 @@
{-# LANGUAGE TupleSections, OverloadedStrings #-} {-# LANGUAGE TupleSections, OverloadedStrings #-}
module Handler.Home where module Handler.Home where
import Import
import qualified Database.Esqueleto as E import qualified Database.Esqueleto as E
import Import
-- This is a handler function for the GET request method on the HomeR -- This is a handler function for the GET request method on the HomeR
-- resource pattern. All of your resource patterns are defined in -- 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 stackages <- runDB $ E.select $ E.from $ \(stackage `E.InnerJoin` user) -> do
E.on (stackage E.^. StackageUser E.==. user E.^. UserId) E.on (stackage E.^. StackageUser E.==. user E.^. UserId)
E.orderBy [E.desc $ stackage E.^. StackageUploaded] E.orderBy [E.desc $ stackage E.^. StackageUploaded]
E.where_ (E.like (user E.^. UserDisplay) (E.val "%@fpcomplete.com"))
return return
( stackage E.^. StackageIdent ( stackage E.^. StackageIdent
, stackage E.^. StackageTitle , stackage E.^. StackageTitle