{-# LANGUAGE CPP         #-}
{-# LANGUAGE Trustworthy #-}
module Lukko.Internal.HandleToFD (ghcHandleToFd) where

import qualified GHC.IO.FD as GHC (FD (..))
import           System.IO (Handle)

import qualified GHC.IO.Handle.FD as GHC (handleToFd)

ghcHandleToFd :: Handle -> IO GHC.FD
ghcHandleToFd :: Handle -> IO FD
ghcHandleToFd = Handle -> IO FD
GHC.handleToFd