feat: Add Snowflake support for Beam SQL instances

Author: bristermitten

devden-stat-bot.cabal

@@ -71,7 +71,9 @@ library
   hs-source-dirs:  src
 
   -- cabal-fmt: expand src
-  exposed-modules: Model
+  exposed-modules:
+    Db.Snowflake
+    Model
 
 executable devden-stat-bot
   import:         shared

src/Db/Snowflake.hs

@@ -0,0 +1,22 @@
+{-# OPTIONS_GHC -Wno-orphans #-}
+
+module Db.Snowflake where
+
+import Calamity
+import Database.Beam.Backend
+import Database.Beam.Backend.SQL.AST
+import Database.Beam.Migrate
+import Database.Beam.Sqlite
+import Database.Beam.Sqlite.Syntax
+
+instance HasSqlValueSyntax Value (Snowflake f) where
+  sqlValueSyntax = Value . fromSnowflake
+
+instance HasSqlValueSyntax SqliteValueSyntax (Snowflake f) where
+  sqlValueSyntax = sqlValueSyntax . fromSnowflake
+
+instance HasDefaultSqlDataType Sqlite (Snowflake f) where
+  defaultSqlDataType _ = defaultSqlDataType (Proxy @Word64)
+
+instance FromBackendRow Sqlite (Snowflake f) where
+  fromBackendRow = Snowflake <$> fromBackendRow

src/Model.hs

@@ -5,27 +5,14 @@ module Model where
 import Database.Beam
 
 import Calamity (Message, Snowflake (..), User)
-import Database.Beam.Backend
-import Database.Beam.Backend.SQL.AST
 import Database.Beam.Migrate
 import Database.Beam.Migrate.Simple
 import Database.Beam.Sqlite (Sqlite, runBeamSqliteDebug)
 import Database.Beam.Sqlite.Migrate
-import Database.Beam.Sqlite.Syntax
-import Database.SQLite.Simple hiding (field)
+import Database.SQLite.Simple
 import Shower (printer)
 
-instance HasSqlValueSyntax Value (Snowflake f) where
-  sqlValueSyntax = Value . fromSnowflake
-
-instance HasSqlValueSyntax SqliteValueSyntax (Snowflake f) where
-  sqlValueSyntax = sqlValueSyntax . fromSnowflake
-
-instance HasDefaultSqlDataType Sqlite (Snowflake f) where
-  defaultSqlDataType _ = defaultSqlDataType (Proxy @Word64)
-
-instance FromBackendRow Sqlite (Snowflake f) where
-  fromBackendRow = Snowflake <$> fromBackendRow
+import Db.Snowflake ()
 
 data MessageT f = Message
   { _messageId :: Columnar f (Snowflake Message)