refactor(2023.04-haskell): prefer unlines

yurrriq · Dec 8, 2023 · b7d255f · b7d255f
1 parent 1fdbbaa
commit b7d255f
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/VERSION b/VERSION
@@ -1 +1 @@
-2023.4.2.1
+2023.4.2.2
diff --git a/src/AdventOfCode/Year2023/Day04.hs b/src/AdventOfCode/Year2023/Day04.hs
@@ -7,7 +7,7 @@ import AdventOfCode.TH (defaultMain, inputFilePath)
 import Control.Arrow ((>>>))
 import Data.IntMap.Strict ((!))
 import qualified Data.IntMap.Strict as IntMap
-import Data.List (intercalate, sortOn)
+import Data.List (sortOn)
 import Data.List.Extra (sumOn')
 import Data.Set (Set)
 import qualified Data.Set as Set
@@ -65,8 +65,7 @@ getExample = parseString (some scratchcard) example
 
 example :: String
 example =
-  intercalate
-    "\n"
+  unlines
     [ "Card 1: 41 48 83 86 17 | 83 86  6 31 17  9 48 53",
       "Card 2: 13 32 20 16 61 | 61 30 68 82 17 32 24 19",
       "Card 3:  1 21 53 59 44 | 69 82 63 72 16 21 14  1",