withRandomTempFile :: (FilePath -> IO ()) -> IO () 
withRandomTempFile act = do 
  tdir <- getTemporaryDirectory 
  r <- randomIO :: IO Int 
  let tmpfile = (tdir </>) .  show . md5 . B.pack . show $ r
  act tmpfile 
  removeFile tmpfile 


-- | sanitize LHE file for one particular order
withRandomTempFile :: (FilePath -> IO ()) -> IO ()
withRandomTempFile act = do 
  tdir <- getTemporaryDirectory 
  r <- randomIO :: IO Int 
  let tmpfile = (tdir </>) .  show . md5 . B.pack . show $ r
  act tmpfile 
  removeFile tmpfile 


-- | sanitize LHE file for one particular order
withRandomTempFile act = do 
  tdir <- getTemporaryDirectory 
  r <- randomIO :: IO Int 
  let tmpfile = (tdir </>) .  show . md5 . B.pack . show $ r
  act tmpfile 
  removeFile tmpfile 


-- | sanitize LHE file for one particular order