[ experim ] A silly experiment

buzden · Sep 12, 2023 · 72fed15 · 72fed15
1 parent 9919039
commit 72fed15
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/Idris/Parser.idr b/src/Idris/Parser.idr
@@ -399,8 +399,10 @@ mutual
     <|> do b <- bounds (continueWith indents ")")
            pure (PUnit (boundToFC fname (mergeBounds s b)))
       -- dependent pairs with type annotation (so, the type form)
-    <|> do dpairType fname s indents <* (decorate fname Typ $ symbol ")")
-                                     <* actD (toNonEmptyFC $ boundToFC fname s, Typ, Nothing)
+    <|> do t <- dpairType fname s indents
+           decorate fname Typ $ symbol ")"
+           actD (toNonEmptyFC $ boundToFC fname s, Typ, Nothing)
+           pure t
     <|> do e <- bounds (typeExpr pdef fname indents)
            -- dependent pairs with no type annotation
            (do loc <- bounds (symbol "**")