Skip to content

Commit

Permalink
patch some holes
Browse files Browse the repository at this point in the history
  • Loading branch information
andrevidela committed Dec 16, 2023
1 parent f5cc0cb commit bc21157
Show file tree
Hide file tree
Showing 2 changed files with 7 additions and 3 deletions.
6 changes: 4 additions & 2 deletions src/Idris/Desugar.idr
Original file line number Diff line number Diff line change
Expand Up @@ -431,8 +431,10 @@ mutual
desugarB side ps (PMultiline fc hashtag indent lines)
= pure $ maybeIApp fc !fromStringName !(expandString side ps fc hashtag !(trimMultiline fc indent lines))

desugarB side ps (PBindingApp fc expr name bound body)
= ?undefined
desugarB side ps (PBindingApp fc expr name bound scope)
= pure $ IBindingApp fc !(desugarB side ps expr) name
!(desugarB side ps bound)
!(desugarB side ps scope)
-- We only add `fromString` if we are looking at a plain string literal.
-- Interpolated string literals don't have a `fromString` call since they
-- are always concatenated with other strings and therefore can never use
Expand Down
4 changes: 3 additions & 1 deletion src/Idris/Resugar.idr
Original file line number Diff line number Diff line change
Expand Up @@ -350,7 +350,9 @@ mutual
app <- toPTermApp fn [(fc, Nothing, arg')]
bracket p appPrec app
toPTerm p (IBindingApp fc expr nm bound scope)
= do ?end
= pure $ PBindingApp fc !(toPTerm p expr) nm
!(toPTerm p bound)
!(toPTerm p scope)
toPTerm p (IAutoApp fc fn arg)
= do arg' <- toPTerm argPrec arg
app <- toPTermApp fn [(fc, Just Nothing, arg')]
Expand Down

0 comments on commit bc21157

Please sign in to comment.