System.Game -> Game

h2048.cabal

@@ -30,14 +30,14 @@ flag vty
 
 library
   hs-source-dirs:      src
-  exposed-modules:     System.Game.H2048.Core,
-                       System.Game.H2048.Utils
+  exposed-modules:     Game.H2048.Core,
+                       Game.H2048.Utils
   if flag(exe)
-    exposed-modules:   System.Game.H2048.UI.Simple
+    exposed-modules:   Game.H2048.UI.Simple
 
   if flag(exe) && flag(vty)
     exposed-modules:
-                       System.Game.H2048.UI.Vty
+                       Game.H2048.UI.Vty
 
   build-depends:       base >= 4 && < 5,
                        transformers >= 0 && < 1,

src/System/Game/H2048/Core.hs → src/Game/H2048/Core.hs

@@ -1,5 +1,5 @@
 {-|
-  Module      : System.Game.H2048.Core
+  Module      : Game.H2048.Core
   Copyright   : (c) 2014 Javran Cheng
   License     : MIT
   Maintainer  : [email protected]
@@ -21,7 +21,7 @@ The routine for using this library would be:
 4. examine if the player wins / loses / is still alive using `gameState`.
 
 -}
-module System.Game.H2048.Core
+module Game.H2048.Core
     ( Board
     , Line
     , Dir (..)
@@ -44,7 +44,7 @@ import Control.Monad.Random
 import Data.List
 import Data.Maybe
 
-import System.Game.H2048.Utils
+import Game.H2048.Utils
 
 -- | represent a 4x4 board for Game 2048
 --   each element should be either zero or 2^i

src/System/Game/H2048/UI/Simple.hs → src/Game/H2048/UI/Simple.hs

@@ -1,5 +1,5 @@
 {-|
-  Module      : System.Game.H2048.UI.Simple
+  Module      : Game.H2048.UI.Simple
   Copyright   : (c) 2014 Javran Cheng
   License     : MIT
   Maintainer  : [email protected]
@@ -9,14 +9,14 @@
 A simple CLI implemention of Game 2048
 
 -}
-module System.Game.H2048.UI.Simple
+module Game.H2048.UI.Simple
     ( drawBoard
     , playGame
     , mainSimple
     )
 where
 
-import System.Game.H2048.Core
+import Game.H2048.Core
 
 import Data.List
 import Text.Printf

src/System/Game/H2048/UI/Vty.hs → src/Game/H2048/UI/Vty.hs

@@ -1,5 +1,5 @@
 {-|
-  Module      : System.Game.H2048.UI.Vty
+  Module      : Game.H2048.UI.Vty
   Copyright   : (c) 2014 Javran Cheng
   License     : MIT
   Maintainer  : [email protected]
@@ -10,7 +10,7 @@ A CLI version of Game 2048 implemented using vty-ui
 
 -}
 {-# LANGUAGE OverloadedStrings #-}
-module System.Game.H2048.UI.Vty
+module Game.H2048.UI.Vty
     ( PlayState (..)
     , mainVty
     )
@@ -25,7 +25,7 @@ import Data.Foldable (foldMap)
 import Data.IORef
 import Data.Maybe
 
-import System.Game.H2048.Core
+import Game.H2048.Core
 
 -- | indicate the status of a playing session
 data PlayState g = PlayState

src/System/Game/H2048/Utils.hs → src/Game/H2048/Utils.hs

@@ -1,5 +1,5 @@
 {-|
-  Module      : System.Game.H2048.Utils
+  Module      : Game.H2048.Utils
   Copyright   : (c) 2014 Javran Cheng
   License     : MIT
   Maintainer  : [email protected]
@@ -9,7 +9,7 @@
 helper functions used when implementing game logic
 
 -}
-module System.Game.H2048.Utils
+module Game.H2048.Utils
     ( inPos
     , universe
     )

src/MainSimple.hs

@@ -1,7 +1,7 @@
 module Main
 where
 
-import System.Game.H2048.UI.Simple
+import Game.H2048.UI.Simple
 
 main :: IO ()
 main = mainSimple

src/MainVty.hs

@@ -1,7 +1,7 @@
 module Main
 where
 
-import System.Game.H2048.UI.Vty
+import Game.H2048.UI.Vty
 
 main :: IO ()
 main = mainVty

src/Test.hs

@@ -5,7 +5,7 @@ import Control.Monad
 import Control.Monad.Writer
 import System.Exit
 
-import System.Game.H2048.Core
+import Game.H2048.Core
 
 -- | the expected behavior of 'compactLine'
 compactLineTestcases :: [ ((Line, Int) , Line) ]