Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

  • Loading branch information...
commit fb67a6c0a5b0f603a64360655b70ca8608829d7b 1 parent dece7ed
@moonmaster9000 authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  src/Bird/Translator/Hack.hs
View
2  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 =
Please sign in to comment.
Something went wrong with that request. Please try again.