1 import Language.Haskell.LSP.Test
2 import qualified Language.Haskell.LSP.TH.DataTypesJSON as LSP
3 import qualified Data.Text.IO as T
6 import Control.Monad.IO.Class
7 import System.Directory
8 import System.Environment
12 forM_ files $ \file -> session $ do
13 file <- liftIO $ canonicalizePath file
15 symbols <- documentSymbols file
16 liftIO $ mapM_ T.putStrLn (symbols ^.. traverse . LSP.name)