json.nix

let
  inherit (builtins) isAttrs typeOf toJSON;
  inherit ((import <nixpkgs> {}).lib) mapAttrsRecursive;
in rec {
  show = value: if typeOf value == "lambda" then "<LAMBDA>" else value; # XXX: Not sure how to discriminate between functions and 'PRIMOP'.
  json = value: toJSON (if ! isAttrs value then show value else mapAttrsRecursive (_: show) value);
}