From c6928b2a01baae8be7d1f44f52a8c1d92910d05c Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@ing.unitn.it>
Date: Fri, 28 Sep 2007 14:02:18 +0200
Subject: Removed unused rate method

darcs-hash:20070928120218-d6583-3a0f314e02ef4a3943cc8d0fe45c5af0b446871d.gz
---
 Commands.hs | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/Commands.hs b/Commands.hs
index 86b6a0f..9c6df7a 100644
--- a/Commands.hs
+++ b/Commands.hs
@@ -26,8 +26,6 @@ import System.Exit
 import System.IO (hClose, hGetLine)
 
 class Show e => Exec e where
-    rate  :: e -> Int
-    rate  _ = 10
     alias :: e -> String
     alias e = takeWhile (not . isSpace) $ show e
     start :: e -> (String -> IO ()) -> IO ()
@@ -44,7 +42,6 @@ instance Exec Command where
     alias (Com p    _    a _)
         | p /= ""             = if a == "" then p else a
         | otherwise           = ""
-    rate  (Com _    _    _ r) = r
     start (Com prog args _ r) cb = do go
         where go = do
                 (i,o,e,p) <- runInteractiveCommand (prog ++ concat (map (' ':) args))
-- 
cgit v1.2.3