X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Pretty.hs;h=433c15a7abdc29914c2a6f84d0cd89a9f2cb2512;hb=6615a04d5d42a0e1875bd1a281372509ca64e641;hp=cb1f9fc7c1256900cb0476f0c993f43c953fdc3d;hpb=6b3da07384004751bc64ef88429f452dfe1cee45;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