Show
Ignore:
Timestamp:
06/03/05 15:45:51 (3 years ago)
Author:
autrijus
svk:copy_cache_prev:
5943
Message:

* Fix ~{1=>2} to stringify to "1\t2\n" correctly.

Reported by broquaint.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Prim/Lifts.hs

    r2961 r4350  
    1111 
    1212op1Cast :: (Value n) => (n -> Val) -> Val -> Eval Val 
    13 op1Cast f val = fmap f (fromVal =<< fromVal' val) 
     13op1Cast f val = fmap f (fromVal val) 
    1414 
    1515op2Cast :: (Value n, Value m) => (n -> m -> Val) -> Val -> Val -> Eval Val