<pre style="margin-top:0px;margin-bottom:0px;font-size:13px;text-align:left;background-color:rgb(255,255,255)"><span class="hs-keyword"><font face="arial, helvetica, sans-serif">I'm trying to use postgresql enum types to represent Haskell types like in the code snippet below but an receiving the following error:</font></span></pre>
<pre style="margin-top:0px;margin-bottom:0px;font-size:13px;text-align:left;background-color:rgb(255,255,255)"><span class="hs-keyword"><pre style="color:rgb(0,0,0);text-align:-webkit-auto;word-wrap:break-word;white-space:pre-wrap">
"Incompatible {errSQLType = "x", errHaskellType = "Text", errMessage = "types incompatible"}"</pre><pre style="color:rgb(0,0,0);text-align:-webkit-auto;word-wrap:break-word;white-space:pre-wrap">
<font face="arial, helvetica, sans-serif">In other areas of my code (not shown) I'm successfully using Text to convert to and from Postgersql enum types but it doesn't seem to work in the case below. Any ideas what I'm doing wrong?</font></pre>
<pre style="color:rgb(0,0,0);text-align:-webkit-auto;word-wrap:break-word;white-space:pre-wrap"><font face="arial, helvetica, sans-serif">Thanks, Luke</font></pre><pre style="color:rgb(0,0,0);text-align:-webkit-auto;word-wrap:break-word;white-space:pre-wrap">
<br></pre></span></pre><pre style="margin-top:0px;margin-bottom:0px;font-size:13px;text-align:left;background-color:rgb(255,255,255)"><span class="hs-keyword" style="color:rgb(57,116,96)"><br></span></pre><pre style="margin-top:0px;margin-bottom:0px;font-size:13px;text-align:left;background-color:rgb(255,255,255)">
<span class="hs-keyword" style="color:rgb(57,116,96)"><br></span></pre><pre style="margin-top:0px;margin-bottom:0px;font-size:13px;text-align:left;background-color:rgb(255,255,255)"><span class="hs-keyword" style="color:rgb(57,116,96)">import</span> <span class="hs-conid" style="color:rgb(79,67,113)">Database</span><span class="hs-varop" style="color:rgb(51,51,51)">.</span><span class="hs-conid" style="color:rgb(79,67,113)">PostgreSQL</span><span class="hs-varop" style="color:rgb(51,51,51)">.</span><span class="hs-conid" style="color:rgb(79,67,113)">Simple</span><span class="hs-varop" style="color:rgb(51,51,51)">.</span><span class="hs-conid" style="color:rgb(79,67,113)">FromField</span> <span class="hs-layout">(</span><span class="hs-conid" style="color:rgb(79,67,113)">FromField</span><span class="hs-layout">,</span> <span class="hs-varid" style="color:rgb(51,51,51)">fromField</span><span class="hs-layout">)</span>
<span class="hs-keyword" style="color:rgb(57,116,96)">import</span> <span class="hs-conid" style="color:rgb(79,67,113)">Database</span><span class="hs-varop" style="color:rgb(51,51,51)">.</span><span class="hs-conid" style="color:rgb(79,67,113)">PostgreSQL</span><span class="hs-varop" style="color:rgb(51,51,51)">.</span><span class="hs-conid" style="color:rgb(79,67,113)">Simple</span><span class="hs-varop" style="color:rgb(51,51,51)">.</span><span class="hs-conid" style="color:rgb(79,67,113)">FromRow</span> <span class="hs-layout">(</span><span class="hs-conid" style="color:rgb(79,67,113)">FromRow</span><span class="hs-layout">,</span> <span class="hs-varid" style="color:rgb(51,51,51)">field</span><span class="hs-layout">,</span> <span class="hs-varid" style="color:rgb(51,51,51)">fromRow</span><span class="hs-layout">)</span>
<span class="hs-keyword" style="color:rgb(57,116,96)">import</span> <span class="hs-conid" style="color:rgb(79,67,113)">Database</span><span class="hs-varop" style="color:rgb(51,51,51)">.</span><span class="hs-conid" style="color:rgb(79,67,113)">PostgreSQL</span><span class="hs-varop" style="color:rgb(51,51,51)">.</span><span class="hs-conid" style="color:rgb(79,67,113)">Simple</span><span class="hs-varop" style="color:rgb(51,51,51)">.</span><span class="hs-conid" style="color:rgb(79,67,113)">SqlQQ</span> <span class="hs-layout">(</span><span class="hs-varid" style="color:rgb(51,51,51)">sql</span><span class="hs-layout">)</span>
<span class="hs-keyword" style="color:rgb(57,116,96)">data</span> <span class="hs-conid" style="color:rgb(79,67,113)">X</span> <span class="hs-keyglyph">=</span> <span class="hs-conid" style="color:rgb(79,67,113)">X</span> <span class="hs-conid" style="color:rgb(79,67,113)">Float</span>
<span class="hs-keyglyph">|</span> <span class="hs-conid" style="color:rgb(79,67,113)">Y</span> <span class="hs-conid" style="color:rgb(79,67,113)">Float</span>
<span class="hs-definition">buildX</span> <span class="hs-keyglyph">::</span> <span class="hs-conid" style="color:rgb(79,67,113)">Text</span> <span class="hs-keyglyph">-></span> <span class="hs-conid" style="color:rgb(79,67,113)">Float</span> <span class="hs-keyglyph">-></span> <span class="hs-conid" style="color:rgb(79,67,113)">X</span>
<span class="hs-definition">buildX</span> <span class="hs-str" style="color:rgb(54,99,84)">"x"</span> <span class="hs-keyglyph">=</span> <span class="hs-conid" style="color:rgb(79,67,113)">X</span>
<span class="hs-definition">buildX</span> <span class="hs-str" style="color:rgb(54,99,84)">"y"</span> <span class="hs-keyglyph">=</span> <span class="hs-conid" style="color:rgb(79,67,113)">Y</span>
<span class="hs-keyword" style="color:rgb(57,116,96)">instance</span> <span class="hs-conid" style="color:rgb(79,67,113)">FromField</span> <span class="hs-layout">(</span><span class="hs-conid" style="color:rgb(79,67,113)">Float</span> <span class="hs-keyglyph">-></span> <span class="hs-conid" style="color:rgb(79,67,113)">X</span><span class="hs-layout">)</span> <span class="hs-keyword" style="color:rgb(57,116,96)">where</span>
<span class="hs-varid" style="color:rgb(51,51,51)">fromField</span> <span class="hs-varid" style="color:rgb(51,51,51)">f</span> <span class="hs-varid" style="color:rgb(51,51,51)">v</span> <span class="hs-keyglyph">=</span> <span class="hs-varid" style="color:rgb(51,51,51)">buildX</span> <span class="hs-varop" style="color:rgb(51,51,51)"><$></span> <span class="hs-varid" style="color:rgb(51,51,51)">fromField</span> <span class="hs-varid" style="color:rgb(51,51,51)">f</span> <span class="hs-varid" style="color:rgb(51,51,51)">v</span>
<span class="hs-keyword" style="color:rgb(57,116,96)">instance</span> <span class="hs-conid" style="color:rgb(79,67,113)">FromRow</span> <span class="hs-conid" style="color:rgb(79,67,113)">X</span> <span class="hs-keyword" style="color:rgb(57,116,96)">where</span>
<span class="hs-varid" style="color:rgb(51,51,51)">fromRow</span> <span class="hs-keyglyph">=</span> <span class="hs-varid" style="color:rgb(51,51,51)">field</span> <span class="hs-varop" style="color:rgb(51,51,51)"><*></span> (field :: RowParser Float)</pre>
<pre style="margin-top:0px;margin-bottom:0px;font-size:13px;text-align:left;background-color:rgb(255,255,255)"><br></pre><pre style="margin-top:0px;margin-bottom:0px;font-size:13px;text-align:left;background-color:rgb(255,255,255)">
<br></pre>