Another hstore to JSON function by Andrew Dunstan

hs_2json.sql

create or replace function hs_2json(hs 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$;