remove old imports.

wavewave · Aug 11, 2023 · 17975cc · 17975cc
1 parent bd8647d
commit 17975cc
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 21 deletions.
diff --git a/fficxx/src/FFICXX/Generate/Code/HsImplementation.hs b/fficxx/src/FFICXX/Generate/Code/HsImplementation.hs
@@ -20,7 +20,6 @@ import Control.Monad.Reader (Reader)
 import FFICXX.Generate.Code.Primitive
   ( accessorSignature,
     cxx2HsType,
-    functionSignature,
     functionSignature',
     hsFuncXformer,
   )
@@ -55,23 +54,8 @@ import FFICXX.Generate.Util.GHCExactPrint
     mkInstance,
     mkVar,
   )
-import qualified FFICXX.Generate.Util.HaskellSrcExts as O
-  ( cxEmpty,
-    insDecl,
-    mkBind1,
-    mkFun,
-    mkInstance,
-    mkVar,
-  )
 import GHC.Hs (GhcPs)
-import qualified Language.Haskell.Exts.Build as O (app)
-import qualified Language.Haskell.Exts.Syntax as O
-  ( Decl,
-  )
-import Language.Haskell.Syntax
-  ( HsDecl,
-    ImportDecl,
-  )
+import Language.Haskell.Syntax (HsDecl, ImportDecl)
 
 --
 -- import

diff --git a/fficxx/src/FFICXX/Generate/ContentMaker.hs b/fficxx/src/FFICXX/Generate/ContentMaker.hs
@@ -512,13 +512,11 @@ buildImplementationHs amap m =
     f y = concatMap (flip genHsFrontInst y) (y : class_allparents y)
     implBody =
       concatMap f classes
-
-{-        <> runReader (concat <$> mapM genHsFrontInstNew classes) amap
+        <> runReader (concat <$> mapM genHsFrontInstNew classes) amap
         <> concatMap genHsFrontInstNonVirtual classes
         <> concatMap genHsFrontInstStatic classes
         <> concatMap genHsFrontInstVariables classes
-        <> genTemplateMemberFunctions (cmCIH m)
--}
+--        <> genTemplateMemberFunctions (cmCIH m)
 
 buildProxyHs :: ClassModule -> HsModule GhcPs
 buildProxyHs m =