From 78dcf0bcbf0abeb922f32e57a1763f2a2ea43fff Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 7 Feb 2017 10:10:26 +0100
Subject: Make main module optional

---
 clpm.icl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'clpm.icl')

diff --git a/clpm.icl b/clpm.icl
index a3382d1..b2fa764 100644
--- a/clpm.icl
+++ b/clpm.icl
@@ -103,13 +103,15 @@ where
 
 cmd_make :: [String] Package *File *World -> *(*File, *World)
 cmd_make opts pkg io w
+| isNothing pkg.main
+	= (io <<< "This package does not have a main module.\r\n", w)
 # (ps,w) = getRecursivePaths pkg w
 | isError ps
 	= (io <<< fromError ps <<< "\r\n", w)
 # ps = fromOk ps
 # (r,w) = syscall (foldl (+) "clm" [" -I " + p \\ p <- ps] +
 	foldl (+) "" [" " + f \\ f <- optionsToFlags pkg.options ++ opts] +
-	" " + pkg.main + " -o " + pkg.main) w
+	" " + fromJust pkg.main + " -o " + fromJust pkg.main) w
 = (io,w)
 
 parseArgs :: (Arguments [String] -> ([String], Arguments))
-- 
cgit v1.2.3