Fix formatting

Author: szg251

lambda-buffers-codegen/src/LambdaBuffers/Codegen/Rust/Print/Syntax.hs

@@ -129,10 +129,10 @@ printFieldName (PC.FieldName n _) = pretty . toSnakeCase $ n
 
 toSnakeCase :: Text -> Text
 toSnakeCase = Text.concatMap f
-  where f c
-          | Char.isUpper c = "_" <> Text.toLower (Text.singleton c)
-          | otherwise = Text.singleton c
-
+  where
+    f c
+      | Char.isUpper c = "_" <> Text.toLower (Text.singleton c)
+      | otherwise = Text.singleton c
 
 printVarName :: PC.VarName -> Doc ann
 printVarName (PC.VarName n _) = pretty n

lambda-buffers-codegen/src/LambdaBuffers/Codegen/Rust/Print/TyDef.hs

@@ -53,11 +53,11 @@ printTyDef pkgs (PC.TyDef tyN tyabs _) = do
   (kw, generics, absDoc) <- printTyAbs pkgs tyN tyabs
   if kw /= SynonymTyDef
     then
-      return
-        $ printDeriveDebug
-        <> hardline
-        <> group (printTyDefKw kw <+> printTyName tyN <> generics)
-        <> absDoc
+      return $
+        printDeriveDebug
+          <> hardline
+          <> group (printTyDefKw kw <+> printTyName tyN <> generics)
+          <> absDoc
     else return $ group $ printTyDefKw kw <+> printTyName tyN <> generics <+> equals <+> absDoc
 
 printTyDefKw :: TyDefKw -> Doc ann