From 084c42feea1c9fb95f9ed41f335dbe222c04bd31 Mon Sep 17 00:00:00 2001
From: Erik Post <erik@shinsetsu.nl>
Date: Mon, 12 Aug 2019 01:00:28 +0200
Subject: [PATCH] Move QuickCheck generator for Parser into test dir. #148

---
 cli/Main.hs                                                     | 2 --
 .../Parser/Generator => test/Language/CQL/Parser}/Generator.hs  | 2 +-
 test/Parser/ParserSpec.hs                                       | 2 +-
 3 files changed, 2 insertions(+), 4 deletions(-)
 rename {src/Language/CQL/Parser/Generator => test/Language/CQL/Parser}/Generator.hs (97%)

diff --git a/cli/Main.hs b/cli/Main.hs
index 9651b75..c18fbdc 100644
--- a/cli/Main.hs
+++ b/cli/Main.hs
@@ -23,8 +23,6 @@ module Main where
 import           Language.CQL
 import           System.Environment
 
-import Language.CQL.Program
-
 main :: IO ()
 main = do
   args <- getArgs
diff --git a/src/Language/CQL/Parser/Generator/Generator.hs b/test/Language/CQL/Parser/Generator.hs
similarity index 97%
rename from src/Language/CQL/Parser/Generator/Generator.hs
rename to test/Language/CQL/Parser/Generator.hs
index bad2e9a..4763ce2 100644
--- a/src/Language/CQL/Parser/Generator/Generator.hs
+++ b/test/Language/CQL/Parser/Generator.hs
@@ -18,7 +18,7 @@ GNU Affero General Public License for more details.
 You should have received a copy of the GNU Affero General Public License
 along with this program.  If not, see <https://www.gnu.org/licenses/>.
 -}
-module Language.CQL.Parser.Generator.Generator where
+module Language.CQL.Parser.Generator where
 
 import           Language.CQL.Parser.ReservedWords
 import           Test.QuickCheck.Gen
diff --git a/test/Parser/ParserSpec.hs b/test/Parser/ParserSpec.hs
index c4e2c2a..044bc9f 100644
--- a/test/Parser/ParserSpec.hs
+++ b/test/Parser/ParserSpec.hs
@@ -22,7 +22,7 @@ along with this program.  If not, see <https://www.gnu.org/licenses/>.
 
 module Parser.ParserSpec where
 
-import           Language.CQL.Parser.Generator.Generator
+import           Language.CQL.Parser.Generator
 import           Language.CQL.Parser.Parser
 import           Language.CQL.Parser.ReservedWords
 import           Data.Either                             (isLeft)