Rename ParseCommand to Command.Parse.

semantic-diff.cabal

@@ -18,6 +18,7 @@ library
                      , Arguments
                      , Category
                      , Command.Diff
+                     , Command.Parse
                      , Data.Align.Generic
                      , Data.Functor.Both
                      , Data.Functor.Classes.Eq.Generic
@@ -37,7 +38,6 @@ library
                      , Language.Markdown
                      , Language.Go
                      , Language.Ruby
-                     , ParseCommand
                      , Parser
                      , Patch
                      , Paths_semantic_diff
@@ -148,6 +148,7 @@ test-suite test
   main-is:             Spec.hs
   other-modules:       AlignmentSpec
                      , Command.Diff.Spec
+                     , Command.Parse.Spec
                      , Data.Mergeable.Spec
                      , Data.RandomWalkSimilarity.Spec
                      , DiffSpec
@@ -161,7 +162,6 @@ test-suite test
                      , TermSpec
                      , TOCSpec
                      , IntegrationSpec
-                     , ParseCommandSpec
                      , Test.Hspec.LeanCheck
   build-depends:       aeson
                      , array

src/Command/Diff.hs

@@ -24,7 +24,7 @@ import GitmonClient
 import Info
 import Diff
 import Interpreter
-import ParseCommand (parserForFilepath)
+import Command.Parse (parserForFilepath)
 import Parser
 import Patch
 import Renderer

src/Command/Parse.hs

@@ -1,5 +1,5 @@
 {-# LANGUAGE DataKinds, TypeOperators, ScopedTypeVariables #-}
-module ParseCommand where
+module Command.Parse where
 
 import Arguments
 import Category

src/SemanticDiff.hs

@@ -3,6 +3,7 @@ module SemanticDiff (main) where
 
 import Arguments
 import Command.Diff
+import Command.Parse
 import Prologue hiding (fst, snd)
 import Data.String
 import Data.Functor.Both
@@ -12,7 +13,6 @@ import Options.Applicative hiding (action)
 import qualified Paths_semantic_diff as Library (version)
 import qualified Renderer as R
 import Development.GitRev
-import ParseCommand
 import qualified Data.ByteString as B
 
 main :: IO ()

test/Command/Parse/Spec.hs

@@ -1,5 +1,6 @@
-module ParseCommandSpec where
+module Command.Parse.Spec where
 
+import Command.Parse
 import Data.Functor.Listable
 import Prelude
 import Test.Hspec hiding (shouldBe, shouldNotBe, shouldThrow, errorCall)
@@ -7,7 +8,6 @@ import Test.Hspec.Expectations.Pretty
 import Test.Hspec.LeanCheck
 import Test.LeanCheck
 import Arguments
-import ParseCommand
 import Renderer
 
 spec :: Spec

test/IntegrationSpec.hs

@@ -3,6 +3,7 @@ module IntegrationSpec where
 
 import Category as C
 import Command.Diff
+import Command.Parse
 import Data.Functor.Both
 import Data.Record
 import qualified Data.Text as T
@@ -11,7 +12,6 @@ import Data.Text.Encoding (decodeUtf8)
 import GHC.Show (Show(..))
 import Data.List (union, concat, transpose)
 import Info
-import ParseCommand
 import Prologue hiding (fst, snd)
 import Renderer
 import Renderer.SExpression as Renderer

test/Spec.hs

@@ -3,6 +3,7 @@ module Main where
 import Prologue
 import qualified AlignmentSpec
 import qualified Command.Diff.Spec
+import qualified Command.Parse.Spec
 import qualified Data.Mergeable.Spec
 import qualified Data.RandomWalkSimilarity.Spec
 import qualified DiffSpec
@@ -15,7 +16,6 @@ import qualified SES.Myers.Spec
 import qualified SourceSpec
 import qualified TermSpec
 import qualified TOCSpec
-import qualified ParseCommandSpec
 import qualified IntegrationSpec
 import Test.Hspec
 
@@ -24,6 +24,7 @@ main = do
   hspec . parallel $ do
     describe "Alignment" AlignmentSpec.spec
     describe "Command.Diff" Command.Diff.Spec.spec
+    describe "Command.Parse" Command.Parse.Spec.spec
     describe "Data.Mergeable" Data.Mergeable.Spec.spec
     describe "Data.RandomWalkSimilarity" Data.RandomWalkSimilarity.Spec.spec
     describe "Diff" DiffSpec.spec
@@ -35,7 +36,6 @@ main = do
     describe "Source" SourceSpec.spec
     describe "Term" TermSpec.spec
     describe "TOC" TOCSpec.spec
-    describe "ParseCommand" ParseCommandSpec.spec
     describe "Integration" IntegrationSpec.spec
 
   hspec $ describe "GitmonClient" GitmonClientSpec.spec

test/TOCSpec.hs

@@ -4,6 +4,7 @@ module TOCSpec where
 import Data.Aeson
 import Category as C
 import Command.Diff
+import Command.Parse
 import Data.Functor.Both
 import Data.Functor.Listable
 import Data.RandomWalkSimilarity
@@ -12,7 +13,6 @@ import Data.String
 import Diff
 import Info
 import Interpreter
-import ParseCommand
 import Patch
 import Prologue hiding (fst, snd)
 import Renderer