523add4 · rowtype-yoga/purescript-native

8 , convertModulesInPackageWithEnv

9 ) where

10

11−import Prelude (id, String)

12import Protolude hiding (check)

11import Protolude hiding (check)

13

12

14import Control.Arrow ((&&&))

13import Control.Arrow ((&&&))

15import Control.Category ((>>>))

14import Control.Category ((>>>))

16import Control.Monad.Writer.Strict (runWriterT)

15import Control.Monad.Writer.Strict (runWriterT)

17import qualified Data.Map as Map

16import qualified Data.Map as Map

17+import Data.String (String)

18

19import Language.PureScript.Docs.Convert.ReExports (updateReExports)

20import Language.PureScript.Docs.Convert.Single (convertSingleModule)

106 (env, convertedModules) <- second (map convertSingleModule) <$> partiallyDesugar modules

107

108 modulesWithTypes <- typeCheckIfNecessary modules convertedModules

109− let moduleMap = Map.fromList (map (modName &&& id) modulesWithTypes)

109+ let moduleMap = Map.fromList (map (modName &&& identity) modulesWithTypes)

110

111 let traversalOrder = map P.getModuleName modules

112 pure (Map.elems (updateReExports env traversalOrder withPackage moduleMap), env)

178 other

179

180 parseIdent =

181− either (err . ("failed to parse Ident: " ++)) id . runParser P.parseIdent

181+ either (err . ("failed to parse Ident: " ++)) identity . runParser P.parseIdent

182

183 lookupName name =

184 let key = P.Qualified (Just (modName m)) name