small fix to documentation

bflyblue · Sep 5, 2024 · f9a2186 · f9a2186
1 parent cc834bc
commit f9a2186
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -18,7 +18,7 @@
     > server :: Server MyApi
     > server = streamBooks
     >   where streamBooks :: Handler (SourceIO Book)
-              streamBooks = pure $ source [book1, ...]
+    >         streamBooks = pure $ source [book1, ...]
 
 ## 0.2.1.0 -- 2021-04-21
 

diff --git a/src/Servant/API/EventStream.hs b/src/Servant/API/EventStream.hs
@@ -85,7 +85,7 @@ instance ToServerEvent ServerEvent where
   > server :: Server MyApi
   > server = streamBooks
   >   where streamBooks :: Handler (SourceIO Book)
-            streamBooks = pure $ source [book1, ...]
+  >         streamBooks = pure $ source [book1, ...]
 -}
 instance {-# OVERLAPPABLE #-} (ToServerEvent chunk, ToSourceIO chunk a) => HasServer (ServerSentEvents a) context where
   type ServerT (ServerSentEvents a) m = ServerT (StreamGet ServerEventFraming EventStream a) m
@@ -140,7 +140,7 @@ instance Accept EventStream where
   > server :: Server MyApi
   > server = streamBooks
   >   where streamBooks :: Handler (RecommendedEventSourceHeaders (SourceIO Book))
-            streamBooks = pure $ recommendedEventSourceHeaders $ source [book1, ...]
+  >         streamBooks = pure $ recommendedEventSourceHeaders $ source [book1, ...]
 -}
 type RecommendedEventSourceHeaders (a :: Type) = Headers '[Header "X-Accel-Buffering" Text, Header "Cache-Control" Text] a