Tidying

diff --git a/advent21/Main.hs b/advent21/Main.hs
index de641720451546b29a6a347f7b8429034ce51bea..bdaf08a3397d7be34373845a4793561085f3334f 100644 (file)
--- a/advent21/Main.hs
+++ b/advent21/Main.hs
@@ -111,7 +111,8 @@ moveCostUsingCache cache level (a, b) =
   M.findWithDefault (maxBound :: Int) (CacheKey a b level) cache
 
 cheapestCostMove :: Button a => Cache -> Int -> (a, a) -> Int
-cheapestCostMove cache level (a, b) = minimum $ fmap (sequenceCostUsingCache cache level) stepChoices
+cheapestCostMove cache level (a, b) = 
+  minimum $ fmap (sequenceCostUsingCache cache level) stepChoices
   where stepChoices = moveBetween (a, b)
 
 buildCache :: Int -> Cache
@@ -121,7 +122,8 @@ extendCache :: Cache -> Int -> Cache
 extendCache cache level = foldl' go cache allPairs
   where
     allPairs = [(a, b) | a <- [R .. A], b <- [R .. A]]
-    go c (a, b) = M.insert (CacheKey a b level) (cheapestCostMove c (level - 1) (a, b)) c
+    go c (a, b) = M.insert  (CacheKey a b level) 
+                            (cheapestCostMove c (level - 1) (a, b)) c
 
 cache1 :: Cache
 cache1 = M.fromList $ fmap go allPairs