diff options
Diffstat (limited to 'src/sokoban.adb')
| -rw-r--r-- | src/sokoban.adb | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/sokoban.adb b/src/sokoban.adb index e70d1d6..de5601d 100644 --- a/src/sokoban.adb +++ b/src/sokoban.adb @@ -9,8 +9,7 @@ with Things, Moves, Pathfinding, - Ada.Command_Line, - Ada.Directories, + Misc, Ada.Text_IO, Ada.Strings.Fixed, Ada.Strings.Maps; @@ -41,9 +40,7 @@ package body Sokoban is type Game_State is (Loading, Play, Complete); - Origin : String := Ada.Directories.Containing_Directory - (Ada.Directories.Full_Name (Ada.Command_Line.Command_Name)); - Level_Dir : String := Origin & "/../share/sokoban/level"; + Level_Dir : String := Misc.Origin & "/../share/sokoban/level"; Loading_Message : String := "Loading..."; |