From 4d85ce5584c5bc69b402b7d3b94c623f37ea69f5 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Sun, 27 Jan 2019 18:52:25 +0100
Subject: src: replace all undefined with typeMismatch

---
 src/Reaktor/Plugins/Register.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Reaktor/Plugins/Register.hs')

diff --git a/src/Reaktor/Plugins/Register.hs b/src/Reaktor/Plugins/Register.hs
index 979e4ba..dcd130e 100644
--- a/src/Reaktor/Plugins/Register.hs
+++ b/src/Reaktor/Plugins/Register.hs
@@ -6,6 +6,7 @@ module Reaktor.Plugins.Register where
 
 import Blessings
 import Data.Aeson
+import Data.Aeson.Types (typeMismatch)
 import qualified Data.Text as T
 import qualified Data.Text.IO as T
 import Prelude.Extended
@@ -23,7 +24,7 @@ instance FromJSON ConfigNickServ where
       ConfigNickServ
         <$> v .: "passFile"
         <*> v .:? "prefix" .!= "NickServ!NickServ@services."
-    _ -> undefined
+    invalid -> typeMismatch "ConfigNickServ" invalid
 
 data Config = Config
     { cNick :: Maybe Text
@@ -43,7 +44,7 @@ instance FromJSON Config where
       cChannels <- v .:? "channels" .!= []
       cNickServ <- v .:? "NickServ" .!= cNickServ def
       pure Config{..}
-    _ -> undefined
+    invalid -> typeMismatch "Config" invalid
 
 new :: Config -> Actions -> IO (Message -> IO ())
 new Config{..} Actions{..} = do
-- 
cgit v1.2.3