summaryrefslogtreecommitdiff
path: root/Omni/Bild/Example.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Omni/Bild/Example.hs')
-rw-r--r--Omni/Bild/Example.hs45
1 files changed, 45 insertions, 0 deletions
diff --git a/Omni/Bild/Example.hs b/Omni/Bild/Example.hs
new file mode 100644
index 0000000..025391c
--- /dev/null
+++ b/Omni/Bild/Example.hs
@@ -0,0 +1,45 @@
+{-# LANGUAGE QuasiQuotes #-}
+{-# LANGUAGE NoImplicitPrelude #-}
+
+-- : out example
+module Omni.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 Crypto.Saltine as Saltine
+import qualified Crypto.Saltine.Core.SecretBox as Saltine
+import qualified Omni.Cli as Cli
+import qualified Omni.Test as Test
+
+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
+ "Omni.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
+|]