diff --git a/hanafuda-webapp.cabal b/hanafuda-webapp.cabal index e23e969..83ebb14 100644 --- a/hanafuda-webapp.cabal +++ b/hanafuda-webapp.cabal @@ -39,6 +39,7 @@ executable hanafudapi , http-types , aeson , mtl + , saltine , text , vector , wai diff --git a/src/Main.hs b/src/Main.hs index 2b91341..c99dd25 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -8,6 +8,7 @@ import qualified Config (listenPort) import Control.Concurrent (newMVar, modifyMVar) import Control.Exception (finally) import Control.Monad.Reader (ReaderT(..), asks) +import Crypto.Saltine (sodiumInit) import qualified Hanafuda.Message as Message (FromClient(..)) import Messaging (broadcast, relay) import Network.HTTP.Types.Status (badRequest400) @@ -36,6 +37,7 @@ serverApp onEnter onExit = do main :: IO () main = do + sodiumInit app <- serverApp Automaton.start exit run Config.listenPort $ websocketsOr defaultConnectionOptions app blockNonWS where