Add functor instance to Response

s-and-witch · Mar 23, 2024 · eef3034 · eef3034
1 parent 16ea470
commit eef3034
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