Little JSON encoder

littlejsonencoder.elm

import String
import List


infixl 2 =>
(=>) = (,)

type Json 
  = Number Float 
  | String String
  | List (List Json)
  | Object (List (String, Json))
  
  
number : Float -> Json 
number = 
  Number
  
  
string : String -> Json 
string = 
  String
  
  
list : List Json -> Json 
list = 
  List 
  
  
object : List (String, Json) -> Json 
object = 
  Object
   
  
type alias Vector = 
  { x : Float , y : Float }
  
  
vector : Vector -> Json 
vector {x,y} = 
  object 
    [ "x" => number x 
    , "y" => number y 
    ]
    


jsonToString : Json -> String 
jsonToString json = 
  case json of 
    Number n -> 
      toString n 
      
    String s -> 
      toString s
      
    List list -> 
      list 
      |> List.map jsonToString 
      |> String.join ","
      |> \s -> "[" ++ s ++ "]"
      
    Object listOfFields -> 
      let 
          entry (key, value) = 
            toString key ++ " : " ++ jsonToString value
      in 
          listOfFields
          |> List.map entry 
          |> String.join ","
          |> \s -> "{" ++ s ++ "}"