Drezil/pioneers
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Took out annotation (Haddock complained) and improved path type

Browse Source
This commit is contained in:
jbetzend 2014-04-18 16:07:26 +02:00
parent a2433638df
commit ee8c91237c
2 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Map/Graphics.hs
View File

@ -33,10 +33,7 @@ import Linear
import Map.Types import Map.Types
import Map.StaticMaps import Map.StaticMaps
type MapEntry = ( type MapEntry = (Float, TileType)
Float, -- ^ Height
TileType
)
type GraphicsMap = Array (Int, Int) MapEntry type GraphicsMap = Array (Int, Int) MapEntry

4
src/Map/Types.hs
View File

@ -22,10 +22,10 @@ instance Show PlayerInfo where
show (NoPlayer) = "not occupied" show (NoPlayer) = "not occupied"
show (Occupied i) = "occupied by player " ++ (show i) show (Occupied i) = "occupied by player " ++ (show i)
-- | Path info, is this node part of a path? -- | Path info, is this node part of a path and if so, where does it lead?
data PathInfo = NoPath data PathInfo = NoPath
| Path
| Border | Border
| Paths [(XCoord, YCoord)]
deriving (Show, Eq) deriving (Show, Eq)
-- | What resources can be harvested here? -- | What resources can be harvested here?