Merge pull request #106 from codecrafters-io/disable-buffering-for-haskell

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

Author: andy1li

compiled_starters/haskell/app/Main.hs

@@ -2,6 +2,7 @@ module Main where
 
 import System.Environment
 import System.Exit
+import System.IO (hSetBuffering, stdout, stderr, BufferMode (NoBuffering))
 
 matchPattern :: String -> String -> Bool
 matchPattern pattern input = do
@@ -11,6 +12,10 @@ matchPattern pattern input = do
 
 main :: IO ()
 main = do
+  -- Disable output buffering
+  hSetBuffering stdout NoBuffering
+  hSetBuffering stderr NoBuffering
+
   args <- getArgs
   let pattern = args !! 1
   input_line <- getLine

compiled_starters/haskell/package.yaml

@@ -6,36 +6,36 @@
 #
 # DON'T EDIT THIS!
 
-name:                hs-grep-clone
-version:             0.1.0.0
-license:             BSD3
+name: hs-grep-clone
+version: 0.1.0.0
+license: BSD3
 
 dependencies:
-- base >= 4.7 && < 5
-- megaparsec # can help when implementing the parser
-- parser-combinators # extends megaparsec
-- containers # Set, Map, Seq
-- unordered-containers # HashSet, HashMap
-- hashable # when using your own data types with unordered-containers
-- mtl # monad transformers to help with nested monads
+  - base >= 4.7 && < 5
+  - megaparsec # can help when implementing the parser
+  - parser-combinators # extends megaparsec
+  - containers # Set, Map, Seq
+  - unordered-containers # HashSet, HashMap
+  - hashable # when using your own data types with unordered-containers
+  - mtl # monad transformers to help with nested monads
 
 default-extensions:
-- BlockArguments
-- ImportQualifiedPost
-- LambdaCase
-- NamedFieldPuns
-- RecordWildCards
+  - BlockArguments
+  - ImportQualifiedPost
+  - LambdaCase
+  - NamedFieldPuns
+  - RecordWildCards
 
 library:
-  source-dirs: src
+  source-dirs: app
 
 executables:
   hs-grep-clone-exe:
-    main:                Main.hs
-    source-dirs:         app
+    main: Main.hs
+    source-dirs: app
     ghc-options:
-    - -threaded
-    - -rtsopts
-    - -with-rtsopts=-N
+      - -threaded
+      - -rtsopts
+      - -with-rtsopts=-N
     dependencies:
-    - hs-grep-clone
+      - hs-grep-clone

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

@@ -2,6 +2,7 @@ module Main where
 
 import System.Environment
 import System.Exit
+import System.IO (hSetBuffering, stdout, stderr, BufferMode (NoBuffering))
 
 matchPattern :: String -> String -> Bool
 matchPattern pattern input = do
@@ -11,6 +12,10 @@ matchPattern pattern input = do
 
 main :: IO ()
 main = do
+  -- Disable output buffering
+  hSetBuffering stdout NoBuffering
+  hSetBuffering stderr NoBuffering
+
   args <- getArgs
   let pattern = args !! 1
   input_line <- getLine

solutions/haskell/01-cq2/code/package.yaml

@@ -6,36 +6,36 @@
 #
 # DON'T EDIT THIS!
 
-name:                hs-grep-clone
-version:             0.1.0.0
-license:             BSD3
+name: hs-grep-clone
+version: 0.1.0.0
+license: BSD3
 
 dependencies:
-- base >= 4.7 && < 5
-- megaparsec # can help when implementing the parser
-- parser-combinators # extends megaparsec
-- containers # Set, Map, Seq
-- unordered-containers # HashSet, HashMap
-- hashable # when using your own data types with unordered-containers
-- mtl # monad transformers to help with nested monads
+  - base >= 4.7 && < 5
+  - megaparsec # can help when implementing the parser
+  - parser-combinators # extends megaparsec
+  - containers # Set, Map, Seq
+  - unordered-containers # HashSet, HashMap
+  - hashable # when using your own data types with unordered-containers
+  - mtl # monad transformers to help with nested monads
 
 default-extensions:
-- BlockArguments
-- ImportQualifiedPost
-- LambdaCase
-- NamedFieldPuns
-- RecordWildCards
+  - BlockArguments
+  - ImportQualifiedPost
+  - LambdaCase
+  - NamedFieldPuns
+  - RecordWildCards
 
 library:
-  source-dirs: src
+  source-dirs: app
 
 executables:
   hs-grep-clone-exe:
-    main:                Main.hs
-    source-dirs:         app
+    main: Main.hs
+    source-dirs: app
     ghc-options:
-    - -threaded
-    - -rtsopts
-    - -with-rtsopts=-N
+      - -threaded
+      - -rtsopts
+      - -with-rtsopts=-N
     dependencies:
-    - hs-grep-clone
+      - hs-grep-clone

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

@@ -1,8 +1,9 @@
-@@ -1,28 +1,24 @@
+@@ -1,33 +1,29 @@
  module Main where
 
  import System.Environment
  import System.Exit
+ import System.IO (hSetBuffering, stdout, stderr, BufferMode (NoBuffering))
 
  matchPattern :: String -> String -> Bool
  matchPattern pattern input = do
@@ -12,6 +13,10 @@
 
  main :: IO ()
  main = do
+   -- Disable output buffering
+   hSetBuffering stdout NoBuffering
+   hSetBuffering stderr NoBuffering
+
    args <- getArgs
    let pattern = args !! 1
    input_line <- getLine

starter_templates/haskell/code/app/Main.hs

@@ -2,6 +2,7 @@ module Main where
 
 import System.Environment
 import System.Exit
+import System.IO (hSetBuffering, stdout, stderr, BufferMode (NoBuffering))
 
 matchPattern :: String -> String -> Bool
 matchPattern pattern input = do
@@ -11,6 +12,10 @@ matchPattern pattern input = do
 
 main :: IO ()
 main = do
+  -- Disable output buffering
+  hSetBuffering stdout NoBuffering
+  hSetBuffering stderr NoBuffering
+
   args <- getArgs
   let pattern = args !! 1
   input_line <- getLine

starter_templates/haskell/code/package.yaml

@@ -6,36 +6,36 @@
 #
 # DON'T EDIT THIS!
 
-name:                hs-grep-clone
-version:             0.1.0.0
-license:             BSD3
+name: hs-grep-clone
+version: 0.1.0.0
+license: BSD3
 
 dependencies:
-- base >= 4.7 && < 5
-- megaparsec # can help when implementing the parser
-- parser-combinators # extends megaparsec
-- containers # Set, Map, Seq
-- unordered-containers # HashSet, HashMap
-- hashable # when using your own data types with unordered-containers
-- mtl # monad transformers to help with nested monads
+  - base >= 4.7 && < 5
+  - megaparsec # can help when implementing the parser
+  - parser-combinators # extends megaparsec
+  - containers # Set, Map, Seq
+  - unordered-containers # HashSet, HashMap
+  - hashable # when using your own data types with unordered-containers
+  - mtl # monad transformers to help with nested monads
 
 default-extensions:
-- BlockArguments
-- ImportQualifiedPost
-- LambdaCase
-- NamedFieldPuns
-- RecordWildCards
+  - BlockArguments
+  - ImportQualifiedPost
+  - LambdaCase
+  - NamedFieldPuns
+  - RecordWildCards
 
 library:
-  source-dirs: src
+  source-dirs: app
 
 executables:
   hs-grep-clone-exe:
-    main:                Main.hs
-    source-dirs:         app
+    main: Main.hs
+    source-dirs: app
     ghc-options:
-    - -threaded
-    - -rtsopts
-    - -with-rtsopts=-N
+      - -threaded
+      - -rtsopts
+      - -with-rtsopts=-N
     dependencies:
-    - hs-grep-clone
+      - hs-grep-clone