kspeakman

module Combinators

// These are basic combinators that work with ASP.NET HttpContext.
// Feel free to add your own.
//
// most of this adapted from Giraffe v0.1.0-alpha025
// https://github.com/dustinmoris/Giraffe/blob/v0.1.0-alpha025/src/Giraffe/HttpHandlers.fs
// Some combinators adapted from Suave
// https://github.com/SuaveIO/suave
// Both projects are Apache 2.0 Licensed

kspeakman

module FileUtils exposing (..)

import Native.FileUtils
import Html exposing (..)
import Html.Events exposing (..)
import Http exposing (Body)
import Json.Decode as Json


type alias File =

kspeakman

-- Try to setup auto logout. But JWT parsing can fail in several ways.
--
-- Failure strategy:
--     1. Console log failure.
--     2. The fallback (not shown below) is to instruct the user to
--        manually log out and back in when we receive 401 Unauthorized.
--
--     TODO send failure to logging infrastructure.

notifyOnExpired : String -> Cmd Msg

kspeakman

port module Api exposing (..)

import JsonStuff exposing (ToJson, FromJson, getEncoder, getDecoder)
import Http

helpPostJson : String -> ToJson a msg -> FromJson b msg -> a -> Http.Request b
helpPostJson url toJson fromJson o =
    Http.request
        { method = "POST"
        , headers = []