hic-0.0.0.1: src/Language/Cimple/Hic/Analyze.hs

{-# LANGUAGE LambdaCase #-}
module Language.Cimple.Hic.Analyze
    ( nodeName
    ) where

import           Language.Cimple.Hic.Ast (HicNode (..))

nodeName :: HicNode lexeme a -> String
nodeName = \case
    Scoped{}         -> "Scoped"
    Raise{}          -> "Raise"
    Transition{}     -> "Transition"
    TaggedUnion{}    -> "TaggedUnion"
    TaggedUnionGet{} -> "TaggedUnionGet"
    Match{}          -> "Match"
    TaggedUnionMemberAccess{} -> "TaggedUnionMemberAccess"
    TaggedUnionGetTag{} -> "TaggedUnionGetTag"
    TaggedUnionConstruct{} -> "TaggedUnionConstruct"
    ForEach{}        -> "ForEach"
    Find{}           -> "Find"
    IterationElement{} -> "IterationElement"
    IterationIndex{} -> "IterationIndex"