mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid unnecessary Maybe

Browse source
This commit is contained in:
Joey Hess 2012-11-30 00:55:59 -04:00
parent d56a5c9996
commit 020a25abe1
13 changed files with 112 additions and 128 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Remote/Helper/Chunked.hs
View file

@ -20,9 +20,8 @@ import qualified Control.Exception as E
type ChunkSize = Maybe Int64
{- Gets a remote's configured chunk size. -}
chunkSize :: Maybe RemoteConfig -> ChunkSize
chunkSize Nothing = Nothing
chunkSize (Just m) =
chunkSize :: RemoteConfig -> ChunkSize
chunkSize m =
case M.lookup "chunksize" m of
Nothing -> Nothing
Just v -> case readSize dataUnits v of