support inline module definitions
This commit is contained in:
@@ -746,8 +746,11 @@ modulefields :: { Module }
|
||||
| {- empty -} { emptyModule }
|
||||
|
||||
mod :: { Module }
|
||||
: '(' 'module' modulefields ')' EOF { reverseModuleFields $3 }
|
||||
| modulefields EOF { reverseModuleFields $1 }
|
||||
: '(' mod1 { $2 }
|
||||
|
||||
mod1 :: { Module }
|
||||
: 'module' modulefields ')' EOF { reverseModuleFields $2 }
|
||||
| modulefield1 modulefields EOF { reverseModuleFields $ foldl' (flip appendModuleField) $2 $1 }
|
||||
|
||||
-- utils
|
||||
|
||||
|
||||
Reference in New Issue
Block a user