From 76c62ec5ecf5916390a506b28444bb2a4b63cf13 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 296c5fe..44e6597 100644
--- a/Handler/Home.hs
+++ b/Handler/Home.hs
@@ -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) .