protolude 0.3.1 → 0.3.2
raw patch · 3 files changed
+7/−87 lines, 3 filesdep −directorydep −filepathdep −ghcdep ~basedep ~mtldep ~transformers
Dependencies removed: directory, filepath, ghc, ghc-paths, process, protolude
Dependency ranges changed: base, mtl, transformers
Files
- ChangeLog.md +5/−0
- Exports.hs +0/−59
- protolude.cabal +2/−28
ChangeLog.md view
@@ -1,3 +1,8 @@+0.3.2+====+* GHC 9.2.2 support+* Drop export executable+ 0.3.1 ===== * GHC 9.0.1 and 9.2.1 support
− Exports.hs
@@ -1,59 +0,0 @@-{-# LANGUAGE CPP #-}-module Main- ( main,- )-where--import Control.Applicative ((<$>))-import Control.Monad.Trans-import Data.Foldable (concat)-import qualified Data.List as List-import Data.Maybe-import Data.Ord (comparing)-import DynFlags-import GHC-import GhcMonad-import GHC.Paths-import Outputable-import System.FilePath.Posix-import Prelude hiding (concat, mod)--autoModule :: FilePath -> IO ()-autoModule mod = runGhc (Just GHC.Paths.libdir) $ do- dflags <- GHC.getSessionDynFlags-#if (__GLASGOW_HASKELL__ > 706)- _ <- setSessionDynFlags ( dflags `gopt_set` Opt_GhciSandbox )-#else- _ <- setSessionDynFlags ( dflags `dopt_set` Opt_GhciSandbox )-#endif- target <- guessTarget ("src" </> addExtension mod ".hs") Nothing- setTargets [target]- _ <- load LoadAllTargets- modSum <- getModSummary $ mkModuleName mod- p <- GHC.parseModule modSum- t <- typecheckModule p- let modInfo = tm_checked_module_info t- let exports = modInfoExports modInfo- exportThings <- sequence <$> mapM lookupName exports- let sortedThings = List.sortBy (comparing getOccName) (concat exportThings)- GhcMonad.liftIO (mapM_ (showThing dflags) sortedThings)--showNamed :: NamedThing a => DynFlags -> a -> IO ()-showNamed df a = do- let nm = showSDoc df (ppr (getOccName a))- let mod = showSDoc df (ppr (nameModule (getName a)))- putStrLn (nm ++ " from " ++ mod)--showThing :: DynFlags -> TyThing -> IO ()-showThing df (AnId a) = showNamed df a-#if (__GLASGOW_HASKELL__ > 706)-showThing df (AConLike a) = showNamed df a-#endif-showThing df (ATyCon a) = showNamed df a-showThing _ _ = error "Should never happen."----showGhc :: (Outputable a) => a -> String---showGhc = showPpr unsafeGlobalDynFlags--main :: IO ()-main = autoModule "Protolude"
protolude.cabal view
@@ -1,5 +1,5 @@ name: protolude-version: 0.3.1+version: 0.3.2 synopsis: A small prelude. description: A sensible set of defaults for writing custom Preludes. homepage: https://github.com/sdiehl/protolude@@ -23,17 +23,12 @@ || ==8.8.1 || ==8.10.1 || ==9.0.1- || ==9.2.1+ || ==9.2.2 extra-source-files: README.md ChangeLog.md -flag dev- description: Build development tools- manual: True- default: False- source-repository head type: git location: git@github.com:protolude/protolude.git@@ -90,24 +85,3 @@ hs-source-dirs: src default-language: Haskell2010--executable exports- main-is: Exports.hs- default-language: Haskell2010-- if flag(dev)- buildable: True-- else- buildable: False-- build-depends:- base >=4.6 && <4.15- , directory- , filepath- , ghc- , ghc-paths- , mtl- , process- , protolude- , transformers