git.iko.soy/elk
on master help sign in
add NOINLINE to defaultModuleName
0d5d9f4Evan Czaplicki
compiler/src/AST/Source.hs+7−1
compare with master
unifiedsplit
@@ -137,7 +137,13 @@ getName :: Module -> Name
137getName (Module maybeName _ _ _ _ _ _ _) =
137getName (Module maybeName _ _ _ _ _ _ _) =
138 case maybeName of
138 case maybeName of
139 Just name -> name
139 Just name -> name
140+ Nothing -> defaultModuleName
141+
142+
143+{-# NOINLINE defaultModuleName #-}
144+defaultModuleName :: Name
145+defaultModuleName =
140− Nothing -> "Main"
146+ "Main"
141
147
142
148
143getImportName :: Import -> Name
149getImportName :: Import -> Name