dead-code-detection-0.1.2: src/GHC/Show.hs

{-# LANGUAGE LambdaCase #-}

module GHC.Show where

import           Data.String.Conversions
import           FastString
import           GHC
import           Name
import           Outputable

formatName :: Name -> String
formatName name =
  srcLocS ++ ": " ++ showSDocUnsafe (ppr name)
  where
    srcLocS = case nameSrcLoc name of
      RealSrcLoc loc ->
        cs (fs_bs (srcLocFile loc)) ++ ":" ++
        show (srcLocLine loc) ++ ":" ++
        show (srcLocCol loc)
      UnhelpfulLoc s -> cs (fs_bs s)

-- * development utils

nyi :: Outputable doc => String -> doc -> a
nyi msg x = error $
  ("Not yet implemented: " ++ msg ++ " " ++ (showSDocUnsafe $ ppr x))