aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCamil Staps2020-01-06 16:19:12 +0100
committerCamil Staps2020-01-06 16:19:12 +0100
commit940a3f261ea88094dd195ee159673f6abab54bc2 (patch)
tree0e8a15b0af41f90fddbb339d63961bd97d00dcfc
parentFix bug in fetching mask in inotify_check (diff)
Cleanup example
-rw-r--r--test.icl8
-rw-r--r--test.prj11
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