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

diff --git a/Remote/Helper/Chunked.hs b/Remote/Helper/Chunked.hs
index b68cbd511d5b4dec530e078be733a817643fbaa1..cff59e7312e54eb320842c1bddc64302dd40c274 100644 (file)
--- a/Remote/Helper/Chunked.hs
+++ b/Remote/Helper/Chunked.hs
@@ -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