Fix MkLink instance

dmjio · Jul 5, 2018 · c845fec · c845fec
1 parent f4772b3
commit c845fec
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ghc-src/Miso/Html/Internal.hs b/ghc-src/Miso/Html/Internal.hs
@@ -126,7 +126,7 @@ newtype View action = View { runView :: VTree action }
 instance HasLink (View a) where
 #if MIN_VERSION_servant(0,14,0)
   type MkLink (View a) b = MkLink (Get '[] ()) b
-  toLink Proxy toA = toLink toA (Proxy :: Proxy (Get '[] ()))
+  toLink toA Proxy = toLink toA (Proxy :: Proxy (Get '[] ()))
 #else
   type MkLink (View a) = MkLink (Get '[] ())
   toLink Proxy = toLink (Proxy :: Proxy (Get '[] ()))