stripCsv :: ([T.Text], [MyRecord]) -> ([T.Text], [MyRecord])
stripCsv = fmap textstrip ***
  fmap (HM.fromList . fmap (textstrip *** textstrip ) . HM.toList)
stripCsv :: ([T.Text], [MyRecord]) -> ([T.Text], [MyRecord])
stripCsv = fmap textstrip ***
  fmap (HM.fromList . fmap (textstrip *** textstrip ) . HM.toList)
stripCsv = fmap textstrip ***
  fmap (HM.fromList . fmap (textstrip *** textstrip ) . HM.toList)