From eab6e3381363671d0c4abde04a9dc5e70115b37c Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 17 Mar 2021 17:01:39 +0530
Subject: Set default type of inputs to File.

* ccwl/ccwl.scm (input): Set default type to File.
---
 ccwl/ccwl.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index 120edcd..6d02ec3 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -32,7 +32,7 @@
   (make-unspecified-default)
   unspecified-default?)
 
-(define* (input id #:key type label (default (make-unspecified-default)) (other '()))
+(define* (input id #:key (type 'File) label (default (make-unspecified-default)) (other '()))
   "Build and return an <input> object."
   ;; The user should not set source. Hence, do not expose it as a
   ;; parameter of this constructor.
-- 
cgit 1.4.1