From 8284c52724911523ad3d85aeb3e7e043ae89633e Mon Sep 17 00:00:00 2001
From: Hans-Peter Deifel <hpd@hpdeifel.de>
Date: Tue, 18 Oct 2016 17:56:14 +0200
Subject: [PATCH] Fix HLint warnings

---
 src/Search/Search.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/Search/Search.hs b/src/Search/Search.hs
index 35713be..e60b044 100644
--- a/src/Search/Search.hs
+++ b/src/Search/Search.hs
@@ -100,8 +100,8 @@ oneProgRun prog state trace = do
           writeIORef state s'
           case next of
             Restart -> terminateProcess handle >> mapM_ hClose [pstdin, pstdout]
-            Continue x -> do
-              makeDecision pstdin state x
+            Continue x' -> do
+              makeDecision pstdin state x'
               loop
 
         EOF -> terminateProcess handle >> mapM_ hClose [pstdin, pstdout]
@@ -111,11 +111,11 @@ oneProgRun prog state trace = do
 
 
 tracePath :: Handle -> Handle -> IORef State -> [Bool] -> IO ()
-tracePath pstdin pstdout state [] = return ()
-tracePath pstdin pstdout state (decision:ds) = do
+tracePath _      _       _     [] = return ()
+tracePath pstdin pstdout state (decision:ds) =
   handleLine pstdout state >>= \case
     EOF -> error "premature eof" -- FIXME
-    Decision x -> do
+    Decision _ -> do
       makeDecision pstdin state decision
       tracePath pstdin pstdout state ds
     NewState _ -> tracePath pstdin pstdout state (decision:ds)
-- 
GitLab