unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-11-14 16:28:34 +03:00
Code Issues Projects Releases Wiki Activity

Some debugging stuff

Browse Source
This commit is contained in:
Paul Chiusano 2015-02-10 20:44:23 -05:00
parent 8fd0495596
commit 8e02186a08
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
editor/src/Elmz/Json/Encoder.elm
View File

@ -9,7 +9,7 @@ import Set as S
type alias Encoder a = a -> J.Value
render : Encoder a -> a -> String
render ja a = J.encode 2 (ja a)
render ja a = J.encode 0 (ja a)
contramap : (a -> b) -> Encoder b -> Encoder a
contramap f j = j << f

6
node/src/Unison/Node/Server.hs
View File

@ -52,7 +52,11 @@ originOptions = do
S.addHeader "Access-Control-Allow-Headers" "Content-Type"
route :: ActionM () -> ActionM ()
route action = originPolicy *> action
route action = do
originPolicy
body <- S.body
liftIO (putStrLn ("request body\n" ++ show body))
action
server :: Int -> Node IO Reference T.Type E.Term -> IO ()
server port node = S.scotty port $ do