Disable buffering for Haskell

codecrafters-io · Nov 5, 2024 · 0175a73 · 0175a73
1 parent 265e5ae
commit 0175a73
Show file tree

Hide file tree

Showing 4 changed files with 21 additions and 5 deletions.
diff --git a/compiled_starters/haskell/app/Main.hs b/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"
 

diff --git a/solutions/haskell/01-jm1/code/app/Main.hs b/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

diff --git a/solutions/haskell/01-jm1/diff/app/Main.hs.diff b/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"
 -

diff --git a/starter_templates/haskell/code/app/Main.hs b/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"