module Main(main) where

import Network.URI.Template

testEnv :: TemplateEnv
testEnv =
  addToEnv "searchTerm" "google" $
    addToEnv "type" "int" $
      addListToEnv "vals" ["a", "b", "a cd e"] $
       newEnv

main :: IO () 
main = do
  putStrLn (expand testEnv "http://google.com/q={searchTerm?}&{-join|&|type,searchTerm}")
  return ()