more lint

haskellfoundation · Jun 20, 2024 · 1965425 · 1965425
1 parent 350084c
commit 1965425
Showing 1 changed file with 7 additions and 8 deletions.
diff --git a/message-index/site.hs b/message-index/site.hs
@@ -156,9 +156,9 @@ main = hakyll $ do
                     other -> error "is not an example"
             pure $
               JSON.object
-                [ "name" .= name
-                , "route" .= route
-                , "metadata" .= meta
+                [ "name" .= name,
+                  "route" .= route,
+                  "metadata" .= meta
                 ]
 
       let errorItemToJSON :: Item String -> Compiler JSON.Value
@@ -173,17 +173,16 @@ main = hakyll $ do
             examples <- traverse exampleItemToJSON exampleItems
             pure $
               JSON.object
-                [ "code" .= code
-                , "route" .= route
-                , "metadata" .= meta
-                , "examples" .= examples
+                [ "code" .= code,
+                  "route" .= route,
+                  "metadata" .= meta,
+                  "examples" .= examples
                 ]
 
       errorItems <- loadAll $ "messages/*/index.md" .&&. hasNoVersion
       encoded <- traverse errorItemToJSON errorItems
       makeItem $ JSON.encode encoded
 
-
 --------------------------------------------------------------------------------
 
 -- | The file extensions to be shown in example lists