Allow empty formal lists too

2007-05-03 03:11:55 +00:00 · 2007-05-03 03:11:55 +00:00 · f84ce0e5c2
commit f84ce0e5c2
parent 4b0e02a4ce
1 changed files with 1 additions and 1 deletions
--- a/fco2/Parse.hs
+++ b/fco2/Parse.hs
@ -1431,7 +1431,7 @@ formalList :: OccParser [A.Formal]
 formalList
    =  do m <- md
          sLeftR
-          fs <- formalArgSet
+          fs <- option [] formalArgSet
          sRightR
          return fs
    <?> "formal list"