├── .gitignore ├── .travis.yml ├── LICENSE ├── README.md ├── Setup.hs ├── hein.cabal └── src ├── Development ├── Heineken.hs └── Heineken │ ├── New.hs │ └── Plugin.hs └── Main.hs /.gitignore: -------------------------------------------------------------------------------- 1 | dist 2 | cabal-dev 3 | *.o 4 | *.hi 5 | *.chi 6 | *.chs.h 7 | *.dyn_o 8 | *.dyn_hi 9 | .hpc 10 | .hsenv 11 | .cabal-sandbox/ 12 | cabal.sandbox.config 13 | *.prof 14 | *.aux 15 | *.hp 16 | -------------------------------------------------------------------------------- /.travis.yml: -------------------------------------------------------------------------------- 1 | # NB: don't set `language: haskell` here 2 | 3 | # The following enables several GHC versions to be tested; often it's enough to test only against the last release in a major GHC version. Feel free to omit lines listings versions you don't need/want testing for. 4 | env: 5 | - CABALVER=1.16 GHCVER=7.6.1 6 | - CABALVER=1.16 GHCVER=7.6.2 7 | - CABALVER=1.18 GHCVER=7.6.3 8 | - CABALVER=1.18 GHCVER=7.8.1 # see note about Alex/Happy for GHC >= 7.8 9 | - CABALVER=1.18 GHCVER=7.8.2 10 | - CABALVER=1.18 GHCVER=7.8.3 11 | - CABALVER=1.18 GHCVER=7.8.4 12 | - CABALVER=1.22 GHCVER=7.10.1 13 | - CABALVER=1.22 GHCVER=7.10.2 14 | - CABALVER=head GHCVER=head # see section about GHC HEAD snapshots 15 | 16 | # Note: the distinction between `before_install` and `install` is not important. 17 | before_install: 18 | - travis_retry sudo add-apt-repository -y ppa:hvr/ghc 19 | - travis_retry sudo apt-get update 20 | - travis_retry sudo apt-get install cabal-install-$CABALVER ghc-$GHCVER # see note about happy/alex 21 | - export PATH=/opt/ghc/$GHCVER/bin:/opt/cabal/$CABALVER/bin:$PATH 22 | 23 | install: 24 | - cabal --version 25 | - echo "$(ghc --version) [$(ghc --print-project-git-commit-id 2> /dev/null || echo '?')]" 26 | - travis_retry cabal update 27 | - cabal install --only-dependencies --enable-tests --enable-benchmarks 28 | 29 | # Here starts the actual work to be performed for the package under test; any command which exits with a non-zero exit code causes the build to fail. 30 | script: 31 | - if [ -f configure.ac ]; then autoreconf -i; fi 32 | - cabal configure --enable-tests --enable-benchmarks -v2 # -v2 provides useful information for debugging 33 | - cabal build # this builds all libraries and executables (including tests/benchmarks) 34 | - cabal test 35 | - cabal check 36 | - cabal sdist # tests that a source-distribution can be generated 37 | 38 | # Check that the resulting source distribution can be built & installed. 39 | # If there are no other `.tar.gz` files in `dist`, this can be even simpler: 40 | # `cabal install --force-reinstalls dist/*-*.tar.gz` 41 | - SRC_TGZ=$(cabal info . | awk '{print $2;exit}').tar.gz && 42 | (cd dist && cabal install --force-reinstalls "$SRC_TGZ") 43 | deploy: 44 | provider: hackage 45 | username: khanage 46 | password: 47 | secure: d9C8vtqu7m7UXqzQFUqugln3sa93PlZ0pDCT6uw4lVoDqLUfanRTjFrAyz6Bm2/E0tgagye9AaXXRYwIrZxmRq0Ft8z+X/oI0PL/9hPxt9oNCowJj1kP77AqFN05FL/6niq8ImJ6w+2ILOk3Us9cHALeKY9SzVwf4s/LA+/PP/Fs2OKMYY1eQZulUh1WiD9uWyw0k3oj8VGdFb/kaa/h6Dm3brY7V1MYO3R6iEvGqfXNHKkbym9oMgLeKqP4YAYENgnUtZyt2zsaI8+nQ4uGJN5ijwcX2DQbOtDDkXnSEPM3kietxLwbQwl2t4T2rtcZ+tKi49xDF5VjBd1j+ixLpTGoTOGK7SQOR2ONVm16Vs3exAKw6ToI0K15MZfaOagufmhxKwhEzACsg0DRFZ12B/hHND0jtllR6IJeCJIaNA9bgcZeADd5MdcyZYLIz7T2OmTKK/gmv647uk3AJfpGY4rIPP9BjIjArY8V/gbs+ICZR/78xXhXF+U+kq93whWYUbr06mxLOz5cbHvNZOOrK7eMK1hoH5Re+/23WHVlOWj+ecwFIOwOALmem2Kq2eue8LYob4GEIm0n+GQ04q2IhRh1ae+Nt8cbrxV6Ofi70ps0BdzCeHPPXWRWBU2Jj40bo1zYw2rUr3Ao8ZQfyj9t5DkVyIcx027OlB1n8iaAevw= 48 | on: 49 | all_branches: true 50 | repo: khanage/heineken 51 | tags: true 52 | -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | 2 | Apache License 3 | Version 2.0, January 2004 4 | http://www.apache.org/licenses/ 5 | 6 | TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION 7 | 8 | 1. Definitions. 9 | 10 | "License" shall mean the terms and conditions for use, reproduction, 11 | and distribution as defined by Sections 1 through 9 of this document. 12 | 13 | "Licensor" shall mean the copyright owner or entity authorized by 14 | the copyright owner that is granting the License. 15 | 16 | "Legal Entity" shall mean the union of the acting entity and all 17 | other entities that control, are controlled by, or are under common 18 | control with that entity. For the purposes of this definition, 19 | "control" means (i) the power, direct or indirect, to cause the 20 | direction or management of such entity, whether by contract or 21 | otherwise, or (ii) ownership of fifty percent (50%) or more of the 22 | outstanding shares, or (iii) beneficial ownership of such entity. 23 | 24 | "You" (or "Your") shall mean an individual or Legal Entity 25 | exercising permissions granted by this License. 26 | 27 | "Source" form shall mean the preferred form for making modifications, 28 | including but not limited to software source code, documentation 29 | source, and configuration files. 30 | 31 | "Object" form shall mean any form resulting from mechanical 32 | transformation or translation of a Source form, including but 33 | not limited to compiled object code, generated documentation, 34 | and conversions to other media types. 35 | 36 | "Work" shall mean the work of authorship, whether in Source or 37 | Object form, made available under the License, as indicated by a 38 | copyright notice that is included in or attached to the work 39 | (an example is provided in the Appendix below). 40 | 41 | "Derivative Works" shall mean any work, whether in Source or Object 42 | form, that is based on (or derived from) the Work and for which the 43 | editorial revisions, annotations, elaborations, or other modifications 44 | represent, as a whole, an original work of authorship. For the purposes 45 | of this License, Derivative Works shall not include works that remain 46 | separable from, or merely link (or bind by name) to the interfaces of, 47 | the Work and Derivative Works thereof. 48 | 49 | "Contribution" shall mean any work of authorship, including 50 | the original version of the Work and any modifications or additions 51 | to that Work or Derivative Works thereof, that is intentionally 52 | submitted to Licensor for inclusion in the Work by the copyright owner 53 | or by an individual or Legal Entity authorized to submit on behalf of 54 | the copyright owner. For the purposes of this definition, "submitted" 55 | means any form of electronic, verbal, or written communication sent 56 | to the Licensor or its representatives, including but not limited to 57 | communication on electronic mailing lists, source code control systems, 58 | and issue tracking systems that are managed by, or on behalf of, the 59 | Licensor for the purpose of discussing and improving the Work, but 60 | excluding communication that is conspicuously marked or otherwise 61 | designated in writing by the copyright owner as "Not a Contribution." 62 | 63 | "Contributor" shall mean Licensor and any individual or Legal Entity 64 | on behalf of whom a Contribution has been received by Licensor and 65 | subsequently incorporated within the Work. 66 | 67 | 2. Grant of Copyright License. Subject to the terms and conditions of 68 | this License, each Contributor hereby grants to You a perpetual, 69 | worldwide, non-exclusive, no-charge, royalty-free, irrevocable 70 | copyright license to reproduce, prepare Derivative Works of, 71 | publicly display, publicly perform, sublicense, and distribute the 72 | Work and such Derivative Works in Source or Object form. 73 | 74 | 3. Grant of Patent License. Subject to the terms and conditions of 75 | this License, each Contributor hereby grants to You a perpetual, 76 | worldwide, non-exclusive, no-charge, royalty-free, irrevocable 77 | (except as stated in this section) patent license to make, have made, 78 | use, offer to sell, sell, import, and otherwise transfer the Work, 79 | where such license applies only to those patent claims licensable 80 | by such Contributor that are necessarily infringed by their 81 | Contribution(s) alone or by combination of their Contribution(s) 82 | with the Work to which such Contribution(s) was submitted. If You 83 | institute patent litigation against any entity (including a 84 | cross-claim or counterclaim in a lawsuit) alleging that the Work 85 | or a Contribution incorporated within the Work constitutes direct 86 | or contributory patent infringement, then any patent licenses 87 | granted to You under this License for that Work shall terminate 88 | as of the date such litigation is filed. 89 | 90 | 4. Redistribution. You may reproduce and distribute copies of the 91 | Work or Derivative Works thereof in any medium, with or without 92 | modifications, and in Source or Object form, provided that You 93 | meet the following conditions: 94 | 95 | (a) You must give any other recipients of the Work or 96 | Derivative Works a copy of this License; and 97 | 98 | (b) You must cause any modified files to carry prominent notices 99 | stating that You changed the files; and 100 | 101 | (c) You must retain, in the Source form of any Derivative Works 102 | that You distribute, all copyright, patent, trademark, and 103 | attribution notices from the Source form of the Work, 104 | excluding those notices that do not pertain to any part of 105 | the Derivative Works; and 106 | 107 | (d) If the Work includes a "NOTICE" text file as part of its 108 | distribution, then any Derivative Works that You distribute must 109 | include a readable copy of the attribution notices contained 110 | within such NOTICE file, excluding those notices that do not 111 | pertain to any part of the Derivative Works, in at least one 112 | of the following places: within a NOTICE text file distributed 113 | as part of the Derivative Works; within the Source form or 114 | documentation, if provided along with the Derivative Works; or, 115 | within a display generated by the Derivative Works, if and 116 | wherever such third-party notices normally appear. The contents 117 | of the NOTICE file are for informational purposes only and 118 | do not modify the License. You may add Your own attribution 119 | notices within Derivative Works that You distribute, alongside 120 | or as an addendum to the NOTICE text from the Work, provided 121 | that such additional attribution notices cannot be construed 122 | as modifying the License. 123 | 124 | You may add Your own copyright statement to Your modifications and 125 | may provide additional or different license terms and conditions 126 | for use, reproduction, or distribution of Your modifications, or 127 | for any such Derivative Works as a whole, provided Your use, 128 | reproduction, and distribution of the Work otherwise complies with 129 | the conditions stated in this License. 130 | 131 | 5. Submission of Contributions. Unless You explicitly state otherwise, 132 | any Contribution intentionally submitted for inclusion in the Work 133 | by You to the Licensor shall be under the terms and conditions of 134 | this License, without any additional terms or conditions. 135 | Notwithstanding the above, nothing herein shall supersede or modify 136 | the terms of any separate license agreement you may have executed 137 | with Licensor regarding such Contributions. 138 | 139 | 6. Trademarks. This License does not grant permission to use the trade 140 | names, trademarks, service marks, or product names of the Licensor, 141 | except as required for reasonable and customary use in describing the 142 | origin of the Work and reproducing the content of the NOTICE file. 143 | 144 | 7. Disclaimer of Warranty. Unless required by applicable law or 145 | agreed to in writing, Licensor provides the Work (and each 146 | Contributor provides its Contributions) on an "AS IS" BASIS, 147 | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or 148 | implied, including, without limitation, any warranties or conditions 149 | of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A 150 | PARTICULAR PURPOSE. You are solely responsible for determining the 151 | appropriateness of using or redistributing the Work and assume any 152 | risks associated with Your exercise of permissions under this License. 153 | 154 | 8. Limitation of Liability. In no event and under no legal theory, 155 | whether in tort (including negligence), contract, or otherwise, 156 | unless required by applicable law (such as deliberate and grossly 157 | negligent acts) or agreed to in writing, shall any Contributor be 158 | liable to You for damages, including any direct, indirect, special, 159 | incidental, or consequential damages of any character arising as a 160 | result of this License or out of the use or inability to use the 161 | Work (including but not limited to damages for loss of goodwill, 162 | work stoppage, computer failure or malfunction, or any and all 163 | other commercial damages or losses), even if such Contributor 164 | has been advised of the possibility of such damages. 165 | 166 | 9. Accepting Warranty or Additional Liability. While redistributing 167 | the Work or Derivative Works thereof, You may choose to offer, 168 | and charge a fee for, acceptance of support, warranty, indemnity, 169 | or other liability obligations and/or rights consistent with this 170 | License. However, in accepting such obligations, You may act only 171 | on Your own behalf and on Your sole responsibility, not on behalf 172 | of any other Contributor, and only if You agree to indemnify, 173 | defend, and hold each Contributor harmless for any liability 174 | incurred by, or claims asserted against, such Contributor by reason 175 | of your accepting any such warranty or additional liability. 176 | 177 | END OF TERMS AND CONDITIONS 178 | 179 | APPENDIX: How to apply the Apache License to your work. 180 | 181 | To apply the Apache License to your work, attach the following 182 | boilerplate notice, with the fields enclosed by brackets "[]" 183 | replaced with your own identifying information. (Don't include 184 | the brackets!) The text should be enclosed in the appropriate 185 | comment syntax for the file format. We also recommend that a 186 | file or class name and description of purpose be included on the 187 | same "printed page" as the copyright notice for easier 188 | identification within third-party archives. 189 | 190 | Copyright [yyyy] [name of copyright owner] 191 | 192 | Licensed under the Apache License, Version 2.0 (the "License"); 193 | you may not use this file except in compliance with the License. 194 | You may obtain a copy of the License at 195 | 196 | http://www.apache.org/licenses/LICENSE-2.0 197 | 198 | Unless required by applicable law or agreed to in writing, software 199 | distributed under the License is distributed on an "AS IS" BASIS, 200 | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 201 | See the License for the specific language governing permissions and 202 | limitations under the License. 203 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # heineken 2 | 3 | [![Build Status](https://travis-ci.org/khanage/heineken.svg?branch=master)](https://travis-ci.org/khanage/heineken) 4 | 5 | A general build tool for haskell projects inspired by leiningen. It is intended to be useful for the automation of all project creation tedium, as well as eventually integrate with cloud deployments. 6 | 7 | It is intended that this will support arbitrary plugins in the future. 8 | 9 | # Usage 10 | ## New 11 | 12 | Run 'hein new ' will: 13 | * create a subdirectory under the current one 14 | * create a cabal sandbox 15 | * initialise cabal 16 | * cabal build 17 | * create a git repo 18 | * create an initial commit 19 | * run your project (which defaults to printing the proj name) 20 | 21 | You can also specify additional dependencies by prefixing them with a plus, e.g. `hein new webtest +scotty` will add scotty as a dependency to your build. 22 | 23 | # Installation 24 | 25 | This assumes you have a recent cabal installed for your platform. 26 | 27 | * cabal update 28 | * cabal install hein 29 | * hein new project +dependency 30 | -------------------------------------------------------------------------------- /Setup.hs: -------------------------------------------------------------------------------- 1 | import Distribution.Simple 2 | main = defaultMain 3 | -------------------------------------------------------------------------------- /hein.cabal: -------------------------------------------------------------------------------- 1 | -- Initial hein.cabal generated by cabal init. For further documentation, 2 | -- see http://haskell.org/cabal/users-guide/ 3 | 4 | -- The name of the package. 5 | name: hein 6 | 7 | -- The package version. See the Haskell package versioning policy (PVP) 8 | -- for standards guiding when and how versions should be incremented. 9 | -- http://www.haskell.org/haskellwiki/Package_versioning_policy 10 | -- PVP summary: +-+------- breaking API changes 11 | -- | | +----- non-breaking API additions 12 | -- | | | +--- code changes with no API change 13 | version: 0.1.0.5 14 | 15 | -- A short (one-line) description of the package. 16 | synopsis: An extensible build helper for haskell, in the vein of leiningen. 17 | 18 | description: A general build tool for haskell projects inspired by leiningen. It is intended to be useful for the automation of all project creation tedium, as well as eventually integrate with cloud deployments. It is intended that this will support arbitrary plugins in the future. 19 | 20 | -- A longer description of the package. 21 | -- description: 22 | 23 | -- URL for the project homepage or repository. 24 | homepage: https://github.com/khanage/heineken 25 | 26 | -- The license under which the package is released. 27 | license: Apache-2.0 28 | 29 | -- The file containing the license text. 30 | license-file: LICENSE 31 | 32 | -- The package author(s). 33 | author: Khan Thompson 34 | 35 | -- An email address to which users can send suggestions, bug reports, and 36 | -- patches. 37 | maintainer: khanage@gmail.com 38 | 39 | -- A copyright notice. 40 | -- copyright: 41 | 42 | category: Development 43 | 44 | build-type: Simple 45 | 46 | -- Extra files to be distributed with the package, such as examples or a 47 | -- README. 48 | -- extra-source-files: 49 | 50 | -- Constraint on the version of Cabal needed to build this package. 51 | cabal-version: >=1.10 52 | 53 | 54 | executable hein 55 | main-is: Main.hs 56 | -- Modules exported by the library. 57 | -- exposed-modules: 58 | 59 | -- Modules included in this library but not exported. 60 | other-modules: Development.Heineken 61 | , Development.Heineken.Plugin 62 | , Development.Heineken.New 63 | 64 | -- LANGUAGE extensions used by modules in this package. 65 | -- other-extensions: 66 | 67 | -- Other library packages from which modules are imported. 68 | build-depends: base >= 4.6 && < 4.9 69 | , bytestring >= 0.10.4.0 70 | , directory >= 1.2.1.0 71 | , filepath >= 1.3.0.2 72 | , process 73 | , transformers 74 | , http-conduit 75 | 76 | -- Directories containing source files. 77 | hs-source-dirs: src 78 | 79 | -- Base language which the package is written in. 80 | default-language: Haskell2010 81 | 82 | source-repository this 83 | type: git 84 | location: https://github.com/khanage/heineken.git 85 | tag: 0.1.0.5 86 | -------------------------------------------------------------------------------- /src/Development/Heineken.hs: -------------------------------------------------------------------------------- 1 | module Development.Heineken where 2 | 3 | import Control.Monad 4 | import Data.Char 5 | import Data.List (intercalate) 6 | import Debug.Trace (traceIO) 7 | 8 | -- This is just a work around for now 9 | import qualified Development.Heineken.New as New 10 | import Development.Heineken.Plugin 11 | 12 | newtype Command = Command { unCommand :: String } 13 | newtype CommandArgs = CommandArgs { unCommandArgs :: [String] } 14 | 15 | openKeg :: Command -> CommandArgs -> IO () 16 | openKeg c a = do 17 | 18 | let command = unCommand c 19 | args = unCommandArgs a 20 | 21 | let plugin = case toLower `fmap` command of 22 | "new" -> New.plugin 23 | 24 | putStrLn $ "Calling " ++ command ++ " with [" ++ intercalate " " args ++ "]." 25 | 26 | run plugin args 27 | -------------------------------------------------------------------------------- /src/Development/Heineken/New.hs: -------------------------------------------------------------------------------- 1 | module Development.Heineken.New (plugin) where 2 | 3 | import Development.Heineken.Plugin (HeinekenPlugin (..)) 4 | 5 | import Control.Applicative ((<|>)) 6 | import Control.Monad.Trans.Maybe (MaybeT (..), runMaybeT) 7 | import qualified Data.ByteString.Lazy as L 8 | import Data.List (intercalate, stripPrefix) 9 | import Data.Maybe (catMaybes) 10 | import Network.HTTP.Conduit (simpleHttp) 11 | import System.Directory 12 | import System.Exit 13 | import System.FilePath 14 | import System.IO 15 | import System.Process 16 | 17 | newtype UserDetails = UserDetails { unUserDetails :: (String,String) } deriving (Show, Eq) 18 | 19 | userDetails :: IO UserDetails 20 | userDetails = do 21 | Just details <- runMaybeT (readFromGitconfig <|> askDetails) 22 | return details 23 | where 24 | readFromGitconfig = MaybeT $ do 25 | 26 | username <- readProcess "git" ["config", "--global", "--get", "user.name"] "" 27 | email <- readProcess "git" ["config", "--global", "--get", "user.email"] "" 28 | 29 | if null username || null email 30 | then return Nothing 31 | else return . Just $ UserDetails (username, email) 32 | 33 | askDetails = MaybeT $ do 34 | putStrLn "Couldn't infer details!" 35 | 36 | putStrLn "Enter name" 37 | name <- getLine 38 | 39 | putStrLn "Enter email" 40 | email <- getLine 41 | 42 | let details = UserDetails (name, email) 43 | 44 | return (Just details) 45 | 46 | dependenciesIn :: [String] -> [String] -> [String] 47 | dependenciesIn defs args = 48 | let startingWithPlus = catMaybes $ map (stripPrefix "+") args 49 | mapped = map ("--dependency=" ++) $ defs ++ startingWithPlus 50 | in mapped 51 | 52 | plugin :: HeinekenPlugin 53 | plugin = HeinekenPlugin 54 | $ \args -> do 55 | let packageName = head args 56 | 57 | putStrLn $ "Creating new project named " ++ packageName 58 | 59 | alreadyExists <- doesDirectoryExist packageName 60 | if (not alreadyExists) then createDirectory packageName else return () 61 | 62 | setCurrentDirectory packageName 63 | 64 | UserDetails (user, email) <- userDetails 65 | let license = "Apache-2.0" 66 | language = "Haskell2010" 67 | sourceDir = "src" 68 | mainFile = "Main.hs" 69 | mainFilePath = sourceDir mainFile 70 | readmeFilePath = "README.md" --File path is filename in current dir 71 | defaultDependencies = ["base"] 72 | dependencies = dependenciesIn defaultDependencies args 73 | 74 | putStrLn "Creating sandbox..." 75 | ExitSuccess <- rawSystem "cabal" ["sandbox", "init"] 76 | 77 | putStrLn "Initialising cabal..." 78 | ExitSuccess <- rawSystem "cabal" $ 79 | [ "init", "-n" 80 | , "--is-executable" 81 | , "--package-name=" ++ packageName 82 | , "--author=" ++ user 83 | , "--email=" ++ email 84 | , "--license=" ++ license 85 | , "--language=" ++ language 86 | , "--source-dir=" ++ sourceDir 87 | , "--main-is=" ++ mainFile] 88 | ++ dependencies 89 | 90 | putStrLn "Creating initial main file" 91 | createDirectoryIfMissing True sourceDir 92 | 93 | writeFile mainFilePath $ intercalate "\n" 94 | [ "module Main where" 95 | , "" 96 | , "main :: IO ()" 97 | , "main = putStrLn \"" ++ packageName ++ "!\"" 98 | ] 99 | 100 | putStrLn "Creating README.md file" 101 | writeFile readmeFilePath $ intercalate "\n" 102 | ["#" ++ packageName ++ "!"] 103 | 104 | putStrLn "Running build" 105 | ExitSuccess <- rawSystem "cabal" ["install"] 106 | 107 | putStrLn "Initialising a git repo" 108 | rawSystem "git" ["init"] 109 | 110 | putStrLn "Add git ignore" 111 | simpleHttp "https://raw.githubusercontent.com/github/gitignore/master/Haskell.gitignore" >>= L.writeFile ".gitignore" 112 | 113 | putStrLn "Initial commit" 114 | rawSystem "git" ["add", "."] 115 | rawSystem "git" ["commit", "-m", "\"Initial commit\""] 116 | 117 | putStrLn "Running app" 118 | rawSystem "cabal" ["run"] 119 | 120 | return () 121 | -------------------------------------------------------------------------------- /src/Development/Heineken/Plugin.hs: -------------------------------------------------------------------------------- 1 | module Development.Heineken.Plugin where 2 | 3 | data HeinekenPlugin = HeinekenPlugin { run :: [String] -> IO () } 4 | -------------------------------------------------------------------------------- /src/Main.hs: -------------------------------------------------------------------------------- 1 | module Main where 2 | 3 | import System.Environment (getArgs) 4 | import Development.Heineken 5 | 6 | main :: IO () 7 | main = do 8 | args <- getArgs 9 | 10 | case args of 11 | (command:otherargs) -> openKeg 12 | (Command command) 13 | (CommandArgs otherargs) 14 | 15 | _ -> putStrLn "usage: hein " 16 | --------------------------------------------------------------------------------