Lib.hs: Move `putStrLn` outside the `case` statement

It's duplicated so I figured I'd take it out.

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Lib.hs b/src/Lib.hs
index f8745b2..a6ea8c0 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -17,7 +17,7 @@ someFunc = do
         Just plugin = matchPlugin message
     dbConn <- open "db/sorbot_development.sqlite3"
     response <- performPlugin plugin message dbConn
-    case response of
-        Left e  -> putStrLn e
-        Right r -> putStrLn r
+    putStrLn $ case response of
+        Left e  -> e
+        Right r -> r
     close dbConn