1 files changed, 26 insertions, 0 deletions
diff --git a/libraries/base/tools/ucd2haskell/exe/UCD2Haskell.hs b/libraries/base/tools/ucd2haskell/exe/UCD2Haskell.hs
new file mode 100644
index 0000000000..f8f0516557
--- /dev/null
+++ b/libraries/base/tools/ucd2haskell/exe/UCD2Haskell.hs
@@ -0,0 +1,26 @@
+-- |
+-- Module      : Main
+-- Copyright   : (c) 2020 Composewell Technologies and Contributors
+-- License     : BSD-3-Clause
+-- Maintainer  : streamly@composewell.com
+-- Stability   : internal
+--
+module Main where
+
+import WithCli (HasArguments(..), withCli)
+import Parser.Text (genModules)
+import GHC.Generics (Generic)
+
+data CLIOptions =
+    CLIOptions
+        { input :: String
+        , output :: String
+        , core_prop :: [String]
+        }
+    deriving (Show, Generic, HasArguments)
+
+cliClient :: CLIOptions -> IO ()
+cliClient opts = genModules (input opts) (output opts) (core_prop opts)
+
+main :: IO ()
+main = withCli cliClient