Fixes solve by fixing arg name

2018-06-27 15:27:34 +05:30 · 2018-06-27 15:27:34 +05:30 · 0ef77341a1
parent 33c706e71e
commit 0ef77341a1
1 changed files with 5 additions and 5 deletions
--- a/src/Sudoku.hs
+++ b/src/Sudoku.hs
@ -113,11 +113,11 @@ nextGrids grid =
 solve :: Grid -> Maybe Grid
 solve grid = pruneGrid grid >>= solve'
  where
-    solve' grid'
-      | isGridInvalid grid = Nothing
-      | isGridFilled grid' = Just grid'
-      | otherwise          =
-          let (grid1, grid2) = nextGrids grid'
+    solve' g
+      | isGridInvalid g = Nothing
+      | isGridFilled g  = Just g
+      | otherwise       =
+          let (grid1, grid2) = nextGrids g
          in solve grid1 <|> solve grid2

 main :: IO ()