From a067356625105f50978443d3b0a0a5d8f6391184 Mon Sep 17 00:00:00 2001
From: Mart Lubbers
Date: Fri, 24 Apr 2015 14:35:17 +0200
Subject: rare shit

---
 fp2/week2/mart/EchoMonad.icl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 fp2/week2/mart/EchoMonad.icl

(limited to 'fp2/week2/mart/EchoMonad.icl')

diff --git a/fp2/week2/mart/EchoMonad.icl b/fp2/week2/mart/EchoMonad.icl
new file mode 100644
index 0000000..3bcab11
--- /dev/null
+++ b/fp2/week2/mart/EchoMonad.icl
@@ -0,0 +1,14 @@
+module EchoMonad
+
+import StdString		// expliciete import uit StdEnv om nameclash met StdFunc / StdIOMonad te voorkomen
+import StdIOMonad
+import StdMaybeMonad
+
+Start :: *World -> (Void,*World)
+Start world = doIO echo world
+
+echo :: IO Void
+echo = read >>= \regel ->
+       if (regel == "\n")
+          (return Void) 
+          (write regel >>= \_ -> echo)
-- 
cgit v1.2.3