From a1d651e08116d262a280ce07b9b5f5deb443a894 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jan=20Hamal=20Dvo=C5=99=C3=A1k?= <mordae@anilinux.org>
Date: Sat, 26 Sep 2020 18:35:14 +0200
Subject: [PATCH] Remove accidentally included file
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Signed-off-by: Jan Hamal Dvořák <mordae@anilinux.org>
---
demo/Main.hs | 66 ----------------------------------------------------
1 file changed, 66 deletions(-)
delete mode 100644 demo/Main.hs
diff --git a/demo/Main.hs b/demo/Main.hs
deleted file mode 100644
index 4952029..0000000
--- a/demo/Main.hs
+++ /dev/null
@@ -1,66 +0,0 @@
-{-|
-Module : Main
-Copyright : Jan Hamal Dvořák
-License : AGPL-3
-
-Maintainer : mordae@anilinux.org
-Stability : unstable
-Portability : non-portable (ghc)
--}
-
-module Main ( main
- )
-where
- import BasePrelude
-
- import Hikaru.Demo (makeDemo)
-
-
- data Options
- = Options
- { optMainFunc :: Options -> IO ()
- , optConf :: String
- }
-
-
- mainFunc :: Parser (Options -> IO ())
- mainFunc = flag' mainVersion ( long "version"
- <> short 'V'
- <> help "Show version information"
- <> hidden
- )
- <|> pure mainWebsite
-
-
- options :: Parser Options
- options = Options <$> mainFunc
- <*> strOption ( long "config"
- <> short 'C'
- <> help "Configuration file to read"
- <> value "byrocraft.cfg"
- )
-
-
- main :: IO ()
- main = do
- opts <- execParser $
- info (helper *> options)
- ( fullDesc
- <> progDesc "Collaborative Administration Tool"
- <> footer "Report bugs at <http://github.com/mordae/byrocraft/issues>."
- )
-
- optMainFunc opts opts
-
-
- mainVersion :: Options -> IO ()
- mainVersion _opts = do
- prog <- getProgName
- putStrLn $ prog <> " " <> packageVersion
-
-
- mainWebsite :: Options -> IO ()
- mainWebsite Options{optConf} = serve =<< load [ Required optConf ]
-
-
--- vim:set ft=haskell sw=2 ts=2 et:
--
GitLab