@@ -229,7 +229,7 @@ panToBogusNumber (CreditCardPAN txt) = do
229 return $ CreditCardNumber $ sconcat $ NE.fromList [leading, middle, trailing]
229 return $ CreditCardNumber $ sconcat $ NE.fromList [leading, middle, trailing]
231#ifndef ghcjs_HOST_OS
231#ifndef ghcjs_HOST_OS
232−#ifdef USE_CASSAVA
232+#ifdef USE_POSTGRES
233deriving instance FromField CreditCardPAN
233deriving instance FromField CreditCardPAN
234deriving instance ToField CreditCardPAN
234deriving instance ToField CreditCardPAN