shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Add missing files.

--- /dev/null

+++ b/tests/BindPat.hs

@@ -1,0 +1,12 @@

+module BindPat(main) where

+import Prelude

+

+foo :: [Int] -> [Int]

+foo xs = do

+  1 <- xs

+  pure 2

+

+main :: IO ()

+main = do

+  print $ foo [1,1]

+  print $ foo [2]

--- /dev/null

+++ b/tests/BindPat.ref

@@ -1,0 +1,2 @@

+[2,2]

+[]

-- 

⑨