X-Git-Url: http://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=example%2FMain.hs;fp=example%2FMain.hs;h=8080991051ec609e297498b6d491ef14470c76af;hp=9318bcb7df8249fe8821dba52c255e278dc8b5bf;hb=9db776483f617de170b6798d5ea8a9f997c0d098;hpb=c449df9656ffb46d60ea5aba8537e5c10e02d388

diff --git a/example/Main.hs b/example/Main.hs
index 9318bcb..8080991 100644
--- 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)