module SwitchData exposing (..)

import Iso8601
import Json.Decode exposing (Decoder, field, int, map5, nullable, string)
import Time exposing (Posix)
import Url.Builder as UB


type alias Switch =
    { id : String
    , who : String
    , started_at : Posix
    , ended_at : Maybe Posix
    , duration : Int
    }


decoder : Decoder Switch
decoder =
    map5 Switch
        (field "id" string)
        (field "who" string)
        (field "started_at" Iso8601.decoder)
        (field "ended_at" (nullable Iso8601.decoder))
        (field "duration" int)


dataURL : Int -> Int -> String
dataURL limit page =
    UB.absolute [ "switches" ] [ UB.int "limit" limit, UB.int "page" page ]