findByTitle bug s = case bug of
  Injection -> handleViolations (select templ $ "%"++s++"%")
  _          -> handleViolations (select templ $ "%"++(sanitize s)++"%")
  where templ = "SELECT * FROM books WHERE title LIKE ?"
findByTitle bug s = case bug of
  Injection -> handleViolations (select templ $ "%"++s++"%")
  _          -> handleViolations (select templ $ "%"++(sanitize s)++"%")
  where templ = "SELECT * FROM books WHERE title LIKE ?"
findByTitle bug s = case bug of
  Injection -> handleViolations (select templ $ "%"++s++"%")
  _          -> handleViolations (select templ $ "%"++(sanitize s)++"%")
  where templ = "SELECT * FROM books WHERE title LIKE ?"