singleCell :: GenParser Char st [PropertyToken]
singleCell = do
    identation 8
    coords <- intTuple2
    trueSpaces >> char ':' >> trueSpaces
    o <- object
    lineEnd
    return $ [CellProperty S.cell coords o]
singleCell :: GenParser Char st [PropertyToken]
singleCell = do
    identation 8
    coords <- intTuple2
    trueSpaces >> char ':' >> trueSpaces
    o <- object
    lineEnd
    return $ [CellProperty S.cell coords o]
singleCell = do
    identation 8
    coords <- intTuple2
    trueSpaces >> char ':' >> trueSpaces
    o <- object
    lineEnd
    return $ [CellProperty S.cell coords o]