SunRed/myriad
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Shorten two lines of code to one

Browse source
This commit is contained in:
1computer1 2019-07-09 05:25:19 -04:00
parent 93a4378475
commit edab8835ad
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Myriad/Server.hs
View file

@ -45,8 +45,7 @@ serverT = handleLanguages :<|> handleEval
handleEval :: EvalRequest -> MyriadT m EvalResponse handleEval :: EvalRequest -> MyriadT m EvalResponse
handleEval EvalRequest { language, code } = do handleEval EvalRequest { language, code } = do
logInfoN $ mconcat ["POST /eval"] logInfoN $ mconcat ["POST /eval"]
env <- ask MyriadConfig { languages } <- asks config
let MyriadConfig { languages } = config env
case find (\x -> name x == language) languages of case find (\x -> name x == language) languages of
Nothing -> throwError $ err404 { errBody = "Language " <> cvs language <> " was not found" } Nothing -> throwError $ err404 { errBody = "Language " <> cvs language <> " was not found" }
Just cfg -> do Just cfg -> do