idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-11-11 02:01:36 +03:00
Code Issues Projects Releases Wiki Activity

remove unneeded stuff, rename a function.

Browse Source
This commit is contained in:
Mathew Polzin 2021-01-03 11:27:19 -08:00
parent ab05d941c2
commit 34bfb159f2
1 changed files with 10 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/Idris/REPL.idr
View File

@ -609,19 +609,10 @@ loadMainFile f
[] => pure (FileLoaded f) [] => pure (FileLoaded f)
_ => pure (ErrorsBuildingFile f errs) _ => pure (ErrorsBuildingFile f errs)
eqPastImplicits : Term vars -> Term vars' -> Bool docsOrType : {auto c : Ref Ctxt Defs} ->
eqPastImplicits (Bind _ _ (Pi _ _ Implicit _) scope) y = eqPastImplicits scope y
eqPastImplicits (Bind _ _ (Pi _ _ AutoImplicit _) scope) y = eqPastImplicits scope y
eqPastImplicits (Bind _ _ (Pi _ _ (DefImplicit _) _) scope) y = eqPastImplicits scope y
eqPastImplicits x (Bind _ _ (Pi _ _ Implicit _) scope) = eqPastImplicits x scope
eqPastImplicits x (Bind _ _ (Pi _ _ AutoImplicit _) scope) = eqPastImplicits x scope
eqPastImplicits x (Bind _ _ (Pi _ _ (DefImplicit _) _) scope) = eqPastImplicits x scope
eqPastImplicits x y = eqTerm x y
maybeGetDocsFor : {auto c : Ref Ctxt Defs} ->
{auto s : Ref Syn SyntaxInfo} -> {auto s : Ref Syn SyntaxInfo} ->
FC -> Name -> Core (List String) FC -> Name -> Core (List String)
maybeGetDocsFor fc n docsOrType fc n
= do syn <- get Syn = do syn <- get Syn
defs <- get Ctxt defs <- get Ctxt
all@(_ :: _) <- lookupCtxtName n (gamma defs) all@(_ :: _) <- lookupCtxtName n (gamma defs)
@ -760,7 +751,7 @@ process Help
= pure RequestedHelp = pure RequestedHelp
process (ProofSearch searchTerm@(PPi fc rc piInfo _ argTy retTy)) process (ProofSearch searchTerm@(PPi fc rc piInfo _ argTy retTy))
= do defs <- branch = do defs <- branch
let context = gamma defs let ctxt = gamma defs
log "repl.ps" 2 $ "original pi term: " ++ (show searchTerm) log "repl.ps" 2 $ "original pi term: " ++ (show searchTerm)
rawTy <- desugar AnyExpr [] searchTerm rawTy <- desugar AnyExpr [] searchTerm
@ -769,18 +760,18 @@ process (ProofSearch searchTerm@(PPi fc rc piInfo _ argTy retTy))
(ty, _) <- elabTerm 0 InType [] (MkNested []) [] bound Nothing (ty, _) <- elabTerm 0 InType [] (MkNested []) [] bound Nothing
logTermNF "repl.ps" 2 "checked term" [] ty logTermNF "repl.ps" 2 "checked term" [] ty
ty' <- toResolvedNames ty ty' <- toResolvedNames ty
filteredDefs <- do names <- allNames context filteredDefs <- do names <- allNames ctxt
defs <- pure $ catMaybes !(traverse (flip lookupCtxtExact context) names) defs <- pure $ catMaybes !(traverse (flip lookupCtxtExact ctxt) names)
allDefs <- traverse (resolved context) defs allDefs <- traverse (resolved ctxt) defs
(flip filterM) allDefs (\def => equivTypes def.type ty') (flip filterM) allDefs (\def => equivTypes def.type ty')
put Ctxt defs put Ctxt defs
log "repl.ps" 2 $ (show ty') log "repl.ps" 2 $ (show ty')
doc <- traverse (maybeGetDocsFor replFC) $ (.fullname) <$> filteredDefs doc <- traverse (docsOrType replFC) $ (.fullname) <$> filteredDefs
pure $ Printed $ vsep $ pretty <$> (intersperse "\n" $ join doc) pure $ Printed $ vsep $ pretty <$> (intersperse "\n" $ join doc)
process (ProofSearch _) process (ProofSearch _)
= do pure $ REPLError $ reflow "Could not parse input as a type signature." = pure $ REPLError $ reflow "Could not parse input as a type signature."
process (Missing n) process (Missing n)
= do defs <- get Ctxt = do defs <- get Ctxt
case !(lookupCtxtName n (gamma defs)) of case !(lookupCtxtName n (gamma defs)) of