feat: Add Snowflake support for Beam database interactions

bristermitten · bristermitten · commit e94c4828b6d8 · 2025-03-15T17:14:26.000-04:00
diff --git a/src/Model.hs b/src/Model.hs
@@ -51,7 +51,7 @@ initDb = do
       insert (_messages $ unCheckDatabase devdenDB) $
         Database.Beam.insertValues
           [ Message (Snowflake 1) (Snowflake 2) "Hello, World!"
-          , Message (Snowflake 3) (Snowflake 4) "pee"
+          , Message (Snowflake 3) (Snowflake 4) "pep"
           ]
 
     messages <- runSelectReturningList $ select $ all_ (_messages $ unCheckDatabase devdenDB)

Original file line number	Diff line number	Diff line change
`@@ -51,7 +51,7 @@ initDb = do`
`51`	`51`	`insert (_messages $ unCheckDatabase devdenDB) $`
`52`	`52`	`Database.Beam.insertValues`
`53`	`53`	`[ Message (Snowflake 1) (Snowflake 2) "Hello, World!"`
`54`		`- , Message (Snowflake 3) (Snowflake 4) "pee"`
	`54`	`+ , Message (Snowflake 3) (Snowflake 4) "pep"`
`55`	`55`	`]`
`56`	`56`
`57`	`57`	`messages <- runSelectReturningList $ select $ all_ (_messages $ unCheckDatabase devdenDB)`