Changeset 4179 for src/Pugs/Types

Show
Ignore:
Timestamp:
05/31/05 01:43:41 (4 years ago)
Author:
autrijus
svk:copy_cache_prev:
5706
Message:

* remove unused variable bindings in Pugs.Types.Scalar.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Types/Scalar.hs

    r4173 r4179  
    2121    scalar_iType = const $ mkType "Scalar::Lazy" 
    2222    scalar_fetch = return . maybe undef id 
    23     scalar_store d s = retConstError $ VStr $ show d 
     23    scalar_store d _ = retConstError $ VStr $ show d 
    2424    scalar_const = const Nothing 
    2525 
    … …  
    3838    scalar_fetch (VRef ref) = readRef ref 
    3939    scalar_fetch v = return v 
    40     scalar_store d s = retConstError d 
     40    scalar_store d _ = retConstError d 
    4141    scalar_const = Just 
    4242