HomeInterface: module can be compiled, nothing to render yet.

src/App/HomeInterface.purs

@@ -1,25 +1,23 @@
 -- | `App.HomeInterface` presents the website and its features.
 module App.HomeInterface where
 
-import Prelude (Unit, unit, bind, discard, pure, ($), (<<<), (<>), Void)
+import Prelude (Unit, pure, unit, ($))
 
-
+-- import Data.Either (Either(..))
-import Data.ArrayBuffer.Types (ArrayBuffer)
+-- import Data.Maybe (Maybe(..), maybe)
-import Data.Either (Either(..))
+-- import Data.Tuple (Tuple(..))
-import Data.Maybe (Maybe(..), maybe)
-import Data.Tuple (Tuple(..))
 import Effect.Aff.Class (class MonadAff)
 import Halogen as H
-import Halogen.HTML as HH
+-- import Halogen.HTML as HH
-import Halogen.HTML.Events as HE
+-- import Halogen.HTML.Events as HE
-import Halogen.HTML.Properties as HP
+-- import Halogen.HTML.Properties as HP
 
 import Bulma as Bulma
 
-data Query a = Noop a
+data Query a = DoNothing a
-type Output = Unit
+type Slot = H.Slot Query Unit
-type Slot = H.Slot Query Output
 type Input = Unit
+type Output = Unit
 type Action = Unit
 type State = Unit
 
@@ -28,13 +26,15 @@ component =
   H.mkComponent
     { initialState
     , render
-    , eval: H.mkEval $ H.defaultEval { handleQuery: handleQuery }
+    , eval: H.mkEval $ H.defaultEval
+        { handleAction = handleAction
+        }
     }
 
-handleQuery = case _ of
+handleAction :: forall m. MonadAff m => Action -> H.HalogenM State Action () Output m Unit
-  Noop a -> pure a
+handleAction _ = pure unit
 
-initialState :: Input -> State
+initialState :: forall input. input -> State
 initialState _ = unit
 
 render :: forall m. State -> H.ComponentHTML Action () m