{-# LINE 1 "libraries/libiserv/src/GHCi/Utils.hsc" #-}
{-# LANGUAGE CPP #-}
module GHCi.Utils
( getGhcHandle
) where
import Foreign.C
import GHC.IO.Handle (Handle())
{-# LINE 11 "libraries/libiserv/src/GHCi/Utils.hsc" #-}
import System.Posix
{-# LINE 13 "libraries/libiserv/src/GHCi/Utils.hsc" #-}
getGhcHandle :: CInt -> IO Handle
{-# LINE 24 "libraries/libiserv/src/GHCi/Utils.hsc" #-}
getGhcHandle :: CInt -> IO Handle
getGhcHandle CInt
fd = Fd -> IO Handle
fdToHandle forall a b. (a -> b) -> a -> b
$ CInt -> Fd
Fd CInt
fd
{-# LINE 26 "libraries/libiserv/src/GHCi/Utils.hsc" #-}