From 21668ef71d5669f148ea6f8db5736d11cb011241 Mon Sep 17 00:00:00 2001
From: Shritesh Bhattarai <shr@ite.sh>
Date: Thu, 14 Jan 2021 12:39:03 -0500
Subject: Add io:get_line

---
 src/gleam_stdlib.erl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'src/gleam_stdlib.erl')

diff --git a/src/gleam_stdlib.erl b/src/gleam_stdlib.erl
index 500ed10..edf3d6e 100644
--- a/src/gleam_stdlib.erl
+++ b/src/gleam_stdlib.erl
@@ -11,7 +11,7 @@
          string_pad/4, decode_tuple2/1, decode_map/1, bit_string_int_to_u32/1,
          bit_string_int_from_u32/1, bit_string_append/2, bit_string_part_/3,
          decode_bit_string/1, compile_regex/2, regex_match/2, regex_split/2,
-         regex_scan/2, base_decode64/1, wrap_list/1, rescue/1]).
+         regex_scan/2, base_decode64/1, wrap_list/1, rescue/1, get_line/1]).
 
 should_equal(Actual, Expected) -> ?assertEqual(Expected, Actual).
 should_not_equal(Actual, Expected) -> ?assertNotEqual(Expected, Actual).
@@ -210,3 +210,10 @@ rescue(F) ->
         error:X -> {error, {errored, X}};
         exit:X -> {error, {exited, X}}
     end.
+
+get_line(Prompt) ->
+    case io:get_line(Prompt) of
+        eof -> {error, eof};
+        {error, _} -> {error, no_data};
+        Data -> {ok, Data}
+    end.
\ No newline at end of file
-- 
cgit v1.2.3