(minor) remove a useless line.
parent
850d61678a
commit
3dddbf6990
|
@ -465,7 +465,6 @@ handleAction = case _ of
|
||||||
|
|
||||||
build_new_domain :: String -> String -> String
|
build_new_domain :: String -> String -> String
|
||||||
build_new_domain sub tld
|
build_new_domain sub tld
|
||||||
| sub == "" = "." <> tld
|
|
||||||
| endsWith "." sub = sub <> tld
|
| endsWith "." sub = sub <> tld
|
||||||
| otherwise = sub <> "." <> tld
|
| otherwise = sub <> "." <> tld
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue