diff options
| author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-09-28 14:02:18 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-09-28 14:02:18 +0200 |
| commit | c6928b2a01baae8be7d1f44f52a8c1d92910d05c (patch) | |
| tree | 7c5042e167b0a3aeac91572fa18ab78a56ceaa42 /Commands.hs | |
| parent | 08bc32392d4acbd2576660e34d507d995d53bca6 (diff) | |
| download | xmobar-c6928b2a01baae8be7d1f44f52a8c1d92910d05c.tar.gz xmobar-c6928b2a01baae8be7d1f44f52a8c1d92910d05c.tar.bz2 | |
Removed unused rate method
darcs-hash:20070928120218-d6583-3a0f314e02ef4a3943cc8d0fe45c5af0b446871d.gz
Diffstat (limited to 'Commands.hs')
| -rw-r--r-- | Commands.hs | 3 |
1 files changed, 0 insertions, 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)) |