refactor interface conversion

4bebb85c · Zachary Snow · aca24ebe · 4bebb85c · 4bebb85c
Commit 4bebb85c authored Jun 20, 2020 by Zachary Snow
Expand all Show whitespace changes
Inline Side-by-side

Showing with 1 additions and 2 deletions

src/Convert/Interface.hs
+0 -0

src/Convert/Logic.hs
+1 -2

No files found.
--- a/src/Convert/Interface.hs
+++ b/src/Convert/Interface.hs
--- a/src/Convert/Logic.hs
+++ b/src/Convert/Logic.hs
@@ -52,8 +52,7 @@ convert =
                lookupDir portName =
                    case lookup portName dirs of
                        Just dir -> dir
-                        Nothing -> error $ "Could not find dir for port " ++
+                        Nothing -> Inout
-                                        portName ++ " in module " ++ name
        collectPortsM _ = return ()
        collectDeclDirsM :: ModuleItem -> Writer [(Identifier, Direction)] ()
        collectDeclDirsM (MIPackageItem (Decl (Variable dir t ident _ _))) =