semantic/Syntax.hs

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)
Add a module defining Syntax. 2015-11-18 00:29:55 +03:00			`module Syntax where`

Syntax is a functor. 2015-11-18 00:30:20 +03:00			`{-# LANGUAGE DeriveFunctor #-}`

Add a module defining Syntax. 2015-11-18 00:29:55 +03:00			`import Data.Map`

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