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

14
src/Data/String/Ubc/Parse/StructScope.hs
View file

@ -1,11 +1,19 @@
module Data.String.Ubc.Parse.StructScope
( StructScope(..)
, modifyVariables
)
where
import Data.String.Ubc.Parse.Error.StructError (StructError)
import Data.Map (Map)
import Data.String.Ubc.Parse.StructVariable (StructVariable)
data StructScope = StructScope
{ structName :: Maybe String
, errors :: [StructError]
{ structName :: String
, variables :: Map String StructVariable
}
modifyVariables :: (Map String StructVariable -> Map String StructVariable) -> StructScope -> StructScope
modifyVariables f scope@StructScope{variables = oldVariables} = scope{variables = newVariables}
where
newVariables = f oldVariables