ahjones

module Parser where

data Token = Open_object | Close_object | Open_array | Close_array | List_delim |
             Assign_delim | Quote | String_literal String deriving (Show, Eq, Read)

data JsonElement = FullJsonArray [JsonElement] | StringValue String deriving (Show, Eq, Read)

tokens :: [(Char, Token)]
tokens = [
            ('{', Open_object),