shares :: Maybe (Int, L.ByteString) -> Maybe Int
shares a =
    case a of
        Nothing        -> Nothing
        Just (x, y)    -> Just x

shares :: Maybe (Int, L.ByteString) -> Maybe Int
shares Nothing = Nothing
shares Just (x, y) = Just x

Equations for ‘shares’ have different numbers of arguments