hasufell
/
hpath
1
1
Fork 0
Code Issues 8 Pull Requests Releases Wiki Activity

Move RelC class from HPath.Internal to HPath

This commit is contained in:
Julian Ospald 2016-05-30 13:02:34 +02:00
parent d15d7761c1
commit 08de2ebefb
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/HPath.hs
View File

@ -24,6 +24,7 @@ module HPath
,Fn ,Fn
,PathParseException ,PathParseException
,PathException ,PathException
,RelC
-- * PatternSynonyms/ViewPatterns -- * PatternSynonyms/ViewPatterns
,pattern Path ,pattern Path
-- * Path Parsing -- * Path Parsing
@ -89,6 +90,8 @@ data PathException = RootDirHasNoBasename
deriving (Show,Typeable) deriving (Show,Typeable)
instance Exception PathException instance Exception PathException
class RelC m
instance RelC Rel instance RelC Rel
instance RelC Fn instance RelC Fn

6
src/HPath/Internal.hs
View File

@ -3,8 +3,7 @@
-- | Internal types and functions. -- | Internal types and functions.
module HPath.Internal module HPath.Internal
(Path(..) (Path(..))
,RelC)
where where
import Control.DeepSeq (NFData (..)) import Control.DeepSeq (NFData (..))
@ -50,6 +49,3 @@ instance Show (Path b) where
instance NFData (Path b) where instance NFData (Path b) where
rnf (MkPath x) = rnf x rnf (MkPath x) = rnf x
class RelC m