findByAuthor, findByTitle
  :: Bug -> String -> Connection -> IO (Maybe [Book])
findByAuthor bug s = case bug of
  Injection -> handleViolations (select templ $ "%"++s++"%")
  _          -> handleViolations (select templ $ "%"++(sanitize s)++"%")
  where templ = "SELECT * FROM books WHERE author LIKE ?"
findByAuthor, findByTitle
  :: Bug -> String -> Connection -> IO (Maybe [Book])
findByAuthor bug s = case bug of
  Injection -> handleViolations (select templ $ "%"++s++"%")
  _          -> handleViolations (select templ $ "%"++(sanitize s)++"%")
  where templ = "SELECT * FROM books WHERE author LIKE ?"
findByAuthor bug s = case bug of
  Injection -> handleViolations (select templ $ "%"++s++"%")
  _          -> handleViolations (select templ $ "%"++(sanitize s)++"%")
  where templ = "SELECT * FROM books WHERE author LIKE ?"