Add fences problem

2018-07-11 08:59:13 -07:00
parent c6c7b95871
commit 444acff526
1 changed files with 2 additions and 2 deletions
--- a/dotfiles/lib/bin/fences_problem.hs
+++ b/dotfiles/lib/bin/fences_problem.hs
@@ -51,8 +51,8 @@ processFenceHeight index allHeights@(height:heights) problemState =
           then stackPush theStack (index, height)
           else theStack
  in case lastHeight of
-       h | lastHeight < height -> handleTaller
-       h | lastHeight > height -> handleShorter
+       _ | lastHeight < height -> handleTaller
+       _ | lastHeight > height -> handleShorter
       _ -> processFenceHeight (index + 1) heights problemState

 processFences fences =