entrytree_insert :: Entry a => [EntryTree a] -> InsertWhere -> [EntryTree a] -> ([EntryTree a], Loc)

entrytree_insert et First eins =
    (eins ++ et, Loc [0])
entrytree_insert :: Entry a => [EntryTree a] -> InsertWhere -> [EntryTree a] -> ([EntryTree a], Loc)
entrytree_insert et First eins =
    (eins ++ et, Loc [0])
entrytree_insert et First eins =
    (eins ++ et, Loc [0])