@@ -8,13 +8,13 @@ module Language.PureScript.Docs.Convert
88 , convertModulesInPackageWithEnv
99 ) where
1010
11−import Prelude (id, String)
1211import Protolude hiding (check)
1312
1413import Control.Arrow ((&&&))
1514import Control.Category ((>>>))
1615import Control.Monad.Writer.Strict (runWriterT)
1716import qualified Data.Map as Map
17+import Data.String (String)
1818
1919import Language.PureScript.Docs.Convert.ReExports (updateReExports)
2020import Language.PureScript.Docs.Convert.Single (convertSingleModule)
@@ -106,7 +106,7 @@ convertSorted withPackage modules = do
106106 (env, convertedModules) <- second (map convertSingleModule) <$> partiallyDesugar modules
107107
108108 modulesWithTypes <- typeCheckIfNecessary modules convertedModules
109− let moduleMap = Map.fromList (map (modName &&& id) modulesWithTypes)
109+ let moduleMap = Map.fromList (map (modName &&& identity) modulesWithTypes)
110110
111111 let traversalOrder = map P.getModuleName modules
112112 pure (Map.elems (updateReExports env traversalOrder withPackage moduleMap), env)
@@ -178,7 +178,7 @@ insertValueTypes env m =
178178 other
179179
180180 parseIdent =
181− either (err . ("failed to parse Ident: " ++)) id . runParser P.parseIdent
181+ either (err . ("failed to parse Ident: " ++)) identity . runParser P.parseIdent
182182
183183 lookupName name =
184184 let key = P.Qualified (Just (modName m)) name