Miso.Fetch: remove, superseded by servant-client-core

and corresponding adapter packages like servant-jsaddle

Author: amesgen

miso.cabal

@@ -154,7 +154,6 @@ library
     Miso.Event.Decoder
     Miso.Event.Types
     Miso.Exception
-    Miso.Fetch
     Miso.FFI
     Miso.FFI.History
     Miso.FFI.SSE

src/Miso.hs

@@ -43,8 +43,6 @@ module Miso
   , module Miso.Subscription
     -- * Storage
   , module Miso.Storage
-    -- * Fetch
-  , module Miso.Fetch
     -- * Util
   , module Miso.Util
     -- * FFI
@@ -65,7 +63,6 @@ import           Miso.Diff
 import           Miso.Effect
 import           Miso.Event
 import           Miso.Exception
-import           Miso.Fetch
 import           Miso.FFI
 import qualified Miso.FFI.Internal as FFI
 import           Miso.Html

src/Miso/FFI/Internal.hs

@@ -54,7 +54,6 @@ module Miso.FFI.Internal
    , setBodyComponent
    , addStyle
    , addStyleSheet
-   , fetchJSON
    , shouldSync
    ) where
 -----------------------------------------------------------------------------
@@ -408,53 +407,6 @@ addStyleSheet url = do
   _ <- link # "setAttribute" $ ["href", fromMisoString url]
   void $ jsg "document" ! "head" # "appendChild" $ [link]
 -----------------------------------------------------------------------------
--- | Retrieve JSON via Fetch API
---
--- Basic GET of JSON using Fetch API, will be expanded upon.
---
--- See <https://developer.mozilla.org/en-US/docs/Web/API/Fetch_API>
---
-fetchJSON
-  :: FromJSON action
-  => MisoString
-  -- ^ url
-  -> MisoString
-  -- ^ method
-  -> Maybe MisoString
-  -- ^ body
-  -> [(MisoString,MisoString)]
-  -- ^ headers
-  -> (action -> JSM ())
-  -- ^ successful callback
-  -> (MisoString -> JSM ())
-  -- ^ errorful callback
-  -> JSM ()
-fetchJSON url method maybeBody headers successful errorful = do
-  successful_ <- toJSVal =<< do
-    asyncCallback1 $ \jval ->
-      fromJSON <$> fromJSValUnchecked jval >>= \case
-        Error string ->
-          error ("fetchJSON: " <> string <> ": decode failure")
-        Success result -> do
-          successful result
-  errorful_ <- toJSVal =<< do
-    asyncCallback1 $ \jval ->
-       errorful =<< fromJSValUnchecked jval
-  moduleMiso <- jsg "miso"
-  url_ <- toJSVal url
-  method_ <- toJSVal method
-  body_ <- toJSVal maybeBody
-  let jsonHeaders =
-        [(ms "Content-Type", ms "application/json") | isJust maybeBody]
-        <>
-        [(ms "Accept", ms "application/json")]
-  Object headers_ <- do
-    o <- create
-    forM_ (headers <> jsonHeaders) $ \(k,v) -> do
-      set k v o
-    pure o
-  void $ moduleMiso # "fetchJSON" $ [url_, method_, body_, headers_, successful_, errorful_]
------------------------------------------------------------------------------
 -- | shouldSync
 --
 -- Used to set whether or not the current VNode should enter the 'syncChildren'