Another hstore to JSON function by Andrew Dunstan

hstore_to_json.sql

create or replace function hstore_to_json(h hstore) returns text language sql
as $f$

   select '{' || array_to_string(array_agg(
          '"' || regexp_replace(key,E'[\\"]',E'\\\&','g') || '":' ||
          case
            when value is null then 'null'
            when value ~ '^true|false|(-?(0|[1-9]\d*)(\.\d+)?([eE][+-]?\d+)?)$' then value
            else '"' || regexp_replace(value,E'[\\"]',E'\\\&','g') || '"'
          end 
       ),',') || '}'
   from each($1)

$f$;