mkFileInfo :: HDFSFileInfo -> IO FileInfo
mkFileInfo (HDFSFileInfo k n l s r b o g m a) = do
  name <- peekCString n
  ownr <- peekCString o
  grp  <- peekCString g
  let kind = castCCharToChar k
      lmod = fromIntegral l
      size = fromIntegral s
      repl = fromIntegral r
      blck = fromIntegral b
      perm = fromIntegral m
      lacc = fromIntegral a
  return (FileInfo kind name lmod size repl blck ownr grp perm lacc)
mkFileInfo :: HDFSFileInfo -> IO FileInfo
mkFileInfo (HDFSFileInfo k n l s r b o g m a) = do
  name <- peekCString n
  ownr <- peekCString o
  grp  <- peekCString g
  let kind = castCCharToChar k
      lmod = fromIntegral l
      size = fromIntegral s
      repl = fromIntegral r
      blck = fromIntegral b
      perm = fromIntegral m
      lacc = fromIntegral a
  return (FileInfo kind name lmod size repl blck ownr grp perm lacc)
mkFileInfo (HDFSFileInfo k n l s r b o g m a) = do
  name <- peekCString n
  ownr <- peekCString o
  grp  <- peekCString g
  let kind = castCCharToChar k
      lmod = fromIntegral l
      size = fromIntegral s
      repl = fromIntegral r
      blck = fromIntegral b
      perm = fromIntegral m
      lacc = fromIntegral a
  return (FileInfo kind name lmod size repl blck ownr grp perm lacc)