@@ -96,7 +96,7 @@ parseTag =
96 return (Module.Effect (R.Region start end))
96 return (Module.Effect (R.Region start end))
98 do start <- getMyPosition
98 do start <- getMyPosition
99− reserved "port"
99+ try (reserved "port")
100 whitespace
100 whitespace
101 reserved "module"
101 reserved "module"
102 end <- getMyPosition
102 end <- getMyPosition