This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {-# LANGUAGE CPP #-} | |
| module TestServer where | |
| #ifndef ghcjs_HOST_OS | |
| import Network.Wai.Handler.Warp | |
| import Network.Wai.Middleware.Static | |
| import Network.WebSockets (defaultConnectionOptions) | |
| import Language.Javascript.JSaddle.Run (syncPoint) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/bin/sh | |
| # run it instead of cabal | |
| find . -maxdepth 2 -name package.yaml -exec hpack {} \; | |
| exec cabal "$@" |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #include <stdlib.h> | |
| #include <string.h> | |
| #include <assert.h> | |
| #include "list.h" | |
| void list_new(list *list, int elementSize, freeFunction freeFn) | |
| { | |
| assert(elementSize > 0); | |
| list->logicalLength = 0; |
NewerOlder