lamassu/lamassu-server
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add lamassu-admin-elm to this repo (#185)

Browse source
This commit is contained in:
Rafael Taranto 2018-10-08 16:29:06 -03:00 • committed by Josh Harvey
parent 5ee7e40872
commit f4fc9d6328
134 changed files with 28171 additions and 83 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lamassu-admin-elm/src/AccountsDecoder.elm Normal file
View file

@ -0,0 +1,16 @@
module AccountsDecoder exposing (..)
import Json.Decode exposing (..)
accountDecoder : Decoder ( String, String )
accountDecoder =
map2 (,)
(field "code" string)
(field "display" string)
accountsDecoder : Decoder (List ( String, String ))
accountsDecoder =
map identity
(field "accounts" (list accountDecoder))