git.iko.soy/obelisk
on master help sign in
Switch to autoincrement primary keys
6866887Ryan Trinkle
dep/beam/github.json+4−4
compare with master
unifiedsplit
@@ -1,7 +1,7 @@
1{
1{
2− "owner": "tathougies",
2+ "owner": "obsidiansystems",
3 "repo": "beam",
3 "repo": "beam",
4− "branch": "travis/beam-0.8.0.0-migrate",
4+ "branch": "int-and-serial-size",
5− "rev": "aa397a7367c77a288937dcbb00e7acdea6a3b569",
5+ "rev": "87caf239ea198bad03acb73e65f9a43566ee4373",
6− "sha256": "1q4ici4d61bp5r9kzyricblsfc274crrsjmic3dklycfq6m05zxg"
6+ "sha256": "1lnzwds131cxix0dwkql980w9s2jdxfp2b9q7x8d4wh5i5jfbh6g"
7}
7}
skeleton/backend/src/Backend/Schema.hs+3−2
@@ -11,12 +11,13 @@ module Backend.Schema where
11import Data.Int
11import Data.Int
12import Data.Text (Text)
12import Data.Text (Text)
13import Database.Beam
13import Database.Beam
14+import Database.Beam.Backend.SQL.Types
14import Database.Beam.Migrate.Simple
15import Database.Beam.Migrate.Simple
15import Database.Beam.Migrate
16import Database.Beam.Migrate
16import Database.Beam.Postgres
17import Database.Beam.Postgres
17
18
18data TaskT f = Task
19data TaskT f = Task
19− { _task_id :: Columnar f Int64
20+ { _task_id :: Columnar f (SqlSerial Int64)
20 , _task_description :: Columnar f Text
21 , _task_description :: Columnar f Text
21 , _task_completed :: Columnar f Bool
22 , _task_completed :: Columnar f Bool
22 }
23 }
@@ -29,7 +30,7 @@ deriving instance Eq Task
29instance Beamable TaskT
30instance Beamable TaskT
30
31
31instance Table TaskT where
32instance Table TaskT where
32− data PrimaryKey TaskT f = TaskId (Columnar f Int64) deriving (Generic)
33+ data PrimaryKey TaskT f = TaskId (Columnar f (SqlSerial Int64)) deriving (Generic)
33 primaryKey = TaskId . _task_id
34 primaryKey = TaskId . _task_id
34
35
35instance Beamable (PrimaryKey TaskT)
36instance Beamable (PrimaryKey TaskT)