[server] Move server-related files into their own subdirectory

server/Main.hs

@@ -5,12 +5,12 @@ module Main where
 import           Control.Concurrent.MVar
 import qualified Network.WebSockets                     as WS
 
-import           Forest.Broadcast
 import           Forest.Node
 import           Forest.Server
-import           Forest.TreeModule.Const
+import           Forest.Server.Broadcast
-import           Forest.TreeModule.Fork
+import           Forest.Server.TreeModule.Const
-import           Forest.TreeModule.SharedEditing
+import           Forest.Server.TreeModule.Fork
+import           Forest.Server.TreeModule.SharedEditing
 
 pingDelay :: Int
 pingDelay = 10

src/Forest/Server.hs

@@ -12,7 +12,7 @@ import qualified Network.WebSockets      as WS
 
 import           Forest.Api
 import           Forest.Node
-import           Forest.TreeModule
+import           Forest.Server.TreeModule
 import           Forest.Util
 
 {- Thread that sends updates to the client -}

src/Forest/Server/Broadcast.hs

@@ -6,7 +6,7 @@
 -- All functions included in this module should be threadsafe. Be sure to read
 -- the warning on the 'broadcast' function.
 
-module Forest.Broadcast
+module Forest.Server.Broadcast
   ( Broadcaster
   , Listener
   , newBroadcaster

src/Forest/Server/TreeModule.hs

@@ -1,6 +1,6 @@
 {-# LANGUAGE MultiParamTypeClasses #-}
 
-module Forest.TreeModule
+module Forest.Server.TreeModule
   ( TreeModule(..)
   , ModuleConstructor
   ) where

src/Forest/Server/TreeModule/Animate.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE OverloadedStrings     #-}
 
-module Forest.TreeModule.Animate
+module Forest.Server.TreeModule.Animate
   ( AnimateModule
   , animateModule
   ) where
@@ -9,7 +9,7 @@ module Forest.TreeModule.Animate
 import           Control.Concurrent
 
 import           Forest.Node
-import           Forest.TreeModule
+import           Forest.Server.TreeModule
 import           Forest.Util
 
 data AnimateModule r = AnimateModule

src/Forest/Server/TreeModule/Const.hs

@@ -1,14 +1,14 @@
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE OverloadedStrings     #-}
 
-module Forest.TreeModule.Const
+module Forest.Server.TreeModule.Const
   ( ConstModule
   , constModule
   , projectDescriptionNode
   ) where
 
 import           Forest.Node
-import           Forest.TreeModule
+import           Forest.Server.TreeModule
 
 data ConstModule r = ConstModule
 

src/Forest/Server/TreeModule/Fork.hs

@@ -3,7 +3,7 @@
 {-# LANGUAGE MultiParamTypeClasses     #-}
 {-# LANGUAGE RankNTypes                #-}
 
-module Forest.TreeModule.Fork
+module Forest.Server.TreeModule.Fork
   ( ForkModule
   , ProngConstructor(..)
   , forkModule
@@ -16,7 +16,7 @@ import qualified Data.Text                as T
 
 import           Forest.Node
 import qualified Forest.OrderedMap        as OMap
-import           Forest.TreeModule
+import           Forest.Server.TreeModule
 
 data Prong = forall r a . TreeModule a r => Prong (a r)
 

src/Forest/Server/TreeModule/SharedEditing.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE FlexibleInstances     #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
 
-module Forest.TreeModule.SharedEditing
+module Forest.Server.TreeModule.SharedEditing
   ( SharedEditingModule
   , sharedEditingModule
   ) where
@@ -9,9 +9,9 @@ module Forest.TreeModule.SharedEditing
 import           Control.Concurrent.MVar
 import           Control.Monad
 
-import           Forest.Broadcast
 import           Forest.Node
-import           Forest.TreeModule
+import           Forest.Server.Broadcast
+import           Forest.Server.TreeModule
 import           Forest.Util
 
 data SharedEditingModule r = SharedEditingModule