Move LanguageModes & ASTMode into Data.Language.

src/Data/Language.hs

@@ -10,6 +10,8 @@ module Data.Language
   , codeNavLanguages
   , textToLanguage
   , languageToText
+  , LanguageModes(..)
+  , ASTMode(..)
   ) where
 
 import           Data.Aeson
@@ -137,3 +139,14 @@ textToLanguage = \case
   "TSX" -> TSX
   "PHP" -> PHP
   _ -> Unknown
+
+
+newtype LanguageModes = LanguageModes
+  { pythonMode :: ASTMode
+  }
+  deriving (Eq, Ord, Show)
+
+data ASTMode
+  = ALaCarte
+  | Precise
+  deriving (Bounded, Enum, Eq, Ord, Read, Show)

src/Semantic/CLI.hs

@@ -98,25 +98,15 @@ diffCommand = command "diff" (info diffArgumentsParser (progDesc "Compute change
       filesOrStdin <- Right <$> some (Both <$> argument filePathReader (metavar "FILE_A") <*> argument filePathReader (metavar "FILE_B")) <|> pure (Left stdin)
       pure $ Task.readBlobPairs filesOrStdin >>= renderer
 
-newtype LanguageModes = LanguageModes
-  { pythonMode :: ASTMode
-  }
-  deriving (Eq, Ord, Show)
-
-data ASTMode
-  = ALaCarte
-  | Precise
-  deriving (Bounded, Enum, Eq, Ord, Read, Show)
-
 parseCommand :: Mod CommandFields (Task.TaskEff Builder)
 parseCommand = command "parse" (info parseArgumentsParser (progDesc "Generate parse trees for path(s)"))
   where
     parseArgumentsParser = do
-      language <- LanguageModes
+      language <- Language.LanguageModes
         <$> option auto (  long "python-mode"
                         <> help "The AST representation to use for Python sources"
                         <> metavar "ALaCarte|Precise"
-                        <> value ALaCarte
+                        <> value Language.ALaCarte
                         <> showDefault)
       renderer
         <-  flag  (parseTermBuilder TermSExpression)