diff options
author | Camil Staps | 2020-01-06 16:19:12 +0100 |
---|---|---|
committer | Camil Staps | 2020-01-06 16:19:12 +0100 |
commit | 940a3f261ea88094dd195ee159673f6abab54bc2 (patch) | |
tree | 0e8a15b0af41f90fddbb339d63961bd97d00dcfc | |
parent | Fix bug in fetching mask in inotify_check (diff) |
Cleanup example
-rw-r--r-- | test.icl | 8 | ||||
-rw-r--r-- | test.prj | 11 |
2 files changed, 11 insertions, 8 deletions
@@ -5,8 +5,6 @@ import Data.Either import Data.Maybe import Inotify -:: Void = Void - /** * test: Example usage of Inotify * @@ -17,7 +15,7 @@ import Inotify */ Start w -# (Just inot) = inotify_init Void +# (Just inot) = inotify_init () # (Right watch, inot) = inotify_add_watch (echo "file1") IN_ALL_EVENTS "file1" inot # (Right watch, inot) @@ -28,12 +26,12 @@ Start w # (inot, w) = inotify_loop_with_timeout (Just 10000) inot w = inotify_close inot where - echo :: String INEvent (Maybe String) Void *World -> *(Void, *World) + echo :: String INEvent (Maybe String) () *World -> *((), *World) echo fname ev f _ w # (io,w) = stdio w # io = io <<< "EVENT: ["<<< fname <<<"; "<<< ev <<<"; "<<< f <<<"]\n" # (ok,w) = fclose io w - = (Void, w) + = ((), w) instance <<< (Maybe a) | <<< a where @@ -1,11 +1,14 @@ -Version: 1.4 +Version: 1.5 Global ProjectRoot: . Target: StdEnv Exec: {Project}/test + ByteCode: CodeGen CheckStacks: False CheckIndexes: True + OptimiseABC: False + GenerateByteCode: False Application HeapSize: 2097152 StackSize: 512000 @@ -22,6 +25,7 @@ Global Memory: False MemoryMinimumHeapSize: 0 Time: False + Callgraph: False Stack: False Dynamics: False GenericFusion: False @@ -40,11 +44,12 @@ Global ResourceSource: GenerateDLL: False ExportedNames: + StripByteCode: True + KeepByteCodeSymbols: True + PrelinkByteCode: False Paths Path: {Project} Path: {Application}*lib*Platform - OtherPaths - Path: {Application}*lib*StdEnv Precompile: Postlink: MainModule |