From aa2b78a3b37938d353cf3411b8974b813983087a Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 12 Sep 2024 17:05:24 +0100
Subject: ui: Rename module to (ravanan work ui).

* ravanan/ui.scm: Move to ravanan/work/ui.scm.
* ravanan/command-line-tool.scm, ravanan/workflow.scm: Import (ravanan
work ui) instead of (ravanan ui).
---
 ravanan/command-line-tool.scm |  2 +-
 ravanan/ui.scm                | 32 --------------------------------
 ravanan/work/ui.scm           | 32 ++++++++++++++++++++++++++++++++
 ravanan/workflow.scm          |  2 +-
 4 files changed, 34 insertions(+), 34 deletions(-)
 delete mode 100644 ravanan/ui.scm
 create mode 100644 ravanan/work/ui.scm

diff --git a/ravanan/command-line-tool.scm b/ravanan/command-line-tool.scm
index b512d42..18ac313 100644
--- a/ravanan/command-line-tool.scm
+++ b/ravanan/command-line-tool.scm
@@ -56,8 +56,8 @@
   #:use-module (ravanan vectors)
   #:use-module (ravanan work command-line-tool)
   #:use-module (ravanan work types)
+  #:use-module (ravanan work ui)
   #:use-module (ravanan work utils)
-  #:use-module (ravanan ui)
   #:export (run-command-line-tool
             command-line-tool-scheduler
             check-requirements
diff --git a/ravanan/ui.scm b/ravanan/ui.scm
deleted file mode 100644
index e7ca95c..0000000
--- a/ravanan/ui.scm
+++ /dev/null
@@ -1,32 +0,0 @@
-;;; ravanan --- High-reproducibility CWL runner powered by Guix
-;;; Copyright © 2024 Arun Isaac <arunisaac@systemreboot.net>
-;;;
-;;; This file is part of ravanan.
-;;;
-;;; ravanan 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.
-;;;
-;;; ravanan 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 ravanan.  If not, see <https://www.gnu.org/licenses/>.
-
-(define-module (ravanan ui)
-  #:export (warning
-            user-error))
-
-(define (warning fmt . args)
-  "Print warning. @var{fmt} and @var{args} are arguments to format."
-  (apply format (current-error-port) fmt args)
-  (newline))
-
-(define (user-error fmt . args)
-  "Print error message and exit with failure. @var{fmt} and @var{args} are
-arguments to format."
-  (apply warning fmt args)
-  (exit #f))
diff --git a/ravanan/work/ui.scm b/ravanan/work/ui.scm
new file mode 100644
index 0000000..758f2cc
--- /dev/null
+++ b/ravanan/work/ui.scm
@@ -0,0 +1,32 @@
+;;; ravanan --- High-reproducibility CWL runner powered by Guix
+;;; Copyright © 2024 Arun Isaac <arunisaac@systemreboot.net>
+;;;
+;;; This file is part of ravanan.
+;;;
+;;; ravanan 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.
+;;;
+;;; ravanan 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 ravanan.  If not, see <https://www.gnu.org/licenses/>.
+
+(define-module (ravanan work ui)
+  #:export (warning
+            user-error))
+
+(define (warning fmt . args)
+  "Print warning. @var{fmt} and @var{args} are arguments to format."
+  (apply format (current-error-port) fmt args)
+  (newline))
+
+(define (user-error fmt . args)
+  "Print error message and exit with failure. @var{fmt} and @var{args} are
+arguments to format."
+  (apply warning fmt args)
+  (exit #f))
diff --git a/ravanan/workflow.scm b/ravanan/workflow.scm
index 98e7f1c..4d28716 100644
--- a/ravanan/workflow.scm
+++ b/ravanan/workflow.scm
@@ -28,8 +28,8 @@
   #:use-module (ravanan utils)
   #:use-module (ravanan vectors)
   #:use-module (ravanan work command-line-tool)
+  #:use-module (ravanan work ui)
   #:use-module (ravanan work utils)
-  #:use-module (ravanan ui)
   #:export (run-workflow))
 
 (define %supported-requirements
-- 
cgit v1.2.3