StrMap Functor instance is broken

[sharkdp]

Due to a recent change in the FFI code, calling map on a StrMap instance always returns an empty map:

> import qualified Data.StrMap as S
> map id $ S.fromList (singleton (Tuple "foo" "bar"))
fromList Nil

Will send a PR in a minute..