example/Main.hs

   1 import Language.Haskell.LSP.Test
   2 import qualified Language.Haskell.LSP.TH.DataTypesJSON as LSP
   3 import qualified Data.Text.IO as T
   4 import Control.Lens
   5 import Control.Monad
   6 import Control.Monad.IO.Class
   7 import System.Directory
   8 import System.Environment
   9
  10 main = do
  11   files <- getArgs
  12   forM_ files $ \fp -> manualSession $ do
  13     file <- liftIO $ canonicalizePath fp
  14     openDocument file
  15     symbols <- documentSymbols file
  16     liftIO $ mapM_ T.putStrLn (symbols ^.. traverse . LSP.name)