Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Bring code up-to-date with haskell-platform.

  • Loading branch information...
commit a0c67e6f95a6f28561bfdb10cb0ed856fe03ad61 1 parent 05a956d
@mihaimaruseac authored
Showing with 9 additions and 5 deletions.
  1. +1 −1  Maze/GUI.hs
  2. +6 −2 Maze/Maze.hs
  3. +1 −1  Maze/Plan.hs
  4. +1 −1  Maze/Types.hs
View
2  Maze/GUI.hs
@@ -1,7 +1,7 @@
module Maze.GUI (mazeGUI)
where
-import qualified Array as A
+import qualified Data.Array as A
import qualified Data.Vector as V
import Control.Monad.State (when, runState, foldM_)
View
8 Maze/Maze.hs
@@ -75,11 +75,15 @@ openCell m d (x, y) = do
e <- readArray m (y, x)
writeArray m (y, x) $ open e d
-{- Block a cell from one direction. -}
+{-
+Block a cell from one direction.
+-}
block :: Cell -> Cardinal -> Cell
block (C l) x = C $ filter (/= x) l
-{- Open a cell to one direction. -}
+{-
+Open a cell to one direction.
+-}
open :: Cell -> Cardinal -> Cell
open (C l) x = C $ if x `elem` l then l else x : l
View
2  Maze/Plan.hs
@@ -7,7 +7,7 @@ import Control.Monad.State (state, State, replicateM)
import Data.List (sortBy)
import System.Random (randomR, StdGen, random)
-import qualified Array as A
+import qualified Data.Array as A
import qualified Data.Vector as V
import qualified Data.Vector.Mutable as VM
View
2  Maze/Types.hs
@@ -1,7 +1,7 @@
module Maze.Types
where
-import Array (Array)
+import Data.Array (Array)
import Data.Vector (Vector)
{-
Please sign in to comment.
Something went wrong with that request. Please try again.