postTempUserR :: Handler Html
postTempUserR = do
    setCreds False $ Creds "temporary" "Anonymous user" []
    _ <- maybeEnroll
    redirect RedirectToQuaViewEditR

-- | default mail from-address
postTempUserR :: Handler Html
postTempUserR = do
    setCreds False $ Creds "temporary" "Anonymous user" []
    _ <- maybeEnroll
    redirect RedirectToQuaViewEditR

-- | default mail from-address
postTempUserR = do
    setCreds False $ Creds "temporary" "Anonymous user" []
    _ <- maybeEnroll
    redirect RedirectToQuaViewEditR

-- | default mail from-address