mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-18 21:12:09 +03:00
11a454c2d6
This commit applies ormolu to the whole Haskell code base by running `make format`. For in-flight branches, simply merging changes from `main` will result in merge conflicts. To avoid this, update your branch using the following instructions. Replace `<format-commit>` by the hash of *this* commit. $ git checkout my-feature-branch $ git merge <format-commit>^ # and resolve conflicts normally $ make format $ git commit -a -m "reformat with ormolu" $ git merge -s ours post-ormolu https://github.com/hasura/graphql-engine-mono/pull/2404 GitOrigin-RevId: 75049f5c12f430c615eafb4c6b8e83e371e01c8e
23 lines
651 B
Haskell
23 lines
651 B
Haskell
{-# LANGUAGE FlexibleContexts #-}
|
|
|
|
module Main where
|
|
|
|
import qualified Control.Concurrent.STM.TMVar as TMVar
|
|
import Control.Monad (fail, void)
|
|
import qualified Network.WebSockets as WS
|
|
import qualified System.Directory as Dir
|
|
import Wrk.Server
|
|
|
|
main :: IO ()
|
|
main = do
|
|
void checkIfWrksPresent
|
|
lock <- TMVar.newEmptyTMVarIO
|
|
print "Running wrk websocket server or port 9160"
|
|
WS.runServer "0.0.0.0" 9160 $ benchWsApp lock
|
|
|
|
checkIfWrksPresent :: IO [FilePath]
|
|
checkIfWrksPresent = mapM findExec ["wrk", "wrk2"]
|
|
where
|
|
findExec e = Dir.findExecutable e >>= maybe (noExecErr e) return
|
|
noExecErr e = fail $ "Could not find executable " <> e
|