deptrack-core-0.1.0.0: src/DepTrack/DepCrumb.hs

{-# LANGUAGE DeriveFunctor #-}

module DepTrack.DepCrumb (
    DepCrumb (..)
  ) where

data DepCrumb a
  = Push | Pop a       -- push a level, record the poped value
  | SpadeIn | SpadeMiddle | SpadeOut -- wraps a node
  deriving (Functor, Show)