Prefix internal modules with Internal

JakobBruenker · Oct 15, 2023 · 50210aa · 50210aa
1 parent c46b870
commit 50210aa
Show file tree

Hide file tree

Showing 11 changed files with 21 additions and 20 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -3,6 +3,7 @@
 ## 0.2.0.0 -- 2023-10-16
 
 * Added support for GHC 9.8
+* Prefix internal modules with `Internal`
 
 ## 0.1.1.0 -- 2023-07-10
 

diff --git a/monadic-bang.cabal b/monadic-bang.cabal
@@ -61,12 +61,12 @@ library
     -- Modules exported by the library.
     exposed-modules:  MonadicBang
                       MonadicBang.Internal
-                      MonadicBang.Effect.Offer
-                      MonadicBang.Effect.Uniques
-                      MonadicBang.Effect.Writer.Discard
-                      MonadicBang.Options
-                      MonadicBang.Utils
-                      MonadicBang.Error
+                      MonadicBang.Internal.Effect.Offer
+                      MonadicBang.Internal.Effect.Uniques
+                      MonadicBang.Internal.Effect.Writer.Discard
+                      MonadicBang.Internal.Options
+                      MonadicBang.Internal.Utils
+                      MonadicBang.Internal.Error
 
     -- Modules included in this library but not exported.
     -- other-modules:

diff --git a/src/MonadicBang/Internal.hs b/src/MonadicBang/Internal.hs
@@ -44,14 +44,14 @@ import Text.Printf
 
 import GHC.Utils.Logger
 
-import MonadicBang.Effect.Offer
-import MonadicBang.Effect.Uniques
-import MonadicBang.Options
-import MonadicBang.Utils
-import MonadicBang.Error
+import MonadicBang.Internal.Effect.Offer
+import MonadicBang.Internal.Effect.Uniques
+import MonadicBang.Internal.Options
+import MonadicBang.Internal.Utils
+import MonadicBang.Internal.Error
+import MonadicBang.Internal.Effect.Writer.Discard
 
 import Data.Kind
-import MonadicBang.Effect.Writer.Discard
 
 -- We don't care about which file things are from, because the entire AST comes
 -- from the same module

diff --git a/src/MonadicBang/Effect/Offer.hs → src/MonadicBang/Internal/Effect/Offer.hs b/src/MonadicBang/Effect/Offer.hs → src/MonadicBang/Internal/Effect/Offer.hs
@@ -4,7 +4,7 @@
 {-# LANGUAGE MonoLocalBinds #-}
 {-# LANGUAGE OverloadedRecordDot #-}
 
-module MonadicBang.Effect.Offer where
+module MonadicBang.Internal.Effect.Offer where
 
 import Control.Algebra
 import Control.Carrier.State.Strict

diff --git a/src/MonadicBang/Effect/Uniques.hs → src/MonadicBang/Internal/Effect/Uniques.hs b/src/MonadicBang/Effect/Uniques.hs → src/MonadicBang/Internal/Effect/Uniques.hs
@@ -4,7 +4,7 @@
 {-# LANGUAGE MonoLocalBinds #-}
 {-# LANGUAGE OverloadedRecordDot #-}
 
-module MonadicBang.Effect.Uniques where
+module MonadicBang.Internal.Effect.Uniques where
 
 import Control.Algebra
 import Control.Carrier.State.Strict

diff --git a/src/MonadicBang/Effect/Writer/Discard.hs → ...dicBang/Internal/Effect/Writer/Discard.hs b/src/MonadicBang/Effect/Writer/Discard.hs → ...dicBang/Internal/Effect/Writer/Discard.hs
@@ -4,7 +4,7 @@
 {-# LANGUAGE GADTs #-}
 
 -- | A Writer carrier that discards any values it is told
-module MonadicBang.Effect.Writer.Discard where
+module MonadicBang.Internal.Effect.Writer.Discard where
 
 import Control.Algebra
 import Control.Effect.Writer

diff --git a/src/MonadicBang/Error.hs → src/MonadicBang/Internal/Error.hs b/src/MonadicBang/Error.hs → src/MonadicBang/Internal/Error.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE CPP #-}
 
-module MonadicBang.Error where
+module MonadicBang.Internal.Error where
 
 import Prelude hiding ((<>))
 

diff --git a/src/MonadicBang/Options.hs → src/MonadicBang/Internal/Options.hs b/src/MonadicBang/Options.hs → src/MonadicBang/Internal/Options.hs
@@ -3,7 +3,7 @@
 {-# LANGUAGE OverloadedRecordDot #-}
 {-# LANGUAGE CPP #-}
 
-module MonadicBang.Options where
+module MonadicBang.Internal.Options where
 
 import Control.Exception
 import Control.Algebra

diff --git a/src/MonadicBang/Utils.hs → src/MonadicBang/Internal/Utils.hs b/src/MonadicBang/Utils.hs → src/MonadicBang/Internal/Utils.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE MonoLocalBinds #-}
 {-# LANGUAGE CPP #-}
 
-module MonadicBang.Utils where
+module MonadicBang.Internal.Utils where
 
 import Control.Monad.Trans.Maybe
 import Data.Monoid

diff --git a/test/MonadicBang/Test/ShouldFail.hs b/test/MonadicBang/Test/ShouldFail.hs
@@ -3,7 +3,7 @@
 module MonadicBang.Test.ShouldFail (shouldFail) where
 
 import MonadicBang.Test.Utils
-import MonadicBang.Error
+import MonadicBang.Internal.Error
 
 import GHC.Types.Name.Occurrence
 

diff --git a/test/MonadicBang/Test/Utils.hs b/test/MonadicBang/Test/Utils.hs
@@ -25,7 +25,7 @@ import GHC.Types.SourceError
 import GHC.Utils.Outputable hiding ((<>))
 
 import MonadicBang.Test.Utils.RunGhcParser
-import MonadicBang.Utils
+import MonadicBang.Internal.Utils
 import Data.Monoid
 
 data FailType