tilia-0.1.0.0: corpora/vendored/declaration/value/do-block-after-a-leading-dollar-out.hs

textRoundtrip :: IO ()
textRoundtrip =
  fmap id $
    withConnection $ do
      encode
      decode

roundtrip :: IO ()
roundtrip =
  withConnection $ do
    encode
    decode

withRemark :: IO ()
withRemark =
  withConnection $ -- a fresh connection
    do
      encode
      decode