Commit 9baeb042 authored by Bas Lijnse's avatar Bas Lijnse

Gave up on trying to get the pty stuff working, simply displaying a static...

Gave up on trying to get the pty stuff working, simply displaying a static view for test programs now
parent 1f850978
......@@ -228,12 +228,15 @@ where
>>- maybe (throw "Cannot run the program. There is no executable yet")
(\executable ->
makeExecutable executable
>>- \_ -> callProcess () [] executable ["-port","8084"] (Just temporaryDirectory) Nothing
>>- \_ -> callProcess () [ViewAs view] executable ["-port","8084"] (Just temporaryDirectory) Nothing
>>* [OnAction ActionClose (always (return ()))] //Pause after command...
)
) @! ()
where
makeExecutable path = callProcess () [] "chmod" ["+x",path] Nothing Nothing
view _ = ATag [HrefAttr url,TargetAttr "_blank"] [Text "Running the test program at: ",Text url]
where
url = "http://localhost:8084"
:: SourceTreeQualityMetrics =
{ numFiles :: Int
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment