6866887 · obelisk · git.iko.soy

git.iko.soy/obelisk

Switch to autoincrement primary keys

commit68668878734a162a8a9e308343196a502b5245bc authorRyan Trinkle <ryan.trinkle@gmail.com> dateMon 26 Nov 2018, 14:10 (8 years ago) parent003323f

2 files changed+7−6

unifiedsplit

dep/beam/github.json+4−4

@@ -1,7 +1,7 @@

11{

2− "owner": "tathougies",

2+ "owner": "obsidiansystems",

33 "repo": "beam",

4− "branch": "travis/beam-0.8.0.0-migrate",

5− "rev": "aa397a7367c77a288937dcbb00e7acdea6a3b569",

6− "sha256": "1q4ici4d61bp5r9kzyricblsfc274crrsjmic3dklycfq6m05zxg"

4+ "branch": "int-and-serial-size",

5+ "rev": "87caf239ea198bad03acb73e65f9a43566ee4373",

6+ "sha256": "1lnzwds131cxix0dwkql980w9s2jdxfp2b9q7x8d4wh5i5jfbh6g"

77}

skeleton/backend/src/Backend/Schema.hs+3−2

@@ -11,12 +11,13 @@ module Backend.Schema where

1111import Data.Int

1212import Data.Text (Text)

1313import Database.Beam

14+import Database.Beam.Backend.SQL.Types

1415import Database.Beam.Migrate.Simple

1516import Database.Beam.Migrate

1617import Database.Beam.Postgres

1718

1819data TaskT f = Task

19− { _task_id :: Columnar f Int64

20+ { _task_id :: Columnar f (SqlSerial Int64)

2021 , _task_description :: Columnar f Text

2122 , _task_completed :: Columnar f Bool

2223 }

@@ -29,7 +30,7 @@ deriving instance Eq Task

2930instance Beamable TaskT

3031

3132instance 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)

3334 primaryKey = TaskId . _task_id

3435

3536instance Beamable (PrimaryKey TaskT)