From cbeddedce3aadec01decdbbcf01879936cabcd8a Mon Sep 17 00:00:00 2001
From: Louis-Guillaume Gagnon <louis.guillaume.gagnon@gmail.com>
Date: Thu, 5 Sep 2013 19:11:30 -0400
Subject: [PATCH] View: default viewer defined in Config.hs

---
 src/View.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/View.hs b/src/View.hs
index f7513f5..d155a70 100644
--- a/src/View.hs
+++ b/src/View.hs
@@ -25,6 +25,7 @@ module View (
 import Data.Char (isDigit)
 import System.Process (runProcess)
 
+import Config (defaultViewer)
 import Tools.Constants
 import Tools.Operation (isHelp)
 import Tools.Filter (getPath)
@@ -35,7 +36,7 @@ view :: [String] -> IO ()
 view [] = error errTooFew
 
 view (x:[]) | isHelp x            = putStrLn usageView
-            | and (map isDigit x) = doView x "zathura"
+            | and (map isDigit x) = doView x defaultViewer 
             | otherwise           = error $ "view: invalid id: " ++ x
 
 view (x:xs) = do
-- 
2.11.4.GIT