From eb4a629d578f6cbfb79ae37a62a30bc1356e5a95 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Mon, 20 Aug 2007 22:07:58 +0000 Subject: [PATCH] Rain: Fixed the meta tags for each part of a block --- RainParse.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/RainParse.hs b/RainParse.hs index 508ac24..0351f7f 100644 --- a/RainParse.hs +++ b/RainParse.hs @@ -232,7 +232,7 @@ innerBlock :: RainParser A.Structured innerBlock = do {m <- md ; sLeftC ; procs <- (many statement) ; sts <- sequence (map wrapProc procs) ; sRightC ; return $ A.Several m sts} where wrapProc :: A.Process -> RainParser A.Structured - wrapProc x = return (A.OnlyP emptyMeta x) + wrapProc x = return (A.OnlyP (findMeta x) x) block :: RainParser A.Process block = do { m <- md ; optionalSeq ; b <- innerBlock ; return $ A.Seq m b}