From 7cef684e71b64f00b41da66ba7bc581568d78f51 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sun, 6 Aug 2017 22:17:54 +1000
Subject: Factored out some trivial bits into Misc, made coding style more
 consistent

---
 src/sokoban.adb | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'src/sokoban.adb')

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...";
 
-- 
cgit