2 files changed, 65 insertions, 69 deletions

diff --git a/gnu/packages/haskell.scm b/gnu/packages/haskell.scm
index 4aa17d1718d..7639731edfc 100644
--- a/gnu/packages/haskell.scm
+++ b/gnu/packages/haskell.scm
@@ -4,7 +4,7 @@
 ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
 ;;; Copyright © 2015, 2019 Eric Bavier <bavier@member.fsf.org>
 ;;; Copyright © 2016, 2018, 2019, 2021, 2026 Ludovic Courtès <ludo@gnu.org>
-;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
+;;; Copyright © 2013, 2016, 2017 Nikita <nikita@n0.is>
 ;;; Copyright © 2016, 2022, 2024 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2022 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2016, 2017 David Craven <david@craven.ch>
@@ -116,6 +116,66 @@
 top of CLISP.")
       (license license:bsd-4))))
 
+(define-public hugs
+  (package
+    (name "hugs")
+    (version "Sep2006")
+    (source
+     (origin
+      (method url-fetch)
+      (uri (string-append "https://www.haskell.org/hugs/downloads/2006-09/"
+                          name "98-plus-" version ".tar.gz"))
+      (sha256
+       (base32
+        "1mdy4aq4campgmnpc2qwq7bsbfhaxfsqdghbyyz2wms4lnfcmyma"))
+      (patches (search-patches "hugs-fix-build.patch"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-before 'configure 'fix-sh-n-cp
+           (lambda _
+             (substitute*
+                 '("configure"
+                   "libraries/configure"
+                   "packages/time/configure"
+                   "packages/base/configure"
+                   "packages/X11/configure"
+                   "packages/HGL/configure"
+                   "packages/OpenAL/configure"
+                   "packages/OpenGL/configure"
+                   "packages/network/configure"
+                   "packages/unix/configure"
+                   "packages/Cabal/tests/HSQL/configure"
+                   "packages/ALUT/configure"
+                   "packages/GLUT/configure"
+                   "packages/base/cbits/execvpe.c"
+                   "packages/base/System/Process/Internals.hs"
+                   "packages/Cabal/Distribution/attic"
+                   "packages/Cabal/Distribution/Simple/Register.hs"
+                   "packages/Cabal/Distribution/Simple/Hugs.hs"
+                   "tools/hugs-hc"
+                   "src/machdep.c"
+                   "libraries/Makefile.in")
+               (("/bin/sh") (which "sh")))
+             (substitute* '("demos/Makefile.in"
+                            "libraries/Makefile.in")
+               (("/bin/cp") (which "cp")))
+             #t)))
+       #:tests? #f)) ; no test target
+    (native-inputs (list gcc-13))
+    (home-page "https://www.haskell.org/hugs/")
+    (synopsis "Functional programming system based on Haskell 98")
+    (description
+     "Hugs 98 is an interpreter and programming environment for developing
+Haskell programs.  It provides an almost complete implementation of Haskell
+98, which includes expression and pattern syntax, primitives for monadic I/O,
+with support for simple interactive programs, handle-based I/O, and exception
+handling.  Hugs has a nearly complete implementation of the Haskell module
+system and supports a number of advanced extensions.")
+   (license (license:non-copyleft "file://License"
+                                  "See License in the distribution."))))
+
 ;; This package contains lots of generated .hc files containing C code to
 ;; bootstrap the compiler without a Haskell compiler.  The included .hc files
 ;; cover not just the compiler sources but also all Haskell libraries.
diff --git a/gnu/packages/hugs.scm b/gnu/packages/hugs.scm
index c82c089b743..3bbfacd606f 100644
--- a/gnu/packages/hugs.scm
+++ b/gnu/packages/hugs.scm
@@ -1,7 +1,4 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
-;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
-;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -19,69 +16,8 @@
 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 
 (define-module (gnu packages hugs)
-  #:use-module (guix licenses)
-  #:use-module (guix packages)
-  #:use-module (guix download)
-  #:use-module (guix build-system gnu)
-  #:use-module (gnu packages)
-  #:use-module (gnu packages gcc))
+  #:use-module (guix deprecation)
+  #:use-module (gnu packages haskell))
 
-(define-public hugs
-  (package
-    (name "hugs")
-    (version "Sep2006")
-    (source
-     (origin
-      (method url-fetch)
-      (uri (string-append "https://www.haskell.org/hugs/downloads/2006-09/"
-                          name "98-plus-" version ".tar.gz"))
-      (sha256
-       (base32
-        "1mdy4aq4campgmnpc2qwq7bsbfhaxfsqdghbyyz2wms4lnfcmyma"))
-      (patches (search-patches "hugs-fix-build.patch"))))
-    (build-system gnu-build-system)
-    (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-before 'configure 'fix-sh-n-cp
-           (lambda _
-             (substitute*
-                 '("configure"
-                   "libraries/configure"
-                   "packages/time/configure"
-                   "packages/base/configure"
-                   "packages/X11/configure"
-                   "packages/HGL/configure"
-                   "packages/OpenAL/configure"
-                   "packages/OpenGL/configure"
-                   "packages/network/configure"
-                   "packages/unix/configure"
-                   "packages/Cabal/tests/HSQL/configure"
-                   "packages/ALUT/configure"
-                   "packages/GLUT/configure"
-                   "packages/base/cbits/execvpe.c"
-                   "packages/base/System/Process/Internals.hs"
-                   "packages/Cabal/Distribution/attic"
-                   "packages/Cabal/Distribution/Simple/Register.hs"
-                   "packages/Cabal/Distribution/Simple/Hugs.hs"
-                   "tools/hugs-hc"
-                   "src/machdep.c"
-                   "libraries/Makefile.in")
-               (("/bin/sh") (which "sh")))
-             (substitute* '("demos/Makefile.in"
-                            "libraries/Makefile.in")
-               (("/bin/cp") (which "cp")))
-             #t)))
-       #:tests? #f)) ; no test target
-    (native-inputs (list gcc-13))
-    (home-page "https://www.haskell.org/hugs/")
-    (synopsis "Functional programming system based on Haskell 98")
-    (description
-     "Hugs 98 is an interpreter and programming environment for developing
-Haskell programs.  It provides an almost complete implementation of Haskell
-98, which includes expression and pattern syntax, primitives for monadic I/O,
-with support for simple interactive programs, handle-based I/O, and exception
-handling.  Hugs has a nearly complete implementation of the Haskell module
-system and supports a number of advanced extensions.")
-   (license (non-copyleft "file://License"
-                          "See License in the distribution."))))
+;; XXX: Deprecated on <2026-05-17>.
+(define-deprecated/public-alias hugs (@ (gnu packages haskell) hugs))