From f51e70c09e1031fc4f02b590bea81eda7b320446 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 3 Nov 2014 14:02:37 +0200
Subject: [PATCH] linkFor: use fpcomplete handle

---
 Handler/Home.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/Handler/Home.hs b/Handler/Home.hs
index 1f81646..274e3b9 100644
--- a/Handler/Home.hs
+++ b/Handler/Home.hs
@@ -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) .