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