13 lines
415 B
Haskell
13 lines
415 B
Haskell
module Handler.Profile where
|
|
|
|
import Import
|
|
|
|
getProfileR :: Text -> Handler Html
|
|
getProfileR username = error "reworking logic" -- do
|
|
-- msu <- lookupSession "id"
|
|
-- case msu of
|
|
-- Just tempUserId -> do
|
|
-- userId <- Key $ PersistInt64 $ fromIntegral tempUserId
|
|
-- userMedia <- runDB $ selectList [MediumOwner ==. userId] [Desc MediumTime]
|
|
-- defaultLayout $ do
|
|
-- $(widgetFile "profile")
|