fix #83

CSchank · May 23, 2019 · d2fde7a · d2fde7a
1 parent 56796fc
commit d2fde7a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/package.yaml b/package.yaml
@@ -1,5 +1,5 @@
 name:                petri-app-land
-version:             0.1.10.0
+version:             0.1.11.0
 github:              "cschank/petri-app-land"
 license:             BSD3
 author:              "Christopher William Schankula"

diff --git a/src/Generate/Net/Client.hs b/src/Generate/Net/Client.hs
@@ -68,7 +68,6 @@ generate extraTypes fp net =
                     ,   T.unlines imports
                     , ""
                     , "-- the types of all places in the net"
-                    , "type Dummy = Dummy"
                     , generateNetTypes name places -- the initial places
                     , "type Transition ="] ++
                     (if length internalClientTransitions > 0 then 
@@ -451,7 +450,7 @@ generate extraTypes fp net =
                         ,   "import Dict exposing (Dict)"
                         ,   "x = 0"
                        -- ,   T.unlines $ map (createWrap extraTypes (length places > 1) Elm "IncomingMessage" "M") incomingCM
-                       ,   T.unlines $ map (createUnwrap Elm "OutgoingTransition" "T") $ map trans2constr (outgoingClientTransitions True)
+                       ,   T.unlines $ map (createUnwrap Elm "OutgoingTransition" "T") $ map trans2constr $ outgoingClientTransitions False
                        ,   T.unlines $ map (createUnwrap Elm "InternalTransition" "T") $ map trans2constr internalClientTransitions
                        ]
                 hiddenView =