diff --git a/tools/haskell-translator/lhs_pars.py b/tools/haskell-translator/lhs_pars.py
index ecdd94604d..e51537e98e 100644
--- a/tools/haskell-translator/lhs_pars.py
+++ b/tools/haskell-translator/lhs_pars.py
@@ -706,6 +706,8 @@ def typename_transform(line, header, d):
         # take off the prefix, leave Word32 or Word64 etc
         oldtype = oldtype[10:]
     oldtype = type_conv(oldtype)
+    # get rid of (), insert unit
+    oldtype = 'unit'.join(oldtype.split('()'))
     bits = oldtype.split()
     for bit in bits:
         d.typedeps.add(bit)