Pārlūkot izejas kodu

ivory-backend: remove unpack module

Pat Hickey 9 gadi atpakaļ
vecāks
revīzija
e32b7945ad
3 mainītis faili ar 7 papildinājumiem un 17 dzēšanām
  1. 0 1
      gidl.cabal
  2. 7 1
      src/Gidl/Backend/Ivory.hs
  3. 0 15
      src/Gidl/Backend/Ivory/Unpack.hs

+ 0 - 1
gidl.cabal

@@ -31,7 +31,6 @@ library
                        Gidl.Backend.Ivory.Interface,
                        Gidl.Backend.Ivory.Test,
                        Gidl.Backend.Ivory.Types,
-                       Gidl.Backend.Ivory.Unpack,
                        Gidl.Backend.Tower
 
   other-modules:       Paths_gidl

+ 7 - 1
src/Gidl/Backend/Ivory.hs

@@ -14,7 +14,6 @@ import Gidl.Schema
 import Gidl.Backend.Cabal
 import Gidl.Backend.Ivory.Types
 import Gidl.Backend.Ivory.Interface
-import Gidl.Backend.Ivory.Unpack
 
 ivoryBackend :: TypeEnv -> InterfaceEnv -> String -> String -> [Artifact]
 ivoryBackend te ie pkgname namespace_raw =
@@ -65,3 +64,10 @@ codegenTest modulepath =
   where
   fname = "support/ivory/CodeGen.hs.template"
 
+unpackModule :: [String] -> Artifact
+unpackModule modulepath =
+  artifactPath (intercalate "/" modulepath) $
+  artifactCabalFileTemplate P.getDataDir fname
+    [("module_path", intercalate "." modulepath )]
+  where
+  fname = "support/ivory/Unpack.hs.template"

+ 0 - 15
src/Gidl/Backend/Ivory/Unpack.hs

@@ -1,15 +0,0 @@
-
-module Gidl.Backend.Ivory.Unpack where
-
-import Data.List (intercalate)
-import Ivory.Artifact
-import Ivory.Artifact.Template
-import qualified Paths_gidl as P
-
-unpackModule :: [String] -> Artifact
-unpackModule modulepath =
-  artifactPath (intercalate "/" modulepath) $
-  artifactCabalFileTemplate P.getDataDir fname
-    [("module_path", intercalate "." modulepath )]
-  where
-  fname = "support/ivory/Unpack.hs.template"