SglPend: Broken Code Gen.

code/drasil-example/sglpend/app/Main.hs

@@ -2,15 +2,16 @@ module Main (main) where
 
 import GHC.IO.Encoding
 
-import Drasil.Generator (gen, typeCheckSI, genDot, 
+import Drasil.Generator (gen, typeCheckSI, genCode, genDot, 
   DocSpec(DocSpec), DocType(SRS), Format(..), docChoices, dumpEverything)
 import Drasil.SglPend.Body (srs, printSetting, fullSI)
-
+import Drasil.SglPend.Choices (choices, code)
 
 main :: IO()
 main = do
   setLocaleEncoding utf8
   dumpEverything fullSI printSetting ".drasil/"
   typeCheckSI fullSI
   gen (DocSpec (docChoices SRS [HTML, TeX, Jupyter, MDBook]) "SglPend_SRS") srs printSetting
+  genCode choices code
   genDot fullSI

code/drasil-example/sglpend/lib/Drasil/SglPend/Choices.hs

@@ -0,0 +1,26 @@
+module Drasil.SglPend.Choices where
+
+import Language.Drasil.Code (Choices(..), AuxFile(ReadME), Comments(..),
+    ConstantStructure(Store), Lang(..), CodeSpec, defaultChoices, makeArchit,
+    makeConstraints, makeData, makeDocConfig, makeLogConfig, makeOptFeats,
+    ConstantRepr(Const), ConstraintBehaviour(Warning),
+    ImplementationType(Program), Modularity(Modular), Structure(..),
+    Verbosity(Quiet), Visibility(Hide), codeSpec)
+
+import Drasil.SglPend.Body (fullSI)
+
+code :: CodeSpec
+code = codeSpec fullSI choices []
+
+choices :: Choices
+choices = defaultChoices {
+  lang = [Python, Cpp, CSharp, Java],
+  architecture = makeArchit Modular Program,
+  dataInfo = makeData Unbundled (Store Bundled) Const,
+  optFeats = makeOptFeats
+    (makeDocConfig [CommentFunc, CommentClass, CommentMod] Quiet Hide)
+    (makeLogConfig [] "log.txt")
+    [ReadME],
+  srsConstraints = makeConstraints Warning Warning,
+  extLibs = []
+}