haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-07 00:27:28 +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 where
linkFor name = linkFor name =
do slug <- mkSlug name do slug <- mkSlug name
selecting (\alias -> fpcomplete <- mkSlug "fpcomplete"
do where_ (alias ^. AliasName ==. val slug) selecting (\(alias, user) ->
do where_ $
alias ^. AliasName ==. val slug &&.
alias ^. AliasUser ==. user ^. UserId &&.
user ^. UserHandle ==. val fpcomplete
return (alias ^. AliasTarget)) return (alias ^. AliasTarget))
where selecting = where selecting =
fmap (fmap unValue . listToMaybe) . fmap (fmap unValue . listToMaybe) .