src/AST/Variable.hs · elk

on 7c33c13 help sign in

elk/src/AST/Variable.hs

32 lines 447 B history raw

1{-# OPTIONS_GHC -Wall #-}

2{-# LANGUAGE OverloadedStrings #-}

3module AST.Variable

4 ( Global(..)

5 )

6 where

9import Data.Binary

11import qualified AST.Module.Name as ModuleName

12import qualified Elm.Name as N

16-- GLOBAL NAMES

19data Global = Global !ModuleName.Canonical !N.Name

20 deriving (Eq, Ord)

24-- BINARY SERIALIZATION

27instance Binary Global where

28 put (Global home name) =

29 put home >> put name

31 get =

32 Global <$> get <*> get