@@ -29,7 +29,7 @@ import Prelude.Compat
2929import Control.Monad.IO.Class
3030import Control.Monad.Reader
3131import Control.Monad.Trans.Except
32−import Data.Aeson
32+import Data.Aeson.Compat
3333import Data.Aeson.Types
3434import Data.Attoparsec.ByteString
3535import Data.ByteString (ByteString)
@@ -139,7 +139,7 @@ userAPI = Proxy
139139-- which you can think of as an "abstract" web application,
140140-- not yet a webserver.
141141app1 :: Application
142−app1 = serve userAPI EmptyConfig server1
142+app1 = serve userAPI server1
143143```
144144
145145The `userAPI` bit is, alas, boilerplate (we need it to guide type inference).