Add preview program command

[xdg-ninja.git] / lib / Output.hs

diff --git a/lib/Output.hs b/lib/Output.hs
index c9f963d10625390445ef385fe6f0546350f20937..d36db9ddc55797c192e899174aca16d7aa790041 100644 (file)
--- a/lib/Output.hs
+++ b/lib/Output.hs
@@ -49,5 +49,5 @@ logFile :: T.Text -> File -> Bool -> IO ()
 logFile programName file onFilesystem = case onFilesystem of
   False -> Output.log SUCS (T.unpack programName) (path file) (help file)
   True -> case (supportLevel file) of
-    Unsupported -> Output.log WARN (T.unpack programName) (path file) (help file)
-    _ -> Output.log ERR (T.unpack programName) (path file) (help file)
+    Unsupported -> Output.log ERR (T.unpack programName) (path file) (help file)
+    _ -> Output.log WARN (T.unpack programName) (path file) (help file)