diff --git a/code-examples/agda/nix/sources.json b/code-examples/agda/nix/sources.json new file mode 100644 index 0000000..78fc3af --- /dev/null +++ b/code-examples/agda/nix/sources.json @@ -0,0 +1,35 @@ +{ + "emacs-overlay": { + "branch": "expose-emacsPgtkGccUnstable", + "owner": "o1lo01ol1o", + "rev": "6104d792ce40d590d812b33293aa5e2ca736aedf", + "sha256": "048ikadqqbk1frgbf7a8ji2kw1fhsvc52bimrca5n5mwp57q2apg", + "type": "tarball", + "url": "https://github.com/o1lo01ol1o/emacs-overlay/archive/6104d792ce40d590d812b33293aa5e2ca736aedf.tar.gz", + "url_template": "https://github.com/o1lo01ol1o/emacs-overlay/archive/6104d792ce40d590d812b33293aa5e2ca736aedf.tar.gz" + }, + "niv": { + "branch": "master", + "description": "Easy dependency management for Nix projects", + "homepage": "https://github.com/nmattia/niv", + "owner": "nmattia", + "repo": "niv", + "rev": "5830a4dd348d77e39a0f3c4c762ff2663b602d4c", + "sha256": "1d3lsrqvci4qz2hwjrcnd8h5vfkg8aypq3sjd4g3izbc8frwz5sm", + "type": "tarball", + "url": "https://github.com/nmattia/niv/archive/5830a4dd348d77e39a0f3c4c762ff2663b602d4c.tar.gz", + "url_template": "https://github.com///archive/.tar.gz" + }, + "nixpkgs": { + "branch": "release-21.11", + "description": "Nix Packages collection", + "homepage": "", + "owner": "NixOS", + "repo": "nixpkgs", + "rev": "00d17d8ddc4c12bae0cd750eb2bb51ee813a5301", + "sha256": "1n0dqvvjzq5iswdrn6hs3fsczy2cyd8d2riphnh8vsdkipc2nxxs", + "type": "tarball", + "url": "https://github.com/NixOS/nixpkgs/archive/00d17d8ddc4c12bae0cd750eb2bb51ee813a5301.tar.gz", + "url_template": "https://github.com///archive/.tar.gz" + } +} diff --git a/code-examples/agda/nix/sources.nix b/code-examples/agda/nix/sources.nix new file mode 100644 index 0000000..1938409 --- /dev/null +++ b/code-examples/agda/nix/sources.nix @@ -0,0 +1,174 @@ +# This file has been generated by Niv. + +let + + # + # The fetchers. fetch_ fetches specs of type . + # + + fetch_file = pkgs: name: spec: + let + name' = sanitizeName name + "-src"; + in + if spec.builtin or true then + builtins_fetchurl { inherit (spec) url sha256; name = name'; } + else + pkgs.fetchurl { inherit (spec) url sha256; name = name'; }; + + fetch_tarball = pkgs: name: spec: + let + name' = sanitizeName name + "-src"; + in + if spec.builtin or true then + builtins_fetchTarball { name = name'; inherit (spec) url sha256; } + else + pkgs.fetchzip { name = name'; inherit (spec) url sha256; }; + + fetch_git = name: spec: + let + ref = + if spec ? ref then spec.ref else + if spec ? branch then "refs/heads/${spec.branch}" else + if spec ? tag then "refs/tags/${spec.tag}" else + abort "In git source '${name}': Please specify `ref`, `tag` or `branch`!"; + in + builtins.fetchGit { url = spec.repo; inherit (spec) rev; inherit ref; }; + + fetch_local = spec: spec.path; + + fetch_builtin-tarball = name: throw + ''[${name}] The niv type "builtin-tarball" is deprecated. You should instead use `builtin = true`. + $ niv modify ${name} -a type=tarball -a builtin=true''; + + fetch_builtin-url = name: throw + ''[${name}] The niv type "builtin-url" will soon be deprecated. You should instead use `builtin = true`. + $ niv modify ${name} -a type=file -a builtin=true''; + + # + # Various helpers + # + + # https://github.com/NixOS/nixpkgs/pull/83241/files#diff-c6f540a4f3bfa4b0e8b6bafd4cd54e8bR695 + sanitizeName = name: + ( + concatMapStrings (s: if builtins.isList s then "-" else s) + ( + builtins.split "[^[:alnum:]+._?=-]+" + ((x: builtins.elemAt (builtins.match "\\.*(.*)" x) 0) name) + ) + ); + + # The set of packages used when specs are fetched using non-builtins. + mkPkgs = sources: system: + let + sourcesNixpkgs = + import (builtins_fetchTarball { inherit (sources.nixpkgs) url sha256; }) { inherit system; }; + hasNixpkgsPath = builtins.any (x: x.prefix == "nixpkgs") builtins.nixPath; + hasThisAsNixpkgsPath = == ./.; + in + if builtins.hasAttr "nixpkgs" sources + then sourcesNixpkgs + else if hasNixpkgsPath && ! hasThisAsNixpkgsPath then + import {} + else + abort + '' + Please specify either (through -I or NIX_PATH=nixpkgs=...) or + add a package called "nixpkgs" to your sources.json. + ''; + + # The actual fetching function. + fetch = pkgs: name: spec: + + if ! builtins.hasAttr "type" spec then + abort "ERROR: niv spec ${name} does not have a 'type' attribute" + else if spec.type == "file" then fetch_file pkgs name spec + else if spec.type == "tarball" then fetch_tarball pkgs name spec + else if spec.type == "git" then fetch_git name spec + else if spec.type == "local" then fetch_local spec + else if spec.type == "builtin-tarball" then fetch_builtin-tarball name + else if spec.type == "builtin-url" then fetch_builtin-url name + else + abort "ERROR: niv spec ${name} has unknown type ${builtins.toJSON spec.type}"; + + # If the environment variable NIV_OVERRIDE_${name} is set, then use + # the path directly as opposed to the fetched source. + replace = name: drv: + let + saneName = stringAsChars (c: if isNull (builtins.match "[a-zA-Z0-9]" c) then "_" else c) name; + ersatz = builtins.getEnv "NIV_OVERRIDE_${saneName}"; + in + if ersatz == "" then drv else + # this turns the string into an actual Nix path (for both absolute and + # relative paths) + if builtins.substring 0 1 ersatz == "/" then /. + ersatz else /. + builtins.getEnv "PWD" + "/${ersatz}"; + + # Ports of functions for older nix versions + + # a Nix version of mapAttrs if the built-in doesn't exist + mapAttrs = builtins.mapAttrs or ( + f: set: with builtins; + listToAttrs (map (attr: { name = attr; value = f attr set.${attr}; }) (attrNames set)) + ); + + # https://github.com/NixOS/nixpkgs/blob/0258808f5744ca980b9a1f24fe0b1e6f0fecee9c/lib/lists.nix#L295 + range = first: last: if first > last then [] else builtins.genList (n: first + n) (last - first + 1); + + # https://github.com/NixOS/nixpkgs/blob/0258808f5744ca980b9a1f24fe0b1e6f0fecee9c/lib/strings.nix#L257 + stringToCharacters = s: map (p: builtins.substring p 1 s) (range 0 (builtins.stringLength s - 1)); + + # https://github.com/NixOS/nixpkgs/blob/0258808f5744ca980b9a1f24fe0b1e6f0fecee9c/lib/strings.nix#L269 + stringAsChars = f: s: concatStrings (map f (stringToCharacters s)); + concatMapStrings = f: list: concatStrings (map f list); + concatStrings = builtins.concatStringsSep ""; + + # https://github.com/NixOS/nixpkgs/blob/8a9f58a375c401b96da862d969f66429def1d118/lib/attrsets.nix#L331 + optionalAttrs = cond: as: if cond then as else {}; + + # fetchTarball version that is compatible between all the versions of Nix + builtins_fetchTarball = { url, name ? null, sha256 }@attrs: + let + inherit (builtins) lessThan nixVersion fetchTarball; + in + if lessThan nixVersion "1.12" then + fetchTarball ({ inherit url; } // (optionalAttrs (!isNull name) { inherit name; })) + else + fetchTarball attrs; + + # fetchurl version that is compatible between all the versions of Nix + builtins_fetchurl = { url, name ? null, sha256 }@attrs: + let + inherit (builtins) lessThan nixVersion fetchurl; + in + if lessThan nixVersion "1.12" then + fetchurl ({ inherit url; } // (optionalAttrs (!isNull name) { inherit name; })) + else + fetchurl attrs; + + # Create the final "sources" from the config + mkSources = config: + mapAttrs ( + name: spec: + if builtins.hasAttr "outPath" spec + then abort + "The values in sources.json should not have an 'outPath' attribute" + else + spec // { outPath = replace name (fetch config.pkgs name spec); } + ) config.sources; + + # The "config" used by the fetchers + mkConfig = + { sourcesFile ? if builtins.pathExists ./sources.json then ./sources.json else null + , sources ? if isNull sourcesFile then {} else builtins.fromJSON (builtins.readFile sourcesFile) + , system ? builtins.currentSystem + , pkgs ? mkPkgs sources system + }: rec { + # The sources, i.e. the attribute set of spec name to spec + inherit sources; + + # The "pkgs" (evaluated nixpkgs) to use for e.g. non-builtin fetchers + inherit pkgs; + }; + +in +mkSources (mkConfig {}) // { __functor = _: settings: mkSources (mkConfig settings); } diff --git a/code-examples/agda/poly.agda-lib b/code-examples/agda/poly.agda-lib new file mode 100644 index 0000000..1f58d3b --- /dev/null +++ b/code-examples/agda/poly.agda-lib @@ -0,0 +1,4 @@ +name: poly +include: src +depend: standard-library +flags: diff --git a/code-examples/agda/shell.nix b/code-examples/agda/shell.nix new file mode 100644 index 0000000..7177c44 --- /dev/null +++ b/code-examples/agda/shell.nix @@ -0,0 +1,27 @@ +let + sources = import ./nix/sources.nix; + emacsOverlay = import sources.emacs-overlay; + pkgs = import sources.nixpkgs { overlays = [ emacsOverlay ]; }; + emacsPackages = pkgs.emacsPackagesNgGen pkgs.emacsPgtkGcc; + emacsWithPackages = emacsPackages.emacsWithPackages; + epkgs = emacsWithPackages (epkgs: [ epkgs.vterm ]); +in with pkgs; +mkShell { + buildInputs = [ + pkgs.emacsPgtkGcc # This will only work on WSL if you have the XServer configured corrrectly. Otherwise, use pkgs.emacs + pkgs.libtool + pkgs.ripgrep + pkgs.fd + # see: https://gist.github.com/ecthiender/b9db474e80113bdc18d472de1593eb3c + pkgs.haskellPackages.haskell-language-server + pkgs.haskellPackages.hlint + pkgs.haskellPackages.ormolu + pkgs.haskellPackages.ghcid + pkgs.haskellPackages.cabal-install + pkgs.haskellPackages.cabal-fmt + epkgs + pkgs.cmake + pkgs.nixfmt + (agda.withPackages (ps: [ ps.standard-library])) + ]; +} diff --git a/code-examples/agda/chu.agda b/code-examples/agda/src/chu.agda similarity index 100% rename from code-examples/agda/chu.agda rename to code-examples/agda/src/chu.agda diff --git a/code-examples/agda/chu/lens.agda b/code-examples/agda/src/chu/lens.agda similarity index 100% rename from code-examples/agda/chu/lens.agda rename to code-examples/agda/src/chu/lens.agda diff --git a/code-examples/agda/dyn.agda b/code-examples/agda/src/dyn.agda similarity index 96% rename from code-examples/agda/dyn.agda rename to code-examples/agda/src/dyn.agda index 6abec05..2d561cb 100644 --- a/code-examples/agda/dyn.agda +++ b/code-examples/agda/src/dyn.agda @@ -1,4 +1,5 @@ {-# OPTIONS --type-in-type #-} +{-# OPTIONS --guardedness #-} module dyn where open import prelude open import functors diff --git a/code-examples/agda/dyn/fib.agda b/code-examples/agda/src/dyn/fib.agda similarity index 93% rename from code-examples/agda/dyn/fib.agda rename to code-examples/agda/src/dyn/fib.agda index aff3686..5345656 100644 --- a/code-examples/agda/dyn/fib.agda +++ b/code-examples/agda/src/dyn/fib.agda @@ -1,4 +1,5 @@ {-# OPTIONS --type-in-type #-} +{-# OPTIONS --guardedness #-} module dyn.fib where open import prelude open import functors diff --git a/code-examples/agda/functors.agda b/code-examples/agda/src/functors.agda similarity index 100% rename from code-examples/agda/functors.agda rename to code-examples/agda/src/functors.agda diff --git a/code-examples/agda/poly/core.agda b/code-examples/agda/src/poly/core.agda similarity index 100% rename from code-examples/agda/poly/core.agda rename to code-examples/agda/src/poly/core.agda diff --git a/code-examples/agda/poly0.agda b/code-examples/agda/src/poly0.agda similarity index 100% rename from code-examples/agda/poly0.agda rename to code-examples/agda/src/poly0.agda diff --git a/code-examples/agda/prelude.agda b/code-examples/agda/src/prelude.agda similarity index 100% rename from code-examples/agda/prelude.agda rename to code-examples/agda/src/prelude.agda diff --git a/code-examples/agda/prelude/Stream.agda b/code-examples/agda/src/prelude/Stream.agda similarity index 91% rename from code-examples/agda/prelude/Stream.agda rename to code-examples/agda/src/prelude/Stream.agda index 87658d6..e872dcd 100644 --- a/code-examples/agda/prelude/Stream.agda +++ b/code-examples/agda/src/prelude/Stream.agda @@ -1,3 +1,4 @@ +{-# OPTIONS --guardedness #-} module prelude.Stream where open import prelude open import Data.List as L using (List) diff --git a/code-examples/agda/prelude/int.agda b/code-examples/agda/src/prelude/int.agda similarity index 100% rename from code-examples/agda/prelude/int.agda rename to code-examples/agda/src/prelude/int.agda diff --git a/code-examples/agda/prelude/io.agda b/code-examples/agda/src/prelude/io.agda similarity index 98% rename from code-examples/agda/prelude/io.agda rename to code-examples/agda/src/prelude/io.agda index 15439a7..b09dcd9 100644 --- a/code-examples/agda/prelude/io.agda +++ b/code-examples/agda/src/prelude/io.agda @@ -1,4 +1,5 @@ {-# OPTIONS --type-in-type #-} +{-# OPTIONS --guardedness #-} module prelude.io where open import prelude open import functors diff --git a/code-examples/agda/prelude/list.agda b/code-examples/agda/src/prelude/list.agda similarity index 100% rename from code-examples/agda/prelude/list.agda rename to code-examples/agda/src/prelude/list.agda