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