From ff7b37a07d7af530d4ce03c377fe8159083b9acb Mon Sep 17 00:00:00 2001 From: mangoiv Date: Mon, 27 Jan 2025 18:06:48 +0100 Subject: [PATCH] [fix] fix build issue with docs --- doc/cookbook/named-routes/NamedRoutes.lhs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/doc/cookbook/named-routes/NamedRoutes.lhs b/doc/cookbook/named-routes/NamedRoutes.lhs index 0226fefa5..9efb1e7df 100644 --- a/doc/cookbook/named-routes/NamedRoutes.lhs +++ b/doc/cookbook/named-routes/NamedRoutes.lhs @@ -263,7 +263,7 @@ moviesDB = ] getMovieHandler :: MovieId -> Handler (Maybe Movie) -getMovieHandler requestMovieId = find (\movie -> movie.movieId == requestMovieId) moviesDB +getMovieHandler requestMovieId = pure $ find (\movie -> movie.movieId == requestMovieId) moviesDB updateMovieHandler :: MovieId -> Movie -> Handler NoContent updateMovieHandler requestedMovieId newMovie = @@ -376,6 +376,7 @@ appToHandler env act = runReaderT act env appMyMonad :: HandlerEnv -> Application appMyMonad env = genericServeT (appToHandler env) appMapi where + appMapi :: ServerT (NamedRoutes API) m appMapi = undefined ```