    {-# LANGUAGE NoImplicitPrelude #-}

    module GHC.IO.Handle.Lock.NoOp where

    import GHC.Base
    import GHC.IO (throwIO)
    import GHC.IO.Handle.Lock.Common
    import GHC.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. Exception e => e -> IO a
    throwIO FileLockingNotSupported
    FileLockingNotSupported

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