Update to v0.14.0-rc3

.github/workflows/ci.yml

@@ -15,6 +15,8 @@ jobs:
 
       - name: Set up PureScript toolchain
         uses: purescript-contrib/setup-purescript@main
+        with:
+          purescript: "0.14.0-rc3"
 
       - name: Cache PureScript dependencies
         uses: actions/cache@v2

packages.dhall

@@ -1,4 +1,4 @@
 let upstream =
-      https://github.com/purescript/package-sets/releases/download/psc-0.13.8-20200831/packages.dhall sha256:cdb3529cac2cd8dd780f07c80fd907d5faceae7decfcaa11a12037df68812c83
+      https://raw.githubusercontent.com/purescript/package-sets/prepare-0.14/src/packages.dhall
 
 in  upstream

src/Ace/Config.purs

@@ -13,6 +13,7 @@ import Ace.Types
 import Effect (Effect)
 import Data.Function.Uncurried (Fn2, runFn2)
 
+newtype ConfigOption :: Type -> Type
 newtype ConfigOption a = ConfigOption String
 
 foreign import setImpl :: forall a. Fn2 (ConfigOption a) a (Effect Ace)

src/Ace/Document.purs

@@ -30,26 +30,27 @@ module Ace.Document
 import Prelude
 
 import Ace.Types (Document, Position, Range, NewlineMode, Anchor, DocumentEvent, readDocumentEvent, showNewlineMode)
-
-import Effect (Effect)
 import Control.Monad.Except (runExcept)
-
-import Data.Either (fromRight)
-import Foreign (Foreign)
+import Data.Either (either)
 import Data.Function.Uncurried (Fn2, runFn2, Fn3, runFn3, Fn4, runFn4)
 import Data.Nullable (Nullable)
-
-import Partial.Unsafe (unsafePartial)
+import Effect (Effect)
+import Foreign (Foreign)
+import Partial.Unsafe (unsafeCrashWith)
 
 foreign import onChangeImpl
   :: forall a
    . Fn2 Document (Foreign -> Effect a) (Effect Unit)
 
 onChange
   :: forall a
-   . Document -> (DocumentEvent -> Effect a)
+   . Document
+  -> (DocumentEvent -> Effect a)
   -> Effect Unit
-onChange self fn = runFn2 onChangeImpl self (fn <<< (unsafePartial fromRight) <<< runExcept <<< readDocumentEvent)
+onChange self fn =
+  runFn2 onChangeImpl self (fn <<< fromRight <<< runExcept <<< readDocumentEvent)
+  where
+  fromRight = either (\_ -> unsafeCrashWith "Expected Left in Ace.Document.onChange") identity
 
 foreign import setValueImpl
   :: Fn2 String Document (Effect Unit)