Run stylish-haskell on all files

This commit is contained in:
Joscha 2020-04-05 11:12:58 +00:00
parent ff9b7a35c7
commit 52da9f0507

View file

@ -54,7 +54,7 @@ protect m = do
result <- liftIO $ tryIOError m result <- liftIO $ tryIOError m
case result of case result of
Right a -> pure a Right a -> pure a
Left e -> throw $ T.pack $ show e Left e -> throw $ T.pack $ show e
readFileT :: FilePath -> Run T.Text readFileT :: FilePath -> Run T.Text
readFileT = protect . T.readFile readFileT = protect . T.readFile