diff --git a/src/bin/main.ml b/src/bin/main.ml
index 528a7ea..e08f14c 100644
--- a/src/bin/main.ml
+++ b/src/bin/main.ml
@@ -55,7 +55,7 @@ let dump =
 let rest = Arg.(value & pos_right 0 string [] & info [])
 
 let cmd env =
-  let doc = "A shell." in
+  let doc = "Mere's shell." in
   let man =
     [
       `S Manpage.s_description;
diff --git a/src/lib/built_ins.ml b/src/lib/built_ins.ml
index 42bdc38..2f82878 100644
--- a/src/lib/built_ins.ml
+++ b/src/lib/built_ins.ml
@@ -30,9 +30,7 @@ module Options = struct
   type merry = [ `Async ]
   type option = [ posix | merry ]
 
-  let posix_to_letter = function
-    | `Noclobber -> "C"
-    | _ -> ""
+  let posix_to_letter = function `Noclobber -> "C" | _ -> ""
 
   let to_letters t =
     let nc = if t.noclobber then posix_to_letter `Noclobber else "" in
diff --git a/src/lib/eval.ml b/src/lib/eval.ml
index 0b0cc39..9029cae 100644
--- a/src/lib/eval.ml
+++ b/src/lib/eval.ml
@@ -607,7 +607,8 @@ module Make (S : Types.State) (E : Types.Exec) = struct
           | Ast.VariableAtom ("-", NoAttribute) ->
               let i = if ctx.interactive then "i" else "" in
               expand
-                ([ Ast.WordName (Built_ins.Options.to_letters ctx.options ^ i) ] :: acc)
+                ([ Ast.WordName (Built_ins.Options.to_letters ctx.options ^ i) ]
+                :: acc)
                 ctx rest
           | Ast.VariableAtom (n, NoAttribute)
             when Option.is_some (int_of_string_opt n) -> (