eleteLnFromFile :: String -> String -> IO ()
deleteLnFromFile str2del fileName = do
    strings <- readFileLnSeparated fileName
    writeFile file . unlines $ delStr str2del strings
    where file = "db" ++ pathSeparator:(takeFileName fileName)
          delStr str (x:xs) 
            | str == x  = delStr str xs
            | otherwise = x:delStr str xs
          delStr _ [] = []

deleteLnFromFile :: String -> String -> IO ()
deleteLnFromFile str2del fileName = do
    strings <- readFileLnSeparated fileName
    writeFile file . unlines $ delStr str2del strings
    where file = "db" ++ pathSeparator:(takeFileName fileName)
          delStr str (x:xs) 
            | str == x  = delStr str xs
            | otherwise = x:delStr str xs
          delStr _ [] = []
deleteLnFromFile str2del fileName = do
    strings <- readFileLnSeparated fileName
    writeFile file . unlines $ delStr str2del strings
    where file = "db" ++ pathSeparator:(takeFileName fileName)
          delStr str (x:xs) 
            | str == x  = delStr str xs
            | otherwise = x:delStr str xs
          delStr _ [] = []