From da7667de6256a67e3ed7aa85c6f9af5f5ac6642a Mon Sep 17 00:00:00 2001 From: Adam Sampson Date: Sat, 17 Mar 2007 14:46:15 +0000 Subject: [PATCH] Kill extraneous brackets --- fco2/Parse.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/fco2/Parse.hs b/fco2/Parse.hs index 79dbc0c..2fe5d47 100644 --- a/fco2/Parse.hs +++ b/fco2/Parse.hs @@ -651,10 +651,10 @@ specification declaration :: OccParser ([A.Name], A.SpecType) declaration - = do { m <- md; d <- dataType; ns <- sepBy1 (newVariableName) sComma; sColon; eol; return (ns, A.Declaration m d) } - <|> do { m <- md; d <- channelType; ns <- sepBy1 (newChannelName) sComma; sColon; eol; return (ns, A.Declaration m d) } - <|> do { m <- md; d <- timerType; ns <- sepBy1 (newTimerName) sComma; sColon; eol; return (ns, A.Declaration m d) } - <|> do { m <- md; d <- portType; ns <- sepBy1 (newPortName) sComma; sColon; eol; return (ns, A.Declaration m d) } + = do { m <- md; d <- dataType; ns <- sepBy1 newVariableName sComma; sColon; eol; return (ns, A.Declaration m d) } + <|> do { m <- md; d <- channelType; ns <- sepBy1 newChannelName sComma; sColon; eol; return (ns, A.Declaration m d) } + <|> do { m <- md; d <- timerType; ns <- sepBy1 newTimerName sComma; sColon; eol; return (ns, A.Declaration m d) } + <|> do { m <- md; d <- portType; ns <- sepBy1 newPortName sComma; sColon; eol; return (ns, A.Declaration m d) } "declaration" abbreviation :: OccParser A.Specification