Tiny example database

examples/utilities/tiny_database/.gitignore

···
+*.beam
+*.ez
+build
+erl_crash.dump
+tmp

examples/utilities/tiny_database/README.md

···
+# Tiny Database
+
+An example database library that the Wisp examples may use.
+
+A real application likely uses a proper database such as PostgreSQL, MySQL,
+MariaDB, or SQLite.

examples/utilities/tiny_database/gleam.toml

···
+name = "tiny_database"
+version = "1.0.0"
+description = "A silly little database to be used in the examples"
+licences = ["Apache-2.0"]
+
+[dependencies]
+gleam_stdlib = "~> 0.30"
+simplifile = "~> 0.1"
+ids = "~> 0.8"
+gleam_json = "~> 0.6"
+
+[dev-dependencies]
+gleeunit = "~> 0.10"

examples/utilities/tiny_database/manifest.toml

···
+# This file was generated by Gleam
+# You typically do not need to edit this file
+
+packages = [
+  { name = "gleam_erlang", version = "0.20.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_erlang", source = "hex", outer_checksum = "F216A80C8FDFF774447B494D5E08AE4E9A911E971727B9A78FEBF5F300914584" },
+  { name = "gleam_json", version = "0.6.0", build_tools = ["gleam"], requirements = ["thoas", "gleam_stdlib"], otp_app = "gleam_json", source = "hex", outer_checksum = "C6CC5BEECA525117E97D0905013AB3F8836537455645DDDD10FE31A511B195EF" },
+  { name = "gleam_otp", version = "0.6.0", build_tools = ["gleam"], requirements = ["gleam_erlang", "gleam_stdlib"], otp_app = "gleam_otp", source = "hex", outer_checksum = "E31B158857E3D2AF946FE6E90E0CB21699AF226F4630E93FBEAC5DB4515F8920" },
+  { name = "gleam_stdlib", version = "0.30.1", build_tools = ["gleam"], requirements = [], otp_app = "gleam_stdlib", source = "hex", outer_checksum = "704258528887F95075FFED7AAE1CCF836A9B88E3AADA2F69F9DA15815F94A4F9" },
+  { name = "gleeunit", version = "0.11.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleeunit", source = "hex", outer_checksum = "1397E5C4AC4108769EE979939AC39BF7870659C5AFB714630DEEEE16B8272AD5" },
+  { name = "ids", version = "0.8.0", build_tools = ["gleam"], requirements = ["gleam_stdlib", "gleam_erlang", "gleam_otp"], otp_app = "ids", source = "hex", outer_checksum = "7A378014D40E848326FBEE8AC0C9B35EB9C8094DC4414D89F9A5AA99397A6042" },
+  { name = "simplifile", version = "0.1.10", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "simplifile", source = "hex", outer_checksum = "263B7C7F4B29263555DEA2D30BA918425A27120CDD1E1352744EAB4D56CE01CE" },
+  { name = "thoas", version = "0.4.1", build_tools = ["rebar3"], requirements = [], otp_app = "thoas", source = "hex", outer_checksum = "4918D50026C073C4AB1388437132C77A6F6F7C8AC43C60C13758CC0ADCE2134E" },
+]
+
+[requirements]
+gleam_json = { version = "~> 0.6" }
+gleam_stdlib = { version = "~> 0.30" }
+gleeunit = { version = "~> 0.10" }
+ids = { version = "~> 0.8" }
+simplifile = { version = "~> 0.1" }

examples/utilities/tiny_database/src/tiny_database.gleam

···
+import gleam/result
+import gleam/dynamic
+import ids/nanoid
+import gleam/json
+import gleam/list
+import gleam/map.{Map}
+import simplifile
+
+pub opaque type Connection {
+  Connection(root: String)
+}
+
+pub fn connect(root: String) -> Connection {
+  let assert Ok(_) = simplifile.create_directory_all(root)
+  Connection(root)
+}
+
+pub fn disconnect(_connection: Connection) -> Nil {
+  // Here we do nothing, but a real database would close the connection or do
+  // some other teardown.
+  Nil
+}
+
+pub fn with_connection(root: String, f: fn(Connection) -> t) -> t {
+  let connection = connect(root)
+  let result = f(connection)
+  disconnect(connection)
+  result
+}
+
+pub fn truncate(connection: Connection) -> Result(Nil, Nil) {
+  let assert Ok(_) = simplifile.delete(connection.root)
+  Ok(Nil)
+}
+
+pub fn list(connection: Connection) -> Result(List(String), Nil) {
+  let assert Ok(_) = simplifile.create_directory_all(connection.root)
+  simplifile.list_contents(connection.root)
+  |> result.nil_error
+}
+
+pub fn insert(
+  connection: Connection,
+  values: Map(String, String),
+) -> Result(String, Nil) {
+  let id = nanoid.generate()
+  let values =
+    values
+    |> map.to_list
+    |> list.map(fn(pair) { #(pair.0, json.string(pair.1)) })
+  let json = json.to_string(json.object(values))
+  use _ <- result.try(
+    simplifile.write(json, file_path(connection, id))
+    |> result.nil_error,
+  )
+  Ok(id)
+}
+
+pub fn read(
+  connection: Connection,
+  id: String,
+) -> Result(Map(String, String), Nil) {
+  use data <- result.try(
+    simplifile.read(file_path(connection, id))
+    |> result.nil_error,
+  )
+
+  let decoder = dynamic.map(dynamic.string, dynamic.string)
+
+  use data <- result.try(
+    json.decode(data, decoder)
+    |> result.nil_error,
+  )
+
+  Ok(data)
+}
+
+fn file_path(connection: Connection, id: String) -> String {
+  connection.root <> "/" <> id
+}

examples/utilities/tiny_database/test/tiny_database_test.gleam

···
+import gleeunit
+import gleeunit/should
+import tiny_database
+import gleam/map
+
+pub fn main() {
+  gleeunit.main()
+}
+
+pub fn insert_read_test() {
+  let connection = tiny_database.connect("tmp/data")
+
+  let data = map.from_list([#("name", "Alice"), #("profession", "Programmer")])
+
+  let assert Ok(Nil) = tiny_database.truncate(connection)
+  let assert Ok([]) = tiny_database.list(connection)
+  let assert Ok(id) = tiny_database.insert(connection, data)
+
+  let assert Ok(read) = tiny_database.read(connection, id)
+  read
+  |> should.equal(data)
+
+  let assert Ok([single]) = tiny_database.list(connection)
+  single
+  |> should.equal(id)
+}

manifest.toml

···
 
 packages = [
   { name = "exception", version = "1.0.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "exception", source = "hex", outer_checksum = "71F00057D38ADB03BBCCD0E3B07AB2C236BD49DBA7E7611A9DADBD1E26C9F53D" },
-  { name = "gleam_bitwise", version = "1.2.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_bitwise", source = "hex", outer_checksum = "6064699EFBABB1CA392DCB193D0E8B402FB042B4B46857B01E6875E643B57F54" },
-  { name = "gleam_crypto", version = "0.4.0", build_tools = ["gleam"], requirements = ["gleam_stdlib", "gleam_bitwise"], otp_app = "gleam_crypto", source = "hex", outer_checksum = "42429CED0F838B40014E1C017B0495C46C311D08035D2C2D43B749B91A4374F6" },
+  { name = "gleam_bitwise", version = "1.3.0", build_tools = ["gleam"], requirements = [], otp_app = "gleam_bitwise", source = "hex", outer_checksum = "E2A46EE42E5E9110DAD67E0F71E7358CBE54D5EC22C526DD48CBBA3223025792" },
+  { name = "gleam_crypto", version = "0.4.0", build_tools = ["gleam"], requirements = ["gleam_bitwise", "gleam_stdlib"], otp_app = "gleam_crypto", source = "hex", outer_checksum = "42429CED0F838B40014E1C017B0495C46C311D08035D2C2D43B749B91A4374F6" },
   { name = "gleam_erlang", version = "0.20.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_erlang", source = "hex", outer_checksum = "F216A80C8FDFF774447B494D5E08AE4E9A911E971727B9A78FEBF5F300914584" },
   { name = "gleam_http", version = "3.5.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_http", source = "hex", outer_checksum = "FAE9AE3EB1CA90C2194615D20FFFD1E28B630E84DACA670B28D959B37BCBB02C" },
   { name = "gleam_json", version = "0.6.0", build_tools = ["gleam"], requirements = ["gleam_stdlib", "thoas"], otp_app = "gleam_json", source = "hex", outer_checksum = "C6CC5BEECA525117E97D0905013AB3F8836537455645DDDD10FE31A511B195EF" },
   { name = "gleam_otp", version = "0.6.0", build_tools = ["gleam"], requirements = ["gleam_erlang", "gleam_stdlib"], otp_app = "gleam_otp", source = "hex", outer_checksum = "E31B158857E3D2AF946FE6E90E0CB21699AF226F4630E93FBEAC5DB4515F8920" },
   { name = "gleam_stdlib", version = "0.30.1", build_tools = ["gleam"], requirements = [], otp_app = "gleam_stdlib", source = "hex", outer_checksum = "704258528887F95075FFED7AAE1CCF836A9B88E3AADA2F69F9DA15815F94A4F9" },
   { name = "gleeunit", version = "0.11.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleeunit", source = "hex", outer_checksum = "1397E5C4AC4108769EE979939AC39BF7870659C5AFB714630DEEEE16B8272AD5" },
-  { name = "glisten", version = "0.8.1", build_tools = ["gleam"], requirements = ["gleam_stdlib", "gleam_erlang", "gleam_otp"], otp_app = "glisten", source = "hex", outer_checksum = "B156D92DD8508D05C7E2D54FA6EB4EC57510E70F1B156F40B0FF1589CE72095D" },
-  { name = "mist", version = "0.13.1", build_tools = ["gleam"], requirements = ["gleam_stdlib", "gleam_erlang", "glisten", "gleam_http"], otp_app = "mist", source = "hex", outer_checksum = "178EDF5F396570DD53BE2A94C8F9759072093DACB81B62CD47A620B961DB2F2D" },
+  { name = "glisten", version = "0.8.1", build_tools = ["gleam"], requirements = ["gleam_erlang", "gleam_otp", "gleam_stdlib"], otp_app = "glisten", source = "hex", outer_checksum = "B156D92DD8508D05C7E2D54FA6EB4EC57510E70F1B156F40B0FF1589CE72095D" },
+  { name = "mist", version = "0.13.1", build_tools = ["gleam"], requirements = ["gleam_erlang", "gleam_http", "gleam_stdlib", "glisten"], otp_app = "mist", source = "hex", outer_checksum = "178EDF5F396570DD53BE2A94C8F9759072093DACB81B62CD47A620B961DB2F2D" },
   { name = "simplifile", version = "0.1.10", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "simplifile", source = "hex", outer_checksum = "263B7C7F4B29263555DEA2D30BA918425A27120CDD1E1352744EAB4D56CE01CE" },
   { name = "thoas", version = "0.4.1", build_tools = ["rebar3"], requirements = [], otp_app = "thoas", source = "hex", outer_checksum = "4918D50026C073C4AB1388437132C77A6F6F7C8AC43C60C13758CC0ADCE2134E" },
 ]