Make formatFile strict

rzk-lang · Dec 15, 2023 · 3a2ddec · 3a2ddec
1 parent 20dfcc2
commit 3a2ddec
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/rzk/src/Rzk/Format.hs b/rzk/src/Rzk/Format.hs
@@ -294,7 +294,9 @@ format = applyTextEdits =<< formatTextEdits
 
 -- | Format Rzk code from a file
 formatFile :: FilePath -> IO String
-formatFile path = format <$> readFile path
+formatFile path = do
+  contents <- T.readFile path
+  return (format (T.unpack contents))
 
 -- | Format the file and write the result back to the file.
 formatFileWrite :: FilePath -> IO ()