diff options
author | defanor <defanor@uberspace.net> | 2017-12-20 00:22:25 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2017-12-20 00:22:25 +0300 |
commit | e7489043d8bf2a406a910adcb93280e83d6d2faa (patch) | |
tree | b080cab07394cc02ffd3ebbcd815813e5dc2de69 /Coalpit/Core.hs | |
parent | 62aa7bb8ba54c2a0f480e122c46d967f2102dac5 (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.hs | 7 |
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 |