first working commit

app/Config.hs

@@ -0,0 +1,29 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Config where
+  
+import qualified Toml
+import Toml(TomlCodec, (.=))
+import qualified Data.Text as T
+
+data Config = Config {
+  mailDomain :: String
+  ,mailUsername :: String
+  ,mailPassword :: String
+  ,mailTo       :: T.Text
+  ,mailFrom     :: T.Text
+  } deriving Show
+
+configCodec :: TomlCodec Config
+configCodec = Config
+  <$> Toml.string "mailDomain"   .= mailDomain
+  <*> Toml.string "mailUser"     .= mailUsername
+  <*> Toml.string "mailPassword" .= mailPassword
+  <*> Toml.text   "mailTo"       .= mailTo
+  <*> Toml.text   "mailFrom"     .= mailFrom
+
+parseFile :: String -> IO (Either String Config)
+parseFile path = do
+  config <- Toml.decodeFileEither configCodec path
+  case config of
+    Left errors -> return $ Left $ unwords $ fmap show errors
+    Right x -> return $ Right $ x