eadFileLnSeparated :: String -> IO ([String])
readFileLnSeparated fileName = do
    cont <- readFile file
    length cont `seq` (return $ lines cont)
    where file = "db" ++ pathSeparator:(takeFileName fileName)

{-|
  Deletes given string line from 
  file if it exists.
  File is relative to execution directory
  and must exist in subfolder "db".
-}

readFileLnSeparated :: String -> IO ([String])
readFileLnSeparated fileName = do
    cont <- readFile file
    length cont `seq` (return $ lines cont)
    where file = "db" ++ pathSeparator:(takeFileName fileName)

{-|
  Deletes given string line from 
  file if it exists.
  File is relative to execution directory
  and must exist in subfolder "db".
-}
readFileLnSeparated fileName = do
    cont <- readFile file
    length cont `seq` (return $ lines cont)
    where file = "db" ++ pathSeparator:(takeFileName fileName)

{-|
  Deletes given string line from 
  file if it exists.
  File is relative to execution directory
  and must exist in subfolder "db".
-}