@@ -128,7 +128,7 @@ buildFile flags moduleNum numModules interfaces filePath =
128 source <- readFile filePath
128 source <- readFile filePath
129 let name = case getModuleName source of
129 let name = case getModuleName source of
130 Just n -> n
130 Just n -> n
131− Nothing -> "Name"
131+ Nothing -> "Main"
132 putStrLn $ concat [ number, " Compiling ", name
132 putStrLn $ concat [ number, " Compiling ", name
133 , replicate (max 1 (20 - length name)) ' '
133 , replicate (max 1 (20 - length name)) ' '
134 , "( " ++ filePath ++ " )" ]
134 , "( " ++ filePath ++ " )" ]