git.iko.soy/rowtype-yoga/purescript-native
on f761337 help sign in
rowtype-yoga/purescript-native/src/Language/PureScript/Sugar.hs
34 lines 1.1 kB history raw
1-----------------------------------------------------------------------------
2--
3-- Module : Language.PureScript.Sugar
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-----------------------------------------------------------------------------
15module Language.PureScript.Sugar (desugar, module S) where
17import Control.Monad
19import Language.PureScript.Declarations
21import Language.PureScript.Sugar.Operators as S
22import Language.PureScript.Sugar.DoNotation as S
23import Language.PureScript.Sugar.CaseDeclarations as S
24import Language.PureScript.Sugar.TypeDeclarations as S
25import Language.PureScript.Sugar.BindingGroups as S
26import Language.PureScript.Sugar.TypeClasses as S
28desugar :: [Module] -> Either String [Module]
29desugar = return . desugarTypeClasses
30 >=> rebracket
31 >=> desugarDo
32 >=> desugarCasesModule
33 >=> desugarTypeDeclarationsModule
34 >=> return . createBindingGroupsModule