1
1
mirror of https://github.com/github/semantic.git synced 2024-12-26 08:25:19 +03:00

Syntax is a functor.

This commit is contained in:
Rob Rix 2015-11-17 13:30:20 -08:00
parent 538f5355b2
commit 06c5dfe9ed

View File

@ -1,5 +1,7 @@
module Syntax where
{-# LANGUAGE DeriveFunctor #-}
import Data.Map
data Syntax f a =
@ -7,3 +9,4 @@ data Syntax f a =
| Indexed [f]
| Fixed [f]
| Keyed (Map String f)
deriving Functor