Verified Commit 940a3f26 authored by Camil Staps's avatar Camil Staps 🙂

Cleanup example

parent 0af5b338
......@@ -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
......
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
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment