haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-12 04:08:29 +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 71d35bfa4f
commit f51e70c09e
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

@ -26,8 +26,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) .