{-# LINE 1 "libraries\\libiserv\\src\\GHCi\\Utils.hsc" #-}
{-# LANGUAGE CPP #-}
module GHCi.Utils
( getGhcHandle
) where
import Foreign.C
import GHC.IO.Handle (Handle())
{-# LINE 9 "libraries\\libiserv\\src\\GHCi\\Utils.hsc" #-}
import GHC.IO.Handle.FD (fdToHandle)
{-# LINE 13 "libraries\\libiserv\\src\\GHCi\\Utils.hsc" #-}
getGhcHandle :: CInt -> IO Handle
{-# LINE 19 "libraries\\libiserv\\src\\GHCi\\Utils.hsc" #-}
getGhcHandle handle = _open_osfhandle handle (32768) >>= fdToHandle
{-# LINE 20 "libraries\\libiserv\\src\\GHCi\\Utils.hsc" #-}
foreign import ccall "io.h _open_osfhandle" _open_osfhandle ::
CInt -> CInt -> IO CInt
{-# LINE 26 "libraries\\libiserv\\src\\GHCi\\Utils.hsc" #-}