Commit 9a8ff917 authored by Jan Rasmus Tikovsky 's avatar Jan Rasmus Tikovsky
Browse files

Fixed import of hidden declarations

parent 422a8375
......@@ -149,7 +149,7 @@ precs m (IInfixDecl _ fix prec op) = [PrecInfo (qualQualify m op) (OpPrec fix pr
precs _ _ = []
hiddenTypes :: ModuleIdent -> IDecl -> [TypeInfo]
hiddenTypes _ (HidingDataDecl _ tc tvs) = [DataType tc (length tvs) []]
hiddenTypes m (HidingDataDecl _ tc tvs) = [typeCon DataType m tc tvs []]
hiddenTypes m d = types m d
-- type constructors
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment