getFileSize :: FilePath -> IO Int64
getFileSize fp = do
  stat <- System.PosixCompat.getFileStatus fp
  let System.PosixCompat.COff size = System.PosixCompat.fileSize stat
  return size
getFileSize :: FilePath -> IO Int64
getFileSize fp = do
  stat <- System.PosixCompat.getFileStatus fp
  let System.PosixCompat.COff size = System.PosixCompat.fileSize stat
  return size
getFileSize fp = do
  stat <- System.PosixCompat.getFileStatus fp
  let System.PosixCompat.COff size = System.PosixCompat.fileSize stat
  return size