summaryrefslogtreecommitdiff
path: root/Coalpit/Core.hs
diff options
context:
space:
mode:
authordefanor <defanor@uberspace.net>2017-12-20 00:22:25 +0300
committerdefanor <defanor@uberspace.net>2017-12-20 00:22:25 +0300
commite7489043d8bf2a406a910adcb93280e83d6d2faa (patch)
treeb080cab07394cc02ffd3ebbcd815813e5dc2de69 /Coalpit/Core.hs
parent62aa7bb8ba54c2a0f480e122c46d967f2102dac5 (diff)
Prepare for IO
DSV functions operate on individual lines now, unit type gets printed/parsed as nothing (handier for argument parsing to set '()' when there's none, and that's what it should be anyway).
Diffstat (limited to 'Coalpit/Core.hs')
-rw-r--r--Coalpit/Core.hs7
1 files changed, 1 insertions, 6 deletions
diff --git a/Coalpit/Core.hs b/Coalpit/Core.hs
index 3e84b23..ac2b03c 100644
--- a/Coalpit/Core.hs
+++ b/Coalpit/Core.hs
@@ -366,12 +366,6 @@ instance {-#OVERLAPPING#-} Coalpit String where
toArgs _ i = [i]
argHelper _ _ _ = "STRING"
--- | A dot (".").
-instance Coalpit () where
- argParser _ = pS (char '.') *> pure ()
- toArgs _ () = ["."]
- argHelper _ _ _ = "."
-
instance Coalpit Scientific where
argParser _ = try $ do
x <- token (Right . unArg) Nothing
@@ -453,6 +447,7 @@ instance Coalpit DiffTime where
argHelper _ _ _ = "DIFF_TIME"
+instance Coalpit ()
instance Coalpit Bool
instance Coalpit Ordering
instance Coalpit ExitCode