Move all the code to the src/ directory
Implement hLint's suggestions for code imrovement.

    ./src/Main.hs:62:31: Warning: Redundant bracket
    Found:
      do jpath <- getJournalPathFromName journalNom
         journal <- readJournalFromFile jpath
         let entriesl = (entries journal)
             entriess = map show entriesl
         mapM_ putStrLn entriess
    Why not:
      do jpath <- getJournalPathFromName journalNom
         journal <- readJournalFromFile jpath
         let entriesl = entries journal
             entriess = map show entriesl
         mapM_ putStrLn entriess

    ./src/Main.hs:76:31: Warning: Redundant bracket
    Found:
      do home <- getHomeDirectory
         let fullpath = home ++ "/.tn.d/journals/"
         dirContents <- (getDirectoryContents fullpath)
         mapM_ putStrLn $ map (init . init . init) $ drop 2 dirContents
    Why not:
      do home <- getHomeDirectory
         let fullpath = home ++ "/.tn.d/journals/"
         dirContents <- getDirectoryContents fullpath
         mapM_ putStrLn $ map (init . init . init) $ drop 2 dirContents

    ./src/Main.hs:80:3: Error: Use .
    Found:
      mapM_ putStrLn $ map (init . init . init) $ drop 2 dirContents
    Why not:
      mapM_ (putStrLn . init . init . init) (drop 2 dirContents)

    ./src/Tn/IO.hs:30:5: Warning: Redundant bracket
    Found:
      (not force)
    Why not:
      not force

    ./src/Tn/IO.hs:88:33: Warning: Redundant bracket
    Found:
      newEntry : (entries journal)
    Why not:
      newEntry : entries journal

    5 suggestions

I chose not to implement the last suggestion, because I think it reduces
readability.
reinstalling operating system, so committing.