1
1
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00

📝 Sketchbook.

This commit is contained in:
Patrick Thomson 2020-01-17 11:19:18 -05:00
parent 311654e5f8
commit b3abb671f3

View File

@ -33,6 +33,10 @@ import Data.Semilattice.Lower
import Source.Span
import qualified System.Path as Path
-- | The state type used to keep track of the in-progress graph and
-- positional/contextual information. The name "sketchbook" is meant
-- to invoke an in-progress, concealed work, as well as the
-- "sketching" of a graph.
data Sketchbook address = Sketchbook
{ sGraph :: ScopeGraph address
, sCurrentScope :: address