rename var.

wfleming · Dec 28, 2015 · 46e8842 · 46e8842
1 parent c3133ce
commit 46e8842
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/app/Main.hs b/app/Main.hs
@@ -62,10 +62,10 @@ analyzer env paths chan = do
     -- Source: Parallel and Concurrent Programming in Haskell
     --         MVar as a Building Block: Unbounded Channels, p135
     writeChanAndForce :: Issue -> IO ()
-    writeChanAndForce result = do
-      let cmd = Result result
-      writeChan chan cmd
-      seq cmd (return ())
+    writeChanAndForce issue = do
+      let result = Result issue
+      writeChan chan result
+      seq result (return ())
 
 --------------------------------------------------------------------------------