Apply Fourmolu.

src/Slab/Evaluate.hs

@@ -225,15 +225,16 @@ evalFrag env stack name values args (Frag names capturedEnv body) = do
   case map fst env' \\ names of
     [] -> pure ()
     ["content"] -> pure ()
-    ns -> throwE . Error.EvaluateError $
-      "Unnecessary arguments to " <> name <> ": " <> T.pack (show ns)
+    ns ->
+      throwE . Error.EvaluateError $
+        "Unnecessary arguments to " <> name <> ": " <> T.pack (show ns)
   let env'' = augmentVariables (removeFormalParams names capturedEnv) env'
       arguments = zip names (map (thunk env) values)
       env''' = augmentVariables env'' arguments
   body' <- evaluate env''' ("frag " <> name : stack) body
   pure body'
 
-removeFormalParams names Env {..} = Env { envVariables = vars' }
+removeFormalParams names Env {..} = Env {envVariables = vars'}
  where
   vars' = filter (not . (`elem` names) . fst) envVariables
 

src/Slab/Execute.hs

@@ -79,7 +79,8 @@ exec ctx@(Context {..}) = \case
   Syntax.BlockRun cmd minput Nothing -> do
     (code, out, err) <-
       liftIO $
-        readCreateProcessWithExitCode (shell $ T.unpack cmd) $ maybe "" T.unpack minput
+        readCreateProcessWithExitCode (shell $ T.unpack cmd) $
+          maybe "" T.unpack minput
     case code of
       ExitSuccess ->
         pure $

src/Slab/Parse.hs

@@ -123,7 +123,7 @@ parserElemBody ref header =
       template <- parseInlines
       case template of
         [] -> do
-          s <-  parserDotText ref
+          s <- parserDotText ref
           pure $ L.IndentNone $ header [BlockText Dot [Lit s]]
         _ -> pure $ L.IndentNone $ header [BlockText Dot template]
     HasEqual -> do
@@ -386,9 +386,10 @@ parserClass =
 parserAttrList :: Parser [Attr]
 parserAttrList = (<?> "attribute") $ do
   _ <- string "("
-  pairs <- sepBy
-    (uncurry Attr <$> try parserPair <|> Arg <$> parserExpr)
-    (lexeme $ string ",")
+  pairs <-
+    sepBy
+      (uncurry Attr <$> try parserPair <|> Arg <$> parserExpr)
+      (lexeme $ string ",")
   _ <- string ")"
   pure pairs