#434 いくつかのcodec関数をCommon.hsに移動させた