starting with a clean slate

[functorrent.git] / src / FuncTorrent / Logger.hs

diff --git a/src/FuncTorrent/Logger.hs b/src/FuncTorrent/Logger.hs
deleted file mode 100644 (file)
index 431a96c..0000000
--- a/src/FuncTorrent/Logger.hs
+++ /dev/null
@@ -1,72 +0,0 @@
-{-
- - Copyright (C) 2015-2016 Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
- -
- - This file is part of FuncTorrent.
- -
- - FuncTorrent is free software; you can redistribute it and/or modify
- - it under the terms of the GNU General Public License as published by
- - the Free Software Foundation; either version 3 of the License, or
- - (at your option) any later version.
- -
- - FuncTorrent is distributed in the hope that it will be useful,
- - but WITHOUT ANY WARRANTY; without even the implied warranty of
- - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- - GNU General Public License for more details.
- -
- - You should have received a copy of the GNU General Public License
- - along with FuncTorrent; if not,  see <http://www.gnu.org/licenses/>
- -}
-
-module FuncTorrent.Logger (
-      initLogger
-    , logMessage
-    , logStop
-    ) where
-
-import Control.Concurrent
-
--- The below logger implementation has been taken from
--- Parallel and Concurrent Programming in Haskell, Chapter 7
--- The logger is implemented in a concurrent thread.
-
--- Here the (MVar LogCommand) is used for actual thread communication
--- So if multiple threads try to log, then the logger will be thread-safe
--- Also the 'loop' in logger will wait for the message to come.
---
--- The MVar in stop is just to ensure the logger thread executes completely
--- Before exiting the main application.
-data Logger = Logger (MVar LogCommand)
-data LogCommand = Message String | Stop (MVar ())
-
-initLogger :: IO Logger
-initLogger = do
-    m <- newEmptyMVar
-    let l = Logger m
-    _ <- forkIO (logger l)
-    return l
-
-logger :: Logger -> IO ()
-logger (Logger m) = loop
-    where
-        loop = do
-            cmd <- takeMVar m
-            case cmd of
-                 Message msg -> do
-                     -- We can alternatively put the message to a file
-                     putStrLn msg
-                     -- Recursive
-                     loop
-                 Stop s -> do
-                     putStrLn "FuncTorrent: Exit succesfully"
-                     putMVar s ()
-
--- Send log message to logger
-logMessage :: Logger -> String -> IO ()
-logMessage (Logger m) s = putMVar m (Message s)
-
-logStop :: Logger -> IO ()
-logStop (Logger m) = do
-    s <- newEmptyMVar
-    putMVar m (Stop s)
-    -- Wait for logger to complete the logging
-    takeMVar s