@@ -121,7 +121,7 @@ isExportable tipe =
121 T.Data "JSArray" [t] -> isExportable t
121 T.Data "JSArray" [t] -> isExportable t
123 T.Data name []
123 T.Data name []
124− | name `elem` jsTypes -> Nothing
124+ | any (`List.isSuffixOf` name) jsTypes -> Nothing
125 | otherwise -> Just $ "'" ++ name ++ "' is not an exportable type." ++ msg
125 | otherwise -> Just $ "'" ++ name ++ "' is not an exportable type." ++ msg
127 T.Data name _ ->
127 T.Data name _ ->