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