From 31c3566895bb717f51e986697d3452e549451f73 Mon Sep 17 00:00:00 2001
From: Jacques Comeaux <jacquesrcomeaux@gmail.com>
Date: Sat, 28 May 2022 10:40:52 -0500
Subject: Handle requests

---
 src/Data/Message.hs | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'src/Data/Message.hs')

diff --git a/src/Data/Message.hs b/src/Data/Message.hs
index dfbc20b..c218cdc 100644
--- a/src/Data/Message.hs
+++ b/src/Data/Message.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE DeriveGeneric #-}
 module Data.Message
     ( InMessage (..)
     , GMIUrl (..)
@@ -21,15 +22,17 @@ import qualified Text.URI as URI
 
 data InMessage = InMessage
     { hasAttach :: !Bool
-    , groupId   :: !Word
+    , groupId   :: !Text
     , isUser    :: !Bool
     , text      :: !Text
-    } deriving Show
+    } deriving (Show, Generic)
+
+instance NFData InMessage
 
 instance Ae.FromJSON InMessage where
     parseJSON = Ae.withObject "InMessage" $ \o -> InMessage
         <$> (o .: "attachments" >>= Ae.withArray "attachments" (pure . not . null))
-        <*> o .: "group-id"
+        <*> o .: "group_id"
         <*> ((==) ("user" :: Text) <$> o .: "sender_type")
         <*> o .: "text"
 
-- 
cgit v1.2.3