From e7489043d8bf2a406a910adcb93280e83d6d2faa Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Wed, 20 Dec 2017 00:22:25 +0300
Subject: 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).
---
 Coalpit/Core.hs | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'Coalpit/Core.hs')

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
-- 
cgit v1.2.3