@@ -549,7 +549,7 @@ fnDecl :: SyntaxInfo -> IdrisParser [PDecl]
549fnDecl syn = P.try (do notEndBlock
549fnDecl syn = P.try (do notEndBlock
550 d <- fnDecl' syn
550 d <- fnDecl' syn
552− let d' = fmap (desugar syn i) d
552+ let d' = fmap (debindApp syn . desugar syn i) d
553 return [d']) <?> "function declaration"
553 return [d']) <?> "function declaration"
555{-| Parses a function declaration
555{-| Parses a function declaration