Merge pull request #272 from codecrafters-io/disable-buffering-for-ha…

…skell

CC-1491: Disable stderr/out buffering for Haskell starter code

compiled_starters/haskell/app/Main.hs

@@ -5,10 +5,14 @@
 module Main (main) where
 
 import Network.Simple.TCP (serve, HostPreference(HostAny), closeSock)
-
+import System.IO (hSetBuffering, stdout, stderr, BufferMode(NoBuffering))
 
 main :: IO ()
 main = do
+    -- Disable output buffering
+    hSetBuffering stdout NoBuffering
+    hSetBuffering stderr NoBuffering
+
     -- You can use print statements as follows for debugging, they'll be visible when running tests.
     putStrLn "Logs from your program will appear here"
 

solutions/haskell/01-jm1/code/app/Main.hs

@@ -5,10 +5,14 @@
 module Main (main) where
 
 import Network.Simple.TCP (serve, HostPreference(HostAny), closeSock)
-
+import System.IO (hSetBuffering, stdout, stderr, BufferMode(NoBuffering))
 
 main :: IO ()
 main = do
+    -- Disable output buffering
+    hSetBuffering stdout NoBuffering
+    hSetBuffering stderr NoBuffering
+
     let port = "6379"
     putStrLn $ "Redis server listening on port " ++ port
     serve HostAny port $ \(socket, address) -> do

solutions/haskell/01-jm1/diff/app/Main.hs.diff

@@ -1,15 +1,19 @@
-@@ -1,20 +1,16 @@
+@@ -1,24 +1,20 @@
  {-# OPTIONS_GHC -Wno-unused-top-binds #-}
  {-# LANGUAGE BlockArguments #-}
  {-# LANGUAGE OverloadedStrings #-}
 
  module Main (main) where
 
  import Network.Simple.TCP (serve, HostPreference(HostAny), closeSock)
-
+ import System.IO (hSetBuffering, stdout, stderr, BufferMode(NoBuffering))
 
  main :: IO ()
  main = do
+     -- Disable output buffering
+     hSetBuffering stdout NoBuffering
+     hSetBuffering stderr NoBuffering
+
 -    -- You can use print statements as follows for debugging, they'll be visible when running tests.
 -    putStrLn "Logs from your program will appear here"
 -

starter_templates/haskell/code/app/Main.hs

@@ -5,10 +5,14 @@
 module Main (main) where
 
 import Network.Simple.TCP (serve, HostPreference(HostAny), closeSock)
-
+import System.IO (hSetBuffering, stdout, stderr, BufferMode(NoBuffering))
 
 main :: IO ()
 main = do
+    -- Disable output buffering
+    hSetBuffering stdout NoBuffering
+    hSetBuffering stderr NoBuffering
+
     -- You can use print statements as follows for debugging, they'll be visible when running tests.
     putStrLn "Logs from your program will appear here"