added interval type to parser and compiler.

IHP/IDE/SchemaDesigner/Compiler.hs

@@ -184,6 +184,7 @@ compilePostgresType PPolygon = "POLYGON"
 compilePostgresType PDate = "DATE"
 compilePostgresType PBinary = "BYTEA"
 compilePostgresType PTime = "TIME"
+compilePostgresType PInterval = "INTERVAL"
 compilePostgresType (PNumeric (Just precision) (Just scale)) = "NUMERIC(" <> show precision <> "," <> show scale <> ")"
 compilePostgresType (PNumeric (Just precision) Nothing) = "NUMERIC(" <> show precision <> ")"
 compilePostgresType (PNumeric Nothing _) = "NUMERIC"

IHP/IDE/SchemaDesigner/Controller/Columns.hs

@@ -218,4 +218,4 @@ validateColumn = validateNameInSchema "column name" [] Nothing
 referencingColumnForeignKeyConstraints tableName columnName =
     find \case
         AddConstraint { tableName = constraintTable, constraint = ForeignKeyConstraint { columnName = fkColumnName  }  } -> constraintTable == tableName && fkColumnName == columnName
-        otherwise -> False
+        otherwise -> False

IHP/IDE/SchemaDesigner/Parser.hs

@@ -246,6 +246,7 @@ sqlType :: Parser PostgresType
 sqlType = choice $ map optionalArray
         [ uuid
         , text
+        , interval --Needs higher precedence eotherwise parsed as Int
         , bigint
         , smallint
         , int   -- order int after smallint/bigint because symbol INT is prefix og INT2, INT8
@@ -347,6 +348,12 @@ sqlType = choice $ map optionalArray
                         symbol' "ZONE"
                     pure PTime
 
+                interval = do
+                    try (symbol' "INTERVAL")
+                    optional do
+                          choice $ map symbol' intervalFields
+                    pure PInterval
+
                 numericPS = do
                     try (symbol' "NUMERIC(")
                     values <- between (space) (char ')' >> space) (varExpr `sepBy` (char ',' >> space))
@@ -430,6 +437,13 @@ sqlType = choice $ map optionalArray
                     theType <- try (takeWhile1P (Just "Custom type") (\c -> isAlphaNum c || c == '_'))
                     pure (PCustomType theType)
 
+
+intervalFields :: [Text]
+intervalFields =  [ "YEAR TO MONTH", "DAY TO HOUR", "DAY TO MINUTE", "DAY TO SECOND"
+                   , "HOUR TO MINUTE", "HOUR TO SECOND", "MINUTE TO SECOND"
+                   , "YEAR",  "MONTH", "DAY", "HOUR", "MINUTE", "SECOND"]
+
+
 term = parens expression <|> try callExpr <|> try doubleExpr <|> try intExpr <|> selectExpr <|> varExpr <|> (textExpr <* optional space)
     where
         parens f = between (char '(' >> space) (char ')' >> space) f

IHP/IDE/SchemaDesigner/Types.hs

@@ -211,6 +211,7 @@ data PostgresType
     | PDate
     | PBinary
     | PTime
+    | PInterval
     | PNumeric { precision :: Maybe Int, scale :: Maybe Int }
     | PVaryingN (Maybe Int)
     | PCharacterN Int

IHP/IDE/SchemaDesigner/View/Columns/Edit.hs

@@ -123,6 +123,7 @@ typeSelector postgresType enumNames = [hsx|
                 {option isSelected "POINT" "Point"}
                 {option isSelected "BYTEA" "Binary"}
                 {option isSelected "Time" "Time"}
+                {option isSelected "INTERVAL" "Interval"}
                 {option isSelected "BIGSERIAL" "Bigserial"}
                 {option isSelected "SMALLINT" "Int (16bit)"}
                 {option isSelected "BIGINT" "Int (64bit)"}