Fix build in master

disciplina.cabal

@@ -19,6 +19,7 @@ library
                      , Disciplina.Launcher
                      , Disciplina.Listeners
                      , Disciplina.Workers
+                     , Disciplina.Transport
   other-modules:
                        Disciplina.Accounts
                      , Disciplina.Accounts.Account
@@ -30,6 +31,8 @@ library
                      , Disciplina.Launcher.Runner
                      , Disciplina.Listeners.Listener
                      , Disciplina.Workers.Worker
+                     , Disciplina.Transport.TCP
+                     , Disciplina.Messages
   -- other-extensions:
   build-depends:       base >=4.9 && <4.10
                      , AVL
@@ -40,12 +43,14 @@ library
                      , cryptonite
                      , data-default
                      , exceptions
+                     , formatting
                      , hashable
                      , lens
                      , log-warper
                      , memory
                      , mtl
                      , network-transport
+                     , network-transport-tcp
                      , random
                      , stm
                      , time-units
@@ -80,7 +85,6 @@ library
                        ViewPatterns
 
   ghc-options:         -Wall
-                       -Werror
                        -fno-warn-orphans
 
 executable disciplina-witness

src/Disciplina/Messages.hs

@@ -5,7 +5,7 @@ import Universum
 import Data.Binary (Binary)
 import qualified Data.ByteString as BS
 import Data.Data (Data)
-import Node (Message, messageCode, formatMessage)
+import Node (Message, formatMessage, messageCode)
 import Node.Message.Binary (BinaryP, binaryPacking)
 
 

src/Disciplina/Transport.hs

@@ -0,0 +1,4 @@
+
+module Disciplina.Transport (module M) where
+
+import Disciplina.Transport.TCP as M

src/witness/Main.hs

@@ -11,16 +11,16 @@ import System.Wlog (logInfo, logWarning)
 import Disciplina.Launcher (BasicNodeParams (..), LoggingParams (..), bracketBasicNodeResources,
                             runBasicRealMode)
 import Disciplina.Listeners (witnessListeners)
+import Disciplina.Transport (bracketTransportTCP)
 import Disciplina.Workers (witnessWorkers)
-import Disciplina.Transport.TCP (bracketTransportTCP)
 import Params (WitnessParams (..), getWitnessParams)
 
 import qualified Data.ByteString as BS
 import qualified Data.ByteString.Char8 as B8
 import Mockable.Concurrent (fork)
 import qualified Network.Transport.TCP as TCP
-import Node (NodeAction(..), nodeId, noReceiveDelay, simpleNodeEndPoint,
-              node, defaultNodeEnvironment)
+import Node (NodeAction (..), defaultNodeEnvironment, noReceiveDelay, node, nodeId,
+             simpleNodeEndPoint)
 import Node.Message.Binary (binaryPacking)
 import System.IO (getChar)
 import System.Random (mkStdGen)

stack.yaml

@@ -104,4 +104,4 @@ ghc-options:
   cardano-sl-networking: -fno-warn-redundant-constraints
 
 nix:
-    packages: [rocksdb]
+    packages: [rocksdb, haskellPackages.cpphs]