EditPostR :: Text -> Handler Html
getEditPostR slug = do
    uid <- requireAuthId
    mkpost <- runDB $ selectFirst [PostSlug ==. slug] []
    defaultLayout $ do
        setDtekTitle "Redigera inlägg"
        $(widgetFile "editpost")

po
getEditPostR :: Text -> Handler Html
getEditPostR slug = do
    uid <- requireAuthId
    mkpost <- runDB $ selectFirst [PostSlug ==. slug] []
    defaultLayout $ do
        setDtekTitle "Redigera inlägg"
        $(widgetFile "editpost")
getEditPostR slug = do
    uid <- requireAuthId
    mkpost <- runDB $ selectFirst [PostSlug ==. slug] []
    defaultLayout $ do
        setDtekTitle "Redigera inlägg"
        $(widgetFile "editpost")