Merge pull request #106 from codecrafters-io/bump-bun-version

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

Author: andy1li

compiled_starters/haskell/app/Main.hs

@@ -5,11 +5,13 @@ module Main (main) where
 import Control.Monad (forever)
 import qualified Data.ByteString.Char8 as BC
 import Network.Socket
-import System.IO (BufferMode (..), hSetBuffering, stdout)
+import System.IO (BufferMode (NoBuffering), hSetBuffering, stdout, stderr)
 
 main :: IO ()
 main = do
-    hSetBuffering stdout LineBuffering
+    -- 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.
     BC.putStrLn "Logs from your program will appear here"

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

@@ -5,11 +5,13 @@ module Main (main) where
 import Control.Monad (forever)
 import qualified Data.ByteString.Char8 as BC
 import Network.Socket
-import System.IO (BufferMode (..), hSetBuffering, stdout)
+import System.IO (BufferMode (NoBuffering), hSetBuffering, stdout, stderr)
 
 main :: IO ()
 main = do
-    hSetBuffering stdout LineBuffering
+    -- Disable output buffering
+    hSetBuffering stdout NoBuffering
+    hSetBuffering stderr NoBuffering
 
     let host = "127.0.0.1"
         port = "4221"

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

@@ -1,16 +1,18 @@
-@@ -1,36 +1,32 @@
+@@ -1,38 +1,34 @@
  {-# LANGUAGE OverloadedStrings #-}
 
  module Main (main) where
 
  import Control.Monad (forever)
  import qualified Data.ByteString.Char8 as BC
  import Network.Socket
- import System.IO (BufferMode (..), hSetBuffering, stdout)
+ import System.IO (BufferMode (NoBuffering), hSetBuffering, stdout, stderr)
 
  main :: IO ()
  main = do
-     hSetBuffering stdout LineBuffering
+     -- 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.
 -    BC.putStrLn "Logs from your program will appear here"

starter_templates/haskell/code/app/Main.hs

@@ -5,11 +5,13 @@ module Main (main) where
 import Control.Monad (forever)
 import qualified Data.ByteString.Char8 as BC
 import Network.Socket
-import System.IO (BufferMode (..), hSetBuffering, stdout)
+import System.IO (BufferMode (NoBuffering), hSetBuffering, stdout, stderr)
 
 main :: IO ()
 main = do
-    hSetBuffering stdout LineBuffering
+    -- 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.
     BC.putStrLn "Logs from your program will appear here"