@@ -7,7 +7,7 @@ module Katip.Scribes.ElasticSearch.Annotations
77
88
99-------------------------------------------------------------------------------
10−import Control.Applicative
10+import Control.Applicative as A
1111import Data.Aeson
1212import qualified Data.Foldable as FT
1313import qualified Data.HashMap.Strict as HM
@@ -35,7 +35,7 @@ instance ToObject a => ToObject (TypeAnnotated a)
3535
3636
3737instance FromJSON a => FromJSON (TypeAnnotated a) where
38− parseJSON v = TypeAnnotated <$> parseJSON (deannotateValue v)
38+ parseJSON v = TypeAnnotated A.<$> parseJSON (deannotateValue v)
3939
4040
4141instance LogItem a => LogItem (TypeAnnotated a) where