From a8e9c907708d4e842919b0c1c865be552a53a07b Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 17 Aug 2025 02:13:45 +0100
Subject: reader: Return monadic value in normalize-formal-input.

Return monadic value for the default key in normalize-formal-input.
Values returned from maybe-bind must be monadic; compose it with just.
---
 ravanan/reader.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ravanan/reader.scm b/ravanan/reader.scm
index fd959de..731ed92 100644
--- a/ravanan/reader.scm
+++ b/ravanan/reader.scm
@@ -162,7 +162,7 @@ array of array of @code{File}s, etc. Else, return @code{#f}"
       (maybe-assoc-set input
         (cons "default"
               (maybe-bind (maybe-assoc-ref (just input) "default")
-                          normalize-input))
+                          (compose just normalize-input)))
         (cons "secondaryFiles"
               (maybe-bind (maybe-assoc-ref (just input) "secondaryFiles")
                           (compose just
-- 
cgit 1.4.1