strategy1 fixes

src/Main1.hs

@@ -12,7 +12,8 @@ import Datatypes
 import Opt
 import JSONDeser
 import Strategy1
-import VM (Command, cmdToString)
+import VM (cmdToString)
+import Datatypes.Game (Command(..))
 
 data JSONSer = JSONSer { problemId :: Int,
                          seed :: Int,

src/PowerPhrases.hs

@@ -2,6 +2,7 @@ module PowerPhrases where
 
 import Data.Maybe
 import VM
+import Datatypes.Game (Command(..))
 
 
 charToCommand :: Char -> Maybe Command

src/Strategy1.hs

@@ -2,6 +2,7 @@ module Strategy1 where
 
 import Datatypes
 import VM
+import Datatypes.Game (Command(..))
 
     
 strat1 :: Game -> ([Command],Int)