myxine-client 0.0.1.0 → 0.0.1.2

raw patch · 5 files changed

+20/−19 lines, 5 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• LICENSE +1/−1
• myxine-client.cabal +6/−6
• src/Myxine.hs +5/−5
• src/Myxine/Direct.hs +7/−6
• src/Myxine/Internal/TH.hs +1/−1

@@ -1,6 +1,6 @@ MIT License -Copyright (c) 2019 Galois, Inc. and Kenny Foner+Copyright (c) 2019 Kenny Foner and Galois, Inc.  Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal

@@ -1,19 +1,19 @@ cabal-version:       2.4 name:                myxine-client-version:             0.0.1.0+version:             0.0.1.2 synopsis:            A Haskell client for the Myxine GUI server-homepage:            https://github.com/GaloisInc/myxine-bug-reports:         https://github.com/GaloisInc/myxine/issues/new+homepage:            https://github.com/kwf/myxine+bug-reports:         https://github.com/kwf/myxine/issues/new license:             MIT license-file:        LICENSE author:              Kenny Foner-maintainer:          kwf@galois.com-copyright:           Copyright (c) 2020 Galois, Inc.+maintainer:          kwf@very.science+copyright:           Copyright (c) 2020 Kenny Foner and Galois, Inc. category:            GUI stability:           alpha extra-source-files:  CHANGELOG.md, enabled-events.json description:-  [Myxine](https://github.com/GaloisInc/myxine) is a language-agnostic local+  [Myxine](https://github.com/kwf/myxine) is a language-agnostic local   server that lets you build interactive applications in the browser using a   RESTful API. This package defines high-level typed Haskell bindings for using   Myxine to quickly prototype surprisingly high-performance GUIs.

@@ -1,11 +1,11 @@ {-|     Description : High-level "model-view-controller" interface to the Myxine server -    This library implements well-typed bindings to the-    [Myxine](https://github.com/GaloisInc/myxine) server for creating local-    interactive GUIs in the web browser. For more details on Myxine-the-program, see-    the package description of this library, or [its own-    homepage](https://github.com/GaloisInc/myxine).+    This library implements typed bindings to the+    [Myxine](https://github.com/kwf/myxine) server for creating local+    interactive GUIs in the web browser. For more details on Myxine-the-program,+    see the package description of this library, or [its own+    homepage](https://github.com/kwf/myxine).      This module defines a higher level interface which abstracts over the direct     calls to the Myxine server to allow a more declarative style of programming.

@@ -31,7 +31,7 @@ import Control.Monad import Data.Monoid import Data.String-import Data.List+import Data.List (foldl') import Data.List.NonEmpty (NonEmpty(..)) import Control.Monad.IO.Class import Control.Exception@@ -207,7 +207,7 @@     {- ^ The new content of the page to display -} ->   IO () update PageLocation{pageLocationPort = Last maybePort,-                        pageLocationPath = Last maybePath} updateContent =+                    pageLocationPath = Last maybePath} updateContent =   wrapCaughtReqException $   do response <- Req.runReq Req.defaultHttpConfig $        Req.req Req.POST url body Req.ignoreResponse options@@ -297,8 +297,9 @@ evaluateJs PageLocation{pageLocationPort = Last maybePort,                         pageLocationPath = Last maybePath} js =   wrapCaughtReqException $-  do response <- Req.runReq Req.defaultHttpConfig $-       Req.req Req.POST url body Req.lbsResponse options+  do response <- Req.runReq+       Req.defaultHttpConfig { Req.httpConfigCheckResponse = \_ _ _ -> Nothing } $+         Req.req Req.POST url body Req.lbsResponse options      checkServerVersion response      if Req.responseStatusCode response == 200        then either (throwIO . JsException) pure $@@ -433,7 +434,7 @@ -- this library. -- -- If you encounter this exception in the wild, please file a bug report at--- <https://github.com/GaloisInc/myxine/issues/new>. Thanks!+-- <https://github.com/kwf/myxine/issues/new>. Thanks! data ProtocolException   = MyxineProtocolException String   | MyxineServerVersionClashException Salve.Version@@ -479,4 +480,4 @@     <> "and the following error message: \n" <> details     where       bugReportURL :: String-      bugReportURL = "https://github.com/GaloisInc/myxine/issues/new"+      bugReportURL = "https://github.com/kwf/myxine/issues/new"

@@ -24,7 +24,7 @@ import           Data.HashSet         (HashSet) import qualified Data.HashSet         as HashSet import qualified Data.Kind-import           Data.List+import           Data.List            (sortBy, sortOn, sort, intercalate) import           Data.Ord import           Data.Text            (Text) import           Data.Traversable