From b2435e1e37b9def481761a00c704d280ef2deb96 Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Wed, 20 Dec 2017 10:12:52 +0300
Subject: Remove Coalpit.IO

Better to focus on printing and parsing here, at least for now;
besides, pipes are nice, but some may prefer other methods.

The code is moved into an example instead.
---
 Example.hs | 45 ---------------------------------------------
 1 file changed, 45 deletions(-)
 delete mode 100644 Example.hs

(limited to 'Example.hs')

diff --git a/Example.hs b/Example.hs
deleted file mode 100644
index a08730d..0000000
--- a/Example.hs
+++ /dev/null
@@ -1,45 +0,0 @@
-{-# LANGUAGE DeriveGeneric, DeriveAnyClass #-}
-module Main where
-
-import GHC.Generics
-import Coalpit
-import Data.Proxy
-
-data FooArgs = FooArgs { arg1 :: Int
-                       , arg2 :: String
-                       } deriving (Show, Generic, Coalpit)
-
-data FooBar = Foo FooArgs
-            | Bar
-            deriving (Show, Generic, Coalpit)
-
-data Input = Input { something :: Maybe String
-                   , fooBar :: Maybe FooBar
-                   , fooBar2 :: FooBar
-                   } deriving (Show, Generic, Coalpit)
-
-main :: IO ()
-main = do
-  let val = Input { something = Nothing
-                  , fooBar = Just (Foo FooArgs { arg1 = 1
-                                               , arg2 = "a string"})
-                  , fooBar2 = Bar}
-      args = toArgs defOpt val
-  print val
-  print args
-  print (fromArgs defOpt args :: Either String Input)
-
-data Test = Test { foo :: [Int], bar :: Maybe String }
-  deriving (Show, Generic, Coalpit)
-
-help :: IO ()
-help = do
-  mapM_ (\(o, x, y) -> print o >> putStrLn x >> putStrLn y) $
-    [ let opts = defOpt { alwaysUseSelName = ausn
-                        , omitNamedOptions = ono }
-      in ( (ausn, ono)
-         , showDSV opts [Test [1,2,3] vals]
-         , argHelper opts [] (Proxy :: Proxy Test))
-      | ausn <- [True, False]
-      , ono <- [True, False]
-      , vals <- [Just "a string", Nothing]]
-- 
cgit v1.2.3