From 898e7ed11ab0958fcdaf65b99b33f7b04787630a Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 24 Sep 2017 22:14:48 +0200
Subject: Bootstrap with GHCJS and reflex:

- setup login and logout,
- first draft of payment view.
---
 src/client/Utils/Http.elm | 39 ---------------------------------------
 1 file changed, 39 deletions(-)
 delete mode 100644 src/client/Utils/Http.elm

(limited to 'src/client/Utils/Http.elm')

diff --git a/src/client/Utils/Http.elm b/src/client/Utils/Http.elm
deleted file mode 100644
index dd3870a..0000000
--- a/src/client/Utils/Http.elm
+++ /dev/null
@@ -1,39 +0,0 @@
-module Utils.Http exposing
-  ( jsonRequest
-  , request
-  , errorKey
-  )
-
-import Http exposing (..)
-import Task exposing (..)
-import Json.Decode as Decode exposing (Decoder, Value)
-import Json.Encode as Encode
-
-jsonRequest : String -> String -> Expect a -> (Result Error a -> msg) -> Encode.Value -> Cmd msg
-jsonRequest method url expect handleResult value =
-  requestWithBody method url (jsonBody value) expect handleResult
-
-request : String -> String -> Expect a -> (Result Error a -> msg) -> Cmd msg
-request method url = requestWithBody method url emptyBody
-
-requestWithBody : String -> String -> Body -> Expect a -> (Result Error a -> msg) -> Cmd msg
-requestWithBody method url body expect handleResult =
-  let req = Http.request
-              { method = method
-              , headers = []
-              , url = url
-              , body = body
-              , expect = expect
-              , timeout = Nothing
-              , withCredentials = False
-              }
-  in  send handleResult req
-
-errorKey : Error -> String
-errorKey error =
-  case error of
-    BadUrl _ -> "BadUrl"
-    Timeout -> "Timeout"
-    NetworkError -> "NetworkError"
-    BadPayload _ _ -> "BadPayload"
-    BadStatus response -> response.body
-- 
cgit v1.2.3