git.iko.soy/rowtype-yoga/purescript-native
on 2ffe085 help sign in
rowtype-yoga/purescript-native/src/PureScript/Names.hs
26 lines 608 B history raw
1-----------------------------------------------------------------------------
2--
3-- Module : PureScript.Names
4-- Copyright : (c) Phil Freeman 2013
5-- License : MIT
6--
7-- Maintainer : Phil Freeman <paf31@cantab.net>
8-- Stability : experimental
9-- Portability :
10--
11-- |
12--
13-----------------------------------------------------------------------------
15{-# LANGUAGE DeriveDataTypeable #-}
17module PureScript.Names where
19import Data.Data
21data Ident = Ident String | Op String deriving (Eq, Ord, Data, Typeable)
23instance Show Ident where
24 show (Ident s) = s
25 show (Op op) = '(':op ++ ")"