Take monadic type out of the Context module to wait for Module data structure to be defined and enhanced with priorities and all

src/Context.hs

@@ -1,14 +1,11 @@
 module Context (
       CodePath(..)
     , Context(..)
-    , Contextual
     , Path(..)
     , packages
   ) where
 
-import Control.Monad.RWS (RWST)
 import Data.List (intercalate)
-import Data.Map (Map)
 import System.Directory (doesDirectoryExist)
 import System.Environment (lookupEnv)
 import System.FilePath ((</>))
@@ -17,17 +14,14 @@ import Text.ParserCombinators.ReadP (char, munch, sepBy)
 import Text.ParserCombinators.ReadPrec (lift)
 import Text.Read (readPrec)
 
-newtype Path = Path [String]
+newtype Path = Path [String] deriving (Eq, Ord)
 newtype CodePath = CodePath [FilePath]
-type Dependencies = Map Path [Path]
 
 data Context = Context {
       codePaths :: CodePath
     , mainModule :: Path
   }
 
-type Contextual = RWST Context [String] Dependencies IO
-
 instance Show Path where
   show (Path components) = intercalate "." components