From e9f64a3181aa671091bd3691228be5ef2e4f109e Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Mon, 14 May 2018 17:05:31 -0400
Subject: [PATCH] Bind left to right.

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

diff --git a/src/Semantic/CLI.hs b/src/Semantic/CLI.hs
index c41a2205b..600326809 100644
--- a/src/Semantic/CLI.hs
+++ b/src/Semantic/CLI.hs
@@ -89,7 +89,7 @@ arguments = info (version <*> helper <*> ((,) <$> optionsParser <*> argumentsPar
       format <- flag  AST.SExpression AST.SExpression (long "sexpression" <> help "Output s-expression ASTs (default)")
             <|> flag'                 AST.JSON        (long "json"        <> help "Output JSON ASTs")
       filesOrStdin <- Right <$> some (argument filePathReader (metavar "FILES...")) <|> pure (Left stdin)
-      pure $ AST.runASTParse format =<< Task.readBlobs filesOrStdin
+      pure $ Task.readBlobs filesOrStdin >>= AST.runASTParse format
 
     graphCommand = command "graph" (info graphArgumentsParser (progDesc "Compute a graph for a directory or entry point"))
     graphArgumentsParser = do