git.iko.soy/rowtype-yoga/purescript-native
on fe44756 help sign in
rowtype-yoga/purescript-native/src/Language/PureScript/Sugar.hs
32 lines 977 B 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
27desugar :: [Module] -> Either String [Module]
28desugar = rebracket
29 >=> desugarDo
30 >=> desugarCasesModule
31 >=> desugarTypeDeclarationsModule
32 >=> return . createBindingGroupsModule