Add recorded playback

[lsp-test.git] / example / Main.hs

diff --git a/example/Main.hs b/example/Main.hs
index 9318bcb7df8249fe8821dba52c255e278dc8b5bf..8080991051ec609e297498b6d491ef14470c76af 100644 (file)
--- a/example/Main.hs
+++ b/example/Main.hs
@@ -9,8 +9,8 @@ import System.Environment
 
 main = do
   files <- getArgs
-  forM_ files $ \file -> session $ do
-    file <- liftIO $ canonicalizePath file
+  forM_ files $ \fp -> session $ do
+    file <- liftIO $ canonicalizePath fp
     openDocument file
     symbols <- documentSymbols file
     liftIO $ mapM_ T.putStrLn (symbols ^.. traverse . LSP.name)