in the cell of the column.
          -> Text   -- ^ The value of 'Text' argument if there isn't any alpha characters in the cell.
doRepeats x | T.any isLetter x = "-"
            | otherwise        = x


{- | The 'Course' in this case is
doRepeats :: Text   -- ^ The 'Text' in the cell of the column.
          -> Text
doRepeats x | T.any isLetter x = "-"
            | otherwise        = x
doRepeats x | T.any isLetter x = "-"
            | otherwise        = x