Skip to content
Snippets Groups Projects
Commit 785fd89b authored by Jens Nolte's avatar Jens Nolte
Browse files

Move modules to Quasar.Network namespace

parent 898211c5
No related branches found
No related tags found
No related merge requests found
Pipeline #2294 passed
......@@ -79,10 +79,10 @@ common shared-executable-properties
library
import: shared-properties
exposed-modules:
Network.Rpc
Network.Rpc.Connection
Network.Rpc.Multiplexer
Network.Rpc.SocketLocation
Quasar.Network
Quasar.Network.Connection
Quasar.Network.Multiplexer
Quasar.Network.SocketLocation
hs-source-dirs:
src
......@@ -95,7 +95,7 @@ test-suite quasar-network-test
QuickCheck
main-is: Spec.hs
other-modules:
Network.RpcSpec
Network.Rpc.MultiplexerSpec
Quasar.NetworkSpec
Quasar.Network.MultiplexerSpec
hs-source-dirs:
test
module Network.Rpc where
module Quasar.Network where
import Control.Applicative (liftA2)
import Control.Concurrent (forkFinally)
......@@ -16,8 +16,8 @@ import Data.Maybe (isNothing)
import GHC.Generics
import Language.Haskell.TH hiding (interruptible)
import Language.Haskell.TH.Syntax
import Network.Rpc.Multiplexer
import Network.Rpc.Connection
import Quasar.Network.Multiplexer
import Quasar.Network.Connection
import qualified Network.Socket as Socket
import Prelude
import System.Posix.Files (getFileStatus, isSocket, fileExist, removeLink)
......
module Network.Rpc.Connection where
module Quasar.Network.Connection where
import Control.Concurrent (threadDelay)
import Control.Concurrent.Async (Async, async, cancel, link, waitCatch, withAsync)
......
module Network.Rpc.Multiplexer (
module Quasar.Network.Multiplexer (
ChannelId,
MessageId,
MessageLength,
......@@ -38,7 +38,7 @@ import qualified Data.ByteString.Lazy as BSL
import qualified Data.HashMap.Strict as HM
import Data.Tuple (swap)
import Data.Word
import Network.Rpc.Connection
import Quasar.Network.Connection
import Prelude
import GHC.Generics
import System.IO (hPutStrLn, stderr)
......
module Network.Rpc.SocketLocation where
module Quasar.Network.SocketLocation where
import Control.Exception (handle)
import Prelude
......
module Network.Rpc.MultiplexerSpec where
module Quasar.Network.MultiplexerSpec where
import Control.Concurrent (threadDelay)
import Control.Concurrent.Async (concurrently_)
......@@ -7,8 +7,8 @@ import Control.Exception (bracket, mask_)
import Control.Monad (forever, void, unless)
import qualified Data.ByteString.Lazy as BSL
import Prelude
import Network.Rpc.Multiplexer
import Network.Rpc.Connection
import Quasar.Network.Multiplexer
import Quasar.Network.Connection
import Network.Socket
import Test.Hspec
......
......@@ -8,12 +8,12 @@
-- Print generated rpc code during build
{-# OPTIONS_GHC -ddump-splices #-}
module Network.RpcSpec where
module Quasar.NetworkSpec where
import Control.Concurrent.MVar
import Control.Monad.IO.Class (liftIO)
import Prelude
import Network.Rpc
import Quasar.Network
import Test.Hspec
import Test.QuickCheck
import Test.QuickCheck.Monadic
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment