added agent

[mc1516pa.git] / code / Sokoban.dcl

diff --git a/code/Sokoban.dcl b/code/Sokoban.dcl
index 30e9465..32b5e11 100644 (file)
--- a/code/Sokoban.dcl
+++ b/code/Sokoban.dcl
@@ -4,6 +4,6 @@ definition module Sokoban
        width :: Int,
        height :: Int,
        data :: [[SokobanTile]]}
-:: SokobanTile = Wall | Free | Box | Target
+:: SokobanTile = Wall | Free | Box | Target | Agent
 
 parse :: String *World -> (SokobanPuzzle, *World)