gistfile1.hs

module Main where

import qualified Data.ByteString  as B
import           Data.MessagePack (Object)
import           Data.Serialize   (decode)
import           System.IO        (hGetContents)
import           System.Process

main :: IO ()
main = do
    (_, Just hout, _, pHandle) <-
      createProcess (proc "nvim" ["--api-info"]){ std_out = CreatePipe }
    exitCode <- waitForProcess pHandle
    putStrLn $ "Neovim exited with " ++ show exitCode
    output <- B.hGetContents hout
    print (decode output :: Either String Object)