Complete making CSV a special case by renaming the module to SSV for «Something-Separated Values»

lib/Text/TEIWA/Source.hs

@@ -25,7 +25,7 @@ import Text.TEIWA.Config (Config(..))
 import Text.TEIWA.Error (Error(..))
 import Text.TEIWA.Source.Common (AnnotationContext(..), Row)
 import qualified Text.TEIWA.Source.ConLLX as ConLLX (getContext, sentences)
-import qualified Text.TEIWA.Source.CSV as CSV (body, getContext)
+import qualified Text.TEIWA.Source.SSV as SSV (body, getContext)
 
 type TEIWAParser = ParsecT Text () (ReaderT Config (Either Error))
 type Format = TEIWAParser Annotation
@@ -49,8 +49,8 @@ coNLLX = do
 
 ssv :: Char -> Format
 ssv separator = do
-  context <- CSV.getContext separator =<< reader formColumn
-  TokenLevel <$> (CSV.body separator >>= mapM (annotateToken context))
+  context <- SSV.getContext separator =<< reader formColumn
+  TokenLevel <$> (SSV.body separator >>= mapM (annotateToken context))
 
 csv :: Format
 csv = ssv ','

lib/Text/TEIWA/Source/CSV.hs → lib/Text/TEIWA/Source/SSV.hs

 {-# LANGUAGE NamedFieldPuns #-}
 {-# LANGUAGE FlexibleContexts #-}
-module Text.TEIWA.Source.CSV (
+module Text.TEIWA.Source.SSV (
       body
     , getContext
   ) where

teiwa.cabal

@@ -30,7 +30,7 @@ library
                      , Text.TEIWA.Source
                      , Text.TEIWA.Source.Common
                      , Text.TEIWA.Source.ConLLX
-                     , Text.TEIWA.Source.CSV
+                     , Text.TEIWA.Source.SSV
   build-depends:       base >=4.12 && <4.15
                      , bytestring
                      , mtl