Fixed typo

diff --git a/advent09/Main.hs b/advent09/Main.hs
index 15f5b9e6a34e282791143581b1089737e970da15..6d85624cdacb89f68a0e3002fc1a952b4cbfe210 100644 (file)
--- 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