From d18c2375cff56b40ba3dea198c783d79d7b87453 Mon Sep 17 00:00:00 2001
From: Rick Winfrey <rewinfrey@github.com>
Date: Thu, 30 Mar 2017 10:52:24 -0700
Subject: [PATCH] Swap return for pure

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

diff --git a/src/ParseCommand.hs b/src/ParseCommand.hs
index b1696e6bc..1be68ae16 100644
--- a/src/ParseCommand.hs
+++ b/src/ParseCommand.hs
@@ -61,7 +61,7 @@ instance ToJSON ParseNode where
 -- | Parses file contents into an SExpression format for the provided arguments.
 parseSExpression :: Arguments -> IO ByteString
 parseSExpression =
-  return . printTerms TreeOnly <=< parse <=< sourceBlobsFromArgs
+  pure . printTerms TreeOnly <=< parse <=< sourceBlobsFromArgs
   where parse = traverse (\sourceBlob@SourceBlob{..} -> parserForType (toS (takeExtension path)) sourceBlob)
 
 -- | Constructs IndexFile nodes for the provided arguments and encodes them to JSON.