@@ -1,7 +1,6 @@
11module File
22 ( Time
33 , getTime
4− , withLock
54 , writeBinary
65 , readBinary
76 , writeUtf8
@@ -28,7 +27,6 @@ import qualified Data.Time.Clock.POSIX as Time
2827import qualified Foreign.ForeignPtr as FPtr
2928import GHC.IO.Exception (IOException, IOErrorType(InvalidArgument))
3029import qualified System.Directory as Dir
31−import qualified System.FileLock as Lock
3230import qualified System.FilePath as FP
3331import System.FilePath ((</>))
3432import qualified System.IO as IO
@@ -57,15 +55,6 @@ instance Binary.Binary Time where
5755
5856
5957
60−-- LOCK
61−
62−
63−withLock :: FilePath -> IO a -> IO a
64−withLock path work =
65− Lock.withFileLock path Lock.Exclusive (\_ -> work)
66−
67−
68−
6958-- BINARY
7059
7160