refactor: clean code.

package.json

@@ -19,7 +19,7 @@
     "decrypt": "./bin/decrypt",
     "encrypt": "./bin/encrypt",
     "db:build": "./bin/build-db && npm run db:check",
-    "db:check": "elm make src/CheckDb.elm --output=check-db-app.js 1> /dev/null && node check-db.js",
+    "db:check": "elm make src/CheckDb.elm --optimize --output=check-db-app.js 1> /dev/null && node check-db.js",
     "lint:openapi": "npx swagger-cli validate openapi.yaml",
     "lint:prettier": "prettier --config .prettierrc --check",
     "lint:prettier:all": "npm run lint:prettier -- .",

src/CheckDb.elm

@@ -1,6 +1,6 @@
 port module CheckDb exposing (main)
 
-import Static.Db as StaticDb
+import Static.Db as StaticDb exposing (Db)
 import Static.Json as StaticJson
 
 
@@ -10,15 +10,15 @@ type alias Flags =
     }
 
 
-checkDbs : Flags -> Result String StaticDb.Db
-checkDbs detailedRawProcessesJson =
-    StaticDb.db StaticJson.rawJsonProcesses
-        |> Result.mapError (\err -> "Non-detailed Db is invalid: " ++ err)
-        |> Result.andThen
-            (StaticDb.db detailedRawProcessesJson
-                |> Result.mapError (\err -> "Detailed Db is invalid: " ++ err)
-                |> always
-            )
+checkDbs : Flags -> Result String ( Db, Db )
+checkDbs detailedRawJsonProcesses =
+    Result.map2 Tuple.pair
+        (StaticDb.db StaticJson.rawJsonProcesses
+            |> Result.mapError (\err -> "Non-detailed Db is invalid: " ++ err)
+        )
+        (StaticDb.db detailedRawJsonProcesses
+            |> Result.mapError (\err -> "Detailed Db is invalid: " ++ err)
+        )
 
 
 main : Program Flags () ()
@@ -29,10 +29,10 @@ main =
                 ( ()
                 , case checkDbs flags of
                     Err error ->
-                        logAndExit { message = "Db is dubious: " ++ error, status = 1 }
+                        logAndExit { message = error, status = 1 }
 
                     Ok _ ->
-                        logAndExit { message = "Db is fine", status = 0 }
+                        logAndExit { message = "Dbs look fine", status = 0 }
                 )
         , subscriptions = always Sub.none
         , update = \_ _ -> ( (), Cmd.none )