fbaeeeb · rowtype-yoga/purescript-native

28import Control.Monad.Error (ErrorT(..), MonadError)

29import Control.Monad.Error.Class (MonadError(..))

30

31−import Data.List (intercalate, isPrefixOf, nub, sortBy, isInfixOf)

31+import Data.List (intercalate, isPrefixOf, nub, sortBy, isInfixOf, sort)

32import Data.Maybe (mapMaybe)

33import Data.Foldable (traverse_)

34import Data.Version (showVersion)

313 PSCiState { psciLoadedModules = loadedModules } <- PSCI $ lift get

314 psciIO $ readModules loadedModules >>= putStrLn

315 return ()

316− where readModules = return . unlines . nub . map toModuleName

316+ where readModules = return . unlines . sort . nub . map toModuleName

317 toModuleName = N.runModuleName . (\ (D.Module mdName _ _) -> mdName) . snd

318

319-- |

324 PSCiState { psciImportedModuleNames = importedModuleNames } <- PSCI $ lift get

325 psciIO $ readModules importedModuleNames >>= putStrLn

326 return ()

327− where readModules = return . unlines . map N.runModuleName

327+ where readModules = return . unlines . sort . map N.runModuleName

328

329-- |

330-- Imports a module, preserving the initial state on failure.

379 readModuleTypes _ (Left err) = return err

380 readModuleTypes loadedModules (Right modName) =

381 return $ case lookup modName loadedModules of

382− Just mName -> unlines $ signatures mName

382+ Just mName -> (unlines . sort . signatures) mName

383− _ -> "Module '" ++ modName ++ "' not found!"

383+ _ -> "Module '" ++ modName ++ "' not found!"

384

385-- |

386-- Takes a value and prints its type