diff options
91 files changed, 4385 insertions, 1542 deletions
diff --git a/.dir-locals.el b/.dir-locals.el index 22aac2c402..e4947f5f10 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -35,6 +35,7 @@ (eval . (put 'modify-services 'scheme-indent-function 1)) (eval . (put 'with-directory-excursion 'scheme-indent-function 1)) (eval . (put 'with-file-lock 'scheme-indent-function 1)) + (eval . (put 'with-file-lock/no-wait 'scheme-indent-function 1)) (eval . (put 'package 'scheme-indent-function 0)) (eval . (put 'origin 'scheme-indent-function 0)) diff --git a/Makefile.am b/Makefile.am index b1f33946c5..b3f03d44c8 100644 --- a/Makefile.am +++ b/Makefile.am @@ -278,6 +278,7 @@ MODULES = \ guix/scripts/container.scm \ guix/scripts/container/exec.scm \ guix/scripts/deploy.scm \ + guix/scripts/time-machine.scm \ guix.scm \ $(GNU_SYSTEM_MODULES) diff --git a/doc/guix.texi b/doc/guix.texi index ed88778016..1fec43a228 100644 --- a/doc/guix.texi +++ b/doc/guix.texi @@ -198,6 +198,7 @@ Package Management * Invoking guix gc:: Running the garbage collector. * Invoking guix pull:: Fetching the latest Guix and distribution. * Channels:: Customizing the package collection. +* Invoking guix time-machine:: Running an older revision of Guix. * Inferiors:: Interacting with another revision of Guix. * Invoking guix describe:: Display information about your Guix revision. * Invoking guix archive:: Exporting and importing store files. @@ -2550,6 +2551,7 @@ guix install emacs-guix * Invoking guix gc:: Running the garbage collector. * Invoking guix pull:: Fetching the latest Guix and distribution. * Channels:: Customizing the package collection. +* Invoking guix time-machine:: Running an older revision of Guix. * Inferiors:: Interacting with another revision of Guix. * Invoking guix describe:: Display information about your Guix revision. * Invoking guix archive:: Exporting and importing store files. @@ -4152,7 +4154,10 @@ say, on another machine, by providing a channel specification in @end lisp The @command{guix describe --format=channels} command can even generate this -list of channels directly (@pxref{Invoking guix describe}). +list of channels directly (@pxref{Invoking guix describe}). The resulting +file can be used with the -C options of @command{guix pull} +(@pxref{Invoking guix pull}) or @command{guix time-machine} +(@pxref{Invoking guix time-machine}). At this point the two machines run the @emph{exact same Guix}, with access to the @emph{exact same packages}. The output of @command{guix build gimp} on @@ -4166,6 +4171,61 @@ artifacts with very fine grain, and to reproduce software environments at will---some sort of ``meta reproducibility'' capabilities, if you will. @xref{Inferiors}, for another way to take advantage of these super powers. +@node Invoking guix time-machine +@section Invoking @command{guix time-machine} + +@cindex @command{guix time-machine} +@cindex pinning, channels +@cindex replicating Guix +@cindex reproducibility, of Guix + +The @command{guix time-machine} command provides access to other +revisions of Guix, for example to install older versions of packages, +or to reproduce a computation in an identical environment. The revision +of Guix to be used is defined by a commit or by a channel +description file created by @command{guix describe} +(@pxref{Invoking guix describe}). + +The general syntax is: + +@example +guix time-machine @var{options}@dots{} -- @var{command} @var {arg}@dots{} +@end example + +where @var{command} and @var{arg}@dots{} are passed unmodified to the +@command{guix} command if the specified revision. The @var{options} that define +this revision are the same as for @command{guix pull} (@pxref{Invoking guix pull}): + +@table @code +@item --url=@var{url} +@itemx --commit=@var{commit} +@itemx --branch=@var{branch} +Use the @code{guix} channel from the specified @var{url}, at the +given @var{commit} (a valid Git commit ID represented as a hexadecimal +string), or @var{branch}. + +@item --channels=@var{file} +@itemx -C @var{file} +Read the list of channels from @var{file}. @var{file} must contain +Scheme code that evaluates to a list of channel objects. +@xref{Channels} for more information. +@end table + +As for @command{guix pull}, the absence of any options means that the +the latest commit on the master branch will be used. The command + +@example +guix time-machine -- build hello +@end example + +will thus build the package @code{hello} as defined in the master branch, +which is in general a newer revison of Guix than you have installed. +Time travel works in both directions! + +Note that @command{guix time-machine} can trigger builds of channels and +their dependencies, and these are controlled by the standard build +options (@pxref{Common Build Options}). + @node Inferiors @section Inferiors @@ -5193,6 +5253,10 @@ added to it or removed from it after extraction of the pack. One use case for this is the Guix self-contained binary tarball (@pxref{Binary Installation}). +@item --derivation +@itemx -d +Print the name of the derivation that builds the pack. + @item --bootstrap Use the bootstrap binaries to build the pack. This option is only useful to Guix developers. @@ -10589,7 +10653,6 @@ ClientPID: 19419 ClientCommand: cuirass --cache-directory /var/cache/cuirass @dots{} @end example - @node System Configuration @chapter System Configuration @@ -20243,7 +20306,7 @@ the corresponding user and/or group is present on the system. It is possible to configure a FastCGI-backed web service to pass HTTP authentication information from the front-end to the back-end, and to allow @code{fcgiwrap} to run the back-end process as a corresponding -local user. To enable this capability on the back-end., run +local user. To enable this capability on the back-end, run @code{fcgiwrap} as the @code{root} user and group. Note that this capability also has to be configured on the front-end as well. @end table @@ -20305,7 +20368,7 @@ once the service has started. Log for the php-fpm master process. @item @code{process-manager} (default: @code{(php-fpm-dynamic-process-manager-configuration)}) Detailed settings for the php-fpm process manager. -Must be either: +Must be one of: @table @asis @item @code{<php-fpm-dynamic-process-manager-configuration>} @item @code{<php-fpm-static-process-manager-configuration>} @@ -20383,7 +20446,7 @@ A simple services setup for nginx with php can look like this: (server-name '("example.com")) (root "/srv/http/") (locations - (list (nginx-php-location))) + (list (nginx-php-fpm-location))) (listen '("80")) (ssl-certificate #f) (ssl-certificate-key #f))) @@ -26223,8 +26286,8 @@ with an @code{environment} of @code{managed-host-environment-type}. @item @code{build-locally?} (default: @code{#t}) If false, system derivations will be built on the machine being deployed to. @item @code{system} -The Nix system type describing the architecture of the machine being deployed -to. This should look something like ``x86_64-linux''. +The system type describing the architecture of the machine being deployed +to---e.g., @code{"x86_64-linux"}. @item @code{authorize?} (default: @code{#t}) If true, the coordinator's signing key will be added to the remote's ACL keyring. diff --git a/etc/news.scm b/etc/news.scm index b04e24a589..71753b397a 100644 --- a/etc/news.scm +++ b/etc/news.scm @@ -9,6 +9,24 @@ (channel-news (version 0) + (entry (commit "f675f8dec73d02e319e607559ed2316c299ae8c7") + (title (en "New command @command{guix time-machine}") + (de "Neuer Befehl @command{guix time-machine}") + (fr "Nouvelle commande @command{guix time-machine}")) + (body (en "The new command @command{guix time-machine} facilitates +access to older or newer revisions of Guix than the one that is installed. +It can be used to install different versions of packages, and to +re-create computational environments exactly as used in the past.") + (de "Der neue Befehl @command{guix time-machine} vereinfacht +den Zugriff auf ältere oder neuere Guix-Versionen als die installierte. +Er kann zur Installation bestimmter Paketversionen verwendet werden, aber +auch zur Wiederherstellung von Entwicklungsumgebungen, wie sie in der +Vergangenheit verwendet wurden.") + (fr "La nouvelle commande @command{guix time-machine} +facilite l'accès à des versions antérieures ou postérieures par rapport +à la version installée. Elle sert à installer des versions spécifiques +de paquets, ainsi à la restauration d'environnements dans un état +historique."))) (entry (commit "3e962e59d849e4300e447d94487684102d9d412e") (title (en "@command{guix graph} now supports package transformations") diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm index 8bb10d574d..cb90fa0907 100644 --- a/gnu/build/file-systems.scm +++ b/gnu/build/file-systems.scm @@ -581,11 +581,7 @@ corresponds to the symbols listed in FLAGS." 0)))) (define* (mount-file-system fs #:key (root "/root")) - "Mount the file system described by FS, a <file-system> object, under ROOT. - -DEVICE, MOUNT-POINT, and TYPE must be strings; OPTIONS can be a string or #f; -FLAGS must be a list of symbols. CHECK? is a Boolean indicating whether to -run a file system check." + "Mount the file system described by FS, a <file-system> object, under ROOT." (define (mount-nfs source mount-point type flags options) (let* ((idx (string-rindex source #\:)) diff --git a/gnu/build/linux-boot.scm b/gnu/build/linux-boot.scm index 84a5447977..950a3507f2 100644 --- a/gnu/build/linux-boot.scm +++ b/gnu/build/linux-boot.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> +;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -357,15 +358,16 @@ the last argument of `mknod'." (filter-map string->number (scandir "/proc"))))) (define* (mount-root-file-system root type - #:key volatile-root?) + #:key volatile-root? options) "Mount the root file system of type TYPE at device ROOT. If VOLATILE-ROOT? is true, mount ROOT read-only and make it an overlay with a writable tmpfs -using the kernel built-in overlayfs." +using the kernel built-in overlayfs. OPTIONS indicates the options to use +to mount ROOT." (if volatile-root? (begin (mkdir-p "/real-root") - (mount root "/real-root" type MS_RDONLY) + (mount root "/real-root" type MS_RDONLY options) (mkdir-p "/rw-root") (mount "none" "/rw-root" "tmpfs") @@ -382,7 +384,7 @@ using the kernel built-in overlayfs." "lowerdir=/real-root,upperdir=/rw-root/upper,workdir=/rw-root/work")) (begin (check-file-system root type) - (mount root "/root" type))) + (mount root "/root" type 0 options))) ;; Make sure /root/etc/mtab is a symlink to /proc/self/mounts. (false-if-exception @@ -472,83 +474,90 @@ upon error." mounts) "ext4")) + (define root-fs-options + (any (lambda (fs) + (and (root-mount-point? fs) + (file-system-options fs))) + mounts)) + (display "Welcome, this is GNU's early boot Guile.\n") (display "Use '--repl' for an initrd REPL.\n\n") (call-with-error-handling - (lambda () - (mount-essential-file-systems) - (let* ((args (linux-command-line)) - (to-load (find-long-option "--load" args)) - (root (find-long-option "--root" args))) - - (when (member "--repl" args) - (start-repl)) - - (display "loading kernel modules...\n") - (load-linux-modules-from-directory linux-modules - linux-module-directory) - - (when keymap-file - (let ((status (system* "loadkeys" keymap-file))) - (unless (zero? status) - ;; Emit a warning rather than abort when we cannot load - ;; KEYMAP-FILE. - (format (current-error-port) - "warning: 'loadkeys' exited with status ~a~%" - status)))) - - (when qemu-guest-networking? - (unless (configure-qemu-networking) - (display "network interface is DOWN\n"))) - - ;; Prepare the real root file system under /root. - (unless (file-exists? "/root") - (mkdir "/root")) - - (when (procedure? pre-mount) - ;; Do whatever actions are needed before mounting the root file - ;; system--e.g., installing device mappings. Error out when the - ;; return value is false. - (unless (pre-mount) - (error "pre-mount actions failed"))) - - (setenv "EXT2FS_NO_MTAB_OK" "1") - - (if root - ;; The "--root=SPEC" kernel command-line option always provides a - ;; string, but the string can represent a device, a UUID, or a - ;; label. So check for all three. - (let ((root (cond ((string-prefix? "/" root) root) - ((uuid root) => identity) - (else (file-system-label root))))) - (mount-root-file-system (canonicalize-device-spec root) - root-fs-type - #:volatile-root? volatile-root?)) - (mount "none" "/root" "tmpfs")) - - ;; Mount the specified file systems. - (for-each mount-file-system - (remove root-mount-point? mounts)) - - (setenv "EXT2FS_NO_MTAB_OK" #f) - - (if to-load - (begin - (switch-root "/root") - (format #t "loading '~a'...\n" to-load) - - (primitive-load to-load) - - (format (current-error-port) - "boot program '~a' terminated, rebooting~%" - to-load) - (sleep 2) - (reboot)) - (begin - (display "no boot file passed via '--load'\n") - (display "entering a warm and cozy REPL\n") - (start-repl))))) - #:on-error on-error)) + (lambda () + (mount-essential-file-systems) + (let* ((args (linux-command-line)) + (to-load (find-long-option "--load" args)) + (root (find-long-option "--root" args))) + + (when (member "--repl" args) + (start-repl)) + + (display "loading kernel modules...\n") + (load-linux-modules-from-directory linux-modules + linux-module-directory) + + (when keymap-file + (let ((status (system* "loadkeys" keymap-file))) + (unless (zero? status) + ;; Emit a warning rather than abort when we cannot load + ;; KEYMAP-FILE. + (format (current-error-port) + "warning: 'loadkeys' exited with status ~a~%" + status)))) + + (when qemu-guest-networking? + (unless (configure-qemu-networking) + (display "network interface is DOWN\n"))) + + ;; Prepare the real root file system under /root. + (unless (file-exists? "/root") + (mkdir "/root")) + + (when (procedure? pre-mount) + ;; Do whatever actions are needed before mounting the root file + ;; system--e.g., installing device mappings. Error out when the + ;; return value is false. + (unless (pre-mount) + (error "pre-mount actions failed"))) + + (setenv "EXT2FS_NO_MTAB_OK" "1") + + (if root + ;; The "--root=SPEC" kernel command-line option always provides a + ;; string, but the string can represent a device, a UUID, or a + ;; label. So check for all three. + (let ((root (cond ((string-prefix? "/" root) root) + ((uuid root) => identity) + (else (file-system-label root))))) + (mount-root-file-system (canonicalize-device-spec root) + root-fs-type + #:volatile-root? volatile-root? + #:options root-fs-options)) + (mount "none" "/root" "tmpfs")) + + ;; Mount the specified file systems. + (for-each mount-file-system + (remove root-mount-point? mounts)) + + (setenv "EXT2FS_NO_MTAB_OK" #f) + + (if to-load + (begin + (switch-root "/root") + (format #t "loading '~a'...\n" to-load) + + (primitive-load to-load) + + (format (current-error-port) + "boot program '~a' terminated, rebooting~%" + to-load) + (sleep 2) + (reboot)) + (begin + (display "no boot file passed via '--load'\n") + (display "entering a warm and cozy REPL\n") + (start-repl))))) + #:on-error on-error)) ;;; linux-initrd.scm ends here diff --git a/gnu/local.mk b/gnu/local.mk index f394b2f24f..e2c5884ff1 100644 --- a/gnu/local.mk +++ b/gnu/local.mk @@ -796,7 +796,6 @@ dist_patch_DATA = \ %D%/packages/patches/elixir-path-length.patch \ %D%/packages/patches/elm-compiler-disable-reactor.patch \ %D%/packages/patches/elm-compiler-fix-map-key.patch \ - %D%/packages/patches/elm-compiler-relax-glsl-bound.patch \ %D%/packages/patches/emacs-dired-toggle-sudo-emacs-26.patch \ %D%/packages/patches/emacs-exec-path.patch \ %D%/packages/patches/emacs-fix-scheme-indent-function.patch \ @@ -878,8 +877,14 @@ dist_patch_DATA = \ %D%/packages/patches/gd-freetype-test-failure.patch \ %D%/packages/patches/geoclue-config.patch \ %D%/packages/patches/ghc-8.0-fall-back-to-madv_dontneed.patch \ + %D%/packages/patches/ghc-diff-swap-cover-args.patch \ %D%/packages/patches/ghc-dont-pass-linker-flags-via-response-files.patch \ - %D%/packages/patches/ghc-haddock-library-unbundle.patch \ + %D%/packages/patches/ghc-haddock-api-fix-haddock.patch \ + %D%/packages/patches/ghc-hpack-fix-tests.patch \ + %D%/packages/patches/ghc-microlens-aeson-fix-tests.patch \ + %D%/packages/patches/ghc-monad-par-fix-tests.patch \ + %D%/packages/patches/ghc-pandoc-fix-html-tests.patch \ + %D%/packages/patches/ghc-pandoc-fix-latex-test.patch \ %D%/packages/patches/ghostscript-no-header-id.patch \ %D%/packages/patches/ghostscript-no-header-uuid.patch \ %D%/packages/patches/ghostscript-no-header-creationdate.patch \ @@ -972,6 +977,7 @@ dist_patch_DATA = \ %D%/packages/patches/hdf-eos5-remove-gctp.patch \ %D%/packages/patches/hdf-eos5-fix-szip.patch \ %D%/packages/patches/hdf-eos5-fortrantests.patch \ + %D%/packages/patches/hexchat-crash-exit.patch \ %D%/packages/patches/higan-remove-march-native-flag.patch \ %D%/packages/patches/hubbub-sort-entities.patch \ %D%/packages/patches/hurd-fix-eth-multiplexer-dependency.patch \ @@ -1133,6 +1139,8 @@ dist_patch_DATA = \ %D%/packages/patches/metabat-fix-compilation.patch \ %D%/packages/patches/mhash-keygen-test-segfault.patch \ %D%/packages/patches/mingw-w64-6.0.0-gcc.patch \ + %D%/packages/patches/minisat-friend-declaration.patch \ + %D%/packages/patches/minisat-install.patch \ %D%/packages/patches/mpc123-initialize-ao.patch \ %D%/packages/patches/module-init-tools-moduledir.patch \ %D%/packages/patches/monero-use-system-miniupnpc.patch \ @@ -1269,6 +1277,8 @@ dist_patch_DATA = \ %D%/packages/patches/python-3-deterministic-build-info.patch \ %D%/packages/patches/python-3-search-paths.patch \ %D%/packages/patches/python-3-fix-tests.patch \ + %D%/packages/patches/python-3.8-search-paths.patch \ + %D%/packages/patches/python-3.8-fix-tests.patch \ %D%/packages/patches/python-CVE-2018-14647.patch \ %D%/packages/patches/python-axolotl-AES-fix.patch \ %D%/packages/patches/python-cairocffi-dlopen-path.patch \ @@ -1390,11 +1400,13 @@ dist_patch_DATA = \ %D%/packages/patches/tk-find-library.patch \ %D%/packages/patches/ttf2eot-cstddef.patch \ %D%/packages/patches/ttfautohint-source-date-epoch.patch \ + %D%/packages/patches/tomb-fix-errors-on-open.patch \ %D%/packages/patches/totem-meson-compat.patch \ %D%/packages/patches/totem-meson-easy-codec.patch \ %D%/packages/patches/tuxpaint-stamps-path.patch \ %D%/packages/patches/txr-shell.patch \ %D%/packages/patches/u-boot-fix-mkimage-header-verification.patch \ + %D%/packages/patches/ucx-tcp-iface-ioctl.patch \ %D%/packages/patches/udiskie-no-appindicator.patch \ %D%/packages/patches/unzip-CVE-2014-8139.patch \ %D%/packages/patches/unzip-CVE-2014-8140.patch \ diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index c4723c5a9d..761b26a8d6 100644 --- a/gnu/packages/admin.scm +++ b/gnu/packages/admin.scm @@ -689,7 +689,7 @@ connection alive.") (define-public isc-dhcp (let* ((bind-major-version "9") (bind-minor-version "11") - (bind-patch-version "11") + (bind-patch-version "13") (bind-release-type "") ; for patch release, use "-P" (bind-release-version "") ; for patch release, e.g. "6" (bind-version (string-append bind-major-version @@ -830,7 +830,7 @@ connection alive.") "/bind-" bind-version ".tar.gz")) (sha256 (base32 - "0swavslyli3vcrkcm2ip11s6p58g3k7r4gjs2b899r25cqrk0lk1")))) + "0z8g81xinqx8j3y2fclxa31dq7zsi9cj9srmvd9agnpwzk4kqgzx")))) ;; When cross-compiling, we need the cross Coreutils and sed. ;; Otherwise just use those from %FINAL-INPUTS. diff --git a/gnu/packages/agda.scm b/gnu/packages/agda.scm index 931f1e8ef7..60944ddb04 100644 --- a/gnu/packages/agda.scm +++ b/gnu/packages/agda.scm @@ -37,7 +37,7 @@ (define-public agda (package (name "agda") - (version "2.5.4.2") + (version "2.6.0.1") (source (origin (method url-fetch) @@ -46,10 +46,11 @@ version ".tar.gz")) (sha256 (base32 - "07wvawpfjhx3gw2w53v27ncv1bl0kkx08wkm6wzxldbslkcasign")))) + "1s600ry1qwizr3ynyj05rvlx7jdcw9a1viyc0ycjamm5sjf8mf3v")))) (build-system haskell-build-system) (inputs - `(("ghc-alex" ,ghc-alex) + `(("ghc-aeson" ,ghc-aeson) + ("ghc-alex" ,ghc-alex) ("ghc-async" ,ghc-async) ("ghc-blaze-html" ,ghc-blaze-html) ("ghc-boxes" ,ghc-boxes) @@ -57,6 +58,7 @@ ("ghc-edisoncore" ,ghc-edisoncore) ("ghc-edit-distance" ,ghc-edit-distance) ("ghc-equivalence" ,ghc-equivalence) + ("ghc-exceptions" ,ghc-exceptions) ("ghc-filemanip" ,ghc-filemanip) ("ghc-geniplate-mirror" ,ghc-geniplate-mirror) ("ghc-gitrev" ,ghc-gitrev) @@ -66,7 +68,6 @@ ("ghc-ieee754" ,ghc-ieee754) ("ghc-murmur-hash" ,ghc-murmur-hash) ("ghc-uri-encode" ,ghc-uri-encode) - ("ghc-parallel" ,ghc-parallel) ("ghc-regex-tdfa" ,ghc-regex-tdfa) ("ghc-strict" ,ghc-strict) ("ghc-unordered-containers" ,ghc-unordered-containers) diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm index d59b4eb87e..a070377d49 100644 --- a/gnu/packages/audio.scm +++ b/gnu/packages/audio.scm @@ -24,6 +24,7 @@ ;;; Copyright © 2019 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2019 Alexandros Theodotou <alex@zrythm.org> +;;; Copyright © 2019 Christopher Lemmer Webber <cwebber@dustycloud.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -3811,3 +3812,102 @@ therefore satisfying any requirements they may have to be self contained, as is the case with audio plugins.") (home-page "https://gitlab.com/geontime/redkite") (license license:gpl3+))) + +(define-public carla + (package + (name "carla") + (version "2.0.0") + (source + (origin + (method git-fetch) + (uri + (git-reference + (url "https://github.com/falkTX/Carla.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0fqgncqlr86n38yy7pa118mswfacmfczj7w9xx6c6k0jav3wk29k")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ; no "check" target + #:make-flags + (list (string-append "PREFIX=" (assoc-ref %outputs "out"))) + #:phases + (modify-phases %standard-phases + (add-before 'build 'set-CC-variable-and-show-features + (lambda _ + (setenv "CC" "gcc") + (invoke "make" "features"))) + (delete 'configure)))) + (inputs + `(("alsa-lib" ,alsa-lib) + ("ffmpeg" ,ffmpeg) + ("fluidsynth" ,fluidsynth) + ("file" ,file) + ("liblo" ,liblo) + ("libsndfile" ,libsndfile) + ("gtk+" ,gtk+) + ("python-pyliblo" ,python-pyliblo) + ("python-pyqt" ,python-pyqt) + ("python-rdflib" ,python-rdflib) + ;; python-pyqt shows the following error without python-wrapper: + ;; Error while finding module specification for 'PyQt5.uic.pyuic' + ;; (ModuleNotFoundError: No module named 'PyQt5') + ("python-wrapper" ,python-wrapper) + ("libx11" ,libx11) + ("qtbase" ,qtbase) + ("zlib" ,zlib))) + (native-inputs + `(("pkg-config" ,pkg-config))) + (home-page "https://kx.studio/Applications:Carla") + (synopsis "Audio plugin host") + (description "Carla is a modular audio plugin host, with features like +transport control, automation of parameters via MIDI CC and remote control +over OSC. Carla currently supports LADSPA (including LRDF), DSSI, LV2, VST2, +and VST3 plugin formats, plus SF2 and SFZ file support. It uses JACK as the +default and preferred audio driver but also supports native drivers like ALSA.") + (license license:gpl2+))) + +(define-public ecasound + (package + (name "ecasound") + (version "2.9.2") + (source (origin + (method url-fetch) + (uri (string-append "http://nosignal.fi/download/ecasound-" + version ".tar.gz")) + (sha256 + (base32 "15rcs28fq2wfvfs66p5na7adq88b55qszbhshpizgdbyqzgr2jf1")))) + (build-system gnu-build-system) + (native-inputs `(("pkg-config" ,pkg-config))) + ;; would be nice to add mikmod to inputs if that gets packaged + ;; eventually + (inputs `(("alsa-lib" ,alsa-lib) + ("jack" ,jack-1) + ("mpg123" ,mpg123) + ("lame" ,lame) + ("vorbis-tools" ,vorbis-tools) + ("faad2" ,faad2) + ("flac" ,flac) + ("timidity++" ,timidity++) + ("libsndfile" ,libsndfile) + ("libsamplerate" ,libsamplerate) + ("ncurses" ,ncurses) + ("ladspa" ,ladspa) + ("lilv" ,lilv))) + (home-page "http://nosignal.fi/ecasound/index.php") + (synopsis "Multitrack audio processing") + (description "Ecasound is a software package designed for multitrack audio +processing. It can be used for simple tasks like audio playback, recording and +format conversions, as well as for multitrack effect processing, mixing, +recording and signal recycling. Ecasound supports a wide range of audio inputs, +outputs and effect algorithms. Effects and audio objects can be combined in +various ways, and their parameters can be controlled by operator objects like +oscillators and MIDI-CCs. A versatile console mode user-interface is included +in the package.") + ;; As an exception to the above, the C, C++ and python implementations + ;; of the Ecasound Control Interface (ECI) are licensed under the LGPL + ;; (see the file 'COPYING.LGPL'). This allows writing ECI applications + ;; that are not licensed under GPL. + (license (list license:gpl2 license:lgpl2.1)))) diff --git a/gnu/packages/aux-files/emacs/guix-emacs.el b/gnu/packages/aux-files/emacs/guix-emacs.el index 9a49e8861c..46ee557f20 100644 --- a/gnu/packages/aux-files/emacs/guix-emacs.el +++ b/gnu/packages/aux-files/emacs/guix-emacs.el @@ -2,6 +2,7 @@ ;; Copyright © 2014, 2015, 2016, 2017 Alex Kost <alezost@gmail.com> ;; Copyright © 2017 Kyle Meyer <kyle@kyleam.com> +;; Copyright © 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;; This file is part of GNU Guix. @@ -24,91 +25,40 @@ ;; installed with Guix. ;;; Code: - -(require 'cl-lib) - -(defvar guix-user-profile (expand-file-name "~/.guix-profile")) - -(defvar guix-emacs-autoloads nil - "List of the last loaded Emacs autoloads.") +(require 'seq) (defvar guix-emacs-autoloads-regexp - (rx (group (* any) "-autoloads") - ".el" (zero-or-one "c") string-end) + (rx (* any) "-autoloads.el" (zero-or-one "c") string-end) "Regexp to match Emacs 'autoloads' file.") -(defun guix-emacs-directory (&optional profile) - "Return directory with Emacs packages installed in PROFILE. -If PROFILE is nil, use `guix-user-profile'." - (expand-file-name "share/emacs/site-lisp" - (or profile guix-user-profile))) - (defun guix-emacs-find-autoloads (directory) "Return a list of Emacs 'autoloads' files in DIRECTORY. The files in the list do not have extensions (.el, .elc)." - (cl-remove-duplicates - (delq nil - (mapcar (lambda (file) - (when (string-match guix-emacs-autoloads-regexp file) - (match-string 1 file))) - (directory-files directory 'full-name nil 'no-sort))) - :test #'string=)) - -(defun guix-emacs-subdirs (directory) - "Return list of DIRECTORY subdirectories." - (cl-remove-if (lambda (file) - (or (string-match-p (rx "/." string-end) file) - (string-match-p (rx "/.." string-end) file) - (not (file-directory-p file)))) - (directory-files directory 'full-name nil 'no-sort))) - -(defun guix-emacs-directories (&optional profile) - "Return the list of directories under PROFILE that contain Emacs packages. -This includes both `share/emacs/site-lisp/guix.d/PACKAGE' -sub-directories and `share/emacs/site-lisp' itself. - -If PROFILE is nil, use `guix-user-profile'. -Return nil, if Emacs packages are not installed in PROFILE." - (let ((root-dir (guix-emacs-directory (or profile guix-user-profile)))) - (when (file-directory-p root-dir) - (let* ((pkgs-dir (expand-file-name "guix.d" root-dir)) - (pkgs-dirs (when (file-directory-p pkgs-dir) - (guix-emacs-subdirs pkgs-dir)))) - (cons root-dir pkgs-dirs))))) + ;; `directory-files' doesn't honor group in regexp. + (mapcar #'file-name-sans-extension + (directory-files directory 'full-name guix-emacs-autoloads-regexp))) ;;;###autoload -(defun guix-emacs-autoload-packages (&rest profiles) - "Autoload Emacs packages installed in PROFILES. -If PROFILES are not specified, use a default user and system -profiles. +(defun guix-emacs-autoload-packages () + "Autoload Emacs packages found in EMACSLOADPATH. -'Autoload' means add directories with Emacs packages to -`load-path' and load 'autoloads' files matching +'Autoload' means to load the 'autoloads' files matching `guix-emacs-autoloads-regexp'." - (interactive (list (if (fboundp 'guix-read-package-profile) - (funcall 'guix-read-package-profile) - guix-user-profile))) - (let* ((env (getenv "GUIX_ENVIRONMENT")) - (profiles (or profiles - (append (list "/run/current-system/profile" - guix-user-profile) - (and env (list env)))))) - (dolist (profile profiles) - (let ((dirs (guix-emacs-directories profile))) - (when dirs - (let* ((autoloads (cl-mapcan #'guix-emacs-find-autoloads - dirs)) - (new-autoloads (cl-nset-difference autoloads - guix-emacs-autoloads - :test #'string=))) - (dolist (dir dirs) - (cl-pushnew (directory-file-name dir) - load-path - :test #'string=)) - (dolist (file new-autoloads) - (load file 'noerror)) - (setq guix-emacs-autoloads - (append new-autoloads guix-emacs-autoloads)))))))) + ;; FIXME: The autoloads generated by the emacs-build-system are not byte + ;; compiled. + (interactive) + (let* ((emacs-load-path (getenv "EMACSLOADPATH")) + (emacs-non-core-load-path-directories + ;; Filter out core Elisp directories, which are already autoloaded + ;; by Emacs. + (seq-filter (lambda (dir) + (string-match-p "/share/emacs/site-lisp" dir)) + (split-string emacs-load-path ":"))) + (autoloads (mapcan #'guix-emacs-find-autoloads + emacs-non-core-load-path-directories))) + (mapc (lambda (f) + (load f 'noerror)) + autoloads))) (provide 'guix-emacs) diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm index 01566d37df..8c01386821 100644 --- a/gnu/packages/bioinformatics.scm +++ b/gnu/packages/bioinformatics.scm @@ -13891,7 +13891,7 @@ datasets.") (define-public ngless (package (name "ngless") - (version "0.9.1") + (version "1.0.1") (source (origin (method git-fetch) @@ -13901,7 +13901,7 @@ datasets.") (file-name (git-file-name name version)) (sha256 (base32 - "0mc2gi7h4lx74zylvyp76mvc0w6706j858ii9vlgzqsw6acpr117")))) + "06ygv8q2zjqsnrid1302yrlhhvb8ik48nq6n0higk3i1mdc8r0dg")))) (build-system haskell-build-system) (arguments `(#:haddock? #f ; The haddock phase fails with: NGLess/CmdArgs.hs:20:1: @@ -13909,7 +13909,24 @@ datasets.") ; import Options.Applicative #:phases (modify-phases %standard-phases - (add-after 'unpack 'create-cabal-file + (add-after 'unpack 'create-Versions.hs + (lambda _ + (substitute* "Makefile" + (("BWA_VERSION = .*") + (string-append "BWA_VERSION = " + ,(package-version bwa) "\n")) + (("SAM_VERSION = .*") + (string-append "SAM_VERSION = " + ,(package-version samtools) "\n")) + (("PRODIGAL_VERSION = .*") + (string-append "PRODIGAL_VERSION = " + ,(package-version prodigal) "\n")) + (("MINIMAP2_VERSION = .*") + (string-append "MINIMAP2_VERSION = " + ,(package-version minimap2) "\n"))) + (invoke "make" "NGLess/Dependencies/Versions.hs") + #t)) + (add-after 'create-Versions.hs 'create-cabal-file (lambda _ (invoke "hpack") #t)) ;; These tools are expected to be installed alongside ngless. (add-after 'install 'link-tools @@ -13938,15 +13955,15 @@ datasets.") ("ghc-async" ,ghc-async) ("ghc-atomic-write" ,ghc-atomic-write) ("ghc-bytestring-lexing" ,ghc-bytestring-lexing) - ("ghc-chart" ,ghc-chart) - ("ghc-chart-cairo" ,ghc-chart-cairo) ("ghc-conduit" ,ghc-conduit) ("ghc-conduit-algorithms" ,ghc-conduit-algorithms) - ("ghc-conduit-combinators" ,ghc-conduit-combinators) ("ghc-conduit-extra" ,ghc-conduit-extra) ("ghc-configurator" ,ghc-configurator) ("ghc-convertible" ,ghc-convertible) ("ghc-data-default" ,ghc-data-default) + ("ghc-diagrams-core" ,ghc-diagrams-core) + ("ghc-diagrams-lib" ,ghc-diagrams-lib) + ("ghc-diagrams-svg" ,ghc-diagrams-svg) ("ghc-double-conversion" ,ghc-double-conversion) ("ghc-edit-distance" ,ghc-edit-distance) ("ghc-either" ,ghc-either) @@ -13967,6 +13984,7 @@ datasets.") ("ghc-safeio" ,ghc-safeio) ("ghc-strict" ,ghc-strict) ("ghc-tar" ,ghc-tar) + ("ghc-tar-conduit" ,ghc-tar-conduit) ("ghc-unliftio" ,ghc-unliftio) ("ghc-unliftio-core" ,ghc-unliftio-core) ("ghc-vector" ,ghc-vector) diff --git a/gnu/packages/cedille.scm b/gnu/packages/cedille.scm index caa3d864f8..80ed7e9759 100644 --- a/gnu/packages/cedille.scm +++ b/gnu/packages/cedille.scm @@ -44,7 +44,7 @@ (inputs `(("agda" ,agda) ("agda-ial" ,agda-ial) - ("ghc" ,ghc-8.4) + ("ghc" ,ghc) ("ghc-alex" ,ghc-alex) ("ghc-happy" ,ghc-happy))) (build-system emacs-build-system) diff --git a/gnu/packages/chemistry.scm b/gnu/packages/chemistry.scm index b6345b9d27..3bdd406a47 100644 --- a/gnu/packages/chemistry.scm +++ b/gnu/packages/chemistry.scm @@ -243,13 +243,14 @@ analogy is that InChI is the bar-code for chemistry and chemical structures.") (version "3.0.11") (source (origin - (method url-fetch) - (uri (string-append "https://bitbucket.org/khinsen/" - "nmoldyn3/downloads/nMOLDYN-" - version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/khinsen/nMOLDYN3") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) (sha256 (base32 - "1mvmz3lkr217kdrd8cvdr1d82y58wp1403c9rnd943mijgq8xb5a")))) + "016h4bqg419p6s7bcx55q5iik91gqmk26hbnfgj2j6zl0j36w51r")))) (build-system python-build-system) (inputs `(("python-matplotlib" ,(with-numpy-1.8 python2-matplotlib)) diff --git a/gnu/packages/chromium.scm b/gnu/packages/chromium.scm index 225a301a65..9d194de0e6 100644 --- a/gnu/packages/chromium.scm +++ b/gnu/packages/chromium.scm @@ -242,8 +242,8 @@ from forcing GEXP-PROMISE." #:system system #:guile-for-build guile))) -(define %chromium-version "78.0.3904.97") -(define %ungoogled-revision "acaf16383f264d8a2f24142ad054c9b4355771d3") +(define %chromium-version "78.0.3904.108") +(define %ungoogled-revision "8f065138317a6152b20decc224027a5192ba76b1") (define %debian-revision "e43d74632091324774a5049668782dba7b09cf72") (define package-revision "0") (define %package-version (string-append %chromium-version "-" @@ -258,7 +258,7 @@ from forcing GEXP-PROMISE." %chromium-version ".tar.xz")) (sha256 (base32 - "01wx5bi397d80za0sdfwgfbjj6n2ad2i31zmcrhm6wzryjwrmx6i")))) + "03jvfz68nvmmrplygf96sh0l347p4h03c8vpw8yrglh6ycwkiigr")))) (define %ungoogled-origin (origin @@ -269,7 +269,7 @@ from forcing GEXP-PROMISE." (string-take %ungoogled-revision 7))) (sha256 (base32 - "1gqbch6dnww3c3vn1i4nb07iz1f78mws9dsxscj3rsrkcgwhsdz8")))) + "0zix90jz82hpym9jmyf99yw19swaf13ps6szi60wccmz1gccv77g")))) (define %debian-origin (origin @@ -660,8 +660,8 @@ from forcing GEXP-PROMISE." ;; their current status for convenience. (format #t "Dumping configure flags...\n") (invoke "gn" "args" "out/Release" "--list")))) - (replace 'build - (lambda* (#:key (parallel-build? #t) #:allow-other-keys) + (add-before 'build 'increase-resource-limits + (lambda _ ;; XXX: Chromiums linking step requires a lot of simultaneous file ;; accesses. Having a too low ulimit will result in bogus linker ;; errors such as "foo.a: error adding symbols: malformed archive". @@ -677,7 +677,9 @@ from forcing GEXP-PROMISE." (format #t "increased maximum number of open files from ~d to ~d~%" soft (if hard (min hard 4096) 4096))))) - + #t)) + (replace 'build + (lambda* (#:key (parallel-build? #t) #:allow-other-keys) (invoke "ninja" "-C" "out/Release" "-j" (if parallel-build? (number->string (parallel-job-count)) diff --git a/gnu/packages/compression.scm b/gnu/packages/compression.scm index 1dcd297e8d..2f0fe5083e 100644 --- a/gnu/packages/compression.scm +++ b/gnu/packages/compression.scm @@ -1655,7 +1655,9 @@ recreates the stored directory structure by default.") (native-inputs `(("perl" ,perl))) (inputs - `(("zlib" ,zlib))) + `(("gnutls" ,gnutls) + ("openssl" ,openssl) + ("zlib" ,zlib))) (build-system cmake-build-system) (home-page "https://libzip.org") (synopsis "C library for reading, creating, and modifying zip archives") diff --git a/gnu/packages/cpp.scm b/gnu/packages/cpp.scm index 3981f962d7..779b6e088d 100644 --- a/gnu/packages/cpp.scm +++ b/gnu/packages/cpp.scm @@ -209,7 +209,7 @@ as ordering relation.") (define-public json-modern-cxx (package (name "json-modern-cxx") - (version "3.7.0") + (version "3.7.3") (home-page "https://github.com/nlohmann/json") (source (origin @@ -218,7 +218,7 @@ as ordering relation.") (commit (string-append "v" version)))) (sha256 (base32 - "0v7xih4zjixxxfvkfbs7a8j9qcvpwlsv4vrkbyns3hc7b44nb8ap")) + "04rry1xzis71z5gj1ylcj8b4li5q18zxhcwaviwvi3hx0frzxl9w")) (file-name (git-file-name name version)) (modules '((guix build utils))) (snippet diff --git a/gnu/packages/crypto.scm b/gnu/packages/crypto.scm index 2ae867f45b..559a3c051a 100644 --- a/gnu/packages/crypto.scm +++ b/gnu/packages/crypto.scm @@ -47,6 +47,7 @@ #:use-module (gnu packages libbsd) #:use-module (gnu packages libffi) #:use-module (gnu packages linux) + #:use-module (gnu packages lsof) #:use-module (gnu packages nettle) #:use-module (gnu packages password-utils) #:use-module (gnu packages perl) @@ -339,14 +340,15 @@ no man page, refer to the home page for usage details.") (define-public tomb (package (name "tomb") - (version "2.6") + (version "2.7") (source (origin (method url-fetch) (uri (string-append "https://files.dyne.org/tomb/" "Tomb-" version ".tar.gz")) (sha256 (base32 - "1sr3jcn96mciyn8xd0amd1jzamxxzpybakf8an7laf26gjim1dh2")))) + "0x3al02796vx1cvy6y6h685c367qx70dwv471g0hmks2gr10f0cn")) + (patches (search-patches "tomb-fix-errors-on-open.patch")))) (build-system gnu-build-system) (native-inputs `(("sudo" ,sudo))) ;presence needed for 'check' phase (inputs @@ -355,6 +357,7 @@ no man page, refer to the home page for usage details.") ("cryptsetup" ,cryptsetup) ("e2fsprogs" ,e2fsprogs) ;for mkfs.ext4 ("gettext" ,gettext-minimal) ;used at runtime + ("lsof" ,lsof) ("mlocate" ,mlocate) ("pinentry" ,pinentry) ("qrencode" ,qrencode) @@ -362,6 +365,10 @@ no man page, refer to the home page for usage details.") ("util-linux" ,util-linux))) (arguments `(#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))) + ;; The "sudo" input is needed only to satisfy dependency checks in the + ;; 'check' phase. The "sudo" used at runtime should come from the + ;; system's setuid-programs, so ensure no reference is kept. + #:disallowed-references (,sudo) ;; TODO: Build and install gtk and qt trays #:phases (modify-phases %standard-phases @@ -380,8 +387,8 @@ no man page, refer to the home page for usage details.") ,@(map (lambda (program) (or (and=> (which program) dirname) (error "program not found:" program))) - '("seq" "mkfs.ext4" "pinentry" "sudo" - "gpg" "cryptsetup" "gettext" + '("seq" "mkfs.ext4" "pinentry" + "gpg" "cryptsetup" "gettext" "lsof" "qrencode" "steghide" "findmnt"))))) #t))) (delete 'check) diff --git a/gnu/packages/dns.scm b/gnu/packages/dns.scm index 8b3c180ebe..03777cd4d8 100644 --- a/gnu/packages/dns.scm +++ b/gnu/packages/dns.scm @@ -114,7 +114,7 @@ and BOOTP/TFTP for network booting of diskless machines.") (define-public isc-bind (package (name "bind") - (version "9.14.7") + (version "9.14.8") (source (origin (method url-fetch) (uri (string-append @@ -122,7 +122,7 @@ and BOOTP/TFTP for network booting of diskless machines.") "/bind-" version ".tar.gz")) (sha256 (base32 - "07998nx0yv3xy8c62b1ira9qygsgvpljwcgb47ypzxq8b57gb86f")))) + "0xm0xrpgxq6gk6r6aa2w0lygnq02y1p614dmyjdmlsfnrrsslig5")))) (build-system gnu-build-system) (outputs `("out" "utils")) (inputs diff --git a/gnu/packages/elixir.scm b/gnu/packages/elixir.scm index 88ada71aea..7420bc4963 100644 --- a/gnu/packages/elixir.scm +++ b/gnu/packages/elixir.scm @@ -33,7 +33,7 @@ (define-public elixir (package (name "elixir") - (version "1.8.2") + (version "1.9.4") (source (origin (method git-fetch) @@ -42,7 +42,7 @@ (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "1n77cpcl2b773gmj3m9s24akvj9gph9byqbmj2pvlsmby4aqwckq")) + (base32 "1l4318g35y4h0vi2w07ayc3jizw1xc3s7hdb47w6j3iw33y06g6b")) (patches (search-patches "elixir-path-length.patch")))) (build-system gnu-build-system) (arguments @@ -63,9 +63,21 @@ "lib/mix/lib/mix/scm/git.ex") (("(cmd\\(['\"])git" _ prefix) (string-append prefix (which "git")))) + (substitute* '("lib/mix/lib/mix/release.ex" + "lib/mix/lib/mix/tasks/release.init.ex") + (("#!/bin/sh") + (string-append "#!" (which "sh")))) (substitute* "bin/elixir" - (("ERL_EXEC=\"erl\"") - (string-append "ERL_EXEC=" (which "erl")))) + (("ERTS_BIN=") + (string-append + "ERTS_BIN=" + ;; Elixir Releases will prepend to ERTS_BIN the path of a copy of erl. + ;; We detect if a release is being generated by checking the initial ERTS_BIN + ;; value: if it's empty, we are not in release mode and can point to the actual + ;; erl binary in Guix store. + "\nif [ -z \"$ERTS_BIN\" ]; then ERTS_BIN=" + (string-drop-right (which "erl") 3) + "; fi"))) (substitute* "bin/mix" (("#!/usr/bin/env elixir") (string-append "#!" out "/bin/elixir")))) diff --git a/gnu/packages/elm.scm b/gnu/packages/elm.scm index 8b5ec36621..feaa9c8d5c 100644 --- a/gnu/packages/elm.scm +++ b/gnu/packages/elm.scm @@ -47,9 +47,25 @@ (base32 "0s93z9vr0vp5w894ghc5s34nsq09sg1msf59zfiba87sid5vgjqy")) (patches (search-patches "elm-compiler-disable-reactor.patch" - "elm-compiler-relax-glsl-bound.patch" "elm-compiler-fix-map-key.patch")))) (build-system haskell-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'update-constraints + (lambda _ + (substitute* "elm.cabal" + (("ansi-terminal >= 0\\.8 && < 0\\.9,") + "ansi-terminal >= 0.8 && < 0.10,") + (("containers >= 0\\.5\\.8\\.2 && < 0\\.6,") + "containers >= 0.5.8.2 && < 0.7,") + (("http-client >= 0\\.5 && < 0\\.6,") + "http-client >= 0.5 && < 0.7,") + (("language-glsl >= 0\\.0\\.2 && < 0\\.3,") + "language-glsl >= 0.0.2 && < 0.4,") + (("network >= 2\\.4 && < 2\\.7,") + "network >= 2.4 && < 2.9,")) + #t))))) (inputs `(("ghc-ansi-terminal" ,ghc-ansi-terminal) ("ghc-ansi-wl-pprint" ,ghc-ansi-wl-pprint) diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index 1bd596bd06..58cde1ff13 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -79,6 +79,7 @@ #:use-module (guix cvs-download) #:use-module (guix download) #:use-module (guix git-download) + #:use-module (guix hg-download) #:use-module (guix build-system gnu) #:use-module (guix build-system cmake) #:use-module (guix build-system emacs) @@ -1005,6 +1006,30 @@ skip set strings, which are arguments to @code{skip-chars-forward} and and reused.") (license license:gpl3+)))) +(define-public emacs-ample-theme + (let ((commit "536966adf882446165a1f756830028faa792c7a9") + (revision "1")) + (package + (name "emacs-ample-theme") + (version (git-version "0.0.0" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/jordonbiondo/ample-theme") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "07bpv8dag40qjnm5000pgzpazj4whfxf93x2vprz26sg3mjfx0nf")))) + (build-system emacs-build-system) + (home-page "https://github.com/jordonbiondo/ample-theme") + (synopsis "Theme for Emacs providing dark, light, and flat versions") + (description "Ample themes is a collection of three themes sharing a +similar pallet with a light, dark and flat versions with a focus on being easy +on the eyes during night and day. They only support GUI and 256 colour +terminals.") + (license license:gpl3+)))) + (define-public emacs-reformatter (package (name "emacs-reformatter") @@ -1974,9 +1999,9 @@ filters, new key bindings and faces. It can be enabled by ;; upgrading" that pdf-tools tries to perform. (emacs-substitute-variables "pdf-tools.el" ("pdf-tools-handle-upgrades" '())))) - (add-after 'emacs-patch-variables 'emacs-set-emacs-load-path - (assoc-ref emacs:%standard-phases 'set-emacs-load-path)) - (add-after 'emacs-set-emacs-load-path 'emacs-install + (add-after 'emacs-patch-variables 'emacs-add-source-to-load-path + (assoc-ref emacs:%standard-phases 'add-source-to-load-path)) + (add-after 'emacs-add-source-to-load-path 'emacs-install (assoc-ref emacs:%standard-phases 'install)) (add-after 'emacs-install 'emacs-build (assoc-ref emacs:%standard-phases 'build)) @@ -2049,14 +2074,14 @@ type, for example: packages, buffers, files, etc.") (define-public emacs-guix (package (name "emacs-guix") - (version "0.5.1.1") + (version "0.5.2") (source (origin (method url-fetch) (uri (string-append "https://emacs-guix.gitlab.io/website/" "releases/emacs-guix-" version ".tar.gz")) (sha256 (base32 - "1gxg7lan3njc2yg2d02b2zij0d2cm2pv2q08nqz86s85jk3b6m03")))) + "0yz64c0z4ygi2k4af18k4r1ncgys18jb8icywkp2g5pgmpn5l7ps")))) (build-system gnu-build-system) (arguments `(#:configure-flags @@ -4096,7 +4121,7 @@ to a key in your preferred mode.") ((assoc-ref cmake:%standard-phases 'configure) #:outputs outputs #:configure-flags '("-DSC_EL_BYTECOMPILE=OFF")))) - (add-after 'set-emacs-load-path 'add-el-dir-to-emacs-load-path + (add-after 'add-source-to-load-path 'add-el-dir-to-emacs-load-path (lambda _ (setenv "EMACSLOADPATH" (string-append (getcwd) "/el:" (getenv "EMACSLOADPATH"))) @@ -5225,7 +5250,7 @@ after buffer changes.") `(#:tests? #t #:phases (modify-phases %standard-phases - (add-after 'set-emacs-load-path 'fix-autogen-script + (add-after 'unpack 'fix-autogen-script (lambda _ (substitute* "autogen.sh" (("./configure") "sh configure")))) @@ -10226,6 +10251,30 @@ list of commands is displayed in a handy popup.") characters from end of lines.") (license license:gpl3+))) +(define-public emacs-openwith + (let ((changeset "aeb78782ec87680ea9f082a3f20a3675b3770cf9") + (revision "0")) + (package + (name "emacs-openwith") + (home-page "https://bitbucket.org/jpkotta/openwith") + (version (git-version "0.0.1" revision changeset)) + (source (origin + (method hg-fetch) + (uri (hg-reference (url home-page) (changeset changeset))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1wl6gnxsyhaad4cl9bxjc0qbc5jzvlwbwjbajs0n1s6qr07d6r01")))) + (build-system emacs-build-system) + (synopsis "Open external applications for files with Emacs") + (description + "This package enables you to associate file name patterns with external +applications that are automatically invoked when you use commands like +@code{find-file}. For example, you can have it open @code{png} files with +@code{feh} and @code{mp4} files with @code{mpv}. This is especially useful +when browsing files with Dired.") + (license license:gpl2+)))) + (define-public emacs-org-edit-latex (package (name "emacs-org-edit-latex") @@ -14809,7 +14858,7 @@ appropriate directory if no @code{eshell} session is active.") (define-public emacs-eshell-z (package (name "emacs-eshell-z") - (version "0.3.2") + (version "0.4") (source (origin (method git-fetch) @@ -14819,7 +14868,7 @@ appropriate directory if no @code{eshell} session is active.") (file-name (git-file-name name version)) (sha256 (base32 - "1aac4m814jgxwpz7lbyx5r4z5dmawp4sk7pwbx0zqpnbcsaq5wwc")))) + "13dwaq8q23rwmrkpy3gvf7aswrkk6b9ak5221xl7n0bld4wdhq3j")))) (build-system emacs-build-system) (home-page "https://github.com/xuchunyang/eshell-z") (synopsis "Quick navigation to frequently visited directories") @@ -14861,7 +14910,7 @@ autosuggestions with: (define-public emacs-desktop-environment (package (name "emacs-desktop-environment") - (version "0.2.2") + (version "0.3.0") (source (origin (method git-fetch) @@ -14871,7 +14920,7 @@ autosuggestions with: (file-name (git-file-name name version)) (sha256 (base32 - "14ija2rrz3zjhjbzxg84j5fq6xph4ah7w9bkqnq37by040cydvhw")))) + "195n99xvxyh4cfxjpfa1h1maalqrxf7nyi0bh3lqa1z6z5bdb6x2")))) (build-system emacs-build-system) (home-page "https://gitlab.petton.fr/DamienCassou/desktop-environment") (synopsis "Control your GNU/Linux desktop environment from Emacs") @@ -15824,7 +15873,8 @@ Pandoc, the document-conversion tool.") "1qgfxc5d1hb32ks1fxpx7agpw7dvnkz99wydlflc9fqq75g8v142")))) (build-system emacs-build-system) (propagated-inputs - `(("emacs-dash" ,emacs-dash) + `(("ccls" ,ccls) + ("emacs-dash" ,emacs-dash) ("emacs-projectile" ,emacs-projectile) ("emacs-lsp-mode" ,emacs-lsp-mode))) (home-page "https://github.com/MaskRay/emacs-ccls") @@ -17821,9 +17871,7 @@ a suffix) we prefer to call it just a \"transient\".") (lambda _ (substitute* "./Makefile" (("lisp docs") "lisp")))) - (add-after 'delete-doc-targets 'emacs-set-emacs-load-path - (assoc-ref emacs:%standard-phases 'set-emacs-load-path)) - (add-after 'emacs-set-emacs-load-path 'chdir-lisp + (add-after 'delete-doc-targets 'chdir-lisp (lambda _ (chdir "lisp"))) (add-after 'chdir-lisp 'emacs-install diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm index 6c6f0e4567..16f9af0a0a 100644 --- a/gnu/packages/emacs.scm +++ b/gnu/packages/emacs.scm @@ -9,7 +9,7 @@ ;;; Copyright © 2016 David Thompson <dthompson2@worcester.edu> ;;; Copyright © 2016 ng0 <ng0@n0.is> ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com> -;;; Copyright © 2017 Maxim Cournoyer <maxim.cournoyer@gmail.com> +;;; Copyright © 2017, 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2017 Alex Vong <alexvong1995@gmail.com> ;;; Copyright © 2017, 2018 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org> @@ -185,6 +185,13 @@ (native-search-paths (list (search-path-specification + (variable "EMACSLOADPATH") + ;; The versioned entries are for the Emacs' builtin libraries. + (files (list (string-append "share/emacs/" version "/site-lisp") + (string-append "share/emacs/" version "/lisp") + "share/emacs/site-lisp")) + (file-pattern ".*")) ;recursively add any sub directory + (search-path-specification (variable "INFOPATH") (files '("share/info"))))) diff --git a/gnu/packages/emulators.scm b/gnu/packages/emulators.scm index 72a9b6e40d..577894cbe2 100644 --- a/gnu/packages/emulators.scm +++ b/gnu/packages/emulators.scm @@ -1213,6 +1213,8 @@ play them on systems for which they were never designed!") (arguments `(#:make-flags (cons* + ;; A 'strict-overflow' error pops up on i686 so disable '-Werror'. + "NOWERROR=1" (string-append "QT_HOME=" (assoc-ref %build-inputs "qtbase")) (string-append "SDL_INI_PATH=" (assoc-ref %outputs "out") diff --git a/gnu/packages/erlang.scm b/gnu/packages/erlang.scm index 4fba7ee0c8..4e12bb4813 100644 --- a/gnu/packages/erlang.scm +++ b/gnu/packages/erlang.scm @@ -223,7 +223,7 @@ built-in support for concurrency, distribution and fault tolerance.") (arguments `(#:phases (modify-phases %standard-phases - (add-before 'set-emacs-load-path 'change-working-directory + (add-before 'add-source-to-load-path 'change-working-directory (lambda _ (chdir "lib/tools/emacs") #t))))) (home-page "https://www.erlang.org/") (synopsis "Erlang major mode for Emacs") diff --git a/gnu/packages/fabric-management.scm b/gnu/packages/fabric-management.scm index becf877f08..c31ee6e217 100644 --- a/gnu/packages/fabric-management.scm +++ b/gnu/packages/fabric-management.scm @@ -190,7 +190,8 @@ testing InfiniBand networks.") (file-name (git-file-name name version)) (sha256 (base32 - "0x3clvy716i7va4m4adgx6ihjsfnzrkdizhxz5v52944dkglpc8n")))) + "0x3clvy716i7va4m4adgx6ihjsfnzrkdizhxz5v52944dkglpc8n")) + (patches (search-patches "ucx-tcp-iface-ioctl.patch")))) (build-system gnu-build-system) (arguments '( ;; These are some of the flags found in 'contrib/configure-release'. diff --git a/gnu/packages/finance.scm b/gnu/packages/finance.scm index 8a3b5402d4..1412c7ca95 100644 --- a/gnu/packages/finance.scm +++ b/gnu/packages/finance.scm @@ -482,7 +482,7 @@ other machines/servers. Electroncash does not download the Bitcoin Cash blockch ;; the system's dynamically linked library. (package (name "monero") - (version "0.15.0.0") + (version "0.15.0.1") (source (origin (method git-fetch) @@ -503,7 +503,7 @@ other machines/servers. Electroncash does not download the Bitcoin Cash blockch #t)) (sha256 (base32 - "19y4kcj4agws7swfa3draysb1y18c3xb13r8cg0faxx1dlm0zbnr")))) + "0sypa235lf2bbib4b71xpaw39h9304slgsvnsz8wmy9fq1zx009m")))) (build-system cmake-build-system) (native-inputs `(("doxygen" ,doxygen) @@ -597,7 +597,7 @@ the Monero command line client and daemon.") (define-public monero-gui (package (name "monero-gui") - (version "0.15.0.0") + (version "0.15.0.1") (source (origin (method git-fetch) @@ -607,7 +607,7 @@ the Monero command line client and daemon.") (file-name (git-file-name name version)) (sha256 (base32 - "1shpnly2dym5jhvk8zk10p69mz062dihx979djg74q6hgkhhhqsh")))) + "08j8kkncdn57xql0bhmlzjpjkdfhqbpda1p07r797q8qi0nl4w8n")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) diff --git a/gnu/packages/flashing-tools.scm b/gnu/packages/flashing-tools.scm index 7d5c1cf723..eb92ae40f5 100644 --- a/gnu/packages/flashing-tools.scm +++ b/gnu/packages/flashing-tools.scm @@ -211,14 +211,15 @@ firmware from it.") (let ((commit "f289b7a2e5627464044249f0e5742830e052e360")) (package (name "teensy-loader-cli") - (version (string-append "2.1-1." (string-take commit 7))) + (version (git-version "2.1" "1" commit)) (source (origin - (method url-fetch) - (uri (string-append "https://github.com/PaulStoffregen/" - "teensy_loader_cli/archive/" commit ".tar.gz")) - (sha256 (base32 "17wqc2q4fa473cy7f5m2yiyb9nq0qw7xal2kzrxzaikgm9rabsw8")) - (file-name (string-append "teensy-loader-cli-" version ".tar.gz" )) + (method git-fetch) + (uri (git-reference + (url "https://github.com/PaulStoffregen/teensy_loader_cli.git") + (commit commit))) + (sha256 (base32 "0sssim56pwsxp5cp5dlf6mi9h5fx2592m6j1g7abnm0s09b0lpdx")) + (file-name (git-file-name name version)) (modules '((guix build utils))) (snippet `(begin @@ -294,13 +295,14 @@ RK3036, RK3066, RK312X, RK3168, RK3188, RK3288, RK3368.") (name "heimdall") (version "1.4.2") (source (origin - (method url-fetch) - (uri (string-append "https://github.com/Benjamin-Dobell/Heimdall" - "/archive/v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://gitlab.com/BenjaminDobell/Heimdall.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) (sha256 (base32 - "1y7gwg3lipyp2zcysm2vid1qg5nwin9bxbvgzs28lz2rya4fz6sq")))) + "1ygn4snvcmi98rgldgxf5hwm7zzi1zcsihfvm6awf9s6mpcjzbqz")))) (build-system cmake-build-system) (arguments `(#:build-type "Release" @@ -327,7 +329,7 @@ RK3036, RK3066, RK312X, RK3168, RK3188, RK3288, RK3368.") `(("libusb" ,libusb) ("qtbase" ,qtbase) ("zlib" ,zlib))) - (home-page "http://glassechidna.com.au/heimdall/") + (home-page "https://glassechidna.com.au/heimdall/") (synopsis "Flash firmware onto Samsung mobile devices") (description "@command{heimdall} is a tool suite used to flash firmware (aka ROMs) onto Samsung mobile devices. Heimdall connects to a mobile device over @@ -415,13 +417,14 @@ Management Engine (ME). You need to @code{sudo rmmod mei_me} and (name "me-cleaner") (version "1.2") (source (origin - (method url-fetch) - (uri (string-append "https://github.com/corna/me_cleaner/" - "archive/v" version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/corna/me_cleaner.git") + (commit (string-append "v" version)))) (sha256 (base32 - "0hdnay1ai0r6l69z63jkiz6yfwdsqc2mrfyj77hgadv7xxxqm6na")) - (file-name (string-append name "-" version ".tar.gz")))) + "1bdj2clm13ir441vn7sv860xsc5gh71ja5lc2wn0gggnff0adxj4")) + (file-name (git-file-name name version)))) (build-system python-build-system) (arguments `(#:phases @@ -444,15 +447,16 @@ ME as far as possible (it only edits ME firmware image files).") (define-public uefitool (package (name "uefitool") - (version "0.22.4") + (version "0.26.0") (source (origin - (method url-fetch) - (uri (string-append "https://github.com/LongSoft/UEFITool/archive/" - version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/LongSoft/UEFITool.git") + (commit version))) (sha256 (base32 - "05jmhv7jpq08kqbd1477y1lgyjvcic3njrd0bmzdy7v7b7lnhl82")) - (file-name (string-append name "-" version ".tar.gz")))) + "1ka7i12swm9r5bmyz5vjr82abd2f3lj8p35f4208byalfbx51yq7")) + (file-name (git-file-name name version)))) (build-system gnu-build-system) (arguments `(#:phases diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm index bb6dc45d94..83c97444bf 100644 --- a/gnu/packages/fonts.scm +++ b/gnu/packages/fonts.scm @@ -27,6 +27,7 @@ ;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2019 Baptiste Strazzulla <bstrazzull@hotmail.fr> ;;; Copyright © 2019 Alva <alva@skogen.is> +;;; Copyright © 2019 Alexandros Theodotou <alex@zrythm.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -1524,3 +1525,43 @@ Symbols stand out from common text. Dots and commas are easily seen, and operators are clear even when not surrounded by spaces. Similar characters have been designed to be very distinguishable from each other.") (license license:silofl1.1))) + +(define-public font-dseg + (package + (name "font-dseg") + (version "0.45") + (source + (origin + (method url-fetch/zipbomb) + (uri + (string-append "https://github.com/keshikan/DSEG/" + "releases/download/v" version + "/fonts-DSEG_v" + (string-concatenate (string-split version #\.)) + ".zip")) + (sha256 + (base32 + "0v8sghh4vl286faf8pvi74znz07pyf0qii8z4wjllisqwc35sx72")))) + (build-system font-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (font-dir (string-append out "/share/fonts")) + (truetype-dir (string-append font-dir "/truetype"))) + (with-directory-excursion + (string-append "fonts-DSEG_v" + (apply string-append (string-split ,version + #\.))) + (for-each (lambda (f) (install-file f truetype-dir)) + (find-files "." "\\.ttf$")) + #t))))))) + (home-page "https://www.keshikan.net/fonts-e.html") + (synopsis "DSEG: 7-segment and 14-segment fonts") + (description + "DSEG is a font family that imitates seven- and fourteen-segment LCD +displays (7SEG, 14SEG). DSEG includes the roman alphabet and symbol glyphs. +This package provides the TrueType fonts.") + (license license:silofl1.1))) diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index 07bef94c51..3d825cbe61 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -463,13 +463,14 @@ want what you have.") (name "cowsay") (version "3.04") (source (origin - (method url-fetch) - (uri (string-append "https://github.com/tnalpgge/" - "rank-amateur-cowsay/archive/" - "cowsay-" version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/tnalpgge/rank-amateur-cowsay.git") + (commit (string-append name "-" version)))) + (file-name (git-file-name name version)) (sha256 (base32 - "12w7apbf6a9qffk92r32b16w22na2fjcqbl32rn0n7zw5hrp3f6q")))) + "06455kq37hvq1xb7adyiwrx0djs50arsxvjgixyxks16lm1rlc7n")))) (build-system gnu-build-system) (arguments `(#:phases @@ -1880,30 +1881,38 @@ match, cannon keep, and grave-itation pit.") (source (origin (method git-fetch) (uri (git-reference - (url "https://github.com/minetest/minetest") - (commit version))) + (url "https://github.com/minetest/minetest") + (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "184n9gxfa7yr0j85z2x736maaymsnppd5jzm326wlqri3c0qqy3z")) (modules '((guix build utils))) (snippet - '(begin - (delete-file-recursively "lib") #t)))) + '(begin + ;; Mimic upstream commit 706b6aad06, for compatibility with + ;; newer jsoncpp. Remove this for > 5.1.0. + (substitute* "cmake/Modules/FindJson.cmake" + (("features\\.h") + "allocator.h")) + + ;; Delete bundled libraries. + (delete-file-recursively "lib") + #t)))) (build-system cmake-build-system) (arguments '(#:configure-flags - (list "-DRUN_IN_PLACE=0" - "-DENABLE_FREETYPE=1" - "-DENABLE_GETTEXT=1" - "-DENABLE_SYSTEM_JSONCPP=TRUE" - (string-append "-DIRRLICHT_INCLUDE_DIR=" - (assoc-ref %build-inputs "irrlicht") - "/include/irrlicht") - (string-append "-DCURL_INCLUDE_DIR=" - (assoc-ref %build-inputs "curl") - "/include/curl")) - #:tests? #f)) ; no check target + (list "-DRUN_IN_PLACE=0" + "-DENABLE_FREETYPE=1" + "-DENABLE_GETTEXT=1" + "-DENABLE_SYSTEM_JSONCPP=TRUE" + (string-append "-DIRRLICHT_INCLUDE_DIR=" + (assoc-ref %build-inputs "irrlicht") + "/include/irrlicht") + (string-append "-DCURL_INCLUDE_DIR=" + (assoc-ref %build-inputs "curl") + "/include/curl")) + #:tests? #f)) ;no check target (native-search-paths (list (search-path-specification (variable "MINETEST_SUBGAME_PATH") @@ -3787,13 +3796,14 @@ Linux / Mac OS X servers, and an auto mapper with a VT100 map display.") (name "laby") (version "0.6.4") (source - (origin (method url-fetch) - (uri (string-append - "https://github.com/sgimenez/laby/archive/" - "laby-" version ".tar.gz")) + (origin (method git-fetch) + (uri (git-reference + (url "https://github.com/sgimenez/laby.git") + (commit (string-append name "-" version)))) + (file-name (git-file-name name version)) (sha256 (base32 - "0gyrfa95l1qka7gbjf7l6mk7mbfvph00l0c995ia272qdw7rjhyf")) + "12fq9hhrxpzgfinmj9ra9ckss9yficwdlrmgjvvsq7agvh3sgyl1")) (patches (search-patches "laby-make-install.patch")))) (build-system gnu-build-system) (inputs @@ -3943,7 +3953,7 @@ throwing people around in pseudo-randomly generated buildings.") (define-public hyperrogue (package (name "hyperrogue") - (version "10.5d") + (version "11.2d") ;; When updating this package, be sure to update the "hyperrogue-data" ;; origin in native-inputs. (source (origin @@ -3954,7 +3964,7 @@ throwing people around in pseudo-randomly generated buildings.") "-src.tgz")) (sha256 (base32 - "1ls055v4pv2xmn2a8lav7wl370zn0wsd91q41bk0amxd168kcndy")))) + "1b532s94zv1jsni7bvh848m42arxcclsr0x3n7c689iamwqzrxmn")))) (build-system gnu-build-system) (arguments `(#:tests? #f ; no check target @@ -4032,7 +4042,7 @@ throwing people around in pseudo-randomly generated buildings.") "-win.zip")) (sha256 (base32 - "13n9hcvf9yv7kjghm5jhjpwq1kh94i4bgvcczky9kvdvw1y9278n")))) + "0vq4l1xaqpjj3hmxn1vn2b3bbkn1hrag42ck9f30blinv347bwhf")))) ("unzip" ,unzip))) (inputs `(("font-dejavu" ,font-dejavu) @@ -5136,7 +5146,7 @@ Crowther & Woods, its original authors, in 1995. It has been known as (define-public tome4 (package (name "tome4") - (version "1.6.0") + (version "1.6.1") (synopsis "Single-player, RPG roguelike game set in the world of Eyal") (source (origin @@ -5145,7 +5155,7 @@ Crowther & Woods, its original authors, in 1995. It has been known as version ".tar.bz2")) (sha256 (base32 - "1z1w4ycgl5wbm0sv7577vcdfwwf4k7vaf2njzyb21rvqjizpbkwr")) + "0c5a2bdyfccwkqnb6yqvzggyi2nk032v01kfc00zlgpdfzljcb9i")) (modules '((guix build utils))) (snippet '(begin @@ -5442,14 +5452,14 @@ making Yamagi Quake II one of the most solid Quake II implementations available. (version "0.9.3.1") (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/the-butterfly-effect/tbe/archive/" - "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/the-butterfly-effect/tbe.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) (sha256 (base32 - "18qkp7fgdvyl3haqqa693mgyic7afsznsxgz98z9wn4csaqxsnby")))) + "1ag2cp346f9bz9qy6za6q54id44d2ypvkyhvnjha14qzzapwaysj")))) (build-system gnu-build-system) (arguments `(#:phases @@ -5793,7 +5803,7 @@ affect gameplay).") (package (inherit chocolate-doom) (name "crispy-doom") - (version "5.5.2") + (version "5.6.3") (source (origin (method git-fetch) (uri (git-reference @@ -5801,7 +5811,7 @@ affect gameplay).") (commit (string-append "crispy-doom-" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "1a60ns0blhvml6gzj9qx18c18pbf02rq7vypaajd6nqy5h4fz3cn")))) + (base32 "0f319979wqfgm4pvsa6y5clg30p55l441kmrr8db0p5smyv3x2s4")))) (native-inputs (append (package-native-inputs chocolate-doom) @@ -7337,14 +7347,14 @@ play with up to four players simultaneously. It has network support.") (define-public hedgewars (package (name "hedgewars") - (version "0.9.25") + (version "1.0.0") (source (origin (method url-fetch) (uri (string-append "https://www.hedgewars.org/download/releases/" "hedgewars-src-" version ".tar.bz2")) (sha256 (base32 - "08x7fqpy0hpnbfq2k06g522xayi7s53bca819zfhalvqnqs76pdk")))) + "0nqm9w02m0xkndlsj6ys3wr0ik8zc14zgilq7k6fwjrf3zk385i1")))) (build-system cmake-build-system) (arguments ;; XXX: Engine is built as Pascal source code, requiring Free Pascal @@ -7353,32 +7363,8 @@ play with up to four players simultaneously. It has network support.") `(#:configure-flags (list "-DBUILD_ENGINE_C=ON") #:phases (modify-phases %standard-phases - (add-after 'unpack 'remove-failing-test - ;; XXX: Remove single failing test. Note: it is marked - ;; a "non-critical" test. - (lambda _ - (delete-file-recursively "tests/lua_noncritical") - #t)) - (add-after 'unpack 'fix-compiler - ;; XXX: Flag BUILD_ENGINE_C, as set above, implies using Clang to - ;; compile files. However, using `clang' globally leads to the - ;; error: qtbase-5.11.3/include/qt5/QtCore/qglobal.h:45:12: fatal - ;; error: 'type_traits' file not found. - ;; - ;; Therefore, we make sure to use `c++' everywhere but in the - ;; engine. - (lambda _ - (substitute* "project_files/hwc/CMakeLists.txt" - (("find_package\\(SDL2_ttf 2 REQUIRED\\)" all) - (string-append all "\n" - "set(CMAKE_C_COMPILER ${CLANG_EXECUTABLE})\n" - "set(CMAKE_CXX_COMPILER ${CLANG_EXECUTABLE})"))) - (substitute* "CMakeLists.txt" - (("set\\(CMAKE_C(XX)?_COMPILER" all) (string-append "#" all))) - #t)) (replace 'check - (lambda _ - (invoke "ctest")))))) + (lambda _ (invoke "ctest")))))) (inputs `(("ffmpeg" ,ffmpeg) ("freeglut" ,freeglut) diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index f51d366f44..d8545eaa58 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -861,8 +861,21 @@ on the GNOME Desktop with a single simple application.") (base32 "0bshwm49cd01ighsxqlbqn10q0ch71ff99gcrx8pr2gyky2ad3pq")))) (build-system gnu-build-system) + (arguments + '(#:phases (modify-phases %standard-phases + (add-after 'unpack 'set-adwaita-theme-file-name + (lambda* (#:key inputs #:allow-other-keys) + ;; Provide the correct file name of the default GNOME + ;; background, 'adwaita-timed.xml'. + (let ((theme (assoc-ref inputs "gnome-backgrounds"))) + (substitute* (find-files "schemas" + "\\.gschema\\.xml\\.in$") + (("@datadir@/backgrounds/gnome") + (string-append theme "/share/backgrounds/gnome"))) + #t)))))) (inputs - `(("glib" ,glib))) + `(("glib" ,glib) + ("gnome-backgrounds" ,gnome-backgrounds))) (native-inputs `(("intltool" ,intltool) ("glib" ,glib "bin") ; glib-compile-schemas, etc. @@ -1406,15 +1419,15 @@ library.") (define-public librsvg-next (package (name "librsvg") - (version "2.46.0") + (version "2.46.3") (source (origin (method url-fetch) - (uri (string-append "mirror://gnome/sources/" name "/" + (uri (string-append "mirror://gnome/sources/librsvg/" (version-major+minor version) "/" - name "-" version ".tar.xz")) + "librsvg-" version ".tar.xz")) (sha256 (base32 - "1la3az2af2ccm6rp86b6wh0kq7kxzl4n8pli5qxhyic1rd91xj4n")))) + "1s3a96i7f4pynjwxxvhysp4b6r7kyi8nasdxfyi62hc7gm34d3kn")))) (build-system gnu-build-system) (arguments `(#:configure-flags @@ -1492,7 +1505,7 @@ library.") (description "Librsvg is a C library to render SVG files using the Cairo 2D graphics library.") - (license license:lgpl2.0+))) + (license license:lgpl2.1+))) (define-public libidl (package diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index 49ef5f2892..1e676566ac 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -1921,17 +1921,22 @@ is no support for parsing block and inline level HTML.") (define-public mcron (package (name "mcron") - (version "1.1.2") + (version "1.1.3") (source (origin (method url-fetch) (uri (string-append "mirror://gnu/mcron/mcron-" version ".tar.gz")) (sha256 (base32 - "069m3ri7nc8lgy3h9ka7gj3v3anqj69x9jw4l3cfq65nqkxsch4g")))) + "00kv7fgllzjpis0g1m9csycp4f6l11774m09dqy255cvmim2g743")))) (build-system gnu-build-system) (arguments '(#:phases (modify-phases %standard-phases + (add-after 'unpack 'fix-finding-guile + (lambda _ + (substitute* "configure" + (("2\\.0") "2.2 2.0")) + #t)) (add-before 'check 'adjust-tests (lambda _ (substitute* "tests/job-specifier.scm" @@ -1948,11 +1953,7 @@ is no support for parsing block and inline level HTML.") (("\\(test-equal \"next-year\"" all) (string-append "(test-skip 4)\n" all))) #t))))) - (native-inputs `(("autoconf" ,autoconf) - ("automake" ,automake) - ("help2man" ,help2man) - ("pkg-config" ,pkg-config) - ("texinfo" ,texinfo) + (native-inputs `(("pkg-config" ,pkg-config) ("tzdata" ,tzdata-for-tests))) (inputs `(("guile" ,guile-2.2))) (home-page "https://www.gnu.org/software/mcron/") diff --git a/gnu/packages/haskell-apps.scm b/gnu/packages/haskell-apps.scm index eac07ca9b8..d5c31cbb0b 100644 --- a/gnu/packages/haskell-apps.scm +++ b/gnu/packages/haskell-apps.scm @@ -49,10 +49,14 @@ #:use-module (gnu packages rsync) #:use-module (gnu packages version-control)) +;; In Stackage LTS 14, this package is at 2.4.1.0. However, that +;; version requires version 2.4.1.0 of the 'Cabal' package, which is +;; provided by GHC 8.6.5 at version 2.4.0.1. Hence, we use an older +;; version to match the compiler's library. (define-public cabal-install (package (name "cabal-install") - (version "2.2.0.0") + (version "2.4.0.0") (source (origin (method url-fetch) @@ -61,9 +65,19 @@ version ".tar.gz")) (sha256 - (base32 "1nd3ch7qr4dpfxhgkcq2lnhvszx2kjgnn1kwb44vk9y5jgfs4mn8")))) - (arguments `(#:tests? #f)) ; FIXME: testing libraries are missing. + (base32 "1xmyl0x8wqfrnray6ky5wy0g0samv4264fbdlzxhqsvk9dbfja8k")))) (build-system haskell-build-system) + (arguments + `(#:cabal-revision + ("2" "1xil5pim6j1ckqj61zz6l7xpfxxr3rkw2hvpws2f7pr9shk645dl") + #:phases + (modify-phases %standard-phases + (add-before 'configure 'update-constraints + (lambda _ + (substitute* "cabal-install.cabal" + (("zip-archive >= 0\\.3\\.2\\.5 && < 0\\.4,") + "zip-archive >= 0.3.2.5 && <= 0.4.1,")) + #t))))) (inputs `(("ghc-async" ,ghc-async) ("ghc-base16-bytestring" ,ghc-base16-bytestring) @@ -78,6 +92,7 @@ ("ghc-random" ,ghc-random) ("ghc-resolv" ,ghc-resolv) ("ghc-tar" ,ghc-tar) + ("ghc-zip-archive" ,ghc-zip-archive) ("ghc-zlib" ,ghc-zlib))) (home-page "https://www.haskell.org/cabal/") (synopsis "Command-line interface for Cabal and Hackage") @@ -172,7 +187,9 @@ unlit literate code files; and an option to turn off macro-expansion.") #t)))) (build-system haskell-build-system) (arguments - `(#:configure-flags '("-fpkgconfig" "-fcurl" "-flibiconv" "-fthreaded" + `(#:cabal-revision + ("1" "0xl7j5cm704pbl2ms0dkydh7jvrz0ym76d725ifpg4h902m1zkhg") + #:configure-flags '("-fpkgconfig" "-fcurl" "-flibiconv" "-fthreaded" "-fnetwork-uri" "-fhttp" "--flag=executable" "--flag=library") #:phases @@ -181,6 +198,12 @@ unlit literate code files; and an option to turn off macro-expansion.") (lambda _ (substitute* "tests/issue538.sh" (("/bin/sh") (which "sh"))) + #t)) + (add-before 'configure 'update-constraints + (lambda _ + (substitute* "darcs.cabal" + (("QuickCheck >= 2\\.8\\.2 && < 2\\.13,") + "QuickCheck >= 2.8.2 && < 2.14,")) #t))))) (inputs `(("ghc-cmdargs" ,ghc-cmdargs) @@ -391,7 +414,7 @@ used to keep a folder in sync between computers.") (define-public hlint (package (name "hlint") - (version "2.1.10") + (version "2.1.26") (source (origin (method url-fetch) @@ -400,7 +423,7 @@ used to keep a folder in sync between computers.") "/" name "-" version ".tar.gz")) (sha256 (base32 - "19as2m9g75cr6n1agzvsij0cvqhb0wbjlk31w4y5d5mns87dki0w")))) + "16zkkpbfrd69853cdqf597fva969lirfc86b039i9zd7ghlrcayc")))) (build-system haskell-build-system) (inputs `(("cpphs" ,cpphs) @@ -416,6 +439,7 @@ used to keep a folder in sync between computers.") ("ghc-extra" ,ghc-extra) ("ghc-refact" ,ghc-refact) ("ghc-aeson" ,ghc-aeson) + ("ghc-lib-parser" ,ghc-lib-parser) ("hscolour" ,hscolour))) (home-page "http://community.haskell.org/~ndm/hlint/") (synopsis "Suggest improvements for Haskell source code") @@ -427,7 +451,7 @@ unwanted suggestions, and to add your own custom suggestions.") (define-public hoogle (package (name "hoogle") - (version "5.0.17.3") + (version "5.0.17.11") (source (origin (method url-fetch) @@ -437,18 +461,19 @@ unwanted suggestions, and to add your own custom suggestions.") version ".tar.gz")) (sha256 (base32 - "174gp41v0krzj37m75pnr3aawyhkbk2wq4q6zk2z3zh0avvvmgk6")))) + "1svp8z9pad8z2j386pr0dda0ds8ddxab0salnz4gm51q877w93p1")))) (build-system haskell-build-system) (inputs - `(("ghc-network-uri" ,ghc-network-uri) - ("ghc-network" ,ghc-network) - ("ghc-quickcheck" ,ghc-quickcheck) + `(("ghc-quickcheck" ,ghc-quickcheck) ("ghc-aeson" ,ghc-aeson) + ("ghc-blaze-html" ,ghc-blaze-html) + ("ghc-blaze-markup" ,ghc-blaze-markup) ("ghc-cmdargs" ,ghc-cmdargs) ("ghc-conduit" ,ghc-conduit) ("ghc-conduit-extra" ,ghc-conduit-extra) ("ghc-connection" ,ghc-connection) ("ghc-extra" ,ghc-extra) + ("ghc-foundation" ,ghc-foundation) ("ghc-old-locale" ,ghc-old-locale) ("ghc-haskell-src-exts" ,ghc-haskell-src-exts) ("ghc-http-conduit" ,ghc-http-conduit) @@ -502,16 +527,16 @@ and mIRC chat codes.") (define-public kmonad (package (name "kmonad") - (version "0.2.0") + (version "0.3.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/david-janssen/kmonad.git") - (commit "06d7b8c709efa695be35df9bde91275cbb2ba099"))) + (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "1rjr4h5yq63x3kad6yn4p8v26389sd9dgr5n2w73s1chafapzwwd")))) + (base32 "1g40nkpldih6h1rlxjx5yf9iavr3qs1f2b6j0gd8135p5hkg8d8n")))) (build-system haskell-build-system) (arguments `(#:phases @@ -543,7 +568,7 @@ and mIRC chat codes.") ("ghc-exceptions" ,ghc-exceptions) ("ghc-hashable" ,ghc-hashable) ("ghc-lens" ,ghc-lens) - ("ghc-megaparsec" ,ghc-megaparsec-7) + ("ghc-megaparsec" ,ghc-megaparsec) ("ghc-optparse-applicative" ,ghc-optparse-applicative) ("ghc-unagi-chan" ,ghc-unagi-chan) ("ghc-unliftio" ,ghc-unliftio) diff --git a/gnu/packages/haskell-check.scm b/gnu/packages/haskell-check.scm index e0951d489c..c6e89460ea 100644 --- a/gnu/packages/haskell-check.scm +++ b/gnu/packages/haskell-check.scm @@ -10,6 +10,7 @@ ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Tonton <tonton@riseup.net> ;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2019 Timothy Sample <samplet@ngyro.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -39,7 +40,7 @@ (define-public ghc-tasty-ant-xml (package (name "ghc-tasty-ant-xml") - (version "1.1.4") + (version "1.1.6") (source (origin (method url-fetch) @@ -49,7 +50,7 @@ ".tar.gz")) (sha256 (base32 - "0v0gsb90kh6hwlgxbclzawsskywc6yf7n8xhiifia97l4y0yx2m8")))) + "13qqpl1prr9dda87dp45mqybay24n8rhxxgvpc9j34kh72g8j5qw")))) (build-system haskell-build-system) (inputs `(("ghc-generic-deriving" ,ghc-generic-deriving) @@ -95,7 +96,7 @@ Haskell test framework.") (define-public ghc-tasty-quickcheck (package (name "ghc-tasty-quickcheck") - (version "0.10") + (version "0.10.1") (source (origin (method url-fetch) @@ -104,7 +105,7 @@ Haskell test framework.") "tasty-quickcheck-" version ".tar.gz")) (sha256 (base32 - "0vr6szbbz3s5461i0zr8zpq347zfvidfzv5gf3xwxhm0yk731z8h")))) + "0k4vvd5vmrncv1s6gdf03l4xijwlk428sb9jfx8n1zaz02971msh")))) (build-system haskell-build-system) (inputs `(("ghc-quickcheck" ,ghc-quickcheck) @@ -156,7 +157,7 @@ contains the correct result for the test.") (define-public ghc-tasty (package (name "ghc-tasty") - (version "1.1.0.3") + (version "1.2.3") (source (origin (method url-fetch) @@ -166,7 +167,7 @@ contains the correct result for the test.") ".tar.gz")) (sha256 (base32 - "14riid753hjqr6lca1kgxpnvq0wykf0k3qc5jpag42hh8bszav22")))) + "0qpn0avpw4w1qq5r2gwh2piipj0llqq6ylagr3xnqiraq6mhg8cc")))) (build-system haskell-build-system) (inputs `(("ghc-tagged" ,ghc-tagged) @@ -184,10 +185,40 @@ you combine your unit tests, golden tests, QuickCheck/SmallCheck properties, and any other types of tests into a single test suite.") (license license:expat))) +(define-public ghc-tasty-hedgehog + (package + (name "ghc-tasty-hedgehog") + (version "1.0.0.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "tasty-hedgehog/tasty-hedgehog-" version ".tar.gz")) + (sha256 + (base32 + "1mbg5q0c0xfrk4npfj60pi693igb7r5l78x6xf9fk2jglw0nmxhz")))) + (build-system haskell-build-system) + (inputs + `(("ghc-tagged" ,ghc-tagged) + ("ghc-tasty" ,ghc-tasty) + ("ghc-hedgehog" ,ghc-hedgehog))) + (native-inputs + `(("ghc-tasty-expected-failure" ,ghc-tasty-expected-failure))) + (arguments + `(#:cabal-revision + ("1" "1n6797fm8swyrk8cw7zxz593gq82wx8dayvm204rmgcz75bslcpn"))) + (home-page "https://github.com/qfpl/tasty-hedgehog") + (synopsis "Integration for tasty and hedgehog") + (description "This package provides the means for integrating the +@url{https://hackage.haskell.org/package/hedgehog, hedgehog testing library} +with the @url{https://hackage.haskell.org/package/tasty, tasty testing +framework}.") + (license license:bsd-3))) + (define-public ghc-tasty-hunit (package (name "ghc-tasty-hunit") - (version "0.10.0.1") + (version "0.10.0.2") (source (origin (method url-fetch) @@ -197,7 +228,7 @@ and any other types of tests into a single test suite.") ".tar.gz")) (sha256 (base32 - "0j3hgga6c3s8h5snzivb8a75h96207ia2rlbxzj07xbf4zpkp44g")))) + "1xvf5xs0r8xqkcg354klz4wyzwyzvinalyl6f4fnxwqmzrgch8s8")))) (build-system haskell-build-system) (inputs `(("ghc-call-stack" ,ghc-call-stack-boot) @@ -231,6 +262,31 @@ test framework.") tasty.") (license license:expat))) +(define-public ghc-tasty-lua + (package + (name "ghc-tasty-lua") + (version "0.2.0.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "tasty-lua/tasty-lua-" version ".tar.gz")) + (sha256 + (base32 + "0xlj36rrhkx312h7smx6ay20rhlhxvw2ma2ckdnzv1pvmdn6p5qx")))) + (build-system haskell-build-system) + (inputs + `(("ghc-file-embed" ,ghc-file-embed) + ("ghc-hslua" ,ghc-hslua) + ("ghc-tasty" ,ghc-tasty))) + (native-inputs + `(("ghc-tasty-hunit" ,ghc-tasty-hunit))) + (home-page "https://github.com/hslua/tasty-lua") + (synopsis "Write tests in Lua, integrate into tasty") + (description "This package gives users the ability to define tasty tests +from Lua.") + (license license:expat))) + (define-public ghc-tasty-th (package (name "ghc-tasty-th") @@ -261,7 +317,7 @@ test-framework.") (define-public ghc-tasty-rerun (package (name "ghc-tasty-rerun") - (version "1.1.12") + (version "1.1.14") (source (origin (method url-fetch) (uri (string-append @@ -269,7 +325,7 @@ test-framework.") "tasty-rerun-" version ".tar.gz")) (sha256 (base32 - "05lp4zy6lwd916snq6hs43848n62j9vdfl3s8sfivqydrax0vvd8")))) + "0s0zj8ds4g1w2cjzm2lh25ivg962jigqdrbj08v3dbz64lx4mlzr")))) (build-system haskell-build-system) (inputs `(("ghc-optparse-applicative" ,ghc-optparse-applicative) @@ -288,7 +344,7 @@ been added since previous test run.") (define-public ghc-tasty-expected-failure (package (name "ghc-tasty-expected-failure") - (version "0.11.1.1") + (version "0.11.1.2") (source (origin (method url-fetch) @@ -297,7 +353,7 @@ been added since previous test run.") version ".tar.gz")) (sha256 (base32 - "1i2s809m644b7hgiblqay9j364r3fjj1rwbrahsn1pgr5q6mr6ji")))) + "175gdk1mkslcwjxajkbl4zmaigzf8h4svzd7va5qb519y0dxk28n")))) (build-system haskell-build-system) (inputs `(("ghc-tagged" ,ghc-tagged) @@ -314,7 +370,7 @@ development.") (define-public ghc-quickcheck-instances (package (name "ghc-quickcheck-instances") - (version "0.3.18") + (version "0.3.22") (source (origin (method url-fetch) @@ -324,11 +380,11 @@ development.") version ".tar.gz")) (sha256 (base32 - "1bh1pzz5fdcqvzdcirqxna6fnjms02min5md716299g5niz46w55")))) + "14asr9r7da3w7p4hjj51w2yb002nz8x0np8hdz9z4yjvi60vyrax")))) (build-system haskell-build-system) (arguments `(#:cabal-revision - ("1" "1sngfq3v71bvgjsl8cj5kh65m3fziwy8dkvwjzs0kxfrzr87faly"))) + ("2" "1ia5fjhpg7rz793552v88gv2iqx7hl9mi2g09m0llasy1cpzc9jr"))) (inputs `(("ghc-quickcheck" ,ghc-quickcheck) ("ghc-base-compat" ,ghc-base-compat) @@ -337,6 +393,7 @@ development.") ("ghc-old-time" ,ghc-old-time) ("ghc-scientific" ,ghc-scientific) ("ghc-tagged" ,ghc-tagged) + ("ghc-time-compat" ,ghc-time-compat) ("ghc-transformers-compat" ,ghc-transformers-compat) ("ghc-unordered-containers" ,ghc-unordered-containers) ("ghc-uuid-types" ,ghc-uuid-types) @@ -397,7 +454,7 @@ use HUnit assertions as QuickCheck properties.") (define-public ghc-quickcheck (package (name "ghc-quickcheck") - (version "2.11.3") + (version "2.13.2") (outputs '("out" "doc")) (source (origin @@ -408,12 +465,13 @@ use HUnit assertions as QuickCheck properties.") ".tar.gz")) (sha256 (base32 - "0xhqk35fkzlbjcqbabg6962jkv8d688nzmz7ng4bm84x2d95d328")))) + "0426j43af8v3qmdjjqxivazsvr3a2brac8yw09vpgpjkb2m0nmkv")))) (build-system haskell-build-system) (arguments `(#:tests? #f)) ; FIXME: currently missing libraries used for tests. (inputs `(("ghc-random" ,ghc-random) + ("ghc-splitmix" ,ghc-splitmix-bootstrap) ("ghc-tf-random" ,ghc-tf-random))) (home-page "https://github.com/nick8325/quickcheck") (synopsis "Automatic testing of Haskell programs") @@ -440,13 +498,8 @@ expressed in Haskell, using combinators defined in the QuickCheck library.") (build-system haskell-build-system) (arguments `(#:tests? #f ; FIXME: Tests do not build. - #:phases - (modify-phases %standard-phases - (add-before 'configure 'update-constraints - (lambda _ - (substitute* "test-framework.cabal" - (("QuickCheck >= 2\\.3 && < 2\\.10") - "QuickCheck >= 2.3 && < 2.12"))))))) + #:cabal-revision + ("5" "18g92ajx3ghznd6k3ihj22ln29n676ailzwx3k0f1kj3bmpilnh6"))) (native-inputs `(("ghc-hunit" ,ghc-hunit) ("ghc-quickcheck" ,ghc-quickcheck))) @@ -500,7 +553,7 @@ reporting and test statistics output.") (define-public ghc-test-framework-quickcheck2 (package (name "ghc-test-framework-quickcheck2") - (version "0.3.0.4") + (version "0.3.0.5") (source (origin (method url-fetch) @@ -509,11 +562,11 @@ reporting and test statistics output.") "test-framework-quickcheck2-" version ".tar.gz")) (sha256 (base32 - "0vj834337r6jzr3258cv68ly2sv5999mklpsrfngyk51kywsyqyp")))) + "0ngf9vvby4nrdf1i7dxf5m9jn0g2pkq32w48xdr92n9hxka7ixn9")))) (build-system haskell-build-system) (arguments `(#:cabal-revision - ("1" "147ngmfdkskyg7mwsp5w73a4dbx3rp5s38bci3z03kn1m093lxff"))) + ("1" "1vmpk70h1594h9s216d3ngkb399fpny1d3sh4gg0vrc75p4as68d"))) (inputs `(("ghc-extensible-exceptions" ,ghc-extensible-exceptions) ("ghc-quickcheck" ,ghc-quickcheck) @@ -588,7 +641,7 @@ JUnit tool for Java.") (define-public hspec-discover (package (name "hspec-discover") - (version "2.5.5") + (version "2.7.1") (source (origin (method url-fetch) @@ -597,7 +650,7 @@ JUnit tool for Java.") version ".tar.gz")) (sha256 (base32 - "04aidzi91ccr9bygmfkjzshz34z9vh8wvqj4zinx2clxq6r7gqfz")))) + "0r47fm94wa6qrhp8cc1zzkjrxc32rnagfn9m9ga4dm6p6ydw4c8b")))) (build-system haskell-build-system) (native-inputs `(("ghc-quickcheck" ,ghc-quickcheck) @@ -611,7 +664,7 @@ runs Hspec tests.") (define-public ghc-hspec-core (package (name "ghc-hspec-core") - (version "2.5.5") + (version "2.7.1") (source (origin (method url-fetch) @@ -619,19 +672,19 @@ runs Hspec tests.") "hspec-core-" version ".tar.gz")) (sha256 (base32 - "1vfrqlpn32s9wiykmkxbnrnd5p56yznw20pf8fwzw78ar4wpz55x")))) + "08vk8588lap00hsln8zl64dazbb28lzk4b4h5vnm7xvhg7r21k1c")))) (build-system haskell-build-system) (arguments `(#:tests? #f)) ; FIXME: testing libraries are missing. (inputs `(("ghc-setenv" ,ghc-setenv) ("ghc-ansi-terminal" ,ghc-ansi-terminal) - ("ghc-async" ,ghc-async) ("ghc-clock" ,ghc-clock) ("ghc-quickcheck-io" ,ghc-quickcheck-io) ("ghc-hunit" ,ghc-hunit) ("ghc-quickcheck" ,ghc-quickcheck) ("ghc-hspec-expectations" ,ghc-hspec-expectations) - ("ghc-silently" ,ghc-silently))) + ("ghc-silently" ,ghc-silently) + ("ghc-tf-random" ,ghc-tf-random))) (home-page "https://hspec.github.io/") (synopsis "Testing framework for Haskell") (description "This library exposes internal types and functions that can @@ -641,7 +694,7 @@ be used to extend Hspec's functionality.") (define-public ghc-hspec-meta (package (name "ghc-hspec-meta") - (version "2.4.6") + (version "2.6.0") (source (origin (method url-fetch) @@ -649,13 +702,13 @@ be used to extend Hspec's functionality.") "hspec-meta-" version ".tar.gz")) (sha256 (base32 - "0qmvk01n79j6skn79r6zalg2pd0x0nqqn9qn8mhg0pgyzcdnfc9b")))) + "1n1a4633wfivylglji8920f67mx7qz8j4q58n8p7dxk6yg4h3mz6")))) (build-system haskell-build-system) (inputs `(("ghc-quickcheck" ,ghc-quickcheck) ("ghc-hunit" ,ghc-hunit) ("ghc-ansi-terminal" ,ghc-ansi-terminal) - ("ghc-async" ,ghc-async) + ("ghc-clock" ,ghc-clock) ("ghc-hspec-expectations" ,ghc-hspec-expectations) ("ghc-setenv" ,ghc-setenv) ("ghc-random" ,ghc-random) @@ -669,7 +722,7 @@ used to test the in-development version of Hspec.") (define-public ghc-hspec (package (name "ghc-hspec") - (version "2.5.5") + (version "2.7.1") (source (origin (method url-fetch) @@ -677,7 +730,7 @@ used to test the in-development version of Hspec.") "hspec-" version ".tar.gz")) (sha256 (base32 - "1yv4k5b5kkig2q3waj28587sq28wms7wfav5a3lq4dra6jybimfm")))) + "1x8rcr7j1azcaw0fg1xzp8j0gr4ias36z09aj24i4xp8pnyfp341")))) (build-system haskell-build-system) (inputs `(("ghc-hspec-core" ,ghc-hspec-core) @@ -696,7 +749,7 @@ Haskell, inspired by the Ruby library RSpec.") (define-public ghc-hspec-contrib (package (name "ghc-hspec-contrib") - (version "0.5.0") + (version "0.5.1") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" @@ -704,7 +757,7 @@ Haskell, inspired by the Ruby library RSpec.") version ".tar.gz")) (sha256 (base32 - "13579xdqwbsy8k0vxdcvgy932d4p76mij1rzkzbpqbspfn7399yv")))) + "0hhzxaa3fxz5mk5qcsrnfr98a7bn3szx2ydgr0x9mbqmm1jg06rc")))) (build-system haskell-build-system) (inputs `(("ghc-hspec-core" ,ghc-hspec-core) @@ -798,7 +851,7 @@ implementations of cryptographic ciphers.") (define-public ghc-hedgehog (package (name "ghc-hedgehog") - (version "0.6.1") + (version "1.0.1") (source (origin (method url-fetch) @@ -808,13 +861,14 @@ implementations of cryptographic ciphers.") ".tar.gz")) (sha256 (base32 - "0xz10ycdm5vk9nrcym1fi83k19frfwqz18bz8bnpzwvaj0j41yfj")))) + "1qc7hkqbnsk3f5r26wc35r3qiy941nmcxhfqgcq9027kw4gs0bi0")))) (build-system haskell-build-system) (inputs `(("ghc-ansi-terminal" ,ghc-ansi-terminal) ("ghc-async" ,ghc-async) ("ghc-concurrent-output" ,ghc-concurrent-output) ("ghc-exceptions" ,ghc-exceptions) + ("ghc-fail" ,ghc-fail) ("ghc-lifted-async" ,ghc-lifted-async) ("ghc-mmorph" ,ghc-mmorph) ("ghc-monad-control" ,ghc-monad-control) @@ -841,7 +895,7 @@ To get started quickly, see the examples: (define-public cabal-doctest (package (name "cabal-doctest") - (version "1.0.6") + (version "1.0.8") (source (origin (method url-fetch) @@ -850,11 +904,8 @@ To get started quickly, see the examples: version ".tar.gz")) (sha256 (base32 - "0bgd4jdmzxq5y465r4sf4jv2ix73yvblnr4c9wyazazafddamjny")))) + "03if74imlhhk7m56nci5f1wclniwqdmwl4hl177040j1gnlac9i0")))) (build-system haskell-build-system) - (arguments - `(#:cabal-revision - ("1" "1bk85avgc93yvcggwbk01fy8nvg6753wgmaanhkry0hz55h7mpld"))) (home-page "https://github.com/phadej/cabal-doctest") (synopsis "Setup.hs helper for running doctests") (description @@ -862,3 +913,53 @@ To get started quickly, see the examples: configuration. This library provides the common bits for writing custom @file{Setup.hs} files.") (license license:bsd-3))) + +(define-public ghc-testing-type-modifiers + (package + (name "ghc-testing-type-modifiers") + (version "0.1.0.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "testing-type-modifiers/testing-type-modifiers-" + version ".tar.gz")) + (sha256 + (base32 + "1wh2n95n39ivv6kbqn42vbzrj8zagsmk6f2al2qj40bg5kgdl2q5")))) + (build-system haskell-build-system) + (home-page "https://hackage.haskell.org/package/testing-type-modifiers") + (synopsis "Data type modifiers for property based testing") + (description "Property based testing libraries such as QuickCheck tend to +include type modifiers. Most of them are used to quantify over subsets of a +type. This library is intended to supply these modifiers to be used by +testing libraries, in an effort to make properties more portable between +testing frameworks.") + (license license:unlicense))) + +(define-public ghc-testing-feat + (package + (name "ghc-testing-feat") + (version "1.1.0.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "testing-feat/testing-feat-" version ".tar.gz")) + (sha256 + (base32 + "1v2qzzpf1s008g7q6q67glf7vbm1pkpq4rc3ii74f4g6vhfx610r")))) + (build-system haskell-build-system) + (inputs + `(("ghc-quickcheck" ,ghc-quickcheck) + ("ghc-size-based" ,ghc-size-based) + ("ghc-testing-type-modifiers" ,ghc-testing-type-modifiers) + ("ghc-semigroups" ,ghc-semigroups))) + (home-page "https://github.com/JonasDuregard/testing-feat") + (synopsis "Functional Enumeration of Algebraic Types") + (description "Feat (Functional Enumeration of Algebraic Types) +provides enumerations as functions from natural numbers to +values (similar to @code{toEnum} but for any algebraic data type). This +can be used for SmallCheck-style systematic testing, QuickCheck-style +random testing, and hybrids of the two.") + (license license:bsd-3))) diff --git a/gnu/packages/haskell-crypto.scm b/gnu/packages/haskell-crypto.scm index 882773ab68..6467e9bbca 100644 --- a/gnu/packages/haskell-crypto.scm +++ b/gnu/packages/haskell-crypto.scm @@ -36,7 +36,7 @@ (define-public ghc-asn1-types (package (name "ghc-asn1-types") - (version "0.3.2") + (version "0.3.3") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" @@ -44,7 +44,7 @@ version ".tar.gz")) (sha256 (base32 - "05vjchyqiy9n275cygffhn0ma7fz7jx52j0dcdm9qm8h9bziymqc")))) + "162lacdl9jr42pdhaj9hxqlba6hjxm6g866anna74q6v3cvw5ssp")))) (build-system haskell-build-system) (inputs `(("ghc-memory" ,ghc-memory) @@ -59,7 +59,7 @@ format.") (define-public ghc-asn1-encoding (package (name "ghc-asn1-encoding") - (version "0.9.5") + (version "0.9.6") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" @@ -67,7 +67,7 @@ format.") version ".tar.gz")) (sha256 (base32 - "0adgbamyq0mj1l1hdq4zyyllay714bac1wl0rih3fv1z6vykp1hy")))) + "02nsr30h5yic1mk7znf0q4z3n560ip017n60hg7ya25rsfmxxy6r")))) (build-system haskell-build-system) (inputs `(("ghc-hourglass" ,ghc-hourglass) @@ -85,7 +85,7 @@ supports for high level forms of ASN1 (BER, and DER).") (define-public ghc-asn1-parse (package (name "ghc-asn1-parse") - (version "0.9.4") + (version "0.9.5") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" @@ -93,7 +93,7 @@ supports for high level forms of ASN1 (BER, and DER).") version ".tar.gz")) (sha256 (base32 - "025prsihk5g6rdv9xlfmj0zpa0wa3qjzj5i4ilzvg7f6f3sji8y6")))) + "17pk8y3nwv9b9i5j15qlmwi7fmq9ab2z4kfpjk2rvcrh9lsf27wg")))) (build-system haskell-build-system) (inputs `(("ghc-asn1-types" ,ghc-asn1-types) @@ -212,7 +212,7 @@ that hides the C implementation.") (build-system haskell-build-system) (arguments `(#:cabal-revision - ("2" "0vyb9cfvpfxpslxvvhd48gw37i9g8ry5x63xwxd9q7xfiqhs7p3a") + ("4" "0gzaibjkipijwj9m9l6wrhfk5s3kdvfbhdl7cl1373cjfs41v0m3") #:tests? #f)) ; tests require old version of ghc-hunit (0.9) (native-inputs `(("ghc-base16-bytestring" ,ghc-base16-bytestring) ("ghc-puremd5" ,ghc-puremd5) @@ -240,7 +240,7 @@ that hides the C implementation.") (build-system haskell-build-system) (arguments `(#:cabal-revision - ("2" "0xas0nbq9bfdzlj6k565ibizv1cqvzfzsdj6q9pdiiwyxqblqc3m") + ("4" "0qb2wasfc4dpf6f9ahvhlv8njb3p3p9iwblg4032ssi95cg85718") #:tests? #f)) ; tests require old version of ghc-hunit (0.9) (native-inputs `(("ghc-base16-bytestring" ,ghc-base16-bytestring) ("ghc-sha" ,ghc-sha) @@ -274,7 +274,7 @@ the C implementation.") (build-system haskell-build-system) (arguments `(#:cabal-revision - ("1" "19birnmwga1yh82l4jqc3fygqkqcf5y8dlldnxfswngkzc3rvwp3") + ("3" "1arhz4y792kx439s2zv9x291gvvl2zxcfx9sq0nxsjlz7c3hpyp1") #:tests? #f)) ; tests require old version of ghc-hunit (0.9) (inputs `(("ghc-base16-bytestring" ,ghc-base16-bytestring))) @@ -358,7 +358,7 @@ are implemented as FFI bindings to efficient code from zlib.") (define-public ghc-entropy (package (name "ghc-entropy") - (version "0.4.1.4") + (version "0.4.1.5") (source (origin (method url-fetch) @@ -366,7 +366,7 @@ are implemented as FFI bindings to efficient code from zlib.") "entropy-" version "/" "entropy-" version ".tar.gz")) (sha256 - (base32 "1fgf47l9klwn1xssbcbq6by651vikd8hlfxhiwd5bqzxr1jnlgrf")))) + (base32 "0szf8hi1pi8g0kxnkcymh65gk1b0niyl1nnkckzdqyar87qal0jm")))) (build-system haskell-build-system) (home-page "https://github.com/TomMD/entropy") (synopsis "Provides platform independent entropy source for Haskell") @@ -780,7 +780,7 @@ extensions.") (define-public ghc-hsopenssl (package (name "ghc-hsopenssl") - (version "0.11.4.15") + (version "0.11.4.17") (source (origin (method url-fetch) @@ -788,14 +788,11 @@ extensions.") "HsOpenSSL/HsOpenSSL-" version ".tar.gz")) (sha256 (base32 - "0idmak6d8mpbxphyq9hkxkmby2wnzhc1phywlgm0zw6q47pwxgff")))) + "0qivl9clmybfglwxqp2sq308rv4ia4rhwshcsc8b029bvpp0mpsi")))) (build-system haskell-build-system) (inputs `(("ghc-network" ,ghc-network) ("openssl" ,openssl))) - (arguments - `(#:cabal-revision - ("1" "0bkcw2pjfgv1bhgkrpncvwq9czfr7cr4ak14n0v8c2y33i33wk5z"))) (home-page "https://github.com/vshabanov/HsOpenSSL") (synopsis "Partial OpenSSL binding for Haskell") (description "HsOpenSSL is an OpenSSL binding for Haskell. It can @@ -811,7 +808,7 @@ implementation of SSL.") (define-public ghc-openssl-streams (package (name "ghc-openssl-streams") - (version "1.2.1.3") + (version "1.2.2.0") (source (origin (method url-fetch) @@ -820,7 +817,7 @@ implementation of SSL.") version ".tar.gz")) (sha256 (base32 - "0pwghr7ygv59k572xsj1j97rilkbjz66qaiyj0ra2wfg6pl70wfw")))) + "0rplym6ayydkpr7x9mw3l13p0vzzfzzxw244d7sd3jcvaxpv0rmr")))) (build-system haskell-build-system) (inputs `(("ghc-hsopenssl" ,ghc-hsopenssl) @@ -830,9 +827,6 @@ implementation of SSL.") `(("ghc-hunit" ,ghc-hunit) ("ghc-test-framework" ,ghc-test-framework) ("ghc-test-framework-hunit" ,ghc-test-framework-hunit))) - (arguments - `(#:cabal-revision - ("2" "1004kgdryflpkp19dv4ikilhcn0xbfc5dsp6v3ib34580pcfj7wy"))) (home-page "http://hackage.haskell.org/package/openssl-streams") (synopsis "OpenSSL network support for io-streams") (description "This library contains io-streams routines for secure diff --git a/gnu/packages/haskell-web.scm b/gnu/packages/haskell-web.scm index 6f1c460eaa..1672170131 100644 --- a/gnu/packages/haskell-web.scm +++ b/gnu/packages/haskell-web.scm @@ -39,7 +39,7 @@ (define-public ghc-tagsoup (package (name "ghc-tagsoup") - (version "0.14.6") + (version "0.14.8") (source (origin (method url-fetch) @@ -47,7 +47,7 @@ "tagsoup-" version ".tar.gz")) (sha256 (base32 - "1yv3dbyb0i1yqm796jgc4jj5kxkla1sxb3b2klw5ks182kdx8kjb")))) + "1m9sx6gr9y9yxvkmcap8xsks8cnhznvma1mrfl39zljkv005azms")))) (build-system haskell-build-system) (native-inputs `(("ghc-quickcheck" ,ghc-quickcheck))) @@ -95,7 +95,7 @@ for screen-scraping.") (define-public ghc-httpd-shed (package (name "ghc-httpd-shed") - (version "0.4.0.3") + (version "0.4.1.1") (source (origin (method url-fetch) @@ -103,10 +103,11 @@ for screen-scraping.") "httpd-shed-" version ".tar.gz")) (sha256 (base32 - "064jy1mqhnf1hvq6s04wlhmp916rd522x58djb9qixv13vc8gzxh")))) + "19dgdimpzr7pxk7pqvyin6j87gmvnf0rm35gzhmna8qr835wy3sr")))) (build-system haskell-build-system) (inputs - `(("ghc-network-uri" ,ghc-network-uri) + `(("ghc-network-bsd" ,ghc-network-bsd) + ("ghc-network-uri" ,ghc-network-uri) ("ghc-network" ,ghc-network))) (home-page "https://hackage.haskell.org/package/httpd-shed") (synopsis "Simple web-server with an interact style API") @@ -146,7 +147,7 @@ both client and server code).") (define-public ghc-http (package (name "ghc-http") - (version "4000.3.12") + (version "4000.3.14") (outputs '("out" "doc")) (source (origin @@ -155,7 +156,7 @@ both client and server code).") "HTTP-" version ".tar.gz")) (sha256 (base32 - "140r6qy1ay25piv0z3hih11zhigyi08nkwc32097j43pjff6mzx3")))) + "0yv8mbjicpl7l2017c4dhm49117lblgwpy1llv368wci1vrxf0m6")))) (build-system haskell-build-system) (native-inputs `(("ghc-httpd-shed" ,ghc-httpd-shed) @@ -185,7 +186,7 @@ responses coming back.") (define-public ghc-http-client (package (name "ghc-http-client") - (version "0.5.13.1") + (version "0.6.4") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" @@ -193,7 +194,7 @@ responses coming back.") version ".tar.gz")) (sha256 (base32 - "0szwbgvkkdz56lgi91armkagmb7nnfwbpp4j7cm9zhmffv3ba8g1")))) + "1n9rnbp8lwkd4whi2anniywi4y1bn9kx6nzfigfvz28d7pn7i4in")))) (build-system haskell-build-system) ;; Tests require access to the web. (arguments `(#:tests? #f)) @@ -285,7 +286,7 @@ Date in Haskell.") (define-public ghc-http2 (package (name "ghc-http2") - (version "1.6.3") + (version "1.6.5") (source (origin (method url-fetch) @@ -294,14 +295,14 @@ Date in Haskell.") "http2-" version ".tar.gz")) (sha256 (base32 - "0hww0rfsv6lqx62qzycbcqy5q6rh9k09qkyjkdm5m1sp1z50wqk1")))) + "1vlmy8vnp6ml2n2pr11aa5fzigldsscgzmibrni64ykgfvpd3sqn")))) (build-system haskell-build-system) (inputs - `(("ghc-bytestring-builder" ,ghc-bytestring-builder) - ("ghc-case-insensitive" ,ghc-case-insensitive) + `(("ghc-case-insensitive" ,ghc-case-insensitive) + ("ghc-network-byte-order" ,ghc-network-byte-order) ("ghc-aeson" ,ghc-aeson) ("ghc-aeson-pretty" ,ghc-aeson-pretty) - ("ghc-hex" ,ghc-hex) + ("ghc-base16-bytestring" ,ghc-base16-bytestring) ("ghc-unordered-containers" ,ghc-unordered-containers) ("ghc-vector" ,ghc-vector) ("ghc-word8" ,ghc-word8) @@ -320,7 +321,7 @@ and HPACK. Currently HTTP/2 16 framing and HPACK 10 is supported.") (define-public ghc-http-conduit (package (name "ghc-http-conduit") - (version "2.3.2") + (version "2.3.7.3") (source (origin (method url-fetch) @@ -329,7 +330,7 @@ and HPACK. Currently HTTP/2 16 framing and HPACK 10 is supported.") version ".tar.gz")) (sha256 (base32 - "1iay4hr0mj8brkxvgkv1liqa8irl9axfc3qhn8qsvcyq4n1l95km")))) + "00rshi1y0h8y4rvsnnad0bppxgpvp40sk7lw1kxmdwy8pi8xrvbs")))) (build-system haskell-build-system) ;; FIXME: `httpLbs TLS` in test-suite `test` fails with ;; ConnectionFailure getProtocolByName: does not exist (no such protocol @@ -379,7 +380,7 @@ which allow you to avoid direct usage of conduits.") (define-public ghc-wai (package (name "ghc-wai") - (version "3.2.1.2") + (version "3.2.2.1") (source (origin (method url-fetch) @@ -389,7 +390,7 @@ which allow you to avoid direct usage of conduits.") ".tar.gz")) (sha256 (base32 - "0jr3b2789wa4m6mxkz12ynz4lfsqmgbrcy0am8karyqr3x3528r8")))) + "058871axlq6r0gcqxbjw37w57df9xbv81dmz99b1zq59wf329xzy")))) (build-system haskell-build-system) (inputs `(("ghc-bytestring-builder" ,ghc-bytestring-builder) @@ -413,7 +414,7 @@ communication between web applications and web servers.") (define-public ghc-wai-logger (package (name "ghc-wai-logger") - (version "2.3.2") + (version "2.3.5") (source (origin (method url-fetch) @@ -423,7 +424,7 @@ communication between web applications and web servers.") ".tar.gz")) (sha256 (base32 - "0w5ldq4gplc16zzk5ikmbbjw79imaqvw8p6lylaw3hlsbn3zzm4d")))) + "05gbipyw0672irynsc3wqvvgzqixhmq69ay2mxh2phb734r8bcmm")))) (build-system haskell-build-system) (arguments `(#:tests? #f)) ; FIXME: Tests cannot find libraries exported ; by propagated-inputs. @@ -446,7 +447,7 @@ communication between web applications and web servers.") (define-public ghc-wai-extra (package (name "ghc-wai-extra") - (version "3.0.24.2") + (version "3.0.28") (source (origin (method url-fetch) @@ -456,13 +457,12 @@ communication between web applications and web servers.") ".tar.gz")) (sha256 (base32 - "07gcgq59dki5drkjci9ka34xjsy3bqilbsx0lsc4905w9jlyfbci")))) + "0iky7k4kirngvk1p2nz19zgzffb5hppfaxdjan80v06ikc8w1wm7")))) (build-system haskell-build-system) (inputs `(("ghc-ansi-terminal" ,ghc-ansi-terminal) ("ghc-base64-bytestring" ,ghc-base64-bytestring) ("ghc-cookie" ,ghc-cookie) - ("ghc-blaze-builder" ,ghc-blaze-builder) ("ghc-network" ,ghc-network) ("ghc-lifted-base" ,ghc-lifted-base) ("ghc-streaming-commons" ,ghc-streaming-commons) @@ -476,6 +476,7 @@ communication between web applications and web servers.") ("ghc-void" ,ghc-void) ("ghc-wai" ,ghc-wai) ("ghc-http-types" ,ghc-http-types) + ("ghc-http2" ,ghc-http2) ("ghc-case-insensitive" ,ghc-case-insensitive) ("ghc-data-default-class" ,ghc-data-default-class) ("ghc-unix-compat" ,ghc-unix-compat) @@ -519,7 +520,7 @@ Haskell's Web Application Interface (WAI).") (define-public ghc-bsb-http-chunked (package (name "ghc-bsb-http-chunked") - (version "0.0.0.2") + (version "0.0.0.4") (source (origin (method url-fetch) @@ -529,10 +530,21 @@ Haskell's Web Application Interface (WAI).") version ".tar.gz")) (sha256 (base32 - "1x6m6xkrcw6jiaig1bb2wb5pqyw31x8xr9k9pxgq2g3ng44pbjr8")))) + "0z0f18yc6zlwh29c6175ivfcin325lvi4irpvv0n3cmq7vi0k0ql")))) (build-system haskell-build-system) - (inputs - `(("ghc-bytestring-builder" ,ghc-bytestring-builder))) + (arguments + `(;; XXX: As of 0.0.4, one property test ("Identical output as Blaze") + ;; fails on i686-linux. + #:tests? ,(not (string-prefix? "i686" (or (%current-target-system) + (%current-system)))))) + (native-inputs + `(("ghc-attoparsec" ,ghc-attoparsec) + ("ghc-blaze-builder" ,ghc-blaze-builder) + ("ghc-hedgehog" ,ghc-hedgehog) + ("ghc-tasty" ,ghc-tasty) + ("ghc-tasty-hedgehog" ,ghc-tasty-hedgehog) + ("ghc-tasty-hunit" ,ghc-tasty-hunit) + ("ghc-doctest" ,ghc-doctest))) (home-page "http://github.com/sjakobi/bsb-http-chunked") (synopsis "Chunked HTTP transfer encoding for bytestring builders") (description "This Haskell library contains functions for encoding @@ -543,7 +555,7 @@ transfers.") (define-public ghc-warp (package (name "ghc-warp") - (version "3.2.27") + (version "3.2.28") (source (origin (method url-fetch) @@ -551,7 +563,7 @@ transfers.") "warp-" version "/" "warp-" version ".tar.gz")) (sha256 - (base32 "0p2w88q0zd55ms20qylipbi0qzbf324i9r8b9qqxyds5yc1anq76")))) + (base32 "0w2w3aiccpb2f8zssqiszcxzqdysihqi5xply23lwif5arz4saw7")))) (build-system haskell-build-system) (inputs `(("ghc-async" ,ghc-async) @@ -563,6 +575,7 @@ transfers.") ("ghc-iproute" ,ghc-iproute) ("ghc-network" ,ghc-network) ("ghc-streaming-commons" ,ghc-streaming-commons) + ("ghc-time-manager" ,ghc-time-manager) ("ghc-unix-compat" ,ghc-unix-compat) ("ghc-vault" ,ghc-vault) ("ghc-wai" ,ghc-wai) @@ -589,7 +602,7 @@ based WAI (Web Application Interface in Haskell).") (define-public ghc-tls-session-manager (package (name "ghc-tls-session-manager") - (version "0.0.0.2") + (version "0.0.3") (source (origin (method url-fetch) @@ -599,7 +612,7 @@ based WAI (Web Application Interface in Haskell).") version ".tar.gz")) (sha256 (base32 - "0rvmln545vghsx8zhxp44f0f6pzma8cylarmfhhysy55ipywr1n5")))) + "0k57flqp2b4bipafiyfipnqmdqv04ky39yr4s4s9sx577zz2j2yi")))) (build-system haskell-build-system) (inputs `(("ghc-auto-update" ,ghc-auto-update) @@ -615,7 +628,7 @@ limitation, automatic pruning, energy saving and replay resistance.") (define-public ghc-warp-tls (package (name "ghc-warp-tls") - (version "3.2.4.3") + (version "3.2.8") (source (origin (method url-fetch) @@ -624,7 +637,7 @@ limitation, automatic pruning, energy saving and replay resistance.") "warp-tls-" version ".tar.gz")) (sha256 (base32 - "17gj295fr98l7mkz2gdz6kahdnmja0sql3kvy2zab6q168g53kc4")))) + "1z5jzl40x1gp249fk8h51gkw6m3hzxchm2bp3kbpqdgmw8r5im8y")))) (build-system haskell-build-system) (inputs `(("ghc-cryptonite" ,ghc-cryptonite) @@ -699,7 +712,7 @@ Haskell.") (define-public ghc-mime-types (package (name "ghc-mime-types") - (version "0.1.0.8") + (version "0.1.0.9") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" @@ -707,7 +720,7 @@ Haskell.") version ".tar.gz")) (sha256 (base32 - "14ccl2842ya17zyj0bpc7vzklbyqvvydpbypn69h2fmhgji192x8")))) + "1lkipa4v73z3l5lqs6sdhl898iq41kyxv2jb9agsajzgd58l6cha")))) (build-system haskell-build-system) (home-page "https://github.com/yesodweb/wai") (synopsis "Basic MIME type handling types and functions") @@ -741,7 +754,7 @@ documents.") (define-public ghc-blaze-html (package (name "ghc-blaze-html") - (version "0.9.1.1") + (version "0.9.1.2") (source (origin (method url-fetch) @@ -750,7 +763,7 @@ documents.") version ".tar.gz")) (sha256 (base32 - "06xv8fqhclfjj61z74cgggn4lmx1s7diakxg84mnkgfvk11983pa")))) + "0k1r1hddjgqighazcazxrx6xfhvy2gm8il8l82ainv3cai13yl30")))) (build-system haskell-build-system) (inputs `(("ghc-blaze-builder" ,ghc-blaze-builder) @@ -769,7 +782,7 @@ documents.") (define-public ghc-aeson (package (name "ghc-aeson") - (version "1.3.1.1") + (version "1.4.5.0") (source (origin (method url-fetch) @@ -779,7 +792,7 @@ documents.") ".tar.gz")) (sha256 (base32 - "1i1ig840fvsb1lnklcv32zsc0zscirc301lw1mpfxhc6h4pk0gw4")))) + "1jhabz1lbbv6yqxqiybifi86cb5xlsadrn368n5dd0wzzc7ja4iz")))) (build-system haskell-build-system) (arguments `(#:tests? #f)) ; FIXME: testing libraries are missing. (inputs @@ -815,7 +828,7 @@ naming: in Greek mythology, Aeson was the father of Jason.)") (define-public ghc-aeson-pretty (package (name "ghc-aeson-pretty") - (version "0.8.7") + (version "0.8.8") (source (origin (method url-fetch) (uri (string-append @@ -823,7 +836,7 @@ naming: in Greek mythology, Aeson was the father of Jason.)") version ".tar.gz")) (sha256 (base32 - "1m977gs0s9gf3lwzlbs5y7bl6ansc5pywmn2qjk09l5bwg2yrhf1")))) + "09n7gs91y1fbw6gjszrd2na3isnvk3y5rsi90lzjrwywnqfadkl1")))) (build-system haskell-build-system) (inputs `(("ghc-aeson" ,ghc-aeson) @@ -1011,7 +1024,7 @@ avoid any issues with characters.") (define-public ghc-yesod-core (package (name "ghc-yesod-core") - (version "1.6.6") + (version "1.6.16.1") (source (origin (method url-fetch) @@ -1020,7 +1033,7 @@ avoid any issues with characters.") "yesod-core-" version ".tar.gz")) (sha256 (base32 - "0xahf6m5c7mkl74p0gimy4wb5w4s3lh92wwxmk517fbq666c92kb")))) + "0a0yv7wkwvb0n6iia532y9nzrirgnm09pjc8hpm0lx4ff609pgd2")))) (build-system haskell-build-system) (inputs `(("ghc-wai" ,ghc-wai) ("ghc-extra" ,ghc-extra) @@ -1080,7 +1093,7 @@ functions, widgets, etc.") (define-public ghc-yesod-persistent (package (name "ghc-yesod-persistent") - (version "1.6.0") + (version "1.6.0.2") (source (origin (method url-fetch) @@ -1089,7 +1102,7 @@ functions, widgets, etc.") "yesod-persistent-" version ".tar.gz")) (sha256 (base32 - "1gd59xf7b6v3cald58mzwnfbdzjr49cz60rm4wc5w9pvfx12pgj2")))) + "17adw0aaj29ia7ii3jka301442860b5wvfrms079q973gzahz5fd")))) (build-system haskell-build-system) (arguments `(#:tests? #f)) ; FIXME: hspec-discover not available in PATH. (inputs `(("ghc-yesod-core" ,ghc-yesod-core) @@ -1112,7 +1125,7 @@ from Yesod.") (define-public ghc-yesod-form (package (name "ghc-yesod-form") - (version "1.6.2") + (version "1.6.7") (source (origin (method url-fetch) @@ -1122,7 +1135,7 @@ from Yesod.") ".tar.gz")) (sha256 (base32 - "1p1x1hffvarplc82ykdk7rm6p5isqgqf78bvxzpfhncxs4kwx057")))) + "0mny71dyp6cp5akyp5wvmrhmip5rkqi8ibdn3lipvmajx9h58r5d")))) (build-system haskell-build-system) (inputs `(("ghc-yesod-core" ,ghc-yesod-core) @@ -1198,7 +1211,7 @@ whereas most of the core code lives in @code{ghc-yesod-core}.") (define-public ghc-hxt-charproperties (package (name "ghc-hxt-charproperties") - (version "9.2.0.1") + (version "9.4.0.0") (source (origin (method url-fetch) @@ -1207,7 +1220,7 @@ whereas most of the core code lives in @code{ghc-yesod-core}.") version ".tar.gz")) (sha256 (base32 - "1mml8wglvagqq891rchgli6r8rnkwrqhgsxfl6kb5403pzb18rp4")))) + "1bk88hj2pqlvcnyfncqyb9j7w9vvdxcq3cgr0w2l09c0abas23pm")))) (build-system haskell-build-system) (home-page "https://github.com/UweSchmidt/hxt") (synopsis "Character properties and classes for XML and Unicode") @@ -1273,7 +1286,7 @@ derivations of regular expressions.") (define-public ghc-hxt (package (name "ghc-hxt") - (version "9.3.1.16") + (version "9.3.1.18") (source (origin (method url-fetch) @@ -1283,7 +1296,7 @@ derivations of regular expressions.") ".tar.gz")) (sha256 (base32 - "1qq3ykgn355rx242xjcbqqksgvwr6k2fdj5phw4iv28qqxff6m8d")))) + "0836k65px3w9c5h1h2bmzq5a7mp6ajxwvfg3pfr2kbxwkgc0j63j")))) (build-system haskell-build-system) (inputs `(("ghc-hxt-charproperties" ,ghc-hxt-charproperties) @@ -1364,7 +1377,7 @@ deal with the result.") (define-public ghc-snap-core (package (name "ghc-snap-core") - (version "1.0.3.2") + (version "1.0.4.0") (source (origin (method url-fetch) @@ -1372,7 +1385,7 @@ deal with the result.") "snap-core/snap-core-" version ".tar.gz")) (sha256 (base32 - "136q7l4hd5yn5hb507q1ziqx124ma1lkzh5dx0n150p8dx3rhhsc")))) + "0dklxgrbqhnb6bc4ic358g4fyj11ywmjrkxxhqcjmci2hhpn00mr")))) (build-system haskell-build-system) (inputs `(("ghc-old-locale" ,ghc-old-locale) @@ -1400,9 +1413,6 @@ deal with the result.") ("ghc-test-framework-hunit" ,ghc-test-framework-hunit) ("ghc-test-framework-quickcheck2" ,ghc-test-framework-quickcheck2) ("ghc-zlib" ,ghc-zlib))) - (arguments - `(#:cabal-revision - ("3" "0wlhn33r7c9g7j23y006ddq9d87lkmianvvfrbl8jd8mvjvj2gfa"))) (home-page "http://snapframework.com/") (synopsis "Haskell Web Framework (core interfaces and types)") (description "Snap is a simple and fast web development framework @@ -1414,7 +1424,7 @@ contains the core definitions and types for the Snap framework.") (define-public ghc-snap-server (package (name "ghc-snap-server") - (version "1.1.0.0") + (version "1.1.1.1") (source (origin (method url-fetch) @@ -1422,7 +1432,7 @@ contains the core definitions and types for the Snap framework.") "snap-server/snap-server-" version ".tar.gz")) (sha256 (base32 - "0vvw9n8xs272qdlrf3dxhnva41zh3awi7pf022rrjj75lj8a77i4")))) + "0lw475wp0lnrbgc3jcfif3qjjc3pmrh2k74d8cgpnc1304g6a2s5")))) (build-system haskell-build-system) (inputs `(("ghc-attoparsec" ,ghc-attoparsec) @@ -1453,7 +1463,7 @@ contains the core definitions and types for the Snap framework.") ("ghc-test-framework-quickcheck2" ,ghc-test-framework-quickcheck2))) (arguments `(#:cabal-revision - ("3" "0a9d3nqb5rvgm25nak68lp6yj9m6cwhbgdbg5l7ib5i2czcg7yjh"))) + ("1" "094b7ll47lxd4lvr6kd59jyw0vz686gw5cx16w758d6fli0cy3x3"))) (home-page "http://snapframework.com/") (synopsis "Web server for the Snap Framework") (description "Snap is a simple and fast web development framework diff --git a/gnu/packages/haskell-xyz.scm b/gnu/packages/haskell-xyz.scm index 37b9b262fc..fb6833207d 100644 --- a/gnu/packages/haskell-xyz.scm +++ b/gnu/packages/haskell-xyz.scm @@ -59,6 +59,7 @@ #:use-module (gnu packages pcre) #:use-module (gnu packages pkg-config) #:use-module (gnu packages sdl) + #:use-module (gnu packages web) #:use-module (gnu packages xml) #:use-module (gnu packages xorg) #:use-module (guix build-system haskell) @@ -128,6 +129,36 @@ of @code{Par} functionality. See the @code{Control.Monad.Par.Class} module for more details.") (license license:bsd-3))) +(define-public ghc-active + (package + (name "ghc-active") + (version "0.2.0.14") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "active/active-" version ".tar.gz")) + (sha256 + (base32 + "0x3b4ln6csa554qls28wbxvclkbdz3yi60i1m0q5ing0cs16fifz")))) + (build-system haskell-build-system) + (inputs + `(("ghc-vector" ,ghc-vector) + ("ghc-semigroups" ,ghc-semigroups) + ("ghc-semigroupoids" ,ghc-semigroupoids) + ("ghc-lens" ,ghc-lens) + ("ghc-linear" ,ghc-linear))) + (native-inputs + `(("ghc-quickcheck" ,ghc-quickcheck))) + (home-page "https://hackage.haskell.org/package/active") + (synopsis "Abstractions for animation") + (description "This package defines an @code{Active} abstraction for +time-varying values with finite start and end times. It is used for +describing animations within the +@url{https://archives.haskell.org/projects.haskell.org/diagrams/, +diagrams framework}.") + (license license:bsd-3))) + (define-public ghc-adjunctions (package (name "ghc-adjunctions") @@ -143,6 +174,9 @@ module for more details.") (base32 "1sbal7cbhm12crfnfhkk322jnzgx7lhw3jzq0p463bipagsjwz2h")))) (build-system haskell-build-system) + (arguments + `(#:cabal-revision + ("2" "1yfsjx7dqikg3hvld7i91xfsg5lawmr5980lvfd794sybmgxsf17"))) (inputs `(("ghc-profunctors" ,ghc-profunctors) ("ghc-comonad" ,ghc-comonad) @@ -167,7 +201,7 @@ for Haskell.") (define-public ghc-aeson-compat (package (name "ghc-aeson-compat") - (version "0.3.8") + (version "0.3.9") (source (origin (method url-fetch) @@ -176,7 +210,7 @@ for Haskell.") "aeson-compat-" version ".tar.gz")) (sha256 (base32 - "0j4v13pgk21zy8hqkbx8hw0n05jdl17qphxz9rj4h333pr547r3i")))) + "1j13gykv4ryvmr14w5blz0nnpdb4p0hpa27wahw3mhb1lwdr8hz0")))) (build-system haskell-build-system) (arguments `(#:tests? #f)) ; FIXME: Tests require QuickCheck >= 2.10 (inputs `(("ghc-base-compat" ,ghc-base-compat) @@ -198,6 +232,45 @@ for Haskell.") ghc-aeson.") (license license:bsd-3))) +(define-public ghc-aeson-diff + (package + (name "ghc-aeson-diff") + (version "1.1.0.7") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "aeson-diff/aeson-diff-" version ".tar.gz")) + (sha256 + (base32 + "01d48pd7d1mb9cd5yxfajln8rmjdjq8ch91s0lav4qw1azv6vp2r")))) + (build-system haskell-build-system) + (inputs + `(("ghc-aeson" ,ghc-aeson) + ("ghc-edit-distance-vector" ,ghc-edit-distance-vector) + ("ghc-hashable" ,ghc-hashable) + ("ghc-scientific" ,ghc-scientific) + ("ghc-unordered-containers" ,ghc-unordered-containers) + ("ghc-vector" ,ghc-vector) + ("ghc-semigroups" ,ghc-semigroups) + ("ghc-optparse-applicative" ,ghc-optparse-applicative))) + (native-inputs + `(("ghc-quickcheck" ,ghc-quickcheck) + ("ghc-quickcheck-instances" ,ghc-quickcheck-instances) + ("ghc-glob" ,ghc-glob) + ("ghc-quickcheck" ,ghc-quickcheck) + ("ghc-quickcheck-instances" ,ghc-quickcheck-instances) + ("ghc-quickcheck" ,ghc-quickcheck) + ("ghc-doctest" ,ghc-doctest) + ("hlint" ,hlint))) + (home-page "https://github.com/thsutton/aeson-diff") + (synopsis "Extract and apply patches to JSON documents") + (description "This is a small library for working with changes to JSON +documents. It includes a library and two command-line executables in the +style of the @command{diff} and @command{patch} commands available on many +systems.") + (license license:bsd-3))) + (define-public ghc-alex (package (name "ghc-alex") @@ -261,6 +334,29 @@ tool lex or flex for C/C++.") needed by both alsa-seq and alsa-pcm.") (license license:bsd-3))) +(define-public ghc-alsa-mixer + (package + (name "ghc-alsa-mixer") + (version "0.3.0") + (source + (origin + (method url-fetch) + (uri + (string-append + "mirror://hackage/package/alsa-mixer/alsa-mixer-" + version ".tar.gz")) + (sha256 + (base32 + "00ny2p3276jilidjs44npc8zmbhynz3f2lpmlwwl6swwx5yijsnb")))) + (build-system haskell-build-system) + (inputs `(("ghc-alsa-core" ,ghc-alsa-core))) + (native-inputs `(("ghc-c2hs" ,ghc-c2hs))) + (home-page "https://github.com/ttuegel/alsa-mixer") + (synopsis "Bindings to the ALSA simple mixer API") + (description + "This package provides bindings to the ALSA simple mixer API.") + (license license:bsd-3))) + (define-public ghc-annotated-wl-pprint (package (name "ghc-annotated-wl-pprint") @@ -289,7 +385,7 @@ a variety of ways.") (define-public ghc-ansi-terminal (package (name "ghc-ansi-terminal") - (version "0.8.0.4") + (version "0.9.1") (source (origin (method url-fetch) @@ -299,7 +395,7 @@ a variety of ways.") ".tar.gz")) (sha256 (base32 - "0428gq8m3fdnb7ldcsyk97qcch76hcxbgh2666p6f76fs2qbhg7b")))) + "1yr0ld0kqns3w3j9gl62bdwshvyazidx4dv1qkvq19ivnf08w23l")))) (build-system haskell-build-system) (inputs `(("ghc-colour" ,ghc-colour))) @@ -313,7 +409,7 @@ cursor, and changing the title.") (define-public ghc-ansi-wl-pprint (package (name "ghc-ansi-wl-pprint") - (version "0.6.8.2") + (version "0.6.9") (source (origin (method url-fetch) @@ -322,7 +418,7 @@ cursor, and changing the title.") version ".tar.gz")) (sha256 (base32 - "0gnb4mkqryv08vncxnj0bzwcnd749613yw3cxfzw6y3nsldp4c56")))) + "1b2fg8px98dzbaqyns10kvs8kn6cl1hdq5wb9saz40izrpkyicm7")))) (build-system haskell-build-system) (inputs `(("ghc-ansi-terminal" ,ghc-ansi-terminal))) @@ -336,7 +432,7 @@ colored output using the ansi-terminal package.") (define-public ghc-appar (package (name "ghc-appar") - (version "0.1.4") + (version "0.1.8") (source (origin (method url-fetch) @@ -346,7 +442,7 @@ colored output using the ansi-terminal package.") ".tar.gz")) (sha256 (base32 - "09jb9ij78fdkz2qk66rw99q19qnm504dpv0yq0pjsl6xwjmndsjq")))) + "07v3h766q9mnhphsm53718h1lds147ix7dj15kc5hnsj4vffvkn4")))) (build-system haskell-build-system) (home-page "https://hackage.haskell.org/package/appar") @@ -358,7 +454,7 @@ style.") (define-public ghc-async (package (name "ghc-async") - (version "2.2.1") + (version "2.2.2") (source (origin (method url-fetch) @@ -368,7 +464,7 @@ style.") ".tar.gz")) (sha256 (base32 - "09whscli1q5z7lzyq9rfk0bq1ydplh6pjmc6qv0x668k5818c2wg")))) + "1zxvfcyy4sg8lmzphi5dgnavksj5pav6rbvd5kc48lf4hanb2jjb")))) (build-system haskell-build-system) (inputs `(("ghc-hashable" ,ghc-hashable) @@ -386,7 +482,7 @@ will eventually deliver a value of type @code{a}.") (define-public ghc-atomic-primops (package (name "ghc-atomic-primops") - (version "0.8.2") + (version "0.8.3") (source (origin (method url-fetch) @@ -394,7 +490,7 @@ will eventually deliver a value of type @code{a}.") "/atomic-primops-" version ".tar.gz")) (sha256 (base32 - "0cyr2x6xqz6s233znrz9rnrfj56m9bmnawwnka0lsqqy1hp8gy37")))) + "03n5dmyplrqgbyf8dr91izkxci7gkl3i3fnp82i5ld869zrgjfh0")))) (build-system haskell-build-system) (inputs `(("ghc-primitive" ,ghc-primitive))) (home-page "https://github.com/rrnewton/haskell-lockfree/wiki") @@ -408,7 +504,7 @@ This library provides a safer method based on the concept of @code{Ticket}s.") (define-public ghc-atomic-write (package (name "ghc-atomic-write") - (version "0.2.0.5") + (version "0.2.0.6") (source (origin (method url-fetch) @@ -418,7 +514,7 @@ This library provides a safer method based on the concept of @code{Ticket}s.") ".tar.gz")) (sha256 (base32 - "1iaq0hprxcv0sl1sgwcgmm87zraf738va1bciwnx2jkk3k1v9iyv")))) + "1xs3shwnlj8hmnm3q6jc8nv78z0481i5n4hrqqdmbpx8grvlnqyl")))) (build-system haskell-build-system) (inputs `(("ghc-temporary" ,ghc-temporary) @@ -441,7 +537,7 @@ permissions while atomically writing to a file.") (define-public ghc-attoparsec (package (name "ghc-attoparsec") - (version "0.13.2.2") + (version "0.13.2.3") (source (origin (method url-fetch) @@ -451,7 +547,7 @@ permissions while atomically writing to a file.") ".tar.gz")) (sha256 (base32 - "0j6qcwd146yzlkc9mcvzvnixsyl65n2a68l28322q5v9p4g4g4yx")))) + "1ngjn9h5n0vyki0m2jir4mg85875ysswy9hznpmj1r856mqwc6ix")))) (build-system haskell-build-system) (arguments `(#:phases @@ -494,7 +590,7 @@ complicated text/binary file formats.") (define-public ghc-attoparsec-iso8601 (package (name "ghc-attoparsec-iso8601") - (version "1.0.0.0") + (version "1.0.1.0") (source (origin (method url-fetch) @@ -503,11 +599,11 @@ complicated text/binary file formats.") "attoparsec-iso8601-" version ".tar.gz")) (sha256 (base32 - "12l55b76bhya9q89mfmqmy6sl5v39b6gzrw5rf3f70vkb23nsv5a")))) + "0hj10w15qp2z5bz2v4xahhmbgzclpyfi5l2sv97wqycysg9gp7s9")))) (build-system haskell-build-system) (arguments `(#:cabal-revision - ("1" "06f7pgmmc8456p3hc1y23kz1y127gfczy7s00wz1rls9g2sm2vi4"))) + ("1" "1rjhscmczgs1bwyqx7lvkm8py3ylxjd2797mrzgnq60fvm292750"))) (inputs `(("ghc-attoparsec" ,ghc-attoparsec) ("ghc-base-compat" ,ghc-base-compat))) (home-page "https://github.com/bos/aeson") @@ -519,7 +615,7 @@ from aeson.") (define-public ghc-auto-update (package (name "ghc-auto-update") - (version "0.1.4") + (version "0.1.6") (source (origin (method url-fetch) @@ -529,8 +625,13 @@ from aeson.") ".tar.gz")) (sha256 (base32 - "09dlh2alsx2mw5kvj931yhbj0aw7jmly2cm9xbscm2sf098w35jy")))) + "1i36xc2i34aync8271x3pv515l3zb53i518dybn8ghqkhzf27q7l")))) (build-system haskell-build-system) + (native-inputs + `(("ghc-hspec" ,ghc-hspec) + ("ghc-hunit" ,ghc-hunit) + ("ghc-retry" ,ghc-retry) + ("hspec-discover" ,hspec-discover))) (home-page "https://github.com/yesodweb/wai") (synopsis "Efficiently run periodic, on-demand actions") (description "This library provides mechanisms to efficiently run @@ -639,7 +740,7 @@ Haskell @code{ByteString}s.") (define-public ghc-base-compat (package (name "ghc-base-compat") - (version "0.10.4") + (version "0.10.5") (source (origin (method url-fetch) @@ -649,7 +750,7 @@ Haskell @code{ByteString}s.") ".tar.gz")) (sha256 (base32 - "0ksp990gxs731mq19rzbxrbs43nazfljjc8krlx5bjqblw3kfs8d")))) + "0hgvlqcr852hfp52jp99snhbj550mvxxpi8qn15d8ml9aqhyl2lr")))) (build-system haskell-build-system) (native-inputs `(("ghc-quickcheck" ,ghc-quickcheck) @@ -662,10 +763,43 @@ of base to a wider range of compilers, without requiring the use of CPP pragmas in your code.") (license license:bsd-3))) +(define-public ghc-base-compat-batteries + (package + (name "ghc-base-compat-batteries") + (version "0.10.5") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "base-compat-batteries/base-compat-batteries-" + version ".tar.gz")) + (sha256 + (base32 + "1vkhc639vqiv5p39jn1v312z32i7yk5q2lf0ap4jxl1v8p8wyp8p")))) + (build-system haskell-build-system) + (inputs + `(("ghc-base-compat" ,ghc-base-compat))) + (native-inputs + `(("ghc-hspec" ,ghc-hspec) + ("ghc-quickcheck" ,ghc-quickcheck) + ("hspec-discover" ,hspec-discover))) + (arguments + `(#:cabal-revision + ("1" "15sn2qc8k0hxbb2nai341kkrci98hlhzcj2ci087m0zxcg5jcdbp"))) + (home-page "http://hackage.haskell.org/package/base-compat-batteries") + (synopsis "base-compat with extra batteries") + (description "This library provides functions available in later +versions of @code{base} to a wider range of compilers, without requiring +you to use CPP pragmas in your code. This package provides the same API +as the @code{base-compat} library, but depends on compatibility +packages (such as @code{semigroups}) to offer a wider support window +than @code{base-compat}, which has no dependencies.") + (license license:expat))) + (define-public ghc-basement (package (name "ghc-basement") - (version "0.0.8") + (version "0.0.11") (source (origin (method url-fetch) @@ -673,7 +807,7 @@ pragmas in your code.") "basement/basement-" version ".tar.gz")) (sha256 (base32 - "194jw567di4q2758943q9rrwkbf9gl261my7qc21i9xhyabipx67")))) + "0srlws74yiraqaapgcjd9p5d1fwb3zr9swcz74jpjm55fls2nn37")))) (build-system haskell-build-system) (home-page "https://github.com/haskell-foundation/foundation") (synopsis "Basic primitives for Foundation starter pack") @@ -685,7 +819,7 @@ packages.") (define-public ghc-base-orphans (package (name "ghc-base-orphans") - (version "0.7") + (version "0.8.1") (source (origin (method url-fetch) @@ -695,7 +829,7 @@ packages.") ".tar.gz")) (sha256 (base32 - "057f9npnqk71ccfh95djfkpd54dzazphj06grwxa3fyhwcwxrb8a")))) + "1nwr9av27i9p72k0sn96mw3ywdczw65dy5gd5wxpabhhxlxdcas4")))) (build-system haskell-build-system) (native-inputs `(("ghc-quickcheck" ,ghc-quickcheck) @@ -771,7 +905,7 @@ stand for certain ASCII character sequences, i.e. → instead of @code{->}, (define-public ghc-bifunctors (package (name "ghc-bifunctors") - (version "5.5.3") + (version "5.5.5") (source (origin (method url-fetch) @@ -781,7 +915,7 @@ stand for certain ASCII character sequences, i.e. → instead of @code{->}, ".tar.gz")) (sha256 (base32 - "1jn9rxg643xnlhrknmjz88nblcpsr45xwjkwwnn5nxpasa7m4d6l")))) + "0rn47q8dzv0g1fyams99p4py6q0asxdc50q9k0nj497brk738xcb")))) (build-system haskell-build-system) (inputs `(("ghc-base-orphans" ,ghc-base-orphans) @@ -824,6 +958,27 @@ can use with C code to help write bindings to inline functions or macro functions.") (license license:bsd-3))) +(define-public ghc-bitarray + (package + (name "ghc-bitarray") + (version "0.0.1.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "bitarray/bitarray-" version ".tar.gz")) + (sha256 + (base32 + "00nqd62cbh42qqqvcl6iv1i9kbv0f0mkiygv4j70wfh5cl86yzxj")))) + (build-system haskell-build-system) + (arguments + `(#:cabal-revision + ("1" "10fk92v9afjqk43zi621jxl0n8kci0xjj32lz3vqa9xbh67zjz45"))) + (home-page "https://hackage.haskell.org/package/bitarray") + (synopsis "Mutable and immutable bit arrays") + (description "The package provides mutable and immutable bit arrays.") + (license license:bsd-3))) + (define-public ghc-blaze-builder (package (name "ghc-blaze-builder") @@ -854,7 +1009,7 @@ interoperate with code that uses the new implementation.") (define-public ghc-blaze-markup (package (name "ghc-blaze-markup") - (version "0.8.2.1") + (version "0.8.2.3") (source (origin (method url-fetch) @@ -863,7 +1018,7 @@ interoperate with code that uses the new implementation.") version ".tar.gz")) (sha256 (base32 - "0ih1c3qahkdgzbqihdhny5s313l2m66fbb88w8jbx7yz56y7rawh")))) + "1g9m7ansj7fdyzhz1wqkbzn5amjm50vjgjdwkbjc5qqhagnv1y3j")))) (build-system haskell-build-system) (arguments `(#:phases @@ -1012,7 +1167,7 @@ serialization code.") (define-public ghc-bytestring-builder (package (name "ghc-bytestring-builder") - (version "0.10.8.1.0") + (version "0.10.8.2.0") (source (origin (method url-fetch) @@ -1021,7 +1176,7 @@ serialization code.") "/bytestring-builder-" version ".tar.gz")) (sha256 (base32 - "1hnvjac28y44yn78c9vdp1zvrknvlw98ky3g4n5vivr16rvh8x3d")))) + "0grcrgwwwcvwrs9az7l4d3kf0lsqfa9qpmjzf6iyanvwn9nyzyi7")))) (build-system haskell-build-system) (arguments `(#:haddock? #f)) ; Package contains no documentation. (home-page "https://hackage.haskell.org/package/bytestring-builder") @@ -1046,15 +1201,15 @@ Compatibility package for older packages.") "18f17aja1ivhr3zyg2cccn2m03hdn5jf5410dndkhf12gvgiqs7y")))) (build-system haskell-build-system) (arguments - `(#:phases + `(#:cabal-revision + ("1" "0x11aj6w1lijh84jcdq1qgyvdnc7i9ivbyq4wf9rxicg57viisz9") + #:phases (modify-phases %standard-phases (add-before 'configure 'update-constraints (lambda _ (substitute* "bytestring-handle.cabal" (("QuickCheck >= 2\\.1\\.2 && < 2\\.11") - "QuickCheck >= 2.1.2 && < 2.12") - (("base >= 4\\.2 && < 4\\.11") - "base >= 4.2 && < 4.12"))))))) + "QuickCheck >= 2.1.2 && < 2.14"))))))) (inputs `(("ghc-hunit" ,ghc-hunit) ("ghc-quickcheck" ,ghc-quickcheck) @@ -1090,7 +1245,7 @@ from strict or lazy bytestrings.") (define-public ghc-bzlib-conduit (package (name "ghc-bzlib-conduit") - (version "0.3.0.1") + (version "0.3.0.2") (source (origin (method url-fetch) @@ -1098,7 +1253,7 @@ from strict or lazy bytestrings.") "bzlib-conduit-" version ".tar.gz")) (sha256 (base32 - "0fd2hnr782s7qgipazg2yxwia9qqhkvm9bcm90773c3zkxa13n23")))) + "0a21zin5plsl37hkxh2jv8cxwyjrbs2fy7n5cyrzgdaa7lmp6b7b")))) (build-system haskell-build-system) (inputs `(("ghc-bindings-dsl" ,ghc-bindings-dsl) @@ -1311,7 +1466,7 @@ the resulting type will be insensitive to cases.") (define-public ghc-cereal (package (name "ghc-cereal") - (version "0.5.7.0") + (version "0.5.8.1") (source (origin (method url-fetch) @@ -1321,7 +1476,7 @@ the resulting type will be insensitive to cases.") ".tar.gz")) (sha256 (base32 - "1j7imh2mzqcljld7sx0av69699955rpy3hzivi5723i6a9nszgbs")))) + "1mqvd1iwzr50az4y24332x3g3wsrzw8j1iwph02vr7jbjfn8i7id")))) (build-system haskell-build-system) (native-inputs `(("ghc-quickcheck" ,ghc-quickcheck) @@ -1365,7 +1520,7 @@ parser isolation, and labeled blocks for better error messages.") (define-public ghc-cgi (package (name "ghc-cgi") - (version "3001.3.0.2") + (version "3001.4.0.0") (source (origin (method url-fetch) @@ -1375,22 +1530,8 @@ parser isolation, and labeled blocks for better error messages.") ".tar.gz")) (sha256 (base32 - "1hbpplss1m4rdpm4ibip6fpimlhssqa14fl338kl2jbc463i64cj")))) + "1d0nh5ymkqskkp4yn0gfz4mff8i0cxyw1wws8xxp6k1mg1ywa25k")))) (build-system haskell-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'configure 'update-constraints - (lambda _ - (substitute* "cgi.cabal" - (("exceptions < 0\\.9") - "exceptions < 0.11") - (("time >= 1\\.5 && < 1\\.7") - "time >= 1.5 && < 1.9") - (("doctest >= 0\\.8 && < 0\\.12") - "doctest >= 0.8 && < 0.17") - (("QuickCheck >= 2\\.8\\.1 && < 2\\.10") - "QuickCheck >= 2.8.1 && < 2.12"))))))) (inputs `(("ghc-exceptions" ,ghc-exceptions) ("ghc-multipart" ,ghc-multipart) @@ -1421,6 +1562,9 @@ parser isolation, and labeled blocks for better error messages.") (base32 "1gn0m96qpjww8hpp2g1as5yy0wcwy4iq73h3kz6g0yxxhcl5sh9x")))) (build-system haskell-build-system) + (arguments + `(#:cabal-revision + ("1" "1z6nxw2g9vgsjq0g159sk8mwj68lwzxzi5iv5ynha0h85jcqxszy"))) (inputs `(("ghc-semigroups" ,ghc-semigroups) ("ghc-unordered-containers" ,ghc-unordered-containers))) @@ -1433,7 +1577,7 @@ Haskell, based on complemented PATRICIA tries.") (define-public ghc-chart (package (name "ghc-chart") - (version "1.9") + (version "1.9.1") (source (origin (method url-fetch) @@ -1441,7 +1585,7 @@ Haskell, based on complemented PATRICIA tries.") "Chart-" version ".tar.gz")) (sha256 (base32 - "1f5azj17y8xsb3gjhf7gg1gnnlq12rxkmfjmgcly314d7vghs05z")))) + "1pn735k9ifxlb9mdh8xy7wi22cxni8xyr28n8zx9w0j6vprcg89l")))) (build-system haskell-build-system) (inputs `(("ghc-old-locale" ,ghc-old-locale) @@ -1460,7 +1604,7 @@ backends provided by the @code{Cairo} and @code{Diagrams} libraries.") (define-public ghc-chart-cairo (package (name "ghc-chart-cairo") - (version "1.9") + (version "1.9.1") (source (origin (method url-fetch) @@ -1468,7 +1612,7 @@ backends provided by the @code{Cairo} and @code{Diagrams} libraries.") "Chart-cairo-" version ".tar.gz")) (sha256 (base32 - "0iany6lfyfb1cw0pxfs5aw5k0a6x41m6ql9ad9w59biwdckbsyqr")))) + "0hknj4rsjf2m8p5pyq5zff8ai7v80yvmxb5c6n0bkgxs4317nbl9")))) (build-system haskell-build-system) (inputs `(("ghc-old-locale" ,ghc-old-locale) @@ -1487,7 +1631,7 @@ backend for the Charts library.") (define-public ghc-chasingbottoms (package (name "ghc-chasingbottoms") - (version "1.3.1.4") + (version "1.3.1.7") (source (origin (method url-fetch) @@ -1495,7 +1639,7 @@ backend for the Charts library.") "ChasingBottoms-" version ".tar.gz")) (sha256 (base32 - "06cynx6hcbfpky7qq3b3mjjgwbnaxkwin3znbwq4b9ikiw0ng633")))) + "0ziiqfsvv1ypdra6kd0bhbsl852i0wqn43jkfii38yl879cdacan")))) (build-system haskell-build-system) (inputs `(("ghc-quickcheck" ,ghc-quickcheck) @@ -1517,7 +1661,7 @@ Partial and Infinite Values\"}.") (define-public ghc-cheapskate (package (name "ghc-cheapskate") - (version "0.1.1") + (version "0.1.1.1") (source (origin (method url-fetch) @@ -1527,7 +1671,7 @@ Partial and Infinite Values\"}.") ".tar.gz")) (sha256 (base32 - "1hiqi7h76shjzs2zj0j8g6wnq2hbiq1hmfafdazr97fba2zl2432")))) + "0qnyd8bni2rby6b02ff4bvfdhm1hwc8vzpmnms84jgrlg1lly3fm")))) (build-system haskell-build-system) (inputs `(("ghc-blaze-html" ,ghc-blaze-html) @@ -1547,7 +1691,7 @@ cross-site scripting (@dfn{XSS}) attacks.") (define-public ghc-chell (package (name "ghc-chell") - (version "0.4.0.2") + (version "0.5") (source (origin (method url-fetch) @@ -1556,8 +1700,11 @@ cross-site scripting (@dfn{XSS}) attacks.") version ".tar.gz")) (sha256 (base32 - "10ingy9qnbmc8cqh4i9pskcw43l0mzk8f3d76b3qz3fig5ary3j9")))) + "1i845isfbk0yq852am9bqmxfpfkpnlha8nfidffsv4gw2p8gg6fg")))) (build-system haskell-build-system) + (arguments + `(#:cabal-revision + ("1" "1q93wrw03ix4cmnkz3lzkixcvvizw6i2ia2zifdfak1dvxnblxk0"))) (inputs `(("ghc-options-bootstrap" ,ghc-options-bootstrap) ("ghc-patience" ,ghc-patience) @@ -1575,7 +1722,7 @@ testing strategies.") (define-public ghc-chell-quickcheck (package (name "ghc-chell-quickcheck") - (version "0.2.5.1") + (version "0.2.5.2") (source (origin (method url-fetch) @@ -1584,7 +1731,7 @@ testing strategies.") "chell-quickcheck-" version ".tar.gz")) (sha256 (base32 - "1iicsys9igx7m7n4l2b8djardmjy2ah5ibzp7kzs758h460fq53a")))) + "0n8c57n88r2bx0bh8nabsz07m42rh23ahs3hgyzf8gr76l08zq03")))) (build-system haskell-build-system) (arguments `(#:phases @@ -1592,8 +1739,8 @@ testing strategies.") (add-before 'configure 'update-constraints (lambda _ (substitute* "chell-quickcheck.cabal" - (("QuickCheck >= 2\\.3 && < 2\\.11") - "QuickCheck >= 2.3 && < 2.12"))))))) + (("QuickCheck >= 2\\.3 && < 2\\.13") + "QuickCheck >= 2.3 && < 2.14"))))))) (inputs `(("ghc-chell" ,ghc-chell) ("ghc-chell-quickcheck-bootstrap" ,ghc-chell-quickcheck-bootstrap) @@ -1607,7 +1754,7 @@ testing strategies.") (define ghc-chell-quickcheck-bootstrap (package (name "ghc-chell-quickcheck-bootstrap") - (version "0.2.5.1") + (version "0.2.5.2") (source (origin (method url-fetch) @@ -1616,7 +1763,7 @@ testing strategies.") "chell-quickcheck-" version ".tar.gz")) (sha256 (base32 - "1iicsys9igx7m7n4l2b8djardmjy2ah5ibzp7kzs758h460fq53a")))) + "0n8c57n88r2bx0bh8nabsz07m42rh23ahs3hgyzf8gr76l08zq03")))) (build-system haskell-build-system) (inputs `(("ghc-chell" ,ghc-chell) @@ -1629,8 +1776,8 @@ testing strategies.") (add-before 'configure 'update-constraints (lambda _ (substitute* "chell-quickcheck.cabal" - (("QuickCheck >= 2\\.3 && < 2\\.11") - "QuickCheck >= 2.3 && < 2.12"))))))) + (("QuickCheck >= 2\\.3 && < 2\\.13") + "QuickCheck >= 2.3 && < 2.14"))))))) (home-page "https://john-millikin.com/software/chell/") (synopsis "QuickCheck support for the Chell testing library") (description "More complex tests for @code{chell}.") @@ -1662,7 +1809,7 @@ classy-prelude.") (define-public ghc-clock (package (name "ghc-clock") - (version "0.7.2") + (version "0.8") (source (origin (method url-fetch) @@ -1671,7 +1818,7 @@ classy-prelude.") "clock/" "clock-" version ".tar.gz")) (sha256 - (base32 "07v91s20halsqjmziqb1sqjp2sjpckl9by7y28aaklwqi2bh2rl8")))) + (base32 "0539w9bjw6xbfv9v6aq9hijszxqdnqhilwpbwpql1400ji95r8q8")))) (build-system haskell-build-system) (inputs `(("ghc-tasty" ,ghc-tasty) @@ -1695,16 +1842,16 @@ timer functions of different operating systems via a unified API.") (define-public ghc-cmark (package (name "ghc-cmark") - (version "0.5.6") + (version "0.6") (source (origin (method url-fetch) - ;; XXX As of version 0.5.6, this package bundles libcmark 0.28.0. + ;; XXX As of version 0.6, this package bundles libcmark 0.28.0. ;; See cbits/cmark_version.h. (uri (string-append "https://hackage.haskell.org/package/" "cmark/cmark-" version ".tar.gz")) (sha256 (base32 - "1c1j3a8b9qx5zk9myqm3gap8ymz7fipwrdmyfsq9wkkdr9x4np45")))) + "1p41z6z8dqxk62287lvhhg4ayy9laai9ljh4azsnzb029v6mbv0d")))) (build-system haskell-build-system) (native-inputs `(("ghc-hunit" ,ghc-hunit))) @@ -1720,7 +1867,7 @@ sources, and does not require prior installation of the C library.") (define-public ghc-cmark-gfm (package (name "ghc-cmark-gfm") - (version "0.1.5") + (version "0.2.0") (source (origin (method url-fetch) @@ -1729,7 +1876,7 @@ sources, and does not require prior installation of the C library.") version ".tar.gz")) (sha256 (base32 - "13b0mqks5c1q989slgsa3ixr5vvkfyic4ynzgv00kgl5qrs7hqk7")))) + "03xflrkyw84qv3yjly5iks9311bqv5cmrmsylr763v4ph0fn7rjq")))) (build-system haskell-build-system) (native-inputs `(("ghc-hunit" ,ghc-hunit))) @@ -1767,7 +1914,7 @@ of the C library.") (define-public ghc-code-page (package (name "ghc-code-page") - (version "0.1.3") + (version "0.2") (source (origin (method url-fetch) @@ -1776,7 +1923,7 @@ of the C library.") version ".tar.gz")) (sha256 (base32 - "1491frk4jx6dlhifky9dvcxbsbcfssrz979a5hp5zn061rh8cp76")))) + "0i0qbrbhvrwkbikqb7hh7yxaipaavwzvyrw211d0vkz99f62mqxz")))) (build-system haskell-build-system) (home-page "https://github.com/RyanGlScott/code-page") (synopsis "Windows code page library for Haskell") @@ -1788,7 +1935,7 @@ nothing.") (define-public ghc-colour (package (name "ghc-colour") - (version "2.3.4") + (version "2.3.5") (source (origin (method url-fetch) @@ -1797,7 +1944,7 @@ nothing.") version ".tar.gz")) (sha256 (base32 - "1sy51nz096sv91nxqk6yk7b92b5a40axv9183xakvki2nc09yhqg")))) + "1rq4l46jx4lpdppy71wf7m1n7pw2jwy788rm35ycwzb1g4clg39v")))) (arguments ;; The tests for this package have the following dependency cycle: ;; ghc-test-framework -> ghc-ansi-terminal -> ghc-colour. @@ -1814,7 +1961,7 @@ supported. A module of colour names (\"Data.Colour.Names\") is provided.") (define-public ghc-comonad (package (name "ghc-comonad") - (version "5.0.4") + (version "5.0.5") (source (origin (method url-fetch) @@ -1824,7 +1971,7 @@ supported. A module of colour names (\"Data.Colour.Names\") is provided.") ".tar.gz")) (sha256 (base32 - "09g870c4flp4k3fgbibsd0mmfjani1qcpbcl685v8x89kxzrva3q")))) + "1l7snp2mszgnjgd0nc9kzfyd13vla0rlazqi03rwx2akcxk14n3c")))) (build-system haskell-build-system) (native-inputs `(("cabal-doctest" ,cabal-doctest) @@ -1916,7 +2063,7 @@ Python.") (define-public ghc-concurrent-output (package (name "ghc-concurrent-output") - (version "1.10.9") + (version "1.10.11") (source (origin (method url-fetch) @@ -1926,7 +2073,7 @@ Python.") ".tar.gz")) (sha256 (base32 - "0mwf155w89nbbkjln7hhbn8k3f8p0ylcvgrg31cm7ijpx4499i4c")))) + "1d1aaqg5814k59b0iws3fh06p3g2siaj922gkhs75qgncj0my2p3")))) (build-system haskell-build-system) (inputs `(("ghc-async" ,ghc-async) @@ -1949,14 +2096,14 @@ concurrent threads. Can be used for progress displays etc.") (define-public ghc-conduit (package (name "ghc-conduit") - (version "1.3.0.3") + (version "1.3.1.1") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" "conduit/conduit-" version ".tar.gz")) (sha256 (base32 - "1sangm0qqi9dzlq95746a3kl14k8b09592a423shxjf2a0b1yx5v")))) + "18izjgff4pmrknc8py06yvg3g6x27nx0rzmlwjxcflwm5v4szpw4")))) (build-system haskell-build-system) (inputs `(("ghc-exceptions" ,ghc-exceptions) @@ -1988,7 +2135,7 @@ space as enumerator/iteratee and pipes.") (define-public ghc-conduit-algorithms (package (name "ghc-conduit-algorithms") - (version "0.0.8.1") + (version "0.0.11.0") (source (origin (method url-fetch) @@ -1997,7 +2144,7 @@ space as enumerator/iteratee and pipes.") version ".tar.gz")) (sha256 (base32 - "07gx2q3d1bbfw14q41rmqg0i4m018pci10lswc0k1ij6lw7sb9fd")))) + "0c1jwz30kkvimx7lb61782yk0kyfamrf5bqc3g1h7g51lk8bbv9i")))) (build-system haskell-build-system) (inputs `(("ghc-async" ,ghc-async) @@ -2005,6 +2152,7 @@ space as enumerator/iteratee and pipes.") ("ghc-conduit" ,ghc-conduit) ("ghc-conduit-combinators" ,ghc-conduit-combinators) ("ghc-conduit-extra" ,ghc-conduit-extra) + ("ghc-conduit-zstd" ,ghc-conduit-zstd) ("ghc-exceptions" ,ghc-exceptions) ("ghc-lzma-conduit" ,ghc-lzma-conduit) ("ghc-monad-control" ,ghc-monad-control) @@ -2068,7 +2216,7 @@ as well as a convenient Conduit module.") (define-public ghc-conduit-extra (package (name "ghc-conduit-extra") - (version "1.3.1.1") + (version "1.3.4") (source (origin (method url-fetch) @@ -2077,7 +2225,7 @@ as well as a convenient Conduit module.") version ".tar.gz")) (sha256 (base32 - "0jaj350vv6mbb26gdwcqz4gwzfzrjydv5pis2da49wz1npbakcfw")))) + "1d853d39vj5pb8yxfcsnjwdzqzkm34ixzbnba8bslpihb7182wxi")))) (build-system haskell-build-system) (inputs `(("ghc-conduit" ,ghc-conduit) @@ -2107,6 +2255,37 @@ dependencies. The basic idea is that this package should only depend on @code{haskell-platform} packages and @code{conduit}.") (license license:expat))) +(define-public ghc-conduit-zstd + (package + (name "ghc-conduit-zstd") + (version "0.0.1.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "conduit-zstd/conduit-zstd-" version ".tar.gz")) + (sha256 + (base32 + "04h7w2903hgw4gjcx2pg29yinnmfapawvc19hd3r57rr12fzb0c6")))) + (build-system haskell-build-system) + (inputs + `(("ghc-conduit" ,ghc-conduit) + ("ghc-zstd" ,ghc-zstd))) + (native-inputs + `(("ghc-hunit" ,ghc-hunit) + ("ghc-conduit-combinators" ,ghc-conduit-combinators) + ("ghc-conduit-extra" ,ghc-conduit-extra) + ("ghc-test-framework" ,ghc-test-framework) + ("ghc-test-framework-hunit" ,ghc-test-framework-hunit) + ("ghc-test-framework-th" ,ghc-test-framework-th))) + (home-page "https://github.com/luispedro/conduit-zstd#readme") + (synopsis "Conduit-based ZStd Compression") + (description "Zstandard compression packaged as a conduit. This is +a very thin wrapper around the +@url{https://github.com/facebookexperimental/hs-zstd/, official hs-zstd +interface}.") + (license license:expat))) + (define-public ghc-configurator (package (name "ghc-configurator") @@ -2152,7 +2331,7 @@ and daemons. The features include: (define-public ghc-connection (package (name "ghc-connection") - (version "0.2.8") + (version "0.3.1") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" @@ -2160,7 +2339,7 @@ and daemons. The features include: version ".tar.gz")) (sha256 (base32 - "1swkb9w5vx9ph7x55y51dc0srj2z27nd9ibgn8c0qcl6hx7g9cbh")))) + "1nbmafhlg0wy4aa3p7amjddbamdz6avzrxn4py3lvhrjqn4raxax")))) (build-system haskell-build-system) (inputs `(("ghc-byteable" ,ghc-byteable) @@ -2212,7 +2391,7 @@ a vocabulary for working with them.") (define-public ghc-contravariant (package (name "ghc-contravariant") - (version "1.4.1") + (version "1.5.2") (source (origin (method url-fetch) @@ -2222,7 +2401,7 @@ a vocabulary for working with them.") ".tar.gz")) (sha256 (base32 - "1vfhk8c5cxmmakx7rflap1ipkx5q0j5vnlrcz7yz6y53kxhksgf9")))) + "0366gl62wwwdbl9i6kqy60asf60876k55v91la6bmhnwwcj2q9n4")))) (build-system haskell-build-system) (inputs `(("ghc-void" ,ghc-void) @@ -2249,6 +2428,9 @@ a vocabulary for working with them.") (base32 "0gg62ccl94kvh7mnvdq09pifqxjx2kgs189si90nmg44bafj7a9n")))) (build-system haskell-build-system) + (arguments + `(#:cabal-revision + ("1" "1h2955ahga6i4fn7k8v66l03v77p6fhsac6ck8gpabkc08ij60wp"))) (inputs `(("ghc-tuple-th" ,ghc-tuple-th) ("ghc-contravariant" ,ghc-contravariant) @@ -2289,7 +2471,7 @@ function performs the conversion you desire.") (define-public ghc-data-accessor (package (name "ghc-data-accessor") - (version "0.2.2.7") + (version "0.2.2.8") (source (origin (method url-fetch) @@ -2297,7 +2479,7 @@ function performs the conversion you desire.") "mirror://hackage/package/data-accessor/data-accessor-" version ".tar.gz")) (sha256 - (base32 "1vf2g1gac3rm32g97rl0fll51m88q7ry4m6khnl5j47qsmx24r9l")))) + (base32 "1fq4gygxbz0bd0mzgvc1sl3m4gjnsv8nbgpnmdpa29zj5lb9agxc")))) (build-system haskell-build-system) (home-page "https://www.haskell.org/haskellwiki/Record_access") (synopsis @@ -2513,6 +2695,55 @@ It includes hashing functions for all basic Haskell98 types.") "This module provides set and multiset operations on ordered lists.") (license license:bsd-3))) +(define-public ghc-dbus + (package + (name "ghc-dbus") + (version "1.2.7") + (source + (origin + (method url-fetch) + (uri + (string-append + "mirror://hackage/package/dbus/dbus-" + version ".tar.gz")) + (sha256 + (base32 + "0ypkjlw9fn65g7p28kb3p82glk7qs7p7vyffccw7qxa3z57s12w5")))) + (build-system haskell-build-system) + (inputs + `(("ghc-cereal" ,ghc-cereal) + ("ghc-conduit" ,ghc-conduit) + ("ghc-exceptions" ,ghc-exceptions) + ("ghc-lens" ,ghc-lens) + ("ghc-network" ,ghc-network) + ("ghc-random" ,ghc-random) + ("ghc-split" ,ghc-split) + ("ghc-th-lift" ,ghc-th-lift) + ("ghc-vector" ,ghc-vector) + ("ghc-xml-conduit" ,ghc-xml-conduit) + ("ghc-xml-types" ,ghc-xml-types))) + (native-inputs + `(("ghc-extra" ,ghc-extra) + ("ghc-quickcheck" ,ghc-quickcheck) + ("ghc-resourcet" ,ghc-resourcet) + ("ghc-tasty" ,ghc-tasty) + ("ghc-tasty-hunit" ,ghc-tasty-hunit) + ("ghc-tasty-quickcheck" ,ghc-tasty-quickcheck))) + ;; FIXME - Some tests try to talk to network. + (arguments `(#:tests? #f)) + (home-page "https://github.com/rblaze/haskell-dbus") + (synopsis "Client library for the D-Bus IPC system") + (description + "D-Bus is a simple, message-based protocol for inter-process +communication, which allows applications to interact with other parts +of the machine and the user's session using remote procedure +calls. D-Bus is a essential part of the modern Linux desktop, where +it replaces earlier protocols such as CORBA and DCOP. This library +is an implementation of the D-Bus protocol in Haskell. It can be used +to add D-Bus support to Haskell applications, without the awkward +interfaces common to foreign bindings.") + (license license:asl2.0))) + (define-public ghc-deepseq-generics (package (name "ghc-deepseq-generics") @@ -2528,7 +2759,7 @@ It includes hashing functions for all basic Haskell98 types.") (build-system haskell-build-system) (arguments `(#:cabal-revision - ("2" "1pnidf8w8x0w5fsqgv8hhrw07slmhxwy5x4fikgk0bd6k76aqicb"))) + ("4" "0928s2qnbqsjzrm94x88rvmvbigfmhcyp4m73gw6asinp2qg1kii"))) (native-inputs `(("ghc-hunit" ,ghc-hunit) ("ghc-test-framework" ,ghc-test-framework) @@ -2541,6 +2772,36 @@ It includes hashing functions for all basic Haskell98 types.") providing an @code{rnf} implementation.") (license license:bsd-3))) +(define-public ghc-dense-linear-algebra + (package + (name "ghc-dense-linear-algebra") + (version "0.1.0.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "dense-linear-algebra/dense-linear-algebra-" + version ".tar.gz")) + (sha256 + (base32 + "1m7jjxahqxj7ilic3r9806mwp5rnnsmn8vvipkmk40xl65wplxzp")))) + (build-system haskell-build-system) + (inputs + `(("ghc-math-functions" ,ghc-math-functions) + ("ghc-primitive" ,ghc-primitive) + ("ghc-vector" ,ghc-vector) + ("ghc-vector-algorithms" ,ghc-vector-algorithms) + ("ghc-vector-th-unbox" ,ghc-vector-th-unbox) + ("ghc-vector-binary-instances" ,ghc-vector-binary-instances))) + (native-inputs + `(("ghc-hspec" ,ghc-hspec) + ("ghc-quickcheck" ,ghc-quickcheck))) + (home-page "http://hackage.haskell.org/package/dense-linear-algebra") + (synopsis "Simple and incomplete implementation of linear algebra") + (description "This library is simply a collection of linear-algebra +related modules split from the statistics library.") + (license license:bsd-2))) + (define-public ghc-descriptive (package (name "ghc-descriptive") @@ -2573,6 +2834,180 @@ providing an @code{rnf} implementation.") and parsers with useful semantics.") (license license:bsd-3))) +(define-public ghc-diagrams-core + (package + (name "ghc-diagrams-core") + (version "1.4.2") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "diagrams-core/diagrams-core-" version ".tar.gz")) + (sha256 + (base32 + "0qgb43vy23g4fxh3nmxfq6jyp34imqvkhgflaa6rz0iq6d60gl43")))) + (build-system haskell-build-system) + (inputs + `(("ghc-unordered-containers" ,ghc-unordered-containers) + ("ghc-semigroups" ,ghc-semigroups) + ("ghc-monoid-extras" ,ghc-monoid-extras) + ("ghc-dual-tree" ,ghc-dual-tree) + ("ghc-lens" ,ghc-lens) + ("ghc-linear" ,ghc-linear) + ("ghc-adjunctions" ,ghc-adjunctions) + ("ghc-distributive" ,ghc-distributive) + ("ghc-profunctors" ,ghc-profunctors))) + (home-page "https://archives.haskell.org/projects.haskell.org/diagrams/") + (synopsis "Core libraries for diagrams embedded domain-specific language") + (description "This package provides the core modules underlying +diagrams, an embedded domain-specific language for compositional, +declarative drawing.") + (license license:bsd-3))) + +(define-public ghc-diagrams-lib + (package + (name "ghc-diagrams-lib") + (version "1.4.2.3") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "diagrams-lib/diagrams-lib-" version ".tar.gz")) + (sha256 + (base32 + "175yzi5kw4yd8ykdkpf64q85c7j3p89l90m3h6qcsx9ipv6av9r5")))) + (build-system haskell-build-system) + (inputs + `(("ghc-semigroups" ,ghc-semigroups) + ("ghc-monoid-extras" ,ghc-monoid-extras) + ("ghc-dual-tree" ,ghc-dual-tree) + ("ghc-diagrams-core" ,ghc-diagrams-core) + ("ghc-diagrams-solve" ,ghc-diagrams-solve) + ("ghc-active" ,ghc-active) + ("ghc-colour" ,ghc-colour) + ("ghc-data-default-class" ,ghc-data-default-class) + ("ghc-fingertree" ,ghc-fingertree) + ("ghc-intervals" ,ghc-intervals) + ("ghc-lens" ,ghc-lens) + ("ghc-tagged" ,ghc-tagged) + ("ghc-optparse-applicative" ,ghc-optparse-applicative) + ("ghc-juicypixels" ,ghc-juicypixels) + ("ghc-hashable" ,ghc-hashable) + ("ghc-linear" ,ghc-linear) + ("ghc-adjunctions" ,ghc-adjunctions) + ("ghc-distributive" ,ghc-distributive) + ("ghc-fsnotify" ,ghc-fsnotify) + ("ghc-unordered-containers" ,ghc-unordered-containers) + ("ghc-profunctors" ,ghc-profunctors) + ("ghc-exceptions" ,ghc-exceptions) + ("ghc-cereal" ,ghc-cereal))) + (native-inputs + `(("ghc-tasty" ,ghc-tasty) + ("ghc-tasty-hunit" ,ghc-tasty-hunit) + ("ghc-tasty-quickcheck" ,ghc-tasty-quickcheck) + ("ghc-numeric-extras" ,ghc-numeric-extras))) + (arguments + `(#:cabal-revision + ("3" "157y2qdsh0aczs81vzlm377mks976mpv6y3aqnchwsnr7apzp8ai"))) + (home-page "https://archives.haskell.org/projects.haskell.org/diagrams/") + (synopsis "Embedded domain-specific language for declarative graphics") + (description "Diagrams is a flexible, extensible embedded +domain-specific language (EDSL) for creating graphics of many types. +Graphics can be created in arbitrary vector spaces and rendered with +multiple backends. This package provides a standard library of +primitives and operations for creating diagrams.") + (license license:bsd-3))) + +(define-public ghc-diagrams-solve + (package + (name "ghc-diagrams-solve") + (version "0.1.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "diagrams-solve/diagrams-solve-" + version ".tar.gz")) + (sha256 + (base32 + "17agchqkmj14b17sw50kzxq4hm056g5d8yy0wnqn5w8h1d0my7x4")))) + (build-system haskell-build-system) + (native-inputs + `(("ghc-tasty" ,ghc-tasty) + ("ghc-tasty-hunit" ,ghc-tasty-hunit) + ("ghc-tasty-quickcheck" ,ghc-tasty-quickcheck))) + (arguments + `(#:cabal-revision + ("5" "1yl8cs05fzqcz49p601am1ij66m9pa70yamhfxgcvya2pf8nimlf"))) + (home-page "https://archives.haskell.org/projects.haskell.org/diagrams/") + (synopsis "Pure Haskell solver routines used by diagrams") + (description "This library provides Pure Haskell solver routines for +use by the +@url{https://archives.haskell.org/projects.haskell.org/diagrams/, +diagrams framework}. It currently includes routines for finding real +roots of low-degree (@math{n < 5}) polynomials, and solving tridiagonal +and cyclic tridiagonal linear systems.") + (license license:bsd-3))) + +(define-public ghc-diagrams-svg + (package + (name "ghc-diagrams-svg") + (version "1.4.2") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "diagrams-svg/diagrams-svg-" version ".tar.gz")) + (sha256 + (base32 + "1lnyxx45yawqas7hmvvannwaa3ycf1l9g40lsl2m8sl2ja6vcmal")))) + (build-system haskell-build-system) + (inputs + `(("ghc-base64-bytestring" ,ghc-base64-bytestring) + ("ghc-colour" ,ghc-colour) + ("ghc-diagrams-core" ,ghc-diagrams-core) + ("ghc-diagrams-lib" ,ghc-diagrams-lib) + ("ghc-monoid-extras" ,ghc-monoid-extras) + ("ghc-svg-builder" ,ghc-svg-builder) + ("ghc-juicypixels" ,ghc-juicypixels) + ("ghc-split" ,ghc-split) + ("ghc-lens" ,ghc-lens) + ("ghc-hashable" ,ghc-hashable) + ("ghc-optparse-applicative" ,ghc-optparse-applicative) + ("ghc-semigroups" ,ghc-semigroups))) + (arguments + `(#:cabal-revision + ("2" "15sn85xaachw4cj56w61bjcwrbf4qmnkfl8mbgdapxi5k0y4f2qv"))) + (home-page "https://archives.haskell.org/projects.haskell.org/diagrams/") + (synopsis "Scalable Vector Grpahics backend for the diagrams framework") + (description "This package provides a modular backend for rendering +diagrams created with the diagrams embedded domain-specific +language (EDSL) to Scalable Vector Graphics (SVG) files.") + (license license:bsd-3))) + +(define-public ghc-dictionary-sharing + (package + (name "ghc-dictionary-sharing") + (version "0.1.0.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "dictionary-sharing/dictionary-sharing-" + version ".tar.gz")) + (sha256 + (base32 + "00aspv943qdqhlk39mbk00kb1dsa5r0caj8sslrn81fnsn252fwc")))) + (build-system haskell-build-system) + (arguments + `(#:cabal-revision + ("3" "1mn7jcc7h3b8f1pn9zigqp6mc2n0qb66lms5qnrx4zswdv5w9439"))) + (home-page "https://hackage.haskell.org/package/dictionary-sharing") + (synopsis "Sharing/memoization of class members") + (description "This library provides tools for ensuring that class +members are shared.") + (license license:bsd-3))) + (define-public ghc-diff (package (name "ghc-diff") @@ -2581,6 +3016,7 @@ and parsers with useful semantics.") (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" "Diff/Diff-" version ".tar.gz")) + (patches (search-patches "ghc-diff-swap-cover-args.patch")) (sha256 (base32 "0bqcdvhxx8dmqc3793m6axg813wv9ldz2j37f1wygbbrbbndmdvp")))) @@ -2619,7 +3055,7 @@ disk space usage.") (define-public ghc-distributive (package (name "ghc-distributive") - (version "0.5.3") + (version "0.6.1") (source (origin (method url-fetch) @@ -2629,11 +3065,8 @@ disk space usage.") ".tar.gz")) (sha256 (base32 - "0y566r97sfyvhsmd4yxiz4ns2mqgwf5bdbp56wgxl6wlkidq0wwi")))) + "1wnayzzb4vk8rhh9gzhdpd9f64366k4vmbhximavmqqmp3cv2jbp")))) (build-system haskell-build-system) - (arguments - `(#:cabal-revision - ("6" "06bd38rf31yrvvy989r44pm0id3dsxwcp6nxg7wk6ccj3n2b8rzk"))) (inputs `(("ghc-tagged" ,ghc-tagged) ("ghc-base-orphans" ,ghc-base-orphans) @@ -2654,7 +3087,7 @@ Dual to @code{Traversable}.") (define-public ghc-dlist (package (name "ghc-dlist") - (version "0.8.0.4") + (version "0.8.0.7") (source (origin (method url-fetch) @@ -2663,7 +3096,7 @@ Dual to @code{Traversable}.") version ".tar.gz")) (sha256 - (base32 "0yirrh0s6acjy9hhvf5fqg2d6q5y6gm9xs04v6w1imndh1xqdwdc")))) + (base32 "0b5spkzvj2kx8pk86xz0djkxs13j7dryf5fl16dk4mlp1wh6mh53")))) (build-system haskell-build-system) (inputs `(("ghc-quickcheck" ,ghc-quickcheck))) @@ -2707,7 +3140,7 @@ Writer monad), where list append quickly becomes too expensive.") (define-public ghc-doctest (package (name "ghc-doctest") - (version "0.16.0") + (version "0.16.2") (source (origin (method url-fetch) @@ -2717,7 +3150,7 @@ Writer monad), where list append quickly becomes too expensive.") ".tar.gz")) (sha256 (base32 - "0hkccch65s3kp0b36h7bqhilnpi4bx8kngncm7ma9vbd3dwacjdv")))) + "0lk4cjfzi5bx2snfzw1zi06li0gvgz3ckfh2kwa98l7nxfdl39ag")))) (build-system haskell-build-system) (arguments `(#:tests? #f)) ; FIXME: missing test framework (inputs @@ -2765,6 +3198,35 @@ It is modeled after doctest for Python, see between double precision floating point and text.") (license license:bsd-3))) +(define-public ghc-dual-tree + (package + (name "ghc-dual-tree") + (version "0.2.2.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "dual-tree/dual-tree-" version ".tar.gz")) + (sha256 + (base32 + "17kdfnf0df0z5pkiifxrlmyd1xd7hjjaazd2kzyajl0gd00vbszx")))) + (build-system haskell-build-system) + (inputs + `(("ghc-semigroups" ,ghc-semigroups) + ("ghc-newtype-generics" ,ghc-newtype-generics) + ("ghc-monoid-extras" ,ghc-monoid-extras))) + (native-inputs + `(("ghc-quickcheck" ,ghc-quickcheck) + ("ghc-testing-feat" ,ghc-testing-feat))) + (home-page "https://hackage.haskell.org/package/dual-tree") + (synopsis "Rose trees with cached and accumulating monoidal annotations") + (description "Rose (@math{n}-ary) trees with both upwards- (i.e. +cached) and downwards-traveling (i.e. accumulating) monoidal +annotations. This is used as the core data structure underlying the +@url{https://archives.haskell.org/projects.haskell.org/diagrams/, +diagrams framework}, but potentially has other applications as well.") + (license license:bsd-3))) + (define-public ghc-easy-file (package (name "ghc-easy-file") @@ -2902,7 +3364,7 @@ with various performance characteristics.") (lambda _ (substitute* "edit-distance.cabal" (("QuickCheck >= 2\\.4 && <2\\.9") - "QuickCheck >= 2.4 && < 2.12"))))))) + "QuickCheck >= 2.4 && < 2.14"))))))) (inputs `(("ghc-random" ,ghc-random) ("ghc-test-framework" ,ghc-test-framework) @@ -2916,10 +3378,43 @@ distances for fuzzy matching, including Levenshtein and restricted Damerau-Levenshtein algorithms.") (license license:bsd-3))) +(define-public ghc-edit-distance-vector + (package + (name "ghc-edit-distance-vector") + (version "1.0.0.4") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "edit-distance-vector/edit-distance-vector-" + version ".tar.gz")) + (sha256 + (base32 + "07qgc8dyi9kkzkd3xcd78wdlljy0xwhz65b4r2qg2piidpcdvpxp")))) + (build-system haskell-build-system) + (inputs + `(("ghc-vector" ,ghc-vector))) + (native-inputs + `(("ghc-quickcheck" ,ghc-quickcheck) + ("ghc-quickcheck-instances" ,ghc-quickcheck-instances))) + (home-page "https://github.com/thsutton/edit-distance-vector") + (synopsis "Calculate edit distances and edit scripts between vectors") + (description "This package provides implementation of the +Wagner-Fischer dynamic programming algorithm to find the optimal edit +script and cost between two sequences. The implementation in this +package is specialised to sequences represented with @code{Data.Vector} +but is otherwise agnostic to: +@itemize +@item The type of values in the vectors; +@item The type representing edit operations; and +@item The type representing the cost of operations. +@end itemize") + (license license:bsd-3)) ) + (define-public ghc-either (package (name "ghc-either") - (version "5.0.1") + (version "5.0.1.1") (source (origin (method url-fetch) @@ -2928,7 +3423,7 @@ Damerau-Levenshtein algorithms.") "either-" version ".tar.gz")) (sha256 (base32 - "064hjfld7dkzs78sy30k5qkiva3hx24rax6dvzz5ygr2c0zypdkc")))) + "09yzki8ss56xhy9vggdw1rls86b2kf55hjl5wi0vbv02d8fxahq2")))) (build-system haskell-build-system) (inputs `(("ghc-bifunctors" ,ghc-bifunctors) ("ghc-exceptions" ,ghc-exceptions) @@ -2952,7 +3447,7 @@ Damerau-Levenshtein algorithms.") (define-public ghc-email-validate (package (name "ghc-email-validate") - (version "2.3.2.6") + (version "2.3.2.12") (source (origin (method url-fetch) @@ -2963,7 +3458,7 @@ Damerau-Levenshtein algorithms.") ".tar.gz")) (sha256 (base32 - "0chgylvc8xmhp933rdbmpg5sv4y7yg2h6kbf0ip1dzmbd5p55pa5")))) + "0ar3cfjia3x11chb7w60mi7hp5djanms883ddk875l6lifr2lyqf")))) (build-system haskell-build-system) (inputs `(("ghc-attoparsec" ,ghc-attoparsec) @@ -3013,21 +3508,20 @@ asynchronous exceptions.") (define-public ghc-equivalence (package (name "ghc-equivalence") - (version "0.3.2") + (version "0.3.5") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/equivalence" "/equivalence-" version ".tar.gz")) (sha256 - (base32 "0a85bdyyvjqs5z4kfhhf758210k9gi9dv42ik66a3jl0z7aix8kx")))) + (base32 "167njzd1cf32aa7br90rjafrxy6hw3fxkk8awifqbxjrcwm5maqp")))) (build-system haskell-build-system) (inputs `(("ghc-stmonadtrans" ,ghc-stmonadtrans) ("ghc-transformers-compat" ,ghc-transformers-compat) - ("ghc-quickcheck" ,ghc-quickcheck) - ("ghc-test-framework" ,ghc-test-framework) - ("ghc-test-framework-quickcheck2" ,ghc-test-framework-quickcheck2))) + ("ghc-fail" ,ghc-fail) + ("ghc-quickcheck" ,ghc-quickcheck))) (home-page "https://github.com/pa-ba/equivalence") (synopsis "Maintaining an equivalence relation implemented as union-find") (description @@ -3112,74 +3606,69 @@ directly uses the type system, rather than out-of-band exceptions.") (license license:bsd-3))) (define-public ghc-esqueleto - (let ((version "2.5.3") - (revision "1") - (commit "b81e0d951e510ebffca03c5a58658ad884cc6fbd")) - (package - (name "ghc-esqueleto") - (version (git-version version revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/bitemyapp/esqueleto") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0lz1qxms7cfg5p3j37inlych0r2fwhm8xbarcys3df9m7jy9nixa")))) - (build-system haskell-build-system) - (arguments - `(#:haddock? #f ; Haddock reports an internal error. - #:phases - (modify-phases %standard-phases - ;; This package normally runs tests for the MySQL, PostgreSQL, and - ;; SQLite backends. Since we only have Haskell packages for - ;; SQLite, we remove the other two test suites. FIXME: Add the - ;; other backends and run all three test suites. - (add-before 'configure 'remove-non-sqlite-test-suites - (lambda _ - (use-modules (ice-9 rdelim)) - (with-atomic-file-replacement "esqueleto.cabal" - (lambda (in out) - (let loop ((line (read-line in 'concat)) (deleting? #f)) - (cond - ((eof-object? line) #t) - ((string-every char-set:whitespace line) - (unless deleting? (display line out)) - (loop (read-line in 'concat) #f)) - ((member line '("test-suite mysql\n" - "test-suite postgresql\n")) - (loop (read-line in 'concat) #t)) - (else - (unless deleting? (display line out)) - (loop (read-line in 'concat) deleting?))))))))))) - (inputs - `(("ghc-blaze-html" ,ghc-blaze-html) - ("ghc-conduit" ,ghc-conduit) - ("ghc-monad-logger" ,ghc-monad-logger) - ("ghc-persistent" ,ghc-persistent) - ("ghc-resourcet" ,ghc-resourcet) - ("ghc-tagged" ,ghc-tagged) - ("ghc-unliftio" ,ghc-unliftio) - ("ghc-unordered-containers" ,ghc-unordered-containers))) - (native-inputs - `(("ghc-hspec" ,ghc-hspec) - ("ghc-persistent-sqlite" ,ghc-persistent-sqlite) - ("ghc-persistent-template" ,ghc-persistent-template))) - (home-page "https://github.com/bitemyapp/esqueleto") - (synopsis "Type-safe embedded domain specific language for SQL queries") - (description "This library provides a type-safe embedded domain specific + (package + (name "ghc-esqueleto") + (version "3.0.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "esqueleto/esqueleto-" version ".tar.gz")) + (sha256 + (base32 + "187c098h2xyf2nhifkdy2bqfl6iap7a93mzwd2kirl5yyicpc9zy")))) + (build-system haskell-build-system) + (arguments + `(#:haddock? #f ; Haddock reports an internal error. + #:phases + (modify-phases %standard-phases + ;; This package normally runs tests for the MySQL, PostgreSQL, and + ;; SQLite backends. Since we only have Haskell packages for + ;; SQLite, we remove the other two test suites. FIXME: Add the + ;; other backends and run all three test suites. + (add-before 'configure 'remove-non-sqlite-test-suites + (lambda _ + (use-modules (ice-9 rdelim)) + (with-atomic-file-replacement "esqueleto.cabal" + (lambda (in out) + (let loop ((line (read-line in 'concat)) (deleting? #f)) + (cond + ((eof-object? line) #t) + ((string-every char-set:whitespace line) + (unless deleting? (display line out)) + (loop (read-line in 'concat) #f)) + ((member line '("test-suite mysql\n" + "test-suite postgresql\n")) + (loop (read-line in 'concat) #t)) + (else + (unless deleting? (display line out)) + (loop (read-line in 'concat) deleting?))))))))))) + (inputs + `(("ghc-blaze-html" ,ghc-blaze-html) + ("ghc-conduit" ,ghc-conduit) + ("ghc-monad-logger" ,ghc-monad-logger) + ("ghc-persistent" ,ghc-persistent) + ("ghc-resourcet" ,ghc-resourcet) + ("ghc-tagged" ,ghc-tagged) + ("ghc-unliftio" ,ghc-unliftio) + ("ghc-unordered-containers" ,ghc-unordered-containers))) + (native-inputs + `(("ghc-hspec" ,ghc-hspec) + ("ghc-persistent-sqlite" ,ghc-persistent-sqlite) + ("ghc-persistent-template" ,ghc-persistent-template))) + (home-page "https://github.com/bitemyapp/esqueleto") + (synopsis "Type-safe embedded domain specific language for SQL queries") + (description "This library provides a type-safe embedded domain specific language (EDSL) for SQL queries that works with SQL backends as provided by @code{ghc-persistent}. Its language closely resembles SQL, so you don't have to learn new concepts, just new syntax, and it's fairly easy to predict the generated SQL and optimize it for your backend.") - (license license:bsd-3)))) + (license license:bsd-3))) (define-public ghc-exactprint (package (name "ghc-exactprint") - (version "0.5.6.1") + (version "0.6.1") (source (origin (method url-fetch) @@ -3188,7 +3677,7 @@ generated SQL and optimize it for your backend.") "ghc-exactprint/ghc-exactprint-" version ".tar.gz")) (sha256 (base32 - "141k6qiys0m0r4br7ikp4i546vs3xcil9cwglzcdfcbnb5nj1z87")))) + "12nqpqmi9c57a3hgpfy8q073zryz66ylmcvf29hyffpj7vmmnvhl")))) (build-system haskell-build-system) (inputs `(("ghc-paths" ,ghc-paths) @@ -3211,7 +3700,7 @@ excluding @file{.lhs} files.") (define-public ghc-exceptions (package (name "ghc-exceptions") - (version "0.10.0") + (version "0.10.3") (source (origin (method url-fetch) @@ -3221,7 +3710,7 @@ excluding @file{.lhs} files.") ".tar.gz")) (sha256 (base32 - "1ms9zansv0pwzwdjncvx4kf18lnkjy2p61hvjhvxmjx5bqp93p8y")))) + "1w25j4ys5s6v239vbqlbipm9fdwxl1j2ap2lzms7f7rgnik5ir24")))) (build-system haskell-build-system) (native-inputs `(("ghc-quickcheck" ,ghc-quickcheck) @@ -3281,7 +3770,7 @@ versions of GHC (i.e., < 6.10).") (define-public ghc-extra (package (name "ghc-extra") - (version "1.6.9") + (version "1.6.18") (source (origin (method url-fetch) @@ -3291,10 +3780,11 @@ versions of GHC (i.e., < 6.10).") ".tar.gz")) (sha256 (base32 - "0xxcpb00pgwi9cmy6a7ghh6rblxry42p8pz5ssfgj20fs1xwzj1b")))) + "0jvd4l0hi8pf5899pxc32yc638y0mrc357w0rph99k3hm277i0cy")))) (build-system haskell-build-system) (inputs `(("ghc-clock" ,ghc-clock) + ("ghc-semigroups" ,ghc-semigroups) ("ghc-quickcheck" ,ghc-quickcheck))) (home-page "https://github.com/ndmitchell/extra") (synopsis "Extra Haskell functions") @@ -3332,7 +3822,7 @@ when used with GHC versions which already provide the (define-public ghc-fast-logger (package (name "ghc-fast-logger") - (version "2.4.11") + (version "2.4.17") (source (origin (method url-fetch) @@ -3342,12 +3832,13 @@ when used with GHC versions which already provide the ".tar.gz")) (sha256 (base32 - "1ad2vq4nifdxshqk9yrmghqizhkgybfz134kpr6padglb2mxxrdv")))) + "02mxb1ckvx1s2r2m11l5i2l5rdl7232p0f61af6773haykjp0qxk")))) (build-system haskell-build-system) (inputs `(("ghc-auto-update" ,ghc-auto-update) ("ghc-easy-file" ,ghc-easy-file) - ("ghc-unix-time" ,ghc-unix-time))) + ("ghc-unix-time" ,ghc-unix-time) + ("ghc-unix-compat" ,ghc-unix-compat))) (native-inputs `(("hspec-discover" ,hspec-discover) ("ghc-hspec" ,ghc-hspec))) @@ -3359,7 +3850,7 @@ when used with GHC versions which already provide the (define-public ghc-feed (package (name "ghc-feed") - (version "1.0.0.0") + (version "1.2.0.1") (source (origin (method url-fetch) @@ -3367,11 +3858,8 @@ when used with GHC versions which already provide the "feed/feed-" version ".tar.gz")) (sha256 (base32 - "05rgg7x1984mgfhkmz792xj8lhwjgznixhygzr8blf517lns2nck")))) + "004lwdng4slj6yl8mgscr3cgj0zzc8hzkf4450dby2l6cardg4w0")))) (build-system haskell-build-system) - (arguments - `(#:cabal-revision - ("4" "0baavcavm3ywykcr9cm07aqr7sna98jba2n68lyn3kany8ri214d"))) (inputs `(("ghc-base-compat" ,ghc-base-compat) ("ghc-old-locale" ,ghc-old-locale) @@ -3383,6 +3871,7 @@ when used with GHC versions which already provide the ("ghc-xml-types" ,ghc-xml-types))) (native-inputs `(("ghc-hunit" ,ghc-hunit) + ("ghc-markdown-unlit" ,ghc-markdown-unlit) ("ghc-test-framework" ,ghc-test-framework) ("ghc-test-framework-hunit" ,ghc-test-framework-hunit))) (home-page "https://github.com/bergmark/feed") @@ -3394,7 +3883,7 @@ consuming feeds in both RSS (Really Simple Syndication) and Atom format.") (define-public ghc-fgl (package (name "ghc-fgl") - (version "5.6.0.0") + (version "5.7.0.1") (outputs '("out" "doc")) (source (origin @@ -3405,7 +3894,7 @@ consuming feeds in both RSS (Really Simple Syndication) and Atom format.") ".tar.gz")) (sha256 (base32 - "1i6cp4b3w7sjk7y1dq3fh6bci2sm5h3lnbbaw9ln19nwncg2wwll")))) + "04793yh778ck3kz1z2svnfdwwls2kisbnky4lzvf4zjfgpv7mkpz")))) (build-system haskell-build-system) (arguments `(#:phases @@ -3413,10 +3902,10 @@ consuming feeds in both RSS (Really Simple Syndication) and Atom format.") (add-before 'configure 'update-constraints (lambda _ (substitute* "fgl.cabal" - (("QuickCheck >= 2\\.8 && < 2\\.10") - "QuickCheck >= 2.8 && < 2.12") - (("hspec >= 2\\.1 && < 2\\.5") - "hspec >= 2.1 && < 2.6"))))))) + (("QuickCheck >= 2\\.8 && < 2\\.13") + "QuickCheck >= 2.8 && < 2.14") + (("hspec >= 2\\.1 && < 2\\.7") + "hspec >= 2.1 && < 2.8"))))))) (inputs `(("ghc-hspec" ,ghc-hspec) ("ghc-quickcheck" ,ghc-quickcheck))) @@ -3450,9 +3939,9 @@ encourages inductive, recursive definitions of graph algorithms.") (lambda _ (substitute* "fgl-arbitrary.cabal" (("QuickCheck >= 2\\.3 && < 2\\.10") - "QuickCheck >= 2.3 && < 2.12") + "QuickCheck >= 2.3 && < 2.14") (("hspec >= 2\\.1 && < 2\\.5") - "hspec >= 2.1 && < 2.6"))))))) + "hspec >= 2.1 && < 2.8"))))))) (inputs `(("ghc-fgl" ,ghc-fgl) ("ghc-quickcheck" ,ghc-quickcheck) @@ -3469,7 +3958,7 @@ for generating graph-like data structures.") (define-public ghc-file-embed (package (name "ghc-file-embed") - (version "0.0.10.1") + (version "0.0.11") (source (origin (method url-fetch) @@ -3477,7 +3966,7 @@ for generating graph-like data structures.") "file-embed-" version ".tar.gz")) (sha256 (base32 - "0lj164cnzqyd487mli91nnr7137a4h4qsasfwsnsh77sx12fpk9k")))) + "0l6dkwccbzzyx8rcav03lya2334dgi3vfwk96h7l93l0fc4x19gf")))) (build-system haskell-build-system) (home-page "https://github.com/snoyberg/file-embed") (synopsis "Use Template Haskell to embed file contents directly") @@ -3535,7 +4024,7 @@ an executable.") (define-public ghc-fingertree (package (name "ghc-fingertree") - (version "0.1.4.1") + (version "0.1.4.2") (source (origin (method url-fetch) @@ -3544,7 +4033,7 @@ an executable.") version ".tar.gz")) (sha256 (base32 - "192fyzv0pn1437wdpqg1l80rswkk4rw3w61r4bq7dhv354bdqy4p")))) + "0zvandj8fysck7ygpn0dw5bhrhmj1s63i326nalxbfkh2ls4iacm")))) (build-system haskell-build-system) (native-inputs `(("ghc-hunit" ,ghc-hunit) @@ -3564,7 +4053,7 @@ simple general-purpose data structure\".") (define-public ghc-fixed (package (name "ghc-fixed") - (version "0.2.1.1") + (version "0.3") (source (origin (method url-fetch) @@ -3572,7 +4061,7 @@ simple general-purpose data structure\".") version ".tar.gz")) (sha256 (base32 - "1qhmwx8iqshns0crmr9d2f8hm65jxbcp3dvv0c39v34ra7if3a94")))) + "10l2sh179xarb774q92cff2gkb20rsrlilfwp1fk61rzmz9yn64j")))) (build-system haskell-build-system) (home-page "https://github.com/ekmett/fixed") (synopsis "Signed 15.16 precision fixed point arithmetic") @@ -3584,7 +4073,7 @@ arithmetic.") (define-public ghc-fmlist (package (name "ghc-fmlist") - (version "0.9.2") + (version "0.9.3") (source (origin (method url-fetch) @@ -3594,7 +4083,7 @@ arithmetic.") version ".tar.gz")) (sha256 (base32 - "02868865hqm189h5wjd916abvqwkhbrx5b0119s1dwp70ifvbi4g")))) + "1w9nhm2zybdx4c1lalkajwqr8wcs731lfjld2r8gknd7y96x8pwf")))) (build-system haskell-build-system) (home-page "https://github.com/sjoerdvisscher/fmlist") (synopsis "FoldMap lists") @@ -3608,7 +4097,7 @@ completely unverified though.") (define-public ghc-foldl (package (name "ghc-foldl") - (version "1.4.3") + (version "1.4.5") (source (origin (method url-fetch) @@ -3617,7 +4106,7 @@ completely unverified though.") "foldl-" version ".tar.gz")) (sha256 (base32 - "13n0ca3hw5jzqf6rxsdbhbwkn61a9zlm13f0f205s60j3sc72jzk")))) + "19qjmzc7gaxfwgqbgy0kq4vhbxvh3qjnwsxnc7pzwws2if5bv80b")))) (build-system haskell-build-system) (inputs `(("ghc-mwc-randam" ,ghc-mwc-random) ("ghc-primitive" ,ghc-primitive) @@ -3641,7 +4130,7 @@ and are often as efficient as hand-written folds.") (define-public ghc-foundation (package (name "ghc-foundation") - (version "0.0.21") + (version "0.0.25") (source (origin (method url-fetch) @@ -3649,8 +4138,18 @@ and are often as efficient as hand-written folds.") "foundation/foundation-" version ".tar.gz")) (sha256 (base32 - "1q43y8wfj0wf9gdq2kzphwjwq6m5pvryy1lqgk954aq5z3ks1lsf")))) + "0q6kx57ygmznlpf8n499hid4x6mj3180paijx0a8dgi9hh7man61")))) (build-system haskell-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + ;; This test is broken. For details, see + ;; https://github.com/haskell-foundation/foundation/issues/530 + (add-after 'unpack 'patch-tests + (lambda _ + (substitute* "tests/Test/Foundation/Number.hs" + ((", testDividible proxy") "")) + #t))))) (inputs `(("ghc-basement" ,ghc-basement))) (home-page "https://github.com/haskell-foundation/foundation") (synopsis "Alternative prelude with batteries and no dependencies") @@ -3675,7 +4174,7 @@ Foundation has the following goals: (define-public ghc-free (package (name "ghc-free") - (version "5.0.2") + (version "5.1.2") (source (origin (method url-fetch) @@ -3685,7 +4184,7 @@ Foundation has the following goals: ".tar.gz")) (sha256 (base32 - "15m3n9vhz7z3kzv1w3wlfa3x8jp4cbrkwmrcjr7jlx39iqffn1gg")))) + "0vlf3f2ckl3cr7z2zl8c9c8qkdlfgvmh04gxkp2fg0z9dz80nlyb")))) (build-system haskell-build-system) (inputs `(("ghc-prelude-extras" ,ghc-prelude-extras) @@ -3741,7 +4240,7 @@ specific Windows, Mac, and Linux file system event notification.") (define-public ghc-generic-deriving (package (name "ghc-generic-deriving") - (version "1.12.2") + (version "1.12.4") (source (origin (method url-fetch) @@ -3751,7 +4250,7 @@ specific Windows, Mac, and Linux file system event notification.") ".tar.gz")) (sha256 (base32 - "1i7d6cpj9yhaqb79zays3nqchhaacacjz9bkc0zlwj73y5gvi22n")))) + "0vdg9qdq35jl3m11a87wk8cq1y71qm4i1g1b2pxki0wk70yw20a4")))) (build-system haskell-build-system) (inputs `(("ghc-th-abstraction" ,ghc-th-abstraction))) @@ -3767,7 +4266,7 @@ deriving mechanism in Haskell to arbitrary classes.") (define-public ghc-generics-sop (package (name "ghc-generics-sop") - (version "0.3.2.0") + (version "0.4.0.1") (source (origin (method url-fetch) @@ -3776,9 +4275,11 @@ deriving mechanism in Haskell to arbitrary classes.") "generics-sop-" version ".tar.gz")) (sha256 (base32 - "168v62i845jh9jbfaz3ldz8svz4wmzq9mf2vhb7pxlnbkk8fqq1h")))) + "160knr2phnzh2gldfv954lz029jzc7y8kz5xpmbf4z3vb5ngm6fw")))) (build-system haskell-build-system) - (inputs `(("ghc-transformers-compat" ,ghc-transformers-compat))) + (inputs + `(("ghc-sop-core" ,ghc-sop-core) + ("ghc-transformers-compat" ,ghc-transformers-compat))) (home-page "https://github.com/well-typed/generics-sop") (synopsis "Generic Programming using True Sums of Products for Haskell") (description "This Haskell package supports the definition of generic @@ -3800,6 +4301,9 @@ each constructor are represented using an n-ary product.") (sha256 (base32 "1y0m0bw5zpm1y1y6d9qmxj3swl8j8hlw1shxbr5awycf6k884ssb")))) (build-system haskell-build-system) + (arguments + `(#:cabal-revision + ("2" "03fg4vfm1wgq4mylggawdx0bfvbbjmdn700sqx7v3hk1bx0kjfzh"))) (home-page "https://github.com/danr/geniplate") (synopsis "Use Template Haskell to generate Uniplate-like functions") (description @@ -3811,7 +4315,7 @@ geniplate} package, written by Lennart Augustsson.") (define-public ghc-genvalidity (package (name "ghc-genvalidity") - (version "0.5.1.0") + (version "0.8.0.0") (source (origin (method url-fetch) @@ -3821,7 +4325,7 @@ geniplate} package, written by Lennart Augustsson.") ".tar.gz")) (sha256 (base32 - "17ykq38j9a2lzir6dqz5jgy6ndaafrpkhqhcg96c5ppg7wcxaaj0")))) + "0w38aq9hfyymidncgkrs6yvja7j573d9sap5qfg5rz910fhsij9a")))) (build-system haskell-build-system) (inputs `(("ghc-quickcheck" ,ghc-quickcheck) @@ -3842,7 +4346,7 @@ with the @code{Validity} typeclass.") (define-public ghc-genvalidity-property (package (name "ghc-genvalidity-property") - (version "0.2.1.1") + (version "0.4.0.0") (source (origin (method url-fetch) @@ -3853,7 +4357,7 @@ with the @code{Validity} typeclass.") ".tar.gz")) (sha256 (base32 - "0cjw5i2pydidda9bnp6x37ylhxdk9g874x5sadr6sscg5kq85a1b")))) + "0zayycx62226w54rvkxwhvqhznsr33dk3ds55yyqrfqbnhvph1s9")))) (build-system haskell-build-system) (inputs `(("ghc-quickcheck" ,ghc-quickcheck) @@ -3871,6 +4375,37 @@ with the @code{Validity} typeclass.") properties for functions operating on them.") (license license:expat))) +(define-public ghc-getopt-generics + (package + (name "ghc-getopt-generics") + (version "0.13.0.4") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "getopt-generics/getopt-generics-" + version ".tar.gz")) + (sha256 + (base32 + "1rszkcn1rg38wf35538ljk5bbqjc57y9sb3a0al7qxm82gy8yigr")))) + (build-system haskell-build-system) + (inputs + `(("ghc-base-compat" ,ghc-base-compat) + ("ghc-base-orphans" ,ghc-base-orphans) + ("ghc-generics-sop" ,ghc-generics-sop) + ("ghc-tagged" ,ghc-tagged))) + (native-inputs + `(("ghc-quickcheck" ,ghc-quickcheck) + ("ghc-hspec" ,ghc-hspec) + ("ghc-safe" ,ghc-safe) + ("ghc-silently" ,ghc-silently) + ("hspec-discover" ,hspec-discover))) + (home-page "https://github.com/soenkehahn/getopt-generics") + (synopsis "Create command line interfaces with ease") + (description "This library provides tools to create command line +interfaces with ease.") + (license license:bsd-3))) + (define-public ghc-gitrev (package (name "ghc-gitrev") @@ -3896,7 +4431,7 @@ info for more informative bug reports.") (define-public ghc-glob (package (name "ghc-glob") - (version "0.9.2") + (version "0.10.0") (source (origin (method url-fetch) @@ -3905,7 +4440,7 @@ info for more informative bug reports.") "Glob-" version ".tar.gz")) (sha256 (base32 - "1rbwcq9w9951qsnp13vqcm9r01yax2yh1wk8s4zxa3ckk9717iwg")))) + "0953f91f62ncna402vsrfzdcyxhdpjna3bgdw017kad0dfymacs7")))) (build-system haskell-build-system) (inputs `(("ghc-dlist" ,ghc-dlist) @@ -3950,7 +4485,7 @@ basis for a nicer interface.") (define-public ghc-glut (package (name "ghc-glut") - (version "2.7.0.14") + (version "2.7.0.15") (source (origin (method url-fetch) @@ -3960,7 +4495,7 @@ basis for a nicer interface.") ".tar.gz")) (sha256 (base32 - "01i162fly4q1751fp60lgkzlb8kr0qqbvmxj74zc6skb19qggy2w")))) + "0271vnf6wllhxjwy0m348x90kv27aybxcbqkkglmd5w4cpwjg5g9")))) (build-system haskell-build-system) (inputs `(("ghc-statevar" ,ghc-statevar) @@ -3977,7 +4512,7 @@ programs.") (define-public ghc-gnuplot (package (name "ghc-gnuplot") - (version "0.5.5.2") + (version "0.5.6") (source (origin (method url-fetch) @@ -3985,7 +4520,7 @@ programs.") "mirror://hackage/package/gnuplot/gnuplot-" version ".tar.gz")) (sha256 - (base32 "1mlppnc13ygjzmf6ldydys4wvy35yb3xjwwfgf9rbi7nfcqjr6mn")))) + (base32 "1g6xgnlkh17avivn1rlq7l2nvs26dvrbx4rkfld0bf6kyqaqwrgp")))) (build-system haskell-build-system) (inputs `(("ghc-temporary" ,ghc-temporary) @@ -4012,15 +4547,25 @@ programs.") (define-public ghc-graphviz (package (name "ghc-graphviz") - (version "2999.20.0.2") + (version "2999.20.0.3") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" "graphviz/graphviz-" version ".tar.gz")) (sha256 (base32 - "0kj7ap0gnliviq2p8lscw1m06capnsa90vpvcys24nqy5nw2wrp7")))) + "04k26zw61nfv1pkd00iaq89pgsaiym0sf4cbzkmm2k2fj5xa587g")))) (build-system haskell-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'configure 'update-constraints + (lambda _ + (substitute* "graphviz.cabal" + (("QuickCheck >= 2\\.3 && < 2\\.13") + "QuickCheck >= 2.3 && < 2.14") + (("hspec >= 2\\.1 && < 2\\.7") + "hspec >= 2.1 && < 2.8"))))))) (inputs `(("ghc-quickcheck" ,ghc-quickcheck) ("ghc-colour" ,ghc-colour) @@ -4054,10 +4599,29 @@ and edge labels with positional information, etc. @end enumerate\n") (license license:bsd-3))) +(define-public ghc-groups + (package + (name "ghc-groups") + (version "0.4.1.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "groups/groups-" version ".tar.gz")) + (sha256 + (base32 + "0ggkygkyxw5ga4cza82bjvdraavl294k0h6b62d2px7z3nvqhifx")))) + (build-system haskell-build-system) + (home-page "https://hackage.haskell.org/package/groups") + (synopsis "Haskell 98 groups") + (description "This package provides Haskell 98 groups. A group is a +monoid with invertibility.") + (license license:bsd-3))) + (define-public ghc-gtk2hs-buildtools (package (name "ghc-gtk2hs-buildtools") - (version "0.13.4.0") + (version "0.13.5.4") (source (origin (method url-fetch) @@ -4066,7 +4630,7 @@ and edge labels with positional information, etc. version ".tar.gz")) (sha256 (base32 - "0yg6xmylgpylmnh5g33qwwn5x9bqckdvvv4czqzd9vrr12lnnghg")))) + "1flxsacxwmabzzalhn8558kmj95z01c0lmikrn56nxh7p62nxm25")))) (build-system haskell-build-system) (inputs `(("ghc-random" ,ghc-random) @@ -4100,7 +4664,9 @@ tools are not needed to actually run Gtk2Hs programs.") "08bwawc7ramgdh54vcly2m9pvfchp0ahhs8117jajni6x4bnx66v")))) (build-system haskell-build-system) (arguments - `(#:tests? #f)) ; Tests fail because of framework updates. + `(#:cabal-revision + ("6" "1xs2nkzlvkdz8g27yzfxbjdbdadfmgiydnlpn5dm77cg18r495ay") + #:tests? #f)) ; Tests fail because of framework updates. (inputs `(("ghc-base16-bytestring" ,ghc-base16-bytestring) ("ghc-base64-bytestring" ,ghc-base64-bytestring) @@ -4133,7 +4699,7 @@ Tor project}.") (define-public ghc-haddock (package (name "ghc-haddock") - (version "2.19.0.1") + (version "2.22.0") (source (origin (method url-fetch) @@ -4143,16 +4709,15 @@ Tor project}.") ".tar.gz")) (sha256 (base32 - "1g1j9j0hf2yhyyh0gwz6bzbvfvliqz9x8a8hnkmwghm7w3xa6sb7")))) + "1k42z2zh550rl93c8pa9cg2xsanp6wvb031xvan6cmngnplmdib6")))) (build-system haskell-build-system) (arguments `(#:phases (modify-phases %standard-phases - ;; There are four test suites that require the ghc-haddock-test - ;; package, which no longer builds with GHC 8.4.3. This phase - ;; removes these four test suites from the Cabal file, so that we - ;; do not need ghc-haddock-test as an input. - (add-before 'configure 'remove-haddock-test-test-suites + ;; The release tarball for 2.22.0 is missing the test data for + ;; the Hoogle test, causing it to fail. This is fixed in the + ;; next release, but for now we disable it. + (add-before 'configure 'remove-hoogle-test (lambda _ (use-modules (ice-9 rdelim)) (with-atomic-file-replacement "haddock.cabal" @@ -4163,17 +4728,20 @@ Tor project}.") ((string-every char-set:whitespace line) (unless deleting? (display line out)) (loop (read-line in 'concat) #f)) - ((member line '("test-suite html-test\n" - "test-suite hypsrc-test\n" - "test-suite latex-test\n" - "test-suite hoogle-test\n")) + ((string=? line "test-suite hoogle-test\n") (loop (read-line in 'concat) #t)) (else (unless deleting? (display line out)) - (loop (read-line in 'concat) deleting?))))))))))) + (loop (read-line in 'concat) deleting?)))))))) + (add-before 'check 'add-haddock-to-path + (lambda _ + (setenv "PATH" (string-append (getcwd) "/dist/build/haddock" + ":" (getenv "PATH"))) + #t))))) (inputs `(("ghc-haddock-api" ,ghc-haddock-api))) (native-inputs - `(("ghc-hspec" ,ghc-hspec))) + `(("ghc-haddock-test" ,ghc-haddock-test) + ("ghc-hspec" ,ghc-hspec))) (home-page "https://www.haskell.org/haddock/") (synopsis "Documentation-generation tool for Haskell libraries") @@ -4184,7 +4752,7 @@ Tor project}.") (define-public ghc-haddock-api (package (name "ghc-haddock-api") - (version "2.19.0.1") + (version "2.22.0") (source (origin (method url-fetch) @@ -4192,9 +4760,10 @@ Tor project}.") "https://hackage.haskell.org/package/haddock-api/haddock-api-" version ".tar.gz")) + (patches (search-patches "ghc-haddock-api-fix-haddock.patch")) (sha256 (base32 - "0c6i7sljp7myz25d90gyw68a90i5jcrkajkxcciikp2hjirfaas3")))) + "149q4zlf4m7wcrr4af2n2flh0jxjsypshbc229vsj1m0kmz4z014")))) (build-system haskell-build-system) (arguments `(#:phases @@ -4202,10 +4771,10 @@ Tor project}.") (add-before 'configure 'update-constraints (lambda _ (substitute* "haddock-api.cabal" - (("Cabal \\^>= 2\\.0\\.0") - "Cabal ^>= 2.2.0") - (("hspec \\^>= 2\\.4\\.4") - "hspec >= 2.4.4 && < 2.6"))))))) + (("QuickCheck \\^>= 2\\.11") + "QuickCheck ^>= 2.13") + (("hspec >= 2\\.4\\.4 && < 2\\.6") + "hspec >= 2.4.4 && < 2.8"))))))) (inputs `(("ghc-paths" ,ghc-paths) ("ghc-haddock-library" ,ghc-haddock-library))) @@ -4222,7 +4791,7 @@ documentation-generation tool for Haskell libraries.") (define-public ghc-haddock-library (package (name "ghc-haddock-library") - (version "1.5.0.1") + (version "1.7.0") (source (origin (method url-fetch) @@ -4232,29 +4801,18 @@ documentation-generation tool for Haskell libraries.") ".tar.gz")) (sha256 (base32 - "1cmbg8l5xrwpliclwy3l057raypjqy0hsg1h1743ahaj8gq10b7z")) - (patches (search-patches - "ghc-haddock-library-unbundle.patch")) - (modules '((guix build utils))) - (snippet '(begin - (delete-file-recursively "vendor") - #t)))) + "04fhcjk0pvsaqvsgp2w06cv2qvshq1xs1bwc157q4lmkgr57khp7")))) (build-system haskell-build-system) (arguments `(#:phases (modify-phases %standard-phases + ;; Since there is no revised Cabal file upstream, we have to + ;; patch it manually. (add-before 'configure 'relax-test-suite-dependencies (lambda _ (substitute* "haddock-library.cabal" - (("base-compat\\s*\\^>= 0\\.9\\.3") "base-compat") - (("hspec\\s*\\^>= 2\\.4\\.4") "hspec")))) - ;; The release tarball does not contain the "fixtures/examples" - ;; directory, which is required for testing. In the upstream - ;; repository, the directory exists and is populated. Here, we - ;; create an empty directory to placate the tests. - (add-before 'check 'add-examples-directory - (lambda _ - (mkdir "fixtures/examples") + (("hspec\\s*>= 2.4.4 && < 2.6") "hspec") + (("QuickCheck\\s*\\^>= 2.11") "QuickCheck")) #t))))) (native-inputs `(("ghc-base-compat" ,ghc-base-compat) @@ -4273,6 +4831,39 @@ project if you can't release often. For interacting with Haddock itself, see the ‘haddock’ package.") (license license:bsd-3))) +;; This package is needed for testing 'ghc-haddock'. It is no longer +;; published to Hackage, but it is maintained in the Haddock Git +;; repository. +(define ghc-haddock-test + (package + (name "ghc-haddock-test") + (version "2.22.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/haskell/haddock.git") + (commit (string-append "haddock-" version "-release")))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1ywxmqqan10gs0ppybdmdgsmvkzkpw7yirj2rw4qylg3x49a9zca")))) + (build-system haskell-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'change-directory + (lambda _ + (chdir "haddock-test")))))) + (inputs + `(("ghc-syb" ,ghc-syb) + ("ghc-xml" ,ghc-xml))) + (home-page "http://www.haskell.org/haddock/") + (synopsis "Test utilities for Haddock") + (description "This package provides test utilities for Haddock.") + (license license:bsd-3) + (properties '((hidden? #t))))) + (define-public ghc-half (package (name "ghc-half") @@ -4299,7 +4890,7 @@ computation library for Haskell.") (define-public ghc-happy (package (name "ghc-happy") - (version "1.19.9") + (version "1.19.12") (source (origin (method url-fetch) @@ -4309,7 +4900,7 @@ computation library for Haskell.") ".tar.gz")) (sha256 (base32 - "138xpxdb7x62lpmgmb6b3v3vgdqqvqn4273jaap3mjmc2gla709y")))) + "03xlmq6qmdx4zvzw8bp33kd9g7yvcq5cz4wg50xilw812kj276pv")))) (build-system haskell-build-system) (arguments `(#:phases @@ -4344,6 +4935,9 @@ Happy works in a similar way to the yacc tool for C.") (base32 "1gra8gq3kb7b2sd845h55yxlrfqx3ii004c6vjhga8v0b30fzdgc")))) (build-system haskell-build-system) + (arguments + `(#:cabal-revision + ("1" "197063dpl0wn67dp7a06yc2hxp81n24ykk7klbjx0fndm5n87dh3"))) (inputs `(("ghc-random" ,ghc-random))) (native-inputs @@ -4365,14 +4959,16 @@ combine hash values.") (package (inherit ghc-hashable) (name "ghc-hashable-bootstrap") - (arguments `(#:tests? #f)) + (arguments + `(#:tests? #f + ,@(package-arguments ghc-hashable))) (native-inputs '()) (properties '((hidden? #t))))) (define-public ghc-hashable-time (package (name "ghc-hashable-time") - (version "0.2.0.1") + (version "0.2.0.2") (source (origin (method url-fetch) @@ -4382,11 +4978,11 @@ combine hash values.") ".tar.gz")) (sha256 (base32 - "0k932nyd08l3xxbh2g3n76py2f4kd9yw4s5a065vjz0xp6wjnxdm")))) + "1q7y4plqqwy5286hhx2fygn12h8lqk0y047b597sbdckskxzfqgs")))) (build-system haskell-build-system) (arguments `(#:cabal-revision - ("1" "0rv40xkg3gj8jnqsry1gq3f5s5la6d5arg8fzkirnwdpcgha1as6"))) + ("2" "006phc5y9rrvsshdcmjmhxzxh8dpgs685mpqbkjm9c40xb1ydjbz"))) (inputs `(("ghc-hashable" ,ghc-hashable))) (home-page "http://hackage.haskell.org/package/hashable-time") (synopsis "Hashable instances for Data.Time") @@ -4398,7 +4994,7 @@ combine hash values.") (define-public ghc-hashtables (package (name "ghc-hashtables") - (version "1.2.3.1") + (version "1.2.3.4") (source (origin (method url-fetch) @@ -4406,7 +5002,7 @@ combine hash values.") "https://hackage.haskell.org/package/hashtables/hashtables-" version ".tar.gz")) (sha256 - (base32 "1giw9caajr07slf09j7zry9b0kvm4yj9q78zy1mawzi6gk3wglcg")))) + (base32 "1rjmxnr30g4hygiywkpz5p9sanh0abs7ap4zc1kgd8zv04kycp0j")))) (build-system haskell-build-system) (inputs `(("ghc-hashable" ,ghc-hashable) @@ -4471,7 +5067,7 @@ package are to parse or generate Haskell 98 code.") (define-public ghc-haskell-src-exts (package (name "ghc-haskell-src-exts") - (version "1.20.2") + (version "1.21.1") (source (origin (method url-fetch) @@ -4481,7 +5077,7 @@ package are to parse or generate Haskell 98 code.") ".tar.gz")) (sha256 (base32 - "1sm3z4v1p5yffg01ldgavz71s3bvfhjfa13k428rk14bpkl8crlz")))) + "0q1y8n3d82gid9bcx8wxsqqmj9mq11fg3gp5yzpfbw958dhi3j9f")))) (build-system haskell-build-system) (inputs `(("cpphs" ,cpphs) @@ -4504,7 +5100,7 @@ patterns as per the HaRP extension as well as HSX-style embedded XML syntax.") (define-public ghc-haskell-src-exts-util (package (name "ghc-haskell-src-exts-util") - (version "0.2.3") + (version "0.2.5") (source (origin (method url-fetch) @@ -4513,7 +5109,7 @@ patterns as per the HaRP extension as well as HSX-style embedded XML syntax.") version ".tar.gz")) (sha256 (base32 - "1803718paq89f8pdck4mb88hv2k1ah9lxzq0lgjgwi9n88ryycz8")))) + "0fvqi72m74p7q5sbpy8m2chm8a1lgy10mfrcxcz8wrh59vngj0n8")))) (build-system haskell-build-system) (inputs `(("ghc-data-default" ,ghc-data-default) @@ -4530,7 +5126,7 @@ patterns as per the HaRP extension as well as HSX-style embedded XML syntax.") (define-public ghc-haskell-src-meta (package (name "ghc-haskell-src-meta") - (version "0.8.0.3") + (version "0.8.3") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" @@ -4538,7 +5134,7 @@ patterns as per the HaRP extension as well as HSX-style embedded XML syntax.") version ".tar.gz")) (sha256 (base32 - "08jq156zv4m0fjq6712n99c1jwxnpa6kj6sq8ch0r1l0a1ay6ww4")))) + "17znnaqj2hnnfyc9p9xjzbs97h2jh1h4f4qbw648y3xa14wx5ra9")))) (build-system haskell-build-system) (inputs `(("ghc-haskell-src-exts" ,ghc-haskell-src-exts) @@ -4546,8 +5142,8 @@ patterns as per the HaRP extension as well as HSX-style embedded XML syntax.") ("ghc-th-orphans" ,ghc-th-orphans))) (native-inputs `(("ghc-hunit" ,ghc-hunit) - ("ghc-test-framework" ,ghc-test-framework) - ("ghc-test-framework-hunit" ,ghc-test-framework-hunit))) + ("ghc-tasty" ,ghc-tasty) + ("ghc-tasty-hunit" ,ghc-tasty-hunit))) (home-page "https://hackage.haskell.org/package/haskell-src-meta") (synopsis "Parse source to template-haskell abstract syntax") (description @@ -4638,7 +5234,7 @@ descriptions.") (define-public ghc-hindent (package (name "ghc-hindent") - (version "5.3.0") + (version "5.3.1") (source (origin (method url-fetch) @@ -4648,7 +5244,7 @@ descriptions.") ".tar.gz")) (sha256 (base32 - "0wkfik7mvqskk23kyh7ybgnlh3j9j1ym7d3ncahsbli9w654b7xg")))) + "008s8zm9qs972b7v5kkmr8l3i9kc6zm7yj33mkw6dv69b7h3c01l")))) (build-system haskell-build-system) (arguments `(#:modules ((guix build haskell-build-system) @@ -4697,7 +5293,7 @@ library and an executable.") (define-public ghc-hinotify (package (name "ghc-hinotify") - (version "0.3.10") + (version "0.4") (source (origin (method url-fetch) (uri (string-append @@ -4705,7 +5301,7 @@ library and an executable.") "hinotify-" version ".tar.gz")) (sha256 (base32 - "17ax3n68a5c2ddazp86aciliskrh6znd3bnry0wcllmb6dbpsaxg")))) + "1x1lm685ws2q0z0ibwq6x3l72xh67mj06s36xiga3al48d92q63x")))) (build-system haskell-build-system) (inputs `(("ghc-async" ,ghc-async))) @@ -4719,7 +5315,7 @@ accessed or modified.") (define-public ghc-hmatrix (package (name "ghc-hmatrix") - (version "0.19.0.0") + (version "0.20.0.0") (source (origin (method url-fetch) @@ -4727,7 +5323,7 @@ accessed or modified.") "https://hackage.haskell.org/package/hmatrix/hmatrix-" version ".tar.gz")) (sha256 - (base32 "10jd69nby29dggghcyjk6ykyr5wrn97nrv1dkpyrp0y5xm12xssj")))) + (base32 "1sqy1aci5zfagkb34mz3xdil7cl96z4b4cx28cha54vc5sx1lhpg")))) (build-system haskell-build-system) (inputs `(("ghc-random" ,ghc-random) @@ -4776,7 +5372,7 @@ using GSL.") (define-public ghc-hmatrix-gsl-stats (package (name "ghc-hmatrix-gsl-stats") - (version "0.4.1.7") + (version "0.4.1.8") (source (origin (method url-fetch) @@ -4785,7 +5381,7 @@ using GSL.") "https://hackage.haskell.org/package/hmatrix-gsl-stats/hmatrix-gsl-stats-" version ".tar.gz")) (sha256 - (base32 "1gslgk58lzin43cvbpivhw7nrn9qyaa6qwhy1z9ypvyal5p8n3sa")))) + (base32 "1cq049sj3q5r06x7i35hqrkf2jc4p4kfi9zv0jmi2vp7w4644i5q")))) (build-system haskell-build-system) (inputs `(("ghc-vector" ,ghc-vector) @@ -4872,15 +5468,16 @@ representations of current time.") (define-public ghc-hpack (package (name "ghc-hpack") - (version "0.28.2") + (version "0.31.2") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/hpack/" "hpack-" version ".tar.gz")) + (patches (search-patches "ghc-hpack-fix-tests.patch")) (sha256 (base32 - "18w0h76jdp3mk9vin8da9iz3cwhcxmw787xy8wlh8bxcpcr16q5r")))) + "1l2d6185lawwhsj70swxkvcacm0hvcn9qsrlx4ph4gs6k578603g")))) (build-system haskell-build-system) (inputs `(("ghc-aeson" ,ghc-aeson) @@ -4890,6 +5487,7 @@ representations of current time.") ("ghc-http-client" ,ghc-http-client) ("ghc-http-client-tls" ,ghc-http-client-tls) ("ghc-http-types" ,ghc-http-types) + ("ghc-infer-license" ,ghc-infer-license) ("ghc-scientific" ,ghc-scientific) ("ghc-unordered-containers" ,ghc-unordered-containers) ("ghc-vector" ,ghc-vector) @@ -4916,7 +5514,7 @@ are described in a file named @code{package.yaml}. Both @code{cabal2nix} and (define-public ghc-hs-bibutils (package (name "ghc-hs-bibutils") - (version "6.6.0.0") + (version "6.7.0.0") (source (origin (method url-fetch) @@ -4925,7 +5523,7 @@ are described in a file named @code{package.yaml}. Both @code{cabal2nix} and version ".tar.gz")) (sha256 (base32 - "0n2sz2zl4naspryd49ii858qkjp2lapns5a2gr8zm6vvn5sh1f0l")))) + "1qfyssl76lm4g09yxr3y10kmf8cnzls46g5h0ijk0wpk9wlhbln5")))) (build-system haskell-build-system) (inputs `(("ghc-syb" ,ghc-syb))) (home-page "https://hackage.haskell.org/package/hs-bibutils") @@ -4939,7 +5537,7 @@ MODS-format XML intermediate.") (define-public ghc-hslogger (package (name "ghc-hslogger") - (version "1.2.10") + (version "1.2.12") (source (origin (method url-fetch) @@ -4947,7 +5545,7 @@ MODS-format XML intermediate.") "hslogger-" version "/" "hslogger-" version ".tar.gz")) (sha256 (base32 - "0as5gvlh6pi2gflakp695qnlizyyp059dqrhvjl4gjxalja6xjnp")))) + "0ykcsk7wqygvrg60r5kpl6xfinr706al8pfyk5wj67wjs24lqypr")))) (build-system haskell-build-system) (inputs `(("ghc-network" ,ghc-network) @@ -4965,14 +5563,14 @@ handler built in.") (define-public ghc-hslua (package (name "ghc-hslua") - (version "0.9.5.2") + (version "1.0.3.2") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" "hslua/hslua-" version ".tar.gz")) (sha256 (base32 - "1rdvv01p214zfjh6fcqjjgqwi8y42wad6cqzhlcv5gvclzw2ck8f")))) + "183bgl5jcx5y2r94lviqfw0a5w9089nxjd1z40k8vx9y2h60pm6j")))) (build-system haskell-build-system) (arguments `(#:configure-flags '("-fsystem-lua"))) @@ -4994,10 +5592,40 @@ handler built in.") described in @url{https://www.lua.org/}.") (license license:expat))) +(define-public ghc-hslua-module-system + (package + (name "ghc-hslua-module-system") + (version "0.2.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "hslua-module-system/hslua-module-system-" + version ".tar.gz")) + (sha256 + (base32 + "1m7wz3g5c34pyizqw5mllzhsy2vziddhlbhjfwdvd7nhd3p4v3hh")))) + (build-system haskell-build-system) + (inputs + `(("ghc-exceptions" ,ghc-exceptions) + ("ghc-hslua" ,ghc-hslua) + ("ghc-temporary" ,ghc-temporary))) + (native-inputs + `(("ghc-tasty" ,ghc-tasty) + ("ghc-tasty-hunit" ,ghc-tasty-hunit))) + (home-page "https://github.com/hslua/hslua-module-system") + (synopsis "Lua module wrapper around Haskell's System module") + (description "This library provides access to system information and +functionality to Lua scripts via Haskell's @code{System} module. Intended +usage for this package is to preload it by adding the loader function to +@code{package.preload}. Note that the Lua @code{package} library must have +already been loaded before the loader can be added.") + (license license:expat))) + (define-public ghc-hslua-module-text (package (name "ghc-hslua-module-text") - (version "0.1.2.1") + (version "0.2.1") (source (origin (method url-fetch) @@ -5006,11 +5634,8 @@ described in @url{https://www.lua.org/}.") version ".tar.gz")) (sha256 (base32 - "0bcfpb1dhnxp0gr376ai4w7vczr9zrjl1r3r6w7kcxivfkwq9cxf")))) + "1ikdwvvxhbd5wmfr85dzs2ccamh9rbbpgy899z7s1vlv5q1dj0hk")))) (build-system haskell-build-system) - (arguments - `(#:cabal-revision - ("1" "0vajlsd7y6pwa08635q0cx8z5c1c55bk7fvavw7g2vmyvxqjzx6n"))) (inputs `(("ghc-hslua" ,ghc-hslua))) (native-inputs @@ -5024,10 +5649,55 @@ for Haskell. The functions provided by this module are @code{upper}, @code{lower}, @code{len}, @code{reverse}, and @code{sub}.") (license license:expat))) +(define-public ghc-hsyaml + (package + (name "ghc-hsyaml") + (version "0.1.2.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "HsYAML/HsYAML-" version ".tar.gz")) + (sha256 + (base32 + "1pajfhj16559v64ixm8j7bvxdqmxg6c3c0z3wz7in8ckswgzfp54")))) + (build-system haskell-build-system) + (arguments + `(#:cabal-revision + ("1" "0j6qmmcz5yqh89hs2cq453maix50q61vl2h0ahj5lg02bygn42cf"))) + (home-page "https://github.com/haskell-hvr/HsYAML") + (synopsis "Pure Haskell YAML 1.2 parser") + (description "This library provides a +@url{http://yaml.org/spec/1.2/spec.html, YAML 1.2} parser implementation +for Haskell. Its features include: + +@itemize +@item Pure Haskell implementation with small dependency footprint and +emphasis on strict compliance with the YAML 1.2 specification. + +@item Direct decoding to native Haskell types via (aeson-inspired) +typeclass-based API (see @code{Data.YAML}). + +@item Support for constructing custom YAML node graph +representation (including support for cyclic YAML data structures). + +@item Support for the standard (untyped) @emph{Failsafe}, (strict) +@emph{JSON}, and (flexible) @emph{Core} ``schemas'' providing implicit +typing rules as defined in the YAML 1.2 specification (including support +for user-defined custom schemas). + +@item Event-based API resembling LibYAML's Event-based API (see +@code{Data.YAML.Event}). + +@item Low-level API access to lexical token-based scanner (see +@code{Data.YAML.Token}). +@end itemize") + (license license:gpl2+))) + (define-public ghc-http-api-data (package (name "ghc-http-api-data") - (version "0.3.8.1") + (version "0.4.1") (source (origin (method url-fetch) @@ -5036,17 +5706,25 @@ for Haskell. The functions provided by this module are @code{upper}, "http-api-data-" version ".tar.gz")) (sha256 (base32 - "1cq6459b8wz6nvkvpi89dg189n5q2xdq4rdq435hf150555vmskf")))) + "1ps4bvln43gz72dr9mc3c9n1rn38c4rz6m49vxzz9nz6jz1978rv")))) (build-system haskell-build-system) - (arguments `(#:tests? #f)) ; FIXME: Tests require QuickCheck >= 2.9 (inputs `(("ghc-attoparsec" ,ghc-attoparsec) ("ghc-attoparsec-iso8601" ,ghc-attoparsec-iso8601) + ("ghc-cookie" ,ghc-cookie) ("ghc-hashable" ,ghc-hashable) ("ghc-http-types" ,ghc-http-types) - ("ghc-time-locale-compat" ,ghc-time-locale-compat) + ("ghc-time-compat" ,ghc-time-compat) ("ghc-unordered-containers" ,ghc-unordered-containers) - ("ghc-uri-bytestring" ,ghc-uri-bytestring) ("ghc-uuid-types" ,ghc-uuid-types))) + (native-inputs + `(("cabal-doctest" ,cabal-doctest) + ("ghc-nats" ,ghc-nats) + ("ghc-hunit" ,ghc-hunit) + ("ghc-hspec" ,ghc-hspec) + ("ghc-quickcheck" ,ghc-quickcheck) + ("ghc-quickcheck-instances" ,ghc-quickcheck-instances) + ("ghc-doctest" ,ghc-doctest) + ("hspec-discover" ,hspec-discover))) (home-page "https://github.com/fizruk/http-api-data") (synopsis "Convert to/from HTTP API data like URL pieces, headers and query parameters") @@ -5097,7 +5775,7 @@ monads with anaphoric variants on @code{if} and @code{when} and a C-like (define-public ghc-indents (package (name "ghc-indents") - (version "0.5.0.0") + (version "0.5.0.1") (source (origin (method url-fetch) (uri (string-append @@ -5105,7 +5783,7 @@ monads with anaphoric variants on @code{if} and @code{when} and a C-like version ".tar.gz")) (sha256 (base32 - "1ly3v41jacc6lrsvg4j3m5a6zs90gr8dyif5m6bf34hj1k5cgg0n")))) + "0dpcwiz0dwn5aqdsc50plfaawh86adhf7jx5dsmhn5q5nz32qn51")))) (build-system haskell-build-system) ;; This package needs an older version of tasty. (arguments '(#:tests? #f)) @@ -5122,10 +5800,34 @@ contexts. It parses blocks of lines all indented to the same level as well as lines continued at an indented level below.") (license license:bsd-3))) +(define-public ghc-infer-license + (package + (name "ghc-infer-license") + (version "0.2.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "infer-license/infer-license-" version ".tar.gz")) + (sha256 + (base32 + "0wlfm6bf55kfvm74xar9lmjg5v1103rs9m3grw1rq5bmcmhzxrhj")))) + (build-system haskell-build-system) + (inputs + `(("ghc-text-metrics" ,ghc-text-metrics))) + (native-inputs + `(("ghc-hspec" ,ghc-hspec) + ("hspec-discover" ,hspec-discover))) + (home-page "http://hackage.haskell.org/package/infer-license") + (synopsis "Infer software license from a given license file") + (description "This library provides tools to infer a software +license from a given license file.") + (license license:expat))) + (define-public ghc-inline-c (package (name "ghc-inline-c") - (version "0.6.1.0") + (version "0.7.0.1") (source (origin (method url-fetch) @@ -5133,7 +5835,7 @@ lines continued at an indented level below.") "inline-c-" version ".tar.gz")) (sha256 (base32 - "0vbfrsqsi7mdziqsnj68bsqlwbqxxhvrmy9rv6w8z18d1m8w3n6h")))) + "19scbviwiv1fbsdcjji3dscjg7w0xa8r97xwkqqrwm7zhvrg5wns")))) (build-system haskell-build-system) (inputs `(("ghc-ansi-wl-pprint" ,ghc-ansi-wl-pprint) @@ -5159,7 +5861,7 @@ minimal overhead. No FFI required.") (define-public ghc-inline-c-cpp (package (name "ghc-inline-c-cpp") - (version "0.2.2.1") + (version "0.3.0.3") (source (origin (method url-fetch) @@ -5167,7 +5869,7 @@ minimal overhead. No FFI required.") "inline-c-cpp-" version ".tar.gz")) (sha256 (base32 - "1rk7fmpkmxw9hhwr8df29kadnf0ybnwj64ggdbnsdrpfyhnkisci")))) + "1sxwx9dh60qfpa72dymj015zwd6prhb70x5mkabqzi7nhg3aakln")))) (build-system haskell-build-system) (inputs `(("ghc-inline-c" ,ghc-inline-c) @@ -5184,7 +5886,7 @@ minimal overhead. No FFI required.") (define-public ghc-integer-logarithms (package (name "ghc-integer-logarithms") - (version "1.0.2.1") + (version "1.0.3") (source (origin (method url-fetch) @@ -5193,7 +5895,7 @@ minimal overhead. No FFI required.") version ".tar.gz")) (sha256 (base32 - "1wj8kgjg5bn2yrs4zh9qfjv85cx6w998j9pi39yrbv305944mb9j")))) + "05pc5hws66csvcvfswlwcr2fplwn1lbssvwifjxkbbwqhq0n5qjs")))) (build-system haskell-build-system) (arguments `(#:phases @@ -5259,7 +5961,7 @@ Haskell.") (define-public ghc-intervalmap (package (name "ghc-intervalmap") - (version "0.6.0.0") + (version "0.6.1.1") (source (origin (method url-fetch) @@ -5267,7 +5969,7 @@ Haskell.") "IntervalMap-" version ".tar.gz")) (sha256 (base32 - "06hin9wf1by8aqa7820fsi2339bh82184frkwz3jsb9sqa0hszcg")))) + "0vdlvxvhf7vjyv0mfn6jaj2i2gclqv8419ck32s2jxfcmki5m5g8")))) (build-system haskell-build-system) (native-inputs `(("ghc-quickcheck" ,ghc-quickcheck))) @@ -5279,10 +5981,39 @@ search for all keys containing a point or overlapping an interval. See the example code on the home page for a quick introduction.") (license license:bsd-3))) +(define-public ghc-intervals + (package + (name "ghc-intervals") + (version "0.8.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "intervals/intervals-" version ".tar.gz")) + (sha256 + (base32 + "00vyxf3ba9d7aas3npfapr53w71fslgh69fczjb25axr66fvzqww")))) + (build-system haskell-build-system) + (inputs + `(("ghc-distributive" ,ghc-distributive))) + (native-inputs + `(("cabal-doctest" ,cabal-doctest) + ("ghc-doctest" ,ghc-doctest) + ("ghc-quickcheck" ,ghc-quickcheck))) + (arguments + `(#:cabal-revision + ("4" "1qx3q0v13l1zaln9zdk8chxpxhshbz5x0vqm0qda7d1kpv7h6a7r"))) + (home-page "https://github.com/ekmett/intervals") + (synopsis "Interval arithmetic") + (description "This library provides +@code{Numeric.Interval.Interval}, which represets a closed, convex set +of floating point values.") + (license license:bsd-3))) + (define-public ghc-invariant (package (name "ghc-invariant") - (version "0.5.1") + (version "0.5.3") (source (origin (method url-fetch) @@ -5291,7 +6022,7 @@ example code on the home page for a quick introduction.") version ".tar.gz")) (sha256 (base32 - "0aqj7z55632qdg45074kgn9qfdxzb0a2f8lgjzr0l0i4mm2rr37b")))) + "03245nhcqxx6b0yw81fzqaqd7cgllmx8awzhvs2xv7ys73pmsgnp")))) (build-system haskell-build-system) (inputs `(("ghc-bifunctors" ,ghc-bifunctors) @@ -5318,7 +6049,7 @@ functors). For more information, see Edward Kmett's article (define-public ghc-io-streams (package (name "ghc-io-streams") - (version "1.5.0.1") + (version "1.5.1.0") (source (origin (method url-fetch) @@ -5326,7 +6057,7 @@ functors). For more information, see Edward Kmett's article "io-streams/io-streams-" version ".tar.gz")) (sha256 (base32 - "12rcdg2d70644bvn838fxcjkssqj8pssnx5y657si5rijcbkgjsx")))) + "1c7byr943x41nxpc3bnz152fvfbmakafq2958wyf9qiyp2pz18la")))) (build-system haskell-build-system) (inputs `(("ghc-attoparsec" ,ghc-attoparsec) @@ -5342,9 +6073,6 @@ functors). For more information, see Edward Kmett's article ("ghc-test-framework-hunit" ,ghc-test-framework-hunit) ("ghc-test-framework-quickcheck2" ,ghc-test-framework-quickcheck2) ("ghc-zlib" ,ghc-zlib))) - (arguments - `(#:cabal-revision - ("2" "1mcab95d6hm098myh9gp7sh10srigjphgvm8s9pfs7jg5hzghy14"))) (home-page "http://hackage.haskell.org/package/io-streams") (synopsis "Simple and composable stream I/O") (description "This library contains simple and easy-to-use @@ -5354,7 +6082,7 @@ primitives for I/O using streams.") (define-public ghc-io-streams-haproxy (package (name "ghc-io-streams-haproxy") - (version "1.0.0.2") + (version "1.0.1.0") (source (origin (method url-fetch) @@ -5363,7 +6091,7 @@ primitives for I/O using streams.") version ".tar.gz")) (sha256 (base32 - "11nh9q158mgnvvb23s5ffg87lkhl5smk039yl43jghxmb214z0bp")))) + "1dcn5hd4fiwyq7m01r6fi93vfvygca5s6mz87c78m0zyj29clkmp")))) (build-system haskell-build-system) (inputs `(("ghc-attoparsec" ,ghc-attoparsec) @@ -5373,9 +6101,6 @@ primitives for I/O using streams.") `(("ghc-hunit" ,ghc-hunit) ("ghc-test-framework" ,ghc-test-framework) ("ghc-test-framework-hunit" ,ghc-test-framework-hunit))) - (arguments - `(#:cabal-revision - ("4" "06c51a057n5bc9xfbp2m4jz5ds4z1xvmsx5mppch6qfwbz7x5i9l"))) (home-page "http://snapframework.com/") (synopsis "HAProxy protocol 1.5 support for io-streams") (description "HAProxy protocol version 1.5 support @@ -5388,7 +6113,7 @@ through a forwarding proxy that is configured to speak this protocol.") (define-public ghc-iproute (package (name "ghc-iproute") - (version "1.7.5") + (version "1.7.7") (source (origin (method url-fetch) @@ -5398,7 +6123,7 @@ through a forwarding proxy that is configured to speak this protocol.") ".tar.gz")) (sha256 (base32 - "1vw1nm3s8vz1hqnjnqd3wh5rr4q3m2r4izn5ynhf93h9185qwqzd")))) + "0gab5930nvzrpvisx3x43ydnp2rd4fbmy9cq1zpgqy1adx5gx8z6")))) (build-system haskell-build-system) (arguments `(#:tests? #f)) ; FIXME: Tests cannot find System.ByteOrder, ; exported by ghc-byteorder. Doctest issue. @@ -5414,6 +6139,38 @@ them on the longest match base. It is a kind of TRIE with one way branching removed. Both IPv4 and IPv6 are supported.") (license license:bsd-3))) +(define-public ghc-ipynb + (package + (name "ghc-ipynb") + (version "0.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "ipynb/ipynb-" version ".tar.gz")) + (sha256 + (base32 + "0daadhzil4q573mqb0rpvjzm0vpkzgzqcimw480qpvlh6rhppwj5")))) + (build-system haskell-build-system) + (inputs + `(("ghc-unordered-containers" ,ghc-unordered-containers) + ("ghc-base64-bytestring" ,ghc-base64-bytestring) + ("ghc-aeson" ,ghc-aeson) + ("ghc-semigroups" ,ghc-semigroups))) + (native-inputs + `(("ghc-tasty" ,ghc-tasty) + ("ghc-tasty-hunit" ,ghc-tasty-hunit) + ("ghc-aeson-diff" ,ghc-aeson-diff) + ("ghc-microlens-aeson" ,ghc-microlens-aeson) + ("ghc-microlens" ,ghc-microlens) + ("ghc-vector" ,ghc-vector))) + (home-page "https://hackage.haskell.org/package/ipynb") + (synopsis "Data structure for working with Jupyter notebooks") + (description "This library defines a data structure for representing +Jupyter notebooks, along with @code{ToJSON} and @code{FromJSON} +instances for conversion to and from JSON .ipynb files.") + (license license:bsd-3))) + (define-public ghc-iwlib (package (name "ghc-iwlib") @@ -5439,7 +6196,7 @@ supported systems.") (define-public ghc-json (package (name "ghc-json") - (version "0.9.2") + (version "0.9.3") (source (origin (method url-fetch) @@ -5447,7 +6204,7 @@ supported systems.") "json-" version ".tar.gz")) (sha256 (base32 - "13kkfgx58z18jphbg56jn08jn72wi3kvfndlwwx87hqwg7x1dfz6")))) + "1z8s3mfg76p2flqqd2wqsi96l5bg8k8w8m58zlv81pw3k7h1vbwb")))) (build-system haskell-build-system) (inputs `(("ghc-syb" ,ghc-syb))) @@ -5461,7 +6218,7 @@ JSON (JavaScript Object Notation) is a lightweight data-interchange format.") (define-public ghc-juicypixels (package (name "ghc-juicypixels") - (version "3.2.9.5") + (version "3.3.4") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" @@ -5469,7 +6226,7 @@ JSON (JavaScript Object Notation) is a lightweight data-interchange format.") version ".tar.gz")) (sha256 (base32 - "0mf3ihr0xy2wc2wzb9a17g0n3p60x7pvm8akwpvhdy8klvs6r744")))) + "0qacrnz2qcykj3f6c4k2p8qd31pa2slpv3ykfblgizrfh3401q6x")))) (build-system haskell-build-system) (inputs `(("ghc-zlib" ,ghc-zlib) @@ -5517,7 +6274,7 @@ forms of the Yoneda lemma, and (co)density (co)monads for Haskell.") (define-public ghc-language-c (package (name "ghc-language-c") - (version "0.8.1") + (version "0.8.3") (source (origin (method url-fetch) @@ -5525,7 +6282,7 @@ forms of the Yoneda lemma, and (co)density (co)monads for Haskell.") "language-c/language-c-" version ".tar.gz")) (sha256 (base32 - "0sdkjj0hq8p69fcdm6ljbjkjvrsrb8a6rl5dq6dj6byj32ajrm3d")))) + "0bi02jdirkys8v7flf39vrpla2a74z1z0sdhy9lb9v7cmcc6rmpk")))) (build-system haskell-build-system) (inputs `(("ghc-syb" ,ghc-syb))) (native-inputs @@ -5594,7 +6351,7 @@ with @code{wc} (for a web service).") (define-public ghc-lens (package (name "ghc-lens") - (version "4.16.1") + (version "4.17.1") (source (origin (method url-fetch) @@ -5602,11 +6359,8 @@ with @code{wc} (for a web service).") version ".tar.gz")) (sha256 (base32 - "1im4drhbydbawd6i0jsrzpqihnmx4ywpkg7yg94ddwsw3mxwkgpm")))) + "1gpkc53l2cggnfrgg5k4ih82rycjbdvpj9pnbi5cq8ms0dbvs4a7")))) (build-system haskell-build-system) - (arguments - `(#:cabal-revision - ("2" "11h83lj5mba4grhz1qx3irz10ysm9c3k7k6i6xv2cr60q8xin3ri"))) (inputs `(("ghc-base-orphans" ,ghc-base-orphans) ("ghc-bifunctors" ,ghc-bifunctors) @@ -5674,7 +6428,7 @@ to be called from Haskell.") (define-public ghc-libmpd (package (name "ghc-libmpd") - (version "0.9.0.9") + (version "0.9.0.10") (source (origin (method url-fetch) @@ -5684,7 +6438,7 @@ to be called from Haskell.") ".tar.gz")) (sha256 (base32 - "1931m23iqb4wddpdidm4ph746zpaw41kkjzmb074j7yyfpk7x1jv")))) + "0vy287mn1vk8kvij5i3hc0p02l886cpsq5dds7kl6g520si3abkb")))) (build-system haskell-build-system) ;; Tests fail on i686. ;; See https://github.com/vimus/libmpd-haskell/issues/112 @@ -5694,6 +6448,7 @@ to be called from Haskell.") ("ghc-old-locale" ,ghc-old-locale) ("ghc-data-default-class" ,ghc-data-default-class) ("ghc-network" ,ghc-network) + ("ghc-safe-exceptions" ,ghc-safe-exceptions) ("ghc-utf8-string" ,ghc-utf8-string))) (native-inputs `(("ghc-quickcheck" ,ghc-quickcheck) @@ -5705,6 +6460,29 @@ to be called from Haskell.") Music Player Daemon.") (license license:expat))) +(define-public ghc-lib-parser + (package + (name "ghc-lib-parser") + (version "8.8.0.20190424") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "ghc-lib-parser/ghc-lib-parser-" version ".tar.gz")) + (sha256 + (base32 + "12gsh994pr13bsybwlravmi21la66dyw74pk74yfw2pnz682wv10")))) + (build-system haskell-build-system) + (native-inputs + `(("ghc-alex" ,ghc-alex) + ("ghc-happy" ,ghc-happy))) + (home-page "https://github.com/digital-asset/ghc-lib") + (synopsis "The GHC API, decoupled from GHC versions") + (description "This library implements the GHC API. It is like the +compiler-provided @code{ghc} package, but it can be loaded on many +compiler versions.") + (license license:bsd-3))) + (define-public ghc-libxml (package (name "ghc-libxml") @@ -5731,10 +6509,41 @@ Music Player Daemon.") "This library provides minimal Haskell binding to libxml2.") (license license:bsd-3))) +(define-public ghc-libyaml + (package + (name "ghc-libyaml") + (version "0.1.1.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "libyaml/libyaml-" version ".tar.gz")) + (sha256 + (base32 + "0psznm9c3yjsyj9aj8m2svvv9m2v0x90hnwarcx5sbswyi3l00va")) + (modules '((guix build utils))) + (snippet + ;; Delete bundled LibYAML. + '(begin + (delete-file-recursively "libyaml_src") + #t)))) + (build-system haskell-build-system) + (arguments + `(#:configure-flags `("--flags=system-libyaml"))) + (inputs + `(("ghc-conduit" ,ghc-conduit) + ("ghc-resourcet" ,ghc-resourcet) + ("libyaml" ,libyaml-2.1))) + (home-page "https://github.com/snoyberg/yaml#readme") + (synopsis "Low-level, streaming YAML interface.") + (description "This package provides a Haskell wrapper over the +LibYAML C library.") + (license license:bsd-3))) + (define-public ghc-lifted-async (package (name "ghc-lifted-async") - (version "0.10.0.2") + (version "0.10.0.4") (source (origin (method url-fetch) @@ -5743,7 +6552,7 @@ Music Player Daemon.") version ".tar.gz")) (sha256 (base32 - "1073r512c1x2m1v0jar9bwqg656slg7jd1jhsyj6m8awgx1l1mwf")))) + "0cwl1d0wjpdk0v1l1qxiqiksmak950c8gx169c1q77cg0z18ijf9")))) (build-system haskell-build-system) (inputs `(("ghc-async" ,ghc-async) @@ -5796,7 +6605,7 @@ Kaseorg.") (define-public ghc-linear (package (name "ghc-linear") - (version "1.20.8") + (version "1.20.9") (source (origin (method url-fetch) @@ -5804,7 +6613,7 @@ Kaseorg.") "linear-" version ".tar.gz")) (sha256 (base32 - "046vkvxlb0s286qr55s0c6db0rlwbm1cmlmwhrrkqbkzhfcipgay")))) + "0h7yqigq593n7wsl7nz6a5f137wznm7y679wsii0ph0zsc4v5af5")))) (build-system haskell-build-system) (inputs `(("ghc-adjunctions" ,ghc-adjunctions) @@ -5897,7 +6706,7 @@ back-ends.") (define-public ghc-logict (package (name "ghc-logict") - (version "0.6.0.2") + (version "0.7.0.2") (source (origin (method url-fetch) @@ -5907,8 +6716,11 @@ back-ends.") ".tar.gz")) (sha256 (base32 - "07hnirv6snnym2r7iijlfz00b60jpy2856zvqxh989q0in7bd0hi")))) + "1xfgdsxg0lp8m0a2cb83rcxrnnc37asfikay2kydi933anh9ihfc")))) (build-system haskell-build-system) + (native-inputs + `(("ghc-tasty" ,ghc-tasty) + ("ghc-tasty-hunit" ,ghc-tasty-hunit))) (home-page "http://code.haskell.org/~dolio/") (synopsis "Backtracking logic-programming monad") (description "This library provides a continuation-based, backtracking, @@ -6032,7 +6844,7 @@ same time is a literate Haskell program.") (define-public ghc-math-functions (package (name "ghc-math-functions") - (version "0.2.1.0") + (version "0.3.3.0") (source (origin (method url-fetch) @@ -6041,11 +6853,12 @@ same time is a literate Haskell program.") "math-functions-" version ".tar.gz")) (sha256 (base32 - "1sv5vabsx332v1lpb6v3jv4zrzvpx1n7yprzd8wlcda5vsc5a6zp")))) + "1s5nbs40sc3r4z08n0j8bw40cy0zkp03fjjn3p27zkd4fvm9kib3")))) (build-system haskell-build-system) (arguments `(#:tests? #f)) ; FIXME: 1 test fails. (inputs - `(("ghc-vector" ,ghc-vector) + `(("ghc-data-default-class" ,ghc-data-default-class) + ("ghc-vector" ,ghc-vector) ("ghc-vector-th-unbox" ,ghc-vector-th-unbox))) (native-inputs `(("ghc-hunit" ,ghc-hunit) @@ -6064,7 +6877,7 @@ functions are often useful in statistical and numerical computing.") (define-public ghc-megaparsec (package (name "ghc-megaparsec") - (version "6.5.0") + (version "7.0.5") (source (origin (method url-fetch) @@ -6073,11 +6886,8 @@ functions are often useful in statistical and numerical computing.") version ".tar.gz")) (sha256 (base32 - "12iggy7qpf8x93jm64zf0g215xwy779bqyfyjk2bhmxqqr1yzgdy")))) + "0bqx1icbmk8s7wmbcdzsgnlh607c7kzg8l80cp02dxr5valjxp7j")))) (build-system haskell-build-system) - (arguments - `(#:cabal-revision - ("4" "0ij3asi5vwlhbgwsy6nhli9a0qb7926mg809fsgyl1rnhs9fvpx1"))) (inputs `(("ghc-case-insensitive" ,ghc-case-insensitive) ("ghc-parser-combinators" ,ghc-parser-combinators) @@ -6095,35 +6905,17 @@ Megaparsec is a feature-rich package that strikes a nice balance between speed, flexibility, and quality of parse errors.") (license license:bsd-2))) -;;; Idris 1.3.2 requires 'megaparse>=7.0.4' but we'd like to keep the public -;;; package at the current Stackage LTS version: -(define-public ghc-megaparsec-7 - (hidden-package - (package - (inherit ghc-megaparsec) - (version "7.0.5") - (source - (origin - (method url-fetch) - (uri (string-append "https://hackage.haskell.org/package/megaparsec/" - "megaparsec-" version ".tar.gz")) - (sha256 - (base32 - "0bqx1icbmk8s7wmbcdzsgnlh607c7kzg8l80cp02dxr5valjxp7j")))) - (arguments (strip-keyword-arguments (list #:cabal-revision) - (package-arguments ghc-megaparsec)))))) - (define-public ghc-memory (package (name "ghc-memory") - (version "0.14.16") + (version "0.14.18") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" "memory/memory-" version ".tar.gz")) (sha256 (base32 - "03rbszi5d4z9rlbfv8ydrl1xf84xsh8z57g07f7j9qccn9587c3v")))) + "01rmq3vagxzjmm96qnfxk4f0516cn12bp5m8inn8h5r918bqsigm")))) (build-system haskell-build-system) (inputs `(("ghc-basement" ,ghc-basement) @@ -6168,7 +6960,7 @@ efficient memo functions using tries.") (define-public ghc-microlens (package (name "ghc-microlens") - (version "0.4.9.1") + (version "0.4.10") (source (origin (method url-fetch) @@ -6177,7 +6969,7 @@ efficient memo functions using tries.") "microlens-" version ".tar.gz")) (sha256 (base32 - "0j2nzf0vpx2anvsrg2w0vy2z4jn3kkcs2n6glkzblhn1j9piqh51")))) + "1v277yyy4p9q57xr2lfp6qs24agglfczmcabrapxrzci3jfshmcw")))) (build-system haskell-build-system) (home-page "https://github.com/aelve/microlens") @@ -6190,10 +6982,42 @@ combinators (like @code{failing} and @code{singular}), but everything else is stripped. As the result, this package has no dependencies.") (license license:bsd-3))) +(define-public ghc-microlens-aeson + (package + (name "ghc-microlens-aeson") + (version "2.3.0.4") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "microlens-aeson/microlens-aeson-" + version ".tar.gz")) + (patches (search-patches "ghc-microlens-aeson-fix-tests.patch")) + (sha256 + (base32 + "0w630kk5bnily1qh41081gqgbwmslrh5ad21899gwnb2r3jripyw")))) + (build-system haskell-build-system) + (inputs + `(("ghc-aeson" ,ghc-aeson) + ("ghc-attoparsec" ,ghc-attoparsec) + ("ghc-hashable" ,ghc-hashable) + ("ghc-microlens" ,ghc-microlens) + ("ghc-scientific" ,ghc-scientific) + ("ghc-unordered-containers" ,ghc-unordered-containers) + ("ghc-vector" ,ghc-vector))) + (native-inputs + `(("ghc-tasty" ,ghc-tasty) + ("ghc-tasty-hunit" ,ghc-tasty-hunit))) + (home-page "https://github.com/fosskers/microlens-aeson") + (synopsis "Law-abiding lenses for Aeson, using microlens") + (description "This library provides law-abiding lenses for Aeson, using +microlens.") + (license license:expat))) + (define-public ghc-microlens-ghc (package (name "ghc-microlens-ghc") - (version "0.4.9.1") + (version "0.4.10") (source (origin (method url-fetch) @@ -6203,7 +7027,7 @@ stripped. As the result, this package has no dependencies.") ".tar.gz")) (sha256 (base32 - "03iwgg8zww9irv59l70c8yy7vzxir1zf66y12210xk91k5hq6jrj")))) + "102dbrdsdadxbbhvx8avv1wbk84767a7lkb8ckp3zxk9g7qlly33")))) (build-system haskell-build-system) (inputs `(("ghc-microlens" ,ghc-microlens))) (home-page "https://github.com/monadfix/microlens") @@ -6248,7 +7072,7 @@ readme @uref{https://github.com/aelve/microlens#readme, on Github}.") (define-public ghc-microlens-platform (package (name "ghc-microlens-platform") - (version "0.3.10") + (version "0.3.11") (source (origin (method url-fetch) @@ -6257,7 +7081,7 @@ readme @uref{https://github.com/aelve/microlens#readme, on Github}.") "microlens-platform/microlens-platform-" version ".tar.gz")) (sha256 (base32 - "1d4nhmgf9jq0ixc7qhwm7aaw3xdr0nalw58d0ydsydgf02cyazwv")))) + "18950lxgmsg5ksvyyi3zs1smjmb1qf1q73a3p3g44bh21miz0xwb")))) (build-system haskell-build-system) (inputs `(("ghc-hashable" ,ghc-hashable) @@ -6291,7 +7115,7 @@ readme @uref{https://github.com/aelve/microlens#readme, on Github}.") (define-public ghc-microlens-th (package (name "ghc-microlens-th") - (version "0.4.2.2") + (version "0.4.2.3") (source (origin (method url-fetch) @@ -6300,8 +7124,11 @@ readme @uref{https://github.com/aelve/microlens#readme, on Github}.") "microlens-th-" version ".tar.gz")) (sha256 (base32 - "02nj7lnl61yffi3c6wn341arxhld5r0vj6nzcb5zmqjhnqsv8c05")))) + "13qw0pwcgd6f6i39rwgqwcwk1d4da5x7wv3gna7gdlxaq331h41j")))) (build-system haskell-build-system) + (arguments + `(#:cabal-revision + ("1" "167in7b1qhgrspx81bdm2jyg9qji66sk7id282c0s99kmp0d01n6"))) (inputs `(("ghc-microlens" ,ghc-microlens) ("ghc-th-abstraction" ,ghc-th-abstraction))) (home-page @@ -6317,7 +7144,7 @@ used both from lens and microlens).") (define-public ghc-missingh (package (name "ghc-missingh") - (version "1.4.0.1") + (version "1.4.1.0") (source (origin (method url-fetch) @@ -6325,7 +7152,7 @@ used both from lens and microlens).") "MissingH-" version ".tar.gz")) (sha256 (base32 - "0wcvgrmav480w7nf4bl14yi0jq2yzanysxwzwas9hpb28vyjlgr8")))) + "1jp0vk6w9a7fzrbxfhx773105jp2s1n50klq9ak6spfl7bgx5v29")))) (build-system haskell-build-system) ;; Tests require the unmaintained testpack package, which depends on the ;; outdated QuickCheck version 2.7, which can no longer be built with @@ -6375,7 +7202,7 @@ do on-demand loading.") (define-public ghc-mmorph (package (name "ghc-mmorph") - (version "1.1.2") + (version "1.1.3") (source (origin (method url-fetch) @@ -6385,7 +7212,7 @@ do on-demand loading.") ".tar.gz")) (sha256 (base32 - "1gjz1ib968lqybma7my1n19qq6cdj6a7nskrlnwy4jy9jrwzs2n9")))) + "0rfsy9n9mlinpmqi2s17fhc67fzma2ig5fbmh6m5m830canzf8vr")))) (build-system haskell-build-system) (inputs `(("ghc-transformers-compat" ,ghc-transformers-compat))) @@ -6449,7 +7276,7 @@ a subset of @code{MonadBase} into which generic control operations such as (define-public ghc-monad-logger (package (name "ghc-monad-logger") - (version "0.3.29") + (version "0.3.30") (source (origin (method url-fetch) @@ -6458,7 +7285,7 @@ a subset of @code{MonadBase} into which generic control operations such as "monad-logger-" version ".tar.gz")) (sha256 (base32 - "1z516s4pa9n94zf0l45mylssg07xr1d1m6zrz900p0iv3vfd07mv")))) + "102l0v75hbvkmrypiyg4ybb6rbc7nij5nxs1aihmqfdpg04rkkp7")))) (build-system haskell-build-system) (inputs `(("ghc-transformers-compat" ,ghc-transformers-compat) ("ghc-stm-chans" ,ghc-stm-chans) @@ -6513,6 +7340,7 @@ operators for looping.") (uri (string-append "https://hackage.haskell.org/package/" "monad-par-" version "/" "monad-par-" version ".tar.gz")) + (patches (search-patches "ghc-monad-par-fix-tests.patch")) (sha256 (base32 "0ldrzqy24fsszvn2a2nr77m2ih7xm0h9bgkjyv1l274aj18xyk7q")))) @@ -6561,26 +7389,6 @@ that are much lighter weight than IO-threads.") and other added capabilities layered on top of the @code{Par} monad.") (license license:bsd-3))) -(define-public ghc-monadplus - (package - (name "ghc-monadplus") - (version "1.4.2") - (source - (origin - (method url-fetch) - (uri (string-append "https://hackage.haskell.org/package/monadplus" - "/monadplus-" version ".tar.gz")) - (sha256 - (base32 "15b5320wdpmdp5slpphnc1x4rhjch3igw245dp2jxbqyvchdavin")))) - (build-system haskell-build-system) - (home-page "https://hackage.haskell.org/package/monadplus") - (synopsis "Filtering and folding over arbitrary MonadPlus instances") - (description - "This package generalizes many common stream operations such as -@code{filter}, @code{catMaybes} etc, enabling filtering and folding over -arbitrary @code{MonadPlus} instances.") - (license license:bsd-3))) - (define-public ghc-monadrandom (package (name "ghc-monadrandom") @@ -6631,7 +7439,7 @@ the @code{mtl-tf} package.") (define-public ghc-mono-traversable (package (name "ghc-mono-traversable") - (version "1.0.9.0") + (version "1.0.13.0") (source (origin (method url-fetch) @@ -6640,7 +7448,7 @@ the @code{mtl-tf} package.") "mono-traversable-" version ".tar.gz")) (sha256 (base32 - "0180ks0dyvpk1r20w5jw2w2n79mjnk69n9vhspaxzlyxqgim5psa")))) + "1bqy982lpdb83lacfy76n8kqw5bvd31avxj25kg8gkgycdh0g0ma")))) (build-system haskell-build-system) (inputs `(("ghc-unordered-containers" ,ghc-unordered-containers) ("ghc-hashable" ,ghc-hashable) @@ -6662,6 +7470,34 @@ you are used to, it adds on an IsSequence typeclass and has code for marking data structures as non-empty.") (license license:expat))) +(define-public ghc-monoid-extras + (package + (name "ghc-monoid-extras") + (version "0.5.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "monoid-extras/monoid-extras-" version ".tar.gz")) + (sha256 + (base32 + "0xfrkgqn9d31z54l617m3w3kkd5m9vjb4yl247r3zzql3mpb1f37")))) + (build-system haskell-build-system) + (inputs + `(("ghc-groups" ,ghc-groups) + ("ghc-semigroups" ,ghc-semigroups) + ("ghc-semigroupoids" ,ghc-semigroupoids))) + (arguments + `(#:cabal-revision + ("1" "0b8x5d6vh7mpigvjvcd8f38a1nyzn1vfdqypslw7z9fgsr742913"))) + (home-page "https://hackage.haskell.org/package/monoid-extras") + (synopsis "Various extra monoid-related definitions and utilities") + (description "This package provides various extra monoid-related +definitions and utilities, such as monoid actions, monoid coproducts, +semi-direct products, \"deletable\" monoids, \"split\" monoids, and +\"cut\" monoids.") + (license license:bsd-3))) + (define-public ghc-murmur-hash (package (name "ghc-murmur-hash") @@ -6687,7 +7523,7 @@ binding.") (define-public ghc-mwc-random (package (name "ghc-mwc-random") - (version "0.13.6.0") + (version "0.14.0.0") (source (origin (method url-fetch) @@ -6696,7 +7532,7 @@ binding.") "mwc-random-" version ".tar.gz")) (sha256 (base32 - "05j7yh0hh9nxic3dijmzv44kc6gzclvamdph7sq7w19wq57k6pq6")))) + "18pg24sw3b79b32cwx8q01q4k0lm34mwr3l6cdkchl8alvd0wdq0")))) (build-system haskell-build-system) (inputs `(("ghc-primitive" ,ghc-primitive) @@ -6794,7 +7630,7 @@ ncurses.") (define-public ghc-network (package (name "ghc-network") - (version "2.6.3.6") + (version "2.8.0.1") (outputs '("out" "doc")) (source (origin @@ -6805,7 +7641,7 @@ ncurses.") ".tar.gz")) (sha256 (base32 - "198mam7ahny48p9fajznbqq16a8ya2gw0xm3gnm1si1rmc4hdplv")))) + "0im8k51rw3ahmr23ny10pshwbz09jfg0fdpam0hzf2hgxnzmvxb1")))) (build-system haskell-build-system) ;; The regression tests depend on an unpublished module. (arguments `(#:tests? #f)) @@ -6820,23 +7656,48 @@ ncurses.") "This package provides a low-level networking interface.") (license license:bsd-3))) -;;; Until we update our default GHC to >=8.6 we cannot update our ghc-network -;;; package, since the 'cabal-install' package that supports the current -;;; 'Cabal' module requires 'network==2.6.*'. Here we provide an updated -;;; version to be used for our idris package. -(define-public ghc-network-2.8 - (hidden-package - (package - (inherit ghc-network) - (version "2.8.0.1") - (source - (origin - (method url-fetch) - (uri (string-append "https://hackage.haskell.org/package/network/" - "network-" version ".tar.gz")) - (sha256 - (base32 - "0im8k51rw3ahmr23ny10pshwbz09jfg0fdpam0hzf2hgxnzmvxb1"))))))) +(define-public ghc-network-bsd + (package + (name "ghc-network-bsd") + (version "2.8.0.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "network-bsd/network-bsd-" version ".tar.gz")) + (sha256 + (base32 + "0dfbwgrr28y6ypw7p1ppqg7v746qf14569q4xazj4ahdjw2xkpi5")))) + (build-system haskell-build-system) + (inputs + `(("ghc-network" ,ghc-network))) + (home-page "https://github.com/haskell/network-bsd") + (synopsis "POSIX network database (<netdb.h>) API") + (description "This package provides Haskell bindings to the the POSIX +network database (<netdb.h>) API.") + (license license:bsd-3))) + +(define-public ghc-network-byte-order + (package + (name "ghc-network-byte-order") + (version "0.1.1.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "network-byte-order/network-byte-order-" + version ".tar.gz")) + (sha256 + (base32 + "19cs6157amcc925vwr92q1azwwzkbam5g0k70i6qi80fhpikh37c")))) + (build-system haskell-build-system) + (native-inputs + `(("ghc-doctest" ,ghc-doctest))) + (home-page "http://hackage.haskell.org/package/network-byte-order") + (synopsis "Network byte order utilities") + (description "This library provides peek and poke functions for network +byte order.") + (license license:bsd-3))) (define-public ghc-network-info (package @@ -6893,7 +7754,7 @@ IPv4, IPv6 and MAC addresses.") (define-public ghc-newtype-generics (package (name "ghc-newtype-generics") - (version "0.5.3") + (version "0.5.4") (source (origin (method url-fetch) @@ -6902,7 +7763,7 @@ IPv4, IPv6 and MAC addresses.") version ".tar.gz")) (sha256 (base32 - "0igyisw2djg19v9vkna1rwf47k97mvkvk4bbkmswznvbm00z15gj")))) + "0cprfg4n0z62cnix1qrbc79bfdd4s50b05fj9m9hk6vm1pc3szq0")))) (build-system haskell-build-system) (native-inputs `(("ghc-hspec" ,ghc-hspec) @@ -6943,6 +7804,26 @@ class, and a lazy number type for non-negative numbers (a generalization of Peano numbers).") (license license:gpl3+))) +(define-public ghc-numeric-extras + (package + (name "ghc-numeric-extras") + (version "0.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "numeric-extras/numeric-extras-" + version ".tar.gz")) + (sha256 + (base32 + "1mk11c0gz1yjy5b8dvq6czfny57pln0bs7x28fz38qyr44872067")))) + (build-system haskell-build-system) + (home-page "https://github.com/ekmett/numeric-extras") + (synopsis "Useful tools from the C standard library") + (description "This library provides some useful tools from the C +standard library.") + (license license:bsd-3))) + (define-public ghc-objectname (package (name "ghc-objectname") @@ -7020,7 +7901,7 @@ old @code{time} library. For new projects, the newer (define-public ghc-opengl (package (name "ghc-opengl") - (version "3.0.2.2") + (version "3.0.3.0") (source (origin (method url-fetch) @@ -7030,8 +7911,11 @@ old @code{time} library. For new projects, the newer ".tar.gz")) (sha256 (base32 - "19vxwvx2n8zq2klj176l25n2b64ybp0b8mhm4p46gvpcivz41fjc")))) + "069fg8jcxqq2z9iikynd8vi3jxm2b5y3qywdh4bdviyzab3zy1as")))) (build-system haskell-build-system) + (arguments + `(#:cabal-revision + ("1" "1748mrb6r9mpf5jbrx436lwbg8w6dadyy8dhxw2dwnrj5z7zf741"))) (inputs `(("ghc-objectname" ,ghc-objectname) ("ghc-gluraw" ,ghc-gluraw) @@ -7047,7 +7931,7 @@ version 1.3).") (define-public ghc-openglraw (package (name "ghc-openglraw") - (version "3.3.1.0") + (version "3.3.3.0") (source (origin (method url-fetch) @@ -7057,7 +7941,7 @@ version 1.3).") ".tar.gz")) (sha256 (base32 - "1x8w3x308jldj2c1xqcq3a3sc2jc06pdpgqkgjsmixi1skv4a1vb")))) + "0zgllb4bcash2i2cispa3j565aw3dpxs41ghmhpvyvi4a6xmyldx")))) (build-system haskell-build-system) (inputs `(("ghc-half" ,ghc-half) @@ -7115,6 +7999,14 @@ DSLs, etc.") (base32 "0qjs0v1ny52w51n5582d4z8wy9h6n0zw1xb5dh686ff5wadflgi8")))) (build-system haskell-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'configure 'update-constraints + (lambda _ + (substitute* "options.cabal" + (("chell >= 0\\.4 && < 0\\.5") "chell >= 0.4 && < 0.6")) + #t))))) (inputs `(("ghc-monads-tf" ,ghc-monads-tf) ("ghc-chell" ,ghc-chell) @@ -7156,7 +8048,7 @@ easily work with command-line options.") (define-public ghc-optparse-applicative (package (name "ghc-optparse-applicative") - (version "0.14.2.0") + (version "0.14.3.0") (source (origin (method url-fetch) @@ -7165,8 +8057,11 @@ easily work with command-line options.") "/optparse-applicative-" version ".tar.gz")) (sha256 (base32 - "0c3z1mvynlyv1garjbdmdd3npm40dabgm75js4r07cf766c1wd71")))) + "0qvn1s7jwrabbpmqmh6d6iafln3v3h9ddmxj2y4m0njmzq166ivj")))) (build-system haskell-build-system) + (arguments + `(#:cabal-revision + ("2" "1a08dqjly1xy730f6jf45frr8g8gap0n1vg9b0mpzpydv0kgzmrp"))) (inputs `(("ghc-transformers-compat" ,ghc-transformers-compat) ("ghc-ansi-wl-pprint" ,ghc-ansi-wl-pprint))) @@ -7181,30 +8076,18 @@ command line options in Haskell.") (define-public ghc-pandoc (package (name "ghc-pandoc") - (version "2.2.1") + (version "2.7.3") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/pandoc/pandoc-" version ".tar.gz")) + (patches (search-patches "ghc-pandoc-fix-html-tests.patch" + "ghc-pandoc-fix-latex-test.patch")) (sha256 (base32 - "1dqin92w513l7whg5wdgrngnxsj5mb8gppfvn7kjgyv2pdgpy0zy")))) + "0dpjrr40h54cljzhvixyym07z792a9izg6b9dmqpjlgcg4rj0xx8")))) (build-system haskell-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'configure 'update-constraints - (lambda _ - (substitute* "pandoc.cabal" - (("tasty >= 0\\.11 && < 1\\.1") - "tasty >= 0.11 && < 1.1.1")))) - (add-before 'configure 'patch-tests - (lambda _ - ;; These tests fail benignly and have been adjusted upstream: - ;; <https://github.com/commercialhaskell/stackage/issues/3719>. - (substitute* "test/Tests/Old.hs" - (("lhsWriterTests \"html\"") "[]"))))))) (inputs `(("ghc-aeson" ,ghc-aeson) ("ghc-aeson-pretty" ,ghc-aeson-pretty) @@ -7213,22 +8096,23 @@ command line options in Haskell.") ("ghc-blaze-markup" ,ghc-blaze-markup) ("ghc-cmark-gfm" ,ghc-cmark-gfm) ("ghc-data-default" ,ghc-data-default) - ("ghc-deepseq-generics" ,ghc-deepseq-generics) ("ghc-diff" ,ghc-diff) ("ghc-doctemplates" ,ghc-doctemplates) ("ghc-executable-path" ,ghc-executable-path) ("ghc-glob" ,ghc-glob) ("ghc-haddock-library" ,ghc-haddock-library) ("ghc-hslua" ,ghc-hslua) + ("ghc-hslua-module-system" ,ghc-hslua-module-system) ("ghc-hslua-module-text" ,ghc-hslua-module-text) + ("ghc-hsyaml" ,ghc-hsyaml) ("ghc-http" ,ghc-http) ("ghc-http-client" ,ghc-http-client) ("ghc-http-client-tls" ,ghc-http-client-tls) ("ghc-http-types" ,ghc-http-types) + ("ghc-ipynb" ,ghc-ipynb) ("ghc-juicypixels" ,ghc-juicypixels) ("ghc-network" ,ghc-network) ("ghc-network-uri" ,ghc-network-uri) - ("ghc-old-locale" ,ghc-old-locale) ("ghc-pandoc-types" ,ghc-pandoc-types) ("ghc-random" ,ghc-random) ("ghc-scientific" ,ghc-scientific) @@ -7239,16 +8123,17 @@ command line options in Haskell.") ("ghc-tagsoup" ,ghc-tagsoup) ("ghc-temporary" ,ghc-temporary) ("ghc-texmath" ,ghc-texmath) + ("ghc-unicode-transforms" ,ghc-unicode-transforms) ("ghc-unordered-containers" ,ghc-unordered-containers) ("ghc-vector" ,ghc-vector) ("ghc-xml" ,ghc-xml) - ("ghc-yaml" ,ghc-yaml) ("ghc-zip-archive" ,ghc-zip-archive) ("ghc-zlib" ,ghc-zlib))) (native-inputs `(("ghc-tasty" ,ghc-tasty) ("ghc-tasty-golden" ,ghc-tasty-golden) ("ghc-tasty-hunit" ,ghc-tasty-hunit) + ("ghc-tasty-lua" ,ghc-tasty-lua) ("ghc-tasty-quickcheck" ,ghc-tasty-quickcheck) ("ghc-quickcheck" ,ghc-quickcheck) ("ghc-hunit" ,ghc-hunit))) @@ -7268,7 +8153,7 @@ provided for those who need a drop-in replacement for Markdown.pl.") (define-public ghc-pandoc-citeproc (package (name "ghc-pandoc-citeproc") - (version "0.14.3.1") + (version "0.16.2") (source (origin (method url-fetch) @@ -7277,7 +8162,7 @@ provided for those who need a drop-in replacement for Markdown.pl.") version ".tar.gz")) (sha256 (base32 - "0yj6rckwsc9vig40cm15ry0j3d01xpk04qma9n4byhal6v4b5h22")))) + "15mm17awgi1b5yazwhr5nh8b59qml1qk6pz6gpyijks70fq2arsv")))) (build-system haskell-build-system) (arguments `(#:phases @@ -7327,7 +8212,7 @@ suitable for inclusion in pandoc YAML metadata.") (define-public ghc-pandoc-types (package (name "ghc-pandoc-types") - (version "1.17.5.1") + (version "1.17.6.1") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" @@ -7335,7 +8220,7 @@ suitable for inclusion in pandoc YAML metadata.") version ".tar.gz")) (sha256 (base32 - "1q6v2bynij724fv347mhqxdscwifzrx5jb9mq80608qf638fn717")))) + "1d6ygq991ddria71l7hg9yd7lq94sjy4m71rdws1v8hq943c4d0q")))) (build-system haskell-build-system) (inputs `(("ghc-syb" ,ghc-syb) @@ -7399,7 +8284,7 @@ building up, manipulating and serialising @code{Pandoc} structures.") (define-public ghc-parser-combinators (package (name "ghc-parser-combinators") - (version "1.0.0") + (version "1.1.0") (source (origin (method url-fetch) @@ -7408,7 +8293,7 @@ building up, manipulating and serialising @code{Pandoc} structures.") version ".tar.gz")) (sha256 (base32 - "1pwfdsklqwvaynwpdzmx1bs35mp6dpsyaqdnzxnqcrxwf5h8sk75")))) + "149yhbnrrl108h1jinrsxni3rwrldhphpk9bbmbpr90q5fbl4xmc")))) (build-system haskell-build-system) (home-page "https://github.com/mrkkrp/parser-combinators") (synopsis "Commonly useful parser combinators") @@ -7420,7 +8305,7 @@ combinators.") (define-public ghc-parsers (package (name "ghc-parsers") - (version "0.12.9") + (version "0.12.10") (source (origin (method url-fetch) @@ -7430,7 +8315,7 @@ combinators.") ".tar.gz")) (sha256 (base32 - "1r05sc1mcglk8w596kq9a1brfn9c2vll8lq16j07ln0vsz4jzrc1")))) + "0v0smxbzk1qpdfkfqqmrzd2dngv3vxba10mkjn9nfm6a309izf8p")))) (build-system haskell-build-system) (arguments `(#:tests? #f)) ; FIXME: Test fails with "cannot satisfy ; -package attoparsec-0.13.0.1" @@ -7491,7 +8376,7 @@ invariants.") (define-public ghc-path-io (package (name "ghc-path-io") - (version "1.3.3") + (version "1.4.2") (source (origin (method url-fetch) @@ -7501,7 +8386,7 @@ invariants.") ".tar.gz")) (sha256 (base32 - "1g9m3qliqjk1img894wsb89diym5zrq51qkkrwhz4sbm9a8hbv1a")))) + "0jqx3mi4an4kb3kg78n1p3xrz832yrfrnvj795b0xhkv6h1z5ir3")))) (build-system haskell-build-system) (inputs `(("ghc-dlist" ,ghc-dlist) @@ -7512,9 +8397,6 @@ invariants.") ("ghc-temporary" ,ghc-temporary))) (native-inputs `(("ghc-hspec" ,ghc-hspec))) - (arguments - `(#:cabal-revision - ("3" "1h9hsibbflkxpjl2fqamqiv3x3gasf51apnmklrs9l9x8r32hzcc"))) (home-page "https://github.com/mrkkrp/path-io") (synopsis "Functions for manipulating well-typed paths") @@ -7527,7 +8409,7 @@ files/directories, and more.") (define-public ghc-paths (package (name "ghc-paths") - (version "0.1.0.9") + (version "0.1.0.12") (outputs '("out" "doc")) (source (origin @@ -7538,7 +8420,7 @@ files/directories, and more.") ".tar.gz")) (sha256 (base32 - "0ibrr1dxa35xx20cpp8jzgfak1rdmy344dfwq4vlq013c6w8z9mg")))) + "1164w9pqnf7rjm05mmfjznz7rrn415blrkk1kjc0gjvks1vfdjvf")))) (build-system haskell-build-system) (home-page "https://github.com/simonmar/ghc-paths") (synopsis @@ -7550,7 +8432,7 @@ files/directories, and more.") (define-public ghc-patience (package (name "ghc-patience") - (version "0.1.1") + (version "0.3") (source (origin (method url-fetch) @@ -7559,7 +8441,7 @@ files/directories, and more.") version ".tar.gz")) (sha256 (base32 - "0qyv20gqy9pb1acy700ahv70lc6vprcwb26cc7fcpcs4scsc7irm")))) + "1i1b37lgi31c17yrjyf8pdm4nf5lq8vw90z3rri78hf0k66d0p3i")))) (build-system haskell-build-system) (home-page "https://hackage.haskell.org/package/patience") (synopsis "Patience diff and longest increasing subsequence") @@ -7601,7 +8483,7 @@ syntax and semantics as Perl 5.") (define-public ghc-persistent (package (name "ghc-persistent") - (version "2.8.2") + (version "2.9.2") (source (origin (method url-fetch) @@ -7610,7 +8492,7 @@ syntax and semantics as Perl 5.") "persistent-" version ".tar.gz")) (sha256 (base32 - "1h0yijbf1yiwl50klyafy4ln99j8bib4kgbzviw7fc4y4mwv4sv9")))) + "1wsa3kn427v88a6r0vwr6mz23snik2krbsgc8zqp18xajqn5szj9")))) (build-system haskell-build-system) (inputs `(("ghc-old-locale" ,ghc-old-locale) ("ghc-conduit" ,ghc-conduit) @@ -7647,7 +8529,7 @@ way.") (define-public ghc-persistent-sqlite (package (name "ghc-persistent-sqlite") - (version "2.8.2") + (version "2.9.3") (source (origin (method url-fetch) @@ -7656,7 +8538,7 @@ way.") "persistent-sqlite-" version ".tar.gz")) (sha256 (base32 - "1chbmvjz46smhgnzhha3bbkhys3fys6dip1jr4v7xp1jf78zbyp6")))) + "13wbn88ixv4d4dfjl1gabm1q60fbcnygbmixz57pi3z84drrynwq")))) (build-system haskell-build-system) (inputs `(("ghc-persistent" ,ghc-persistent) ("ghc-unliftio-core" ,ghc-unliftio-core) @@ -7682,7 +8564,7 @@ system dependencies.") (define-public ghc-persistent-template (package (name "ghc-persistent-template") - (version "2.5.4") + (version "2.6.0") (source (origin (method url-fetch) @@ -7691,11 +8573,8 @@ system dependencies.") "persistent-template-" version ".tar.gz")) (sha256 (base32 - "008afcy7zbw7bzp9jww8gdldb51kfm0fg4p0x4xcp61gx4679bjc")))) + "0wr1z2nfrl6jv1lprxb0d2jw4izqfcbcwvkdrhryzg95gjz8ryjv")))) (build-system haskell-build-system) - (arguments - `(#:cabal-revision - ("2" "03qgwk32krldph3blw5agiqcpccr3649hajyn8wm9k71zz82dpn6"))) (inputs `(("ghc-persistent" ,ghc-persistent) ("ghc-monad-control" ,ghc-monad-control) ("ghc-aeson" ,ghc-aeson) @@ -7716,7 +8595,7 @@ functions for the ghc-persistent package.") (define-public ghc-polyparse (package (name "ghc-polyparse") - (version "1.12") + (version "1.12.1") (source (origin (method url-fetch) @@ -7726,7 +8605,7 @@ functions for the ghc-persistent package.") ".tar.gz")) (sha256 (base32 - "05dya1vdvq29hkhkdlsglzhw7bdn51rvs1javs0q75nf99c66k7m")))) + "19fs18g7fvfdkm9zy28cgighjcxfa6mcpqgyp6whmsjkb3h393fx")))) (build-system haskell-build-system) (home-page "http://code.haskell.org/~malcolm/polyparse/") @@ -7744,7 +8623,7 @@ Strings.") (define-public ghc-pqueue (package (name "ghc-pqueue") - (version "1.4.1.1") + (version "1.4.1.2") (source (origin (method url-fetch) @@ -7752,7 +8631,7 @@ Strings.") "pqueue/pqueue-" version ".tar.gz")) (sha256 (base32 - "1zvwm1zcqqq5n101s1brjhgbay8rf9fviq6gxbplf40i63m57p1x")))) + "1v4zhv2sc1zsw91hvnarkjhayx2dnf7ccxz6rrhsqpcs0szaranj")))) (build-system haskell-build-system) (native-inputs `(("ghc-quickcheck" ,ghc-quickcheck))) @@ -7829,7 +8708,7 @@ ByteStrings in the style of other common *nix hex dump tools.") (define-public ghc-pretty-show (package (name "ghc-pretty-show") - (version "1.7") + (version "1.9.5") (source (origin (method url-fetch) @@ -7837,7 +8716,7 @@ ByteStrings in the style of other common *nix hex dump tools.") "pretty-show-" version ".tar.gz")) (sha256 (base32 - "0br7pkxqqqhby2j2v1g847lgqsrasx56g1jw3dhmjh4flzs6warq")))) + "0gs2pabi4qa4b0r5vffpf9b1cf5n9y2939a3lljjw7cmg6xvx5dh")))) (build-system haskell-build-system) (inputs `(("ghc-haskell-lexer" ,ghc-haskell-lexer) @@ -7870,6 +8749,9 @@ examination.") (base32 "0r0cda7acvplgwaxy69kviv4jp7kkfi038by68gj4yfx4iwszgjc")))) (build-system haskell-build-system) + (arguments + `(#:cabal-revision + ("1" "18a14k1yiam1m4l29rin9a0y53yp3nxvkz358nysld8aqwy2qsjv"))) (home-page "https://github.com/haskell/primitive") (synopsis "Primitive memory-related operations") @@ -7910,7 +8792,7 @@ API.") (define-public ghc-profunctors (package (name "ghc-profunctors") - (version "5.2.2") + (version "5.3") (source (origin (method url-fetch) @@ -7920,11 +8802,8 @@ API.") ".tar.gz")) (sha256 (base32 - "0s1pwjidbn761xk43pmzyvn99hm3psdifjd78ylki7f97aiyd0g9")))) + "1dx3nkc27yxsrbrhh3iwhq7dl1xn6bj7n62yx6nh8vmpbg62lqvl")))) (build-system haskell-build-system) - (arguments - `(#:cabal-revision - ("2" "1ywlg9z8nlhd2avgb8c6gbkv8zyk7hvc25926bafyg0m0k8y1amq"))) (inputs `(("ghc-base-orphans" ,ghc-base-orphans) ("ghc-bifunctors" ,ghc-bifunctors) @@ -7941,7 +8820,7 @@ API.") (define-public ghc-psqueues (package (name "ghc-psqueues") - (version "0.2.7.0") + (version "0.2.7.2") (source (origin (method url-fetch) @@ -7950,7 +8829,7 @@ API.") "psqueues-" version ".tar.gz")) (sha256 (base32 - "1sjgc9bxh63kkdp59nbirx3xazr02ia5yhp4f4a0jnq1hj465wsc")))) + "1yckx2csqswghiy9nfj03cybmza8104nmnpbpcc9ngwlbmakn9i6")))) (build-system haskell-build-system) (inputs `(("ghc-hashable" ,ghc-hashable))) @@ -7958,9 +8837,9 @@ API.") `(("ghc-hunit" ,ghc-hunit) ("ghc-quickcheck" ,ghc-quickcheck) ("ghc-tagged" ,ghc-tagged) - ("ghc-test-framework" ,ghc-test-framework) - ("ghc-test-framework-hunit" ,ghc-test-framework-hunit) - ("ghc-test-framework-quickcheck2" ,ghc-test-framework-quickcheck2))) + ("ghc-tasty" ,ghc-tasty) + ("ghc-tasty-hunit" ,ghc-tasty-hunit) + ("ghc-tasty-quickcheck" ,ghc-tasty-quickcheck))) (home-page "https://github.com/jaspervdj/psqueues") (synopsis "Pure priority search queues") (description "The psqueues package provides @@ -8072,7 +8951,7 @@ includes efficient implementations for common data types.") (define-public ghc-rebase (package (name "ghc-rebase") - (version "1.2.4") + (version "1.3.1.1") (source (origin (method url-fetch) @@ -8081,7 +8960,7 @@ includes efficient implementations for common data types.") "rebase-" version ".tar.gz")) (sha256 (base32 - "1gah2qwfpzwamnikbc5h4nv6dgvv9h16di9ka7946za3nibyasya")))) + "0q4m2fa7wkgxs0grir8rlqwibasmi3s1x7c107ynndwfm62nzv0a")))) (build-system haskell-build-system) (inputs `(("ghc-hashable" ,ghc-hashable) ("ghc-vector" ,ghc-vector) @@ -8176,7 +9055,7 @@ specify refactorings without depending on GHC.") (define-public ghc-reflection (package (name "ghc-reflection") - (version "2.1.4") + (version "2.1.5") (source (origin (method url-fetch) @@ -8186,9 +9065,13 @@ specify refactorings without depending on GHC.") ".tar.gz")) (sha256 (base32 - "0kf4a5ijw6jfnfibjcrpdy9vzh1n6v2pxia8dhyyqdissiwc8bzj")))) + "0xr947nj1vww5b8fwqmypxm3y3j5sxl4z8wnf834f83jzfzyjbi7")))) (build-system haskell-build-system) (inputs `(("ghc-tagged" ,ghc-tagged))) + (native-inputs + `(("ghc-hspec" ,ghc-hspec) + ("ghc-quickcheck" ,ghc-quickcheck) + ("hspec-discover" ,hspec-discover))) (home-page "https://github.com/ekmett/reflection") (synopsis "Reify arbitrary terms into types that can be reflected back into terms") @@ -8201,7 +9084,7 @@ configurations to coexist without resorting to mutable global variables or (define-public ghc-regex (package (name "ghc-regex") - (version "1.0.1.3") + (version "1.0.2.0") (source (origin (method url-fetch) @@ -8209,7 +9092,7 @@ configurations to coexist without resorting to mutable global variables or "regex-" version ".tar.gz")) (sha256 (base32 - "1sjkpkgv4phy5b5v2lr89x4vx4dh44pj0sbvlsp6n86w9v6v4jwb")))) + "1f2z025hif1fr24b5khq3qxxyvpxrnhyx8xmbms332arw28rpkda")))) (build-system haskell-build-system) (arguments `(#:phases @@ -8246,7 +9129,7 @@ copious examples.") (define-public ghc-regex-applicative (package (name "ghc-regex-applicative") - (version "0.3.3") + (version "0.3.3.1") (source (origin (method url-fetch) @@ -8255,7 +9138,7 @@ copious examples.") "regex-applicative-" version ".tar.gz")) (sha256 (base32 - "1riv7jqf26lbv4rm54sd6mrx8xdh4dvh4xbzymzdfdw13k6a4nb6")))) + "0p0anx5vamrhrdvviwkh2zn6pa3pv2bjb7nfyc7dvz2q7g14y1lg")))) (build-system haskell-build-system) (inputs `(("ghc-smallcheck" ,ghc-smallcheck) @@ -8344,7 +9227,7 @@ this problem.") (define-public ghc-regex-pcre-builtin (package (name "ghc-regex-pcre-builtin") - (version "0.94.4.8.8.35") + (version "0.94.5.8.8.35") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" @@ -8352,7 +9235,7 @@ this problem.") version ".tar.gz")) (sha256 (base32 - "0y7as9wqlkykpipka2cfdhmcnin345q01pp0wsva8fwmvsavdl8b")))) + "1s755qdg1mxrf125sh83bsc5kjkrj8fkq8wf6dg1jan86c7p7gl4")))) (build-system haskell-build-system) (inputs `(("ghc-regex-base" ,ghc-regex-base))) @@ -8390,7 +9273,7 @@ Haskell library @code{regex-base}.") (define-public ghc-regex-tdfa (package (name "ghc-regex-tdfa") - (version "1.2.3.1") + (version "1.2.3.2") (source (origin (method url-fetch) @@ -8399,7 +9282,7 @@ Haskell library @code{regex-base}.") version ".tar.gz")) (sha256 (base32 - "0l7ajnh4hpgggf2a1r9dg0hx2fy679vd2kada5y7r02hy3nfxala")))) + "03yhpqrqz977nwlnhnyz9dacnbzw8xb6j18h365rkgmbc05sb3hf")))) (build-system haskell-build-system) (inputs `(("ghc-regex-base" ,ghc-regex-base))) @@ -8438,7 +9321,7 @@ inspired by libtre.") (define-public ghc-rerebase (package (name "ghc-rerebase") - (version "1.2.2") + (version "1.3.1.1") (source (origin (method url-fetch) @@ -8447,7 +9330,7 @@ inspired by libtre.") version ".tar.gz")) (sha256 (base32 - "11v6rmz7ql2rdx6mhb3lsal952lwihclfhh0m7fcnii5br0906ks")))) + "1jbqif6k249rkknm2zwk8v8jil3kgi9ar53358v8l4ffx346rm82")))) (build-system haskell-build-system) (inputs `(("ghc-rebase" ,ghc-rebase))) @@ -8461,7 +9344,7 @@ the project's home page}.") (define-public ghc-resolv (package (name "ghc-resolv") - (version "0.1.1.1") + (version "0.1.1.2") (source (origin (method url-fetch) @@ -8470,14 +9353,22 @@ the project's home page}.") version ".tar.gz")) (sha256 (base32 - "0wh7wj56l3f2bylz563g5g04a4nydj8acv60hpwa7k3mn792xca9")))) + "0wczdy3vmpfcfwjn1m95bygc5d83m97xxmavhdvy5ayn8c402fp4")))) (build-system haskell-build-system) (arguments - `(#:cabal-revision - ("1" "15ay4n3x8c09cb3h4z1nan84yd3n9zpgvi6h114hk98bq10k8mma") - #:tests? #f)) ; The required test frameworks are too old. + `(#:phases + (modify-phases %standard-phases + (add-before 'configure 'update-constraints + (lambda _ + (substitute* "resolv.cabal" + (("tasty >= 1\\.1 && < 1\\.2") + "tasty >= 1.1 && < 1.3")) + #t))))) (inputs `(("ghc-base16-bytestring" ,ghc-base16-bytestring))) + (native-inputs + `(("ghc-tasty" ,ghc-tasty) + ("ghc-tasty-hunit" ,ghc-tasty-hunit))) (home-page "https://github.com/haskell/hackage-security") (synopsis "Domain Name Service (DNS) lookup via @code{libresolv}") (description "This package implements an API for accessing the @@ -8515,7 +9406,7 @@ connections.") (define-public ghc-resourcet (package (name "ghc-resourcet") - (version "1.2.1") + (version "1.2.2") (source (origin (method url-fetch) @@ -8523,7 +9414,7 @@ connections.") "resourcet-" version ".tar.gz")) (sha256 (base32 - "0rzjzh34s36ssign7akqjnwnjxf11c3511wk7ky0xxy0dqmc2rg7")))) + "1rfbfcv3r1h29y0yqr3x6a1s04lbc3vzm3jqnfg4f9rqp9d448qk")))) (build-system haskell-build-system) (inputs `(("ghc-transformers-base" ,ghc-transformers-base) @@ -8541,10 +9432,44 @@ connections.") code where you can safely allocate resources.") (license license:bsd-3))) +(define-public ghc-retry + (package + (name "ghc-retry") + (version "0.8.1.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "retry/retry-" version ".tar.gz")) + (sha256 + (base32 + "02k03r86amg1vbrsvb644342ym13d9jwkzki9sk93pdg5l8j35dj")))) + (build-system haskell-build-system) + (inputs + `(("ghc-exceptions" ,ghc-exceptions) + ("ghc-random" ,ghc-random))) + (native-inputs + `(("ghc-hunit" ,ghc-hunit) + ("ghc-tasty" ,ghc-tasty) + ("ghc-tasty-hunit" ,ghc-tasty-hunit) + ("ghc-tasty-hedgehog" ,ghc-tasty-hedgehog) + ("ghc-hedgehog" ,ghc-hedgehog))) + (home-page "http://github.com/Soostone/retry") + (synopsis "Retry combinators for monadic actions that may fail") + (description "This package exposes combinators that can wrap +arbitrary monadic actions. They run the action and potentially retry +running it with some configurable delay for a configurable number of +times. The purpose is to make it easier to work with IO and especially +network IO actions that often experience temporary failure and warrant +retrying of the original action. For example, a database query may time +out for a while, in which case we should hang back for a bit and retry +the query instead of simply raising an exception.") + (license license:bsd-3))) + (define-public ghc-rfc5051 (package (name "ghc-rfc5051") - (version "0.1.0.3") + (version "0.1.0.4") (source (origin (method url-fetch) @@ -8552,7 +9477,7 @@ code where you can safely allocate resources.") "rfc5051-" version ".tar.gz")) (sha256 (base32 - "0av4c3qvwbkbzrjrrg601ay9pds7wscqqp2lc2z78mv2lllap3g3")))) + "1lxkq414ni986ciml4gbvf463fn55z299knky7pq3ixb1qislpb1")))) (build-system haskell-build-system) (home-page "https://hackage.haskell.org/package/rfc5051") (synopsis "Simple unicode collation as per RFC5051") @@ -8567,7 +9492,7 @@ better for some purposes.") (define-public ghc-rio (package (name "ghc-rio") - (version "0.1.5.0") + (version "0.1.12.0") (source (origin (method url-fetch) @@ -8576,7 +9501,7 @@ better for some purposes.") version ".tar.gz")) (sha256 (base32 - "064h8a4hp53a479d3ak0vmqbx8hi0cpg7zn4wp23rjy26dka8p7g")))) + "0xzjkh6aavynpyskikhs8dmv0zhkiqiwz9zdn80zbd25b2182pif")))) (build-system haskell-build-system) (inputs `(("ghc-exceptions" ,ghc-exceptions) @@ -8717,7 +9642,7 @@ are not exception safe and can be broken by @code{killThread}.") (define-public ghc-sandi (package (name "ghc-sandi") - (version "0.4.2") + (version "0.5") (source (origin (method url-fetch) @@ -8726,7 +9651,7 @@ are not exception safe and can be broken by @code{killThread}.") version ".tar.gz")) (sha256 (base32 - "0dvkpk91n9kz2ha04rvp231ra9sgd1ilyc1qkzf9l03iir7zrh9b")))) + "1ndgai8idlxyccvkz5zsgq06v58blc30i6hkky5b1sf5x6gs2h29")))) (build-system haskell-build-system) (inputs `(("ghc-stringsearch" ,ghc-stringsearch) @@ -8819,7 +9744,7 @@ award winning Linux port of \"Civilization: Call To Power.\"") (define-public ghc-sdl2 (package (name "ghc-sdl2") - (version "2.4.1.0") + (version "2.5.0.0") (source (origin (method url-fetch) @@ -8827,7 +9752,7 @@ award winning Linux port of \"Civilization: Call To Power.\"") "sdl2/sdl2-" version ".tar.gz")) (sha256 (base32 - "0p4b12fmxps0sbnkqdfy0qw19s355yrkw7fgw6xz53wzq706k991")))) + "1x368yhdd55b3cvx8dvj1sj6nzygzigbhrwhssjs4k0rcxlwqfw8")))) (build-system haskell-build-system) (arguments '(#:tests? #f)) ; tests require graphical environment (inputs @@ -8991,7 +9916,7 @@ a memory chunk that will be auto-scrubbed after it run out of scope.") (define-public ghc-semigroupoids (package (name "ghc-semigroupoids") - (version "5.2.2") + (version "5.3.3") (source (origin (method url-fetch) @@ -9001,11 +9926,8 @@ a memory chunk that will be auto-scrubbed after it run out of scope.") ".tar.gz")) (sha256 (base32 - "17i96y4iqj8clcs090lf6k0ij3j16nj14vsfwz0mm9nd6i4gbpp4")))) + "016hc4imr9l4szs3p7f1aahvxr5wv4clvr3qzrm3nibssg5vrs61")))) (build-system haskell-build-system) - (arguments - `(#:cabal-revision - ("4" "0pqfrxzypjq6z8lgdkzq4vhcyqkpk5326hny0r6snpc3gm78r4ij"))) (inputs `(("ghc-base-orphans" ,ghc-base-orphans) ("ghc-transformers-compat" ,ghc-transformers-compat) @@ -9098,7 +10020,7 @@ environment variables.") (define-public ghc-setlocale (package (name "ghc-setlocale") - (version "1.0.0.8") + (version "1.0.0.9") (source (origin (method url-fetch) (uri (string-append @@ -9106,7 +10028,7 @@ environment variables.") version "/setlocale-" version ".tar.gz")) (sha256 (base32 - "0sdrsmkhw08483d73ysgm2926fdbhii61br03lqpqw0lfzj4ilbd")))) + "18b6xafspzxrmz5m9r9nzy3z053crqi59xc8n8aqd4gw0pvqdcrv")))) (build-system haskell-build-system) (home-page "https://hackage.haskell.org/package/setlocale") (synopsis "Haskell bindings to setlocale") @@ -9117,7 +10039,7 @@ environment variables.") (define-public ghc-shakespeare (package (name "ghc-shakespeare") - (version "2.0.15") + (version "2.0.22") (source (origin (method url-fetch) @@ -9126,7 +10048,7 @@ environment variables.") "shakespeare-" version ".tar.gz")) (sha256 (base32 - "1vk4b19zvwy4mpwaq9z3l3kfmz75gfyf7alhh0y112gspgpccm23")))) + "1mc1a0vv070gcawwcx6vzpj6gpfh1qnlqrndiyfic3p500y656vh")))) (build-system haskell-build-system) (inputs `(("ghc-aeson" ,ghc-aeson) ("ghc-blaze-markup" ,ghc-blaze-markup) @@ -9184,7 +10106,7 @@ spirit to POSIX shells. Shelly is originally forked from the Shellish package. (define-public ghc-silently (package (name "ghc-silently") - (version "1.2.5") + (version "1.2.5.1") (source (origin (method url-fetch) @@ -9194,7 +10116,7 @@ spirit to POSIX shells. Shelly is originally forked from the Shellish package. ".tar.gz")) (sha256 (base32 - "0f9qm3f7y0hpxn6mddhhg51mm1r134qkvd2kr8r6192ka1ijbxnf")))) + "1lgs1gsr5dp0x21diqn4l03fxgai2kgdmj85gqp0iz3zykvbmjbz")))) (build-system haskell-build-system) (arguments `(#:tests? #f)) ;; circular dependency with nanospec ;; (inputs @@ -9235,7 +10157,7 @@ them.") (define-public ghc-simple-sendfile (package (name "ghc-simple-sendfile") - (version "0.2.27") + (version "0.2.30") (source (origin (method url-fetch) @@ -9244,7 +10166,7 @@ them.") "simple-sendfile-" version ".tar.gz")) (sha256 (base32 - "1bwwqzcm56m2w4ymsa054sxmpbj76h9pvb0jf8zxp8lr41cp51gn")))) + "112j0qfsjazf9wg1zywf7hjybgsiywk9wkm27yi8xzv27hmlv1mn")))) (build-system haskell-build-system) (inputs `(("ghc-conduit" ,ghc-conduit) @@ -9260,10 +10182,36 @@ them.") are the bottleneck of web servers.") (license license:bsd-3))) +(define-public ghc-size-based + (package + (name "ghc-size-based") + (version "0.1.2.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "size-based/size-based-" version ".tar.gz")) + (sha256 + (base32 + "06hmlic0n73ncwlkpx49xlv09bzsrr27ncnp5byhzlknak2gd7vp")))) + (build-system haskell-build-system) + (inputs + `(("ghc-dictionary-sharing" ,ghc-dictionary-sharing) + ("ghc-testing-type-modifiers" ,ghc-testing-type-modifiers) + ("ghc-semigroups" ,ghc-semigroups))) + (arguments + `(#:cabal-revision + ("1" "0kax1ypjyglkn6iff1x4yz12y7f2n249m95xvdhrc63hsa4xlcqv"))) + (home-page "https://hackage.haskell.org/package/size-based") + (synopsis "Sized functors for size-based enumerations") + (description "This library provides a framework for size-based +enumerations.") + (license license:bsd-3))) + (define-public ghc-skylighting-core (package (name "ghc-skylighting-core") - (version "0.7.2") + (version "0.8.2.1") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" @@ -9271,7 +10219,7 @@ are the bottleneck of web servers.") version ".tar.gz")) (sha256 (base32 - "066fwmwsd7xcvwlinfk2izlzq0xp8697i6lnbgsbl71jdybyackq")))) + "0hdchivb4af9w7v5v7lrwfwawd3kcwmpzk69m1vkkm3pis8lcr1s")))) (build-system haskell-build-system) (inputs `(("ghc-aeson" ,ghc-aeson) @@ -9307,14 +10255,14 @@ provided. Skylighting is intended to be the successor to highlighting-kate.") (package (inherit ghc-skylighting-core) (name "ghc-skylighting") - (version "0.7.2") + (version "0.8.2.1") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/skylighting-" version "/skylighting-" version ".tar.gz")) (sha256 (base32 - "1rh3z1a7a4clvksdw1qlpmhxqkfahwypi70k91whgfamzsqpxdch")))) + "1xls8ycad77m55ax4hp55k60h3pi5sm3m32hycbc8baixbgfx5xz")))) (inputs `(("ghc-skylighting-core" ,ghc-skylighting-core) ,@(package-inputs ghc-skylighting-core))))) @@ -9347,17 +10295,18 @@ automatically by SmallCheck.") (define-public ghc-socks (package (name "ghc-socks") - (version "0.5.6") + (version "0.6.1") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" "socks/socks-" version ".tar.gz")) (sha256 (base32 - "0f44qy74i0n6ll3jym0a2ipafkpw1h67amcpqmj8iq95h21wsqzs")))) + "0wvaxy3dkv97wrncjv1rxrmjr4014hgxz82kixvcwqdhidalfi3k")))) (build-system haskell-build-system) (inputs `(("ghc-cereal" ,ghc-cereal) + ("ghc-basement" ,ghc-basement) ("ghc-network" ,ghc-network))) (home-page "https://github.com/vincenthz/hs-socks") (synopsis "SOCKS proxy (version 5) implementation") @@ -9365,6 +10314,29 @@ automatically by SmallCheck.") "This library provides a SOCKS proxy (version 5) implementation.") (license license:bsd-3))) +(define-public ghc-sop-core + (package + (name "ghc-sop-core") + (version "0.4.0.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "sop-core/sop-core-" version ".tar.gz")) + (sha256 + (base32 + "07ci2mh8cbjvipb576rxsj3iyhkj5c5dnsns4xkdppp2p3pv10d3")))) + (build-system haskell-build-system) + (home-page "http://hackage.haskell.org/package/sop-core") + (synopsis "True Sums of Products") + (description "This package provides an implementation of +@math{n}-ary sums and @math{n}-ary products. The module @code{Data.SOP} +is the main module of this library and contains more detailed +documentation. The main use case of this package is to serve as the +core of @url{https://hackage.haskell.org/package/generics-sop, +generics-sop}.") + (license license:bsd-3))) + (define-public ghc-split (package (name "ghc-split") @@ -9381,6 +10353,9 @@ automatically by SmallCheck.") (base32 "04qlmkcyklznl03gsjg95b4nzb6i96gdapqg60rny9szgi7ngk8x")))) (build-system haskell-build-system) + (arguments + `(#:cabal-revision + ("2" "1c8bcssxq5rkxkixgms6w6x6lzf4n7cxk6cx6av1dp3lixdy9j34"))) (native-inputs `(("ghc-quickcheck" ,ghc-quickcheck))) (home-page "https://hackage.haskell.org/package/split") @@ -9390,10 +10365,55 @@ splitting lists into parts, akin to the @code{split} function found in several mainstream languages.") (license license:bsd-3))) +(define-public ghc-splitmix + (package + (name "ghc-splitmix") + (version "0.0.3") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "splitmix/splitmix-" version ".tar.gz")) + (sha256 + (base32 + "1k0amgkz7rvyz3lnw7m786ilnr1cibwhx9sc4qynq329gxan5r7w")))) + (build-system haskell-build-system) + (inputs + `(("ghc-random" ,ghc-random))) + (native-inputs + `(("ghc-hunit" ,ghc-hunit) + ("ghc-async" ,ghc-async) + ("ghc-base-compat-batteries" ,ghc-base-compat-batteries) + ("ghc-tf-random" ,ghc-tf-random) + ("ghc-vector" ,ghc-vector))) + (home-page "http://hackage.haskell.org/package/splitmix") + (synopsis "Fast and splittable pseudorandom number generator") + (description "This package provides a Pure Haskell implementation of the +SplitMix pseudorandom number generator. SplitMix is a \"splittable\" +pseudorandom number generator that is quite fast: 9 64-bit +arithmetic/logical operations per 64 bits generated. SplitMix is tested +with two standard statistical test suites (DieHarder and TestU01, this +implementation only using the former) and it appears to be adequate for +\"everyday\" use, such as Monte Carlo algorithms and randomized data +structures where speed is important. In particular, it @strong{should not +be used for cryptographic or security applications}, because generated +sequences of pseudorandom values are too predictable (the mixing functions +are easily inverted, and two successive outputs suffice to reconstruct the +internal state).") + (license license:bsd-3))) + +(define-public ghc-splitmix-bootstrap + (package + (inherit ghc-splitmix) + (name "ghc-splitmix-bootstrap") + (arguments `(#:tests? #f)) + (native-inputs '()) + (properties '((hidden? #t))))) + (define-public ghc-statevar (package (name "ghc-statevar") - (version "1.1.1.1") + (version "1.2") (source (origin (method url-fetch) @@ -9403,7 +10423,7 @@ mainstream languages.") ".tar.gz")) (sha256 (base32 - "08r2iw0gdmfs4f6wraaq19vfmkjdbics3dbhw39y7mdjd98kcr7b")))) + "12sz6zkc9j5z3lwrjvljrkfxa5vhwnir5wsarigz2f6d3w13dh5g")))) (build-system haskell-build-system) (home-page "https://hackage.haskell.org/package/StateVar") (synopsis "State variables for Haskell") @@ -9414,7 +10434,7 @@ in the @code{IO} monad, like @code{IORef}s or parts of the OpenGL state.") (define-public ghc-statistics (package (name "ghc-statistics") - (version "0.14.0.2") + (version "0.15.1.1") (source (origin (method url-fetch) @@ -9423,17 +10443,16 @@ in the @code{IO} monad, like @code{IORef}s or parts of the OpenGL state.") "statistics-" version ".tar.gz")) (sha256 (base32 - "0y27gafkib0x0fn39qfn2rkgsfrm09ng35sbb5dwr7rclhnxz59l")))) + "015rn74f1glii26j4b2fh1fc63xvxzrh2xckiancz48kc8jdzabj")))) (build-system haskell-build-system) (arguments - '(#:cabal-revision - ("2" "1bx70yqkn62ii17fjv3pig4hklrzkqd09zj67zzjiyjzmn04fir3") - ;; Two tests fail: "Discrete CDF is OK" and "Quantile is CDF inverse". + '(;; Two tests fail: "Discrete CDF is OK" and "Quantile is CDF inverse". #:tests? #f)) (inputs `(("ghc-aeson" ,ghc-aeson) + ("ghc-async" ,ghc-async) ("ghc-base-orphans" ,ghc-base-orphans) - ("ghc-erf" ,ghc-erf) + ("ghc-dense-linear-algebra" ,ghc-dense-linear-algebra) ("ghc-math-functions" ,ghc-math-functions) ("ghc-monad-par" ,ghc-monad-par) ("ghc-mwc-random" ,ghc-mwc-random) @@ -9497,7 +10516,7 @@ features.") (define-public ghc-stm-conduit (package (name "ghc-stm-conduit") - (version "4.0.0") + (version "4.0.1") (source (origin (method url-fetch) @@ -9505,7 +10524,7 @@ features.") "stm-conduit-" version ".tar.gz")) (sha256 (base32 - "0paapljn7nqfzrx889y0n8sszci38mdiaxkgr0bb00ph9246rr7z")))) + "0hhlxvpp7mah8dcvkknh6skx44jfk3092zz2w52zlr255bkmn3p8")))) (build-system haskell-build-system) (inputs `(("ghc-stm-chans" ,ghc-stm-chans) @@ -9554,7 +10573,7 @@ for strict state threads.") (define-public ghc-storable-complex (package (name "ghc-storable-complex") - (version "0.2.2") + (version "0.2.3.0") (source (origin (method url-fetch) @@ -9562,8 +10581,10 @@ for strict state threads.") "https://hackage.haskell.org/package/storable-complex/storable-complex-" version ".tar.gz")) (sha256 - (base32 "01kwwkpbfjrv26vj83cd92px5qbq1bpgxj0r45534aksqhany1xb")))) + (base32 "0fnwbfmd5vsaaqvf9182qdcjrzcfjd1zhdyvjwzifbwvn6r9kx4s")))) (build-system haskell-build-system) + (inputs + `(("ghc-base-orphans" ,ghc-base-orphans))) (home-page "https://github.com/cartazio/storable-complex") (synopsis "Haskell Storable instance for Complex") (description "This package provides a Haskell library including a @@ -9746,7 +10767,7 @@ literals.") (define-public ghc-string-qq (package (name "ghc-string-qq") - (version "0.0.2") + (version "0.0.4") (source (origin (method url-fetch) @@ -9756,8 +10777,10 @@ literals.") ".tar.gz")) (sha256 (base32 - "0662m3i5xrdrr95w829bszkhp88mj9iy1zya54vk2sl5hz9wlmwp")))) + "0wfxkw4x6j6jq9nd82k83g2k3hskpsvk1dp4cpkshvjr4wg9qny8")))) (build-system haskell-build-system) + (native-inputs + `(("ghc-hunit" ,ghc-hunit))) (home-page "http://hackage.haskell.org/package/string-qq") (synopsis "QuasiQuoter for non-interpolated strings, texts and bytestrings.") @@ -9781,6 +10804,9 @@ and bytestrings.") (base32 "0jpy9xjcjdbpi3wk6mg7xwd7wfi2mma70p97v1ij5i8bj9qijpr9")))) (build-system haskell-build-system) + (arguments + `(#:cabal-revision + ("1" "0z5pz5dccapz9k39r2zmf056m0x2m2lj3jahhnw3mfxlmps07378"))) (home-page "https://bitbucket.org/dafis/stringsearch") (synopsis "Fast searching, splitting and replacing of ByteStrings") (description "This package provides several functions to quickly search @@ -9804,6 +10830,15 @@ occurrences of a substring (the first in case of overlaps) with another.") (base32 "1ls11fdx6snvfx8yykpidz142zzxwi5bazl49hgfqlwx50rqcp7w")))) (build-system haskell-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'configure 'update-constraints + (lambda _ + (substitute* "stylish-haskell.cabal" + (("haskell-src-exts >= 1\\.18 && < 1\\.21,") + "haskell-src-exts >= 1.18 && < 1.22,")) + #t))))) (inputs `(("ghc-aeson" ,ghc-aeson) ("ghc-file-embed" ,ghc-file-embed) @@ -9844,10 +10879,36 @@ default) @end itemize") (license license:bsd-3))) +(define-public ghc-svg-builder + (package + (name "ghc-svg-builder") + (version "0.1.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "svg-builder/svg-builder-" version ".tar.gz")) + (sha256 + (base32 + "1k420f497lzkymmxin88ql6ib8dziic43avykv31yq65rgrf7l2g")))) + (build-system haskell-build-system) + (inputs + `(("ghc-blaze-builder" ,ghc-blaze-builder) + ("ghc-hashable" ,ghc-hashable) + ("ghc-unordered-containers" ,ghc-unordered-containers))) + (arguments + `(#:cabal-revision + ("1" "1bhp9gvid2iis411k1vvyj5krzc4ahxcqcd9cwx9h37jxg180xw1"))) + (home-page "https://github.com/diagrams/svg-builder.git") + (synopsis "Domain-specific language for building Scalable Vector Graphics") + (description "Easy-to-write domain-specific language (DSL) for +building Scalable Vector Graphics (SVG).") + (license license:bsd-3))) + (define-public ghc-syb (package (name "ghc-syb") - (version "0.7") + (version "0.7.1") (outputs '("out" "doc")) (source (origin @@ -9858,7 +10919,7 @@ default) ".tar.gz")) (sha256 (base32 - "1da2zz7gqm4xbkx5vpd74dayx1svaxyl145fl14mq15lbb77sxdq")))) + "0077vxzyi9ppbphi2ialac3p376k49qly1kskdgf57wdwix9qjp0")))) (build-system haskell-build-system) (inputs `(("ghc-hunit" ,ghc-hunit))) @@ -9876,7 +10937,7 @@ variety of traversals.") (define-public ghc-system-fileio (package (name "ghc-system-fileio") - (version "0.3.16.3") + (version "0.3.16.4") (source (origin (method url-fetch) @@ -9885,8 +10946,16 @@ variety of traversals.") version ".tar.gz")) (sha256 (base32 - "1484hcl27s2qcby8ws5djj11q9bz68bspcifz9h5gii2ndy70x9i")))) + "1iy6g1f35gzyj12g9mdiw4zf75mmxpv1l8cyaldgyscsl648pr9l")))) (build-system haskell-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'configure 'update-constraints + (lambda _ + (substitute* "system-fileio.cabal" + (("chell >= 0\\.4 && < 0\\.5") "chell >= 0.4")) + #t))))) (inputs `(("ghc-system-filepath" ,ghc-system-filepath) ("ghc-chell" ,ghc-chell) @@ -9999,7 +11068,7 @@ increasing type safety.") (define-public ghc-tagged (package (name "ghc-tagged") - (version "0.8.5") + (version "0.8.6") (source (origin (method url-fetch) @@ -10009,11 +11078,11 @@ increasing type safety.") ".tar.gz")) (sha256 (base32 - "16cdzh0bw16nvjnyyy5j9s60malhz4nnazw96vxb0xzdap4m2z74")))) + "1pciqzxf9ncv954v4r527xkxkn7r5hcr13mfw5dg1xjci3qdw5md")))) (build-system haskell-build-system) (arguments `(#:cabal-revision - ("2" "0r2knfcq0b4s652vlvlnfwxlc2mkc2ra9kl8bp4zdn1awmfy0ia5"))) + ("1" "070xwfw7y81hd63il76dmwbdl9ca1rd07c54zynfx6vpr4wyx4vh"))) (inputs `(("ghc-transformers-compat" ,ghc-transformers-compat))) (home-page "https://hackage.haskell.org/package/tagged") @@ -10025,7 +11094,7 @@ having to unsafely pass dummy arguments.") (define-public ghc-tar (package (name "ghc-tar") - (version "0.5.1.0") + (version "0.5.1.1") (source (origin (method url-fetch) @@ -10034,7 +11103,7 @@ having to unsafely pass dummy arguments.") version ".tar.gz")) (sha256 (base32 - "0s2brvaxg5fki2jdkccmnpssiy6a3wjh24p6a3dkkdvjcixnk7f8")))) + "1ppim7cgmn7ng8zbdrwkxhhizc30h15h1c9cdlzamc5jcagl915k")))) (build-system haskell-build-system) ;; FIXME: 2/24 tests fail. (arguments `(#:tests? #f)) @@ -10055,6 +11124,35 @@ preserved. It also provides features for random access to archive content using an index.") (license license:bsd-3))) +(define-public ghc-tar-conduit + (package + (name "ghc-tar-conduit") + (version "0.3.2") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "tar-conduit/tar-conduit-" version ".tar.gz")) + (sha256 + (base32 + "0bgn3hyf20g1gfnzy8f41s7nj54kfcyjk2izw99svrw8f3dphi80")))) + (build-system haskell-build-system) + (inputs + `(("ghc-conduit" ,ghc-conduit) + ("ghc-conduit-combinators" ,ghc-conduit-combinators) + ("ghc-safe-exceptions" ,ghc-safe-exceptions))) + (native-inputs + `(("ghc-quickcheck" ,ghc-quickcheck) + ("ghc-conduit-extra" ,ghc-conduit-extra) + ("ghc-hspec" ,ghc-hspec) + ("ghc-hspec" ,ghc-hspec) + ("ghc-weigh" ,ghc-weigh))) + (home-page "https://github.com/snoyberg/tar-conduit#readme") + (synopsis "Extract and create tar files using conduit for streaming") + (description "This library provides a conduit-based, streaming +interface for extracting and creating tar files.") + (license license:expat))) + (define-public ghc-temporary (package (name "ghc-temporary") @@ -10137,14 +11235,14 @@ dependency.") (define-public ghc-texmath (package (name "ghc-texmath") - (version "0.11.0.1") + (version "0.11.3") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" "texmath/texmath-" version ".tar.gz")) (sha256 (base32 - "11dc09hfnyfsz20ch2c867w0zdgjkzq41506lm61i3dk87ngdisf")))) + "03rpxbp43bjs62mmw4hv4785n6f6nbf8kj2y9mma5nzk6i2xs09f")))) (build-system haskell-build-system) (inputs `(("ghc-syb" ,ghc-syb) @@ -10187,6 +11285,33 @@ instances for strict and lazy text types for versions older than 1.2.1 of the text package.") (license license:bsd-2))) +(define-public ghc-text-metrics + (package + (name "ghc-text-metrics") + (version "0.3.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "text-metrics/text-metrics-" version ".tar.gz")) + (sha256 + (base32 + "18mzxwkdvjp31r720ai9bnxr638qq8x3a2v408bz0d8f0rsayx1q")))) + (build-system haskell-build-system) + (inputs + `(("ghc-vector" ,ghc-vector))) + (native-inputs + `(("ghc-quickcheck" ,ghc-quickcheck) + ("ghc-hspec" ,ghc-hspec))) + (arguments + `(#:cabal-revision + ("4" "017drxq9x56b345d8w5m8xdsi1zzs0z16pbdx8j35cd1lsnh3kf1"))) + (home-page "https://github.com/mrkkrp/text-metrics") + (synopsis "Calculate various string metrics efficiently") + (description "This library provides tools to calculate various +string metrics efficiently.") + (license license:bsd-3))) + (define-public ghc-tf-random (package (name "ghc-tf-random") @@ -10217,7 +11342,7 @@ Hashing\" by Claessen, Pałka for details and the rationale of the design.") (define-public ghc-th-abstraction (package (name "ghc-th-abstraction") - (version "0.2.8.0") + (version "0.3.1.0") (source (origin (method url-fetch) @@ -10226,7 +11351,7 @@ Hashing\" by Claessen, Pałka for details and the rationale of the design.") version ".tar.gz")) (sha256 (base32 - "0n17w4q2ykd0nica4sck2wng6md56rfad8x0icl0l8vnzb9nn4ya")))) + "1f81w0gshvc816cf9qz0f19jsrzh6wpzmmy317xrgn63dv61p7jb")))) (build-system haskell-build-system) (home-page "https://github.com/glguy/th-abstraction") (synopsis "Nicer interface for reified information about data types") @@ -10240,7 +11365,7 @@ Template Haskell.") (define-public ghc-th-expand-syns (package (name "ghc-th-expand-syns") - (version "0.4.4.0") + (version "0.4.5.0") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" @@ -10248,7 +11373,7 @@ Template Haskell.") version ".tar.gz")) (sha256 (base32 - "01prlvh3py5hq5ccjidfyp9ixq2zd88dkbsidyjrpkja6v8m43yc")))) + "1p4wfyycan8zsp9wi7npx36qwbfsbcgdyxi3ii51scf69dkrx42y")))) (build-system haskell-build-system) (inputs `(("ghc-syb" ,ghc-syb))) @@ -10262,14 +11387,14 @@ Template Haskell.") (define-public ghc-th-lift (package (name "ghc-th-lift") - (version "0.7.11") + (version "0.8.0.1") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" "th-lift/th-lift-" version ".tar.gz")) (sha256 (base32 - "131360zxb0hazbqwbkk6ab2p77jkxr79bwwm618mrwrwkm3x2g6m")))) + "1a6qlbdg15cfr5rvl9g3blgwx4v1p0xic0pzv13zx165xbc36ld0")))) (build-system haskell-build-system) (inputs `(("ghc-th-abstraction" ,ghc-th-abstraction))) @@ -10283,7 +11408,7 @@ datatypes.") (define-public ghc-th-lift-instances (package (name "ghc-th-lift-instances") - (version "0.1.11") + (version "0.1.14") (source (origin (method url-fetch) @@ -10292,7 +11417,7 @@ datatypes.") version ".tar.gz")) (sha256 (base32 - "1f56cp6ckcalld5jchv0kxpjkwcsixd7smd0g7r8cg67ppx6m90x")))) + "0r1b4jnvcj64wp4hfccwkl4a70n1p1q7qzyx6ax7cmd8k961jz78")))) (build-system haskell-build-system) (inputs `(("ghc-th-lift" ,ghc-th-lift) @@ -10308,14 +11433,14 @@ instances. This package provides orphan instances for @code{containers}, (define-public ghc-th-orphans (package (name "ghc-th-orphans") - (version "0.13.6") + (version "0.13.9") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" "th-orphans/th-orphans-" version ".tar.gz")) (sha256 (base32 - "0sfl3pn9kq9da3ji3lsgzgzy82vz6yvsg80dmakc1jvk7awycibp")))) + "1xj1gssv77hdx1r3ndg8k49v3ipj3a6r7crkyvx13jrps3m6ng1z")))) (build-system haskell-build-system) (inputs `(("ghc-th-lift" ,ghc-th-lift) @@ -10373,7 +11498,7 @@ package is similar to the @code{threadmanager}, @code{async} and (define-public ghc-th-reify-many (package (name "ghc-th-reify-many") - (version "0.1.8") + (version "0.1.9") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" @@ -10381,7 +11506,7 @@ package is similar to the @code{threadmanager}, @code{async} and version ".tar.gz")) (sha256 (base32 - "0hzy6hvhvcd6i60vx5cp2b7ggmnnjh9rx4h8bm8xw4grglcaxjnf")))) + "0hxf56filzqnyrc8q7766vai80y6cgrrbrczx6n93caskl1dv2gq")))) (build-system haskell-build-system) (inputs `(("ghc-safe" ,ghc-safe) @@ -10395,6 +11520,38 @@ datatypes reachable from an initial datatype, and passing these names to some function which generates instances.") (license license:bsd-3))) +(define-public ghc-time-compat + (package + (name "ghc-time-compat") + (version "1.9.2.2") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "time-compat/time-compat-" version ".tar.gz")) + (sha256 + (base32 + "05va0rqs759vbridbcl6hksp967j9anjvys8vx72fnfkhlrn2s52")))) + (build-system haskell-build-system) + (inputs + `(("ghc-base-orphans" ,ghc-base-orphans))) + (native-inputs + `(("ghc-hunit" ,ghc-hunit) + ("ghc-base-compat" ,ghc-base-compat) + ("ghc-quickcheck" ,ghc-quickcheck) + ("ghc-tagged" ,ghc-tagged) + ("ghc-tasty" ,ghc-tasty) + ("ghc-tasty-hunit" ,ghc-tasty-hunit) + ("ghc-tasty-quickcheck" ,ghc-tasty-quickcheck))) + (arguments + `(#:cabal-revision + ("1" "0k8ph4sydaiqp8dav4if6hpiaq8h1xsr93khmdr7a1mmfwdxr64r"))) + (home-page "https://github.com/phadej/time-compat") + (synopsis "Compatibility package for time") + (description "This packages tries to compat as many @code{time} +features as possible.") + (license license:bsd-3))) + (define-public ghc-time-locale-compat (package (name "ghc-time-locale-compat") @@ -10416,6 +11573,27 @@ function which generates instances.") @code{TimeLocale}.") (license license:bsd-3))) +(define-public ghc-time-manager + (package + (name "ghc-time-manager") + (version "0.0.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "time-manager/time-manager-" version ".tar.gz")) + (sha256 + (base32 + "1nzwj0fxz370ks6vr1sylcidx33rnqq45y3q9yv9n4dj43nid9lh")))) + (build-system haskell-build-system) + (inputs + `(("ghc-auto-update" ,ghc-auto-update))) + (home-page "https://github.com/yesodweb/wai") + (synopsis "Scalable timer") + (description "This library contains scalable timer functions provided by a +timer manager.") + (license license:expat))) + (define-public ghc-timeit (package (name "ghc-timeit") @@ -10437,10 +11615,62 @@ function which generates instances.") used CPU time of monadic computation with an IO base.") (license license:bsd-3))) +(define-public ghc-timezone-series + (package + (name "ghc-timezone-series") + (version "0.1.9") + (source + (origin + (method url-fetch) + (uri + (string-append + "mirror://hackage/package/timezone-series/timezone-series-" + version ".tar.gz")) + (sha256 + (base32 + "1blwgnyzqn917rgqkl4dncv9whv3xmk0lav040qq0214vksmvlz5")))) + (build-system haskell-build-system) + (home-page "https://archives.haskell.org/projects.haskell.org/time-ng/") + (synopsis "Enhanced timezone handling for Time") + (description + "This package endows @code{Data.Time}, from the time package, with several +data types and functions for enhanced processing of timezones. For one way to +create timezone series, see the ghc-timezone-olson package.") + (license license:bsd-3))) + +(define-public ghc-timezone-olson + (package + (name "ghc-timezone-olson") + (version "0.1.9") + (source + (origin + (method url-fetch) + (uri + (string-append + "mirror://hackage/package/timezone-olson/timezone-olson-" + version ".tar.gz")) + (sha256 + (base32 + "05abywx1nrcaz0nqzfy4zw62bc5qd7pdfnjvv4drxkwv084ha8rj")))) + (build-system haskell-build-system) + (inputs + `(("ghc-timezone-series" ,ghc-timezone-series) + ("ghc-extensible-exceptions" ,ghc-extensible-exceptions))) + (home-page "https://archives.haskell.org/projects.haskell.org/time-ng/") + (synopsis "Parser and renderer for binary Olson timezone files") + (description + "A parser and renderer for binary Olson timezone files whose format +is specified by the tzfile(5) man page on Unix-like systems. For more +information about this format, see +@url{http://www.iana.org/time-zones/repository/tz-link.html}. Functions +are provided for converting the parsed data into @code{TimeZoneSeries} +objects from the timezone-series package.") + (license license:bsd-3))) + (define-public ghc-tldr (package (name "ghc-tldr") - (version "0.4.0.1") + (version "0.4.0.2") (source (origin (method url-fetch) @@ -10450,7 +11680,7 @@ used CPU time of monadic computation with an IO base.") ".tar.gz")) (sha256 (base32 - "0nc581y9jjzwd8l88g48c72mla7k6q1w102akl7gl5jsk9ljamd3")))) + "1zy9yyg7bxiyz1prkvrscggsb9p0f8y0nqxxxzlgzvnh2nmqf8f2")))) (build-system haskell-build-system) (inputs `(("ghc-cmark" ,ghc-cmark) @@ -10498,7 +11728,7 @@ compatibility to run on old versions of the platform.") (define-public ghc-transformers-compat (package (name "ghc-transformers-compat") - (version "0.6.2") + (version "0.6.5") (source (origin (method url-fetch) @@ -10507,7 +11737,7 @@ compatibility to run on old versions of the platform.") "/transformers-compat-" version ".tar.gz")) (sha256 (base32 - "1gp4a8kvniwgm8947ghb4iwv4b7wd6ry4kvv4nfnym4agf5j41nw")))) + "02v2fjbvcrlpvhcsssap8dy8y9pp95jykrlc5arm39sxa48wyrys")))) (build-system haskell-build-system) (home-page "https://github.com/ekmett/transformers-compat/") (synopsis "Small compatibility shim between transformers 0.3 and 0.4") @@ -10520,7 +11750,7 @@ but also need those types.") (define-public ghc-tree-diff (package (name "ghc-tree-diff") - (version "0.0.1") + (version "0.1") (source (origin (method url-fetch) @@ -10530,26 +11760,15 @@ but also need those types.") ".tar.gz")) (sha256 (base32 - "049v44c520jy3icxlnrvbdblh3mjmvd7m6qmkzxbzkf02x63xqmz")))) + "1156nbqn0pn9lp4zjsy4vv5g5wmy4zxwmbqdgvq349rydynh3ng3")))) (build-system haskell-build-system) - (arguments - `(#:cabal-revision - ("4" "1rqxxyj6hqllahs11693g855cxz8mgnb490s7j1ksd300i5xgjsp") - #:phases - (modify-phases %standard-phases - (add-before 'configure 'update-constraints - (lambda _ - (substitute* "tree-diff.cabal" - (("trifecta >=1\\.7\\.1\\.1 && <1\\.8") - "trifecta >=1.7.1.1 && <=2"))))))) (inputs `(("ghc-aeson" ,ghc-aeson) ("ghc-ansi-wl-pprint" ,ghc-ansi-wl-pprint) ("ghc-ansi-terminal" ,ghc-ansi-terminal) ("ghc-base-compat" ,ghc-base-compat) - ("ghc-generics-sop" ,ghc-generics-sop) + ("ghc-bytestring-builder" ,ghc-bytestring-builder) ("ghc-hashable" ,ghc-hashable) - ("ghc-memotrie" ,ghc-memotrie) ("ghc-parsers" ,ghc-parsers) ("ghc-quickcheck" ,ghc-quickcheck) ("ghc-scientific" ,ghc-scientific) @@ -10587,7 +11806,10 @@ compute the difference between arbitrary abstract datatypes (ADTs) using (base32 "0hznd8i65s81xy13i2qc7cvipw3lfb2yhkv53apbdsh6sbljz5sk")))) (build-system haskell-build-system) - (arguments `(#:tests? #f)) ; doctest suite fails to build on i686 + (arguments + `(#:tests? #f ; doctest suite fails to build on i686 + #:cabal-revision + ("4" "0xbwyvwl6f2zylk60f2akwgq03qv49113xil7b1z1s3vlwbn5aj1"))) (inputs `(("ghc-reducers" ,ghc-reducers) ("ghc-semigroups" ,ghc-semigroups) @@ -10640,7 +11862,7 @@ statically known size.") (define-public ghc-typed-process (package (name "ghc-typed-process") - (version "0.2.3.0") + (version "0.2.6.0") (source (origin (method url-fetch) @@ -10649,10 +11871,11 @@ statically known size.") version ".tar.gz")) (sha256 (base32 - "0j36vrc9w841m5qbwqra1lwiznx31xfnhin1sm8x2c2739csbpn0")))) + "1cf2pfym8zdxvvy7xv72ixj7wy3rjrdss6f57k1ysgs66cgsi8ii")))) (build-system haskell-build-system) (inputs - `(("ghc-async" ,ghc-async))) + `(("ghc-async" ,ghc-async) + ("ghc-unliftio-core" ,ghc-unliftio-core))) (native-inputs `(("ghc-base64-bytestring" ,ghc-base64-bytestring) ("ghc-hspec" ,ghc-hspec) @@ -10738,6 +11961,32 @@ unbounded @code{Integer} type.") handled safely, this is what you're left with.") (license license:isc))) +(define-public ghc-unicode-transforms + (package + (name "ghc-unicode-transforms") + (version "0.3.6") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "unicode-transforms/unicode-transforms-" + version ".tar.gz")) + (sha256 + (base32 + "1akscvyssif4hki3g6hy0jmjyr8cqly1whzvzj0km2b3qh0x09l3")))) + (build-system haskell-build-system) + (inputs + `(("ghc-bitarray" ,ghc-bitarray))) + (native-inputs + `(("ghc-quickcheck" ,ghc-quickcheck) + ("ghc-getopt-generics" ,ghc-getopt-generics) + ("ghc-split" ,ghc-split))) + (home-page "https://github.com/composewell/unicode-transforms") + (synopsis "Unicode normalization") + (description "This library provides tools for fast Unicode 12.1.0 +normalization in Haskell (normalization forms C, KC, D, and KD).") + (license license:bsd-3))) + (define-public ghc-union-find (package (name "ghc-union-find") @@ -10792,7 +12041,7 @@ work, but is substantially simpler and faster.") (define-public ghc-unix-compat (package (name "ghc-unix-compat") - (version "0.5.1") + (version "0.5.2") (source (origin (method url-fetch) @@ -10802,7 +12051,7 @@ work, but is substantially simpler and faster.") ".tar.gz")) (sha256 (base32 - "0llwl7rp63fy2ychwdclz1afj45pbin5pfl01dvn6rwhvmwhr7d3")))) + "1a8brv9fax76b1fymslzyghwa6ma8yijiyyhn12msl3i5x24x6k5")))) (build-system haskell-build-system) (home-page "https://github.com/jystic/unix-compat") @@ -10816,7 +12065,7 @@ isn't available, portable implementations are used.") (define-public ghc-unix-time (package (name "ghc-unix-time") - (version "0.3.8") + (version "0.4.7") (source (origin (method url-fetch) @@ -10826,7 +12075,7 @@ isn't available, portable implementations are used.") ".tar.gz")) (sha256 (base32 - "051slgpid5cxiaw203ky0ql3823h28fcjs08axkzd4265wrvv8fw")))) + "02fyh298lm8jsg52i3z0ikazwz477ljqjmhnqr2d88grmn5ky8qr")))) (build-system haskell-build-system) (arguments `(#:tests? #f)) ; FIXME: Test fails with "System.Time not found". This @@ -10843,7 +12092,7 @@ for Unix time in Haskell.") (define-public ghc-unliftio (package (name "ghc-unliftio") - (version "0.2.7.0") + (version "0.2.12") (source (origin (method url-fetch) @@ -10853,7 +12102,7 @@ for Unix time in Haskell.") ".tar.gz")) (sha256 (base32 - "0qql93lq5w7qghl454cc3s1i8v1jb4h08n82fqkw0kli4g3g9njs")))) + "02gy1zrxgzg4xmzm8lafsf1nyr3as1q20r8ld73xg3q7rkag9acg")))) (build-system haskell-build-system) (arguments `(#:tests? #f)) ; FIXME: hspec-discover not in PATH (inputs @@ -10871,7 +12120,7 @@ working with it.") (define-public ghc-unliftio-core (package (name "ghc-unliftio-core") - (version "0.1.1.0") + (version "0.1.2.0") (source (origin (method url-fetch) @@ -10880,11 +12129,11 @@ working with it.") "unliftio-core-" version ".tar.gz")) (sha256 (base32 - "1193fplsjm1lcr05xwvkj1rsyzx74i755f6kw3ikmxbsv0bv0l3m")))) + "0y3siyx3drkw7igs380a87h8qfbbgcyxxlcnshp698hcc4yqphr4")))) (build-system haskell-build-system) (arguments `(#:cabal-revision - ("1" "16bjwcsaghqqmyi69rq65dn3ydifyfaabq3ns37apdm00mwqbcj2"))) + ("2" "0jqrjjbgicx48wzcjxs1xmih48ay79rhmrz6081dldlfxynli6vz"))) (home-page "https://github.com/fpco/unliftio/tree/master/unliftio-core#readme") (synopsis "The MonadUnliftIO typeclass for unlifting monads to IO") @@ -10896,7 +12145,7 @@ functions.") (define-public ghc-unordered-containers (package (name "ghc-unordered-containers") - (version "0.2.9.0") + (version "0.2.10.0") (outputs '("out" "doc")) (source (origin @@ -10906,7 +12155,7 @@ functions.") "/unordered-containers-" version ".tar.gz")) (sha256 (base32 - "0l4264p0av12cc6i8gls13q8y27x12z2ar4x34n3x59y99fcnc37")))) + "0wy5hfrs880hh8hvp648bl07ws777n3kkmczzdszr7papnyigwb5")))) (build-system haskell-build-system) (inputs `(("ghc-chasingbottoms" ,ghc-chasingbottoms) @@ -10965,7 +12214,7 @@ a style ready for qualification, that is, you should import them by (define-public ghc-uri-bytestring (package (name "ghc-uri-bytestring") - (version "0.3.2.0") + (version "0.3.2.2") (source (origin (method url-fetch) @@ -10974,22 +12223,19 @@ a style ready for qualification, that is, you should import them by "uri-bytestring-" version ".tar.gz")) (sha256 (base32 - "1q04j5ybvk37zk2m0bkjwyhblz0ymdj0cn4rvsvdca1ikn5xdv5c")))) + "0spzv3mwlpxiamd7347sxwcy2xri16ak1y7p1v4fisnvq4jprm67")))) (build-system haskell-build-system) (inputs `(("ghc-attoparsec" ,ghc-attoparsec) - ("ghc-fail" ,ghc-fail) ("ghc-blaze-builder" ,ghc-blaze-builder) ("ghc-th-lift-instances" ,ghc-th-lift-instances))) - (native-inputs `(("ghc-attoparsec" ,ghc-attoparsec) - ("ghc-hunit" ,ghc-hunit) - ("ghc-quickcheck" ,ghc-quickcheck) + (native-inputs `(("ghc-hunit" ,ghc-hunit) ("ghc-tasty" ,ghc-tasty) ("ghc-tasty-hunit" ,ghc-tasty-hunit) - ("ghc-tasty-quickcheck" ,ghc-tasty-quickcheck) + ("ghc-hedgehog" ,ghc-hedgehog) + ("ghc-tasty-hedgehog" ,ghc-tasty-hedgehog) ("ghc-base-compat" ,ghc-base-compat) - ("ghc-quickcheck-instances" ,ghc-quickcheck-instances) ("ghc-semigroups" ,ghc-semigroups) - ("ghc-generics-sop" ,ghc-generics-sop))) + ("ghc-safe" ,ghc-safe))) (home-page "https://github.com/Soostone/uri-bytestring") (synopsis "Haskell URI parsing as ByteStrings") (description "This Haskell package aims to be an RFC3986 compliant URI @@ -11126,7 +12372,7 @@ functions.") (define-public ghc-validation (package (name "ghc-validation") - (version "1") + (version "1.1") (source (origin (method url-fetch) @@ -11136,11 +12382,11 @@ functions.") ".tar.gz")) (sha256 (base32 - "08drmdvyzg2frbb26icy1mlz52xv0l6gi3v8gb7xp0vrcci5libh")))) + "1acj7mh3581ks405xswxw6667z7y1y0slisg6jvp6chc191ji9l5")))) (build-system haskell-build-system) (arguments `(#:cabal-revision - ("1" "1x1g4nannz81j1h64l1m3ancc96zc57d1bjhj1wk7bwn1xxbi5h3"))) + ("1" "1rrjg9z399k6pb55nv85mlr5bkmdqbjwkvl1cy7ydccdx6ks4syp"))) (inputs `(("ghc-semigroups" ,ghc-semigroups) ("ghc-semigroupoids" ,ghc-semigroupoids) @@ -11173,7 +12419,7 @@ example of, \"An applicative functor that is not a monad.\"") (define-public ghc-validity (package (name "ghc-validity") - (version "0.7.0.0") + (version "0.9.0.2") (source (origin (method url-fetch) @@ -11183,7 +12429,7 @@ example of, \"An applicative functor that is not a monad.\"") ".tar.gz")) (sha256 (base32 - "0xribw98amafihw87ddajk6vlirp7w9b26lrnjgq7jfm4710j95f")))) + "1aa93lp1pqwv7vhx19nazlig8qhbp3psblbz360s5lii3s5rli2v")))) (build-system haskell-build-system) (native-inputs `(("ghc-hspec" ,ghc-hspec) ("hspec-discover" ,hspec-discover))) @@ -11199,7 +12445,7 @@ explicit by providing a function to check whether the invariants hold.") (define-public ghc-vault (package (name "ghc-vault") - (version "0.3.1.2") + (version "0.3.1.3") (source (origin (method url-fetch) @@ -11209,12 +12455,12 @@ explicit by providing a function to check whether the invariants hold.") ".tar.gz")) (sha256 (base32 - "072mbrihsdsb8c6xvg6lvk0rqjgvxvi8qkg4n6wwym5hq0pfa04y")))) + "0vdm472vn734xa27jjm2mjacl37mxiqaaahvm4hzqjgyh4cqq377")))) (build-system haskell-build-system) (inputs `(("ghc-unordered-containers" ,ghc-unordered-containers) ("ghc-hashable" ,ghc-hashable) - ("ghc-semigroupoids" ,ghc-semigroupoids))) + ("ghc-semigroups" ,ghc-semigroups))) (home-page "https://github.com/HeinrichApfelmus/vault") (synopsis "Persistent store for arbitrary values") @@ -11229,7 +12475,7 @@ representing a store for a single element.") (define-public ghc-vector (package (name "ghc-vector") - (version "0.12.0.1") + (version "0.12.0.3") (outputs '("out" "doc")) (source (origin @@ -11240,14 +12486,12 @@ representing a store for a single element.") ".tar.gz")) (sha256 (base32 - "0yrx2ypiaxahvaz84af5bi855hd3107kxkbqc8km29nsp5wyw05i")))) + "1a756s4w759ji3als5alfxwlckh5zcmykfg9rll4mlr2knzvz8mq")))) (build-system haskell-build-system) ;; FIXME: To simplify upgrading all Haskell packages, we leave the tests ;; disabled for now. (arguments - `(#:cabal-revision - ("3" "0y5rh8k710i2a3p1h2rghvr5cfg78p5h0kbfi7ifxqqf6pzlyr1x") - #:tests? #f)) + `(#:tests? #f)) (inputs `(("ghc-primitive" ,ghc-primitive) ("ghc-random" ,ghc-random) @@ -11267,7 +12511,7 @@ optimisation framework.") (define-public ghc-vector-algorithms (package (name "ghc-vector-algorithms") - (version "0.7.0.4") + (version "0.8.0.1") (source (origin (method url-fetch) @@ -11276,7 +12520,7 @@ optimisation framework.") "vector-algorithms-" version ".tar.gz")) (sha256 (base32 - "0mfa8ig9v69l41p2vb5jl4qmaln5y1rlzarr2mlgm8g1nvq8qqdg")))) + "1zip8r7hh5g12xrjvhbg38z6hfxy7l6h6pl88qcqc0ygdmwdxg0m")))) (build-system haskell-build-system) (inputs `(("ghc-vector" ,ghc-vector))) @@ -11290,7 +12534,7 @@ optimisation framework.") (define-public ghc-vector-binary-instances (package (name "ghc-vector-binary-instances") - (version "0.2.4") + (version "0.2.5.1") (source (origin (method url-fetch) @@ -11300,11 +12544,8 @@ optimisation framework.") version ".tar.gz")) (sha256 (base32 - "1y236jb72iab9ska1mc48z6yb0xgwmj45laaqdyjxksd84z7hbrb")))) + "04n5cqm1v95pw1bp68l9drjkxqiy2vswxdq0fy1rqcgxisgvji9r")))) (build-system haskell-build-system) - (arguments - `(#:cabal-revision - ("1" "196frl4akhfk7xf1nxzn8lmq99dxhzhsimanswn9yy7ym8zhki4i"))) (inputs `(("ghc-vector" ,ghc-vector))) (native-inputs @@ -11322,7 +12563,7 @@ boxed and storable vectors.") (define-public ghc-vector-builder (package (name "ghc-vector-builder") - (version "0.3.6") + (version "0.3.8") (source (origin (method url-fetch) @@ -11331,7 +12572,7 @@ boxed and storable vectors.") "vector-builder-" version ".tar.gz")) (sha256 (base32 - "06d2pa1fb3ydrl7l6rjazqyxv5i73v65x2f5fp0ypjxfbm6jsmn8")))) + "0ww0l52p8s6gmh985adnjbvm1vrqpqbm08qdcrvxwhhcqmxgv6m3")))) (build-system haskell-build-system) (inputs `(("ghc-vector" ,ghc-vector) ("ghc-semigroups" ,ghc-semigroups) @@ -11357,7 +12598,7 @@ vector. ") (define-public ghc-vector-th-unbox (package (name "ghc-vector-th-unbox") - (version "0.2.1.6") + (version "0.2.1.7") (source (origin (method url-fetch) @@ -11366,7 +12607,7 @@ vector. ") "vector-th-unbox-" version ".tar.gz")) (sha256 (base32 - "0d82x55f5vvr1jvaia382m23rs690lg55pvavv8f4ph0y6kd91xy")))) + "0q8dqnbv1c2gi7jjdhqj14abj1vik23ki6lq4iz2sz18yc7q69fi")))) (build-system haskell-build-system) (inputs `(("ghc-vector" ,ghc-vector) @@ -11381,7 +12622,7 @@ and from some existing type with an Unbox instance.") (define-public ghc-void (package (name "ghc-void") - (version "0.7.2") + (version "0.7.3") (source (origin (method url-fetch) @@ -11391,7 +12632,7 @@ and from some existing type with an Unbox instance.") ".tar.gz")) (sha256 (base32 - "0aygw0yb1h3yhmfl3bkwh5d3h0l4mmsxz7j53vdm6jryl1kgxzyk")))) + "05vk3x1r9a2pqnzfji475m5gdih2im1h7rbi2sc67p1pvj6pbbsk")))) (build-system haskell-build-system) (inputs `(("ghc-semigroups" ,ghc-semigroups) @@ -11407,7 +12648,7 @@ given term should not exist.") (define-public ghc-wave (package (name "ghc-wave") - (version "0.1.5") + (version "0.2.0") (source (origin (method url-fetch) (uri (string-append @@ -11416,7 +12657,7 @@ given term should not exist.") ".tar.gz")) (sha256 (base32 - "03zycmwrchhqvi37fdvlzz2d1vl4hy0i8xyys1zznw38qfq0h2i5")))) + "149kgwngq3qxc7gxpkqb16j669j0wpv2f3gnvfwp58yg6m4259ki")))) (build-system haskell-build-system) (arguments '(#:phases @@ -11479,7 +12720,7 @@ widths to the Char type.") (define-public ghc-weigh (package (name "ghc-weigh") - (version "0.0.12") + (version "0.0.14") (source (origin (method url-fetch) @@ -11487,7 +12728,7 @@ widths to the Char type.") "weigh-" version ".tar.gz")) (sha256 (base32 - "0zw2a997gxgdzqmd7j730kxgynzmjvvlkw84dajmfzf1v9pbij7x")))) + "0l85marb5rl9nr1c0id42dnr5i9fk1jciy5h6lywhb34w3hbj61g")))) (build-system haskell-build-system) (inputs `(("ghc-split" ,ghc-split) @@ -11597,14 +12838,14 @@ modernized interface.") (define-public ghc-x11 (package (name "ghc-x11") - (version "1.9") + (version "1.9.1") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/X11/" "X11-" version ".tar.gz")) (sha256 - (base32 "1f8dy6ckkyvpcv7zlniyv01cqjb9lgqscm8pml58cvwc7n38w4qh")))) + (base32 "0gg6852mrlgl8zng1j84fismz7k81jr5fk92glgkscf8q6ryg0bm")))) (build-system haskell-build-system) (inputs `(("libx11" ,libx11) @@ -11740,18 +12981,15 @@ documents.") (define-public ghc-yaml (package (name "ghc-yaml") - (version "0.8.32") + (version "0.11.1.2") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" "yaml/yaml-" version ".tar.gz")) (sha256 (base32 - "0cbsyh4ilvjzq1q7pxls43k6pdqxg1l85xzibcwpbvmlvrizh86w")))) + "028pz77n92l6kjgjv263h4b6yhw1iibdbf3a3dkn5qnz537xpzhc")))) (build-system haskell-build-system) - ;; The tests are broken on i686. They are fixed in 0.10.3.0. - ;; See https://github.com/snoyberg/yaml/issues/158 - (arguments `(#:tests? #f)) (inputs `(("ghc-conduit" ,ghc-conduit) ("ghc-resourcet" ,ghc-resourcet) @@ -11763,12 +13001,14 @@ documents.") ("ghc-semigroups" ,ghc-semigroups) ("ghc-temporary" ,ghc-temporary) ("ghc-enclosed-exceptions" ,ghc-enclosed-exceptions) - ("ghc-base-compat" ,ghc-base-compat))) + ("ghc-base-compat" ,ghc-base-compat) + ("ghc-libyaml" ,ghc-libyaml))) (native-inputs `(("ghc-hspec" ,ghc-hspec) ("ghc-hunit" ,ghc-hunit) ("hspec-discover" ,hspec-discover) - ("ghc-mockery" ,ghc-mockery))) + ("ghc-mockery" ,ghc-mockery) + ("ghc-raw-strings-qq" ,ghc-raw-strings-qq))) (home-page "https://github.com/snoyberg/yaml/") (synopsis "Parsing and rendering YAML documents") (description @@ -11778,7 +13018,7 @@ documents.") (define-public ghc-zip-archive (package (name "ghc-zip-archive") - (version "0.3.3") + (version "0.4.1") (source (origin (method url-fetch) @@ -11788,15 +13028,26 @@ documents.") ".tar.gz")) (sha256 (base32 - "0kf8xyac168bng8a0za2jwrbss7a4ralvci9g54hnvl0gkkxx2lq")))) + "1cdix5mnxrbs7b2kivhdydhfzgxidd9dqlw71mdw5p21cabwkmf5")))) (build-system haskell-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'check 'set-PATH-for-tests + (lambda* (#:key inputs #:allow-other-keys) + (let ((unzip (assoc-ref inputs "unzip")) + (which (assoc-ref inputs "which")) + (path (getenv "PATH"))) + (setenv "PATH" (string-append unzip "/bin:" which "/bin:" path)) + #t)))))) (inputs `(("ghc-digest" ,ghc-digest) ("ghc-temporary" ,ghc-temporary) ("ghc-zlib" ,ghc-zlib))) (native-inputs `(("ghc-hunit" ,ghc-hunit) - ("unzip" ,unzip))) + ("unzip" ,unzip) + ("which" ,which))) (home-page "https://hackage.haskell.org/package/zip-archive") (synopsis "Zip archive library for Haskell") (description "The zip-archive library provides functions for creating, @@ -11806,7 +13057,7 @@ modifying, and extracting files from zip archives in Haskell.") (define-public ghc-zlib (package (name "ghc-zlib") - (version "0.6.2") + (version "0.6.2.1") (outputs '("out" "doc")) (source (origin @@ -11817,7 +13068,7 @@ modifying, and extracting files from zip archives in Haskell.") ".tar.gz")) (sha256 (base32 - "1vbzf0awb6zb456xf48za1kl22018646cfzq4frvxgb9ay97vk0d")))) + "1l11jraslcrp9d4wnhwfyhwk4fsiq1aq8i6vj81vcq1m2zzi1y7h")))) (build-system haskell-build-system) (arguments `(#:phases @@ -11872,3 +13123,28 @@ provides access to the full zlib feature set.") (description "This package provides low-level bindings to the @code{zlib} package.") (license license:bsd-3))) + +(define-public ghc-zstd + (package + (name "ghc-zstd") + (version "0.1.1.2") + (source + (origin + (method url-fetch) + (uri (string-append "https://hackage.haskell.org/package/" + "zstd/zstd-" version ".tar.gz")) + (sha256 + (base32 + "147s496zvw13akxqzg65mgfvk3bvhrcilxgf8n786prxg5cm4jz2")))) + (build-system haskell-build-system) + (native-inputs + `(("ghc-quickcheck" ,ghc-quickcheck) + ("ghc-test-framework" ,ghc-test-framework) + ("ghc-test-framework-quickcheck2" ,ghc-test-framework-quickcheck2))) + (home-page "https://github.com/luispedro/hs-zstd") + (synopsis "Haskell bindings to the Zstandard compression algorithm") + (description "This library provides Haskell bindings to the +Zstandard compression algorithm, a fast lossless compression algorithm +targeting real-time compression scenarios at zlib-level and better +compression ratios.") + (license license:bsd-3))) diff --git a/gnu/packages/haskell.scm b/gnu/packages/haskell.scm index d86daa52c5..8db650e6ae 100644 --- a/gnu/packages/haskell.scm +++ b/gnu/packages/haskell.scm @@ -604,7 +604,7 @@ interactive environment for the functional language Haskell.") (file-pattern ".*\\.conf\\.d$") (file-type 'directory)))))) -(define-public ghc-8 ghc-8.4) +(define-public ghc-8 ghc-8.6) (define-public ghc ghc-8) diff --git a/gnu/packages/idris.scm b/gnu/packages/idris.scm index 7e6ee302b0..4c6c5e1aef 100644 --- a/gnu/packages/idris.scm +++ b/gnu/packages/idris.scm @@ -70,8 +70,8 @@ ("ghc-fsnotify" ,ghc-fsnotify) ("ghc-ieee754" ,ghc-ieee754) ("ghc-libffi" ,ghc-libffi) - ("ghc-megaparsec" ,ghc-megaparsec-7) - ("ghc-network" ,ghc-network-2.8) + ("ghc-megaparsec" ,ghc-megaparsec) + ("ghc-network" ,ghc-network) ("ghc-optparse-applicative" ,ghc-optparse-applicative) ("ghc-regex-tdfa" ,ghc-regex-tdfa) ("ghc-safe" ,ghc-safe) @@ -90,6 +90,11 @@ "-fFFI" "-fGMP") #:phases (modify-phases %standard-phases + (add-after 'unpack 'update-constraints + (lambda _ + (substitute* "idris.cabal" + (("ansi-terminal < 0\\.9") "ansi-terminal < 0.10")) + #t)) (add-before 'configure 'set-cc-command (lambda _ (setenv "CC" "gcc") diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 242918caad..32cacd7511 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -184,31 +184,31 @@ defconfig. Return the appropriate make target if applicable, otherwise return (define deblob-scripts-5.3 (linux-libre-deblob-scripts - "5.3.6" + "5.3.11" (base32 "15n09zq38d69y1wl28s3nasf3377qp2yil5b887zpqrm00dif7i4") - (base32 "0nrimraf46nf6y1hwkg29fyl0a83wnj0mwq54ggxvffn9gk5h9pa"))) + (base32 "1xk3gzgnl9m29avka32zkggl36sdxyvps40hr12hjy42l1ysfshm"))) (define deblob-scripts-4.19 (linux-libre-deblob-scripts - "4.19.79" + "4.19.84" (base32 "02zs405awaxydbapka4nz8h6lmnc0dahgczqsrs5s2bmzjyyqkcy") - (base32 "1fyacg28aym6virxyn7wk99qil2fjbks3iwm7p3hxy51pccn34za"))) + (base32 "1s89hmy4ihd65by2p1xxkxj476f6c9s5g9r9yvqncb50xlhilk50"))) (define deblob-scripts-4.14 (linux-libre-deblob-scripts - "4.14.149" + "4.14.154" (base32 "091jk9jkn9jf39bxpc7395bhcb7p96nkg3a8047380ki06lnfxh6") - (base32 "0x9nd3hnyrm753cbgdqmy92mbnyw86w64g4hvyibnkpq5n7s3z9n"))) + (base32 "1pcsfzpcv3bs30iyhwpk1x64r0gyv7wi22spnq6avzj1ayva10kw"))) (define deblob-scripts-4.9 (linux-libre-deblob-scripts - "4.9.196" + "4.9.201" (base32 "1wvldzlv7q2xdbadas87dh593nxr4a8p5n0f8zpm72lja6w18hmg") (base32 "0is8gn4qdd7h5l6lacvhqdch26lmrbgxfm8ab7fx8n85ha7y358w"))) (define deblob-scripts-4.4 (linux-libre-deblob-scripts - "4.4.196" + "4.4.201" (base32 "0x2j1i88am54ih2mk7gyl79g25l9zz4r08xhl482l3fvjj2irwbw") (base32 "12ac4g3ky8yma8sylmxvvysqvd4hnaqjiwmxrxb6wlxggfd7zkbx"))) @@ -352,42 +352,42 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS." "linux-" version ".tar.xz")) (sha256 hash))) -(define-public linux-libre-5.3-version "5.3.11") +(define-public linux-libre-5.3-version "5.3.12") (define-public linux-libre-5.3-pristine-source (let ((version linux-libre-5.3-version) - (hash (base32 "1dxfh0l4inpjd17pyxfsskjsphs43r8lg6nhhr3y4whxdna5cwbf"))) + (hash (base32 "184pmjyqh4bkrc3vj65zn6xnljzv9d1x7c1z0hlgj6fakpwgdgsk"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-5.3))) -(define-public linux-libre-4.19-version "4.19.84") +(define-public linux-libre-4.19-version "4.19.85") (define-public linux-libre-4.19-pristine-source (let ((version linux-libre-4.19-version) - (hash (base32 "0q06mhz170x1lkx6c6qdh82rcnsj03q6f2m28aqhmc4wc694m2w6"))) + (hash (base32 "1dsgbys73jga5h0a9icgif6qbi31g84315zlcdid9bzf1abkbx3v"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-4.19))) -(define-public linux-libre-4.14-version "4.14.154") +(define-public linux-libre-4.14-version "4.14.155") (define-public linux-libre-4.14-pristine-source (let ((version linux-libre-4.14-version) - (hash (base32 "00q662s8mgnzqfgk5gkzqfv9ws3vryf28blbq1zxcy4s6wj4mpl6"))) + (hash (base32 "10g4493ldc398qza304z5yz8qdp93w7a2bs5h5dwk0bbamwikmkp"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-4.14))) -(define-public linux-libre-4.9-version "4.9.201") +(define-public linux-libre-4.9-version "4.9.202") (define-public linux-libre-4.9-pristine-source (let ((version linux-libre-4.9-version) - (hash (base32 "125xmh5h1zmfniidpjljny53qkl4phpxaali69i66lajscxx8grq"))) + (hash (base32 "1gsfbvsswpwj6r56ynb6mmx7dc8hp9yhi7sfr0hhii0gs4ffq241"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-4.9))) -(define-public linux-libre-4.4-version "4.4.201") +(define-public linux-libre-4.4-version "4.4.202") (define-public linux-libre-4.4-pristine-source (let ((version linux-libre-4.4-version) - (hash (base32 "120kci4kmc48zcw16lhxmh71kaxm9ac5qxik36q3a20czg28b2m7"))) + (hash (base32 "0adrmps7izfqy0yn4440isxvigslwzk1a375r9kh86idwbmcxb7x"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-4.4))) @@ -679,23 +679,26 @@ for ARCH and optionally VARIANT, or #f if there is no such configuration." #t)) (replace 'configure (lambda* (#:key inputs native-inputs target #:allow-other-keys) - ;; Unset CROSS_CPATH to make sure that cross-libc is not - ;; found. Otherwise, some of its header would conflict with the - ;; one from linux (stdint.h and linux/types.h) - ,@(if (%current-target-system) - '((unsetenv "CROSS_CPATH")) - '()) - - ;; On AArch64 (at least), we need to remove glibc headers from CPATH - ;; (they are still available as "system headers"), so that the kernel - ;; can override uint64_t. See <https://bugs.gnu.org/37593>. - (setenv "CPATH" - (string-join - (remove (cut string-prefix? (assoc-ref inputs "libc") <>) - (string-split (getenv "CPATH") #\:)) - ":")) - (format #t "environment variable `CPATH' changed to `~a'~%" - (getenv "CPATH")) + ;; On AArch64 (at least), we need to remove glibc headers from + ;; CPATH (they are still available as "system headers"), so that + ;; the kernel can override uint64_t. See + ;; <https://bugs.gnu.org/37593>. This is also true when + ;; cross-compiling, except in that case, cross-libc must be + ;; removed from CROSS_CPATH. + (let ((var ,(if (%current-target-system) + "CROSS_CPATH" + "CPATH")) + (libc ,(if (%current-target-system) + "cross-libc" + "libc"))) + (setenv var + (string-join + (remove + (cut string-prefix? (assoc-ref inputs libc) <>) + (string-split (getenv var) #\:)) + ":")) + (format #t "environment variable `~a' changed to `~a'~%" + var (getenv var))) ;; Avoid introducing timestamps (setenv "KCONFIG_NOTIMESTAMP" "1") @@ -4783,7 +4786,7 @@ of flash storage.") (define-public libseccomp (package (name "libseccomp") - (version "2.4.1") + (version "2.4.2") (source (origin (method url-fetch) (uri (string-append "https://github.com/seccomp/libseccomp/" @@ -4791,7 +4794,7 @@ of flash storage.") "/libseccomp-" version ".tar.gz")) (sha256 (base32 - "1s06h2cgk0xxwmhwj72z33bllafc1xqnxzk2yyra2rmg959778qw")))) + "0nsq81acrbkdr8zairxbwa33bj2a6126npp76b4srjl472sjfkxm")))) (build-system gnu-build-system) (native-inputs `(("which" ,which))) diff --git a/gnu/packages/llvm.scm b/gnu/packages/llvm.scm index 33fb53d65e..082e6e96ca 100644 --- a/gnu/packages/llvm.scm +++ b/gnu/packages/llvm.scm @@ -11,6 +11,8 @@ ;;; Copyright © 2018 Tim Gesthuizen <tim.gesthuizen@yahoo.de> ;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz> ;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com> +;;; Copyright © 2019 Arm Ltd <David.Truby@arm.com> +;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -37,7 +39,9 @@ #:use-module (guix build-system cmake) #:use-module (guix build-system emacs) #:use-module (guix build-system python) + #:use-module (guix build-system trivial) #:use-module (gnu packages) + #:use-module (gnu packages base) #:use-module (gnu packages gcc) #:use-module (gnu packages bootstrap) ;glibc-dynamic-linker #:use-module (gnu packages compression) @@ -202,6 +206,7 @@ compiler. In LLVM this library is called \"compiler-rt\".") (lambda* (#:key inputs #:allow-other-keys) (let ((libc (assoc-ref inputs "libc")) (compiler-rt (assoc-ref inputs "clang-runtime")) + (gcc (assoc-ref inputs "gcc")) (version (string->number ,(version-major (package-version clang-runtime))))) @@ -218,6 +223,12 @@ compiler. In LLVM this library is called \"compiler-rt\".") (("(^[[:blank:]]+LibDir = ).*" _ declaration) (string-append declaration "\"" libc "/lib\";\n")) + ;; Make clang look for libstdc++ in the right + ;; location. + (("LibStdCXXIncludePathCandidates\\[\\] = \\{") + (string-append + "LibStdCXXIncludePathCandidates[] = { \"" gcc "/include/c++\",")) + ;; Make sure libc's libdir is on the search path, to ;; allow crt1.o & co. to be found. (("@GLIBC_LIBDIR@") @@ -290,6 +301,51 @@ project includes the Clang front end, the Clang static analyzer, and several code analysis tools.") (license license:ncsa))) +(define (make-clang-toolchain clang) + (package + (name (string-append (package-name clang) "-toolchain")) + (version (package-version clang)) + (source #f) + (build-system trivial-build-system) + (arguments + '(#:modules ((guix build union)) + #:builder (begin + (use-modules (ice-9 match) + (srfi srfi-26) + (guix build union)) + + (let ((out (assoc-ref %outputs "out"))) + + (match %build-inputs + (((names . directories) ...) + (union-build out directories))) + + (union-build (assoc-ref %outputs "debug") + (list (assoc-ref %build-inputs + "libc-debug"))) + (union-build (assoc-ref %outputs "static") + (list (assoc-ref %build-inputs + "libc-static"))) + #t)))) + + (native-search-paths (package-native-search-paths clang)) + (search-paths (package-search-paths clang)) + + (license (package-license clang)) + (home-page "https://clang.llvm.org") + (synopsis "Complete Clang toolchain for C/C++ development") + (description "This package provides a complete Clang toolchain for C/C++ +development to be installed in user profiles. This includes Clang, as well as +libc (headers and binaries, plus debugging symbols in the @code{debug} +output), and Binutils.") + (outputs '("out" "debug" "static")) + (inputs `(("clang" ,clang) + ("ld-wrapper" ,(car (assoc-ref (%final-inputs) "ld-wrapper"))) + ("binutils" ,binutils) + ("libc" ,glibc) + ("libc-debug" ,glibc "debug") + ("libc-static" ,glibc "static"))))) + (define-public libcxx (package (name "libcxx") @@ -399,6 +455,34 @@ with that of libgomp, the GNU Offloading and Multi Processing Library.") "0svk1f70hvpwrjp6x5i9kqwrqwxnmcrw5s7f4cxyd100mdd12k08" #:patches '("clang-7.0-libc-search-path.patch"))) +(define-public clang-toolchain + (make-clang-toolchain clang)) + +(define-public llvm-9 + (package + (inherit llvm) + (version "9.0.0") + (source (origin + (method url-fetch) + (uri (string-append "https://llvm.org/releases/" + version "/llvm-" version ".src.tar.xz")) + (sha256 + (base32 + "117ymdz1by2nkfq1c2p9m4050dp848kbjbiv6nsfj8hzy9f5d86n")))) + (license license:asl2.0))) + +(define-public clang-runtime-9 + (clang-runtime-from-llvm + llvm-9 + "03ni43lbkp63lr3p6sc94dphqmvnz5av5mml0xmk930xvnbcvr2n")) + +(define-public clang-9 + (clang-from-llvm llvm-9 clang-runtime-9 + "0426ma80i41qsgzm1qdz81mjskck426diygxi2k5vji2gkpixa3v")) + +(define-public clang-toolchain-9 + (make-clang-toolchain clang-9)) + (define-public llvm-7 (package (inherit llvm) @@ -421,6 +505,9 @@ with that of libgomp, the GNU Offloading and Multi Processing Library.") "067lwggnbg0w1dfrps790r5l6k8n5zwhlsw7zb6zvmfpwpfn4nx4" #:patches '("clang-7.0-libc-search-path.patch"))) +(define-public clang-toolchain-7 + (make-clang-toolchain clang-7)) + (define-public llvm-6 (package (inherit llvm) @@ -443,6 +530,9 @@ with that of libgomp, the GNU Offloading and Multi Processing Library.") "0rxn4rh7rrnsqbdgp4gzc8ishbkryhpl1kd3mpnxzpxxhla3y93w" #:patches '("clang-6.0-libc-search-path.patch"))) +(define-public clang-toolchain-6 + (make-clang-toolchain clang-6)) + ;; Libcxx files specifically used by PySide2. (define-public libcxx-6 (package diff --git a/gnu/packages/markup.scm b/gnu/packages/markup.scm index 6f1f9f6f68..c1fc71b0a2 100644 --- a/gnu/packages/markup.scm +++ b/gnu/packages/markup.scm @@ -1,7 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org> ;;; Copyright © 2015 David Thompson <davet@gnu.org> -;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2016, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017 ng0 <ng0@n0.is> ;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; @@ -40,13 +40,14 @@ (name "hoedown") (version "3.0.7") (source (origin - (method url-fetch) - (uri (string-append "https://github.com/hoedown/hoedown/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/hoedown/hoedown.git") + (commit version))) + (file-name (git-file-name name version)) (sha256 (base32 - "0859dc2xjasd6kgkshi8mb20kbyw5sql1ln0hw3bfaf33qdh5dh1")))) + "1kr3hxjg2dgmwy9738qgj3sh3f5cygx0zxskkfhrg7x19bq9yd26")))) (build-system gnu-build-system) (arguments '(#:make-flags (list "CC=gcc" (string-append "PREFIX=" %output)) @@ -195,15 +196,16 @@ implementation. (define-public cmark (package (name "cmark") - (version "0.28.3") + (version "0.29.0") (source (origin - (method url-fetch) - (uri (string-append "https://github.com/jgm/cmark/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/jgm/cmark.git") + (commit version))) + (file-name (git-file-name name version)) (sha256 (base32 - "1z71pacl3ni1286c206pl8lazbcd32ackivsg3zibdf1sf2qdjdc")))) + "0r7jpqhgnssq444i8pwji2g36058vfzwkl70wbiwj13h4w5rfc8f")))) (build-system cmake-build-system) (arguments '(#:test-target "test")) diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm index d83e3a30be..9c576ee648 100644 --- a/gnu/packages/maths.scm +++ b/gnu/packages/maths.scm @@ -32,6 +32,7 @@ ;;; Copyright © 2018 Amin Bandali <bandali@gnu.org> ;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2019 Steve Sprang <scs@stevesprang.com> +;;; Copyright © 2019 Robert Smith <robertsmith@posteo.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -5227,3 +5228,42 @@ fields of knowledge.") (home-page "http://speedcrunch.org/") (license license:gpl2+))) +(define-public minisat + ;; This is the last commit which is available upstream, no + ;; release happened since 2010. + (let ((commit "37dc6c67e2af26379d88ce349eb9c4c6160e8543") + (revision "1")) + (package + (name "minisat") + (version (string-append "2.2.0-" revision "." (string-take commit 7))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/niklasso/minisat.git") + (commit commit))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "091hf3qkm197s5r7xcr3m07xsdwyz2rqk1hc9kj0hn13imz09irq")) + (patches + (search-patches "minisat-friend-declaration.patch" + "minisat-install.patch")))) + (build-system gnu-build-system) + (arguments + '(#:make-flags (list (string-append "prefix=" %output)) + #:tests? #f ;no check target + #:phases + (modify-phases %standard-phases + (delete 'configure)))) + (inputs + `(("zlib:static" ,zlib "static") + ("zlib" ,zlib))) + (synopsis + "Small, yet efficient, SAT solver") + (description + "MiniSat is a minimalistic, open-source SAT solver, developed to help +researchers and developers alike to get started on SAT.") + (home-page + "http://minisat.se/MiniSat.html") + (license license:expat)))) diff --git a/gnu/packages/messaging.scm b/gnu/packages/messaging.scm index 3f223c2cfe..694dfbb51d 100644 --- a/gnu/packages/messaging.scm +++ b/gnu/packages/messaging.scm @@ -263,7 +263,8 @@ access to servers running the Discord protocol.") version ".tar.xz")) (sha256 (base32 - "064nq151nzsljv97dmkifyl162d2738vbgvm1phx7yv04pjvk4kp")))) + "064nq151nzsljv97dmkifyl162d2738vbgvm1phx7yv04pjvk4kp")) + (patches (search-patches "hexchat-crash-exit.patch")))) (build-system meson-build-system) (native-inputs `(("gettext" ,gettext-minimal) ("perl" ,perl) diff --git a/gnu/packages/mpi.scm b/gnu/packages/mpi.scm index 5fde6efae4..9f6597c6b3 100644 --- a/gnu/packages/mpi.scm +++ b/gnu/packages/mpi.scm @@ -52,7 +52,7 @@ #:use-module (srfi srfi-1) #:use-module (ice-9 match)) -(define-public hwloc +(define-public hwloc-1 ;; Note: For now we keep 1.x as the default because many packages have yet ;; to migrate to 2.0. (package @@ -134,7 +134,7 @@ bind processes, and much more.") (define-public hwloc-2 ;; Note: 2.0 isn't the default yet, see above. (package - (inherit hwloc) + (inherit hwloc-1) (version "2.1.0") (source (origin (method url-fetch) @@ -146,9 +146,9 @@ bind processes, and much more.") "0qh8s7pphz0m5cwb7liqmc17xzfs23xhz5wn24r6ikvjyx99fhhr")))) ;; libnuma is no longer needed. - (inputs (alist-delete "numactl" (package-inputs hwloc))) + (inputs (alist-delete "numactl" (package-inputs hwloc-1))) (arguments - (substitute-keyword-arguments (package-arguments hwloc) + (substitute-keyword-arguments (package-arguments hwloc-1) ((#:phases phases) `(modify-phases ,phases (replace 'skip-linux-libnuma-test @@ -163,6 +163,10 @@ bind processes, and much more.") (define-deprecated hwloc-2.0 'hwloc-2 hwloc-2) +(define-public hwloc + ;; The latest stable series of hwloc. + hwloc-2) + (define-public openmpi (package (name "openmpi") @@ -192,7 +196,7 @@ bind processes, and much more.") `(("psm2" ,psm2)) '()) ,@(if (and (not (%current-target-system)) - (member (%current-system) (package-supported-systems psm2))) + (member (%current-system) (package-supported-systems ucx))) `(("ucx" ,ucx)) '()) ("rdma-core" ,rdma-core) @@ -210,12 +214,6 @@ bind processes, and much more.") "--with-hwloc=external" "--with-libevent" - ;; Make sure ./configure fails if one of these is - ;; missing. - "--with-ucx" - "--with-psm" - "--with-psm2" - ;; InfiniBand support "--enable-openib-control-hdr-padding" "--enable-openib-dynamic-sl" @@ -348,6 +346,15 @@ only provides @code{MPI_THREAD_FUNNELED}."))) ;; Allow oversubscription in case there are less physical cores available ;; in the build environment than the package wants while testing. (setenv "OMPI_MCA_rmaps_base_mapping_policy" "core:OVERSUBSCRIBE") + + ;; UCX sometimes outputs uninteresting warnings such as: + ;; + ;; mpool.c:38 UCX WARN object 0x7ffff44fffc0 was not returned to mpool ucp_am_bufs + ;; + ;; These in turn leads to failures of test suites that capture and + ;; compare stdout, such as that of 'hdf5-parallel-openmpi'. Thus, tell + ;; UCX to not emit those warnings. + (setenv "UCX_LOG_LEVEL" "error") #t)) (define-public intel-mpi-benchmarks diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm index 241ede58d8..2c3b2ff5ff 100644 --- a/gnu/packages/music.scm +++ b/gnu/packages/music.scm @@ -3804,7 +3804,7 @@ audio samples and various soft sythesizers. It can receive input from a MIDI ke (define-public musescore (package (name "musescore") - (version "3.3") + (version "3.3.2") (source (origin (method git-fetch) (uri (git-reference @@ -3813,7 +3813,7 @@ audio samples and various soft sythesizers. It can receive input from a MIDI ke (file-name (git-file-name name version)) (sha256 (base32 - "15ckjwvp3xigjkzmp1ddzvlm4d0vlk9i1axyfxg3hr2sia84yxvi")) + "0r2xhhwv09v8ykgvh38fgpmpcmkra7lvhv7714xp7vb0wpcnh8l3")) (modules '((guix build utils))) (snippet ;; Un-bundle OpenSSL and remove unused libraries. diff --git a/gnu/packages/parallel.scm b/gnu/packages/parallel.scm index 4fc2c9afb4..98721fe1ff 100644 --- a/gnu/packages/parallel.scm +++ b/gnu/packages/parallel.scm @@ -32,6 +32,7 @@ #:use-module (guix build-system gnu) #:use-module (guix build-system python) #:use-module ((guix licenses) #:prefix license:) + #:use-module ((guix utils) #:select (target-64bit?)) #:use-module (guix packages) #:use-module (gnu packages) #:use-module (gnu packages admin) @@ -158,7 +159,11 @@ and they are executed on lists of files, hosts, users or other items.") (string-append "--with-freeipmi=" (assoc-ref %build-inputs "freeipmi")) (string-append "--with-hwloc=" (assoc-ref %build-inputs "hwloc")) (string-append "--with-json=" (assoc-ref %build-inputs "json-c")) - (string-append "--with-munge=" (assoc-ref %build-inputs "munge"))) + (string-append "--with-munge=" (assoc-ref %build-inputs "munge")) + + ;; 32-bit support is marked as deprecated and needs to be + ;; explicitly enabled. + ,@(if (target-64bit?) '() '("--enable-deprecated"))) #:phases (modify-phases %standard-phases (add-after 'unpack 'autoconf diff --git a/gnu/packages/password-utils.scm b/gnu/packages/password-utils.scm index dd4eeba0ac..b3195f8f6b 100644 --- a/gnu/packages/password-utils.scm +++ b/gnu/packages/password-utils.scm @@ -114,7 +114,7 @@ human.") (define-public keepassxc (package (name "keepassxc") - (version "2.5.0") + (version "2.5.1") (source (origin (method url-fetch) @@ -123,7 +123,7 @@ human.") version "-src.tar.xz")) (sha256 (base32 - "10bq2934xqpjpr99wbjg2vwmi73fcq0419cb3v78n2kj5fbwwnb3")))) + "0c5g5hn2cr2m00xgpxg884ihy8gnn09kc487y1m9jywshn5jaczg")))) (build-system cmake-build-system) (arguments '(#:configure-flags '("-DWITH_XC_ALL=YES" diff --git a/gnu/packages/patches/elm-compiler-relax-glsl-bound.patch b/gnu/packages/patches/elm-compiler-relax-glsl-bound.patch deleted file mode 100644 index 3f8be810c2..0000000000 --- a/gnu/packages/patches/elm-compiler-relax-glsl-bound.patch +++ /dev/null @@ -1,19 +0,0 @@ -commit 4c649a5a270aba15cc6a3913c3ad51a293047f40 -Author: Rémi Lefèvre <rlefevre@gmail.com> -Date: Mon Sep 3 19:18:54 2018 +0200 - - update language-glsl maximum version - -diff --git a/elm.cabal b/elm.cabal -index 48aa84f0..464fe9d5 100644 ---- a/elm.cabal -+++ b/elm.cabal -@@ -246,7 +246,7 @@ Executable elm - http-client >= 0.5 && < 0.6, - http-client-tls >= 0.3 && < 0.4, - http-types >= 0.9 && < 1.0, -- language-glsl >= 0.0.2 && < 0.3, -+ language-glsl >= 0.0.2 && < 0.4, - logict, - mtl >= 2.2.1 && < 3, - network >= 2.4 && < 2.7, diff --git a/gnu/packages/patches/ghc-diff-swap-cover-args.patch b/gnu/packages/patches/ghc-diff-swap-cover-args.patch new file mode 100644 index 0000000000..724416ff7a --- /dev/null +++ b/gnu/packages/patches/ghc-diff-swap-cover-args.patch @@ -0,0 +1,20 @@ +The QuickCheck library swapped the order of the arguments of the 'cover' +function in version 2.12. Version 0.3.4 of the Diff library still uses +the old argument order. Swapping the argument order makes Diff work +with newer versions of QuickCheck. + +See <https://github.com/commercialhaskell/stackage/issues/4289> for the +upstream bug report. + +diff -ruN a/test/Test.hs b/test/Test.hs +--- a/test/Test.hs 2016-04-23 01:21:45.000000000 -0400 ++++ b/test/Test.hs 2019-11-01 19:13:04.590770903 -0400 +@@ -134,7 +134,7 @@ + prop_ppDiffR (DiffInput le ri) = + let haskDiff=ppDiff $ getGroupedDiff le ri + utilDiff= unsafePerformIO (runDiff (unlines le) (unlines ri)) +- in cover (haskDiff == utilDiff) 90 "exact match" $ ++ in cover 90 (haskDiff == utilDiff) "exact match" $ + classify (haskDiff == utilDiff) "exact match" + (div ((length haskDiff)*100) (length utilDiff) < 110) -- less than 10% bigger + where diff --git a/gnu/packages/patches/ghc-haddock-api-fix-haddock.patch b/gnu/packages/patches/ghc-haddock-api-fix-haddock.patch new file mode 100644 index 0000000000..927cb5b366 --- /dev/null +++ b/gnu/packages/patches/ghc-haddock-api-fix-haddock.patch @@ -0,0 +1,54 @@ +This patch is taken from upstream. It fixes documentation generation. +The patch has been lightly adapted to apply to the release tarball, but +the commit message was left untouched, so it refers to some changes not +included in the patch. + +From 0d9a81e20238a6b72f9f5c005f1f7e9cf05f6fb9 Mon Sep 17 00:00:00 2001 +From: Alec Theriault <alec.theriault@gmail.com> +Date: Sat, 27 Oct 2018 10:05:04 -0700 +Subject: [PATCH] Fix documentation in `haddock-api` (#957) + +* Fix misplaced Haddocks in Haddock itself + +Haddock should be able to generate documentation for 'haddock-api' +again. + +* Make CI check that documentation can be built. + +* Add back a doc that is OK +--- + .travis.yml | 3 +++ + haddock-api/src/Haddock/Backends/LaTeX.hs | 10 +++++----- + 2 files changed, 8 insertions(+), 5 deletions(-) + +diff --git a/src/Haddock/Backends/LaTeX.hs b/src/Haddock/Backends/LaTeX.hs +index 4e0e6eba..613c6deb 100644 +--- a/src/Haddock/Backends/LaTeX.hs ++++ b/src/Haddock/Backends/LaTeX.hs +@@ -243,8 +243,8 @@ ppDocGroup lev doc = sec lev <> braces doc + + -- | Given a declaration, extract out the names being declared + declNames :: LHsDecl DocNameI +- -> ( LaTeX -- ^ to print before each name in an export list +- , [DocName] -- ^ names being declared ++ -> ( LaTeX -- to print before each name in an export list ++ , [DocName] -- names being declared + ) + declNames (L _ decl) = case decl of + TyClD _ d -> (empty, [tcdName d]) +@@ -444,9 +444,9 @@ ppLPatSig doc docnames ty unicode + -- arguments as needed. + ppTypeOrFunSig :: HsType DocNameI + -> DocForDecl DocName -- ^ documentation +- -> ( LaTeX -- ^ first-line (no-argument docs only) +- , LaTeX -- ^ first-line (argument docs only) +- , LaTeX -- ^ type prefix (argument docs only) ++ -> ( LaTeX -- first-line (no-argument docs only) ++ , LaTeX -- first-line (argument docs only) ++ , LaTeX -- type prefix (argument docs only) + ) + -> Bool -- ^ unicode + -> LaTeX +-- +2.23.0 + diff --git a/gnu/packages/patches/ghc-haddock-library-unbundle.patch b/gnu/packages/patches/ghc-haddock-library-unbundle.patch deleted file mode 100644 index 0e8b548956..0000000000 --- a/gnu/packages/patches/ghc-haddock-library-unbundle.patch +++ /dev/null @@ -1,86 +0,0 @@ -This patch (inspired by Debian) allows ghc-haddock-library to use our -ghc-attoparsec package instead of using a bundled version. - ---- a/haddock-library.cabal 2018-09-01 01:22:18.676855884 -0400 -+++ b/haddock-library.cabal 2018-09-01 01:25:10.501150260 -0400 -@@ -10,7 +10,6 @@ - itself, see the ‘haddock’ package. - license: BSD3 - license-files: LICENSE -- vendor/attoparsec-0.13.1.0/LICENSE - maintainer: Alex Biehl <alexbiehl@gmail.com>, Simon Hengel <sol@typeful.net>, Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> - homepage: http://www.haskell.org/haddock/ - bug-reports: https://github.com/haskell/haddock/issues -@@ -28,7 +27,6 @@ - , containers >= 0.4.2.1 && < 0.6 - , transformers >= 0.3.0 && < 0.6 - -- -- internal sub-lib - build-depends: attoparsec - - hs-source-dirs: src -@@ -49,42 +47,6 @@ - if impl(ghc >= 8.0) - ghc-options: -Wcompat -Wnoncanonical-monad-instances -Wnoncanonical-monadfail-instances - --library attoparsec -- default-language: Haskell2010 -- -- build-depends: -- base >= 4.5 && < 4.12 -- , bytestring >= 0.9.2.1 && < 0.11 -- , deepseq >= 1.3 && < 1.5 -- -- hs-source-dirs: vendor/attoparsec-0.13.1.0 -- -- -- NB: haddock-library needs only small part of lib:attoparsec -- -- internally, so we only bundle that subset here -- exposed-modules: -- Data.Attoparsec.ByteString -- Data.Attoparsec.ByteString.Char8 -- Data.Attoparsec.Combinator -- -- other-modules: -- Data.Attoparsec -- Data.Attoparsec.ByteString.Buffer -- Data.Attoparsec.ByteString.FastSet -- Data.Attoparsec.ByteString.Internal -- Data.Attoparsec.Internal -- Data.Attoparsec.Internal.Fhthagn -- Data.Attoparsec.Internal.Types -- Data.Attoparsec.Number -- -- ghc-options: -funbox-strict-fields -Wall -fwarn-tabs -O2 -- -- ghc-options: -Wall -- if impl(ghc >= 8.0) -- ghc-options: -Wcompat -Wnoncanonical-monad-instances -Wnoncanonical-monadfail-instances -- else -- build-depends: semigroups ^>= 0.18.3, fail ^>= 4.9.0.0 -- -- - test-suite spec - type: exitcode-stdio-1.0 - default-language: Haskell2010 -@@ -115,11 +77,10 @@ - , hspec ^>= 2.4.4 - , QuickCheck ^>= 2.11 - -- -- internal sub-lib - build-depends: attoparsec - - -- Versions for the dependencies below are transitively pinned by -- -- dependency on haddock-library:lib:attoparsec -+ -- dependency on attoparsec - build-depends: - base - , bytestring -@@ -146,7 +107,7 @@ - haddock-library - - -- Versions for the dependencies below are transitively pinned by -- -- dependency on haddock-library:lib:attoparsec -+ -- dependency on attoparsec - build-depends: - base - diff --git a/gnu/packages/patches/ghc-hpack-fix-tests.patch b/gnu/packages/patches/ghc-hpack-fix-tests.patch new file mode 100644 index 0000000000..19aa762174 --- /dev/null +++ b/gnu/packages/patches/ghc-hpack-fix-tests.patch @@ -0,0 +1,193 @@ +This patch is taken and adapted from upstream. It landed shortly after +the release of 0.31.2, and fixes eleven tests. The patch has been +lightly adapted to apply to the release tarball, but the commit message +was left untouched, so it refers to some changes not included in the +patch. + +From a8d9362d4b686074f698c04c20beea88587511a1 Mon Sep 17 00:00:00 2001 +From: quasicomputational <quasicomputational@gmail.com> +Date: Sat, 1 Jun 2019 15:11:31 +0100 +Subject: [PATCH] Make CI green (#345) + +* AppVeyor workaround for TMP issue + +https://github.com/commercialhaskell/stack/issues/3944 + +* Bump resolver to nightly-2018-12-12. + +This has the primary benefit of moving to GHC 8.6.3 and should fix +AppVeyor. + +* Add clock 0.8 as an extra-dep. + +* Adapt expected output to aeson 1.4.3.0. +--- + appveyor.yml | 3 +++ + hpack.cabal | 10 +++++----- + package.yaml | 2 +- + stack.yaml | 5 +++-- + test/Data/Aeson/Config/FromValueSpec.hs | 2 +- + test/Data/Aeson/Config/TypesSpec.hs | 2 +- + test/EndToEndSpec.hs | 8 ++++---- + test/Hpack/ConfigSpec.hs | 2 +- + test/Hpack/Syntax/DefaultsSpec.hs | 2 +- + test/Hpack/Syntax/DependenciesSpec.hs | 4 ++-- + 10 files changed, 22 insertions(+), 18 deletions(-) + +diff --git a/hpack.cabal b/hpack.cabal +index fedb9a8..4db3014 100644 +--- a/hpack.cabal ++++ b/hpack.cabal +@@ -1,10 +1,10 @@ + cabal-version: 1.12 + +--- This file has been generated from package.yaml by hpack version 0.31.0. ++-- This file has been generated from package.yaml by hpack version 0.31.2. + -- + -- see: https://github.com/sol/hpack + -- +--- hash: 3d060180293c32b8d0c25b710d0f419e96a6cc6ec3f95ac5e70bb77f44cbafc3 ++-- hash: bd5dd178c7e9f7f7a3456d79b592ea336c41ef43c9892354c001f06659e8b901 + + name: hpack + version: 0.31.2 +@@ -31,7 +31,7 @@ library + build-depends: + Cabal >=2.2 + , Glob >=0.9.0 +- , aeson >=1.2.1.0 ++ , aeson >=1.4.3.0 + , base >=4.9 && <5 + , bifunctors + , bytestring +@@ -87,7 +87,7 @@ executable hpack + build-depends: + Cabal >=2.2 + , Glob >=0.9.0 +- , aeson >=1.2.1.0 ++ , aeson >=1.4.3.0 + , base >=4.9 && <5 + , bifunctors + , bytestring +@@ -125,7 +125,7 @@ test-suite spec + , Glob >=0.9.0 + , HUnit >=1.6.0.0 + , QuickCheck +- , aeson >=1.2.1.0 ++ , aeson >=1.4.3.0 + , base >=4.9 && <5 + , bifunctors + , bytestring +diff --git a/test/Data/Aeson/Config/FromValueSpec.hs b/test/Data/Aeson/Config/FromValueSpec.hs +index 33de8b7..06b3eb9 100644 +--- a/test/Data/Aeson/Config/FromValueSpec.hs ++++ b/test/Data/Aeson/Config/FromValueSpec.hs +@@ -85,7 +85,7 @@ spec = do + [yaml| + name: "Joe" + age: "23" +- |] `shouldDecodeTo` left "Error while parsing $.age - expected Int, encountered String" ++ |] `shouldDecodeTo` left "Error while parsing $.age - parsing Int failed, expected Number, but encountered String" + + context "with (,)" $ do + it "captures unrecognized fields" $ do +diff --git a/test/Data/Aeson/Config/TypesSpec.hs b/test/Data/Aeson/Config/TypesSpec.hs +index c954534..472aa42 100644 +--- a/test/Data/Aeson/Config/TypesSpec.hs ++++ b/test/Data/Aeson/Config/TypesSpec.hs +@@ -13,7 +13,7 @@ spec = do + context "List" $ do + let + parseError :: String -> Result (List Int) +- parseError prefix = Left (prefix ++ " - expected Int, encountered String") ++ parseError prefix = Left (prefix ++ " - parsing Int failed, expected Number, but encountered String") + + context "when parsing single values" $ do + it "returns the value in a singleton list" $ do +diff --git a/test/EndToEndSpec.hs b/test/EndToEndSpec.hs +index 283c72c..46389ea 100644 +--- a/test/EndToEndSpec.hs ++++ b/test/EndToEndSpec.hs +@@ -285,7 +285,7 @@ spec = around_ (inTempDirectoryNamed "foo") $ do + path: defaults.yaml + ref: "2017" + library: {} +- |] `shouldFailWith` (file ++ ": Error while parsing $ - expected Object, encountered Array") ++ |] `shouldFailWith` (file ++ ": Error while parsing $ - expected Object, but encountered Array") + + it "warns on unknown fields" $ do + let file = joinPath ["defaults", "sol", "hpack-template", "2017", "defaults.yaml"] +@@ -340,7 +340,7 @@ spec = around_ (inTempDirectoryNamed "foo") $ do + it "rejects other values" $ do + [i| + version: {} +- |] `shouldFailWith` "package.yaml: Error while parsing $.version - expected Number or String, encountered Object" ++ |] `shouldFailWith` "package.yaml: Error while parsing $.version - expected Number or String, but encountered Object" + + describe "license" $ do + it "accepts cabal-style licenses" $ do +@@ -1363,14 +1363,14 @@ spec = around_ (inTempDirectoryNamed "foo") $ do + then: + dependencies: Win32 + else: null +- |] `shouldFailWith` "package.yaml: Error while parsing $.when.else - expected Object, encountered Null" ++ |] `shouldFailWith` "package.yaml: Error while parsing $.when.else - expected Object, but encountered Null" + + it "rejects invalid conditionals" $ do + [i| + dependencies: + - foo + - 23 +- |] `shouldFailWith` "package.yaml: Error while parsing $.dependencies[1] - expected Object or String, encountered Number" ++ |] `shouldFailWith` "package.yaml: Error while parsing $.dependencies[1] - expected Object or String, but encountered Number" + + it "warns on unknown fields" $ do + [i| +diff --git a/test/Hpack/ConfigSpec.hs b/test/Hpack/ConfigSpec.hs +index 9f4b279..69cbea1 100644 +--- a/test/Hpack/ConfigSpec.hs ++++ b/test/Hpack/ConfigSpec.hs +@@ -675,7 +675,7 @@ spec = do + it "rejects other values" $ do + [yaml| + 23 +- |] `shouldDecodeTo` (Left "Error while parsing $ - expected Boolean or String, encountered Number" :: Result Cond) ++ |] `shouldDecodeTo` (Left "Error while parsing $ - expected Boolean or String, but encountered Number" :: Result Cond) + + describe "formatOrList" $ do + it "formats a singleton list" $ do +diff --git a/test/Hpack/Syntax/DefaultsSpec.hs b/test/Hpack/Syntax/DefaultsSpec.hs +index 5875413..5438b7a 100644 +--- a/test/Hpack/Syntax/DefaultsSpec.hs ++++ b/test/Hpack/Syntax/DefaultsSpec.hs +@@ -151,4 +151,4 @@ spec = do + it "fails" $ do + [yaml| + 10 +- |] `shouldDecodeTo` left "Error while parsing $ - expected Object or String, encountered Number" ++ |] `shouldDecodeTo` left "Error while parsing $ - expected Object or String, but encountered Number" +diff --git a/test/Hpack/Syntax/DependenciesSpec.hs b/test/Hpack/Syntax/DependenciesSpec.hs +index 1a83732..d95044f 100644 +--- a/test/Hpack/Syntax/DependenciesSpec.hs ++++ b/test/Hpack/Syntax/DependenciesSpec.hs +@@ -125,7 +125,7 @@ spec = do + it "rejects invalid values" $ do + [yaml| + hpack: [] +- |] `shouldDecodeTo` left "Error while parsing $.hpack - expected Null, Object, Number, or String, encountered Array" ++ |] `shouldDecodeTo` left "Error while parsing $.hpack - expected Null, Object, Number, or String, but encountered Array" + + context "when the constraint is a Number" $ do + it "accepts 1" $ do +@@ -213,7 +213,7 @@ spec = do + [yaml| + foo: + version: {} +- |] `shouldDecodeTo` left "Error while parsing $.foo.version - expected Null, Number, or String, encountered Object" ++ |] `shouldDecodeTo` left "Error while parsing $.foo.version - expected Null, Number, or String, but encountered Object" + + it "accepts a string" $ do + [yaml| +-- +2.23.0 + diff --git a/gnu/packages/patches/ghc-microlens-aeson-fix-tests.patch b/gnu/packages/patches/ghc-microlens-aeson-fix-tests.patch new file mode 100644 index 0000000000..c1ef6a837c --- /dev/null +++ b/gnu/packages/patches/ghc-microlens-aeson-fix-tests.patch @@ -0,0 +1,27 @@ +This patch fixes the test suite to allow any order when listing the +members of a JSON object. Aeson (being true to the JSON specification) +does not specify an order for objects. In practice, the order depends +on your processor architecture. + +See <https://github.com/bos/aeson/issues/568> for a discussion resulting +in a similar patch fixing the Aeson tests. + +See <https://github.com/fosskers/microlens-aeson/issues/1> for the +upstream bug report. + +diff -ruN a/test/Test.hs b/test/Test.hs +--- a/test/Test.hs 2018-12-31 15:10:50.000000000 -0500 ++++ b/test/Test.hs 2019-11-08 01:34:07.419706831 -0500 +@@ -48,8 +48,10 @@ + , testCase "" $ ("{\"a\": {}, \"b\": null}" ^? key (T.pack "b") . _Object) @?= Nothing + , testCase "" $ ("{\"a\": 100, \"b\": 200}" ^? key (T.pack "a")) @?= Just (Number 100.0) + , testCase "" $ ("[1,2,3]" ^? key (T.pack "a")) @?= Nothing +- , testCase "" $ ("{\"a\": 4, \"b\": 7}" ^.. members) @?= [Number 4.0,Number 7.0] +- , testCase "" $ ("{\"a\": 4, \"b\": 7}" & members . _Number %~ (* 10)) @?= "{\"a\":40,\"b\":70}" ++ , testCase "" $ assertBool "" (let x = ("{\"a\": 4, \"b\": 7}" ^.. members) ++ in x == [Number 4.0,Number 7.0] || x == [Number 7.0,Number 4.0]) ++ , testCase "" $ assertBool "" (let x = ("{\"a\": 4, \"b\": 7}" & members . _Number %~ (* 10)) ++ in x == "{\"a\":40,\"b\":70}" || x == "{\"b\":70,\"a\":40}") + , testCase "" $ ("[1,2,3]" ^? nth 1) @?= Just (Number 2.0) + , testCase "" $ ("{\"a\": 100, \"b\": 200}" ^? nth 1) @?= Nothing + , testCase "" $ ("[1,2,3]" & nth 1 .~ Number 20) @?= "[1,20,3]" diff --git a/gnu/packages/patches/ghc-monad-par-fix-tests.patch b/gnu/packages/patches/ghc-monad-par-fix-tests.patch new file mode 100644 index 0000000000..d21a1e485c --- /dev/null +++ b/gnu/packages/patches/ghc-monad-par-fix-tests.patch @@ -0,0 +1,45 @@ +This patch is taken from upstream. It fixes a test to work with GHC 8.6. +The paths have been slightly altered to work with the release tarball. + +See <https://github.com/simonmar/monad-par/issues/66>. + +From e20f81c8060208e4fb038e8f0e0668b41d72a6fb Mon Sep 17 00:00:00 2001 +From: Clint Adams <clint@debian.org> +Date: Sat, 31 Aug 2019 14:12:34 -0400 +Subject: [PATCH] Use a case statement instead of pattern-matching in + case_test_diamond + +This avoids the need for a MonadFail instance. Closes #66 +--- + monad-par/tests/ParTests_shared.hs | 15 +++++++++------ + 1 file changed, 9 insertions(+), 6 deletions(-) + +diff --git a/tests/ParTests_shared.hs b/tests/ParTests_shared.hs +index 31f438d..b2de50c 100644 +--- a/tests/ParTests_shared.hs ++++ b/tests/ParTests_shared.hs +@@ -109,12 +109,15 @@ case_test_diamond :: Assertion + case_test_diamond = 9 @=? (m :: Int) + where + m = runPar $ do +- [a,b,c,d] <- sequence [new,new,new,new] +- fork $ do x <- get a; put b (x+1) +- fork $ do x <- get a; put c (x+2) +- fork $ do x <- get b; y <- get c; put d (x+y) +- fork $ do put a 3 +- get d ++ abcd <- sequence [new,new,new,new] ++ case abcd of ++ [a,b,c,d] -> do ++ fork $ do x <- get a; put b (x+1) ++ fork $ do x <- get a; put c (x+2) ++ fork $ do x <- get b; y <- get c; put d (x+y) ++ fork $ do put a 3 ++ get d ++ _ -> error "Oops" + + -- | Violate IVar single-assignment: + -- +-- +2.23.0 + diff --git a/gnu/packages/patches/ghc-pandoc-fix-html-tests.patch b/gnu/packages/patches/ghc-pandoc-fix-html-tests.patch new file mode 100644 index 0000000000..b624ff9e9e --- /dev/null +++ b/gnu/packages/patches/ghc-pandoc-fix-html-tests.patch @@ -0,0 +1,92 @@ +This patch is taken from upstream. It fixes two HTML tests that are broken +due to using a Skylighting version greater than or equal to 0.8.2. + +From 968d2046a3cb6db661673be580660ac402753c34 Mon Sep 17 00:00:00 2001 +From: John MacFarlane <jgm@berkeley.edu> +Date: Sun, 14 Jul 2019 10:48:14 -0700 +Subject: [PATCH] Update test for new skylighting. + +--- + test/lhs-test.html | 13 ++++++------- + test/lhs-test.html+lhs | 13 ++++++------- + 2 files changed, 12 insertions(+), 14 deletions(-) + +diff --git a/test/lhs-test.html b/test/lhs-test.html +index 6685555f4..446dd3d95 100644 +--- a/test/lhs-test.html ++++ b/test/lhs-test.html +@@ -12,19 +12,18 @@ + div.column{display: inline-block; vertical-align: top; width: 50%;} + </style> + <style> +-code.sourceCode > span { display: inline-block; line-height: 1.25; } ++pre > code.sourceCode { white-space: pre; position: relative; } ++pre > code.sourceCode > span { display: inline-block; line-height: 1.25; } ++pre > code.sourceCode > span:empty { height: 1.2em; } + code.sourceCode > span { color: inherit; text-decoration: inherit; } +-code.sourceCode > span:empty { height: 1.2em; } +-.sourceCode { overflow: visible; } +-code.sourceCode { white-space: pre; position: relative; } + div.sourceCode { margin: 1em 0; } + pre.sourceCode { margin: 0; } + @media screen { + div.sourceCode { overflow: auto; } + } + @media print { +-code.sourceCode { white-space: pre-wrap; } +-code.sourceCode > span { text-indent: -5em; padding-left: 5em; } ++pre > code.sourceCode { white-space: pre-wrap; } ++pre > code.sourceCode > span { text-indent: -5em; padding-left: 5em; } + } + pre.numberSource code + { counter-reset: source-line 0; } +@@ -44,7 +43,7 @@ pre.numberSource { margin-left: 3em; border-left: 1px solid #aaaaaa; padding-le + div.sourceCode + { } + @media screen { +-code.sourceCode > span > a:first-child::before { text-decoration: underline; } ++pre > code.sourceCode > span > a:first-child::before { text-decoration: underline; } + } + code span.al { color: #ff0000; font-weight: bold; } /* Alert */ + code span.an { color: #60a0b0; font-weight: bold; font-style: italic; } /* Annotation */ +diff --git a/test/lhs-test.html+lhs b/test/lhs-test.html+lhs +index e57dfc105..a5cdb0245 100644 +--- a/test/lhs-test.html+lhs ++++ b/test/lhs-test.html+lhs +@@ -12,19 +12,18 @@ + div.column{display: inline-block; vertical-align: top; width: 50%;} + </style> + <style> +-code.sourceCode > span { display: inline-block; line-height: 1.25; } ++pre > code.sourceCode { white-space: pre; position: relative; } ++pre > code.sourceCode > span { display: inline-block; line-height: 1.25; } ++pre > code.sourceCode > span:empty { height: 1.2em; } + code.sourceCode > span { color: inherit; text-decoration: inherit; } +-code.sourceCode > span:empty { height: 1.2em; } +-.sourceCode { overflow: visible; } +-code.sourceCode { white-space: pre; position: relative; } + div.sourceCode { margin: 1em 0; } + pre.sourceCode { margin: 0; } + @media screen { + div.sourceCode { overflow: auto; } + } + @media print { +-code.sourceCode { white-space: pre-wrap; } +-code.sourceCode > span { text-indent: -5em; padding-left: 5em; } ++pre > code.sourceCode { white-space: pre-wrap; } ++pre > code.sourceCode > span { text-indent: -5em; padding-left: 5em; } + } + pre.numberSource code + { counter-reset: source-line 0; } +@@ -44,7 +43,7 @@ pre.numberSource { margin-left: 3em; border-left: 1px solid #aaaaaa; padding-le + div.sourceCode + { } + @media screen { +-code.sourceCode > span > a:first-child::before { text-decoration: underline; } ++pre > code.sourceCode > span > a:first-child::before { text-decoration: underline; } + } + code span.al { color: #ff0000; font-weight: bold; } /* Alert */ + code span.an { color: #60a0b0; font-weight: bold; font-style: italic; } /* Annotation */ +-- +2.23.0 + diff --git a/gnu/packages/patches/ghc-pandoc-fix-latex-test.patch b/gnu/packages/patches/ghc-pandoc-fix-latex-test.patch new file mode 100644 index 0000000000..b38476882d --- /dev/null +++ b/gnu/packages/patches/ghc-pandoc-fix-latex-test.patch @@ -0,0 +1,31 @@ +This patch is taken from upstream. It fixes a LaTeX test that is broken due +to using a Skylighting version greater than or equal to 0.8.1.1. + +From 2cd1c7b30f200d18f1f1bdef1671369e1ad303ed Mon Sep 17 00:00:00 2001 +From: John MacFarlane <jgm@berkeley.edu> +Date: Thu, 13 Jun 2019 19:33:52 -0700 +Subject: [PATCH] Update test for skylighting 0.8.1.1. + +--- + test/lhs-test.latex | 4 ++-- + 1 file changed, 2 insertions(+), 2 deletions(-) + +diff --git a/test/lhs-test.latex b/test/lhs-test.latex +index 0442db5ca..a456995a3 100644 +--- a/test/lhs-test.latex ++++ b/test/lhs-test.latex +@@ -94,9 +94,9 @@ return a single value: + + \begin{Shaded} + \begin{Highlighting}[] +-\OtherTok{unsplit ::}\NormalTok{ (}\DataTypeTok{Arrow}\NormalTok{ a) }\OtherTok{=>}\NormalTok{ (b }\OtherTok{->}\NormalTok{ c }\OtherTok{->}\NormalTok{ d) }\OtherTok{->}\NormalTok{ a (b, c) d} ++\OtherTok{unsplit ::}\NormalTok{ (}\DataTypeTok{Arrow}\NormalTok{ a) }\OtherTok{=>}\NormalTok{ (b }\OtherTok{{-}>}\NormalTok{ c }\OtherTok{{-}>}\NormalTok{ d) }\OtherTok{{-}>}\NormalTok{ a (b, c) d} + \NormalTok{unsplit }\OtherTok{=}\NormalTok{ arr }\OperatorTok{.} \FunctionTok{uncurry} +- \CommentTok{-- arr (\textbackslash{}op (x,y) -> x `op` y)} ++ \CommentTok{{-}{-} arr (\textbackslash{}op (x,y) {-}> x \textasciigrave{}op\textasciigrave{} y)} + \end{Highlighting} + \end{Shaded} + +-- +2.23.0 + diff --git a/gnu/packages/patches/hexchat-crash-exit.patch b/gnu/packages/patches/hexchat-crash-exit.patch new file mode 100644 index 0000000000..e67fef73e0 --- /dev/null +++ b/gnu/packages/patches/hexchat-crash-exit.patch @@ -0,0 +1,31 @@ +From d9c637ae8a1137d3ca512d2c560589903a4bd79d Mon Sep 17 00:00:00 2001 +From: Adam Williamson <awilliam@redhat.com> +Date: Tue, 30 Apr 2019 11:16:01 -0700 +Subject: [PATCH] Python plugin: Call EndInterpreter when deinit'ing the plugin + +This fixes https://github.com/hexchat/hexchat/issues/2237 , a +commonly-encountered bug when using Hexchat 2.14 on Python 3.7. +Thanks to @ncoghlan for the fix. + +Signed-off-by: Adam Williamson <awilliam@redhat.com> +--- + plugins/python/python.c | 3 +++ + 1 file changed, 3 insertions(+) + +diff --git a/plugins/python/python.c b/plugins/python/python.c +index 4403474d..475756ba 100644 +--- a/plugins/python/python.c ++++ b/plugins/python/python.c +@@ -2806,6 +2806,9 @@ hexchat_plugin_deinit(void) + xchatout_buffer = NULL; + + if (interp_plugin) { ++ PyThreadState *tstate = ((PluginObject*)interp_plugin)->tstate; ++ PyThreadState_Swap(tstate); ++ Py_EndInterpreter(tstate); + Py_DECREF(interp_plugin); + interp_plugin = NULL; + } +-- +2.21.0 + diff --git a/gnu/packages/patches/minisat-friend-declaration.patch b/gnu/packages/patches/minisat-friend-declaration.patch new file mode 100644 index 0000000000..14a886ae2f --- /dev/null +++ b/gnu/packages/patches/minisat-friend-declaration.patch @@ -0,0 +1,25 @@ +See https://groups.google.com/forum/#!topic/minisat/FCocZsC8oMQ +This seems to only be a problem with newer versions of g++, and +upstream development seems to have stopped in 2013. + +diff -rupN minisat-2.2.0/core/SolverTypes.h minisat-2.2.0.patched/core/SolverTypes.h +--- a/minisat/core/SolverTypes.h 2010-07-10 17:07:36.000000000 +0100 ++++ b/minisat/core/SolverTypes.h 2014-03-29 11:57:49.000000000 +0000 +@@ -47,7 +47,7 @@ struct Lit { + int x; + + // Use this as a constructor: +- friend Lit mkLit(Var var, bool sign = false); ++ //friend Lit mkLit(Var var, bool sign = false); + + bool operator == (Lit p) const { return x == p.x; } + bool operator != (Lit p) const { return x != p.x; } +@@ -55,7 +55,7 @@ struct Lit { + }; + + +-inline Lit mkLit (Var var, bool sign) { Lit p; p.x = var + var + (int)sign; return p; } ++inline Lit mkLit (Var var, bool sign = false) { Lit p; p.x = var + var + (int)sign; return p; } + inline Lit operator ~(Lit p) { Lit q; q.x = p.x ^ 1; return q; } + inline Lit operator ^(Lit p, bool b) { Lit q; q.x = p.x ^ (unsigned int)b; return q; } + inline bool sign (Lit p) { return p.x & 1; } diff --git a/gnu/packages/patches/minisat-install.patch b/gnu/packages/patches/minisat-install.patch new file mode 100644 index 0000000000..23cde89bec --- /dev/null +++ b/gnu/packages/patches/minisat-install.patch @@ -0,0 +1,19 @@ +Avoid the default dynamic executable, which depends on minisat.so +Instead install the release version, which is statically linked. + +diff --git a/Makefile b/Makefile +index ceb9d77..7b91906 100644 +--- a/Makefile ++++ b/Makefile +@@ -191,9 +191,9 @@ install-lib: $(BUILD_DIR)/release/lib/$(MINISAT_SLIB) $(BUILD_DIR)/dynamic/lib/$ + ln -sf $(MINISAT_DLIB).$(SOMAJOR) $(DESTDIR)$(libdir)/$(MINISAT_DLIB) + $(INSTALL) -m 644 $(BUILD_DIR)/release/lib/$(MINISAT_SLIB) $(DESTDIR)$(libdir) + +-install-bin: $(BUILD_DIR)/dynamic/bin/$(MINISAT) ++install-bin: $(BUILD_DIR)/release/bin/$(MINISAT) + $(INSTALL) -d $(DESTDIR)$(bindir) +- $(INSTALL) -m 755 $(BUILD_DIR)/dynamic/bin/$(MINISAT) $(DESTDIR)$(bindir) ++ $(INSTALL) -m 755 $(BUILD_DIR)/release/bin/$(MINISAT) $(DESTDIR)$(bindir) + + clean: + rm -f $(foreach t, release debug profile dynamic, $(foreach o, $(SRCS:.cc=.o), $(BUILD_DIR)/$t/$o)) \ diff --git a/gnu/packages/patches/python-3.8-fix-tests.patch b/gnu/packages/patches/python-3.8-fix-tests.patch new file mode 100644 index 0000000000..4fbdd444c7 --- /dev/null +++ b/gnu/packages/patches/python-3.8-fix-tests.patch @@ -0,0 +1,42 @@ +diff --git a/Lib/test/_test_multiprocessing.py b/Lib/test/_test_multiprocessing.py +index 1474624..887f8ee 100644 +--- a/Lib/test/_test_multiprocessing.py ++++ b/Lib/test/_test_multiprocessing.py +@@ -3801,6 +3801,7 @@ class _TestSharedMemory(BaseTestCase): + sms.close() + + @unittest.skipIf(os.name != "posix", "not feasible in non-posix platforms") ++ @unittest.skipUnless(sys.stdin.isatty(), "KeyboardInterrupts require a TTY device") + def test_shared_memory_SharedMemoryServer_ignores_sigint(self): + # bpo-36368: protect SharedMemoryManager server process from + # KeyboardInterrupt signals. +diff --git a/Lib/test/test_signal.py b/Lib/test/test_signal.py +index d41e94b..a1c15e7 100644 +--- a/Lib/test/test_signal.py ++++ b/Lib/test/test_signal.py +@@ -78,6 +78,7 @@ class PosixTests(unittest.TestCase): + self.assertLess(len(s), signal.NSIG) + + @unittest.skipUnless(sys.executable, "sys.executable required.") ++ @unittest.skipUnless(sys.stdin.isatty(), "KeyboardInterrupts require a TTY device") + def test_keyboard_interrupt_exit_code(self): + """KeyboardInterrupt triggers exit via SIGINT.""" + process = subprocess.run( +@@ -128,6 +129,7 @@ class WindowsSignalTests(unittest.TestCase): + signal.signal(7, handler) + + @unittest.skipUnless(sys.executable, "sys.executable required.") ++ @unittest.skipUnless(sys.stdin.isatty(), "KeyboardInterrupts require a TTY device") + def test_keyboard_interrupt_exit_code(self): + """KeyboardInterrupt triggers an exit using STATUS_CONTROL_C_EXIT.""" + # We don't test via os.kill(os.getpid(), signal.CTRL_C_EVENT) here +@@ -1245,6 +1247,7 @@ class StressTest(unittest.TestCase): + + class RaiseSignalTest(unittest.TestCase): + ++ @unittest.skipUnless(sys.stdin.isatty(), "KeyboardInterrupts require a TTY device") + def test_sigint(self): + with self.assertRaises(KeyboardInterrupt): + signal.raise_signal(signal.SIGINT) +-- +2.23.0 diff --git a/gnu/packages/patches/python-3.8-search-paths.patch b/gnu/packages/patches/python-3.8-search-paths.patch new file mode 100644 index 0000000000..88f19850bf --- /dev/null +++ b/gnu/packages/patches/python-3.8-search-paths.patch @@ -0,0 +1,17 @@ +diff --git a/setup.py b/setup.py +index 20d7f35..5751083 100644 +--- a/setup.py ++++ b/setup.py +@@ -676,8 +676,8 @@ class PyBuildExt(build_ext): + # if a file is found in one of those directories, it can + # be assumed that no additional -I,-L directives are needed. + if not CROSS_COMPILING: +- self.lib_dirs = self.compiler.library_dirs + system_lib_dirs +- self.inc_dirs = self.compiler.include_dirs + system_include_dirs ++ self.lib_dirs = os.getenv('LIBRARY_PATH', '').split(os.pathsep) ++ self.inc_dirs = os.getenv('CPATH', '').split(os.pathsep) + else: + # Add the sysroot paths. 'sysroot' is a compiler option used to + # set the logical path of the standard system headers and +-- +2.23.0 diff --git a/gnu/packages/patches/tomb-fix-errors-on-open.patch b/gnu/packages/patches/tomb-fix-errors-on-open.patch new file mode 100644 index 0000000000..5f41c9ee8f --- /dev/null +++ b/gnu/packages/patches/tomb-fix-errors-on-open.patch @@ -0,0 +1,25 @@ +Description: Avoid error messages when opening a new tomb + Make sure control file exists and has user ownership before user writes to it. +Author: Sven Geuer <debmaint@g-e-u-e-r.de> +Bug: https://github.com/dyne/Tomb/issues/369 +Last-Update: 2019-11-04 +--- a/tomb ++++ b/tomb +@@ -2197,14 +2197,15 @@ + # {{{ Open + + _update_control_file() { +- # replaces a control file with new contents and gives it user ownership ++ # make sure a control file exists, gives it user ownership ++ # and replaces it with new contents + # stdin = contents + # $1 = path to control file + # $2 = contents + [[ "$2" = "" ]] && return 1 + _sudo touch "$1" +- print "$2" > "$1" + _sudo chown ${_UID}:${_GID} "$1" ++ print "$2" > "$1" + _verbose "updated control file $1 = $2" + } + diff --git a/gnu/packages/patches/ucx-tcp-iface-ioctl.patch b/gnu/packages/patches/ucx-tcp-iface-ioctl.patch new file mode 100644 index 0000000000..d5df7047bc --- /dev/null +++ b/gnu/packages/patches/ucx-tcp-iface-ioctl.patch @@ -0,0 +1,109 @@ +Since /sys is unavailable in build environments, the list of available +TCP network interfaces cannot be obtained via /sys/class/net. This patch +provides alternative code that uses the SIOCGIFCONF ioctl to get the +names of the available TCP network interfaces. + +diff --git a/src/uct/tcp/tcp_iface.c b/src/uct/tcp/tcp_iface.c +index 81ad459..10024a6 100644 +--- a/src/uct/tcp/tcp_iface.c ++++ b/src/uct/tcp/tcp_iface.c +@@ -12,6 +12,8 @@ + #include <sys/poll.h> + #include <netinet/tcp.h> + #include <dirent.h> ++#include <net/if.h> ++#include <sys/ioctl.h> + + static ucs_config_field_t uct_tcp_iface_config_table[] = { + {"", "MAX_SHORT=8k", NULL, +@@ -483,6 +485,70 @@ static UCS_CLASS_DEFINE_NEW_FUNC(uct_tcp_iface_t, uct_iface_t, uct_md_h, + uct_worker_h, const uct_iface_params_t*, + const uct_iface_config_t*); + ++/* Fetch information about available network devices through an ioctl. */ ++static ucs_status_t query_devices_ioctl(uct_md_h md, ++ uct_tl_resource_desc_t **resource_p, ++ unsigned *num_resources_p) ++{ ++ int sock, err, i; ++ uct_tl_resource_desc_t *resources, *tmp; ++ unsigned num_resources; ++ ucs_status_t status; ++ struct ifconf conf; ++ struct ifreq reqs[10]; ++ ++ conf.ifc_len = sizeof reqs; ++ conf.ifc_req = reqs; ++ ++ sock = socket(SOCK_STREAM, AF_INET, 0); ++ if (sock < 0) { ++ ucs_error("socket(2) failed: %m"); ++ status = UCS_ERR_IO_ERROR; ++ goto out; ++ } ++ ++ err = ioctl(sock, SIOCGIFCONF, &conf); ++ if (err < 0) { ++ ucs_error("SIOCGIFCONF ioctl failed: %m"); ++ status = UCS_ERR_IO_ERROR; ++ goto out; ++ } ++ ++ resources = NULL; ++ num_resources = 0; ++ for (i = 0; i < conf.ifc_len / sizeof(struct ifreq); i++) { ++ const char *name = reqs[i].ifr_name; ++ ++ if (!ucs_netif_is_active(name)) { ++ continue; ++ } ++ ++ tmp = ucs_realloc(resources, sizeof(*resources) * (num_resources + 1), ++ "tcp resources"); ++ if (tmp == NULL) { ++ ucs_free(resources); ++ status = UCS_ERR_NO_MEMORY; ++ goto out; ++ } ++ resources = tmp; ++ ++ ucs_snprintf_zero(resources[i].tl_name, sizeof(resources[i].tl_name), ++ "%s", UCT_TCP_NAME); ++ ucs_snprintf_zero(resources[i].dev_name, sizeof(resources[i].dev_name), ++ "%s", name); ++ resources[i].dev_type = UCT_DEVICE_TYPE_NET; ++ ++num_resources; ++ } ++ ++ *num_resources_p = num_resources; ++ *resource_p = resources; ++ status = UCS_OK; ++ ++out: ++ if (sock >= 0) close(sock); ++ return status; ++} ++ + static ucs_status_t uct_tcp_query_tl_resources(uct_md_h md, + uct_tl_resource_desc_t **resource_p, + unsigned *num_resources_p) +@@ -496,9 +562,9 @@ static ucs_status_t uct_tcp_query_tl_resources(uct_md_h md, + + dir = opendir(netdev_dir); + if (dir == NULL) { +- ucs_error("opendir(%s) failed: %m", netdev_dir); +- status = UCS_ERR_IO_ERROR; +- goto out; ++ /* When /sys is unavailable, as can be the case in a container, ++ * resort to a good old 'ioctl'. */ ++ return query_devices_ioctl(md, resource_p, num_resources_p); + } + + resources = NULL; +@@ -543,6 +609,5 @@ static ucs_status_t uct_tcp_query_tl_resources(uct_md_h md, + + out_closedir: + closedir(dir); +-out: + return status; + } diff --git a/gnu/packages/php.scm b/gnu/packages/php.scm index b144a6b26a..bc60539fb4 100644 --- a/gnu/packages/php.scm +++ b/gnu/packages/php.scm @@ -36,6 +36,7 @@ #:use-module (gnu packages gettext) #:use-module (gnu packages glib) #:use-module (gnu packages gnupg) + #:use-module (gnu packages icu4c) #:use-module (gnu packages image) #:use-module (gnu packages linux) #:use-module (gnu packages multiprecision) @@ -101,7 +102,7 @@ (with "--with-jpeg-dir" "libjpeg") (with "--with-ldap" "openldap") (with "--with-ldap-sasl" "cyrus-sasl") - (with "--with-libzip" "zip") + (with "--with-libzip" "libzip") (with "--with-libxml-dir" "libxml2") (with "--with-onig" "oniguruma") (with "--with-pcre-dir" "pcre") @@ -136,9 +137,11 @@ "--enable-fpm" "--enable-ftp" "--enable-inifile" + "--enable-intl" "--enable-mbstring" "--enable-pcntl" - "--enable-sockets")) + "--enable-sockets" + "--enable-zip")) #:phases (modify-phases %standard-phases (add-after 'unpack 'do-not-record-build-flags @@ -356,6 +359,7 @@ ("glibc" ,glibc) ("gmp" ,gmp) ("gnutls" ,gnutls) + ("icu4c" ,icu4c) ("libgcrypt" ,libgcrypt) ("libjpeg" ,libjpeg) ("libpng" ,libpng) @@ -364,6 +368,7 @@ ("libxpm" ,libxpm) ("libxslt" ,libxslt) ("libx11" ,libx11) + ("libzip" ,libzip) ("oniguruma" ,oniguruma) ("openldap" ,openldap) ("openssl" ,openssl) @@ -372,7 +377,6 @@ ("readline" ,readline) ("sqlite" ,sqlite) ("tidy" ,tidy) - ("zip" ,zip) ("zlib" ,zlib))) (native-inputs `(("pkg-config" ,pkg-config) diff --git a/gnu/packages/printers.scm b/gnu/packages/printers.scm index 2d608bf3cb..7b2c2429dd 100644 --- a/gnu/packages/printers.scm +++ b/gnu/packages/printers.scm @@ -75,52 +75,66 @@ with Graphtec and Sihouette plotting cutters using an SVG file as its input.") (license license:gpl3+))) (define-public brlaser - (let ((commit "779f71e80fcc583f4537c844de141cf8e6a738fe") - (revision "1")) - (package - (name "brlaser") - (version (git-version "4" revision commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/pdewacht/brlaser.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0yrz9706660hdfi2y0ndp254r0vw9y665hwmxbbzfnz4ai13vj50")))) - (build-system cmake-build-system) - (arguments - `(#:configure-flags - (list (string-append "-DCUPS_DATA_DIR=" - (assoc-ref %outputs "out") - "/share/cups") - (string-append "-DCUPS_SERVER_BIN=" - (assoc-ref %outputs "out") - "/lib/cups")))) - (inputs - `(("ghostscript" ,ghostscript) - ("cups" ,cups) - ("zlib" ,zlib))) - (home-page "https://github.com/pdewacht/brlaser") - (synopsis "Brother laser printer driver") - (description "Brlaser is a CUPS driver for Brother laser printers. This + (package + (name "brlaser") + (version "6") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/pdewacht/brlaser.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1995s69ksq1fz0vb34v0ndiqncrinbrlpmp70rkl6az7kag99s80")))) + (build-system cmake-build-system) + (arguments + `(#:configure-flags + (list (string-append "-DCUPS_DATA_DIR=" + (assoc-ref %outputs "out") + "/share/cups") + (string-append "-DCUPS_SERVER_BIN=" + (assoc-ref %outputs "out") + "/lib/cups")))) + (inputs + `(("ghostscript" ,ghostscript) + ("cups" ,cups) + ("zlib" ,zlib))) + (home-page "https://github.com/pdewacht/brlaser") + (synopsis "Brother laser printer driver") + (description "Brlaser is a CUPS driver for Brother laser printers. This driver is known to work with these printers: @enumerate -@item Brother DCP-1510 +@item Brother DCP-1510 series +@item Brother DCP-1600 series @item Brother DCP-7030 @item Brother DCP-7040 @item Brother DCP-7055 @item Brother DCP-7055W +@item Brother DCP-7060D @item Brother DCP-7065DN @item Brother DCP-7080 +@item Brother DCP-L2500D series +@item Brother DCP-L2520D series +@item Brother DCP-L2540DW series +@item Brother HL-1110 series @item Brother HL-1200 series +@item Brother HL-2030 series +@item Brother HL-2140 series +@item Brother HL-2220 series +@item Brother HL-2270DW series +@item Brother HL-5030 series +@item Brother HL-L2300D series @item Brother HL-L2320D series +@item Brother HL-L2340D series @item Brother HL-L2360D series +@item Brother MFC-1910W @item Brother MFC-7240 @item Brother MFC-7360N -@end enumerate - -It partially works with printers from the Brother HL-L2300D series.") - (license license:gpl2+)))) +@item Brother MFC-7365DN +@item Brother MFC-7840W +@item Brother MFC-L2710DW series +@item Lenovo M7605D +@end enumerate") + (license license:gpl2+))) diff --git a/gnu/packages/protobuf.scm b/gnu/packages/protobuf.scm index d00057934d..5c22072132 100644 --- a/gnu/packages/protobuf.scm +++ b/gnu/packages/protobuf.scm @@ -246,7 +246,7 @@ mechanism for serializing structured data.") (arguments `(#:phases (modify-phases %standard-phases - (add-before 'set-emacs-load-path 'change-working-directory + (add-before 'add-source-to-load-path 'change-working-directory (lambda _ (chdir "editors") #t))))) (home-page "https://github.com/protocolbuffers/protobuf") (synopsis "Protocol buffers major mode for Emacs") diff --git a/gnu/packages/python-crypto.scm b/gnu/packages/python-crypto.scm index 11c23aebfc..2b1543bbc0 100644 --- a/gnu/packages/python-crypto.scm +++ b/gnu/packages/python-crypto.scm @@ -20,6 +20,7 @@ ;;; Copyright © 2018 Vagrant Cascadian <vagrant@debian.org> ;;; Copyright © 2018 Nam Nguyen <namn@berkeley.edu> ;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net> +;;; Copyright © 2019 Clément Lassieur <clement@lassieur.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -1090,3 +1091,41 @@ with state-tracking and configuration abstractions.") that leverages the infrastructure provided by the Linux kernel for safely storing and retrieving sensitive information in your programs.") (license license:asl2.0))) + +(define-public python-mcuboot-imgtool + (package + (name "python-mcuboot-imgtool") + (version "1.4.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/JuulLabs-OSS/mcuboot") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1m1csyvzq4jx81zg635ssy1n7sc0z539z0myh872ll3nwqx7wa0q")))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'fix-broken-test + (lambda _ + (substitute* "scripts/imgtool/keys/ed25519_test.py" + (("raw_sign") "sign_digest")) + #t)) + (add-before 'build 'change-directory + (lambda _ + (chdir "scripts") + #t))))) + (propagated-inputs + `(("python-click" ,python-click) + ("python-intelhex" ,python-intelhex) + ("python-cryptography" ,python-cryptography))) + (home-page "https://mcuboot.com") + (synopsis "Tool to securely sign firmware images for booting by MCUboot") + (description "MCUboot is a secure bootloader for 32-bit MCUs. This +package provides a tool to securely sign firmware images for booting by +MCUboot.") + (license license:expat))) diff --git a/gnu/packages/python-xyz.scm b/gnu/packages/python-xyz.scm index 733bd18aff..67f4e47e8e 100644 --- a/gnu/packages/python-xyz.scm +++ b/gnu/packages/python-xyz.scm @@ -53,7 +53,7 @@ ;;; Copyright © 2016, 2018 Tomáš Čech <sleep_walker@gnu.org> ;;; Copyright © 2018, 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com> -;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> +;;; Copyright © 2018, 2019 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2018, 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2018 Luther Thompson <lutheroto@gmail.com> ;;; Copyright © 2018 Vagrant Cascadian <vagrant@debian.org> @@ -8745,6 +8745,9 @@ with a new public API, and RPython support.") (arguments '(#:phases (modify-phases %standard-phases + (add-before 'install 'set-HOME + (lambda _ + (setenv "HOME" "/tmp"))) (replace 'check (lambda _ ;; Tests require write access to HOME. @@ -14617,14 +14620,14 @@ is the new Pyro version that is actively developed.") (version "2.9.4") (source (origin - (method url-fetch) - (uri (string-append "https://bitbucket.org/khinsen/" - "scientificpython/downloads/ScientificPython-" - version ".tar.gz")) - (file-name (string-append "ScientificPython-" version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/khinsen/ScientificPython") + (commit (string-append "rel" version)))) + (file-name (git-file-name name version)) (sha256 (base32 - "0fc69zhlsn9d2jvbzyjl9ah53vj598h84nkq230c83ahfvgzx5y3")))) + "16l48aj9fps9r7jyk8gpxppwrv0fqvlc13sayxskz28r5s6sjwbl")))) (build-system python-build-system) (inputs `(("netcdf" ,netcdf))) @@ -14642,7 +14645,7 @@ is the new Pyro version that is actively developed.") (invoke "python" "setup.py" "build" (string-append "--netcdf_prefix=" (assoc-ref inputs "netcdf")))))))) - (home-page "https://bitbucket.org/khinsen/scientificpython") + (home-page "http://dirac.cnrs-orleans.fr/ScientificPython") (synopsis "Python modules for scientific computing") (description "ScientificPython is a collection of Python modules that are useful for scientific computing. Most modules are rather general (Geometry, @@ -14654,16 +14657,17 @@ not actively maintained and works only with Python 2 and NumPy < 1.9.") (define-public python2-mmtk (package (name "python2-mmtk") - (version "2.7.11") + (version "2.7.12") (source (origin - (method url-fetch) - (uri (string-append "https://bitbucket.org/khinsen/" - "mmtk/downloads/MMTK-" version ".tar.gz")) - (file-name (string-append "MMTK-" version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/khinsen/MMTK") + (commit (string-append "rel" version)))) + (file-name (git-file-name name version)) (sha256 (base32 - "1d0nnjx4lwsvh8f99vv1r6gi50d93yba0adkz8b4zgv4za4c5862")))) + "1fqwh3ba9jd42nigvn5shndgwb1zy7kh9520ncvqci7n8ffjr6p1")))) (build-system python-build-system) (native-inputs `(("netcdf" ,netcdf))) @@ -16884,3 +16888,27 @@ qvarious formats: PDF, PostScript, PNG and even SVG.") (description "Pyphen is a pure Python module to hyphenate text using existing Hunspell hyphenation dictionaries.") (license (list license:gpl2 license:lgpl2.1 license:mpl1.1)))) + +(define-public python-intelhex + (package + (name "python-intelhex") + (version "2.2.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "intelhex" version)) + (sha256 + (base32 + "0ckqjbxd8gwcg98gfzpn4vq1qxzfvq3rdbrr1hikj1nmw08qb780")))) + (build-system python-build-system) + (arguments '(#:tests? #f)) ;issue with version + (home-page "https://pypi.org/project/IntelHex/") + (synopsis "Python library for Intel HEX files manipulations") + (description "The Intel HEX file format is widely used in microprocessors +and microcontrollers area (embedded systems etc.) as the de facto standard for +representation of code to be programmed into microelectronic devices. This +package provides an intelhex Python library to read, write, create from +scratch and manipulate data from Intel HEX file format. It also includes +several convenience Python scripts, including \"classic\" hex2bin and bin2hex +converters and more, those based on the library itself.") + (license license:bsd-3))) diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm index 644c9d7666..048941e8a9 100644 --- a/gnu/packages/python.scm +++ b/gnu/packages/python.scm @@ -57,6 +57,7 @@ ;;; Copyright © 2018, 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2018 Luther Thompson <lutheroto@gmail.com> ;;; Copyright © 2018 Vagrant Cascadian <vagrant@debian.org> +;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -408,6 +409,31 @@ data types.") (version-major+minor version) "/site-packages")))))))) +(define-public python-3.8 + (package + (inherit python-3.7) + (name "python-next") + (version "3.8.0") + (source + (origin + (inherit (package-source python-3.7)) + (uri (string-append "https://www.python.org/ftp/python/" + version "/Python-" version ".tar.xz")) + (sha256 (base32 "110d0did9rxn7rg85kf2fwli5hqq44xv2d8bi7d92m7v2d728mmk")) + (patches (search-patches + "python-3.8-search-paths.patch" + "python-3-fix-tests.patch" + "python-3.8-fix-tests.patch" + "python-3-deterministic-build-info.patch")) + (snippet + '(begin + ;; Delete the bundled copy of libexpat. + (delete-file-recursively "Modules/expat") + (substitute* "Modules/Setup" + ;; Link Expat instead of embedding the bundled one. + (("^#pyexpat.*") "pyexpat pyexpat.c -lexpat\n")) + #t)))))) + ;; Current 3.x version. (define-public python-3 python-3.7) diff --git a/gnu/packages/serialization.scm b/gnu/packages/serialization.scm index 2bd1872bfd..00a8d27387 100644 --- a/gnu/packages/serialization.scm +++ b/gnu/packages/serialization.scm @@ -283,7 +283,7 @@ that implements both the msgpack and msgpack-rpc specifications.") (define-public jsoncpp (package (name "jsoncpp") - (version "1.9.1") + (version "1.9.2") (home-page "https://github.com/open-source-parsers/jsoncpp") (source (origin (method git-fetch) @@ -291,7 +291,7 @@ that implements both the msgpack and msgpack-rpc specifications.") (file-name (git-file-name name version)) (sha256 (base32 - "00g356iv3kcp0gadj7gbyzf9jn9avvx9vxbxc7c2i5nnry8z72wj")))) + "037d1b1qdmn3rksmn1j71j26bv4hkjv7sn7da261k853xb5899sg")))) (build-system cmake-build-system) (arguments `(#:configure-flags '("-DBUILD_SHARED_LIBS:BOOL=YES"))) diff --git a/gnu/packages/spice.scm b/gnu/packages/spice.scm index 4787f107f0..edc6135fbd 100644 --- a/gnu/packages/spice.scm +++ b/gnu/packages/spice.scm @@ -157,12 +157,14 @@ which allows users to view a desktop computing environment.") (native-inputs `(("glib:bin" ,glib "bin") ("intltool" ,intltool) - ("pkg-config" ,pkg-config))) + ("pkg-config" ,pkg-config) + ("vala" ,vala))) (arguments `(#:configure-flags '("--enable-gstaudio" "--enable-gstvideo" "--enable-pulse" + "--enable-vala" "--enable-introspection") #:phases (modify-phases %standard-phases diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm index 904b4e1755..5a62a1796e 100644 --- a/gnu/packages/virtualization.scm +++ b/gnu/packages/virtualization.scm @@ -107,23 +107,14 @@ (define-public qemu (package (name "qemu") - (version "4.1.0") + (version "4.1.1") (source (origin (method url-fetch) (uri (string-append "https://download.qemu.org/qemu-" version ".tar.xz")) (sha256 (base32 - "1ih9v6gxgild3m4g80ld4dr3wp9db3bpy203k73fxgc9hqhn0vk5")) - (patches - (list - ;; Fix an ordering issue with recent kernels, see - ;; <https://bugs.gnu.org/37860>. - (qemu-patch - "bf9e0313c27d8e6ecd7f7de3d63e1cb25d8f6311" - "qemu-tests-make-filemonitor-test-more-robust.patch" - (base32 - "1242wqpr8id3cn88pzbig3sqh4znml0g0h2mwdmdyhp81blq7s7n")))))) + "1lm1jndfpc5sydwrxyiz5sms414zkcg9jdl0zx318qbjsayxnvzd")))) (build-system gnu-build-system) (arguments '(;; Running tests in parallel can occasionally lead to failures, like: @@ -300,7 +291,12 @@ server and embedded PowerPC, and S390 guests.") ;; qemu-minimal-2.10 needs Python 2. Remove below once no longer necessary. (native-inputs `(("python-2" ,python-2) ,@(fold alist-delete (package-native-inputs qemu) - '("python-wrapper"))))))) + '("python-wrapper")))) + (inputs + (fold alist-delete (package-inputs qemu) + ;; Disable seccomp support, because it's not required for the GRUB + ;; test suite, and because it fails with libseccomp 2.4.2 and later. + '("libseccomp")))))) (define-public libosinfo (package @@ -385,6 +381,12 @@ all common programming languages. Vala bindings are also provided.") "/share/doc/" ,name "-" ,version) "--sysconfdir=/etc" "--localstatedir=/var") + #:make-flags + ;; Treat the kernel headers as system headers to silence + ;; compiler warnings from those. + (list (string-append "C_INCLUDE_PATH=" + (assoc-ref %build-inputs "kernel-headers") + "/include")) #:phases (modify-phases %standard-phases (replace 'install diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm index 2afcf5f6ee..c673139d19 100644 --- a/gnu/packages/web.scm +++ b/gnu/packages/web.scm @@ -214,14 +214,14 @@ Interface} specification.") ;; ’stable’ and recommends that “in general you deploy the NGINX mainline ;; branch at all times” (https://www.nginx.com/blog/nginx-1-6-1-7-released/) ;; Consider updating the nginx-documentation package together with this one. - (version "1.17.5") + (version "1.17.6") (source (origin (method url-fetch) (uri (string-append "https://nginx.org/download/nginx-" version ".tar.gz")) (sha256 (base32 - "1hqhziic4csci8xs4q8vbzpmj2qjkhmmx68zza7h5bvmbbhkbvk3")))) + "1dipq90h3n1xdslwbijwlhbk84r7q0bswlbvi970may09lqsbd1w")))) (build-system gnu-build-system) (inputs `(("openssl" ,openssl) ("pcre" ,pcre) @@ -1341,6 +1341,20 @@ hash/signatures.") "LibYAML is a YAML 1.1 parser and emitter written in C.") (license license:expat))) +(define-public libyaml-2.1 + (package + (inherit libyaml) + (version "0.2.1") + (source + (origin + (method url-fetch) + (uri (string-append + "http://pyyaml.org/download/libyaml/yaml-" + version ".tar.gz")) + (sha256 + (base32 + "1karpcfgacgppa82wm2drcfn2kb6q2wqfykf5nrhy20sci2i2a3q")))))) + (define-public libquvi-scripts (package (name "libquvi-scripts") @@ -4176,8 +4190,8 @@ CDF, Atom 0.3, and Atom 1.0 feeds.") (package-with-python2 python-feedparser)) (define-public guix-data-service - (let ((commit "5e2bc7c6e920e1542ab8fde39dbddca443a7cbc8") - (revision "4")) + (let ((commit "23f60a6bbb923a9510d95250b4a1626cb8a84b7f") + (revision "5")) (package (name "guix-data-service") (version (string-append "0.0.1-" revision "." (string-take commit 7))) @@ -4189,7 +4203,7 @@ CDF, Atom 0.3, and Atom 1.0 feeds.") (file-name (git-file-name name version)) (sha256 (base32 - "0awfvps7k9bpg3gpgc93y401g7pjabx7mr9960vigad8vddhixqi")))) + "08v6wdj5ia139krplc7y74s4rm1iblqf91713z69yhh5zbkvyxg8")))) (build-system gnu-build-system) (arguments '(#:modules ((guix build utils) @@ -4199,12 +4213,6 @@ CDF, Atom 0.3, and Atom 1.0 feeds.") #:test-target "check-with-tmp-database" #:phases (modify-phases %standard-phases - (add-after 'set-paths 'set-GUIX_ENVIRONMENT - (lambda* (#:key inputs #:allow-other-keys) - ;; This means guix.el finds the Emacs modules - (setenv "GUIX_ENVIRONMENT" - (assoc-ref inputs "emacs-with-modules")) - #t)) (add-before 'build 'set-GUILE_AUTO_COMPILE (lambda _ ;; To avoid errors relating to guild @@ -4255,10 +4263,8 @@ CDF, Atom 0.3, and Atom 1.0 feeds.") ("autoconf" ,autoconf) ("automake" ,automake) ("ephemeralpg" ,ephemeralpg) - ("emacs-with-modules" ,(directory-union - "emacs-union" - (list emacs-no-x - emacs-htmlize))) + ("emacs-minimal" ,emacs-minimal) + ("emacs-htmlize" ,emacs-htmlize) ("pkg-config" ,pkg-config))) (synopsis "Store and provide data about GNU Guix") (description diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm index 080b0f32a6..87e62aa1aa 100644 --- a/gnu/packages/wm.scm +++ b/gnu/packages/wm.scm @@ -24,6 +24,7 @@ ;;; Copyright © 2019 Kyle Andrews <kyle.c.andrews@gmail.com> ;;; Copyright © 2019 Ingo Ruhnke <grumbel@gmail.com> ;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org> +;;; Copyright © 2019 John Soo <jsoo1@asu.edu> ;;; ;;; This file is part of GNU Guix. ;;; @@ -649,36 +650,45 @@ tiled on several screens.") (define-public xmobar (package (name "xmobar") - (version "0.28") + (version "0.31") (source (origin (method url-fetch) (uri (string-append "mirror://hackage/package/xmobar/" "xmobar-" version ".tar.gz")) (sha256 (base32 - "1xh87asg8y35srvp7d3gyyy4bkxsw122liihxgzgm8pqv2z3h4zd")))) + "1sbxva4zaj060bigmxivpn4zlz0q1qbq2np8gljdqkjvysjzpbka")))) (build-system haskell-build-system) (native-inputs `(("ghc-hspec" ,ghc-hspec) ("hspec-discover" ,hspec-discover))) (inputs - `(("ghc-hinotify" ,ghc-hinotify) + `(("ghc-alsa-core" ,ghc-alsa-core) + ("ghc-alsa-mixer" ,ghc-alsa-mixer) + ("ghc-dbus" ,ghc-dbus) + ("ghc-hinotify" ,ghc-hinotify) ("ghc-http" ,ghc-http) + ("ghc-http-conduit" ,ghc-http-conduit) + ("ghc-http-types" ,ghc-http-types) ("ghc-iwlib" ,ghc-iwlib) + ("ghc-libmpd" ,ghc-libmpd) + ("ghc-old-locale" ,ghc-old-locale) ("ghc-parsec-numbers" ,ghc-parsec-numbers) ("ghc-regex-compat" ,ghc-regex-compat) + ("ghc-temporary" ,ghc-temporary) + ("ghc-timezone-olson" ,ghc-timezone-olson) + ("ghc-x11" ,ghc-x11) ("ghc-x11-xft" ,ghc-x11-xft) ("libxpm" ,libxpm))) (arguments - `(#:configure-flags - (list (string-append "--flags=" - (string-join (list "with_inotify" - "with_iwlib" - "with_utf8" - "with_weather" - "with_xft" - "with_xpm") - " "))))) + `(#:configure-flags (list "--flags=all_extensions") + #:phases + (modify-phases %standard-phases + (add-before 'build 'patch-test-shebang + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "test/Xmobar/Plugins/Monitors/AlsaSpec.hs" + (("/bin/bash") (which "bash"))) + #t))))) (home-page "http://xmobar.org") (synopsis "Minimalistic text based status bar") (description diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm index 8c24ff92ec..4376c64108 100644 --- a/gnu/packages/xdisorg.scm +++ b/gnu/packages/xdisorg.scm @@ -1108,6 +1108,49 @@ night to daytime temperature to allow your eyes to slowly adapt. At night the color temperature should be set to match the lamps in your room.") (license license:gpl3+))) +(define-public redshift-wayland + (let ((commit "7da875d34854a6a34612d5ce4bd8718c32bec804") + (revision "1")) + (package + (name "redshift-wayland") + (version (string-append "1.12-" + revision "." (string-take commit 7))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/minus7/redshift.git") + (commit commit))) + (file-name (string-append name "-" version)) + (sha256 + (base32 + "0nbkcw3avmzjg1jr1g9yfpm80kzisy55idl09b6wvzv2sz27n957")))) + (build-system gnu-build-system) + (native-inputs + `(("autoconf" ,autoconf) + ("automake" ,automake) + ("libtool" ,libtool) + ("pkg-config" ,pkg-config) + ("intltool" ,intltool))) + (inputs + `(("libdrm" ,libdrm) + ("libx11" ,libx11) + ("libxcb" ,libxcb) + ("libxxf86vm" ,libxxf86vm) + ("glib" ,glib) ; for Geoclue2 support + ("wayland" ,wayland))) + (home-page "https://github.com/minus7/redshift") + (synopsis "Adjust the color temperature of your screen (with Wayland support)") + (description + "Redshift adjusts the color temperature according to the position of the +sun. A different color temperature is set during night and daytime. During +twilight and early morning, the color temperature transitions smoothly from +night to daytime temperature to allow your eyes to slowly adapt. At night the +color temperature should be set to match the lamps in your room. + +This is a fork with added support for Wayland using the wlr-gamma-control +protocol.") + (license license:gpl3+)))) + (define-public xscreensaver (package (name "xscreensaver") diff --git a/gnu/services/sysctl.scm b/gnu/services/sysctl.scm index 5e9e6f0661..eb7a61b2a9 100644 --- a/gnu/services/sysctl.scm +++ b/gnu/services/sysctl.scm @@ -59,8 +59,7 @@ (provision '(sysctl)) (start #~(lambda _ (zero? (system* #$sysctl "--load" #$sysctl.conf)))) - (stop #~(const #t)) - (respawn? #f)))))) + (one-shot? #t)))))) (define sysctl-service-type (service-type diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm index ac6e4ded92..3fa9fd4ba5 100644 --- a/gnu/system/vm.scm +++ b/gnu/system/vm.scm @@ -678,7 +678,7 @@ to USB sticks meant to be read-only." (initrd (lambda (file-systems . rest) (apply (operating-system-initrd os) file-systems - #:volatile-root? #t + #:volatile-root? volatile? rest))) (bootloader (if (string=? "iso9660" file-system-type) diff --git a/gnu/tests/install.scm b/gnu/tests/install.scm index 22c9554705..bce4c4b9d4 100644 --- a/gnu/tests/install.scm +++ b/gnu/tests/install.scm @@ -267,7 +267,7 @@ packages defined in installation-os." (define* (qemu-command/writable-image image #:key (memory-size 256)) "Return as a monadic value the command to run QEMU on a writable copy of -IMAGE, a disk image. The QEMU VM is has access to MEMORY-SIZE MiB of RAM." +IMAGE, a disk image. The QEMU VM has access to MEMORY-SIZE MiB of RAM." (mlet %store-monad ((system (current-system))) (return #~(let ((image #$image)) ;; First we need a writable copy of the image. diff --git a/guix/build/download.scm b/guix/build/download.scm index a4c91550a6..141ef409d6 100644 --- a/guix/build/download.scm +++ b/guix/build/download.scm @@ -187,10 +187,13 @@ name decoding bug described at DIRECTORY. Those authority certificates are checked when 'peer-certificate-status' is later called." (let ((cred (make-certificate-credentials)) - (files (or (scandir directory - (lambda (file) - (string-suffix? ".pem" file))) - '()))) + (files (match (scandir directory (cut string-suffix? ".pem" <>)) + ((or #f ()) + ;; Some distros provide nothing but bundles (*.crt) under + ;; /etc/ssl/certs, so look for them. + (or (scandir directory (cut string-suffix? ".crt" <>)) + '())) + (pem pem)))) (for-each (lambda (file) (let ((file (string-append directory "/" file))) ;; Protect against dangling symlinks. @@ -198,7 +201,7 @@ DIRECTORY. Those authority certificates are checked when (set-certificate-credentials-x509-trust-file!* cred file x509-certificate-format/pem)))) - (or files '())) + files) cred)) (define (peer-certificate session) diff --git a/guix/build/emacs-build-system.scm b/guix/build/emacs-build-system.scm index 47a9eda9e6..f0c41812f1 100644 --- a/guix/build/emacs-build-system.scm +++ b/guix/build/emacs-build-system.scm @@ -2,7 +2,7 @@ ;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch> ;;; Copyright © 2016 David Thompson <davet@gnu.org> ;;; Copyright © 2016 Alex Kost <alezost@gmail.com> -;;; Copyright © 2018 Maxim Cournoyer <maxim.cournoyer@gmail.com> +;;; Copyright © 2018, 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -74,40 +74,14 @@ archive, a directory, or an Emacs Lisp file." #t) (gnu:unpack #:source source))) -(define* (set-emacs-load-path #:key source inputs #:allow-other-keys) - (define (inputs->directories inputs) - "Extract the directory part from INPUTS." - (match inputs - (((names . directories) ...) directories))) - - (define (input-directory->el-directory input-directory) - "Return the correct Emacs Lisp directory in INPUT-DIRECTORY or #f, if there -is no Emacs Lisp directory." - (let ((legacy-elisp-directory (string-append input-directory %legacy-install-suffix)) - (guix-elisp-directory - (string-append - input-directory %install-suffix "/" - (store-directory->elpa-name-version input-directory)))) - (cond - ((file-exists? guix-elisp-directory) guix-elisp-directory) - ((file-exists? legacy-elisp-directory) legacy-elisp-directory) - (else #f)))) - - (define (input-directories->el-directories input-directories) - "Return the list of Emacs Lisp directories in INPUT-DIRECTORIES." - (filter-map input-directory->el-directory input-directories)) - - "Set the EMACSLOADPATH environment variable so that dependencies are found." +(define* (add-source-to-load-path #:key dummy #:allow-other-keys) + "Augment the EMACSLOADPATH environment variable with the source directory." (let* ((source-directory (getcwd)) - (input-elisp-directories (input-directories->el-directories - (inputs->directories inputs))) - (emacs-load-path-value - (string-join - (append input-elisp-directories (list source-directory)) - ":" 'suffix))) + (emacs-load-path-value (string-append (getenv "EMACSLOADPATH") ":" + source-directory))) (setenv "EMACSLOADPATH" emacs-load-path-value) - (format #t "environment variable `EMACSLOADPATH' set to ~a\n" - emacs-load-path-value))) + (format #t "source directory ~s appended to the `EMACSLOADPATH' \ +environment variable\n" source-directory))) (define* (build #:key outputs inputs #:allow-other-keys) "Compile .el files." @@ -269,7 +243,7 @@ second hyphen. This corresponds to 'name-version' as used in ELPA packages." (define %standard-phases (modify-phases gnu:%standard-phases (replace 'unpack unpack) - (add-after 'unpack 'set-emacs-load-path set-emacs-load-path) + (add-after 'unpack 'add-source-to-load-path add-source-to-load-path) (delete 'bootstrap) (delete 'configure) ;; Move the build phase after install: the .el files are byte compiled diff --git a/guix/import/hackage.scm b/guix/import/hackage.scm index 5fe3d85a7f..9cf07c9504 100644 --- a/guix/import/hackage.scm +++ b/guix/import/hackage.scm @@ -52,8 +52,8 @@ hackage-package?)) (define ghc-standard-libraries - ;; List of libraries distributed with ghc (8.4.3). - ;; Contents of ...-ghc-8.4.3/lib/ghc-8.4.3. + ;; List of libraries distributed with ghc (8.6.5). + ;; Contents of ...-ghc-8.6.5/lib/ghc-8.6.5. '("ghc" "cabal" ;; in the output of `ghc-pkg list` Cabal is uppercased, but ;; hackage-name->package-name takes this into account. @@ -70,11 +70,13 @@ "ghc-boot" "ghc-boot-th" "ghc-compact" + "ghc-heap" "ghc-prim" "ghci" "haskeline" "hpc" "integer-gmp" + "libiserv" "mtl" "parsec" "pretty" diff --git a/guix/inferior.scm b/guix/inferior.scm index b8e2f21f42..71dae89e92 100644 --- a/guix/inferior.scm +++ b/guix/inferior.scm @@ -89,6 +89,7 @@ gexp->derivation-in-inferior %inferior-cache-directory + cached-channel-instance inferior-for-channels)) ;;; Commentary: @@ -635,6 +636,58 @@ failing when GUIX is too old and lacks the 'guix repl' command." (make-parameter (string-append (cache-directory #:ensure? #f) "/inferiors"))) +(define* (cached-channel-instance store + channels + #:key + (cache-directory (%inferior-cache-directory)) + (ttl (* 3600 24 30))) + "Return a directory containing a guix filetree defined by CHANNELS, a list of channels. +The directory is a subdirectory of CACHE-DIRECTORY, where entries can be reclaimed after TTL seconds. +This procedure opens a new connection to the build daemon." + (define instances + (latest-channel-instances store channels)) + + (define key + (bytevector->base32-string + (sha256 + (string->utf8 + (string-concatenate (map channel-instance-commit instances)))))) + + (define cached + (string-append cache-directory "/" key)) + + (define (base32-encoded-sha256? str) + (= (string-length str) 52)) + + (define (cache-entries directory) + (map (lambda (file) + (string-append directory "/" file)) + (scandir directory base32-encoded-sha256?))) + + (define symlink* + (lift2 symlink %store-monad)) + + (define add-indirect-root* + (store-lift add-indirect-root)) + + (mkdir-p cache-directory) + (maybe-remove-expired-cache-entries cache-directory + cache-entries + #:entry-expiration + (file-expiration-time ttl)) + + (if (file-exists? cached) + cached + (run-with-store store + (mlet %store-monad ((profile + (channel-instances->derivation instances))) + (mbegin %store-monad + (show-what-to-build* (list profile)) + (built-derivations (list profile)) + (symlink* (derivation->output-path profile) cached) + (add-indirect-root* cached) + (return cached)))))) + (define* (inferior-for-channels channels #:key (cache-directory (%inferior-cache-directory)) @@ -645,48 +698,10 @@ procedure opens a new connection to the build daemon. This is a convenience procedure that people may use in manifests passed to 'guix package -m', for instance." - (with-store store - (let () - (define instances - (latest-channel-instances store channels)) - - (define key - (bytevector->base32-string - (sha256 - (string->utf8 - (string-concatenate (map channel-instance-commit instances)))))) - - (define cached - (string-append cache-directory "/" key)) - - (define (base32-encoded-sha256? str) - (= (string-length str) 52)) - - (define (cache-entries directory) - (map (lambda (file) - (string-append directory "/" file)) - (scandir directory base32-encoded-sha256?))) - - (define symlink* - (lift2 symlink %store-monad)) - - (define add-indirect-root* - (store-lift add-indirect-root)) - - (mkdir-p cache-directory) - (maybe-remove-expired-cache-entries cache-directory - cache-entries - #:entry-expiration - (file-expiration-time ttl)) - - (if (file-exists? cached) - (open-inferior cached) - (run-with-store store - (mlet %store-monad ((profile - (channel-instances->derivation instances))) - (mbegin %store-monad - (show-what-to-build* (list profile)) - (built-derivations (list profile)) - (symlink* (derivation->output-path profile) cached) - (add-indirect-root* cached) - (return (open-inferior cached))))))))) + (define cached + (with-store store + (cached-channel-instance store + channels + #:cache-directory cache-directory + #:ttl ttl))) + (open-inferior cached)) diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm index 9ad7379bbe..ae78df9c5c 100644 --- a/guix/scripts/build.scm +++ b/guix/scripts/build.scm @@ -802,7 +802,15 @@ build---packages, gexps, derivations, and so on." (append-map (match-lambda (('argument . (? string? spec)) (cond ((derivation-path? spec) - (list (read-derivation-from-file spec))) + (catch 'system-error + (lambda () + (list (read-derivation-from-file spec))) + (lambda args + ;; Non-existent .drv files can be substituted down + ;; the road, so don't error out. + (if (= ENOENT (system-error-errno args)) + '() + (apply throw args))))) ((store-path? spec) ;; Nothing to do; maybe for --log-file. '()) @@ -934,7 +942,11 @@ needed." '()))) (items (filter-map (match-lambda (('argument . (? store-path? file)) - (and (not (derivation-path? file)) + ;; If FILE is a .drv that's not in + ;; store, keep it so that it can be + ;; substituted. + (and (or (not (derivation-path? file)) + (not (file-exists? file))) file)) (_ #f)) opts)) @@ -965,7 +977,8 @@ needed." (map (compose list derivation-file-name) drv) roots)) ((not (assoc-ref opts 'dry-run?)) - (and (build-derivations store drv mode) + (and (build-derivations store (append drv items) + mode) (for-each show-derivation-outputs drv) (for-each (cut register-root store <> <>) (map (lambda (drv) diff --git a/guix/scripts/deploy.scm b/guix/scripts/deploy.scm index f311587ec3..27b7e4fd1c 100644 --- a/guix/scripts/deploy.scm +++ b/guix/scripts/deploy.scm @@ -62,6 +62,10 @@ Perform the deployment specified by FILE.\n")) (lambda args (show-help) (exit 0))) + (option '(#\V "version") #f #f + (lambda args + (show-version-and-exit "guix deploy"))) + (option '(#\s "system") #t #f (lambda (opt name arg result) (alist-cons 'system arg diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm index 920d6c01fe..89b3e389fc 100644 --- a/guix/scripts/pack.scm +++ b/guix/scripts/pack.scm @@ -800,6 +800,10 @@ last resort for relocation." (option '(#\n "dry-run") #f #f (lambda (opt name arg result) (alist-cons 'dry-run? #t (alist-cons 'graft? #f result)))) + (option '(#\d "derivation") #f #f + (lambda (opt name arg result) + (alist-cons 'derivation-only? #t result))) + (option '(#\f "format") #t #f (lambda (opt name arg result) (alist-cons 'format (string->symbol arg) result))) @@ -918,6 +922,8 @@ Create a bundle of PACKAGE.\n")) -r, --root=FILE make FILE a symlink to the result, and register it as a garbage collector root")) (display (G_ " + -d, --derivation return the derivation of the pack")) + (display (G_ " -v, --verbosity=LEVEL use the given verbosity LEVEL")) (display (G_ " --bootstrap use the bootstrap binaries to build the pack")) @@ -1002,6 +1008,7 @@ Create a bundle of PACKAGE.\n")) (assoc-ref opts 'system) #:graft? (assoc-ref opts 'graft?)))) (let* ((dry-run? (assoc-ref opts 'dry-run?)) + (derivation? (assoc-ref opts 'derivation-only?)) (relocatable? (assoc-ref opts 'relocatable?)) (proot? (eq? relocatable? 'proot)) (manifest (let ((manifest (manifest-from-args store opts))) @@ -1070,11 +1077,15 @@ Create a bundle of PACKAGE.\n")) #:archiver archiver))) (mbegin %store-monad - (show-what-to-build* (list drv) - #:use-substitutes? - (assoc-ref opts 'substitutes?) - #:dry-run? dry-run?) - (munless dry-run? + (munless derivation? + (show-what-to-build* (list drv) + #:use-substitutes? + (assoc-ref opts 'substitutes?) + #:dry-run? dry-run?)) + (mwhen derivation? + (return (format #t "~a~%" + (derivation-file-name drv)))) + (munless (or derivation? dry-run?) (built-derivations (list drv)) (mwhen gc-root (register-root* (match (derivation->output-paths drv) diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm index 92aac6066e..ef8d5c8fd9 100644 --- a/guix/scripts/pull.scm +++ b/guix/scripts/pull.scm @@ -36,6 +36,8 @@ #:autoload (guix inferior) (open-inferior) #:use-module (guix scripts build) #:autoload (guix build utils) (which) + #:use-module ((guix build syscalls) + #:select (with-file-lock/no-wait)) #:use-module (guix git) #:use-module (git) #:use-module (gnu packages) @@ -56,6 +58,8 @@ #:use-module (ice-9 vlist) #:use-module (ice-9 format) #:export (display-profile-content + channel-list + with-git-error-handling guix-pull)) @@ -79,8 +83,6 @@ (display (G_ "Usage: guix pull [OPTION]... Download and deploy the latest version of Guix.\n")) (display (G_ " - --verbose produce verbose output")) - (display (G_ " -C, --channels=FILE deploy the channels defined in FILE")) (display (G_ " --url=URL download from the Git repository at URL")) @@ -120,10 +122,7 @@ Download and deploy the latest version of Guix.\n")) (define %options ;; Specifications of the command-line options. - (cons* (option '("verbose") #f #f - (lambda (opt name arg result) - (alist-cons 'verbose? #t result))) - (option '(#\C "channels") #t #f + (cons* (option '(#\C "channels") #t #f (lambda (opt name arg result) (alist-cons 'channel-file arg result))) (option '(#\l "list-generations") #f #t @@ -382,7 +381,7 @@ previous generation. Return true if there are news to display." (display-channel-news profile)) (define* (build-and-install instances profile - #:key use-substitutes? verbose? dry-run?) + #:key use-substitutes? dry-run?) "Build the tool from SOURCE, and install it in PROFILE. When DRY-RUN? is true, display what would be built without actually building it." (define update-profile @@ -818,13 +817,16 @@ Use '~/.config/guix/channels.scm' instead.")) (if (assoc-ref opts 'bootstrap?) %bootstrap-guile (canonical-package guile-2.2))))) - (run-with-store store - (build-and-install instances profile - #:dry-run? - (assoc-ref opts 'dry-run?) - #:use-substitutes? - (assoc-ref opts 'substitutes?) - #:verbose? - (assoc-ref opts 'verbose?)))))))))))))) + (with-file-lock/no-wait (string-append profile ".lock") + (lambda (key . args) + (leave (G_ "profile ~a is locked by another process~%") + profile)) + + (run-with-store store + (build-and-install instances profile + #:dry-run? + (assoc-ref opts 'dry-run?) + #:use-substitutes? + (assoc-ref opts 'substitutes?))))))))))))))) ;;; pull.scm ends here diff --git a/guix/scripts/time-machine.scm b/guix/scripts/time-machine.scm new file mode 100644 index 0000000000..19e635555a --- /dev/null +++ b/guix/scripts/time-machine.scm @@ -0,0 +1,135 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2019 Konrad Hinsen <konrad.hinsen@fastmail.net> +;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (guix scripts time-machine) + #:use-module (guix ui) + #:use-module (guix scripts) + #:use-module (guix inferior) + #:use-module (guix channels) + #:use-module (guix store) + #:use-module (guix status) + #:use-module ((guix utils) + #:select (%current-system)) + #:use-module ((guix scripts pull) + #:select (with-git-error-handling channel-list)) + #:use-module ((guix scripts build) + #:select (%standard-build-options + show-build-options-help + set-build-options-from-command-line)) + #:use-module (ice-9 match) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-11) + #:use-module (srfi srfi-26) + #:use-module (srfi srfi-37) + #:export (guix-time-machine)) + + +;;; +;;; Command-line options. +;;; + +(define (show-help) + (display (G_ "Usage: guix time-machine [OPTION] -- COMMAND ARGS... +Execute COMMAND ARGS... in an older version of Guix.\n")) + (display (G_ " + -C, --channels=FILE deploy the channels defined in FILE")) + (display (G_ " + --url=URL use the Git repository at URL")) + (display (G_ " + --commit=COMMIT use the specified COMMIT")) + (display (G_ " + --branch=BRANCH use the tip of the specified BRANCH")) + (newline) + (show-build-options-help) + (newline) + (display (G_ " + -h, --help display this help and exit")) + (display (G_ " + -V, --version display version information and exit")) + (newline) + (show-bug-report-information)) + +(define %options + ;; Specifications of the command-line options. + (cons* (option '(#\C "channels") #t #f + (lambda (opt name arg result) + (alist-cons 'channel-file arg result))) + (option '("url") #t #f + (lambda (opt name arg result) + (alist-cons 'repository-url arg + (alist-delete 'repository-url result)))) + (option '("commit") #t #f + (lambda (opt name arg result) + (alist-cons 'ref `(commit . ,arg) result))) + (option '("branch") #t #f + (lambda (opt name arg result) + (alist-cons 'ref `(branch . ,arg) result))) + (option '(#\h "help") #f #f + (lambda args + (show-help) + (exit 0))) + (option '(#\V "version") #f #f + (lambda args + (show-version-and-exit "guix time-machine"))) + + %standard-build-options)) + +(define %default-options + ;; Alist of default option values. + `((system . ,(%current-system)) + (substitutes? . #t) + (build-hook? . #t) + (print-build-trace? . #t) + (print-extended-build-trace? . #t) + (multiplexed-build-output? . #t) + (graft? . #t) + (debug . 0) + (verbosity . 1))) + +(define (parse-args args) + "Parse the list of command line arguments ARGS." + ;; The '--' token is used to separate the command to run from the rest of + ;; the operands. + (let-values (((args command) (break (cut string=? "--" <>) args))) + (let ((opts (parse-command-line args %options + (list %default-options)))) + (match command + (() opts) + (("--") opts) + (("--" command ...) (alist-cons 'exec command opts)))))) + + +;;; +;;; Entry point. +;;; + +(define (guix-time-machine . args) + (with-error-handling + (with-git-error-handling + (let* ((opts (parse-args args)) + (channels (channel-list opts)) + (command-line (assoc-ref opts 'exec))) + (when command-line + (let* ((directory + (with-store store + (with-status-verbosity (assoc-ref opts 'verbosity) + (set-build-options-from-command-line store opts) + (cached-channel-instance store channels)))) + (executable (string-append directory "/bin/guix"))) + (apply execl (cons* executable executable command-line)))))))) diff --git a/guix/utils.scm b/guix/utils.scm index 1f99c5b3f5..64853f2989 100644 --- a/guix/utils.scm +++ b/guix/utils.scm @@ -782,13 +782,11 @@ be determined." ;; the absolute file name by looking at %LOAD-PATH; doing this at ;; run time rather than expansion time is necessary to allow files ;; to be moved on the file system. - (cond ((not file-name) - #f) ;raising an error would upset Geiser users - ((string-prefix? "/" file-name) - (dirname file-name)) - (else - #`(absolute-dirname #,file-name)))) - (#f + (if (string-prefix? "/" file-name) + (dirname file-name) + #`(absolute-dirname #,file-name))) + ((or ('filename . #f) #f) + ;; raising an error would upset Geiser users #f)))))) ;; A source location. diff --git a/tests/guix-build.sh b/tests/guix-build.sh index 52feda9d3a..21b6af4395 100644 --- a/tests/guix-build.sh +++ b/tests/guix-build.sh @@ -36,6 +36,19 @@ guix build -e '(@@ (gnu packages bootstrap) %bootstrap-guile)' | \ guix build hello -d | \ grep -e '-hello-[0-9\.]\+\.drv$' +# Passing a .drv. +drv="`guix build -e '(@@ (gnu packages bootstrap) %bootstrap-guile)' -d`" +out="`guix build "$drv"`" +out2="`guix build -e '(@@ (gnu packages bootstrap) %bootstrap-guile)'`" +test "$out" = "$out2" + +# Passing the name of a .drv that doesn't exist. The daemon should try to +# substitute the .drv. Here we just look for the "cannot build missing +# derivation" error that indicates that the daemon did try to substitute the +# .drv. +guix build "$NIX_STORE_DIR/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-foo.drv" 2>&1 \ + | grep "missing derivation" + # Passing a URI. GUIX_DAEMON_SOCKET="file://$GUIX_STATE_DIRECTORY/daemon-socket/socket" \ guix build -e '(@@ (gnu packages bootstrap) %bootstrap-guile)' diff --git a/tests/guix-pack.sh b/tests/guix-pack.sh index 0feae6d1e8..cf4e4ca4f9 100644 --- a/tests/guix-pack.sh +++ b/tests/guix-pack.sh @@ -36,6 +36,10 @@ export GUIX_BUILD_OPTIONS test_directory="`mktemp -d`" trap 'chmod -Rf +w "$test_directory"; rm -rf "$test_directory"' EXIT +# Compute the derivation of a pack. +drv="`guix pack coreutils -d --no-grafts`" +guix gc -R "$drv" | grep "`guix build coreutils -d --no-grafts`" + # Build a tarball with no compression. guix pack --compression=none --bootstrap guile-bootstrap |