new file mode 100644

@@ -0,0 +1,14 @@

+name:           RingReader

+version:        0.1

+synopsis:       a ring buffer output filter

+author:         Edward Langley

+license:        MIT

+build-type:     Simple

+cabal-version:  >= 1.16

+

+executable ring_reader

+  build-depends:  cmdargs,hscurses,base,transformers,mtl,process

+  default-language: Haskell2010

+  main-is:        RingReader.hs

+  hs-source-dirs: src

+

new file mode 100644

@@ -0,0 +1,3 @@

+import Distribution.Simple

+main = defaultMain

+

deleted file mode 100644

@@ -1,13 +0,0 @@

-name:           ring_reader

-version:        0.1

-synopsis:       a ring buffer output filter

-author:         Edward Langley

-license:        MIT

-build-type:     Simple

-cabal-version:  >= 1.16

-

-executable program1

-  build-depends:  CmdArgs,HSCurses

-  main-is:        ring_reader.hs

-  hs-source-dirs: .

-

new file mode 100644

Binary files /dev/null and b/src/.RingReader.hs.swp differ

similarity index 96%

rename from src/ring_reader.hs

rename to src/RingReader.hs

@@ -1,9 +1,13 @@

 {-# LANGUAGE DeriveDataTypeable, RecordWildCards #-}

+module Main where

+

 import System.IO

 import System.Process

 import System.Environment

 import System.Console.CmdArgs

+import System.Exit

+

 import Control.Concurrent

@@ -122,6 +126,7 @@ main = do

 optionHandler :: MyOptions -> IO ()

 optionHandler opts@MyOptions{..} = do

+   when (null run) $ putStrLn "No Command to Run!" >> exitWith (ExitFailure 1)

    Exception.bracket_ allocate deallocate (work encoding run infinite)

 -- mainloop = runST $ do