wc' :: A.Args -> B.ByteString -> Result
wc' a xs = let ls = if A.lines a then Just (linecount xs) else Nothing
               ws = if A.words a then Just (wordcount xs) else Nothing
               cs = if A.chars a then Just (charcount xs) else Nothing
               bs = if A.bytes a then Just (bytecount xs) else Nothing
               ll = if A.longest a then Just (longest xs) else Nothing
            in Result ls ws cs bs ll
wc' :: A.Args -> B.ByteString -> Result
wc' a xs = let ls = if A.lines a then Just (linecount xs) else Nothing
               ws = if A.words a then Just (wordcount xs) else Nothing
               cs = if A.chars a then Just (charcount xs) else Nothing
               bs = if A.bytes a then Just (bytecount xs) else Nothing
               ll = if A.longest a then Just (longest xs) else Nothing
            in Result ls ws cs bs ll
wc' a xs = let ls = if A.lines a then Just (linecount xs) else Nothing
               ws = if A.words a then Just (wordcount xs) else Nothing
               cs = if A.chars a then Just (charcount xs) else Nothing
               bs = if A.bytes a then Just (bytecount xs) else Nothing
               ll = if A.longest a then Just (longest xs) else Nothing
            in Result ls ws cs bs ll