From ba3bd8227dc00a18cd5df2b70716d403a9758a41 Mon Sep 17 00:00:00 2001 From: Neil Smith Date: Mon, 9 Dec 2024 15:56:13 +0000 Subject: [PATCH] Fixed typo --- advent09/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/advent09/Main.hs b/advent09/Main.hs index 15f5b9e..6d85624 100644 --- a/advent09/Main.hs +++ b/advent09/Main.hs @@ -110,7 +110,7 @@ packFile fid disk | isNothing gap = disk | otherwise = prefix ++ [Used fSize fid, Free (gapSize - fSize)] ++ mid ++ [Free fSize] ++ suffix where - (orefixMid, ((Used fSize _) : suffix)) = span ((/= fid) . fileID) disk + (prefixMid, ((Used fSize _) : suffix)) = span ((/= fid) . fileID) disk gap = findFree fSize prefixMid (prefix, Free gapSize, mid) = fromJust gap -- 2.34.1