Looking up in a type class from a module

1 files changed, 1 insertions, 1 deletions

diff --git a/lib/basis.lig b/lib/basis.lig
index 6fe847b9..01b3fab8 100644
--- a/lib/basis.lig
+++ b/lib/basis.lig
@@ -26,7 +26,7 @@ val sql_query : tables :: {({Type} * {Type})}
         -> sql_query (fold (fn nm => fn selected_unselected :: ({Type} * {Type}) => fn acc => [nm] ~ acc =>
                 [nm = selected_unselected.1] ++ acc) [] tables)
 
-con sql_type :: Type -> Type
+class sql_type
 val sql_bool : sql_type bool
 val sql_int : sql_type int
 val sql_float : sql_type float