Fix example

jackohughes · Mar 10, 2019 · 7d10e2e · 7d10e2e
1 parent fc13e47
commit 7d10e2e
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/examples/FilesBoxed.gr b/examples/FilesBoxed.gr
@@ -2,11 +2,11 @@ import File
 
 main : String <IO>
 main =
-    let [mh]    = [openFile "LICENSE" ReadMode] in
+    let [mh]    = [openHandle ReadMode "LICENSE"] in
     let h       <- mh;
         h'      <- mh;
-        ()      <- hClose h';
-        (h, c)  <- hGetChar h;
-        (h, c') <- hGetChar h;
-        ()      <- hClose h
+        ()      <- closeHandle h';
+        (h, c)  <- readChar h;
+        (h, c') <- readChar h;
+        ()      <- closeHandle h
     in pure ((showChar c) `stringAppend` (showChar c'))