Commit Diff

Commit:
bd81b2bed7f62979a7d023a54b3d2795fe64249d
From:
mtmn <miro@haravara.org>
Date:
Message:
fix: use Db.toParam instead of ad-hoc unsafeCoerce
Actions:
Patch | Tree
commit - 36fdb151704960fce8e78150d45dc3dc6a543c17
commit + bd81b2bed7f62979a7d023a54b3d2795fe64249d
blob - ce7c4d9120d9ea8bcf4b24351beaa366c09327be
blob + d0572ffb1513416708a1480733a1c306a990dd19
--- src/Command.purs
+++ src/Command.purs
@@ -20,7 +20,6 @@ import Foreign.Object as Object
 import Node.Encoding (Encoding(UTF8))
 import Node.FS.Aff as FSA
 import Node.Process (cwd, exit', lookupEnv)
-import Unsafe.Coerce (unsafeCoerce)
 
 foreign import prettyStringify :: Json -> String
 
@@ -118,7 +117,7 @@ resetToken configFile args = do
   mDbPath <- liftEffect $ lookupEnv "DATABASE_PATH"
   let fullPath = resolvePath defaultDir mDbPath dbFile
   conn <- Db.connect fullPath
-  Db.run conn "DELETE FROM api_tokens WHERE slug = ?" [ unsafeCoerce slug ]
+  Db.run conn "DELETE FROM api_tokens WHERE slug = ?" [ Db.toParam slug ]
   mToken <- Db.getOrCreateToken conn slug
   liftEffect $ for_ mToken \token ->
     log $ "New token for '" <> slug <> "': " <> token