The build function can be used to construct multi-line string literals in a monadic way:

 {-# LANGUAGE OverloadedStrings #-}

 import Data.String.Builder

 mystring :: String
 mystring = build $ do
   "foo"
   "bar"
   "baz"