# https://github.com/roc-lang/basic-webserver/tree/main/examples
# https://roc-lang.github.io/basic-webserver/SQLite3/
module [init, Config]

import pf.Task
import pf.SQLite3
import KeyValueStore
import Logger exposing [Logger]

Config : {
    sqlitePath : Str,
    logger : Logger,
}

get : Config -> (Str -> Task.Task Str [NotFound, Errored Str])
get = \config -> \key ->
        executed <-
            SQLite3.execute {
                path: config.sqlitePath,
                query: "SELECT key, value FROM key_value WHERE key = :key;",
                bindings: [{ name: ":key", value: key }],
            }
            |> Task.attempt

        when executed is
            Err err -> Task.err (Errored (SQLite3.errToStr err))
            Ok rows ->
                firstRow = List.first rows
                when firstRow is
                    Err _ -> Task.err NotFound
                    Ok row ->
                        firstColumn = List.first row
                        when firstColumn is
                            Err _ -> Task.err (Errored "No value")
                            Ok columnValue ->
                                when columnValue is
                                    String columnValueStr -> Task.ok columnValueStr
                                    _ -> Task.err (Errored "No value")

get : Config -> (Str -> Task.Task Str [NotFound, Errored Str])
get = \config -> \key ->
    rows =
        SQLite3.execute {
            path: config.sqlitePath,
            query: "SELECT key, value FROM key_value WHERE key = :key;",
            bindings: [{ name: ":key", value: key }],
        }
        |> Task.result!

    when rows is
        Ok [] -> Task.err NotFound
        Ok [[String _, String value]] -> Task.ok value
        Ok _ -> Task.err (Errored "unexpected values returned, expected key and value")
        Err (SQLError _ msg) -> Task.err (Errored msg)