Import hs-plugins cvs

examples/typecase/000/Main.hs

@@ -0,0 +1,14 @@
+import AltData
+import Data.Char
+
+main = putStrLn f
+
+f = let v = toDyn (7 :: Int)
+    in typecase (v) [ 
+            _Bool     --> \(b::Bool)     -> show (not b)++" :: Bool", 
+            _Char     --> \(c::Char)     -> show (toUpper c)++" :: Char", 
+            _Int      --> \(i::Int)      -> show (-i)++" :: Int", 
+            _String   --> \(s::String)   -> show (reverse s)++" :: [Char]", 
+            _IntToInt --> \(f::Int->Int) -> show (f 7) ++":: Int -> Int"
+       ] ("couldn't find a typing")
+

examples/typecase/000/Makefile

@@ -0,0 +1,2 @@
+TOP=../../..
+include ../../eval.mk

examples/typecase/000/expected

@@ -0,0 +1 @@
+-7 :: Int