Bob's conversational partner is a purist!

exercises/bob/examples/success-standard/package.yaml

@@ -2,6 +2,7 @@ name: bob
 
 dependencies:
   - base
+  - safe
 
 library:
   exposed-modules: Bob

exercises/bob/examples/success-standard/src/Bob.hs

@@ -1,5 +1,6 @@
 module Bob (responseFor) where
-import Data.Char (isSpace, isUpper, isAlpha)
+import Data.Char (isSpace, isUpper, isAlpha, isPunctuation)
+import Safe (lastMay)
 
 data Prompt = Silence | YellQuestion | Yell | Question | Other
 
@@ -10,7 +11,7 @@ classify s | all isSpace s = Silence
            | question = Question
            | otherwise = Other
            where yell = any isAlpha s && all isUpper (filter isAlpha s)
-                 question = '?' == last (filter (not . isSpace) s)
+                 question = Just '?' == lastMay (filter isPunctuation s)
 
 response :: Prompt -> String
 response Silence = "Fine. Be that way!"

exercises/bob/package.yaml

@@ -1,5 +1,5 @@
 name: bob
-version: 1.3.0.6
+version: 1.4.0.7
 
 dependencies:
   - base

exercises/bob/test/Tests.hs

@@ -101,7 +101,7 @@ cases = [ Case { description = "stating something"
                , expected    = "Fine. Be that way!"
                }
         , Case { description = "multiple line question"
-               , input       = "\nDoes this cryogenic chamber make me look fat?\nno"
+               , input       = "\nDoes this cryogenic chamber make me look fat?\nNo."
                , expected    = "Whatever."
                }
         , Case { description = "starting with whitespace"