Remove typecase test
This commit is contained in:
parent
daf5624743
commit
6045e47850
@ -1,14 +0,0 @@
|
|||||||
import AltData.Dynamic
|
|
||||||
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")
|
|
||||||
|
|
@ -1,2 +0,0 @@
|
|||||||
TOP=../../..
|
|
||||||
include ../../eval.mk
|
|
@ -1 +0,0 @@
|
|||||||
-7 :: Int
|
|
Loading…
x
Reference in New Issue
Block a user