Update CLI solver to PS 0.11

sharkdp · May 13, 2017 · a838f05 · a838f05
1 parent 61df797
commit a838f05
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/cli/cli.purs b/cli/cli.purs
@@ -5,7 +5,7 @@ import Control.Monad.Eff (Eff)
 import Control.Monad.Eff.Console (CONSOLE, log)
 import Data.Array as A
 import Data.List (List)
-import Data.Traversable (for)
+import Data.Traversable (for, for_)
 
 import Types (Cube(..))
 import Solver (solve)
@@ -35,6 +35,6 @@ main = void do
         log $ "  Initial: " <> showList2 (map (map ttyColor) level.initial)
         log $ "  Target:  " <> showList2 (map (map ttyColor) level.target)
         log $ "  Solutions: "
-        for solutions $ \sol ->
+        for_ solutions $ \sol ->
             log $ "    " <> showList sol
         log ""