vegowotenks/ubcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Struct Parsing continued, ditched multiple-errors support

Browse source
This commit is contained in:
vegowotenks 2025-01-01 23:04:00 +01:00
parent 0adef12173
commit 9f2fad1507
10 changed files with 70 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Data/String/Ubc/Parse/Scope.hs
View file

@ -1,5 +1,6 @@
module Data.String.Ubc.Parse.Scope
( Scope(..)
, expectScopeStruct
)
where
@ -9,3 +10,6 @@ import Data.String.Ubc.Parse.StructScope (StructScope)
data Scope =
ScopeFile FileScope
| ScopeStruct StructScope
expectScopeStruct (ScopeStruct s) = s
expectScopeStruct _ = error "Internal Error: Top Scope is not Scope Struct"