Example of making a Freebase query from Haskell

freebase_example.hs

import Network.HTTP (simpleHTTP, getRequest, getResponseBody, urlEncode)

main = do
    resultJson <- queryFreebase "{\"query\":[{\"id\":null,\"name\":null,\"type\":\"/astronomy/planet\"}]}"
    putStrLn resultJson
   
-- Runs a query against Freebase and returns the result in JSON format.
queryFreebase :: String -> IO String
queryFreebase jsonQuery = do
    let query = urlEncode $ jsonQuery
        url = "http://api.freebase.com/api/service/mqlread?query=" ++ query
    get url 

-- Fetches a document and returns it as a String.
get :: String -> IO String
get url = do
    let request = getRequest url
    response <- simpleHTTP request
    getResponseBody response