toy toml parser in haskell