diff options
-rw-r--r-- | hs-visinter.cabal | 12 | ||||
-rw-r--r-- | src/HSVIS/AST.hs (renamed from src/AST.hs) | 4 | ||||
-rw-r--r-- | src/HSVIS/Parser.hs (renamed from src/Parser.hs) | 8 | ||||
-rw-r--r-- | src/HSVIS/Pretty.hs (renamed from src/Pretty.hs) | 2 |
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 |