Cleanup, improve docs

This commit is contained in:
2016-05-09 17:37:16 +02:00
parent 3bbde22377
commit f27becc4df
5 changed files with 60 additions and 21 deletions

View File

@@ -14,7 +14,6 @@
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE EmptyDataDecls #-}
{-# LANGUAGE PatternSynonyms #-}
{-# OPTIONS_HADDOCK ignore-exports #-}
module HPath
(
@@ -48,10 +47,6 @@ module HPath
-- * ByteString operations
,fpToString
,userStringToFP
-- * Queries
,hasParentDir
,isFileName
-- * String based functions
)
where
@@ -211,13 +206,15 @@ parseFn filepath =
--------------------------------------------------------------------------------
-- Path Conversion
-- | Convert to a ByteString type.
-- | Convert any Path to a ByteString type.
toFilePath :: Path b -> ByteString
toFilePath (MkPath l) = l
-- | Convert an absolute Path to a ByteString type.
fromAbs :: Path Abs -> ByteString
fromAbs = toFilePath
-- | Convert a relative Path to a ByteString type.
fromRel :: RelC r => Path r -> ByteString
fromRel = toFilePath