Remove sugar only type classes

Author: easafe

README.md

@@ -50,10 +50,10 @@ update model = case _ of
 
 -- | `view` is called whenever the model is updated
 view :: Model -> Html Message
-view model = HE.main "main" [
-      HE.button [HA.onClick Decrement] "-",
+view model = HE.main [HA.id "main"] [
+      HE.button [HA.onClick Decrement] [HE.text "-"],
       HE.text $ show model,
-      HE.button [HA.onClick Increment] "+"
+      HE.button [HA.onClick Increment] [HE.text "+"]
 ]
 
 -- | Events that come from outside the `view`

docs/concepts.md

@@ -45,10 +45,10 @@ In the counter example, the view is defined as
 
 ```haskell
 view :: Model -> Html Message
-view model = HE.main "main" [
-      HE.button [HA.onClick Decrement] "-",
+view model = HE.main [HA.id "main"] [
+      HE.button [HA.onClick Decrement] [HE.text "-"],
       HE.text $ show model,
-      HE.button [HA.onClick Increment] "+"
+      HE.button [HA.onClick Increment] [HE.text "+"]
 ]
 ```
 

docs/events.md

@@ -46,7 +46,7 @@ update model = case _ of
                   pure <<< Just $ Update n
 
 view :: Model -> Html Message
-view model = HE.main "main" [
+view model = HE.main [HA.id "main"] [
       HE.text $ show model,
       HE.button [HA.onClick Roll] "Roll"
 ]
@@ -91,7 +91,7 @@ update model = case _ of
             ]
 
 view :: Model -> Html Message
-view model = HE.main "main" [
+view model = HE.main [HA.id "main"] [
       HE.button [HA.disabled model.isLoading, HA.onClick Perform] "Perform requests",
       if model.isLoading then
             HE.div [HA.class' "overlay"] "Loading..."

docs/index.md

@@ -57,10 +57,10 @@ update model = case _ of
 
 -- | `view` is called whenever the model is updated
 view :: Model -> Html Message
-view model = HE.main "main" [
-      HE.button [HA.onClick Decrement] "-",
+view model = HE.main [HA.id "main"] [
+      HE.button [HA.onClick Decrement] [HE.text "-"],
       HE.text $ show model,
-      HE.button [HA.onClick Increment] "+"
+      HE.button [HA.onClick Increment] [HE.text "+"]
 ]
 
 -- | Events that come from outside the `view`

docs/views.md

@@ -261,7 +261,7 @@ view model = HE.content' [
 
 ```haskell
 view :: Model -> Html Message
-view model = HE.main "main" [
+view model = HE.main [HA.id "main"] [
       HE.button [HA.onClick Add] "Add",
       HE.div_ $ DA.mapWithIndex viewCounter model
 ]

examples/Affjax/Affjax.purs

@@ -45,7 +45,7 @@ update model =
             Fetched result → F.noMessages $ model { result = result }
 
 view ∷ Model → Html Message
-view { url, result } = HE.main "main"
+view { url, result } = HE.main [HA.id "main"]
       [ HE.input [ HA.onInput UpdateUrl, HA.value url, HA.type' "text" ]
       , HE.button [ HA.onClick Fetch, HA.disabled $ result == Fetching ] "Fetch"
       , case result of

examples/Counter/Counter.purs

@@ -28,10 +28,10 @@ update model = F.noMessages <<< case _ of
 
 -- | `view` updates the app markup whenever the model is updated
 view ∷ Model → Html Message
-view model = HE.main "main"
-      [ HE.button [ HA.onClick Decrement ] "-"
+view model = HE.main [HA.id "main"]
+      [ HE.button [ HA.onClick Decrement ] [HE.text "-"]
       , HE.text $ show model
-      , HE.button [ HA.onClick Increment ] "+"
+      , HE.button [ HA.onClick Increment ] [HE.text "+"]
       ]
 
 -- | Mount the application on the given selector

examples/Counters/Counters.purs

@@ -32,7 +32,7 @@ update model = F.noMessages <<< case _ of
                   Just model' → DM.fromMaybe model $ DA.updateAt index (DT.fst $ ECM.update model' message) model
 
 view ∷ Model → Html Message
-view model = HE.main "main"
+view model = HE.main [HA.id "main"]
       [ HE.button [ HA.onClick Add ] "Add"
       , HE.div_ $ DA.mapWithIndex viewCounter model
       ]

examples/Dice/Dice.purs

@@ -30,7 +30,7 @@ update model = case _ of
       Update int → Just int /\ []
 
 view ∷ Model → Html Message
-view model = HE.main "main"
+view model = HE.main [HA.id "main"]
       [ HE.text (show model)
       , HE.button [ HA.onClick Roll ] "Roll"
       ]

examples/ServerSideRendering/Shared/ServerSideRendering.purs

@@ -18,7 +18,7 @@ derive instance modelGeneric ∷ Generic Model _
 data Message = Roll | Update Int
 
 view ∷ Model → Html Message
-view (Model model) = HE.main "main"
+view (Model model) = HE.main [HA.id "main"]
       [ HE.text (show model)
       , HE.button [ HA.onClick Roll ] "Roll"
       ]