Refactor part 1 to use part 2

2022/day05.hs

@@ -1,6 +1,7 @@
 import Data.List (transpose, delete)
 import Data.List.Split (chunksOf, splitOn)
 import Data.Char (isSpace)
+import Debug.Trace (traceShowId, traceShow)
 
 data Command = Move {amount :: Int, from :: Int, to :: Int} deriving Show