Add HSVIS module prefix

4 files changed, 14 insertions, 12 deletions

diff --git a/hs-visinter.cabal b/hs-visinter.cabal
index 0639cde..181d112 100644
--- a/hs-visinter.cabal
+++ b/hs-visinter.cabal
@@ -10,16 +10,16 @@ build-type:          Simple
 executable hs-visinter
   main-is:             Main.hs
   other-modules:
-    AST
     Control.FAlternative
-    Parser
-    Pretty
+    HSVIS.AST
+    HSVIS.Parser
+    HSVIS.Pretty
   build-depends:
     base >= 4.16 && < 4.20,
     containers >= 0.6.3.1 && < 0.8,
     mtl,
     monad-chronicle ^>= 1.0.0.1,
     these
-  hs-source-dirs:      src
-  default-language:    Haskell2010
-  ghc-options:         -Wall -threaded
+  hs-source-dirs: src
+  default-language: Haskell2010
+  ghc-options: -Wall -threaded
diff --git a/src/AST.hs b/src/HSVIS/AST.hs
index 878c9fb..5a90205 100644
--- a/src/AST.hs
+++ b/src/HSVIS/AST.hs
@@ -1,8 +1,8 @@
-module AST where
+module HSVIS.AST where
 
 import Data.List.NonEmpty (NonEmpty)
 
-import Pretty
+import HSVIS.Pretty
 
 
 newtype Name = Name String
diff --git a/src/Parser.hs b/src/HSVIS/Parser.hs
index 76cc10e..23ce28e 100644
--- a/src/Parser.hs
+++ b/src/HSVIS/Parser.hs
@@ -15,8 +15,10 @@
 -- I don't want a warning for 'head' and 'tail' in this file. But I also don't
 -- want GHCs before 9.8 to complain that they don't know the x-partial warning.
 {-# OPTIONS_GHC -Wno-unrecognised-warning-flags -Wno-x-partial #-}
-module Parser (
+module HSVIS.Parser (
   parse,
+  Pos(..),
+  ErrMsg(..),
   printErrMsg,
   -- * Re-exports
   These(..),
@@ -36,9 +38,9 @@ import Data.These
 
 -- import Debug.Trace
 
-import AST
 import Control.FAlternative
-import Pretty
+import HSVIS.AST
+import HSVIS.Pretty
 
 
 data Pos = Pos
diff --git a/src/Pretty.hs b/src/HSVIS/Pretty.hs
index ef7c39a..ffde90e 100644
--- a/src/Pretty.hs
+++ b/src/HSVIS/Pretty.hs
@@ -1,4 +1,4 @@
-module Pretty where
+module HSVIS.Pretty where
 
 
 class Pretty a where