storeAccessToken :: HTTP.AccessToken -> IO ()
storeAccessToken at = do
    userHome <- getHomeDirectory
    writeFile (accessTokenFile userHome) $ show at
storeAccessToken :: HTTP.AccessToken -> IO ()
storeAccessToken at = do
    userHome <- getHomeDirectory
    writeFile (accessTokenFile userHome) $ show at
storeAccessToken at = do
    userHome <- getHomeDirectory
    writeFile (accessTokenFile userHome) $ show at