Commit efabcfbd authored by André Pacak's avatar André Pacak

add unused code that should be there

parent e7e43255
......@@ -257,6 +257,8 @@ checkType p@(InR t _) = do
checkType t
checkType p@(Case e n1 t1 n2 t2 _) = do
ty <- requiredType p
ety <- inferType e
(ty1, ty2) <- matchSum ety (show e)
checkType t1
checkType t2
checkType t = do
......
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