on master help sign in
Require content in tactic/proof blocks

Fixes #995

commitc06badbf71c1bd23d8d45bee480ce86416908e35 authorEdwin Brady <ecb10@st-andrews.ac.uk> dateSun 23 Mar 2014, 11:47 (13 years ago) parentb0720b0
1 file changed+2−2
src/Idris/ParseExpr.hs+2−2
src/Idris/ParseExpr.hs+2−2
@@ -247,7 +247,7 @@ ProofExpr ::=
247247-}
248248proofExpr :: SyntaxInfo -> IdrisParser PTerm
249249proofExpr syn = do reserved "proof"
250− ts <- indentedBlock (tactic syn)
250+ ts <- indentedBlock1 (tactic syn)
251251 return $ PProof ts
252252 <?> "proof block"
253253
@@ -260,7 +260,7 @@ TacticsExpr :=
260260-}
261261tacticsExpr :: SyntaxInfo -> IdrisParser PTerm
262262tacticsExpr syn = do reserved "tactics"
263− ts <- indentedBlock (tactic syn)
263+ ts <- indentedBlock1 (tactic syn)
264264 return $ PTactics ts
265265 <?> "tactics block"
266266