diff --git a/src/EuphApi/Connection.hs b/src/EuphApi/Connection.hs
index 3caa92b..b8624d9 100644
--- a/src/EuphApi/Connection.hs
+++ b/src/EuphApi/Connection.hs
@@ -730,4 +730,6 @@ newtype WhoReply = WhoReply
   } deriving (Show)
 
 instance FromJSON WhoReply where
-  parseJSON v = WhoReply <$> parseJSON v
+  parseJSON = withObject "WhoReply" $ \o -> do
+    listing <- o .: "listing"
+    return (WhoReply listing)