Move Network.ClientTypes into Common

chandlr.cabal

@@ -66,7 +66,7 @@ executable chandlr
                       Common.FrontEnd.Action
                       Network.Http
                       Network.Client
-                      Network.ClientTypes
+                      Common.Network.ClientTypes
                       Common.Network.CatalogPostType
                       Network.BoardType
                       Network.SiteType

src/Common

@@ -1 +1 @@
-Subproject commit 443f2e37adcef18a78c9c454594132c05495026d
+Subproject commit e332e4bb92e2d2d8ecedec6c25ee143ab5a0fced

src/Network/Client.hs

@@ -32,7 +32,7 @@ import qualified Network.Http as Http
 import Common.Network.CatalogPostType (CatalogPost)
 import Network.SiteType (Site)
 import qualified Common.FrontEnd.Action as A
-import Network.ClientTypes
+import Common.Network.ClientTypes
 
 
 update

src/Network/ClientTypes.hs

@@ -1,18 +0,0 @@
-module Network.ClientTypes where
-
-import qualified Network.Http as Http
-import GHCJS.DOM.Types (JSString)
-
-data Action a = Connect (Http.HttpActionResult a)
-
-data Interface a b = Interface
-    { passAction :: Action b -> a
-    , returnResult :: Http.HttpResult b -> a
-    }
-
-data Model = Model
-  { pgApiRoot :: JSString
-  , fetchCount :: Int
-  } deriving Eq
-
-