@@ -10,19 +10,20 @@ tables to Haskell, and then look at writing some simple queries.
10Before we get started, we'll be using the following language extensions and
10Before we get started, we'll be using the following language extensions and
11imports throughout this guide::
11imports throughout this guide::
13− {-# language -XBlockArguments #-}
13+ {-# language BlockArguments #-}
14− {-# language -XDeriveAnyClass #-}
14+ {-# language DeriveAnyClass #-}
15− {-# language -XDeriveGeneric #-}
15+ {-# language DeriveGeneric #-}
16− {-# language -XDerivingStrategies #-}
16+ {-# language DerivingStrategies #-}
17− {-# language -XDerivingVia #-}
17+ {-# language DerivingVia #-}
18− {-# language -XDuplicateRecordFields #-}
18+ {-# language DuplicateRecordFields #-}
19− {-# language -XGeneralizedNewtypeDeriving #-}
19+ {-# language GeneralizedNewtypeDeriving #-}
20− {-# language -XOverloadedStrings #-}
20+ {-# language OverloadedStrings #-}
21− {-# language -XStandaloneDeriving #-}
21+ {-# language StandaloneDeriving #-}
22− {-# language -XTypeApplications #-}
22+ {-# language TypeApplications #-}
23− {-# language -XTypeFamilies #-}
23+ {-# language TypeFamilies #-}
25 import Prelude
25 import Prelude
27The Example Schema
28The Example Schema
28------------------
29------------------
@@ -125,9 +126,9 @@ associated with the ``Author`` type::
126 authorSchema :: TableSchema (Author Name)
127 authorSchema :: TableSchema (Author Name)
127 authorSchema = TableSchema
128 authorSchema = TableSchema
128− { tableName = "author"
129+ { name = "author"
129− , tableSchema = Nothing
130+ , schema = Nothing
130− , tableColumns = Author
131+ , columns = Author
131 { authorId = "author_id"
132 { authorId = "author_id"
132 , authorName = "name"
133 , authorName = "name"
133 , authorUrl = "url"
134 , authorUrl = "url"
@@ -138,9 +139,9 @@ And likewise for ``project`` and ``Project``::
139 projectSchema :: TableSchema (Project Name)
140 projectSchema :: TableSchema (Project Name)
140 projectSchema = TableSchema
141 projectSchema = TableSchema
141− { tableName = "project"
142+ { name = "project"
142− , tableSchema = Nothing
143+ , schema = Nothing
143− , tableColumns = Project
144+ , columns = Project
144 { projectAuthorId = "author_id"
145 { projectAuthorId = "author_id"
145 , projectName = "name"
146 , projectName = "name"