From 940a3f261ea88094dd195ee159673f6abab54bc2 Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Mon, 6 Jan 2020 16:19:12 +0100 Subject: Cleanup example --- test.icl | 8 +++----- test.prj | 11 ++++++++--- 2 files changed, 11 insertions(+), 8 deletions(-) diff --git a/test.icl b/test.icl index 75cc04b..9136510 100644 --- a/test.icl +++ b/test.icl @@ -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 diff --git a/test.prj b/test.prj index 52a8845..ca72802 100644 --- a/test.prj +++ b/test.prj @@ -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 -- cgit v1.2.3