grammar fix: replacing "a" by "the" takes into account "an"

AllureOfTheStars · May 28, 2011 · 9c28d06 · 9c28d06
1 parent bd2ab29
commit 9c28d06
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/EffectAction.hs b/src/EffectAction.hs
@@ -150,7 +150,8 @@ discover :: Item -> Action ()
 discover i = do
   state <- get
   let ik = ikind i
-      msg = "The" ++ L.tail (objectItem state i) ++ " turns out to be "
+      obj = unwords $ tail $ words $ objectItem state i
+      msg = "The " ++ obj ++ " turns out to be "
       kind = ItemKind.getIK ik
       alreadyIdentified = L.length (ItemKind.jflavour kind) == 1 ||
                           ik `S.member` sdiscoveries state