GaloisInc/cryptol
1
1
Fork 0
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-12-17 13:01:31 +03:00
Code Issues Projects Releases Wiki Activity

Make :browse filter declarations by module name instead of value name.

Browse Source 
See #396.
This commit is contained in:
Brian Huffman 2017-10-04 15:45:25 -07:00
parent 2b568897da
commit d025108bd2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Cryptol/REPL/Command.hs
View File

@ -953,7 +953,7 @@ isNamePrefix :: String -> M.Name -> Bool
isNamePrefix pfx =
let pfx' = ST.pack pfx
in \n -> case M.nameInfo n of
M.Declared _ -> pfx' `ST.isPrefixOf` M.identText (M.nameIdent n)
M.Declared m -> pfx' `ST.isPrefixOf` m
M.Parameter -> False