+
+ (clientMsgs, fileMap) <- loadSwappedFiles emptyFileMap clientRecIn
+
+ tmpDir <- getTemporaryDirectory
+ (_, mappedClientRecIn) <- openTempFile tmpDir "clientRecInMapped"
+ mapM_ (B.hPut mappedClientRecIn) $ map addHeader clientMsgs
+ hSeek mappedClientRecIn AbsoluteSeek 0
+
+
+ (expectedMsgs, _) <- loadSwappedFiles fileMap serverRecIn