Rain: Fixed the meta tags for each part of a block
This commit is contained in:
parent
923eefe317
commit
eb4a629d57
|
@ -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}
|
innerBlock = do {m <- md ; sLeftC ; procs <- (many statement) ; sts <- sequence (map wrapProc procs) ; sRightC ; return $ A.Several m sts}
|
||||||
where
|
where
|
||||||
wrapProc :: A.Process -> RainParser A.Structured
|
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 :: RainParser A.Process
|
||||||
block = do { m <- md ; optionalSeq ; b <- innerBlock ; return $ A.Seq m b}
|
block = do { m <- md ; optionalSeq ; b <- innerBlock ; return $ A.Seq m b}
|
||||||
|
|
Loading…
Reference in New Issue
Block a user