16 lines
408 B
Haskell
16 lines
408 B
Haskell
module Ubc.Parse.Scope
|
|
( Scope(..)
|
|
, expectScopeStruct
|
|
)
|
|
where
|
|
|
|
import Ubc.Parse.Scope.FileScope (FileScope)
|
|
import Ubc.Parse.Scope.StructScope (StructScope)
|
|
|
|
data Scope =
|
|
ScopeFile FileScope
|
|
| ScopeStruct StructScope
|
|
|
|
expectScopeStruct :: Scope -> StructScope
|
|
expectScopeStruct (ScopeStruct s) = s
|
|
expectScopeStruct _ = error "Internal Error: Top Scope is not Scope Struct"
|