+ pPrint (SignalInfo name use ty) =
+ text ":" <> (pPrint use) <> (ppname name)
+ where
+ ppname Nothing = empty
+ ppname (Just name) = text ":" <> text name
+
+instance Pretty SigUse where
+ pPrint SigPort = text "P"
+ pPrint SigInternal = text "I"
+ pPrint SigState = text "S"
+ pPrint SigSubState = text "s"