From 6934ae5f88e7f8726bf163ce24525e6709468122 Mon Sep 17 00:00:00 2001 From: nek0 Date: Thu, 14 Aug 2014 02:26:21 +0200 Subject: [PATCH] reworking logic --- Handler/Profile.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Handler/Profile.hs b/Handler/Profile.hs index 80168b8..dca261d 100644 --- a/Handler/Profile.hs +++ b/Handler/Profile.hs @@ -2,8 +2,8 @@ module Handler.Profile where import Import -getProfileR :: Text -> Handler Html -getProfileR username = error "reworking logic" -- do +getProfileR :: UserId -> Handler Html +getProfileR userId = error "reworking logic" -- do -- msu <- lookupSession "id" -- case msu of -- Just tempUserId -> do