From 8f7dcce96469b539b70362059a120bae8ea54c05 Mon Sep 17 00:00:00 2001 From: L0neGamer Date: Sun, 20 Nov 2022 16:43:31 +0000 Subject: [PATCH] new instance --- src/Tablebot/Utility/SmartParser/Interactions.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/Tablebot/Utility/SmartParser/Interactions.hs b/src/Tablebot/Utility/SmartParser/Interactions.hs index 72ea2b0..0c17c84 100644 --- a/src/Tablebot/Utility/SmartParser/Interactions.hs +++ b/src/Tablebot/Utility/SmartParser/Interactions.hs @@ -71,6 +71,10 @@ instance {-# OVERLAPPABLE #-} (MakeAppComm mac, MakeAppCommArg ty) => MakeAppCom instance {-# OVERLAPPABLE #-} (MakeAppComm mac) => MakeAppComm (SenderUserId -> mac) where makeAppComm _ = makeAppComm (Proxy :: Proxy mac) +-- we don't get the interaction from the command itself, so ignore it +instance {-# OVERLAPPABLE #-} (MakeAppComm mac) => MakeAppComm (Interaction -> mac) where + makeAppComm _ = makeAppComm (Proxy :: Proxy mac) + -- | From a single value, make an argument for a slash command command. class MakeAppCommArg commandty where makeAppCommArg :: Proxy commandty -> OptionValue