Fix very silly error, default module name is "Main" not "Name"
commit50dada1f223cf01c337d4c735279da1da20c311d
authorEvan Czaplicki <info@elm-lang.org>
dateTue 6 Aug 2013, 21:40 (13 years ago)
parent53ef6d3
compiler/Compiler.hs+1−1
@@ -128,7 +128,7 @@ buildFile flags moduleNum numModules interfaces filePath =
128128 source <- readFile filePath
129129 let name = case getModuleName source of
130130 Just n -> n
131− Nothing -> "Name"
131+ Nothing -> "Main"
132132 putStrLn $ concat [ number, " Compiling ", name
133133 , replicate (max 1 (20 - length name)) ' '
134134 , "( " ++ filePath ++ " )" ]