blob: 7428565e4e95d5a30aadf4d27125433cb85b31da (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
module Todo where
todo = todo -- bottom that means unimplemented function
withType :: v -> v -> v
withType = const
type Todo = ()
-- Bad idea: -xc backtrace shows it looking just like the other
-- bottom defined above.
-- crash = crash -- bottom used to crash to indicate error
|