semantic/src/Syntax.hs

mirror of https://github.com/github/semantic.git synced 2024-12-21 05:41:54 +03:00
module Syntax where

import Data.Map

data Syntax a f =
  Leaf a
  | Indexed [f]
  | Fixed [f]
  | Keyed (Map String f)
  deriving (Functor, Show, Eq)
Add a module defining Syntax. 2015-11-18 00:29:55 +03:00			`module Syntax where`

			`import Data.Map`

Reorder the type parameters ಠ_ಠ 2015-11-18 00:45:14 +03:00			`data Syntax a f =`
Indentation stuff. 2015-11-18 03:17:42 +03:00			`Leaf a`
			`\| Indexed [f]`
			`\| Fixed [f]`
			`\| Keyed (Map String f)`
			`deriving (Functor, Show, Eq)`