--- /dev/null
+module DDNS.Utils
+ ( trim
+ )
+ where
+
+trim :: Maybe String -> Maybe String
+trim Nothing = Nothing
+trim (Just xs) = case trimTail $ trimHead xs of
+ "" -> Nothing
+ ys -> Just ys
+ where
+ trimHead [] = []
+ trimHead (' ':ys) = trimHead ys
+ trimHead ys = ys
+
+ trimTail = reverse . trimHead . reverse