diff options
| author | Arun Isaac | 2025-08-17 02:13:45 +0100 |
|---|---|---|
| committer | Arun Isaac | 2025-08-17 02:13:45 +0100 |
| commit | a8e9c907708d4e842919b0c1c865be552a53a07b (patch) | |
| tree | 0cf3ab384ecd9701d9b6e86e978011b0e86aa086 | |
| parent | bed1fbd09439a64b93829e8f251f1f815a30897b (diff) | |
| download | ravanan-a8e9c907708d4e842919b0c1c865be552a53a07b.tar.gz ravanan-a8e9c907708d4e842919b0c1c865be552a53a07b.tar.lz ravanan-a8e9c907708d4e842919b0c1c865be552a53a07b.zip | |
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.
| -rw-r--r-- | ravanan/reader.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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 |