@@ -69,6 +69,7 @@ import Servant.Server (BasicAuthCheck (BasicAuthCheck),
6969import Servant.Server.Experimental.Auth (AuthHandler, AuthServerData,
7070 mkAuthHandler)
7171import Servant.Server.Experimental.Auth()
72+import Web.Cookie (parseCookies)
7273
7374-- | private data that needs protection
7475newtype PrivateData = PrivateData { ssshhh :: Text }
@@ -285,7 +286,6 @@ method (note: we depend upon [`cookie`](https://hackage.haskell.org/package/cook
285286`parseCookies` for this):
286287
287288```haskell
288−import Web.Cookie (parseCookies)
289289
290290--- | The auth handler wraps a function from Request -> Handler Account.
291291--- We look for a token in the request headers that we expect to be in the cookie.