Merge pull request #172 from DrewFenwick/response-functor

Add functor instance to Response
fizruk · Mar 28, 2024 · 02bd350 · 02bd350
2 parents 01f80a0 + eef3034
commit 02bd350
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/telegram-bot-api/src/Telegram/Bot/API/MakingRequests.hs b/telegram-bot-api/src/Telegram/Bot/API/MakingRequests.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE CPP                        #-}
+{-# LANGUAGE DeriveFunctor              #-}
 {-# LANGUAGE DeriveGeneric              #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
 {-# LANGUAGE OverloadedStrings          #-}
@@ -58,7 +59,7 @@ data Response a = Response
   , responseResult      :: a
   , responseErrorCode   :: Maybe Integer
   , responseParameters  :: Maybe ResponseParameters
-  } deriving (Show, Generic)
+  } deriving (Show, Generic, Functor)
 
 instance ToJSON   a => ToJSON   (Response a) where toJSON = gtoJSON
 instance FromJSON a => FromJSON (Response a) where parseJSON = gparseJSON