summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2015-10-08 22:04:12 +0200
committertv <tv@shackspace.de>2015-10-08 22:04:44 +0200
commitd3ad49c2284e9197dc10d82ff0e3bd7dbec7fdf1 (patch)
tree3998135c1804a71b901720b6fefbb6ca650121ac
parent4c74e39b922ff0d2dd572f90cee0cd842aa40a84 (diff)
Use Control.Monad's forever
-rw-r--r--hirc.hs3
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 ()