X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Pretty.hs;h=433c15a7abdc29914c2a6f84d0cd89a9f2cb2512;hb=ee2454dbeb8d41d615726593acd8600c4a3253ae;hp=cb1f9fc7c1256900cb0476f0c993f43c953fdc3d;hpb=9b7d00ad53acfc821840051ef693d87470b4462b;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Pretty.hs b/Pretty.hs
index cb1f9fc..433c15a 100644
--- a/Pretty.hs
+++ b/Pretty.hs
@@ -79,7 +79,7 @@ instance Pretty SignalExpr where
     parens $ pPrint a <> text " = " <> pPrint b
 
 instance Pretty SignalInfo where
-  pPrint (SignalInfo name use ty) =
+  pPrint (SignalInfo name use ty hints) =
     text ":" <> (pPrint use) <> (ppname name)
     where
       ppname Nothing = empty