Shorten this one long line to help readability

obelisk/frontend/src/Frontend.hs

@@ -40,10 +40,17 @@ frontend = Frontend
       let plaintext :: LBS.ByteString
           plaintext = "Hello world!"
 
+          params  = Parameters
+                    { paramSegmentSize = 64
+                    , paramRequiredShares = 7
+                    , paramHappyShares = 1
+                    , paramTotalShares = 11
+                    }
+
       -- Once the page is built create an object to be uploaded.
       uploadableEv <- performEvent $ ffor pageLoaded $ \_ ->
                       liftIO $
-                             memoryUploadableWithConvergence "secret" (fromIntegral $ LBS.length plaintext) plaintext (Parameters { paramSegmentSize = 64, paramRequiredShares = 7, paramHappyShares = 1, paramTotalShares = 11 })
+                             memoryUploadableWithConvergence "secret" (fromIntegral $ LBS.length plaintext) plaintext params
 
       -- Once the page is built create some servers to upload to.
       -- serversEv <- performEvent $ ffor pageLoaded $ \_ ->