Permalink
Browse files

replaced the definition of "insertUnlessPresent" with "(flip const)"

  • Loading branch information...
1 parent dece7ed commit fb67a6c0a5b0f603a64360655b70ca8608829d7b @moonmaster9000 committed Aug 7, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Bird/Translator/Hack.hs
@@ -19,7 +19,7 @@ instance BirdReplyTranslator Hack.Response where
Hack.body = pack $ replyBody r
}
where
- insertUnlessPresent _ oldValue = oldValue
+ insertUnlessPresent = flip const
instance BirdRequestTranslator Hack.Env where
toBirdRequest e =

0 comments on commit fb67a6c

Please sign in to comment.