diff --git a/app/Main.hs b/app/Main.hs index de1c1ab..683a8de 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -1,6 +1,4 @@ module Main where -import Lib - main :: IO () -main = someFunc +main = putStrLn "Nothing to see here" diff --git a/src/Haboli/Euphoria/Client.hs b/src/Haboli/Euphoria/Client.hs index 0cade01..cd9177d 100644 --- a/src/Haboli/Euphoria/Client.hs +++ b/src/Haboli/Euphoria/Client.hs @@ -65,7 +65,6 @@ instance FromJSON Event where , EventSnapshot <$> parseJSON v ] ---TODO: Add more exceptions for other things that can also go wrong (parsing, connection already closed, ...) data ClientException e = ServerException (Maybe T.Text) (Maybe T.Text) -- ^ @'ServerError' error throttled@ is an error sent by the server in @@ -187,7 +186,6 @@ defaultDetails = ConnectionDetails , cdPingInterval = 10 } ---TODO: Close connection after client finishes running if it hasn't already been closed runClient :: ConnectionDetails -> Client e a -> IO (Either (ClientException e) a) runClient details (Client stack) = withSocketsDo @@ -324,8 +322,6 @@ respondingToPing holdingEvent = do {- Exception handling -} ---TODO: Add more commands and find more appropriate names - throw :: e -> Client e a throw = throwRaw . CustomException diff --git a/src/Lib.hs b/src/Lib.hs deleted file mode 100644 index d36ff27..0000000 --- a/src/Lib.hs +++ /dev/null @@ -1,6 +0,0 @@ -module Lib - ( someFunc - ) where - -someFunc :: IO () -someFunc = putStrLn "someFunc"