Strings for IO driver errors
This commit is contained in:
@@ -74,7 +74,7 @@ succ = y (self :
|
||||
t))
|
||||
|
||||
ok = value rest : pair true (pair value rest)
|
||||
err = code rest : pair false (pair code rest)
|
||||
err = msg rest : pair false (pair msg rest)
|
||||
|
||||
matchResult = (errCase okCase result :
|
||||
matchPair
|
||||
|
||||
Reference in New Issue
Block a user