diff --git a/hasqlator-mysql.cabal b/hasqlator-mysql.cabal
--- a/hasqlator-mysql.cabal
+++ b/hasqlator-mysql.cabal
@@ -1,5 +1,5 @@
 Name:		hasqlator-mysql
-Version: 	0.0.2
+Version: 	0.0.3
 Synopsis:	composable SQL generation
 Category: 	Database
 Copyright: 	Kristof Bastiaensen (2020)
diff --git a/src/Database/MySQL/Hasqlator/Typed/Schema.hs b/src/Database/MySQL/Hasqlator/Typed/Schema.hs
--- a/src/Database/MySQL/Hasqlator/Typed/Schema.hs
+++ b/src/Database/MySQL/Hasqlator/Typed/Schema.hs
@@ -211,9 +211,9 @@
   LazyText.unlines $ ((name <> " = ") : ) $
   map ("  " <>) $ LazyText.lines $ pShowNoColor ti
 
-columnTHType :: ColumnInfo -> Q Type
-columnTHType ColumnInfo{ columnType, columnNullable}
-  | columnNullable = [t| Maybe $(tp) |]
+columnTHType :: Bool -> ColumnInfo -> Q Type
+columnTHType ignoreMaybe ColumnInfo{ columnType, columnNullable}
+  | columnNullable && not ignoreMaybe = [t| Maybe $(tp) |]
   | otherwise = tp
   where tp = case columnType of
           TinyIntColumn _  -> [t| Int |]
@@ -299,7 +299,7 @@
                  $(if columnNullable
                     then promotedT 'T.Nullable
                     else promotedT 'T.NotNull)
-                 $(columnTHType ci)
+                 $(columnTHType True ci)
                |]
            , valD (varP $ mkName $ fieldNameModifier props fieldName)
              (normalB [e| T.Field
@@ -353,7 +353,7 @@
         Text.unpack columnName)
       $(litT $ strTyLit $ Text.unpack columnTableName)
       $(promotedT $ if columnNullable then 'T.Nullable else 'T.NotNull)
-      $(columnTHType ci)
+      $(columnTHType True ci)
       |]
   [valD (varP $ mkName $ fieldNameModifier props fieldName)
              (normalB [e| T.Field
@@ -371,14 +371,14 @@
   (mkName typeName)
   []
   Nothing
-  [recC (mkName typeName) $ map columnTypes (tableColumns ti) ]
+  [recC (mkName typeName) $ map columnTypes $ tableColumns ti ]
   []
-  where typeName = insertorTypeModifier props (Text.unpack $ tableName ti)
+  where typeName = insertorTypeModifier props $ Text.unpack $ tableName ti
         columnTypes ci =
-          ( (mkName $ insertorFieldModifier props $ Text.unpack $ columnName ci)
+          ( mkName $ insertorFieldModifier props $ Text.unpack $ columnName ci
           , Bang NoSourceUnpackedness NoSourceStrictness
           ,
-          ) <$> columnTHType ci
+          ) <$> columnTHType False ci
     
   
 insertor :: Properties -> Name -> TableInfo -> Q [Dec]
@@ -404,7 +404,7 @@
     insertorField ci = [e| $(sigE
                              (varE $ mkName $ insertorFieldModifier props $
                               Text.unpack $ columnName ci)
-                             [t| $(conT insertorTypeName) -> $(columnTHType ci)  |])
+                             [t| $(conT insertorTypeName) -> $(columnTHType False ci)  |])
                            `T.into`
                            $(varE $ mkName $ fieldNameModifier props $
                              Text.unpack $ columnName ci) |]