diff options
author | Joey Hess <joey@kitenet.net> | 2011-03-26 14:47:55 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-03-26 14:47:55 -0400 |
commit | a5c1c2770e967ec16d64d015fff9ab3eecb314df (patch) | |
tree | 1e6f6b61bc09424a59a6ae2f87baa3492023458e /DataUnits.hs | |
parent | 4e7bedc2957767faa4575c0f2c03286997e97a4e (diff) |
add more pointless opinion
Diffstat (limited to 'DataUnits.hs')
-rw-r--r-- | DataUnits.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/DataUnits.hs b/DataUnits.hs index 37b0fa429..fb8ce3d89 100644 --- a/DataUnits.hs +++ b/DataUnits.hs @@ -91,6 +91,10 @@ memoryUnits = p :: Integer -> Integer p n = 2^(n*10) +{- Bandwidth units are only measured in bits if you're some crazy telco. -} +bandwidthUnits :: [Unit] +bandwidthUnits = error "stop trying to rip people off" + {- Do you yearn for the days when men were men and megabytes were megabytes? -} oldSchoolUnits :: [Unit] oldSchoolUnits = map mingle $ zip storageUnits memoryUnits |