1
- import gleam/bit_string
1
+ import gleam/bit_array
2
2
import gleam/string
3
3
import gleam/result
4
4
import gleam/list
@@ -181,7 +181,7 @@ pub fn append(contents: String, to filepath: String) -> Result(Nil, FileError) {
181
181
/// let assert Ok(records) = read_bits(from: "./users.csv")
182
182
/// ```
183
183
///
184
- pub fn read_bits ( from filepath : String ) -> Result ( BitString , FileError ) {
184
+ pub fn read_bits ( from filepath : String ) -> Result ( BitArray , FileError ) {
185
185
do_read_bits ( filepath )
186
186
|> cast_error
187
187
}
@@ -192,10 +192,7 @@ pub fn read_bits(from filepath: String) -> Result(BitString, FileError) {
192
192
/// let assert Ok(Nil) = write_bits(<<"Hello, World!":utf8>>, to: "./hello_world.txt")
193
193
/// ```
194
194
///
195
- pub fn write_bits (
196
- bits : BitString ,
197
- to filepath : String ,
198
- ) -> Result ( Nil , FileError ) {
195
+ pub fn write_bits ( bits : BitArray , to filepath : String ) -> Result ( Nil , FileError ) {
199
196
do_write_bits ( bits , filepath )
200
197
|> cast_error
201
198
}
@@ -207,7 +204,7 @@ pub fn write_bits(
207
204
/// ```
208
205
///
209
206
pub fn append_bits (
210
- bits : BitString ,
207
+ bits : BitArray ,
211
208
to filepath : String ,
212
209
) -> Result ( Nil , FileError ) {
213
210
do_append_bits ( bits , filepath )
@@ -351,8 +348,8 @@ pub fn rename_directory(
351
348
@ target ( javascript )
352
349
fn do_read ( from filepath : String ) -> Result ( String , String ) {
353
350
case do_read_bits ( filepath ) {
354
- Ok ( bit_str ) -> {
355
- case bit_string . to_string ( bit_str ) {
351
+ Ok ( bits ) -> {
352
+ case bit_array . to_string ( bits ) {
356
353
Ok ( str ) -> Ok ( str )
357
354
_ -> Error ( "NOTUTF8" )
358
355
}
@@ -364,7 +361,7 @@ fn do_read(from filepath: String) -> Result(String, String) {
364
361
@ target ( javascript )
365
362
fn do_write ( content : String , to filepath : String ) -> Result ( Nil , String ) {
366
363
content
367
- |> bit_string . from_string
364
+ |> bit_array . from_string
368
365
|> do_write_bits ( to : filepath )
369
366
}
370
367
@@ -375,24 +372,21 @@ fn do_delete(file_or_dir_at: String) -> Result(Nil, String)
375
372
@ target ( javascript )
376
373
fn do_append ( content : String , to filepath : String ) -> Result ( Nil , String ) {
377
374
content
378
- |> bit_string . from_string
375
+ |> bit_array . from_string
379
376
|> do_append_bits ( to : filepath )
380
377
}
381
378
382
379
@ target ( javascript )
383
380
@ external ( javascript , "./simplifile_js.mjs" , "readBits" )
384
- fn do_read_bits ( from : String ) -> Result ( BitString , String )
381
+ fn do_read_bits ( from : String ) -> Result ( BitArray , String )
385
382
386
383
@ target ( javascript )
387
384
@ external ( javascript , "./simplifile_js.mjs" , "writeBits" )
388
- fn do_write_bits ( content : BitString , to filepath : String ) -> Result ( Nil , String )
385
+ fn do_write_bits ( content : BitArray , to filepath : String ) -> Result ( Nil , String )
389
386
390
387
@ target ( javascript )
391
388
@ external ( javascript , "./simplifile_js.mjs" , "appendBits" )
392
- fn do_append_bits (
393
- content : BitString ,
394
- to filepath : String ,
395
- ) -> Result ( Nil , String )
389
+ fn do_append_bits ( content : BitArray , to filepath : String ) -> Result ( Nil , String )
396
390
397
391
@ target ( javascript )
398
392
@ external ( javascript , "./simplifile_js.mjs" , "isDirectory" )
@@ -481,20 +475,20 @@ fn cast_error(input: Result(a, String)) -> Result(a, FileError) {
481
475
@ target ( erlang )
482
476
@ external ( erlang , "simplifile_erl" , "append_file" )
483
477
fn do_append_bits (
484
- content : BitString ,
478
+ content : BitArray ,
485
479
to filepath : String ,
486
480
) -> Result ( Nil , FileError )
487
481
488
482
@ target ( erlang )
489
483
@ external ( erlang , "simplifile_erl" , "write_file" )
490
484
fn do_write_bits (
491
- content : BitString ,
485
+ content : BitArray ,
492
486
to filepath : String ,
493
487
) -> Result ( Nil , FileError )
494
488
495
489
@ target ( erlang )
496
490
@ external ( erlang , "simplifile_erl" , "read_file" )
497
- fn do_read_bits ( from : String ) -> Result ( BitString , FileError )
491
+ fn do_read_bits ( from : String ) -> Result ( BitArray , FileError )
498
492
499
493
@ target ( erlang )
500
494
@ external ( erlang , "simplifile_erl" , "recursive_delete" )
@@ -503,22 +497,22 @@ fn do_delete(file_or_dir_at: String) -> Result(Nil, FileError)
503
497
@ target ( erlang )
504
498
fn do_append ( content : String , to filepath : String ) -> Result ( Nil , FileError ) {
505
499
content
506
- |> bit_string . from_string
500
+ |> bit_array . from_string
507
501
|> do_append_bits ( filepath )
508
502
}
509
503
510
504
@ target ( erlang )
511
505
fn do_write ( content : String , to filepath : String ) -> Result ( Nil , FileError ) {
512
506
content
513
- |> bit_string . from_string
507
+ |> bit_array . from_string
514
508
|> do_write_bits ( filepath )
515
509
}
516
510
517
511
@ target ( erlang )
518
512
fn do_read ( from filepath : String ) -> Result ( String , FileError ) {
519
513
case do_read_bits ( filepath ) {
520
- Ok ( bit_str ) -> {
521
- case bit_string . to_string ( bit_str ) {
514
+ Ok ( bits ) -> {
515
+ case bit_array . to_string ( bits ) {
522
516
Ok ( str ) -> Ok ( str )
523
517
_ -> Error ( NotUtf8 )
524
518
}
0 commit comments