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

[ fix #1035 ] Not an internal error

Browse Source
This commit is contained in:
Guillaume ALLAIS 2021-02-16 16:04:13 +00:00 committed by G. Allais
parent e9f4dc5252
commit c2532acfd8
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Idris/Desugar.idr
View File

@ -646,7 +646,9 @@ mutual
getFn (IApp _ f _) = getFn f
getFn (IAutoApp _ f _) = getFn f
getFn (INamedApp _ f _ _) = getFn f
getFn tm = throw (InternalError (show tm ++ " is not a function application"))
getFn tm = throw $ case tm of
Implicit fc _ => GenericMsg fc "Invalid name for a declaration"
_ => InternalError (show tm ++ " is not a function application")
toIDef : ImpClause -> Core ImpDecl
toIDef (PatClause fc lhs rhs)