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