diff options
author | tv <tv@shackspace.de> | 2015-10-08 22:04:12 +0200 |
---|---|---|
committer | tv <tv@shackspace.de> | 2015-10-08 22:04:44 +0200 |
commit | d3ad49c2284e9197dc10d82ff0e3bd7dbec7fdf1 (patch) | |
tree | 3998135c1804a71b901720b6fefbb6ca650121ac /hirc.hs | |
parent | 4c74e39b922ff0d2dd572f90cee0cd842aa40a84 (diff) |
Use Control.Monad's forever
Diffstat (limited to 'hirc.hs')
-rw-r--r-- | hirc.hs | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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 () |