@@ -38,6 +38,7 @@ compile packageName canonicalImports interfaces source =
39 -- Canonicalize all variables, pinning down where they came from.
39 -- Canonicalize all variables, pinning down where they came from.
40 canonicalModule <-
40 canonicalModule <-
41+ {-# SCC elm_compiler_canonicalize #-}
41 Canonicalize.module' canonicalImports interfaces validModule
42 Canonicalize.module' canonicalImports interfaces validModule
43 -- Run type inference on the program.
44 -- Run type inference on the program.
@@ -49,6 +50,7 @@ compile packageName canonicalImports interfaces source =
49 -- One last round of checks
50 -- One last round of checks
50 canonicalDefs <-
51 canonicalDefs <-
51 Result.format Error.Type $
52 Result.format Error.Type $
53+ {-# SCC elm_compiler_nitpick #-}
52 Nitpick.topLevelTypes types $
54 Nitpick.topLevelTypes types $
53 Can.toSortedDefs (Module.program (Module.info canonicalModule))
55 Can.toSortedDefs (Module.program (Module.info canonicalModule))