Language/Haskell/GhcMod/Doc.hs

module Language.Haskell.GhcMod.Doc where

import GHC
import Language.Haskell.GhcMod.Gap (withStyle, showDocWith)
import Outputable
import Pretty (Mode(..))

showPage :: DynFlags -> PprStyle -> SDoc -> String
showPage dflag style = showDocWith dflag PageMode . withStyle dflag style

showOneLine :: DynFlags -> PprStyle -> SDoc -> String
showOneLine dflag style = showDocWith dflag OneLineMode . withStyle dflag style

-- showForUser :: DynFlags -> PrintUnqualified -> SDoc -> String
-- showForUser dflags unqual sdoc =
--     showDocWith dflags PageMode $
--       runSDoc sdoc $ initSDocContext dflags $ mkUserStyle unqual AllTheWay

getStyle :: GhcMonad m => m PprStyle
getStyle = do
    unqual <- getPrintUnqual
    return $ mkUserStyle unqual AllTheWay

styleUnqualified :: PprStyle
styleUnqualified = mkUserStyle neverQualify AllTheWay
Changing GHCMod as a library. 2013-05-17 10:00:01 +09:00			`module Language.Haskell.GhcMod.Doc where`
clean up the code for Doc/SDoc. 2013-03-12 22:15:23 +09:00
Refactoring to use cabal-helper-wrapper This turned out to be quite involved but save for this huge commit it's actually quite awesome and squashes quite a few bugs and nasty problems (hopefully). Most importantly we now have native cabal component support without the user having to do anything to get it! To do this we traverse imports starting from each component's entrypoints (library modules or Main source file for executables) and use this information to find which component's options each module will build with. Under the assumption that these modules have to build with every component they're used in we can now just pick one. Quite a few internal assumptions have been invalidated by this change. Most importantly the runGhcModT* family of cuntions now change the current working directory to `cradleRootDir`. 2015-03-03 21:12:43 +01:00			`import GHC`
Pretty.showDocWith disappeard at GHC 7.7.20140110 2014-01-14 15:37:16 +09:00			`import Language.Haskell.GhcMod.Gap (withStyle, showDocWith)`
Refactoring to use cabal-helper-wrapper This turned out to be quite involved but save for this huge commit it's actually quite awesome and squashes quite a few bugs and nasty problems (hopefully). Most importantly we now have native cabal component support without the user having to do anything to get it! To do this we traverse imports starting from each component's entrypoints (library modules or Main source file for executables) and use this information to find which component's options each module will build with. Under the assumption that these modules have to build with every component they're used in we can now just pick one. Quite a few internal assumptions have been invalidated by this change. Most importantly the runGhcModT* family of cuntions now change the current working directory to `cradleRootDir`. 2015-03-03 21:12:43 +01:00			`import Outputable`
Pretty.showDocWith disappeard at GHC 7.7.20140110 2014-01-14 15:37:16 +09:00			`import Pretty (Mode(..))`
clean up the code for Doc/SDoc. 2013-03-12 22:15:23 +09:00
Displaying a qualified name if two unqualified names are conflict (#130). 2014-04-03 09:49:23 +09:00			`showPage :: DynFlags -> PprStyle -> SDoc -> String`
			`showPage dflag style = showDocWith dflag PageMode . withStyle dflag style`
showUnqualifiedPage is now in Doc.hs. 2013-07-14 17:07:30 +09:00
Displaying a qualified name if two unqualified names are conflict (#130). 2014-04-03 09:49:23 +09:00			`showOneLine :: DynFlags -> PprStyle -> SDoc -> String`
			`showOneLine dflag style = showDocWith dflag OneLineMode . withStyle dflag style`
showUnqualifiedPage is now in Doc.hs. 2013-07-14 17:07:30 +09:00
Bring test suite up to date 2015-03-05 16:50:06 +01:00			`-- showForUser :: DynFlags -> PrintUnqualified -> SDoc -> String`
			`-- showForUser dflags unqual sdoc =`
			`-- showDocWith dflags PageMode $`
			`-- runSDoc sdoc $ initSDocContext dflags $ mkUserStyle unqual AllTheWay`
Refactoring to use cabal-helper-wrapper This turned out to be quite involved but save for this huge commit it's actually quite awesome and squashes quite a few bugs and nasty problems (hopefully). Most importantly we now have native cabal component support without the user having to do anything to get it! To do this we traverse imports starting from each component's entrypoints (library modules or Main source file for executables) and use this information to find which component's options each module will build with. Under the assumption that these modules have to build with every component they're used in we can now just pick one. Quite a few internal assumptions have been invalidated by this change. Most importantly the runGhcModT* family of cuntions now change the current working directory to `cradleRootDir`. 2015-03-03 21:12:43 +01:00
Move lots of stuff to GhcMod - Generalize many signatures to GhcMonad m 2014-06-28 21:43:51 +02:00			`getStyle :: GhcMonad m => m PprStyle`
Displaying a qualified name if two unqualified names are conflict (#130). 2014-04-03 09:49:23 +09:00			`getStyle = do`
Refactoring to use cabal-helper-wrapper This turned out to be quite involved but save for this huge commit it's actually quite awesome and squashes quite a few bugs and nasty problems (hopefully). Most importantly we now have native cabal component support without the user having to do anything to get it! To do this we traverse imports starting from each component's entrypoints (library modules or Main source file for executables) and use this information to find which component's options each module will build with. Under the assumption that these modules have to build with every component they're used in we can now just pick one. Quite a few internal assumptions have been invalidated by this change. Most importantly the runGhcModT* family of cuntions now change the current working directory to `cradleRootDir`. 2015-03-03 21:12:43 +01:00			`unqual <- getPrintUnqual`
Displaying a qualified name if two unqualified names are conflict (#130). 2014-04-03 09:49:23 +09:00			`return $ mkUserStyle unqual AllTheWay`
clean up the code for Doc/SDoc. 2013-03-12 22:15:23 +09:00
showUnqualifiedPage is now in Doc.hs. 2013-07-14 17:07:30 +09:00			`styleUnqualified :: PprStyle`
			`styleUnqualified = mkUserStyle neverQualify AllTheWay`