miso 0.20.1.0 → 0.21.0.0

raw patch · 3 files changed

+14/−2 lines, 3 files

Files

• ghc-src/Miso/Html/Internal.hs +8/−1
• ghcjs-src/Miso/Html/Internal.hs +5/−0
• miso.cabal +1/−1

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP                  #-} {-# LANGUAGE DeriveFunctor        #-} {-# LANGUAGE KindSignatures       #-} {-# LANGUAGE DataKinds            #-}@@ -123,8 +124,14 @@  -- | For constructing type-safe links 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 '[] ()))+#else   type MkLink (View a) = MkLink (Get '[] ())-  toLink _ = toLink (Proxy :: Proxy (Get '[] ()))+  toLink Proxy = toLink (Proxy :: Proxy (Get '[] ()))+#endif+  -- | Convenience class for using View class ToView v where toView :: v -> View action

@@ -90,8 +90,13 @@  -- | For constructing type-safe links instance HasLink (View a) where+#if MIN_VERSION_servant(0,14,0)+  type MkLink (View a) b = MkLink (Get '[] ()) b+  toLink toA Proxy = toLink toA (Proxy :: Proxy (Get '[] ()))+#else   type MkLink (View a) = MkLink (Get '[] ())   toLink _ = toLink (Proxy :: Proxy (Get '[] ()))+#endif  -- | Convenience class for using View class ToView v where toView :: v -> View m

@@ -1,5 +1,5 @@ name:                miso-version:             0.20.1.0+version:             0.21.0.0 category:            Web, Miso, Data Structures license:             BSD3 license-file:        LICENSE