Fix hlint suggestions.

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

diff --git a/src/Forward.hs b/src/Forward.hs
index 7de53b858375287049f4e1c692f56316e28b18c6..3e9ad88fba5c0275443e1934034685ce5423739c 100644 (file)
--- a/src/Forward.hs
+++ b/src/Forward.hs
@@ -214,8 +214,8 @@ address_domain (Forward (Address addr) _) = domain_part addr
 domain_part :: String -> Maybe Domain
 domain_part address =
   case parts of
-    (_:domain:[]) -> Just domain
-    _             -> Nothing
+    [_,domain] -> Just domain
+    _          -> Nothing
   where
     parts = split "@" address