diff --git a/CHANGELOG.md b/CHANGELOG.md
index be535c1..d71a16a 100644
--- 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
index 09282e7..b88956e 100644
--- 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