acronym: upgrade to 1.7.0 (add extra test case) (#861)

add underscore test case

fix the text example to pass the newly added test case

exercism/problem-specifications#1436

Author: sharno

exercises/acronym/examples/success-text/src/Acronym.hs

@@ -10,6 +10,6 @@ abbreviate s = T.filter (/= ' ') $ T.zipWith sanitize (" " <> s) (s <> " ")
 
 sanitize :: Char -> Char -> Char
 sanitize a b
-  | (a == ' ' || a == '-') && isLetter b = toUpper b
+  | not (isLetter a) && a /= '\'' && isLetter b = toUpper b
   | isLower a && isUpper b = b
   | otherwise = ' '

exercises/acronym/package.yaml

@@ -1,5 +1,5 @@
 name: acronym
-version: 1.6.0.10
+version: 1.7.0.11
 
 dependencies:
   - base

exercises/acronym/test/Tests.hs

@@ -62,4 +62,8 @@ cases = [ Case { description = "basic"
                , input       = "Halley's Comet"
                , expected    = "HC"
                }
+        , Case { description = "underscore emphasis"
+               , input       = "The Road _Not_ Taken"
+               , expected    = "TRNT"
+               }
         ]