@@ -39,7 +39,7 @@ buildFromSource noPrelude interfaces source =
39 | null exs =
39 | null exs =
40 let get = Set.toList . SD.boundVars in
40 let get = Set.toList . SD.boundVars in
41 concat [ get pattern | Definition (Def pattern _) <- decls ] ++
41 concat [ get pattern | Definition (Def pattern _) <- decls ] ++
42− concat [ map fst ctors | Datatype _ _ ctors <- decls ] ++
42+ concat [ name : map fst ctors | Datatype name _ ctors <- decls ] ++
43 [ name | TypeAlias name _ (Type.Record _ _) <- decls ]
43 [ name | TypeAlias name _ (Type.Record _ _) <- decls ]
44 | otherwise = exs
44 | otherwise = exs