diff --git a/yesod-websockets/ChangeLog.md b/yesod-websockets/ChangeLog.md
index 110b0f3f..ea0eb13a 100644
--- a/yesod-websockets/ChangeLog.md
+++ b/yesod-websockets/ChangeLog.md
@@ -1,3 +1,7 @@
+## 0.3.0.4
+
+* Fixed examples to work with Template Haskell change in recent GHC versions ([#1790](https://github.com/yesodweb/yesod/pull/1790)).
+
 ## 0.3.0.3
 * Removed the use of the deprecated forkPingThread and replaced it with the recommended withPingThread. [#1700](https://github.com/yesodweb/yesod/pull/1700)
 
diff --git a/yesod-websockets/chat-with-multiple-channels.hs b/yesod-websockets/chat-with-multiple-channels.hs
index 9b1a23fd..258a72eb 100644
--- a/yesod-websockets/chat-with-multiple-channels.hs
+++ b/yesod-websockets/chat-with-multiple-channels.hs
@@ -15,12 +15,12 @@ import UnliftIO.Exception (try, SomeException)
 
 data App = App (TVar (M.Map Text (TChan Text, Int)))
 
-instance Yesod App
-
 mkYesod "App" [parseRoutes|
 / HomeR GET
 |]
 
+instance Yesod App
+
 cleanupChannel :: (Eq a1, Num a1) => Maybe (a2, a1) -> Maybe (a2, a1)
 cleanupChannel Nothing = Nothing
 cleanupChannel (Just (writeChan, 1)) = Nothing
diff --git a/yesod-websockets/chat-with-timeout-control.hs b/yesod-websockets/chat-with-timeout-control.hs
index 7cf21860..08bf354a 100644
--- a/yesod-websockets/chat-with-timeout-control.hs
+++ b/yesod-websockets/chat-with-timeout-control.hs
@@ -14,12 +14,12 @@ import UnliftIO.Exception (try, SomeException)
 
 data App = App (TChan Text)
 
-instance Yesod App
-
 mkYesod "App" [parseRoutes|
 / HomeR GET
 |]
 
+instance Yesod App
+
 chatApp :: WebSocketsT Handler ()
 chatApp = do
     sendTextData ("Welcome to the chat server, please enter your name." :: Text)
diff --git a/yesod-websockets/chat.hs b/yesod-websockets/chat.hs
index baddcf62..560320a1 100644
--- a/yesod-websockets/chat.hs
+++ b/yesod-websockets/chat.hs
@@ -14,12 +14,12 @@ import UnliftIO.Exception (try, SomeException)
 
 data App = App (TChan Text)
 
-instance Yesod App
-
 mkYesod "App" [parseRoutes|
 / HomeR GET
 |]
 
+instance Yesod App
+
 chatApp :: WebSocketsT Handler ()
 chatApp = do
     sendTextData ("Welcome to the chat server, please enter your name." :: Text)
diff --git a/yesod-websockets/yesod-websockets.cabal b/yesod-websockets/yesod-websockets.cabal
index 8294bbbc..a3e4265a 100644
--- a/yesod-websockets/yesod-websockets.cabal
+++ b/yesod-websockets/yesod-websockets.cabal
@@ -1,6 +1,6 @@
 cabal-version:       >=1.10
 name:                yesod-websockets
-version:             0.3.0.3
+version:             0.3.0.4
 synopsis:            WebSockets support for Yesod
 homepage:            https://github.com/yesodweb/yesod
 license:             MIT