From 42cb08473612e11106d31642a3280649bf586927 Mon Sep 17 00:00:00 2001 From: Jordan Martinez Date: Fri, 14 Feb 2020 05:27:05 -0800 Subject: [PATCH] Update library to compile on upcoming 0.14.0 PS release --- src/React/Basic.purs | 2 +- src/React/Basic/Events.purs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/React/Basic.purs b/src/React/Basic.purs index 2cefd1d..b38c1a0 100644 --- a/src/React/Basic.purs +++ b/src/React/Basic.purs @@ -139,7 +139,7 @@ foreign import createComponent -- | identify the component. It receives the `ComponentSpec` as a prop and knows -- | how to defer behavior to it. It requires very specific props and is not useful by -- | itself from JavaScript. For JavaScript interop, see `toReactComponent`.__ -data Component props +foreign import data Component :: Type -> Type -- | `Self` represents the component instance at a particular point in time. -- | diff --git a/src/React/Basic/Events.purs b/src/React/Basic/Events.purs index 199fc1a..71b6f8c 100644 --- a/src/React/Basic/Events.purs +++ b/src/React/Basic/Events.purs @@ -17,7 +17,7 @@ import Data.Symbol (class IsSymbol, SProxy(SProxy)) import Effect (Effect) import Effect.Uncurried (EffectFn1, mkEffectFn1) import Prim.Row as Row -import Prim.RowList (kind RowList, class RowToList, Cons, Nil) +import Prim.RowList (class RowToList, RowList, Cons, Nil) import Record (delete, get, insert) import Type.Data.RowList (RLProxy(..)) @@ -77,7 +77,7 @@ handler_ = mkEffectFn1 <<< const syntheticEvent :: EventFn SyntheticEvent SyntheticEvent syntheticEvent = identity -class Merge (rl :: RowList) fns a r | rl -> fns, rl a -> r where +class Merge (rl :: RowList Type) fns a r | rl -> fns, rl a -> r where mergeImpl :: RLProxy rl -> Record fns -> EventFn a (Record r) instance mergeNil :: Merge Nil () a () where