Skip to content

Commit

Permalink
Fix spacing for 102
Browse files Browse the repository at this point in the history
  • Loading branch information
mihaimaruseac committed Jan 2, 2022
1 parent 41a9ce1 commit c0d0017
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 2 deletions.
1 change: 1 addition & 0 deletions haskell_102/codelab/01_mastermind/src/Game.hs
Original file line number Diff line number Diff line change
Expand Up @@ -99,6 +99,7 @@ computerInput size _ hist = return $ naiveSolver size hist

play :: Code -> Int -> Input -> IO ()
play answer maxTurn input = do
putStrLn "\n"
putStrLn $ "Valid colors: " ++ show allColors
putStrLn $ "Size of the answer: " ++ show (length answer)
putStrLn $ "Number of tries: " ++ show maxTurn
Expand Down
4 changes: 2 additions & 2 deletions haskell_102/codelab/01_mastermind/src/Tests.hs
Original file line number Diff line number Diff line change
Expand Up @@ -50,14 +50,14 @@ check x = case IntMap.lookup x testMap of
-- results of all tests from there
doCheck :: String -> Tests -> IO ()
doCheck file tests = do
putStr "Checking code from " >> putStrLn file
putStr "\n\nChecking code from " >> putStrLn file
Internal.check tests

-- If user supplies invalid arguments, we should print the valid arguments and
-- the files under test
noSuchSection :: IO ()
noSuchSection = do
putStrLn "Requested invalid section. Available sections are:"
putStrLn "\n\nRequested invalid section. Available sections are:"
mapM_ displaySection $ IntMap.toAscList testMap
where
displaySection (k, (f, _)) = printf "\t%d -> %s\n" k f
Expand Down

0 comments on commit c0d0017

Please sign in to comment.