diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-10-31 16:00:32 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-10-31 16:00:32 -0400 |
| commit | cf4c926f2e78bd315988c1aae063f6b4148a2fae (patch) | |
| tree | f7fdc76a1cc92c2c2836aff9ea10543679ab0457 /TypeInternals.hs | |
| parent | b2c28c1ac0700eadc8689cdfb6f065d5147108bd (diff) | |
more Wall cleaning
Diffstat (limited to 'TypeInternals.hs')
| -rw-r--r-- | TypeInternals.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/TypeInternals.hs b/TypeInternals.hs index f45be4760..46c92cb59 100644 --- a/TypeInternals.hs +++ b/TypeInternals.hs @@ -58,9 +58,9 @@ instance Read Key where k = join ":" $ drop 1 l backendName :: Key -> BackendName -backendName (Key (b,k)) = b +backendName (Key (b,_)) = b keyName :: Key -> KeyName -keyName (Key (b,k)) = k +keyName (Key (_,k)) = k -- this structure represents a key-value backend data Backend = Backend { |