hdfsWriteNewFile :: Config -> Path -> TL.Text -> IO ()
hdfsWriteNewFile config path content =
  withThriftChannelsForWrite config (
    \channels -> withThriftHandleForWriteNew channels (toThriftPath path) (
      \thriftHandle -> C.write channels thriftHandle content >>= return . bool (error "unknown write handle") ()
      ))
hdfsWriteNewFile :: Config -> Path -> TL.Text -> IO ()
hdfsWriteNewFile config path content =
  withThriftChannelsForWrite config (
    \channels -> withThriftHandleForWriteNew channels (toThriftPath path) (
      \thriftHandle -> C.write channels thriftHandle content >>= return . bool (error "unknown write handle") ()
      ))
hdfsWriteNewFile config path content =
  withThriftChannelsForWrite config (
    \channels -> withThriftHandleForWriteNew channels (toThriftPath path) (
      \thriftHandle -> C.write channels thriftHandle content >>= return . bool (error "unknown write handle") ()
      ))