@@ -178,6 +178,7 @@ completion = completeWord Nothing " \t\n\r" findCompletions
178 isExported = flip any exts $ \e -> case e of
178 isExported = flip any exts $ \e -> case e of
179 P.ValueRef ident' -> ident == ident'
179 P.ValueRef ident' -> ident == ident'
180 _ -> False
180 _ -> False
181+ getDeclName exts (P.PositionedDeclaration _ d) = getDeclName exts d
181 getDeclName _ _ = Nothing
182 getDeclName _ _ = Nothing
182 names :: [P.Module] -> [String]
183 names :: [P.Module] -> [String]
183 names ms = nub [ show qual
184 names ms = nub [ show qual