parseAuthToken :: Text -> Maybe AuthToken
parseAuthToken str = case parseCookie $ unpack str of
                       Nothing -> Nothing
                       Just c  -> AuthToken <$> lookup "email" c <*> lookup "session" c

-- | Parse the text of a "Cookie" header.
parseAuthToken :: Text -> Maybe AuthToken
parseAuthToken str = case parseCookie $ unpack str of
                       Nothing -> Nothing
                       Just c  -> AuthToken <$> lookup "email" c <*> lookup "session" c

-- | Parse the text of a "Cookie" header.
parseAuthToken str = case parseCookie $ unpack str of
                       Nothing -> Nothing
                       Just c  -> AuthToken <$> lookup "email" c <*> lookup "session" c

-- | Parse the text of a "Cookie" header.