Another segfault in LibClang

gistfile1.hs

module Main (main) where

import Control.Monad
import Control.Monad.Trans
import System.Environment
import Text.Printf
import qualified Data.Vector as DV(empty)

import Clang
import Clang.TranslationUnit(getCursor, withCreateIndex, withParse)
import Clang.Cursor
import Clang.String
import Clang.File as F

import qualified Data.Vector.Storable as DVS(mapM_)

test :: TranslationUnit s' -> Clang s ()
test tu = getCursor tu >>= getChildren >>= DVS.mapM_ printInfo
    where
        printInfo :: Cursor s -> Clang s ()
        printInfo c = do
            fileName <- getIncludedFile c >>= F.getName >>= unpack
            liftIO $ putStrLn $ "FileName " ++ fileName

main :: IO ()
main = do
            (arg : args) <- getArgs
            withCreateIndex False False $ \index ->
                withParse index (Just arg) args DV.empty [TranslationUnit_None] test
            return ()