11 lines
269 B
Haskell
11 lines
269 B
Haskell
|
module Handler.Profile where
|
||
|
|
|
||
|
|
import Import
|
||
|
|
|
||
|
|
getProfileR :: Text -> Handler Html
|
||
|
|
getProfileR username = do
|
||
|
|
msu <- lookupSession "username"
|
||
|
|
userMedia <- runDB $ selectList [MediumOwner ==. username] [Desc MediumTime]
|
||
|
|
defaultLayout $ do
|
||
|
|
$(widgetFile "profile")
|