MoeDict 0.0.3 → 0.0.4

raw patch · 2 files changed

+4/−4 lines, 2 files

Files

MoeDict.cabal +1/−1
Text/MoeDict.hs +3/−3

MoeDict.cabal view

@@ -1,5 +1,5 @@ name: MoeDict-version: 0.0.3+version: 0.0.4 license: PublicDomain cabal-version: >= 1.6 author: Audrey Tang

Text/MoeDict.hs view

@@ -37,7 +37,7 @@     deriving (Show, Eq, Ord) data POS = POS { label :: Text, part :: Part } deriving (Show, Eq, Ord) data Reference = Reference-    { refType  :: Maybe POS+    { refType  :: Text     , refText  :: Text     } deriving (Show, Eq, Ord) @@ -94,8 +94,8 @@         return Entry{..} instance FromJSON Reference where     parseJSON (Object o) = do-        pos <- o .:? "type"-        txt <- o .: "text"+        pos <- o .: "type"+        txt <- o .: "def"         return $ Reference pos txt  instance FromJSON Definition where