Call Python interpreter from Haskell using inline-c

Python.hs

{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE OverloadedStrings #-}
module Main where

import qualified Language.C.Inline as C
import           Foreign.C.Types
import           Foreign.C.String

C.include "python2.7/Python.h"

pyInterpret :: String -> IO ()
pyInterpret code = withCString code $ \c ->
  [C.block| void {
      Py_Initialize();
      PyRun_SimpleString($(char *c));
      Py_Finalize();
  }|]

main :: IO ()
main = getContents >>= pyInterpret