haskell facebook example
===

I am stuck with haskell types. How can I readLn FB.Arguments?

    {-# LANGUAGE OverloadedStrings #-}
    
    module Main (
        main
    ) where
    
    import qualified Facebook as FB
    import Network.HTTP.Conduit (withManager)
    import Control.Monad.IO.Class (liftIO)
    import System.IO
    
    app :: FB.Credentials
    app = FB.Credentials "localhost" "249348058430770" "..."
    
    url :: FB.RedirectUrl
    url = "localhost"
    
    perms :: [FB.Permission]
    perms = ["user_about_me", "email"]
    
    main = do
        liftIO $ print (FB.getUserAccessTokenStep1 url perms)
        token <- FB.getUserAccessTokenStep2 url [readLn]
        withManager $ \manager -> do
            FB.runFacebookT app manager $ do
               u <- FB.getUser "me" [] token
               liftIO $ print (FB.userEmail u)
               