normalize-spec ( spec -- )

Vocabulary

db.types

Inputs

spec	an SQL spec

Outputs

None

Word description

Normalizes an SQL spec.

Definition

USING: accessors kernel sequences.deep ;

IN: db.types

: normalize-spec ( spec -- )
    dup type>> dup +primary-key+?
    [ >>primary-key drop ] [
        drop dup modifiers>> [ +primary-key+? ] deep-find
        [ >>primary-key drop ] [ drop ] if*
    ] if ;