diff --git a/src/Mima/Run.hs b/src/Mima/Run.hs index 4932b30..a946de2 100644 --- a/src/Mima/Run.hs +++ b/src/Mima/Run.hs @@ -54,7 +54,7 @@ protect m = do result <- liftIO $ tryIOError m case result of Right a -> pure a - Left e -> throw $ T.pack $ show e + Left e -> throw $ T.pack $ show e readFileT :: FilePath -> Run T.Text readFileT = protect . T.readFile