[fix] fix build issue with docs

haskell-servant · Jan 27, 2025 · ff7b37a · ff7b37a
1 parent 8c536e6
commit ff7b37a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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
 ```