From 08de2ebefb936e25021d3511c5d29c416bcde658 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Mon, 30 May 2016 13:02:34 +0200
Subject: [PATCH] Move RelC class from HPath.Internal to HPath

---
 src/HPath.hs          | 3 +++
 src/HPath/Internal.hs | 6 +-----
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/src/HPath.hs b/src/HPath.hs
index 0b3b31f..23e571b 100644
--- a/src/HPath.hs
+++ b/src/HPath.hs
@@ -24,6 +24,7 @@ module HPath
   ,Fn
   ,PathParseException
   ,PathException
+  ,RelC
   -- * PatternSynonyms/ViewPatterns
   ,pattern Path
    -- * Path Parsing
@@ -89,6 +90,8 @@ data PathException = RootDirHasNoBasename
   deriving (Show,Typeable)
 instance Exception PathException
 
+class RelC m
+
 instance RelC Rel
 instance RelC Fn
 
diff --git a/src/HPath/Internal.hs b/src/HPath/Internal.hs
index 47e4f21..e269ea0 100644
--- a/src/HPath/Internal.hs
+++ b/src/HPath/Internal.hs
@@ -3,8 +3,7 @@
 -- | Internal types and functions.
 
 module HPath.Internal
-  (Path(..)
-  ,RelC)
+  (Path(..))
   where
 
 import Control.DeepSeq (NFData (..))
@@ -50,6 +49,3 @@ instance Show (Path b) where
 instance NFData (Path b) where
   rnf (MkPath x) = rnf x
 
-
-class RelC m
-