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

tweak

Browse source
This commit is contained in:
Joey Hess 2011-03-26 15:10:12 -04:00
parent fd8cba164c
commit 849c183f23
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
DataUnits.hs
View file

@ -11,6 +11,7 @@ module DataUnits (
memoryUnits, memoryUnits,
bandwidthUnits, bandwidthUnits,
oldSchoolUnits, oldSchoolUnits,
roughSize, roughSize,
compareSizes, compareSizes,
readSize readSize
@ -142,11 +143,10 @@ readSize units input
where where
(number, rest) = head parsednum (number, rest) = head parsednum
multiplier = head $ parsedunit multiplier = head $ parsedunit
unitname = takeWhile isAlpha $ dropWhile isSpace rest
parsednum = reads input :: [(Double, String)] parsednum = reads input :: [(Double, String)]
parsedunit = lookupUnit units unit parsedunit = lookupUnit units unitname
unit = takeWhile isAlpha $ dropWhile isSpace rest
lookupUnit _ [] = [1] -- no unit given, assume bytes lookupUnit _ [] = [1] -- no unit given, assume bytes
lookupUnit [] _ = [] lookupUnit [] _ = []