pinosaur
/
ekitaihs.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added some samples
[ekitaihs.git]
/
Sim.hs
diff --git
a/Sim.hs
b/Sim.hs
index
5769c47
..
97456fc
100644
(file)
--- a/
Sim.hs
+++ b/
Sim.hs
@@
-116,7
+116,7
@@
chunkToChar :: ChunkData -> Char
chunkToChar c =
case chunkType c of
Water -> '~'
chunkToChar c =
case chunkType c of
Water -> '~'
- Air -> '
.
'
+ Air -> '
'
Wall -> '#'
_ -> '?'
Wall -> '#'
_ -> '?'