Baguette
/
dnsmanager-webclient
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Migration page: remove useless code.

caa
Philippe Pittoli 2024-11-21 06:09:27 +01:00
parent 3af5c03199
commit 3852f4ef96
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/App/Page/Migration.purs
View File

@ -19,12 +19,12 @@
-- | ``` -- | ```
module App.Page.Migration where 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.Array as A
import Data.ArrayBuffer.Types (ArrayBuffer) import Data.ArrayBuffer.Types (ArrayBuffer)
import Data.Either (Either(..)) import Data.Either (Either(..))
import Data.Maybe (Maybe(..)) -- import Data.Maybe (Maybe(..))
import Data.String as S import Data.String as S
import Effect.Aff.Class (class MonadAff) import Effect.Aff.Class (class MonadAff)
import Halogen as H import Halogen as H
@ -102,14 +102,14 @@ component =
, render , render
, eval: H.mkEval $ H.defaultEval , eval: H.mkEval $ H.defaultEval
{ handleAction = handleAction { handleAction = handleAction
, handleQuery = handleQuery --, handleQuery = handleQuery
} }
} }
handleQuery :: forall a m. MonadAff m => Query a -> H.HalogenM State Action () Output m (Maybe a) -- TODO: this will be useful in case there is a tab mechanism on this page.
handleQuery = case _ of --handleQuery :: forall a m. MonadAff m => Query a -> H.HalogenM State Action () Output m (Maybe a)
-- TODO --handleQuery = case _ of
WaitingForToken a -> pure (Just a) -- WaitingForToken a -> pure (Just a)
render :: forall m. State -> H.ComponentHTML Action () m render :: forall m. State -> H.ComponentHTML Action () m
render state render state