From 8f57b5d08bca9bb777f1eca0688f80e54edb5eab Mon Sep 17 00:00:00 2001
From: Rick Winfrey <rewinfrey@github.com>
Date: Tue, 5 Feb 2019 13:56:55 -0800
Subject: [PATCH] Don't need `_ <-` pattern

---
 src/Parsing/TreeSitter.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Parsing/TreeSitter.hs b/src/Parsing/TreeSitter.hs
index d85e981f0..15ca8a920 100644
--- a/src/Parsing/TreeSitter.hs
+++ b/src/Parsing/TreeSitter.hs
@@ -85,7 +85,7 @@ parseToAST parseTimeout language Blob{..} = bracket (liftIO TS.ts_parser_new) (l
     Just (Succeeded ast) -> Just ast <$ trace ("tree-sitter: parsing succeeded " <> blobPath)
     Nothing -> do
       trace $ "tree-sitter: parsing timed out " <> blobPath
-      _ <- liftIO $ TS.ts_parser_set_enabled parser (CBool 0)
+      liftIO (TS.ts_parser_set_enabled parser (CBool 0))
       Nothing <$ liftIO (wait parsing)