diff options
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 { |