feat: add map2, map3, andThen to Astrid.Query

2022-01-07 20:00:05 +00:00 · 2022-01-07 20:00:05 +00:00 · b6182376b6
commit b6182376b6
parent 3cf23637d5
12 changed files with 1202 additions and 1018 deletions
--- a/examples/sqlite-integration/src/ShowDatabaseSchema.elm
+++ b/examples/sqlite-integration/src/ShowDatabaseSchema.elm
@ -0,0 +1,48 @@
+module ShowDatabaseSchema exposing (main)
+
+import Astrid.Query exposing (fetch, execute, errorToString)
+import Json.Decode
+import Html exposing (Html, ul, li, text, code, node, div)
+import Array.Extra
+
+
+main : Html msg
+main =
+    let
+        query =
+            fetch
+                "select json_object('type', type, 'name', name, 'sql', sql) from sqlite_master WHERE type = 'table'"
+                []
+                (Json.Decode.map3
+                    (\kind name sql->
+                        (kind, name, sql)
+                    )
+                    (Json.Decode.field "type" Json.Decode.string)
+                    (Json.Decode.field "name" Json.Decode.string)
+                    (Json.Decode.field "sql" Json.Decode.string)
+                )
+    in
+    case execute query of
+        Ok results ->
+            div []
+                [ node "style" []
+                    [ text "code { background-color: #f6f7f9; display: block; padding: 1em; border-radius: 4px; border 1px solid #eee; } "
+                    ]
+                , ul []
+                    (Array.Extra.mapToList
+                        (\(kind, name, sql) ->
+                            li []
+                                [ text "type = "
+                                , text kind
+                                , text ", name ="
+                                , text name
+                                , code []
+                                    [ text sql]
+                                ]
+                        )
+                        results
+                    )
+                ]
+
+        Err error ->
+            Html.text (errorToString error)