@@ -42,9 +42,9 @@ initDB dbfile = withConnection dbfile $ \conn ->
42 "CREATE TABLE IF NOT EXISTS messages (msg text not null)"
42 "CREATE TABLE IF NOT EXISTS messages (msg text not null)"
45−Next, our server implementation. It will be parametrised (take as
45+Next, our server implementation. It will be parametrised (take as an
46argument) by the name of the file that contains our SQLite database.
46argument) by the name of the file that contains our SQLite database.
47−The handlers are straighforward. One takes care of inserting a new
47+The handlers are straightforward. One takes care of inserting a new
48value in the database while the other fetches all messages and returns
48value in the database while the other fetches all messages and returns
49them. We also provide a function for serving our web app given an
49them. We also provide a function for serving our web app given an
50SQLite database file, which simply calls servant-server's `serve` function.
50SQLite database file, which simply calls servant-server's `serve` function.