deserializeStringPairs = sequence . map deserializePair' . lines
where
deserializePair' :: String -> Maybe (String, String)
- deserializePair' s = case break (/= ' ') s of
+ deserializePair' s = case break (== ' ') s of
(a, ' ':b) -> Just (a, b)
_ -> Nothing