Skip to content
Snippets Groups Projects
Commit 6154a5de authored by Alice Brenon's avatar Alice Brenon
Browse files

Rename CoNLLX module (the 'N' was erroneously lowercase)

parent a0fd2374
No related branches found
No related tags found
No related merge requests found
...@@ -26,7 +26,7 @@ import Text.TEIWA.Error (Error(..)) ...@@ -26,7 +26,7 @@ import Text.TEIWA.Error (Error(..))
import Text.TEIWA.Source.Common ( import Text.TEIWA.Source.Common (
AnnotationContext(..), Field, Row, TEIWAParser, annotationContext AnnotationContext(..), Field, Row, TEIWAParser, annotationContext
) )
import qualified Text.TEIWA.Source.ConLLX as ConLLX (fields, sentences) import qualified Text.TEIWA.Source.CoNLLX as CoNLLX (fields, sentences)
import qualified Text.TEIWA.Source.SSV as SSV (body, fields) import qualified Text.TEIWA.Source.SSV as SSV (body, fields)
type Format = TEIWAParser Annotation type Format = TEIWAParser Annotation
...@@ -52,9 +52,9 @@ annotateToken (AnnotationContext {columnIndex, columnName, header}) (atLine, rec ...@@ -52,9 +52,9 @@ annotateToken (AnnotationContext {columnIndex, columnName, header}) (atLine, rec
coNLLX :: Format coNLLX :: Format
coNLLX = do coNLLX = do
context <- annotationContext ConLLX.fields context <- annotationContext CoNLLX.fields
SentenceLevel <$> ( SentenceLevel <$> (
ConLLX.sentences >>= mapM ( CoNLLX.sentences >>= mapM (
fmap SentenceAnnotation . mapM (annotateToken context) fmap SentenceAnnotation . mapM (annotateToken context)
) )
) )
......
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE FlexibleContexts #-}
module Text.TEIWA.Source.ConLLX ( module Text.TEIWA.Source.CoNLLX (
fields fields
, sentences , sentences
) where ) where
......
...@@ -29,7 +29,7 @@ library ...@@ -29,7 +29,7 @@ library
, Text.TEIWA.Error , Text.TEIWA.Error
, Text.TEIWA.Source , Text.TEIWA.Source
, Text.TEIWA.Source.Common , Text.TEIWA.Source.Common
, Text.TEIWA.Source.ConLLX , Text.TEIWA.Source.CoNLLX
, Text.TEIWA.Source.SSV , Text.TEIWA.Source.SSV
build-depends: base >=4.12 && <4.15 build-depends: base >=4.12 && <4.15
, bytestring , bytestring
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment