configurator_example.hs

import Data.Configurator
import qualified Data.Configurator as C

main :: IO ()
main = do
    -- other code
    cfg <- C.load [C.Required "../.settings.cfg"]
    app_id <- C.lookup cfg "facebook.id" :: IO (Maybe String)
    app_secret <- C.lookup cfg "facebook.secret" :: IO (Maybe String)
    let base_url = "https://graph.facebook.com/oauth/access_token?"
        auth_url = authUrl base_url app_id app_secret
    getToken <- curlGetString (auth_url) []
    -- more code