markdown_odd.elm

import Html exposing (text,div)
import Json.Encode
import Markdown

type alias R = List(String,String)

t = ("a","b")

r = [t,t]

s = "foo"

enc = encPair t

encPair : (String,String) -> Json.Encode.Value
encPair r = 
  let
    (a,b) = r
  in
    Json.Encode.object [(a, Json.Encode.string b)]
    
encLst : R -> Json.Encode.Value
encLst lst = 
  List.map (\x -> encPair x) lst |> Json.Encode.list
  
jMark : String -> String
jMark s = 
  "\n\n```" ++ s ++ "```"

main =
  div [] [
    text <| "Json Encoding" 
    , Markdown.toHtml [] (jMark (Json.Encode.encode 2 enc))
    , Markdown.toHtml [] (jMark (Json.Encode.encode 2 (encLst r)))
    ]