Identifier.hs

type LineNumber = Int
type ColumnNumber = Int

data Identifier = Identifier {
    typeId :: String
    , value :: String
    , position :: (LineNumber, ColumnNumber)
    , children :: [Identifier]
} deriving (Show)

main = do
    let a = Identifier {
            typeId="?",
            value="",
            position=(-1, -1),
            children=[]
        }

    let b = Identifier { typeId="?", value="", position=(-1, -1), children=(a:[a]) }
    print b