From 04a1444c89819b509f50dec166a8456afc6cc8eb Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 3 Apr 2017 15:40:15 -0400 Subject: [PATCH] Eta reduce. --- src/Command.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Command.hs b/src/Command.hs index 2c07bdd70..d0e1287f1 100644 --- a/src/Command.hs +++ b/src/Command.hs @@ -165,7 +165,7 @@ runReadFilesAtSHAs gitDir alternateObjectDirs paths sha1 sha2 = withRepository l toSourceKind (Git.SymlinkBlob mode) = Source.SymlinkBlob mode runParse :: Maybe Language -> SourceBlob -> IO (Term (Syntax Text) (Record DefaultFields)) -runParse language = maybe lineByLineParser parserForLanguage language +runParse = maybe lineByLineParser parserForLanguage runDiff :: HasField fields Category => Term (Syntax Text) (Record fields) -> Term (Syntax Text) (Record fields) -> Diff (Syntax Text) (Record fields) runDiff term1 term2 = stripDiff (diffTerms (decorate term1) (decorate term2))