Rain: Fixed the meta tags for each part of a block

2007-08-20 22:07:58 +00:00 · 2007-08-20 22:07:58 +00:00 · eb4a629d57
commit eb4a629d57
parent 923eefe317
1 changed files with 1 additions and 1 deletions
--- 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}