From 3bab68554bfd593ae1fb777a84c28ccfde779539 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 19 Jul 2017 08:54:31 +0000
Subject: Allow / in filenames

---
 sil.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sil.icl')

diff --git a/sil.icl b/sil.icl
index bb39f1e..77b5322 100644
--- a/sil.icl
+++ b/sil.icl
@@ -106,7 +106,7 @@ where
 		)
 
 	isFilename :: (String -> Bool)
-	isFilename = all (\c -> isAlphanum c || isMember c ['.']) o fromString
+	isFilename = all (\c -> isAlphanum c || isMember c ['./']) o fromString
 
 	finish :: !*File !*File !*World -> *World
 	finish io err w
-- 
cgit v1.2.3