2309823 · rowtype-yoga/purescript-native

git.iko.soy/rowtype-yoga/purescript-native

on golang help sign in

Fix tab completion in psci for explictly exported modules

2309823Phil Freeman13 years ago

psci/Main.hs+4−3

@@ -176,9 +176,10 @@ completion = completeWord Nothing " \t\n\r" findCompletions

176 getDeclName Nothing (P.ValueDeclaration ident _ _ _ _) = Just ident

177 getDeclName (Just exts) (P.ValueDeclaration ident _ _ _ _) | isExported = Just ident

178 where

179− isExported = flip any exts $ \e -> case e of

179+ isExported = any exports exts

180− P.ValueRef ident' -> ident == ident'

180+ exports (P.ValueRef ident') = ident == ident'

181+ exports (P.PositionedDeclarationRef _ r) = exports r

181− _ -> False

182+ exports _ = False

182 getDeclName exts (P.PositionedDeclaration _ d) = getDeclName exts d

183 getDeclName exts (P.PositionedDeclaration _ d) = getDeclName exts d

183 getDeclName _ _ = Nothing

184 getDeclName _ _ = Nothing

184 names :: [P.Module] -> [String]

185 names :: [P.Module] -> [String]