shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Add missing files

--- /dev/null

+++ b/tests/ParseInd.hs

@@ -1,0 +1,19 @@

+module ParseInd(main) where

+import Prelude

+

+-- The parse error generateing a '}'

+

+main :: IO ()

+main = do

+  print (foo 1)

+  print (bar True)

+  baz 1

+

+foo :: Int -> Int

+foo a = let x = a+1 in x

+

+bar :: Bool -> Bool

+bar x = not (case x of True -> False; False -> True)

+

+baz :: Int -> IO ()

+baz i = (do print i) >> (do print (i+1))

--- /dev/null

+++ b/tests/ParseInd.ref

@@ -1,0 +1,4 @@

+2

+True

+1

+2

-- 

⑨