core: use fourmolu styles (#3470)

2024-12-17 17:20:21 +01:00 · 2023-11-26 18:16:37 +00:00
parent 75c2de8a12
commit d29f1bb0cf
43 changed files with 902 additions and 865 deletions
@@ -18,10 +18,10 @@ generateRandomProfile = do
    pickNoun adjective n
      | n == 0 = pick nouns
      | otherwise = do
-        noun <- pick nouns
-        if noun == adjective
-          then pickNoun adjective (n - 1)
-          else pure noun
+          noun <- pick nouns
+          if noun == adjective
+            then pickNoun adjective (n - 1)
+            else pure noun

 adjectives :: [Text]
 adjectives =