diff --git a/lib/Text/TEIWA/Source.hs b/lib/Text/TEIWA/Source.hs index 53a74038ad902a590fa6a146039e512bed1ed504..6c906f780dc252f755627b9c1bf435176fb33343 100644 --- a/lib/Text/TEIWA/Source.hs +++ b/lib/Text/TEIWA/Source.hs @@ -26,7 +26,7 @@ import Text.TEIWA.Error (Error(..)) import Text.TEIWA.Source.Common ( 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) type Format = TEIWAParser Annotation @@ -52,9 +52,9 @@ annotateToken (AnnotationContext {columnIndex, columnName, header}) (atLine, rec coNLLX :: Format coNLLX = do - context <- annotationContext ConLLX.fields + context <- annotationContext CoNLLX.fields SentenceLevel <$> ( - ConLLX.sentences >>= mapM ( + CoNLLX.sentences >>= mapM ( fmap SentenceAnnotation . mapM (annotateToken context) ) ) diff --git a/lib/Text/TEIWA/Source/ConLLX.hs b/lib/Text/TEIWA/Source/CoNLLX.hs similarity index 96% rename from lib/Text/TEIWA/Source/ConLLX.hs rename to lib/Text/TEIWA/Source/CoNLLX.hs index fb0f1d470e57878c86a1c7a69dc78b5fd0304369..5f2d517929f01df8433ca9c60922648c6990b57f 100644 --- a/lib/Text/TEIWA/Source/ConLLX.hs +++ b/lib/Text/TEIWA/Source/CoNLLX.hs @@ -1,6 +1,6 @@ {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE FlexibleContexts #-} -module Text.TEIWA.Source.ConLLX ( +module Text.TEIWA.Source.CoNLLX ( fields , sentences ) where diff --git a/teiwa.cabal b/teiwa.cabal index 07241079c353bd745b08e2852d26b5e125cf6224..8e84544720682d1e85f528737d07b1c3a3ab18af 100644 --- a/teiwa.cabal +++ b/teiwa.cabal @@ -29,7 +29,7 @@ library , Text.TEIWA.Error , Text.TEIWA.Source , Text.TEIWA.Source.Common - , Text.TEIWA.Source.ConLLX + , Text.TEIWA.Source.CoNLLX , Text.TEIWA.Source.SSV build-depends: base >=4.12 && <4.15 , bytestring