s/SeverityTasks/SeverityTask/

README.md

@@ -102,7 +102,7 @@ Preprocessing:
 Conversion:
      --pass-through         Dump input without converting
   -E --exclude=CONV         Exclude a particular conversion (Always, Assert,
-                            Interface, Logic, SeverityTasks, or UnbasedUnsized)
+                            Interface, Logic, SeverityTask, or UnbasedUnsized)
   -v --verbose              Retain certain conversion artifacts
   -w --write=MODE/FILE/DIR  How to write output; default is 'stdout'; use
                             'adjacent' to create a .v file next to each input;

src/Convert.hs

@@ -45,13 +45,13 @@ import qualified Convert.ParamType
 import qualified Convert.PortDecl
 import qualified Convert.RemoveComments
 import qualified Convert.ResolveBindings
+import qualified Convert.SeverityTask
 import qualified Convert.Simplify
 import qualified Convert.Stream
 import qualified Convert.StringParam
 import qualified Convert.StringType
 import qualified Convert.Struct
 import qualified Convert.StructConst
-import qualified Convert.SeverityTasks
 import qualified Convert.TFBlock
 import qualified Convert.Typedef
 import qualified Convert.TypeOf
@@ -122,9 +122,9 @@ initialPhases tops selectExclude =
     , Convert.Interface.disambiguate
     , Convert.Package.convert
     , Convert.StructConst.convert
-    , selectExclude Job.SeverityTasks Convert.SeverityTasks.convert
     , Convert.PortDecl.convert
     , Convert.ParamNoDefault.convert tops
+    , selectExclude Job.SeverityTask Convert.SeverityTask.convert
     , Convert.ResolveBindings.convert
     , Convert.UnnamedGenBlock.convert
     ]

src/Convert/SeverityTask.hs

@@ -11,7 +11,7 @@
  -    severity task messages have been printed.
  -}
 
-module Convert.SeverityTasks (convert) where
+module Convert.SeverityTask (convert) where
 
 import Convert.Traverse
 import Language.SystemVerilog.AST

src/Job.hs

@@ -27,7 +27,7 @@ data Exclude
     | Assert
     | Interface
     | Logic
-    | SeverityTasks
+    | SeverityTask
     | Succinct
     | UnbasedUnsized
     deriving (Typeable, Data, Eq)
@@ -84,7 +84,7 @@ defaultJob = Job
         &= groupname "Conversion"
     , exclude = nam_ "exclude" &= name "E" &= typ "CONV"
         &= help ("Exclude a particular conversion (Always, Assert, Interface,"
-            ++ " Logic, SeverityTasks, or UnbasedUnsized)")
+            ++ " Logic, SeverityTask, or UnbasedUnsized)")
     , verbose = nam "verbose" &= help "Retain certain conversion artifacts"
     , write = Stdout &= ignore -- parsed from the flexible flag below
     , writeRaw = "s" &= name "write" &= name "w" &= explicit

sv2v.cabal

@@ -98,13 +98,13 @@ executable sv2v
     Convert.RemoveComments
     Convert.ResolveBindings
     Convert.Scoper
+    Convert.SeverityTask
     Convert.Simplify
     Convert.Stream
     Convert.StringParam
     Convert.StringType
     Convert.Struct
     Convert.StructConst
-    Convert.SeverityTasks
     Convert.TFBlock
     Convert.Traverse
     Convert.Typedef