@@ -28,7 +28,7 @@ import Control.Arrow ((***), first, second)
29import qualified Data.Map as M
29import qualified Data.Map as M
31−data NameKind = Value | Extern deriving Show
31+data NameKind = Value | Extern | Alias ModulePath Ident deriving Show
33data TypeDeclarationKind = Data | ExternData | TypeSynonym deriving Show
33data TypeDeclarationKind = Data | ExternData | TypeSynonym deriving Show