summaryrefslogtreecommitdiff
path: root/Biz/Bild/Example.hs
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2024-11-15 14:55:37 -0500
committerBen Sima <ben@bsima.me>2024-12-21 10:06:49 -0500
commit6513755670892983db88a6633b8c1ea6019c03d1 (patch)
tree44e9eccdb7a3a74ab7e96a8fee7572dd6a78dc73 /Biz/Bild/Example.hs
parentae7b7e0186b5f2e0dcd4d5fac0a71fa264caedc2 (diff)
Re-namespace some stuff to Omni
I was getting confused about what is a product and what is internal infrastructure; I think it is good to keep those things separate. So I moved a bunch of stuff to an Omni namespace, actually most stuff went there. Only things that are explicitly external products are still in the Biz namespace.
Diffstat (limited to 'Biz/Bild/Example.hs')
-rw-r--r--Biz/Bild/Example.hs45
1 files changed, 0 insertions, 45 deletions
diff --git a/Biz/Bild/Example.hs b/Biz/Bild/Example.hs
deleted file mode 100644
index 66812ba..0000000
--- a/Biz/Bild/Example.hs
+++ /dev/null
@@ -1,45 +0,0 @@
-{-# LANGUAGE QuasiQuotes #-}
-{-# LANGUAGE NoImplicitPrelude #-}
-
--- : out example
-module Biz.Bild.Example where
-
--- Both internal and external language dependencies are detected automatically
--- by bild, for example here we import 'Crypto.Saltine' and list 'saltine' in
--- 'Deps/Haskell.nix' to indicate that this is the package we want made
--- available to bild, which will index the external package and record its
--- modules for lookup.
-import Alpha
-import qualified Biz.Cli as Cli
-import qualified Biz.Test as Test
-import qualified Crypto.Saltine as Saltine
-import qualified Crypto.Saltine.Core.SecretBox as Saltine
-
-main :: IO ()
-main = Cli.main <| Cli.Plan help move test pure
-
-move :: Cli.Arguments -> IO ()
-move _ = putStrLn "Hello world"
-
-test :: Test.Tree
-test =
- Test.group
- "Biz.Bild.Example"
- [ Test.unit "can use saltine package" <| do
- Saltine.sodiumInit
- k <- Saltine.newKey
- n <- Saltine.newNonce
- let msg = "foobar"
- let encryptedMsg = Saltine.secretbox k n <| str "foobar"
- Just msg Test.@=? str </ Saltine.secretboxOpen k n encryptedMsg
- ]
-
-help :: Cli.Docopt
-help =
- [Cli.docopt|
-example that tests basic haskell build
-
-Usage:
- example
- example test
-|]