1 files changed, 0 insertions, 28 deletions
diff --git a/src/GF/Devel/GFCCInterpreter.hs b/src/GF/Devel/GFCCInterpreter.hs
deleted file mode 100644
index b2b17dba7..000000000
--- a/src/GF/Devel/GFCCInterpreter.hs
+++ /dev/null
@@ -1,28 +0,0 @@
-module Main where
-
-import GF.Command.Interpreter
-import GF.Command.Commands
-import GF.GFCC.API
-import System (getArgs)
-import Data.Char (isDigit)
-
--- Simple translation application built on GFCC. AR 7/9/2006 -- 19/9/2007
-
-main :: IO ()
-main = do
-  file:_  <- getArgs
-  grammar <- file2grammar file
-  let env = CommandEnv grammar (allCommands grammar)
-  printHelp grammar
-  loop env
-
-loop :: CommandEnv -> IO ()
-loop env = do
-  s <- getLine
-  if s == "q" then return () else do
-    interpretCommandLine env s
-    loop env
-
-printHelp grammar = do
-  putStrLn $ "languages:  " ++ unwords (languages grammar)
-  putStrLn $ "categories: " ++ unwords (categories grammar)