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

linkFor: use fpcomplete handle

Browse Source
This commit is contained in:
Michael Snoyman 2014-11-03 14:02:37 +02:00
parent 641ea8ae20
commit 76c62ec5ec
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Handler/Home.hs
View File

@ -22,8 +22,12 @@ getHomeR = do
where
linkFor name =
do slug <- mkSlug name
selecting (\alias ->
do where_ (alias ^. AliasName ==. val slug)
fpcomplete <- mkSlug "fpcomplete"
selecting (\(alias, user) ->
do where_ $
alias ^. AliasName ==. val slug &&.
alias ^. AliasUser ==. user ^. UserId &&.
user ^. UserHandle ==. val fpcomplete
return (alias ^. AliasTarget))
where selecting =
fmap (fmap unValue . listToMaybe) .