Rename RgbCounter module to Rgb

bayeux.cabal

@@ -18,7 +18,7 @@ library
                     , Bayeux.Cli
                     , Bayeux.Flow
                     , Bayeux.Lp
-                    , Bayeux.RgbCounter
+                    , Bayeux.Rgb
                     , Bayeux.Rtlil
                     , Bayeux.Tableaux
     other-modules:    Paths_bayeux
@@ -51,7 +51,7 @@ test-suite test
     hs-source-dirs:   test
     main-is:          Main.hs
     other-modules:    Test.Bayeux.Lp
-                    , Test.Bayeux.RgbCounter
+                    , Test.Bayeux.Rgb
                     , Test.Bayeux.Rtlil
     build-depends:    base
                     , bayeux

lib/Bayeux.hs

@@ -5,7 +5,7 @@ module Bayeux (app) where
 import Bayeux.Cli
 import Bayeux.Flow
 import Bayeux.Lp
-import Bayeux.RgbCounter
+import Bayeux.Rgb
 import Bayeux.Rtlil
 import Bayeux.Tableaux
 import Control.Monad

lib/Bayeux/RgbCounter.hs → lib/Bayeux/Rgb.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
 {-# LANGUAGE OverloadedStrings          #-}
 
-module Bayeux.RgbCounter
+module Bayeux.Rgb
   ( prog
   , cycleProg
   ) where
@@ -28,10 +28,10 @@ class MonadProcess m where
   eq        :: SigSpec -> SigSpec -> m SigSpec
 
   -- | If S == 1 then B else A
-  mux       :: SigSpec   -- ^ S
-            -> SigSpec   -- ^ A
-            -> SigSpec   -- ^ B
-            -> m SigSpec -- ^ Y
+  mux :: SigSpec   -- ^ S
+      -> SigSpec   -- ^ A
+      -> SigSpec   -- ^ B
+      -> m SigSpec -- ^ Y
 
 cycleProg :: MonadProcess m => MonadRgb m => m ()
 cycleProg = do

test/Main.hs

@@ -1,13 +1,13 @@
 module Main (main) where
 
 import qualified Test.Bayeux.Lp
-import qualified Test.Bayeux.RgbCounter
+import qualified Test.Bayeux.Rgb
 import qualified Test.Bayeux.Rtlil
 import Test.Tasty
 
 main :: IO ()
 main = defaultMain $ testGroup "Test.Bayeux"
-  [ testGroup "Lp"         Test.Bayeux.Lp.tests
-  , testGroup "RgbCounter" Test.Bayeux.RgbCounter.tests
-  , testGroup "Rtlil"      Test.Bayeux.Rtlil.tests
+  [ testGroup "Lp"    Test.Bayeux.Lp.tests
+  , testGroup "Rgb"   Test.Bayeux.Rgb.tests
+  , testGroup "Rtlil" Test.Bayeux.Rtlil.tests
   ]

test/Test/Bayeux/RgbCounter.hs → test/Test/Bayeux/Rgb.hs

@@ -1,8 +1,8 @@
-module Test.Bayeux.RgbCounter
+module Test.Bayeux.Rgb
   ( tests
   ) where
 
-import Bayeux.RgbCounter
+import Bayeux.Rgb
 import Bayeux.Rtlil
 import Data.String
 import Data.Text (Text)
@@ -41,7 +41,7 @@ synthTest n rtl = testCase n $ withTempFile $ \t -> do
   (ExitSuccess @=?) =<< waitForProcess =<< spawnCommand c
 
 curDir :: FilePath
-curDir = "test" </> "Test" </> "Bayeux" </> "RgbCounter" </> "golden"
+curDir = "test" </> "Test" </> "Bayeux" </> "Rgb" </> "golden"
 
 render :: Doc ann -> Text
 render = renderStrict . layoutSmart defaultLayoutOptions