From dd89e5c9eaa4dc80ad31acb1204e18a951abe87a Mon Sep 17 00:00:00 2001 From: Zachary Snow Date: Sat, 30 Mar 2019 01:56:57 -0400 Subject: [PATCH] minor fixes --- src/Language/SystemVerilog/Parser/Parse.y | 1 - src/Language/SystemVerilog/Parser/ParseDecl.hs | 1 + 2 files changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Language/SystemVerilog/Parser/Parse.y b/src/Language/SystemVerilog/Parser/Parse.y index c825783..473c23f 100644 --- a/src/Language/SystemVerilog/Parser/Parse.y +++ b/src/Language/SystemVerilog/Parser/Parse.y @@ -890,7 +890,6 @@ parseError a = case a of Token t s p : _ -> error $ "Parse error: unexpected token '" ++ s ++ "' (" ++ show t ++ ") at " ++ show p ++ "." genItemsToGenItem :: [GenItem] -> GenItem -genItemsToGenItem [] = error "genItemsToGenItem given empty list!" genItemsToGenItem [x] = x genItemsToGenItem xs = GenBlock Nothing xs diff --git a/src/Language/SystemVerilog/Parser/ParseDecl.hs b/src/Language/SystemVerilog/Parser/ParseDecl.hs index cbff205..c34c450 100644 --- a/src/Language/SystemVerilog/Parser/ParseDecl.hs +++ b/src/Language/SystemVerilog/Parser/ParseDecl.hs @@ -223,6 +223,7 @@ parseDTsAsDeclsAndAsgns tokens = isAsgnToken :: DeclToken -> Bool isAsgnToken (DTBit _) = True isAsgnToken (DTConcat _) = True +isAsgnToken (DTDot _) = True isAsgnToken (DTAsgnNBlk _ _) = True isAsgnToken (DTAsgn (AsgnOp _) _) = True isAsgnToken _ = False