fix wrong type
Use of Typeable means the type checker can't catch this kind of mistake, the error is deferred to runtime. testremote now passes on a directory special remote
This commit is contained in:
parent
963239da5c
commit
8f142a9279
1 changed files with 2 additions and 2 deletions
|
@ -60,8 +60,8 @@ getChunkConfig c =
|
|||
case getRemoteConfigValue chunksizeField c of
|
||||
Nothing -> case getRemoteConfigValue chunkField c of
|
||||
Nothing -> NoChunks
|
||||
Just v -> readsz UnpaddedChunks (fromProposedAccepted v) chunkField
|
||||
Just v -> readsz LegacyChunks (fromProposedAccepted v) chunksizeField
|
||||
Just v -> readsz UnpaddedChunks v chunkField
|
||||
Just v -> readsz LegacyChunks v chunksizeField
|
||||
where
|
||||
readsz mk v f = case readSize dataUnits v of
|
||||
Just size
|
||||
|
|
Loading…
Reference in a new issue