fixup! fixup! Normalize index identifiers on construction

Author: crtschin

src/Database/PostgreSQL/PQTypes/Model/Index.hs

@@ -218,6 +218,7 @@ indexNameWith mask tname TableIndex {..} =
         , maybe "" (("__" <>) . hashWhere) idxWhere
         ]
   where
+    asText f = flip rawSQL () . f . unRawSQL
     (colMask, incMask) = splitAt (length idxColumns) (mask ++ repeat False)
     renderIdent quoted ident =
       flip rawSQL () . sanitize $
@@ -235,13 +236,12 @@ indexNameWith mask tname TableIndex {..} =
     -- hash WHERE clause and add it to index name so that indexes
     -- with the same columns, but different constraints can coexist
     hashWhere =
-      flip rawSQL ()
-        . T.decodeUtf8
-        . B16.encode
-        . BS.take 10
-        . RIPEMD160.hash
-        . T.encodeUtf8
-        . unRawSQL
+      asText $
+        T.decodeUtf8
+          . B16.encode
+          . BS.take 10
+          . RIPEMD160.hash
+          . T.encodeUtf8
 
 -- | Create an index. Warning: if the affected table is large, this will prevent
 -- the table from being modified during the creation. If this is not acceptable,