connect :: Host -> Port -> IO FileSystem
connect h p = withCString h $ \host -> do
  fs <- throwErrnoIfNull "connect" $ c_hdfs_connect host (fromIntegral p)
  return $ FileSystem fs
connect :: Host -> Port -> IO FileSystem
connect h p = withCString h $ \host -> do
  fs <- throwErrnoIfNull "connect" $ c_hdfs_connect host (fromIntegral p)
  return $ FileSystem fs
connect h p = withCString h $ \host -> do
  fs <- throwErrnoIfNull "connect" $ c_hdfs_connect host (fromIntegral p)
  return $ FileSystem fs