makePrincipal :: User -> AppM Principal
makePrincipal u = do
    let uid = _userID u
    tme <- liftIO $ fmap round getPOSIXTime
    return $ Principal uid (tme + 604800)
makePrincipal :: User -> AppM Principal
makePrincipal u = do
    let uid = _userID u
    tme <- liftIO $ fmap round getPOSIXTime
    return $ Principal uid (tme + 604800)
makePrincipal u = do
    let uid = _userID u
    tme <- liftIO $ fmap round getPOSIXTime
    return $ Principal uid (tme + 604800)