X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhtsn.git;a=blobdiff_plain;f=src%2FUnix.hs;fp=src%2FUnix.hs;h=f26263a42cca9de9c9894cdc465116d96c6da506;hp=17e3960104b75ca88f1d34ab93fe3119a9894574;hb=4833dc57c60f4aeaa160ec5e599507653a47809b;hpb=bb74b494c23a737b9c0355148d25f090545b856b

diff --git a/src/Unix.hs b/src/Unix.hs
index 17e3960..f26263a 100644
--- a/src/Unix.hs
+++ b/src/Unix.hs
@@ -92,10 +92,10 @@ create_pid_directory :: FilePath -- ^ The directory to contain the PID file.
 create_pid_directory pid_directory uid gid = do
   it_exists <- doesDirectoryExist pid_directory
   unless it_exists $ do
-    report_info $ "Creating PID directory " ++ pid_directory
+    report_info $ "Creating PID directory " ++ pid_directory ++ "."
     createDirectory pid_directory
     report_info $ "Changing owner/group of " ++ pid_directory ++
-                    " to " ++ (show uid) ++ "/" ++ (show gid)
+                    " to " ++ (show uid) ++ "/" ++ (show gid) ++ "."
     setOwnerAndGroup pid_directory uid gid
 
 -- | Write a PID file, install a SIGTERM handler, drop privileges, and