title: Change this to do notation
body: <p>I am doing a project with Hspec and Parsec, and stumbled upon this following code.</p>
  
  <pre><code>stringLiteralSpec :: Spec
  stringLiteralSpec =
      describe "SimpleExpression:StringLiteral" $
          it "Is able to parse correct string literals" $
              stringLiteral `shouldParse` [
                  "\"Hello World\"" `to` StringLiteral "Hello World",
                  "\'Hello World\'" `to` StringLiteral "Hello World"]
  
  shouldParse :: (Show a, Eq a) =&gt; Parser a -&gt; [(String, a)] -&gt; Expectation
  
  to = (,)
  </code></pre>
  
  <p>Is it possible to somehow come up with another definition of <code>to</code> such that the list notation could be written in a prettier way like this?</p>
  
  <pre><code>            stringLiteral `shouldParse` $ do
                  "\"Hello World\"" `to` StringLiteral "Hello World"
                  "\'Hello World\'" `to` StringLiteral "Hello World"
  </code></pre>