<div dir="auto"><div>You need to use a view pattern with an explicitly bidirectional pattern synonym:</div><div dir="auto"><br></div><div dir="auto"><span style="font-family:sans-serif">pattern P :: (Int,Int) -> Foo</span><br style="font-family:sans-serif"><span style="font-family:sans-serif">pattern P xy <- ((\(Foo x y) -> (x, y)) -> xy)</span></div><div dir="auto"><font face="sans-serif">  where</font></div><div dir="auto"><font face="sans-serif">    P (x, y) = Foo x y</font></div><div dir="auto"><font face="sans-serif"><br></font></div><div dir="auto">If the Foo type had more than one constructor, then you'd need to do something a bit trickier, like</div><div dir="auto"><br></div><div dir="auto"><div dir="auto" style="font-family:sans-serif">pattern P xy <- ((\case</div><div dir="auto" style="font-family:sans-serif">                               Foo x y -> Just (x, y)</div><div dir="auto" style="font-family:sans-serif">                               _ -> Nothing) -> Just xy)</div><div dir="auto" style="font-family:sans-serif"><font face="sans-serif">  where</font></div><div dir="auto" style="font-family:sans-serif"><font face="sans-serif">    P (x, y) = Foo x y</font></div></div><div dir="auto"><br><div class="gmail_quote" dir="auto"><div dir="ltr" class="gmail_attr">On Sun, May 17, 2020, 11:57 PM Kazu Yamamoto <<a href="mailto:kazu@iij.ad.jp">kazu@iij.ad.jp</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hi,<br>
<br>
I have a question about PatternSynonyms. Suppose we have:<br>
<br>
   data Foo = Foo Int Int<br>
<br>
I would like to define a pattern as follows:<br>
<br>
   pattern P :: (Int,Int) -> Foo<br>
   pattern P (x,y)  = Foo x y<br>
<br>
But this results in "parse error on input ‘(’". Are there any ways to<br>
use tuple in the left side hand of patterns?<br>
<br>
This is important to maintain backward compatibility for the "network"<br>
library.<br>
<br>
If there is no way, I will define Foo as:<br>
<br>
   data Foo = Foo (Int,Int) -- awkward<br>
<br>
and define P as:<br>
<br>
   pattern P :: (Int,Int) -> Foo<br>
   pattern P xy = Foo xy<br>
<br>
Regards,<br>
<br>
--Kazu<br>
_______________________________________________<br>
Haskell-Cafe mailing list<br>
To (un)subscribe, modify options or view archives go to:<br>
<a href="http://mail.haskell.org/cgi-bin/mailman/listinfo/haskell-cafe" rel="noreferrer noreferrer" target="_blank">http://mail.haskell.org/cgi-bin/mailman/listinfo/haskell-cafe</a><br>
Only members subscribed via the mailman list are allowed to post. lol</blockquote></div></div></div>