git.iko.soy/rowtype-yoga/purescript-native
on a80fa9a help sign in
rowtype-yoga/purescript-native/src/Language/PureScript/Types.hs
44 lines 1.0 kB history raw
1-----------------------------------------------------------------------------
2--
3-- Module : Language.PureScript.Types
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 Language.PureScript.Types where
19import Data.Data
20import Language.PureScript.Names
22data Type
23 = TUnknown Int
24 | Number
25 | String
26 | Boolean
27 | Array Type
28 | Object Row
29 | Function [Type] Type
30 | TypeVar String
31 | TypeConstructor (Qualified ProperName)
32 | TypeApp Type Type
33 | SaturatedTypeSynonym (Qualified ProperName) [Type] deriving (Show, Eq, Data, Typeable)
35data PolyType = PolyType [String] Type deriving (Show, Eq, Data, Typeable)
37data Row
38 = RUnknown Int
39 | RowVar String
40 | REmpty
41 | RCons String Type Row deriving (Show, Eq, Data, Typeable)
43monoType :: Type -> PolyType
44monoType = PolyType []