eidolon/Handler/Profile.hs
2014-08-13 22:30:48 +02:00

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")