cabal build support

icfp2015.cabal

@@ -1,10 +1,10 @@
--- Initial icfp2015.cabal generated by cabal init.  For further 
+-- Initial icfp2015.cabal generated by cabal init.  For further
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 -- The name of the package.
 name:                icfp2015
 
--- The package version.  See the Haskell package versioning policy (PVP) 
+-- The package version.  See the Haskell package versioning policy (PVP)
 -- for standards guiding when and how versions should be incremented.
 -- http://www.haskell.org/haskellwiki/Package_versioning_policy
 -- PVP summary:      +-+------- breaking API changes
@@ -51,20 +51,20 @@ cabal-version:       >=1.10
 
 executable icfp2015
   -- .hs or .lhs file containing the Main module.
-  main-is:             Main.hs
+  main-is:             Main0.hs
   
   -- Modules included in this executable, other than Main.
-  -- other-modules:       
+  other-modules:       Datatypes, Datatypes.Board, Datatypes.Cell, Datatypes.Game, Datatypes.Unit
   
   -- LANGUAGE extensions used by modules in this package.
   other-extensions:    OverloadedStrings, DeriveGeneric, DeriveDataTypeable
-  
+ 
   -- Other library packages from which modules are imported.
-  build-depends:       base >=4.7 && <4.8, hashable >=1.2 && <1.3, containers >=0.5 && <0.6, QuickCheck >=2.7 && <2.8, bytestring >=0.10 && <0.11
-  
+  build-depends:       base >=4.7 && <4.8, hashable >=1.2 && <1.3, containers >=0.5 && <0.6, QuickCheck >=2.7 && <2.8, bytestring >=0.10 && <0.11, aeson >=0.8 && <0.9, json >=0.9 && <0.10
+
   -- Directories containing source files.
-  -- hs-source-dirs:      
-  
+  hs-source-dirs:       src
+
   -- Base language which the package is written in.
   default-language:    Haskell2010
-  
+

src/Datatypes.hs

@@ -5,7 +5,7 @@ import qualified Data.List as List
 import Data.Set (Set)
 import qualified Data.Set as Set
 
-import Datatypes.Board (Board)
-import Datatypes.Cell (Cell)
-import Datatypes.Game (Game)
-import Datatypes.Unit (Unit)
+import Datatypes.Board (Board(..))
+import Datatypes.Cell (Cell(..))
+import Datatypes.Game (Game(..))
+import Datatypes.Unit (Unit(..))

src/JSONDeser.hs

@@ -66,7 +66,7 @@ cellConvVM :: Cell -> DT.Cell
 cellConvVM (Cell x y) = (x,y) 
 
 unitConvVM :: Unit -> DT.Unit
-unitConvVM unit = DT.Unit setcell (cellConvVM (pivot unit)) 
+unitConvVM unit = DT.Unit (cellConvVM (pivot unit)) setcell 
   where
     setcell = Set.fromList (map cellConvVM (members unit)) 
             

src/Main0.hs

@@ -9,6 +9,7 @@ import Datatypes
 import Opt
 import JSONDeser
 import Strategy0
+import VM (Command, cmdToString)
 
 data JSONSer = JSONSer { problemId :: Int,
                          seed :: Int,