Skip to content

Commit

Permalink
[serokell#215] Fix documentation in Universum.Lifted.File
Browse files Browse the repository at this point in the history
  • Loading branch information
serhiip committed Jul 27, 2019
1 parent c75f43a commit f62b978
Show file tree
Hide file tree
Showing 2 changed files with 7 additions and 5 deletions.
4 changes: 3 additions & 1 deletion CHANGES.md
Original file line number Diff line number Diff line change
Expand Up @@ -6,11 +6,13 @@ Unreleased
from the list of changes suggested in `.hlint.yaml`.
* [#214](https:/serokell/universum/issues/214):
Update supported GHC versions (replace 7.10.3 with 8.6.5).

* [#212](https:/serokell/universum/issues/212)
Added rewrite rule for `toString . toText` case.
This may change semantics in some corner cases
(because `toString . toText` is not strictly the identity function).
* [#215](https:/serokell/universum/pull/215):
Fix docstrings in `Universum.Lifted.File` to mention correct module when
referencing related functions.

1.5.0
=====
Expand Down
8 changes: 4 additions & 4 deletions src/Universum/Lifted/File.hs
Original file line number Diff line number Diff line change
Expand Up @@ -28,22 +28,22 @@ import qualified System.IO as XIO (openFile, hClose, IO)
-- Text
----------------------------------------------------------------------------

-- | Lifted version of 'Data.Text.appendFile'.
-- | Lifted version of 'Data.Text.IO.appendFile'.
appendFile :: MonadIO m => FilePath -> Text -> m ()
appendFile a b = liftIO (XIO.appendFile a b)
{-# INLINE appendFile #-}

-- | Lifted version of 'Data.Text.getLine'.
-- | Lifted version of 'Data.Text.IO.getLine'.
getLine :: MonadIO m => m Text
getLine = liftIO XIO.getLine
{-# INLINE getLine #-}

-- | Lifted version of 'Data.Text.readFile'.
-- | Lifted version of 'Data.Text.IO.readFile'.
readFile :: MonadIO m => FilePath -> m Text
readFile a = liftIO (XIO.readFile a)
{-# INLINE readFile #-}

-- | Lifted version of 'Data.Text.writeFile'.
-- | Lifted version of 'Data.Text.IO.writeFile'.
writeFile :: MonadIO m => FilePath -> Text -> m ()
writeFile a b = liftIO (XIO.writeFile a b)
{-# INLINE writeFile #-}
Expand Down

0 comments on commit f62b978

Please sign in to comment.