From 623771ce662d213391761614cb88be058e21d04e Mon Sep 17 00:00:00 2001 From: mhmdanas Date: Sun, 24 Jul 2022 17:20:18 +0300 Subject: [PATCH] Fix compiler error --- app/Types.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/app/Types.hs b/app/Types.hs index e0a6b73..ce21b8d 100644 --- a/app/Types.hs +++ b/app/Types.hs @@ -9,7 +9,8 @@ module Types ) where import Control.Category ((>>>)) -import Data.Aeson (FromJSON, ToJSON, FromJSONKey(..), ToJSONKey(..), ToJSONKeyFunction(..), FromJSONKeyFunction(..), parseJSON, toJSON, withText) +import Data.Aeson (FromJSON, ToJSON, FromJSONKey(..), ToJSONKey(..), FromJSONKeyFunction(..), parseJSON, toJSON, withText) +import Data.Aeson.Types (toJSONKeyText) import qualified Data.Aeson.Encoding as AesonEncoding import Data.Char (isAscii, isLower, isDigit) import Data.Text (Text) @@ -34,9 +35,7 @@ fromText t = instance ToJSONKey PackageName where toJSONKey = - ToJSONKeyText - runPackageName - (AesonEncoding.text . runPackageName) + toJSONKeyText runPackageName instance FromJSONKey PackageName where fromJSONKey =