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:
Joey Hess 2020-01-14 13:05:38 -04:00
parent 963239da5c
commit 8f142a9279
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -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