diff options
Diffstat (limited to 'src/Main/Menu.purs')
| -rw-r--r-- | src/Main/Menu.purs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Main/Menu.purs b/src/Main/Menu.purs index 58364b6..0fc5fe1 100644 --- a/src/Main/Menu.purs +++ b/src/Main/Menu.purs @@ -3,6 +3,7 @@ module Main.Menu where import Prelude import Data.Foldable (for_) +import Data.Tuple (Tuple(..)) import Effect (Effect) import Effect.Aff (launchAff_) import Effect.Class (liftEffect) @@ -19,4 +20,5 @@ main = launchAff_ do boxes <- queryAll ".lcolonq-menu-box" for_ boxes \box -> do listen box "click" \_ev -> do - UI.submitRedeem box + Tuple redeem inp <- UI.menuRedeemData box + UI.submitRedeem redeem inp |