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