hslint
This commit is contained in:
parent
e3f1568e0f
commit
d64132a43a
16 changed files with 25 additions and 29 deletions
|
@ -99,7 +99,7 @@ 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
|
||||
oldSchoolUnits = zipWith (curry mingle) storageUnits memoryUnits
|
||||
where
|
||||
mingle (Unit _ a n, Unit s' _ _) = Unit s' a n
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue