Remove debug statements

Jacoby6000 · Nov 24, 2019 · 48170a8 · 48170a8
1 parent d25590c
commit 48170a8
Showing 1 changed file with 0 additions and 3 deletions.
diff --git a/exec/Miner/OpenCL.hs b/exec/Miner/OpenCL.hs
@@ -242,9 +242,6 @@ run cfg mSteps (TargetBytes target) (HeaderBytes header) work genNonce = do
     clSetKernelArgSto kern 2 outBuf
     e0 <- clEnqueueWriteBuffer queue inBuf False (0::Int) 320 (castPtr inPtr) []
     e1 <- clEnqueueWriteBuffer queue outBuf True (0::Int) 8 (castPtr outPtr) [e0]
-    n <- peekElemOff ((castPtr inBuf) :: Ptr Word8) 320
-    putStrLn (show n)
-    pokeElemOff (castPtr inBuf) 320 n
     traverse_ clReleaseEvent [e0, e1]
 
   pad :: Int -> ByteString -> ByteString