-- `cleanText` given text isNonAscii replace it with Text value that is ASCII

-- So, then, we cleanify (that's a word, now) the AllianceMap thusly:

-- ... but first: I want to see what works and what doesn't UTF8-wise

whatify :: AllianceMap -> IO AllianceMap
whatify am = Map.fromList <$> mapM (sequence . second ally) (Map.toList am)
whatify :: AllianceMap -> IO AllianceMap
whatify am = Map.fromList <$> mapM (sequence . second ally) (Map.toList am)
whatify am = Map.fromList <$> mapM (sequence . second ally) (Map.toList am)