Use Control.Monad's forever

1 files changed, 1 insertions, 2 deletions

diff --git a/hirc.hs b/hirc.hs
index 46a91fb..c5de6f3 100644
--- a/hirc.hs
+++ b/hirc.hs
@@ -5,6 +5,7 @@ import Network
 import System.IO
 import System.Exit
 import Control.Arrow
+import Control.Monad (forever)
 import Control.Monad.Reader
 import Control.Exception
 import Hirc.Parser as P
@@ -58,8 +59,6 @@ listen h = forever $ do
     case parse P.message filename s of
       Right m -> eval m
       x -> io $ putStrLn $ show x
-  where
-    forever a = a >> forever a
  
 -- Dispatch a command
 eval :: Message -> Net ()