Searched refs:enumDiff (Results 1 – 1 of 1) sorted by relevance
252 enumDiff :: (Enum a) => a -> a -> Int253 enumDiff a b = (fromEnum a) - (fromEnum b) function257 getMilZoneHours c | c <= 'I' = Just $ 1 + enumDiff c 'A'259 getMilZoneHours c | c <= 'M' = Just $ 10 + enumDiff c 'K'260 getMilZoneHours c | c <= 'Y' = Just $ (enumDiff 'N' c) - 1