From 3852f4ef96003691d47521aa4ff4550de1f09d03 Mon Sep 17 00:00:00 2001 From: Philippe Pittoli Date: Thu, 21 Nov 2024 06:09:27 +0100 Subject: [PATCH] Migration page: remove useless code. --- src/App/Page/Migration.purs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/App/Page/Migration.purs b/src/App/Page/Migration.purs index a728f22..3e47920 100644 --- a/src/App/Page/Migration.purs +++ b/src/App/Page/Migration.purs @@ -19,12 +19,12 @@ -- | ``` module App.Page.Migration where -import Prelude (Unit, between, bind, discard, map, pure, ($), (<>)) +import Prelude (Unit, between, bind, discard, map, ($), (<>)) import Data.Array as A import Data.ArrayBuffer.Types (ArrayBuffer) import Data.Either (Either(..)) -import Data.Maybe (Maybe(..)) +-- import Data.Maybe (Maybe(..)) import Data.String as S import Effect.Aff.Class (class MonadAff) import Halogen as H @@ -102,14 +102,14 @@ component = , render , eval: H.mkEval $ H.defaultEval { handleAction = handleAction - , handleQuery = handleQuery + --, handleQuery = handleQuery } } -handleQuery :: forall a m. MonadAff m => Query a -> H.HalogenM State Action () Output m (Maybe a) -handleQuery = case _ of - -- TODO - WaitingForToken a -> pure (Just a) +-- TODO: this will be useful in case there is a tab mechanism on this page. +--handleQuery :: forall a m. MonadAff m => Query a -> H.HalogenM State Action () Output m (Maybe a) +--handleQuery = case _ of +-- WaitingForToken a -> pure (Just a) render :: forall m. State -> H.ComponentHTML Action () m render state