diff --git a/src/WebSocket.purs b/src/WebSocket.purs
index 8d88c0f..fac33af 100644
--- a/src/WebSocket.purs
+++ b/src/WebSocket.purs
@@ -247,7 +247,7 @@ derive instance genericURL :: Generic URL _
 
 -- | A synonym for message strings.
 newtype Message = Message String
-derive instance genericMessage :: Generic Reason _
+derive instance genericMessage :: Generic Message _
 
 runMessage :: Message -> String
 runMessage (Message a) = a