From d3ad49c2284e9197dc10d82ff0e3bd7dbec7fdf1 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Thu, 8 Oct 2015 22:04:12 +0200
Subject: Use Control.Monad's forever

---
 hirc.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'hirc.hs')

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 ()
-- 
cgit v1.2.3