on master help sign in
Only commit to `port module` if the whole token is there
11b0cc0Evan Czaplicki
src/Parse/Module.hs+1−1
@@ -96,7 +96,7 @@ parseTag =
96 return (Module.Effect (R.Region start end))
96 return (Module.Effect (R.Region start end))
97 ,
97 ,
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