{-# LANGUAGE NoImplicitPrelude #-}

module GHC.Internal.IO.Handle.Lock.NoOp where

import GHC.Internal.Base
import GHC.Internal.IO (throwIO)
import GHC.Internal.IO.Handle.Lock.Common
import GHC.Internal.IO.Handle.Types (Handle)

-- | No-op implementation.
lockImpl :: Handle -> String -> LockMode -> Bool -> IO Bool
lockImpl :: Handle -> String -> LockMode -> Bool -> IO Bool
lockImpl Handle
_ String
_ LockMode
_ Bool
_ = FileLockingNotSupported -> IO Bool
forall e a. (HasCallStack, Exception e) => e -> IO a
throwIO FileLockingNotSupported
FileLockingNotSupported

-- | No-op implementation.
unlockImpl :: Handle -> IO ()
unlockImpl :: Handle -> IO ()
unlockImpl Handle
_ = FileLockingNotSupported -> IO ()
forall e a. (HasCallStack, Exception e) => e -> IO a
throwIO FileLockingNotSupported
FileLockingNotSupported