X-Git-Url: http://gitweb.michael.orlitzky.com/?p=list-remote-forwards.git;a=blobdiff_plain;f=src%2FForward.hs;h=3e9ad88fba5c0275443e1934034685ce5423739c;hp=7de53b858375287049f4e1c692f56316e28b18c6;hb=ae4cdbc0662d67d3d325c8ab567e0d45a84413b3;hpb=f75845314598408bce3a1b972f2ba274d93d0e8d

diff --git a/src/Forward.hs b/src/Forward.hs
index 7de53b8..3e9ad88 100644
--- 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