tower backend: fixup string name for Input monitor

src/Gidl/Backend/Tower/Schema.hs

@@ -122,7 +122,7 @@ schemaDoc interfaceName (Schema schemaName schema) = stack
     , indent 2 $ stack
         [ towerMonadDependencies
         , text "frame_ch <- channel"
-        , text "monitor" <+> dquotes (text (outputFuncName typeName))
+        , text "monitor" <+> dquotes (text (inputFuncName typeName))
             <+> text "$ do"
         , indent 2 $ stack
             [ text "handler" <+> parens (accessorName n <+> text "a")