하스켈 이름 공간에 대처하는 방법은 무엇입니까?

Question

JIRAJSON 개체를 마샬링하기 위해 data 레코드를 쓰고 있습니다. 문제는 이름/값 쌍에 대해 여러 객체의 레이블이 동일하다는 것입니다.

(컬에서 반환 형식) 내가 얻는 문제에 대응 하스켈 data 기록을 구성 할 때

{"expand":"schema,names" 
,"startAt":0 
,"maxResults":2 
,"total":74 
,"issues":[ 
      {"expand":"editmeta,renderedFields,transitions,changelog,operations" 
      ,"id":"183614" 
      ,"self":"https://10.64.16.44/rest/api/latest/issue/183614" 
      ,"key":"BNAP-339" 
      ,"fields":{"versions":[ 
            {"self":"https://10.64.16.44/rest/api/2/version/28240" 
            ,"id":"28240" 
            ,"name":"2012-12-07" 
            ,"archived":false 
            ,"released":false 
            } 
           ] 
        ,"status":{"self":"https://10.64.16.44/rest/api/2/status/1" 
           ,"description":"The issue is open and ready for the assignee to start work on it." 
           ,"iconUrl":"https://10.64.16.44/images/icons/status_open.gif" 
           ,"name":"Open" 
           ,"id":"1" 
           } 
        ,"description":"Do Re Mi Fa" 
        ,"resolution":null 
        } 
      } 
      ] 

하기 :

이

data Issue = Issue {expand :: String 
        ,id :: String 
        ,self :: String 
        ,key :: String 
        ,fields :: Fields 
        } deriving Generic 


data Version = Version {self :: String 
         ,id :: String 
         ,name :: String 
         ,archived :: Bool 
         ,released :: Bool 
         } deriving Generic 

와 'ID'와 '자기'충돌합니다 예를 들어, . 나에게 레코드의 이름을 변경하고 수동으로 생성 된 FromJSON 인스턴스로 수정하여이를 해결할 수있었습니다. 다른 대안 솔루션을 환영합니다.

Answer 1

Issue과 Version 같은 것을 같은 계층 구조의 개별 파일에 넣어 프로토콜 버퍼에서 해결합니다.

하스켈은 네임 스페이스를 제어하기 위해서만 별도의 모듈을 사용하기 때문에 이것이 정통 솔루션입니다.

훨씬 많은 애호가 : 사용 형 클래스를 사용할 이름을 정의하려면

class Has'self a b | a -> bwhere 
    get'self :: a -> b 
    set'self :: b -> a -> b 

instance Has'self Issue String where ... 
instance Has'self Version String where .... 

편집 : 코멘트를 아래에 더 자세한 조언을주고 생각 나게. Has'self를 솔루션처럼 사용하지 마십시오. 도로 보고서를 작성한 사람은 추악 해집니다. 별도의 모듈 경로를 보증 할 수 있습니다.

추신 : 아마도 귀하의 필드에 lens 라이브러리를 사용할 수 있습니다!

Answer 2

다른 대안으로는 고유 레코드가 포함 된 단일 데이터 형식을 사용하는 것이 좋습니다. 깨끗, 잘 구성된 하스켈 코드를 작성에 관해서 HasFoobar` 스타일 typeclasses 거의 항상 끔찍한 생각이다 '것을

import Prelude hiding (id) 

data JIRA = JIRA 
    { expand :: String 
    , startAt :: Int 
    , maxResults :: Int 
    , total :: Int 
    , issues :: [JIRA] 
    } | Issue 
    { expand :: String 
    , id :: Int 
    , self :: String 
    , key :: String 
    , fields :: JIRA 
    } | Field 
    { versions :: [JIRA] 
    , status :: JIRA 
    , description :: String 
    , resolution :: Maybe String 
    } | Version 
    { self :: String 
    , id :: Int 
    , name :: String 
    , archived :: Bool 
    , released :: Bool 
    } | Status 
    { self :: String 
    , description :: String 
    , iconUrl :: String 
    , name :: String 
    , id :: Int 
    } 


yourExample = JIRA 
    { expand = "schema, names" 
    , startAt = 0 
    , maxResults = 2 
    , total = 74 
    , issues = [ Issue 
       { expand = "editmeta, etc..." 
       , id = 12345 
       , self = "https://xyz" 
       , key = "BLAH" 
       , fields = Field 
          { versions = [ Version 
              { self = "https://foobar" 
              , id = 1234 
              , name = "quux" 
              , archived = False 
              , released = False 
              } 
             ] 
          , status = Status 
            { self = "https://etc" 
            , description = "issue" 
            , iconUrl = "https://iconurl" 
            , name = "open" 
            , id = 1 
            } 
          , description = "another description" 
          , resolution = Nothing 
          } 
       } 
       ] 
    }