automatically run ormolu

unisonweb · Jul 2, 2024 · 92a74df · 92a74df
1 parent 1d5ae81
commit 92a74df
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/unison-cli/src/Unison/LSP/VFS.hs b/unison-cli/src/Unison/LSP/VFS.hs
@@ -81,9 +81,11 @@ identifierSplitAtPosition uri pos = do
   vf <- getVirtualFile uri
   PosPrefixInfo {fullLine, cursorPos} <- MaybeT (VFS.getCompletionPrefix pos vf)
   let (before, after) = Text.splitAt (cursorPos ^. character . to fromIntegral) fullLine
-  pure (Text.takeWhileEnd isIdentifierChar before,
-        -- names can end with '!', and it's not a force, so we include it in the identifier if it's at the end.
-        Text.takeWhile (\c -> isIdentifierChar c || c == '!') after)
+  pure
+    ( Text.takeWhileEnd isIdentifierChar before,
+      -- names can end with '!', and it's not a force, so we include it in the identifier if it's at the end.
+      Text.takeWhile (\c -> isIdentifierChar c || c == '!') after
+    )
   where
     isIdentifierChar c =
       -- Manually exclude '!' and apostrophe, since those are usually just forces and