Fix warnings revealed by v0.14.1 PS release (#47)

Author: JordanMartinez

src/Halogen/VDom/DOM.purs

@@ -153,7 +153,7 @@ patchElem = EFn.mkEffectFn2 \state vdom → do
               res ← EFn.runEffectFn2 step s v
               EFn.runEffectFn3 Util.insertChildIx ix (extract res) node
               pure res
-            onThis = EFn.mkEffectFn2 \ix s → EFn.runEffectFn1 halt s
+            onThis = EFn.mkEffectFn2 \_ s → EFn.runEffectFn1 halt s
             onThat = EFn.mkEffectFn2 \ix v → do
               res ← EFn.runEffectFn1 build v
               EFn.runEffectFn3 Util.insertChildIx ix (extract res) node
@@ -196,7 +196,7 @@ buildKeyed = EFn.mkEffectFn6 \(VDomSpec spec) build ns1 name1 as1 ch1 → do
   el ← EFn.runEffectFn3 Util.createElement (toNullable ns1) name1 spec.document
   let
     node = DOMElement.toNode el
-    onChild = EFn.mkEffectFn3 \k ix (Tuple _ vdom) → do
+    onChild = EFn.mkEffectFn3 \_ ix (Tuple _ vdom) → do
       res ← EFn.runEffectFn1 build vdom
       EFn.runEffectFn3 Util.insertChildIx ix (extract res) node
       pure res
@@ -279,7 +279,7 @@ buildWidget ∷ ∀ a w. VDomBuilder w a w
 buildWidget = EFn.mkEffectFn3 \(VDomSpec spec) build w → do
   res ← EFn.runEffectFn1 (spec.buildWidget (VDomSpec spec)) w
   let
-    res' = res # unStep \(Step n s k1 k2) →
+    res' = res # unStep \(Step n s _ _) →
       mkStep $ Step n { build, widget: res } patchWidget haltWidget
   pure res'
 
@@ -292,7 +292,7 @@ patchWidget = EFn.mkEffectFn2 \state vdom → do
     Widget w → do
       res ← EFn.runEffectFn2 step widget w
       let
-        res' = res # unStep \(Step n s k1 k2) →
+        res' = res # unStep \(Step n _ _ _) →
           mkStep $ Step n { build, widget: res } patchWidget haltWidget
       pure res'
     _ → do

src/Halogen/VDom/DOM/Prop.purs

@@ -40,7 +40,7 @@ data Prop a
 instance functorProp ∷ Functor Prop where
   map f (Handler ty g) = Handler ty (map f <$> g)
   map f (Ref g) = Ref (map f <$> g)
-  map f p = unsafeCoerce p
+  map _ p = unsafeCoerce p
 
 data ElemRef a
   = Created a

src/Halogen/VDom/Types.purs

@@ -31,12 +31,12 @@ data VDom a w
   | Grafted (Graft a w)
 
 instance functorVDom ∷ Functor (VDom a) where
-  map g (Text a) = Text a
+  map _ (Text a) = Text a
   map g (Grafted a) = Grafted (map g a)
   map g a = Grafted (graft (Graft identity g a))
 
 instance bifunctorVDom ∷ Bifunctor VDom where
-  bimap f g (Text a) = Text a
+  bimap _ _ (Text a) = Text a
   bimap f g (Grafted a) = Grafted (bimap f g a)
   bimap f g a = Grafted (graft (Graft f g a))