automatically run ormolu

Author: ChrisPenner

codebase2/codebase-sqlite/U/Codebase/Sqlite/HistoryComment.hs

@@ -2,8 +2,7 @@ module U.Codebase.Sqlite.HistoryComment (HistoryComment (..)) where
 
 import Data.Text (Text)
 
-data HistoryComment id
-  = HistoryComment
+data HistoryComment id = HistoryComment
   { author :: Text,
     subject :: Text,
     content :: Text,

unison-cli/src/Unison/CommandLine/OutputMessages.hs

@@ -40,6 +40,7 @@ import U.Codebase.Branch (NamespaceStats (..))
 import U.Codebase.Branch.Diff (NameChanges (..))
 import U.Codebase.HashTags (CausalHash (..))
 import U.Codebase.Reference qualified as Reference
+import U.Codebase.Sqlite.HistoryComment (HistoryComment (..))
 import U.Codebase.Sqlite.Project (Project (..))
 import U.Codebase.Sqlite.ProjectBranch (ProjectBranch (..))
 import U.Codebase.Sqlite.ProjectReflog qualified as ProjectReflog
@@ -163,7 +164,6 @@ import Unison.Var (Var)
 import Unison.Var qualified as Var
 import Unison.WatchKind qualified as WK
 import Witch (unsafeFrom)
-import U.Codebase.Sqlite.HistoryComment (HistoryComment(..))
 
 reportBugURL :: Pretty
 reportBugURL = "https://github.com/unisonweb/unison/issues/new"
@@ -305,13 +305,12 @@ notifyNumbered = \case
       displayComment :: Bool -> Maybe (HistoryComment ()) -> [Pretty]
       displayComment prefixSpacer mayComment = case mayComment of
         Nothing -> []
-        Just (HistoryComment{author, subject, content}) ->
+        Just (HistoryComment {author, subject, content}) ->
           Monoid.whenM prefixSpacer [""]
-            <> [
-                P.bold (P.text author),
-                P.indent (P.blue (P.text "> ")) (P.yellow $ P.text subject),
-                P.indent (P.blue (P.text "> ")) (P.text content),
-                ""
+            <> [ P.bold (P.text author),
+                 P.indent (P.blue (P.text "> ")) (P.yellow $ P.text subject),
+                 P.indent (P.blue (P.text "> ")) (P.text content),
+                 ""
                ]
       handleTail :: Int -> (Pretty, [CausalHash])
       handleTail n = case tail of
@@ -914,19 +913,20 @@ notifyUser dir issueFn = \case
       --       defs in the codebase.  In some cases it's fine for bindings to
       --       shadow codebase names, but you don't want it to capture them in
       --       the decompiled output.
+
         let prettyBindings =
               P.bracket . P.lines $
                 P.wrap "The watch expression(s) reference these definitions:"
                   : ""
                   : [ P.syntaxToColor $ TermPrinter.prettyBinding ppe (HQ.unsafeFromVar v) b
-                    | (v, b) <- bindings
+                      | (v, b) <- bindings
                     ]
             prettyWatches =
               P.sep
                 "\n\n"
                 [ watchPrinter fileContents ppe ann kind evald isCacheHit
-                | (ann, kind, evald, isCacheHit) <-
-                    sortOn (\(a, _, _, _) -> a) . toList $ watches
+                  | (ann, kind, evald, isCacheHit) <-
+                      sortOn (\(a, _, _, _) -> a) . toList $ watches
                 ]
          in -- todo: use P.nonempty
             pure $
@@ -3584,13 +3584,13 @@ listOfDefinitions' fscope ppe detailed results =
     --   where sigs0 = (\(name, _, typ) -> (name, typ)) <$> terms
     termsWithMissingTypes =
       [ (name, Reference.idToShortHash r)
-      | SR'.Tm name Nothing (Referent.Ref (Reference.DerivedId r)) _ <- results
+        | SR'.Tm name Nothing (Referent.Ref (Reference.DerivedId r)) _ <- results
       ]
     missingTypes =
       nubOrdOn snd $
         [(name, r) | SR'.Tp name (MissingObject r) _ _ <- results]
           <> [ (name, Reference.toShortHash r)
-             | SR'.Tm name Nothing (Referent.toTypeReference -> Just r) _ <- results
+               | SR'.Tm name Nothing (Referent.toTypeReference -> Just r) _ <- results
              ]
     missingBuiltins =
       results >>= \case
@@ -3744,7 +3744,7 @@ prettyDiff diff =
                     P.column2 $
                       (P.hiBlack "Original name", P.hiBlack "New name(s)")
                         : [ (prettyName n, P.sep " " (prettyName <$> ns))
-                          | (n, ns) <- copied
+                            | (n, ns) <- copied
                           ]
                 ]
             else mempty