src/OptionalConfiguration.hs: add Semigroup instance.

[list-remote-forwards.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index ab4d05590458d819413da4dccab941d61a3c28cc..088d86d4bde13f7bc1866abaaec79e0e0d9a1ab5 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,6 +1,6 @@
 {-# LANGUAGE DoAndIfThenElse #-}
 {-# LANGUAGE NoMonomorphismRestriction #-}
-module Main
+module Main (main)
 where
 
 import Data.Maybe ( fromMaybe )
@@ -79,4 +79,4 @@ main = do
   where
     show_sql_error :: SqlError -> IO ()
     show_sql_error se = hPutStrLn stderr $
-      "SQL Error (" ++ (show $ seNativeError se) ++ "): " ++ (seErrorMsg se)
+      "SQL Error (" ++ show (seNativeError se) ++ "): " ++ (seErrorMsg se)