mirror of
https://github.com/github/semantic.git
synced 2024-11-28 01:47:01 +03:00
13 lines
193 B
Haskell
13 lines
193 B
Haskell
module Syntax where
|
|
|
|
{-# LANGUAGE DeriveFunctor #-}
|
|
|
|
import Data.Map
|
|
|
|
data Syntax a f =
|
|
Leaf a
|
|
| Indexed [f]
|
|
| Fixed [f]
|
|
| Keyed (Map String f)
|
|
deriving (Functor, Show, Eq)
|