cosmetic: make names more consistent
commite54192802788ddce36392760d65a9914e31368cc
authorEvan Czaplicki <info@elm-lang.org>
dateMon 9 Jun 2014, 09:02 (12 years ago)
parent53565e2
compiler/Type/State.hs+2−2
@@ -107,7 +107,7 @@ flatten term =
107107 VarN maybeAlias v -> do
108108 liftIO $ UF.modifyDescriptor v $ \desc -> desc { alias = maybeAlias <|> alias desc }
109109 return v
110− TermN alias t -> do
110+ TermN maybeAlias t -> do
111111 flatStructure <- traverseTerm flatten t
112112 pool <- getPool
113113 var <- liftIO . UF.fresh $ Descriptor
@@ -117,7 +117,7 @@ flatten term =
117117 , name = Nothing
118118 , copy = Nothing
119119 , mark = noMark
120− , alias = alias
120+ , alias = maybeAlias
121121 }
122122 register var
123123